quad_openmp():
  Fortran90 version
  Use OpenMP for parallel execution.
  Estimate the integral of f(x) from A to B.
  f(x) = 50 / ( pi * ( 2500 * x * x + 1 ) ).
 
  A        =    0.00000    
  B        =    10.0000    
  N        = 10000000
  Exact    =   0.499363    
 
  Estimate =   0.499371    
  Error    =   0.790784E-05
  Time     =   0.848353E-01
 
quad_openmp():
  Normal end of execution.
 
 6 October 2025   6:33:23.603 PM
 
quad_openmp():
  Fortran90 version
  Use OpenMP for parallel execution.
  Estimate the integral of f(x) from A to B.
  f(x) = 50 / ( pi * ( 2500 * x * x + 1 ) ).
 
  A        =    0.00000    
  B        =    10.0000    
  N        = 10000000
  Exact    =   0.499363    
 
  Estimate =   0.499371    
  Error    =   0.790784E-05
  Time     =   0.438279E-01
 
quad_openmp():
  Normal end of execution.
 
 6 October 2025   6:33:23.648 PM
 
quad_openmp():
  Fortran90 version
  Use OpenMP for parallel execution.
  Estimate the integral of f(x) from A to B.
  f(x) = 50 / ( pi * ( 2500 * x * x + 1 ) ).
 
  A        =    0.00000    
  B        =    10.0000    
  N        = 10000000
  Exact    =   0.499363    
 
  Estimate =   0.499371    
  Error    =   0.790784E-05
  Time     =   0.220195E-01
 
quad_openmp():
  Normal end of execution.
 
 6 October 2025   6:33:23.671 PM
 
quad_openmp():
  Fortran90 version
  Use OpenMP for parallel execution.
  Estimate the integral of f(x) from A to B.
  f(x) = 50 / ( pi * ( 2500 * x * x + 1 ) ).
 
  A        =    0.00000    
  B        =    10.0000    
  N        = 10000000
  Exact    =   0.499363    
 
  Estimate =   0.499371    
  Error    =   0.790784E-05
  Time     =   0.184963E-01
 
quad_openmp():
  Normal end of execution.
 
 6 October 2025   6:33:23.690 PM
 
quad_openmp():
  Fortran90 version
  Use OpenMP for parallel execution.
  Estimate the integral of f(x) from A to B.
  f(x) = 50 / ( pi * ( 2500 * x * x + 1 ) ).
 
  A        =    0.00000    
  B        =    10.0000    
  N        = 10000000
  Exact    =   0.499363    
 
  Estimate =   0.499371    
  Error    =   0.790784E-05
  Time     =   0.196580E-01
 
quad_openmp():
  Normal end of execution.
 
 6 October 2025   6:33:23.711 PM