Warning, /include/gen/imp128.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 * imp128.inc
0010 *
0011 #if (!defined(CERNLIB_F90))&&(defined(CERNLIB_NOQUAD)||!defined(CERNLIB_DOUBLE))
0012 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
0013
0014 #elif (defined(CERNLIB_F90))&&(!defined(CERNLIB_DOUBLE))
0015 IMPLICIT REAL(2) (A-H,O-Z)
0016
0017 #elif (defined(CERNLIB_F90))&&(defined(CERNLIB_DOUBLE))
0018 IMPLICIT REAL(4) (A-H,O-Z)
0019
0020 #elif 1
0021 IMPLICIT REAL*16 (A-H,O-Z)
0022
0023 #endif
