Searched refs:ISIZE2SHIFT (Results 1 – 16 of 16) sorted by relevance
44 IW(IXXP)=ICURRENT+ISIZE2SHIFT53 IF (ISIZE2SHIFT.GT.0) THEN55 IW(I+ISIZE2SHIFT)=IW(I)57 ELSE IF (ISIZE2SHIFT.LT.0) THEN59 IW(I+ISIZE2SHIFT)=IW(I)98 INTEGER ISIZE2SHIFT local111 ISIZE2SHIFT=0164 IXXP=IXXP+ISIZE2SHIFT214 IF (ISIZE2SHIFT.NE.0) THEN242 ISIZE2SHIFT = ISIZE2SHIFT + IW(ICURRENT+XXI)[all …]
4419 IW(IXXP)=ICURRENT+ISIZE2SHIFT4428 IF (ISIZE2SHIFT.GT.0) THEN4430 IW(I+ISIZE2SHIFT)=IW(I)4432 ELSE IF (ISIZE2SHIFT.LT.0) THEN4434 IW(I+ISIZE2SHIFT)=IW(I)4470 INTEGER ISIZE2SHIFT4479 ISIZE2SHIFT=04531 IXXP=IXXP+ISIZE2SHIFT4581 IF (ISIZE2SHIFT.NE.0) THEN4609 ISIZE2SHIFT = ISIZE2SHIFT + IW(ICURRENT+XXI)[all …]
4419 IW(IXXP)=ICURRENT+ISIZE2SHIFT4428 IF (ISIZE2SHIFT.GT.0) THEN4430 IW(I+ISIZE2SHIFT)=IW(I)4432 ELSE IF (ISIZE2SHIFT.LT.0) THEN4434 IW(I+ISIZE2SHIFT)=IW(I)4470 INTEGER ISIZE2SHIFT local4479 ISIZE2SHIFT=04531 IXXP=IXXP+ISIZE2SHIFT4581 IF (ISIZE2SHIFT.NE.0) THEN4609 ISIZE2SHIFT = ISIZE2SHIFT + IW(ICURRENT+XXI)[all …]