+++ /dev/null
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1.2.1 2002/07/11 17:14:48 alibrary
-* Adding MICROCERN
-*
-* Revision 1.1.1.1 1999/05/18 15:55:36 fca
-* AliRoot sources
-*
-* Revision 1.1.1.1 1996/04/01 15:02:59 mclareni
-* Mathlib gen
-*
-*
-*
-* gcmpfun.inc
-*
-#if (defined(CERNLIB_DOUBLE))&&(!defined(CERNLIB_F90))&&(defined(CERNLIB_LINUX)||!defined(CERNLIB_QF2C))
-#include "gen/def64.inc"
- + GREAL,GIMAG,XARG,YARG
-#include "gen/defc64.inc"
- + ZARG,GCONJG,GCMPLX
- GREAL( ZARG)=DREAL( ZARG)
- GIMAG( ZARG)=DIMAG( ZARG)
- GCONJG(ZARG)=DCONJG(ZARG)
- GCMPLX(XARG,YARG)=DCMPLX(XARG,YARG)
-
-#elif (defined(CERNLIB_DOUBLE))&&(defined(CERNLIB_QF2C))&&(!defined(CERNLIB_LINUX))
-#include "gen/def64.inc"
- + GREAL,GIMAG,XARG,YARG
-#include "gen/defc64.inc"
- + ZARG,GCONJG,GCMPLX
-
-#elif (defined(CERNLIB_DOUBLE))&&(defined(CERNLIB_F90))
-#include "gen/def64.inc"
- + GREAL,GIMAG,XARG,YARG
-#include "gen/defc64.inc"
- + ZARG,GCONJG,GCMPLX
- GREAL( ZARG)= REAL( ZARG,2)
- GIMAG( ZARG)=AIMAG( ZARG)
- GCONJG(ZARG)= CONJG(ZARG)
- GCMPLX(XARG,YARG)= CMPLX(XARG,YARG,2)
-
-#elif 1
-#include "gen/def64.inc"
- + GREAL,GIMAG,XARG,YARG
-#include "gen/defc64.inc"
- + ZARG,GCONJG,GCMPLX
- GREAL( ZARG)=REAL( ZARG)
- GIMAG( ZARG)=AIMAG(ZARG)
- GCONJG(ZARG)=CONJG(ZARG)
- GCMPLX(XARG,YARG)= CMPLX(XARG,YARG)
-#endif