forrest@0:   module kind_mod
forrest@0: 
forrest@0:     implicit none
forrest@0:     integer, parameter :: r8 = selected_real_kind(12) ! 8 byte real
forrest@0:     integer, parameter :: r4 = selected_real_kind( 6) ! 4 byte real
forrest@0:     integer, parameter :: nr = kind(1.0)              ! native real
forrest@0:     integer, parameter :: i8 = selected_int_kind(13)  ! 8 byte integer
forrest@0:     integer, parameter :: i4 = selected_int_kind( 6)  ! 4 byte integer
forrest@0:     integer, parameter :: ni = kind(1)                ! native integer
forrest@0: 
forrest@0:     save
forrest@0: 
forrest@0:   end module kind_mod