module math2
      implicit none
      
      real*8 pi,elog
      real*8 radian,logten
      real*8 twosix,sqrtpi
      real*8 sqrttwo,sqrtthree
      parameter (pi=3.141592653589793238d0)
      parameter (elog=2.718281828459045235d0)
      parameter (radian=57.29577951308232088d0)
      parameter (logten=2.302585092994045684d0)
      parameter (twosix=1.122462048309372981d0)
      parameter (sqrtpi=1.772453850905516027d0)
      parameter (sqrttwo=1.414213562373095049d0)
      parameter (sqrtthree=1.732050807568877294d0)
      save
      end