DBSGQ8(3)

SYNOPSIS
SUBROUTINE DBSGQ8 (FUN, XT, BC, N, KK, ID, A, B, INBV, ERR, ANS, + IERR, WORK)

NAME
dbsgq8 - Subsidiary to DBFQAD

LIBRARY
SLATEC

TYPE
DOUBLE PRECISION (BSGQ8-S, DBSGQ8-D)

AUTHOR
Jones, R. E., (SNLA)

DESCRIPTION
Abstract **** A DOUBLE PRECISION routine **** DBSGQ8, a modification of GAUS8, integrates the product of FUN(X) by the ID-th derivative of a spline DBVALU(XT,BC,N,KK,ID,X,INBV,WORK) between limits A and B. Description of Arguments INPUT-- FUN,XT,BC,A,B,ERR are DOUBLE PRECISION FUN - Name of external function of one argument which multiplies DBVALU. XT - Knot array for DBVALU BC - B-coefficient array for DBVALU N - Number of B-coefficients for DBVALU KK - Order of the spline, KK.GE.1 ID - Order of the spline derivative, 0.LE.ID.LE.KK-1 A - Lower limit of integral B - Upper limit of integral (may be less than A) INBV- Initialization parameter for DBVALU ERR - Is a requested pseudorelative error tolerance. Normally pick a value of ABS(ERR).LT.1D-3. ANS will normally have no more error than ABS(ERR) times the integral of the absolute value of FUN(X)*DBVALU(XT,BC,N,KK,X,ID, INBV,WORK). OUTPUT-- ERR,ANS,WORK are DOUBLE PRECISION ERR - Will be an estimate of the absolute error in ANS if the input value of ERR was negative. (ERR is unchanged if the input value of ERR was nonnegative.) The estimated error is solely for information to the user and should not be used as a correction to the computed integral. ANS - Computed value of integral IERR- A status code --Normal Codes 1 ANS most likely meets requested error tolerance, or A=B. -1 A and B are too nearly equal to allow normal integration. ANS is set to zero. --Abnormal Code 2 ANS probably does not meet requested error tolerance. WORK- Work vector of length 3*K for DBVALU

SEE ALSO
DBFQAD

ROUTINES CALLED
D1MACH, DBVALU, I1MACH, XERMSG

REVISION HISTORY (YYMMDD)
800901 DATE WRITTEN
890531 Changed all specific intrinsics to generic. (WRB)
890911 Removed unnecessary intrinsics. (WRB)
891214 Prologue converted to Version 4.0 format. (BAB)
900315 CALLs to XERROR changed to CALLs to XERMSG. (THJ)
900326 Removed duplicate information from DESCRIPTION section. (WRB)
900328 Added TYPE section. (WRB)
910408 Updated the AUTHOR section. (WRB)