(*-------------------------------------------------------------------------*)
(*               Global constants for significance routines                *)
(*-------------------------------------------------------------------------*)
(*               WARNING:  These are for Turbo-87 only!!!!!                *)
(*-------------------------------------------------------------------------*)

CONST
   PI         = 3.141592653589793      (* Math constant PI       *);
   Xln2sp     = 9.18938533204673E-01   (* LogE( Sqrt( 2 * PI ) ) *);
   Rmax       = 1.67E+308              (* Maximum flt pt number  *);
   Rsmall     = 4.19E-306              (* Smallest flt pt number *);
   Rinf       = 1.67E+308              (* Machine "infinity"     *);
   Zeta       = 1.0E-16                (* Approx. machine prec.  *);
   MaxPrec    = 16                     (* Max. precision         *);
   Sqrt2      = 1.4142135623730950     (* Square root of 2       *);
   LnTenInv   = 0.4342944819032520     (* 1 / LN(10)             *);
   LnTwo      = 0.6931471805599450     (* LN(2)                  *);