MINICERN/mathlib/gen/c/c309prec.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/04/01 15:01:56  mclareni
   6 * Mathlib gen
   7 *
   8 *
   9 *
  10 * c309prec.inc
  11 *
  12
  13 #if defined(CERNLIB_IBM)||defined(CERNLIB_IBMAIX)
  14       PARAMETER(FPMAX = 1D60, FPMIN = 2D-61)
  15       PARAMETER(ACCU = 1D-14, ACC8 = 2D-16, ACC16 = 3D-33)
  16
  17 #elif defined(CERNLIB_VAX)
  18       PARAMETER(FPMAX = 1D21, FPMIN = 3D-22)
  19       PARAMETER(ACCU = 5D-15, ACC8 = 2D-17, ACC16 = 3D-34)
  20
  21 #elif defined(CERNLIB_CDC)
  22       PARAMETER(FPMAX = 1E250, FPMIN = 1E-250)
  23       PARAMETER(ACCU = 1D-13, ACC8 = 4D-15, ACC16 = 2D-29)
  24
  25 #elif (defined(CERNLIB_CONVEX))&&(defined(CERNLIB_SINGLE))
  26       PARAMETER(FPMAX = 3D292, FPMIN = 2D-293)
  27       PARAMETER(ACCU = 1D-14, ACC8 = 2D-16, ACC16 = 2D-34)
  28
  29 #elif defined(CERNLIB_NECSX)
  30       PARAMETER(FPMAX = 4D74 , FPMIN = 5D-79 )
  31       PARAMETER(ACCU = 1D-14, ACC8 = 2D-16, ACC16 = 2D-16)
  32
  33 #elif (defined(CERNLIB_SINGLE))&&(!defined(CERNLIB_CDC))&&(!defined(CERNLIB_CONVEX))
  34       PARAMETER(FPMAX = 1E2451, FPMIN = 1E-2451)
  35       PARAMETER(ACCU = 1D-12, ACC8 = 7D-15, ACC16 = 2D-29)
  36
  37 #elif defined(CERNLIB_QUAD)
  38       PARAMETER(FPMAX = 3D292, FPMIN = 2D-292)
  39       PARAMETER(ACCU = 1D-14, ACC8 = 2D-16, ACC16 = 2D-34)
  40
  41 #elif 1
  42       PARAMETER(FPMAX = 3D292, FPMIN = 2D-292)
  43       PARAMETER(ACCU = 1D-14, ACC8 = 2D-16, ACC16 = 2D-16)
  44 #endif