Lines Matching refs:IF
70 * detailed output, if any, for cases that do not involve
77 IF (ICASE.LE.5) THEN
79 ELSE IF (ICASE.GE.6) THEN
81 END IF
83 IF (PASS) WRITE (NOUT,99998)
250 IF (ICASE.EQ.6) THEN
254 ELSE IF (ICASE.EQ.7) THEN
258 ELSE IF (ICASE.EQ.8) THEN
263 ELSE IF (ICASE.EQ.9) THEN
268 ELSE IF (ICASE.EQ.10) THEN
274 END IF
280 IF (ICASE.EQ.8) THEN
290 ELSE IF (ICASE.EQ.9) THEN
316 END IF
533 IF (ICASE.EQ.1) THEN
537 ELSE IF (ICASE.EQ.2) THEN
541 ELSE IF (ICASE.EQ.3) THEN
545 ELSE IF (ICASE.EQ.4) THEN
549 ELSE IF (ICASE.EQ.5) THEN
557 END IF
567 * SEE IF THE TERM BY TERM DIFFERENCES, MULTIPLIED BY SFAC, ARE
598 IF (ABS(SFAC*SD) .LE. ABS(SSIZE(I))*EPSILON(ZERO))
603 IF ( .NOT. PASS) GO TO 20
705 IF (ICOMP.EQ.ITRUE) GO TO 40
709 IF ( .NOT. PASS) GO TO 20
