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
491 IF (ICASE.EQ.1) THEN
495 ELSE IF (ICASE.EQ.2) THEN
499 ELSE IF (ICASE.EQ.3) THEN
503 ELSE IF (ICASE.EQ.4) THEN
507 ELSE IF (ICASE.EQ.5) THEN
515 END IF
525 * SEE IF THE TERM BY TERM DIFFERENCES, MULTIPLIED BY SFAC, ARE
555 IF (SDIFF(ABS(SSIZE(I))+ABS(SFAC*SD),ABS(SSIZE(I))).EQ.0.0D0)
560 IF ( .NOT. PASS) GO TO 20
662 IF (ICOMP.EQ.ITRUE) GO TO 40
666 IF ( .NOT. PASS) GO TO 20
