lang/fortran/lib/libI77/fp.h

   1 #define FMAX 40
   2 #define EXPMAXDIGS 8
   3 #define EXPMAX 99999999
   4 /* FMAX = max number of nonzero digits passed to atof() */
   5 /* EXPMAX = 10^EXPMAXDIGS - 1 = largest allowed exponent absolute value */
   6
   7 #include "local.h"
   8
   9 /* MAXFRACDIGS and MAXINTDIGS are for wrt_F -- bounds (not necessarily
  10    tight) on the maximum number of digits to the right and left of
  11  * the decimal point.
  12  */
  13
  14 #ifdef VAX
  15 #define MAXFRACDIGS 56
  16 #define MAXINTDIGS 38
  17 #else
  18 #ifdef CRAY
  19 #define MAXFRACDIGS 9880
  20 #define MAXINTDIGS 9864
  21 #else
  22 /* values that suffice for IEEE double */
  23 #define MAXFRACDIGS 344
  24 #define MAXINTDIGS 308
  25 #endif
  26 #endif