MODULE math_const
  USE PREC
  
  REAL(rstd), PARAMETER :: Pi=acos(-1._rstd), radian_to_degree=180._rstd/Pi
  COMPLEX(cstd), PARAMETER :: Imag=(0,1)
  
END MODULE math_const