MINICERN/mathlib/gen/gen/def128.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/04/01 15:02:59  mclareni
   6 * Mathlib gen
   7 *
   8 *
   9 *
  10 * def128.inc
  11 *
  12 #if (defined(CERNLIB_DOUBLE))&&(defined(CERNLIB_F90))
  13       REAL(4)
  14
  15 #elif (!defined(CERNLIB_DOUBLE))&&(defined(CERNLIB_F90))
  16       REAL(2)
  17
  18 #elif (!defined(CERNLIB_F90))&&(defined(CERNLIB_NOQUAD)||!defined(CERNLIB_DOUBLE))
  19       DOUBLE PRECISION
  20
  21 #elif 1
  22       REAL*16
  23
  24 #endif