3 September 2021   8:11:39.910 AM
 
beta_nc_test():
  FORTRAN90 version
  Test beta_nc().
 
test01():
  Compare tabulated values of the noncentral
  incomplete Beta Function against values
  computed by beta_noncentral_cdf().
 
      A        B     LAMBDA        X        CDF                         CDF                    DIFF
                                           (tabulated)       (BETA_NC)
 
      5.0      5.0     54.0      0.8640    0.4563021000000000        0.4563026193146386      0.5193E-06
      5.0      5.0    140.0      0.9000    0.1041337000000000        0.1041334930046336      0.2070E-06
      5.0      5.0    170.0      0.9560    0.6022353000000000        0.6022421649745753      0.6865E-05
     10.0     10.0     54.0      0.8686    0.9187770000000000        0.9187791109067509      0.2111E-05
     10.0     10.0    140.0      0.9000    0.6008106000000000        0.6008071069996984      0.3493E-05
     10.0     10.0    250.0      0.9000    0.9028500000000000E-01    0.9028991611607129E-01  0.4916E-05
     20.0     20.0     54.0      0.8787    0.9998655000000000        0.9998676573232279      0.2157E-05
     20.0     20.0    140.0      0.9000    0.9925997000000000        0.9925975046122494      0.2195E-05
     20.0     20.0    250.0      0.9220    0.9641111999999999        0.9641190728772143      0.7873E-05
     10.0     20.0    150.0      0.8680    0.9376626573000000        0.9376634901743937      0.8329E-06
     10.0     10.0    120.0      0.9000    0.7306817858000000        0.7306823706231522      0.5848E-06
     15.0      5.0     80.0      0.8800    0.1604256918000000        0.1604257281973967      0.3640E-07
     20.0     10.0    110.0      0.8500    0.1867485313000000        0.1867485473756134      0.1608E-07
     20.0     30.0     65.0      0.6600    0.6559386874000001        0.6559388006254526      0.1132E-06
     20.0     50.0    130.0      0.7200    0.9796881486000000        0.9796891185321600      0.9699E-06
     30.0     20.0     80.0      0.7200    0.1162386423000000        0.1162386454695966      0.3170E-08
     30.0     40.0    130.0      0.8000    0.9930430054000000        0.9930444988012715      0.1493E-05
     10.0      5.0     20.0      0.6440    0.5068992730000000E-01    0.5068992794944726E-01  0.6494E-09
     10.0     10.0     54.0      0.7000    0.1030959706000000        0.1030959736860629      0.3086E-08
     10.0     30.0     80.0      0.7800    0.9978417832000001        0.9978446847800360      0.2902E-05
     15.0     20.0    120.0      0.7600    0.2555552369000000        0.2555552463009128      0.9401E-08
     10.0      5.0     55.0      0.7950    0.6683070640000000E-01    0.6683070801408221E-01  0.1614E-08
     12.0     17.0     64.0      0.5600    0.1136010670000000E-01    0.1136010670017738E-01  0.1774E-12
     30.0     30.0    140.0      0.8000    0.7813366615000000        0.7813370605238029      0.3990E-06
     35.0     30.0     20.0      0.6700    0.8867126477000000        0.8867126477327645      0.3276E-10
 
beta_nc_test():
  Normal end of execution.
 
 3 September 2021   8:11:39.911 AM