22 January 2008   6:23:43.895 PM
 
ASA147_PRB:
  FORTRAN90 version
 
  Test routines in the ASA147 library.
 
TEST01:
  GAMMDS computes the incomplete Gamma 
  function.  Compare to tabulated values.
 
      A             X              FX                        FX                    DIFF
                                 (tabulated)                (GAMMDS)
 
    0.10000000    0.03000000    0.7382350532339351        0.7382350532300299      0.3905E-11
    0.10000000    0.30000000    0.9083579897300343        0.9083579896966427      0.3339E-10
    0.10000000    1.50000000    0.9886559833621947        0.9886559832925629      0.6963E-10
    0.50000000    0.07500000    0.3014646416966613        0.3014646417027759      0.6115E-11
    0.50000000    0.75000000    0.7793286380801532        0.7793286380885710      0.8418E-11
    0.50000000    3.50000000    0.9918490284064972        0.9918490283527434      0.5375E-10
    1.00000000    0.10000000    0.9516258196404043E-01    0.9516258196381351E-01  0.2269E-12
    1.00000000    1.00000000    0.6321205588285577        0.6321205588240379      0.4520E-11
    1.00000000    5.00000000    0.9932620530009145        0.9932620528409565      0.1600E-09
    1.10000000    0.10000000    0.7205974576054322E-01    0.7205974575996819E-01  0.5750E-12
    1.10000000    1.00000000    0.5891809618706485        0.5891809618636796      0.6969E-11
    1.10000000    5.00000000    0.9915368159845525        0.9915368158428793      0.1417E-09
    2.00000000    0.15000000    0.1018582711118352E-01    0.1018582710995145E-01  0.1232E-11
    2.00000000    1.50000000    0.4421745996289254        0.4421745995717801      0.5715E-10
    2.00000000    7.00000000    0.9927049442755639        0.9927049440646787      0.2109E-09
    6.00000000    2.50000000    0.4202103819530612E-01    0.4202103800201231E-01  0.1933E-09
    6.00000000   12.00000000    0.9796589705830716        0.9796589660019807      0.4581E-08
   11.00000000   16.00000000    0.9226039842296428        0.9226039839748141      0.2548E-09
   26.00000000   25.00000000    0.4470785799755852        0.4470785798412643      0.1343E-09
   41.00000000   45.00000000    0.7444549220718699        0.7444549215211343      0.5507E-09
 
ASA147_PRB:
  Normal end of execution.
 
22 January 2008   6:23:43.900 PM