6 November  2023   9:21:34.395 AM      
  
 quad():
   FORTRAN77 version
   Estimate the integral of f(x) from A to B.
   f(x) = 50 / (pi * ( 2500 * x * x + 1 ) ).
  
   A        =    0.0000000000000000     
   B        =    10.000000000000000     
   N        =     10000000
   Exact    =   0.49936338107645672     
  
   Estimate =   0.49937128891912641     
   Error    =    7.9078426696854720E-006
   Time     =   0.17711799999999997     
  
 quad():
   Normal end of execution.
  
 6 November  2023   9:21:34.572 AM