1 March 2024  10:46:53.282 AM
  
 quad():
   Fortran90 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.18464599999999998     
  
 quad():
   Normal end of execution.
  
 1 March 2024  10:46:53.467 AM