17 February 2011   1:58:37.554 PM
 
REAL_KIND_DEFAULT
  FORTRAN90 version.
  Inquire about the properties of real data that
  is declared with the default real type.
 
TEST01
  Use reals of the default type.
 
  HUGE returns the largest value of the given type.
  TINY returns the smallest value of the given type.
  EPSILON returns the precision of a real type.
 
    HUGE(R) =      0.340282E+39
    TINY(R) =      0.117549E-37
    EPSILON(R) =   0.119209E-06
 
  DIGITS counts the significant decimal digits.
  RANGE provides the decimal exponent range.
  PRECISION provides the decimal precision.
 
    DIGITS(R) =              24
    RANGE(R) =               37
    PRECISION(R) =            6
 
  RADIX provides the base of the model.
  MAXEXPONENT returns the maximum exponent of a variable.
  MINEXPONENT returns the minimum exponent of a variable.
  (These are exponents of the RADIX)
 
    RADIX(R) =                  2
    MAXEXPONENT(R) =          128
    MINEXPONENT(R) =         -125
 
  KIND returns the "kind" of a variable.
    KIND(R) =            4
 
REAL_KIND_DEFAULT
  Normal end of execution.
 
17 February 2011   1:58:37.568 PM