Searched refs:INTCHK (Results 1 – 7 of 7) sorted by relevance
205 INTCHK(I+L) = INTCHK(MI+L)217 INTCHK(I+1) = -INTCHK(I+1)228 INTCHK(I+1) = INTCHK(I) + INTCHK(I+1) - 1231 INTCHK(I-1) = -abs(INTCHK(I-1))245 INTCHK(LNEG+1) = INTCHK(3)248 if(INTCHK(I)+abs(INTCHK(I+1))-LWANT .lt. INTCHK(ISTRT+3))252 150 INTCHK(LNEG) = INTCHK(I) + abs(INTCHK(I+1))271 if (INTCHK(LAST-1) .gt. INTCHK(2)) then276 if (INTCHK(LAST-2)-INTCHK(LAST)-1 .le. INTCHK(2)) then290 INTCHK(INTCHK(I)+1) = -INTCHK(INTCHK(I)+1)[all …]
218 INTCHK(1) = NDIMI219 INTCHK(2) = IOPT(2)235 INTCHK(1) = I255 INTCHK(1) = I322 else if ((INTCHK(2) .le. 0) .or. (INTCHK(2) .gt. 6)) then338 INTCHK(1) = I339 INTCHK(2) = IOPT(I)346 130 INTCHK(3) = IOPT(I+1)347 INTCHK(4) = IOPT(I+2)394 INTCHK(1) = I - 1[all …]
529 INTCHK(4) = 0530 INTCHK(6) = 0544 INTCHK(1) = LI552 INTCHK(3) = 1562 K = INTCHK(J)564 LERTMP = INTCHK(INTCHK(LCKEND+1)+1)566 STOD = INTCHK(INTCHK(LCKEND+2)+1)811 INTCHK(1) = K812 INTCHK(2) = KL847 INTCHK(5) = INTCHK(5) - KPTD(NDIMI)[all …]
1096 INTCHK(0) = 2451100 INTCHK(2) = IDIMT1101 INTCHK(3) = 41104 INTCHK(4) = 51105 INTCHK(5) = 51141 INTCHK(2) = IDIMK1145 INTCHK(4) = 51296 INTCHK(3) = NTE1347 if (INTCHK(INTCHK(K)) .eq. 0) then1348 NDTF = INTCHK(INTCHK(K)+1)[all …]
1094 INTCHK(0) = 2451098 INTCHK(2) = IDIMT1099 INTCHK(3) = 41102 INTCHK(4) = 51103 INTCHK(5) = 51139 INTCHK(2) = IDIMK1143 INTCHK(4) = 51294 INTCHK(3) = NTE1345 if (INTCHK(INTCHK(K)) .eq. 0) then1346 NDTF = INTCHK(INTCHK(K)+1)[all …]