source/unres/math2.F90

   1       module math2
   2       implicit none
   3
   4       real*8 pi,elog
   5       real*8 radian,logten
   6       real*8 twosix,sqrtpi
   7       real*8 sqrttwo,sqrtthree
   8       parameter (pi=3.141592653589793238d0)
   9       parameter (elog=2.718281828459045235d0)
  10       parameter (radian=57.29577951308232088d0)
  11       parameter (logten=2.302585092994045684d0)
  12       parameter (twosix=1.122462048309372981d0)
  13       parameter (sqrtpi=1.772453850905516027d0)
  14       parameter (sqrttwo=1.414213562373095049d0)
  15       parameter (sqrtthree=1.732050807568877294d0)
  16       save
  17       end