author | Forrest Hoffman <forrest@climatemodeling.org> |
Sun, 21 Sep 2008 21:59:01 -0400 | |
changeset 0 | c8ca04c3a9d6 |
permissions | -rw-r--r-- |
1 module kind_mod
3 implicit none
4 integer, parameter :: r8 = selected_real_kind(12) ! 8 byte real
5 integer, parameter :: r4 = selected_real_kind( 6) ! 4 byte real
6 integer, parameter :: nr = kind(1.0) ! native real
7 integer, parameter :: i8 = selected_int_kind(13) ! 8 byte integer
8 integer, parameter :: i4 = selected_int_kind( 6) ! 4 byte integer
9 integer, parameter :: ni = kind(1) ! native integer
11 save
13 end module kind_mod