QK15W(3)

SYNOPSIS
SUBROUTINE QK15W (F, W, P1, P2, P3, P4, KP, A, B, RESULT, ABSERR, + RESABS, RESASC)

NAME
qk15w - To compute I = Integral of F*W over (A,B), with error estimate J = Integral of ABS(F*W) over (A,B)

LIBRARY
SLATEC (QUADPACK)

CATEGORY
H2A2A2

TYPE
SINGLE PRECISION (QK15W-S, DQK15W-D)

KEYWORDS
15-POINT GAUSS-KRONROD RULES, QUADPACK, QUADRATURE

AUTHOR
Piessens, Robert Applied Mathematics and Programming Division K. U. Leuven de Doncker, Elise Applied Mathematics and Programming Division K. U. Leuven

DESCRIPTION
Integration rules Standard fortran subroutine Real version PARAMETERS ON ENTRY F - Real Function subprogram defining the integrand function F(X). The actual name for F needs to be declared E X T E R N A L in the driver program. W - Real Function subprogram defining the integrand WEIGHT function W(X). The actual name for W needs to be declared E X T E R N A L in the calling program. P1, P2, P3, P4 - Real Parameters in the WEIGHT function KP - Integer Key for indicating the type of WEIGHT function A - Real Lower limit of integration B - Real Upper limit of integration ON RETURN RESULT - Real Approximation to the integral I RESULT is computed by applying the 15-point Kronrod rule (RESK) obtained by optimal addition of abscissae to the 7-point Gauss rule (RESG). ABSERR - Real Estimate of the modulus of the absolute error, which should equal or exceed ABS(I-RESULT) RESABS - Real Approximation to the integral of ABS(F) RESASC - Real Approximation to the integral of ABS(F-I/(B-A))

REFERENCES
(NONE)

ROUTINES CALLED
R1MACH

REVISION HISTORY (YYMMDD)
810101 DATE WRITTEN
890531 Changed all specific intrinsics to generic. (WRB)
890531 REVISION DATE from Version 3.2
891214 Prologue converted to Version 4.0 format. (BAB)