Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-02 - decus/20-0026/qa7.doc
There are 2 other files named qa7.doc in the archive. Click here to see a list.
SUBROUTINE QA7

PURPOSE
   TO COMPUTE INTEGRAL(EXP(-X)*FCT(X)/SQRT(X), SUMMED OVER X
		       FROM 0 TO INFINITY).

USAGE
   CALL QA7 (FCT,Y)
   PARAMETER FCT REQUIRES AN EXTERNAL STATEMENT

DESCRIPTION OF PARAMETERS
   FCT	  - THE NAME OF AN EXTERNAL FUNCTION SUBPROGRAM USED.
   Y	  - THE RESULTING INTEGRAL VALUE.

REMARKS
   NONE

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED
   THE EXTERNAL FUNCTION SUBPROGRAM FCT(X) MUST BE FURNISHED
   BY THE USER.

METHOD
   EVALUATION IS DONE BY MEANS OF 7-POINT GENERALIZED GAUSSIAN-
   LAGUERRE QUADRATURE FORMULA, WHICH INTEGRATES EXACTLY,
   WHENEVER FCT(X) IS A POLYNOMIAL UP TO DEGREE 13.
   FOR REFERENCE, SEE
   CONCUS/CASSATT/JAEHNIG/MELBY, TABLES FOR THE EVALUATION OF
   INTEGRAL(X**BETA*EXP(-X)*F(X), SUMMED OVER X FROM 0 TO
   INFINITY) BY GAUSS-LAGUERRE QUADRATURE, MTAC, VOL.17,
   ISS.83 (1963), PP.245-256.