MODULE MathConstants

   SAVE
   REAL    (KIND=8), PARAMETER :: pi = 3.1415926535897932D0, RadDeg = 180.0D0 / pi, DegRad = pi / 180.0D0
   COMPLEX (KIND=8), PARAMETER :: i  = ( 0.0D0, 1.0D0 )

END MODULE MathConstants
