20231115  102357.111
 
toms427_test():
  FORTRAN77 version
  Test toms427().
 
 
TEST01:
  f(x) = 1/(X*X+1),
  Look at effect of upper limit T.
 
       W                T             VALUE           EXACT
 
     1.00000         5.00000        0.571638        0.577864    
     1.00000         20.0000        0.577773        0.577864    
     1.00000         80.0000        0.577895        0.577864    
 
TEST02:
  f(x) = exp(-x),
  Look at effect of upper limit T.
 
       W                T             VALUE           EXACT
 
     1.00000         5.00000        0.499066        0.500000    
     1.00000         20.0000        0.500000        0.500000    
     1.00000         80.0000        0.500000        0.500000    
 
toms427_test():
  Normal end of execution.
 
20231115  102357.112