module m_kinds
      public
!
! The following parameters specify the number of bytes per real value, with
! differentiation of 3 types provided: 
!   rkind2 refers to all NR fields, three different types possible. intended 
! to be real 4 to reduce memory requirements for these big arrays.
!   rkind3 refers to some information passed to the main program that are 
! assumed to be real*8 by some other subroutines or modules
!   rkind1 refers to all other real variables: these may be real *8 or 4, 
! but only rkind1=4 has been tested.
!   
      integer, parameter :: rkind1=4  
      integer, parameter :: rkind2=4  
      integer, parameter :: rkind3=8
      real(rkind1), parameter  :: zero_k1= 0._rkind1
      real(rkind1), parameter  :: one_k1 = 1._rkind1
      real(rkind1), parameter  :: two_k1 = 2._rkind1
      real(rkind1), parameter  :: three_k1 = 3._rkind1
      real(rkind1), parameter  :: ten_k1 =10._rkind1
      real(rkind2), parameter  :: zero_k2= 0._rkind2
      real(rkind2), parameter  :: one_k2 = 1._rkind2
      real(rkind2), parameter  :: two_k2 = 2._rkind2
      real(rkind2), parameter  :: ten_k2 =10._rkind2
      real(rkind3), parameter  :: zero_k3= 0._rkind3
      real(rkind3), parameter  :: one_k3 = 1._rkind3
      real(rkind3), parameter  :: two_k3 = 2._rkind3
      real(rkind3), parameter  :: ten_k3 =10._rkind3
      end module m_kinds