Lines Matching refs:LAST
132 integer I, ISTRT, KEX, L, LAST, LNEG, LOPT, LWANT, MI, MV, N local
186 LAST = INTCHK(1)
187 KEX = LAST
189 do 100 I = 5, LAST, 3
194 do 50 L = I+3, LAST, 3
247 do 140 ISTRT = ISTRT, LAST-3, 3
271 if (INTCHK(LAST-1) .gt. INTCHK(2)) then
273 if (LAST .ne. KEX) then
274 if (INTCHK(KEX) .eq. LAST - 3) then
275 if (INTCHK(LAST) .le. 0) then
276 if (INTCHK(LAST-2)-INTCHK(LAST)-1 .le. INTCHK(2)) then
277 INTCHK(LAST-1) = INTCHK(2)
283 INTCHK(LAST-3) = -abs(INTCHK(LAST-3))
286 180 if (LAST .ne. KEX) INTCHK(LAST) = KEX
288 190 if (LAST .ne. KEX) then
289 do 200 I = LAST+1, abs(KEX)
295 MACT(13) = (LAST - 4) / 3
299 if (MACT(2) .gt. 10) INTCHK(1) = -LAST
300 if (LAST .ne. KEX) go to 190
302 210 INTCHK(2) = INTCHK(LAST-1)