12 August 2022 08:53:17 PM

asa032_test():
  C version 
  Test asa032().

test01():
  gamain() computes the incomplete Gamma function.
  Compare the result to tabulated values.

          A               X           FX                        FX2
                                      (Tabulated)               (GAMAIN)                DIFF

           0.1          0.03        0.7382350532339351        0.7382350532333595  5.7565e-13
           0.1           0.3        0.9083579897300343        0.9083579897007397  2.9295e-11
           0.1           1.5        0.9886559833621947         0.988655983171443  1.9075e-10
           0.5         0.075        0.3014646416966613        0.3014646416722522  2.4409e-11
           0.5          0.75        0.7793286380801532        0.7793286379458757  1.3428e-10
           0.5           3.5        0.9918490284064972        0.9918490283060973  1.0040e-10
             1           0.1       0.09516258196404043       0.09516258196381351  2.2692e-13
             1             1        0.6321205588285577          0.63212055876496  6.3598e-11
             1             5        0.9932620530009145        0.9932620530009145  0.0000e+00
           1.1           0.1       0.07205974576054322       0.07205974576039778  1.4544e-13
           1.1             1        0.5891809618706485        0.5891809618216701  4.8978e-11
           1.1             5        0.9915368159845525        0.9915368160246196  4.0067e-11
             2          0.15       0.01018582711118352       0.01018582711109095  9.2567e-14
             2           1.5        0.4421745996289254        0.4421745995465282  8.2397e-11
             2             7        0.9927049442755639        0.9927049442755639  0.0000e+00
             6           2.5       0.04202103819530612       0.04202103816727695  2.8029e-11
             6            12        0.9796589705830716        0.9796589705830716  0.0000e+00
            11            16        0.9226039842296428        0.9226039842917666  6.2124e-11
            26            25        0.4470785799755852        0.4470785796337599  3.4183e-10
            41            45        0.7444549220718699        0.7444549202611099  1.8108e-09

asa032_test():
  Normal end of execution.

12 August 2022 08:53:17 PM