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