QUAD_OPEN_MP: FORTRAN77/OpenMP version Estimate the integral of f(x) from A to B. f(x) = 50 / (pi * ( 2500 * x * x + 1 ) ). A = 0.000000000000000E+000 B = 10.0000000000000 N = 10000000 Exact = 0.499363381076457 Estimate = 0.499371288919096 Error = 7.907842639542917E-006 Time = 0.111901044845581 QUAD_OPEN_MP: FORTRAN77/OpenMP version Estimate the integral of f(x) from A to B. f(x) = 50 / (pi * ( 2500 * x * x + 1 ) ). A = 0.000000000000000E+000 B = 10.0000000000000 N = 10000000 Exact = 0.499363381076457 Estimate = 0.499371288919098 Error = 7.907842641374785E-006 Time = 4.495811462402344E-002 QUAD_OPEN_MP: FORTRAN77/OpenMP version Estimate the integral of f(x) from A to B. f(x) = 50 / (pi * ( 2500 * x * x + 1 ) ). A = 0.000000000000000E+000 B = 10.0000000000000 N = 10000000 Exact = 0.499363381076457 Estimate = 0.499371288919090 Error = 7.907842633381179E-006 Time = 3.603506088256836E-002 QUAD_OPEN_MP: FORTRAN77/OpenMP version Estimate the integral of f(x) from A to B. f(x) = 50 / (pi * ( 2500 * x * x + 1 ) ). A = 0.000000000000000E+000 B = 10.0000000000000 N = 10000000 Exact = 0.499363381076457 Estimate = 0.499371288919094 Error = 7.907842637100426E-006 Time = 0.156208992004395