*     -*-fortran-*-
*
*     Constants
*
      double precision pi,emc,zeta2,zeta3,zeta4
*
      parameter(pi    = 3.1415926535897932385d0)
      parameter(emc   = 0.5772156649d0)
      parameter(zeta2 = 1.644934067d0)
      parameter(zeta3 = 1.2020569031d0)
      parameter(zeta4 = 1.0823232337d0)