!  CONSTANT PARAMETERS
      real(8), parameter :: ZERO   =  0.0D+00
      real(8), parameter :: HALF   =  0.5D+00
      real(8), parameter :: ONE    =  1.0D+00
      real(8), parameter :: TWO    =  2.0D+00
!  PREFIX M_ MEANS MINUS VALUE
      real(8), parameter :: M_HALF = -0.5D+00
      real(8), parameter :: M_ONE  = -1.0D+00
      real(8), parameter :: M_TWO  = -2.0D+00

