This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / c / gcmpfun.inc
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)