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