      Module numerics
! ---------------------------------------------------------------------
      Integer, Parameter  ::  sp = kind(1.0  )
      Integer, Parameter  ::  dp = kind(1.0D0)
!
      Integer, Parameter  ::  rp = dp
!
      Integer             ::  sx,  sy,  sz
      Integer             ::  ex,  ey,  ez
      Integer             ::  ntx, nty, ntz
!
      Real(rp)            ::  hx,  hy,  hz
!
      Real(rp)            ::  one  = 1.0_rp
      Real(rp)            ::  zero = 0.0_rp
! ---------------------------------------------------------------------
      End Module numerics