Warning, /include/gen/gcmpfun.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1 1996/04/01 15:02:58 mclareni
0006 * Initial revision
0007 *
0008 *
0009 *
0010 * gcmpfun.inc
0011 *
0012 #if (defined(CERNLIB_DOUBLE))&&(!defined(CERNLIB_F90))&&(defined(CERNLIB_LINUX)||!defined(CERNLIB_QF2C))
0013 #include "gen/def64.inc"
0014 + GREAL,GIMAG,XARG,YARG
0015 #include "gen/defc64.inc"
0016 + ZARG,GCONJG,GCMPLX
0017 GREAL( ZARG)=DREAL( ZARG)
0018 GIMAG( ZARG)=DIMAG( ZARG)
0019 GCONJG(ZARG)=DCONJG(ZARG)
0020 GCMPLX(XARG,YARG)=DCMPLX(XARG,YARG)
0021
0022 #elif (defined(CERNLIB_DOUBLE))&&(defined(CERNLIB_QF2C))&&(!defined(CERNLIB_LINUX))
0023 #include "gen/def64.inc"
0024 + GREAL,GIMAG,XARG,YARG
0025 #include "gen/defc64.inc"
0026 + ZARG,GCONJG,GCMPLX
0027
0028 #elif (defined(CERNLIB_DOUBLE))&&(defined(CERNLIB_F90))
0029 #include "gen/def64.inc"
0030 + GREAL,GIMAG,XARG,YARG
0031 #include "gen/defc64.inc"
0032 + ZARG,GCONJG,GCMPLX
0033 GREAL( ZARG)= REAL( ZARG,2)
0034 GIMAG( ZARG)=AIMAG( ZARG)
0035 GCONJG(ZARG)= CONJG(ZARG)
0036 GCMPLX(XARG,YARG)= CMPLX(XARG,YARG,2)
0037
0038 #elif 1
0039 #include "gen/def64.inc"
0040 + GREAL,GIMAG,XARG,YARG
0041 #include "gen/defc64.inc"
0042 + ZARG,GCONJG,GCMPLX
0043 GREAL( ZARG)=REAL( ZARG)
0044 GIMAG( ZARG)=AIMAG(ZARG)
0045 GCONJG(ZARG)=CONJG(ZARG)
0046 GCMPLX(XARG,YARG)= CMPLX(XARG,YARG)
0047 #endif
