February  5 2008   2:49:24.251 PM
 
BIG_INTS
  FORTRAN90 version.
 
  Demonstrate the use of "big" integers.
 
TEST01
  Use integers of the default type.
 
  HUGE() returns the largest value of the given type.
    HUGE(I1) =               2147483647
 
  RANGE provides the decimal exponent range.
    RANGE(I1) =                        9
 
  KIND returns the "kind" of a given integer.
    KIND(I1) =                        4
 
TEST02
  Use integers of KIND = 4.
 
  HUGE() returns the largest value of the given type.
    HUGE(I1) =               2147483647
 
  RANGE provides the decimal exponent range.
    RANGE(I1) =                        9
 
  KIND returns the "kind" of a given integer.
    KIND(I1) =                        4
 
TEST03
  Use integers of KIND = 8.
 
  HUGE() returns the largest value of the given type.
    HUGE(I1) =      9223372036854775807
 
  RANGE provides the decimal exponent range.
    RANGE(I1) =                       18
 
  KIND returns the "kind" of a given integer.
    KIND(I1) =                        8
 
TEST04
  Set KIND_VAL = SELECTED_INT_KIND (  18 )
  and declare I1 of type " integer ( KIND_VAL )"
 
  KIND_VAL =                        8
 
  HUGE() returns the largest value of the given type.
    HUGE(I1) =      9223372036854775807
 
  RANGE provides the decimal exponent range.
    RANGE(I1) =                       18
 
  KIND returns the "kind" of a given integer.
    KIND(I1) =                        8
 
BIG_INTS
  Normal end of execution.
 
February  5 2008   2:49:24.253 PM