Lines Matching refs:LAST
78 INTEGER LAST
189 LAST = N
191 LAST = MAXLST
201 DO 20 I=1,LAST
204 IF (N.GT.LAST) THEN
205 IF (N.LE.LAST+4) THEN
206 DO 30 I=LAST+1,N
224 IF (LAST.EQ.1) THEN
229 DO 40 I=1,LAST,NPLM1+1
230 K = MIN(I+NPLM1,LAST)
237 IF (N.GT.LAST) THEN
238 IF (N.EQ.LAST+1) THEN
240 ELSE IF (N.GT.LAST+1) THEN
250 IF (LAST.EQ.1) THEN
255 DO 50 I=1,LAST,NPLM1+1
256 K = MIN(I+NPLM1,LAST)
263 IF (N.EQ.LAST+1) THEN
265 ELSE IF (N.GT.LAST+1) THEN