Back to home page

EIC code displayed by LXR

 
 

    


Warning, /include/gen/def128.inc is written in an unsupported language. File is not indexed.

0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1  1996/04/01 15:02:58  mclareni
0006 * Initial revision
0007 *
0008 *
0009 *
0010 * def128.inc
0011 *
0012 #if (defined(CERNLIB_DOUBLE))&&(defined(CERNLIB_F90))
0013       REAL(4)
0014 
0015 #elif (!defined(CERNLIB_DOUBLE))&&(defined(CERNLIB_F90))
0016       REAL(2)
0017 
0018 #elif (!defined(CERNLIB_F90))&&(defined(CERNLIB_NOQUAD)||!defined(CERNLIB_DOUBLE))
0019       DOUBLE PRECISION
0020 
0021 #elif 1
0022       REAL*16
0023  
0024 #endif