Lines Matching refs:LAST
3 + ABSERR, NEVAL, IER, ALIST, BLIST, RLIST, ELIST, IORD, LAST) argument
154 INTEGER IER,IORD,IROFF1,IROFF2,K,KRULE,LAST,LIMIT,MAXERR,NEV, local
200 LAST = 0
222 LAST = 1
253 DO 40 LAST = 2,LIMIT
280 IF(LAST.GT.10.AND.ERRO12.GT.ERRMAX.AND.KRULE.EQ.0)
283 RLIST(LAST) = AREA2
294 IF(LAST.EQ.LIMIT) IER = 1
305 ALIST(LAST) = A2
307 BLIST(LAST) = B2
309 ELIST(LAST) = ERROR2
312 ALIST(LAST) = A1
313 BLIST(LAST) = B1
315 RLIST(LAST) = AREA1
317 ELIST(LAST) = ERROR1
323 30 CALL DQPSRT(LIMIT,LAST,MAXERR,ERRMAX,ELIST,IORD,NRMAX)
332 DO 60 K=1,LAST