QUAD2D_OPEN_MP: FORTRAN90/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.52578355314680891E-005 Time = 132.37251806259155 QUAD2D_OPEN_MP: FORTRAN90/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.52578333802999566E-005 Time = 66.171387910842896 QUAD2D_OPEN_MP: FORTRAN90/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.52578332577313347E-005 Time = 66.252608060836792