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