double precision PI,TWOPI,PIBY2,DEGRAD,RADDEG,CLIGHT,BIG,EMASS double precision EMMU,PMASS,AVO,NMASS parameter (PI = 3.14159265358979324D0) parameter (TWOPI = 6.28318530717958648D0) parameter (PIBY2 = 1.57079632679489662D0) parameter (DEGRAD = 0.0174532925199432958D0) parameter (RADDEG = 57.2957795130823209D0) parameter (CLIGHT = 29979245800.D0) parameter (BIG = 10000000000.D0) parameter (EMASS = 0.0005109990615D0) parameter (EMMU = 0.105658387D0) parameter (PMASS = 0.9382723128D0) parameter (AVO = 0.60221367D0) parameter (NMASS = 0.939566D0) *