TOMS418 is a FORTRAN77 library which estimates Fourier integrals of the form integral ( a<=x<=b ) f(x) * cos(wx) dx, or integral ( a<=x<=b ) f(x) * sin(wx) dx, by Bo Einarsson. This is a version of ACM TOMS algorithm 418.
While 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, most of the early algorithms are not available. This is one of them. I typed it in.
TOMS418 is available in a FORTRAN77 version.
INTLIB, a FORTRAN90 library which includes routines to do Filon quadrature.
TOMS353, a FORTRAN77 library which estimates an integral of the form integral ( a <= x <= b ) f(x) cos(w*x) dx or integral ( a <= x <= b ) f(x) sin(w*x) dx using Filon quadrature, by Chase and Fosdick. This is a version of ACM TOMS algorithm 353.
Bo Einarsson
You can go up one level to the FORTRAN77 source codes.