QPSRT(3)

SYNOPSIS
SUBROUTINE QPSRT (LIMIT, LAST, MAXERR, ERMAX, ELIST, IORD, NRMAX)

NAME
qpsrt - Subsidiary to QAGE, QAGIE, QAGPE, QAGSE, QAWCE, QAWOE and QAWSE

LIBRARY
SLATEC

TYPE
SINGLE PRECISION (QPSRT-S, DQPSRT-D)

KEYWORDS
SEQUENTIAL SORTING

AUTHOR
(UNKNOWN)

DESCRIPTION
1. QPSRT Ordering Routine Standard FORTRAN Subroutine REAL Version 2. PURPOSE This routine maintains the descending ordering in the list of the local error estimates resulting from the interval subdivision process. At each call two error estimates are inserted using the sequential search method, top-down for the largest error estimate and bottom-up for the smallest error estimate. 3. CALLING SEQUENCE CALL QPSRT(LIMIT,LAST,MAXERR,ERMAX,ELIST,IORD,NRMAX) PARAMETERS (MEANING AT OUTPUT) LIMIT - INTEGER Maximum number of error estimates the list can contain LAST - INTEGER Number of error estimates currently in the list MAXERR - INTEGER MAXERR points to the NRMAX-th largest error estimate currently in the list ERMAX - REAL NRMAX-th largest error estimate ERMAX = ELIST(MAXERR) ELIST - REAL Vector of dimension LAST containing the error estimates IORD - INTEGER Vector of dimension LAST, the first K elements of which contain pointers to the error estimates, such that ELIST(IORD(1)),... , ELIST(IORD(K)) form a decreasing sequence, with K = LAST if LAST.LE.(LIMIT/2+2), and K = LIMIT+1-LAST otherwise NRMAX - INTEGER MAXERR = IORD(NRMAX)

SEE ALSO
QAGE, QAGIE, QAGPE, QAGSE, QAWCE, QAWOE, QAWSE

ROUTINES CALLED
(NONE)

REVISION HISTORY (YYMMDD)
800101 DATE WRITTEN
890831 Modified array declarations. (WRB)
891214 Prologue converted to Version 4.0 format. (BAB)
900328 Added TYPE section. (WRB)