TOMS353 is a FORTRAN77 library which implements ACM TOMS algorithm 353, which estimates integrals of F(X)*COS(M*PI*X) or F(X)*SIN(M*PI*X) from 0 to 1, using Filon quadrature.
The text of many ACM TOMS algorithms is available online through ACM: http://www.acm.org/pubs/calgo or NETLIB: http://www.netlib.org/toms/index.html.
INTLIB, a FORTRAN90 library which contains routines which estimate the integral of a function.
QUADPACK, a FORTRAN90 library which includes many routines for estimating the integral of a function, including weight functions, singularities, and infinite intervals.
QUADRULE, a FORTRAN90 library which defines many simple quadrature schemes.
STROUD, a FORTRAN90 library which defines quadrature schemes for a number of geometrically interesting regions.
TEST_INT, a FORTRAN90 library which contains routines which define integrands suitable for testing integration software.
TOMS418, a FORTRAN77 library which uses Filon quadrature for integrands with a SIN or COS factor.
TOMS468, a FORTRAN77 library which carries out the automatic integration of a function.
You can go up one level to the FORTRAN77 source codes.