15 August 2022   6:47:55.018 AM
 
asa152_test():
  FORTRAN90 version
  Test asa152().
 
test01():
  chyper() computes cumulative probabilities
  of the hypergeometric PDF.
  Compare with tabulated values.
 
   SAM   SUC   POP     X      CDF                       CDF                     DIFF
                             (tabulated)               (CHYPER)
 
    10    90   100     7    0.6001858177500578E-01    0.6001858177500596E-01  0.1804E-15
    10    90   100     8    0.2615284665839845        0.2615284665839848      0.2776E-15
    10    90   100     9    0.6695237889132748        0.6695237889132748       0.000    
    10    90   100    10     1.000000000000000         1.000000000000000       0.000    
     6    90   100     6     1.000000000000000         1.000000000000000       0.000    
     7    90   100     6    0.5332595856827856        0.5332595856827855      0.1110E-15
     8    90   100     6    0.1819495964117640        0.1819495964117638      0.2220E-15
     9    90   100     6    0.4448047017527730E-01    0.4448047017527679E-01  0.5135E-15
    10    10   100     6    0.9999991751316731        0.9999991751316730      0.1110E-15
    10    30   100     6    0.9926860896560750        0.9926860896560750       0.000    
    10    50   100     6    0.8410799901444538        0.8410799901444538       0.000    
    10    70   100     6    0.3459800113391901        0.3459800113391900      0.1110E-15
    10    90    90     0     0.000000000000000         0.000000000000000       0.000    
    10    90   200     0    0.2088888139634505E-02    0.2088888139634505E-02  0.4337E-18
    10    90  1000     0    0.3876752992448843        0.3876752992448756      0.8715E-14
    10    90  ****     0    0.9135215248834896        0.9135215248641991      0.1929E-10
 
test02():
  chyper() computes point probabilities
  of the hypergeometric PDF.
  Compare with tabulated values.
 
   SAM   SUC   POP     X      PDF                       PDF                    DIFF
                             (tabulated)                (CHYPER)
 
    10    90   100     7    0.5179370533242827E-01    0.5179370533242827E-01   0.000    
    10    90   100     8    0.2015098848089788        0.2015098848089787      0.1110E-15
    10    90   100     9    0.4079953223292903        0.4079953223292903       0.000    
    10    90   100    10    0.3304762110867252        0.3304762110867252       0.000    
     6    90   100     6    0.5223047493549779        0.5223047493549779       0.000    
     7    90   100     6    0.3889503452643453        0.3889503452643454      0.1110E-15
     8    90   100     6    0.1505614239732950        0.1505614239732950       0.000    
     9    90   100     6    0.3927689321042477E-01    0.3927689321042479E-01  0.2082E-16
    10    10   100     6    0.3099828465518108E-04    0.3099828465518108E-04   0.000    
    10    30   100     6    0.3145116093938197E-01    0.3145116093938197E-01   0.000    
    10    50   100     6    0.2114132170316862        0.2114132170316863      0.5551E-16
    10    70   100     6    0.2075776621999210        0.2075776621999210      0.2776E-16
    10    90    90     0     0.000000000000000         0.000000000000000       0.000    
    10    90   200     0    0.2088888139634505E-02    0.2088888139634505E-02  0.4337E-18
    10    90  1000     0    0.3876752992448843        0.3876752992448756      0.8715E-14
    10    90  ****     0    0.9135215248834896        0.9135215248641991      0.1929E-10
 
asa152_test():
  Normal end of execution.
 
15 August 2022   6:47:55.019 AM