Lines Matching refs:IF
28 * detailed output, if any, for cases that do not involve
35 IF (ICASE.LE.5) THEN
37 ELSE IF (ICASE.GE.6) THEN
39 END IF
41 IF (PASS) WRITE (NOUT,99998)
208 IF (ICASE.EQ.6) THEN
212 ELSE IF (ICASE.EQ.7) THEN
216 ELSE IF (ICASE.EQ.8) THEN
221 ELSE IF (ICASE.EQ.9) THEN
226 ELSE IF (ICASE.EQ.10) THEN
232 END IF
238 IF (ICASE.EQ.8) THEN
248 ELSE IF (ICASE.EQ.9) THEN
274 END IF
490 IF (ICASE.EQ.1) THEN
495 ELSE IF (ICASE.EQ.2) THEN
500 ELSE IF (ICASE.EQ.3) THEN
504 ELSE IF (ICASE.EQ.4) THEN
508 ELSE IF (ICASE.EQ.5) THEN
516 END IF
526 * SEE IF THE TERM BY TERM DIFFERENCES, MULTIPLIED BY SFAC, ARE
556 IF (SDIFF(ABS(SSIZE(I))+ABS(SFAC*SD),ABS(SSIZE(I))).EQ.0.0D0)
561 IF ( .NOT. PASS) GO TO 20
663 IF (ICOMP.EQ.ITRUE) GO TO 40
667 IF ( .NOT. PASS) GO TO 20
