1 SUBROUTINE dqpsrt(LIMIT,LAST,MAXERR,ERMAX,ELIST,IORD,NRMAX)
55 DOUBLE PRECISION ELIST,ERMAX,ERRMAX,ERRMIN
56 INTEGER I,IBEG,IDO,IORD,ISUCC,J,JBND,JUPBN,K,LAST,LIMIT,MAXERR,
64 IF(last.GT.2) go to 10
74 10 errmax = elist(maxerr)
75 IF(nrmax.EQ.1) go to 30
80 IF(errmax.LE.elist(isucc)) go to 30
90 IF(last.GT.(limit/2+2)) jupbn = limit+3-last
98 IF(ibeg.GT.jbnd) go to 50
102 IF(errmax.GE.elist(isucc)) go to 60
105 50 iord(jbnd) = maxerr
111 60 iord(i-1) = maxerr
116 IF(errmin.LT.elist(isucc)) go to 80
126 90 maxerr = iord(nrmax)
127 ermax = elist(maxerr)
std::string dimension(void) const
subroutine dqpsrt(LIMIT, LAST, MAXERR, ERMAX, ELIST, IORD, NRMAX)