17 February 2011   2:28:28.397 PM
 
REAL_KIND_PRECISION12
  FORTRAN90 version.
  Inquire about the properties of real data that
  is requested with a precision of 12 decimal digits
  and a max exponent 30.
 
TEST01
  Use SELECTED_REAL_KIND to request real numbers
  with a precision of 12 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.179769+309
    TINY(R) =      0.222507-307
    EPSILON(R) =   0.222045E-15
 
  DIGITS counts the significant binary digits.
  RANGE provides the decimal exponent range.
  PRECISION provides the decimal precision.
 
    DIGITS(R) =              53
    RANGE(R) =              307
    PRECISION(R) =           15
 
  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) =         1024
    MINEXPONENT(R) =        -1021
 
  KIND returns the "kind" of a variable.
    KIND(R) =            8
 
REAL_KIND_PRECISION12
  Normal end of execution.
 
17 February 2011   2:28:28.398 PM