
module mtrunc_constant

  real(8), parameter :: D2R = 0.0174532925199432957D0
  real(8), parameter :: Pi  = 3.1415926535897932385D0

end module mtrunc_constant
