PPGQ8(3)

SYNOPSIS
SUBROUTINE PPGQ8 (FUN, LDC, C, XI, LXI, KK, ID, A, B, INPPV, ERR, + ANS, IERR)

NAME
ppgq8 - Subsidiary to PFQAD

LIBRARY
SLATEC

TYPE
SINGLE PRECISION (PPGQ8-S, DPPGQ8-D)

AUTHOR
Jones, R. E., (SNLA)

DESCRIPTION
Abstract PPGQ8, a modification of GAUS8, integrates the product of FUN(X) by the ID-th derivative of a spline PPVAL(LDC,C,XI,LXI,KK,ID,X,INPPV) between limits A and B. Description of arguments INPUT-- FUN - Name of external function of one argument which multiplies PPVAL. LDC - Leading dimension of matrix C, LDC.GE.KK C - Matrix of Taylor derivatives of dimension at least (K,LXI) XI - Breakpoint vector of length LXI+1 LXI - Number of polynomial pieces 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) INPPV- Initialization parameter for PPVAL ERR - Is a requested pseudorelative error tolerance. Normally pick a value of ABS(ERR).LT.1E-3. ANS will normally have no more error than ABS(ERR) times the integral of the absolute value of FUN(X)*PPVAL(LDC,C,XI,LXI,KK,ID,X, INPPV). OUTPUT-- 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.

SEE ALSO
PFQAD

ROUTINES CALLED
I1MACH, PPVAL, R1MACH, XERMSG

REVISION HISTORY (YYMMDD)
800901 DATE WRITTEN
890531 Changed all specific intrinsics to generic. (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)