QUAD2D_OPENMP: Fortran77/OpenMP version Estimate the integral of f(x,y) over [0,1]x[0,1]. f(x,y) = 1 / ( 1 - x * y ). A = 0.0000000000000000 B = 1.0000000000000000 NX = 32768 NY = 32768 N = 1073741824 Exact = 1.6449340668482264 Estimate = 1.6449188090126949 Error = 1.5257835531468089E-005 Time = 8.1134188360301778 QUAD2D_OPENMP: Normal end of execution. QUAD2D_OPENMP: Fortran77/OpenMP version Estimate the integral of f(x,y) over [0,1]x[0,1]. f(x,y) = 1 / ( 1 - x * y ). A = 0.0000000000000000 B = 1.0000000000000000 NX = 32768 NY = 32768 N = 1073741824 Exact = 1.6449340668482264 Estimate = 1.6449188090148461 Error = 1.5257833380299957E-005 Time = 4.0888733069878072 QUAD2D_OPENMP: Normal end of execution. QUAD2D_OPENMP: Fortran77/OpenMP version Estimate the integral of f(x,y) over [0,1]x[0,1]. f(x,y) = 1 / ( 1 - x * y ). A = 0.0000000000000000 B = 1.0000000000000000 NX = 32768 NY = 32768 N = 1073741824 Exact = 1.6449340668482264 Estimate = 1.6449188090149687 Error = 1.5257833257731335E-005 Time = 2.0347246140008792 QUAD2D_OPENMP: Normal end of execution.