/usr/include/gen/gcmpfun.inc is in libmathlib2-dev 20061220+dfsg3-4.1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 | *
* $Id: gcmpfun.inc,v 1.1.1.1 1996/04/01 15:02:59 mclareni Exp $
*
* $Log: gcmpfun.inc,v $
* 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
|