17 February 2011   3:22:41.805 PM
 
REAL_KIND_PRECISION24
  FORTRAN90 version.
  Inquire about the properties of real data that
  is requested with a precision of 24 decimal digits
  and a max exponent 30.
 
TEST01
  Use SELECTED_REAL_KIND to request real numbers
  with a precision of 24 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.189731495357231765085759326628007E+4932
     TINY(R) =     3.3621031431120935062626778173217526E-4932
    EPSILON(R) =   0.192593E-33
 
  DIGITS counts the significant binary digits.
  RANGE provides the decimal exponent range.
  PRECISION provides the decimal precision.
 
    DIGITS(R) =             113
    RANGE(R) =             4931
    PRECISION(R) =           33
 
  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) =           16
 
REAL_KIND_PRECISION24
  Normal end of execution.
 
17 February 2011   3:22:41.806 PM