TOMS418
Filon Quadrature

TOMS418 is a FORTRAN77 program, using single precision arithmetic, which implements ACM TOMS algorithm 418, for the approximate integration of functions of the form F(X)*COS(W*X) or F(X)*SIN(W*X).

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.

Usage:

call fspl2 ( f, a, b, fpa, fpb, fba, fbb, w, eps, max, lc, ls, c, s )

estimates the integral of F(X)*COS(W*X) and F(X)*SIN(W*X).

Author:

Bo Einarsson

Related Programs:

INTLIB includes routines to do Filon quadrature.

Reference:

1. Bo Einarsson,
   Algorithm 418: Calculation of Fourier Integrals,
   Communications of the ACM,
   Volume 15, Number 1, January 1972, pages 47-48.

Source Code:

• toms418.f, the source code.
• toms418.csh, commands to compile the source code.

Examples and Tests:

• toms418_prb.f, a sample calling program.
• toms418_prb.csh, commands to compile and run the sample program.
• toms418_prb.out, the output from a run of the sample program.

List of Routines:

• FSPL2 carries out the Filon quadrature.
• ENDT2 performs Richardson extrapolation.

You can go up one level to the FORTRAN77 source codes.