28 November 2022   2:19:09.104 PM
 
asa239_test():
  FORTRAN90 version
  Test asa239().
 
test01():
  gammad() computes the incomplete Gamma 
  function.  Compare to tabulated values.
 
      A             X             FX                        FX                      DIFF
                                (tabulated)                (GAMMAD)
 
    0.10000000    0.03000000    0.7382350532339351        0.7382350532306056      0.3330E-11
    0.10000000    0.30000000    0.9083579897300343        0.9083579897259375      0.4097E-11
    0.10000000    1.50000000    0.9886559833621947        0.9886559833622455      0.5074E-13
    0.50000000    0.07500000    0.3014646416966613        0.3014646417030197      0.6358E-11
    0.50000000    0.75000000    0.7793286380801532        0.7793286380965901      0.1644E-10
    0.50000000    3.50000000    0.9918490284064972        0.9918490284039905      0.2507E-11
    1.00000000    0.10000000    0.9516258196404043E-01    0.9516258196404044E-01  0.1388E-16
    1.00000000    1.00000000    0.6321205588285577        0.6321205588285577       0.000    
    1.00000000    5.00000000    0.9932620530009145        0.9932620530009145       0.000    
    1.10000000    0.10000000    0.7205974576054322E-01    0.7205974576011362E-01  0.4296E-12
    1.10000000    1.00000000    0.5891809618706485        0.5891809618671360      0.3513E-11
    1.10000000    5.00000000    0.9915368159845525        0.9915368159845908      0.3830E-13
    2.00000000    0.15000000    0.1018582711118352E-01    0.1018582711004402E-01  0.1139E-11
    2.00000000    1.50000000    0.4421745996289254        0.4421745995794589      0.4947E-10
    2.00000000    7.00000000    0.9927049442755639        0.9927049442755639       0.000    
    6.00000000    2.50000000    0.4202103819530612E-01    0.4202103800549275E-01  0.1898E-09
    6.00000000   12.00000000    0.9796589705830716        0.9796589704929319      0.9014E-10
   11.00000000   16.00000000    0.9226039842296428        0.9226039843451429      0.1155E-09
   26.00000000   25.00000000    0.4470785799755852        0.4470785799755802      0.4996E-14
   41.00000000   45.00000000    0.7444549220718699        0.7444549220718739      0.3997E-14
 
asa239_test():
  Normal end of execution.
 
28 November 2022   2:19:09.104 PM