      Module numerics
! ---------------------------------------------------------------------
      Integer, Parameter  ::  sp = kind(1.0  )     
      Integer, Parameter  ::  dp = kind(1.0D0)
!
      Integer, Parameter  ::  rp = dp
! ---------------------------------------------------------------------
      End Module numerics
