DQK15W(3)

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

NAME
dqk15w - 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
DOUBLE 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 Double precision version PARAMETERS ON ENTRY F - Double precision 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 - Double precision 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 - Double precision Parameters in the WEIGHT function KP - Integer Key for indicating the type of WEIGHT function A - Double precision Lower limit of integration B - Double precision Upper limit of integration ON RETURN RESULT - Double precision 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 - Double precision Estimate of the modulus of the absolute error, which should equal or exceed ABS(I-RESULT) RESABS - Double precision Approximation to the integral of ABS(F) RESASC - Double precision Approximation to the integral of ABS(F-I/(B-A))

REFERENCES
(NONE)

ROUTINES CALLED
D1MACH

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)