MICROCERN/gen/gcmpfun.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.2.1  2002/07/11 17:14:48  alibrary
   6 * Adding MICROCERN
   7 *
   8 * Revision 1.1.1.1  1999/05/18 15:55:36  fca
   9 * AliRoot sources
  10 *
  11 * Revision 1.1.1.1  1996/04/01 15:02:59  mclareni
  12 * Mathlib gen
  13 *
  14 *
  15 *
  16 * gcmpfun.inc
  17 *
  18 #if (defined(CERNLIB_DOUBLE))&&(!defined(CERNLIB_F90))&&(defined(CERNLIB_LINUX)||!defined(CERNLIB_QF2C))
  19 #include "gen/def64.inc"
  20      +      GREAL,GIMAG,XARG,YARG
  21 #include "gen/defc64.inc"
  22      +      ZARG,GCONJG,GCMPLX
  23       GREAL( ZARG)=DREAL( ZARG)
  24       GIMAG( ZARG)=DIMAG( ZARG)
  25       GCONJG(ZARG)=DCONJG(ZARG)
  26       GCMPLX(XARG,YARG)=DCMPLX(XARG,YARG)
  27
  28 #elif (defined(CERNLIB_DOUBLE))&&(defined(CERNLIB_QF2C))&&(!defined(CERNLIB_LINUX))
  29 #include "gen/def64.inc"
  30      +      GREAL,GIMAG,XARG,YARG
  31 #include "gen/defc64.inc"
  32      +      ZARG,GCONJG,GCMPLX
  33
  34 #elif (defined(CERNLIB_DOUBLE))&&(defined(CERNLIB_F90))
  35 #include "gen/def64.inc"
  36      +      GREAL,GIMAG,XARG,YARG
  37 #include "gen/defc64.inc"
  38      +      ZARG,GCONJG,GCMPLX
  39       GREAL( ZARG)= REAL( ZARG,2)
  40       GIMAG( ZARG)=AIMAG( ZARG)
  41       GCONJG(ZARG)= CONJG(ZARG)
  42       GCMPLX(XARG,YARG)= CMPLX(XARG,YARG,2)
  43
  44 #elif 1
  45 #include "gen/def64.inc"
  46      +      GREAL,GIMAG,XARG,YARG
  47 #include "gen/defc64.inc"
  48      +      ZARG,GCONJG,GCMPLX
  49       GREAL( ZARG)=REAL( ZARG)
  50       GIMAG( ZARG)=AIMAG(ZARG)
  51       GCONJG(ZARG)=CONJG(ZARG)
  52       GCMPLX(XARG,YARG)= CMPLX(XARG,YARG)
  53 #endif