Lines Matching refs:LAST
2 1 NEVAL,IER,ALIST,BLIST,RLIST,ELIST,IORD,LAST)
157 1 KTMIN,LAST,LIMIT,MAXERR,NEVAL,NRES,NRMAX,NUMRL2
226 LAST = 0
254 LAST = 1
293 DO 90 LAST = 2,LIMIT
318 10 IF(LAST.GT.10.AND.ERRO12.GT.ERRMAX) IROFF3 = IROFF3+1
320 RLIST(LAST) = AREA2
332 IF(LAST.EQ.LIMIT) IER = 1
343 ALIST(LAST) = A2
345 BLIST(LAST) = B2
347 ELIST(LAST) = ERROR2
350 ALIST(LAST) = A1
351 BLIST(LAST) = B1
353 RLIST(LAST) = AREA1
355 ELIST(LAST) = ERROR1
362 30 CALL QPSRT(LIMIT,LAST,MAXERR,ERRMAX,ELIST,IORD,NRMAX)
365 IF(LAST.EQ.2) GO TO 80
385 JUPBND = LAST
386 IF(LAST.GT.(2+LIMIT/2)) JUPBND = LIMIT+3-LAST
450 DO 120 K = 1,LAST
454 130 NEVAL = 30*LAST-15