7 October   2025   1:15:10.601 PM      
 
owen_test():
  Fortran77 version
  Test owen().
 
TEST01:
  T computes the Owen T function.
  Compare with tabulated values.
 
          H               A           T                         T                       DIFF
                                     (Tabulated)               (TFN)
 
        0.062500        0.250000    0.3891193023470137E-01    0.3891193023470137E-01   0.000    
        6.500000        0.437500    0.2000577304850831E-10    0.2000577304850831E-10  0.3231E-26
        7.000000        0.968750    0.6399062719389869E-12    0.6399062719389871E-12  0.2019E-27
        4.781250        0.062500    0.1063297480468746E-06    0.1063297480468747E-06  0.2647E-22
        2.000000        0.500000    0.8625077985521507E-02    0.8625077985521508E-02  0.1735E-17
        1.000000        0.999997    0.6674180897822860E-01    0.6674180897822860E-01   0.000    
        1.000000        0.500000    0.4306469112078537E-01    0.4306469112078536E-01  0.1388E-16
        1.000000        1.000000    0.6674188216570097E-01    0.6674188216570097E-01   0.000    
        1.000000        2.000000    0.7846818699308410E-01    0.7846818699308411E-01  0.1388E-16
        1.000000        3.000000    0.7929950474887260E-01    0.7929950474887260E-01   0.000    
        0.500000        0.500000    0.6448860284750375E-01    0.6448860284750375E-01   0.000    
        0.500000        1.000000    0.1066710629614485        0.1066710629614485      0.1388E-16
        0.500000        2.000000    0.1415806036539784        0.1415806036539784       0.000    
        0.500000        3.000000    0.1510840430760184        0.1510840430760184      0.2776E-16
        0.250000        0.500000    0.7134663382271778E-01    0.7134663382271779E-01  0.1388E-16
        0.250000        1.000000    0.1201285306350883        0.1201285306350883       0.000    
        0.250000        2.000000    0.1666128410939293        0.1666128410939293      0.2776E-16
        0.250000        3.000000    0.1847501847929859        0.1847501847929859      0.2776E-16
        0.125000        0.500000    0.7317273327500386E-01    0.7317273327500384E-01  0.1388E-16
        0.125000        1.000000    0.1237630544953746        0.1237630544953746      0.2776E-16
        0.125000        2.000000    0.1737438887583106        0.1737438887583106       0.000    
        0.125000        3.000000    0.1951190307092811        0.1951190307092811      0.2776E-16
        0.007812        0.500000    0.7378938035365545E-01    0.7378938035365545E-01   0.000    
        0.007812        1.000000    0.1249951430754052        0.1249951430754052       0.000    
        0.007812        2.000000    0.1761984774738108        0.1761984774738108      0.5551E-16
        0.007812        3.000000    0.1987772386442824        0.1987772386442823      0.5551E-16
        0.007812       10.000000    0.2340886964802671        0.2340886964802671      0.2776E-16
        0.007812      100.000000    0.2479460829231492        0.2479460829231492       0.000    
 
TEST02:
  BIVNOR computes the bivariate normal probability.
  Compare with tabulated values.
 
          X               Y               R           P                         P                       DIFF
                                                     (Tabulated)               (BIVNOR)
 
 BIVNOR R IS    0.5000000000000000D+00