NINTLIB is a FORTRAN77 library which estimates integrals over multi-dimensional regions.
Please note that these routines are simple and academic. A good program for computing an integral in multiple dimensions must include error estimation and adaptivity. Simple straightforward approaches to reducing the error will cause a ruinous explosion in the number of function evaluations required.
INTEGRAL_TEST is a FORTRAN90 program which tests the suitability of a set of N points for use in an equal-weight quadrature rule over the M-dimensional unit hypercube.
INTLIB is a FORTRAN90 library of routines for estimating the integral of a function over a one-dimensional interval.
NINTLIB is available in a C++ version and a FORTRAN77 version and a FORTRAN90 version and a MATLAB version.
QUADRULE is a FORTRAN90 library of routines which define a variety of (mostly 1-dimensional) quadrature rules.
STROUD is a FORTRAN90 library of routines which define a variety of quadrature rules over various "interesting" geometric shapes.
TEST_NINT is a FORTRAN90 library of routines that can be used to test N-dimensional quadrature routines.
You can go up one level to the FORTRAN77 source codes.