numbers.inc

c
c     Declare and define variables used in the place of numbers.
c
c ... Numbers 0-9.
      real zero, one, two, three, four, five, six, seven, eight, nine
      parameter (zero=0.0d0, one=1.0d0, two=2.0d0, three=3.0d0,
     &           four=4.0d0, five=5.0d0, six=6.0d0, seven=7.0d0,
     &           eight=8.0d0, nine=9.0d0)
c
c ... Numbers 10-19.
      real ten, eleven, twelve, thirteen, fourteen, fifteen,
     &     sixteen, seventeen, eighteen, nineteen
      parameter (ten=10.d0, eleven=11.d0, twelve=12.d0, thirteen=13.d0,
     &           fourteen=14.d0, fifteen=15.d0, sixteen=16.d0, 
     &           seventeen=17.d0, eighteen=18.d0, nineteen=19.d0)
c
c ... Numbers 20-90 by ten.
      real twenty, thirty, forty, fifty, sixty, seventy, eighty, ninety
      parameter (twenty=20.0d0, thirty=30.0d0, forty=40.0d0,
     &           fifty=50.0d0, sixty=60.0d0, seventy=70.0d0,
     &           eighty=80.0d0, ninety=90.0d0)
c
c ... Fractions.
      real half, third, fourth, fifth, sixth, seventh, eighth, ninth
      parameter (half=one/two, third=one/three, fourth=one/four,
     &           fifth=one/five, sixth=one/six, seventh=one/seven,
     &           eighth=one/eight, ninth=one/nine)
c
c ... Forms of pi.
      real pi, pisqr, sqrtpi, invpi, twopi, threepi, fourpi
      parameter (pi=3.141592653589793238462643383279d0,
     &           pisqr=pi*pi, sqrtpi=1.77245385091d0, invpi=one/pi,
     &           twopi=two*pi, threepi=three*pi, fourpi=four*pi)
c
c ... Decimal multipliers.
      real deca, hecto, kilo, mega, giga, tera,
     &     pecta, exa, zetta, yotta
      real deci, centi, milli, micro, nano, pico,
     &     femto, atto, zepto, yocto
      parameter (deca=1.0d1, hecto=1.0d2, kilo=1.0d3, mega=1.0d6,
     &           giga=1.0d9, tera=1.0d12, pecta=1.0d15, exa=1.0d18,
     &           zetta=1.0d21, yotta=1.0d24, deci=1.0d-1, centi=1.0d-2,
     &           milli=1.0d-3, micro=1.0d-6, nano=1.0d-9, pico=1.0d-12,
     &           femto=1.0d-15, atto=1.0d-18, zepto=1.0d-21,
     &           yocto=1.0d-24)
c
c ... Synonyms for decimal multipliers.
      real hundred, oneh, thou, thousand, onek, tenth, mev
      parameter (hundred=hecto, oneh=hecto, thou=kilo, thousand=kilo,
     &           onek=kilo, tenth=deci, mev=mega)
c
c ... Common convergence criteria.
      real eps1, eps2, eps3, eps4, eps5, eps6, eps7, eps8, eps9,
     &     eps10, eps11, eps12, eps13, eps14, eps15
      parameter (eps1=1.0d-1, eps2=1.0d-2, eps3=1.0d-3, eps4=1.0d-4,
     &           eps5=1.0d-5, eps6=1.0d-6, eps7=1.0d-7, eps8=1.0d-8,
     &           eps9=1.0d-9, eps10=1.0d-10, eps11=1.0d-11,
     &           eps12=1.0d-12, eps13=1.0d-13, eps14=1.0d-14,
     &           eps15=1.0d-15)