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.0000000000000000 NX = 32768 NY = 32768 N = 1073741824 Exact = 1.6449340668482264 Estimate = 1.6449188090126949 Error = 1.52578355314680891E-005 Time = 132.09487485885620 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.0000000000000000 NX = 32768 NY = 32768 N = 1073741824 Exact = 1.6449340668482264 Estimate = 1.6449188090148461 Error = 1.52578333802999566E-005 Time = 67.218221902847290 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.0000000000000000 NX = 32768 NY = 32768 N = 1073741824 Exact = 1.6449340668482264 Estimate = 1.6449188090149689 Error = 1.52578332575092901E-005 Time = 68.378610134124756