NINTLIB is a library of FORTRAN77 routines, using double precision arithmetic, for estimating integrals over N 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 executable 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 also available in a C++ 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.