QUAD2D_OPEN_MP: 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.00000000000000000 NX = 32768 NY = 32768 N = 1073741824 Exact = 1.6449340668482264 Estimate = 1.6449188090126949 Error = 1.52578355314680891E-005 Time = 31.821363169699907 QUAD2D_OPEN_MP: 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.00000000000000000 NX = 32768 NY = 32768 N = 1073741824 Exact = 1.6449340668482264 Estimate = 1.6449188090148461 Error = 1.52578333802999566E-005 Time = 16.355220484547317 QUAD2D_OPEN_MP: 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.00000000000000000 NX = 32768 NY = 32768 N = 1073741824 Exact = 1.6449340668482264 Estimate = 1.6449188090149689 Error = 1.52578332575092901E-005 Time = 8.2368710646405816 QUAD2D_OPEN_MP: 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.00000000000000000 NX = 32768 NY = 32768 N = 1073741824 Exact = 1.6449340668482264 Estimate = 1.6449188090142428 Error = 1.52578339835951482E-005 Time = 4.2621283167973161