17 February 2011   2:27:08.152 PM
 
REAL_KIND_PRECISION6
  FORTRAN90 version.
  Inquire about the properties of real data that
  is requested with a precision of 6 decimal digits
  and max exponent 30.
 
TEST01
  Use SELECTED_REAL_KIND to request real numbers
  with precision of 6 decimal digits.
 
  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 binary 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_PRECISION6
  Normal end of execution.
 
17 February 2011   2:27:08.154 PM