source/unres/Tinker-minimize/math.f

   1 c
   2 c
   3 c     ###################################################
   4 c     ##  COPYRIGHT (C)  1992  by  Jay William Ponder  ##
   5 c     ##              All Rights Reserved              ##
   6 c     ###################################################
   7 c
   8 c     ###############################################################
   9 c     ##                                                           ##
  10 c     ##  module math  --  mathematical and geometrical constants  ##
  11 c     ##                                                           ##
  12 c     ###############################################################
  13 c
  14 c
  15 c     pi         numerical value of the geometric constant
  16 c     elog       numerical value of the natural logarithm base
  17 c     radian     conversion factor from radians to degrees
  18 c     logten     numerical value of the natural log of ten
  19 c     twosix     numerical value of the sixth root of two
  20 c     sqrtpi     numerical value of the square root of Pi
  21 c     sqrttwo    numerical value of the square root of two
  22 c     sqrtthree  numerical value of the square root of three
  23 c
  24 c
  25       module math
  26       implicit none
  27       real*8 pi,elog
  28       real*8 radian,logten
  29       real*8 twosix,sqrtpi
  30       real*8 sqrttwo,sqrtthree
  31       parameter (pi=3.141592653589793238d0)
  32       parameter (elog=2.718281828459045235d0)
  33       parameter (radian=57.29577951308232088d0)
  34       parameter (logten=2.302585092994045684d0)
  35       parameter (twosix=1.122462048309372981d0)
  36       parameter (sqrtpi=1.772453850905516027d0)
  37       parameter (sqrttwo=1.414213562373095049d0)
  38       parameter (sqrtthree=1.732050807568877294d0)
  39       save
  40       end