16 August 2022   2:35:29.070 PM
 
asa091_test():
  FORTRAN90 version
  Test asa091().
 
test01():
  ppchi2() inverts the Chi-Squared CDF.
 
  P =                    0.1752300000000000E-01
  V =                     4.000000000000000    
  G Log(Gamma(V/2)) =     0.000000000000000    
  VALUE =                0.3999988240893519    
  VALUE (correct) =      0.4000000000000000    
 
  Error flag IFAULT =        0
 
test02():
  Compare tabulated values of the Chi-Squared 
  Cumulative Density Function against values
  computed by ppchi2().
 
         N        CDF       X                         X2                    DIFF
                           (tabulated)               (PPCHI2)
 
         1      0.0797    0.1000000000000000E-01    0.1000000000000066E-01  0.6627E-15
         2      0.0050    0.1000000000000000E-01    0.1000000000000101E-01  0.1006E-14
         1      0.1125    0.2000000000000000E-01    0.2000000000000264E-01  0.2637E-14
         2      0.0100    0.2000000000000000E-01    0.2000000000000399E-01  0.3993E-14
         1      0.4729    0.4000000000000000        0.3999999999997083      0.2917E-12
         2      0.1813    0.4000000000000000        0.4000000000015109      0.1511E-11
         3      0.0598    0.4000000000000000        0.4000000000853208      0.8532E-10
         4      0.0175    0.4000000000000000        0.4000000003800369      0.3800E-09
         1      0.6827     1.000000000000000        0.9999999999998920      0.1080E-12
         2      0.3935     1.000000000000000        0.9999999999992277      0.7723E-12
         3      0.1987     1.000000000000000        0.9999999999994041      0.5959E-12
         4      0.0902     1.000000000000000         1.000000000000471      0.4712E-12
         5      0.0374     1.000000000000000         1.000000000003392      0.3392E-11
         3      0.4276     2.000000000000000         1.999999999998896      0.1104E-11
         3      0.6084     3.000000000000000         2.999999999999514      0.4858E-12
         3      0.7385     4.000000000000000         4.000000000000509      0.5089E-12
         3      0.8282     5.000000000000000         5.000000000001442      0.1442E-11
         3      0.8884     6.000000000000000         6.000000000002119      0.2119E-11
        10      0.0002     1.000000000000000         1.000020462362520      0.2046E-04
        10      0.0037     2.000000000000000         2.000000010187766      0.1019E-07
        10      0.0186     3.000000000000000         3.000000000006480      0.6480E-11
 
asa091_test():
  Normal end of execution.
 
16 August 2022   2:35:29.070 PM