17 February 2011   2:32:16.861 PM
 
REAL_KIND_PRECISION18
  FORTRAN90 version.
  Inquire about the properties of real data that
  is requested with a precision of 18 decimal digits
  and a max exponent 30.
 
TEST01
  Use SELECTED_REAL_KIND to request real numbers
  with a precision of 18 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) =      1.18973149535723176502E+4932
     TINY(R) =      3.36210314311209350626E-4932
    EPSILON(R) =   0.108420E-18
 
  DIGITS counts the significant binary digits.
  RANGE provides the decimal exponent range.
  PRECISION provides the decimal precision.
 
    DIGITS(R) =              64
    RANGE(R) =             4931
    PRECISION(R) =           18
 
  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) =        16384
    MINEXPONENT(R) =       -16381
 
  KIND returns the "kind" of a variable.
    KIND(R) =           10
 
REAL_KIND_PRECISION18
  Normal end of execution.
 
17 February 2011   2:32:16.861 PM