18 October   2024   5:51:44.944 PM      
  
 quad_serial_test():
   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     =    7.9314999999999997E-002
  
 quad():
   Normal end of execution.
  
18 October   2024   5:51:45.024 PM