| fe4da5cc |
1 | * |
| 2 | * $Id$ |
| 3 | * |
| 4 | * $Log$ |
| 5 | * Revision 1.1.1.1 1996/04/01 15:02:12 mclareni |
| 6 | * Mathlib gen |
| 7 | * |
| 8 | * |
| 9 | * |
| 10 | * gcmpfun.inc |
| 11 | * |
| 12 | #if (defined(CERNLIB_DOUBLE))&&(!defined(CERNLIB_F90))&&(defined(CERNLIB_LINUX)||!defined(CERNLIB_QF2C)) |
| 13 | #include "def64.inc" |
| 14 | + GREAL,GIMAG,XARG,YARG |
| 15 | #include "defc64.inc" |
| 16 | + ZARG,GCONJG,GCMPLX |
| 17 | GREAL( ZARG)=DREAL( ZARG) |
| 18 | GIMAG( ZARG)=DIMAG( ZARG) |
| 19 | GCONJG(ZARG)=DCONJG(ZARG) |
| 20 | GCMPLX(XARG,YARG)=DCMPLX(XARG,YARG) |
| 21 | #endif |
| 22 | #if (defined(CERNLIB_DOUBLE))&&(defined(CERNLIB_QF2C))&&(!defined(CERNLIB_LINUX)) |
| 23 | #include "def64.inc" |
| 24 | + GREAL,GIMAG,XARG,YARG |
| 25 | #include "defc64.inc" |
| 26 | + ZARG,GCONJG,GCMPLX |
| 27 | #endif |
| 28 | #if (defined(CERNLIB_DOUBLE))&&(defined(CERNLIB_F90)) |
| 29 | #include "def64.inc" |
| 30 | + GREAL,GIMAG,XARG,YARG |
| 31 | #include "defc64.inc" |
| 32 | + ZARG,GCONJG,GCMPLX |
| 33 | GREAL( ZARG)= REAL( ZARG,2) |
| 34 | GIMAG( ZARG)=AIMAG( ZARG) |
| 35 | GCONJG(ZARG)= CONJG(ZARG) |
| 36 | GCMPLX(XARG,YARG)= CMPLX(XARG,YARG,2) |
| 37 | #endif |
| 38 | #include "def64.inc" |
| 39 | + GREAL,GIMAG,XARG,YARG |
| 40 | #include "defc64.inc" |
| 41 | + ZARG,GCONJG,GCMPLX |
| 42 | GREAL( ZARG)=REAL( ZARG) |
| 43 | GIMAG( ZARG)=AIMAG(ZARG) |
| 44 | GCONJG(ZARG)=CONJG(ZARG) |
| 45 | GCMPLX(XARG,YARG)= CMPLX(XARG,YARG) |
git://git.uio.no / u / mrichter / AliRoot.git / blame