1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/kind_mod.f90	Sun Sep 21 21:59:01 2008 -0400
     1.3 @@ -0,0 +1,13 @@
     1.4 +  module kind_mod
     1.5 +
     1.6 +    implicit none
     1.7 +    integer, parameter :: r8 = selected_real_kind(12) ! 8 byte real
     1.8 +    integer, parameter :: r4 = selected_real_kind( 6) ! 4 byte real
     1.9 +    integer, parameter :: nr = kind(1.0)              ! native real
    1.10 +    integer, parameter :: i8 = selected_int_kind(13)  ! 8 byte integer
    1.11 +    integer, parameter :: i4 = selected_int_kind( 6)  ! 4 byte integer
    1.12 +    integer, parameter :: ni = kind(1)                ! native integer
    1.13 +
    1.14 +    save
    1.15 +
    1.16 +  end module kind_mod