Lines Matching refs:IF
70 * .. detailed output, if any, for cases that do not involve ..
76 IF (ICASE.EQ.3 .OR. ICASE.EQ.11) THEN
78 ELSE IF (ICASE.EQ.7 .OR. ICASE.EQ.8 .OR. ICASE.EQ.9 .OR.
81 ELSE IF (ICASE.EQ.1 .OR. ICASE.EQ.2 .OR. ICASE.EQ.5 .OR.
84 ELSE IF (ICASE.EQ.4) THEN
86 END IF
88 IF (PASS) WRITE (NOUT,99998)
214 * .. Set N=K for identification in output if any ..
216 IF (ICASE.EQ.3) THEN
218 IF (K.GT.8) GO TO 40
238 END IF
310 IF (ICASE.EQ.7) THEN
314 ELSE IF (ICASE.EQ.8) THEN
318 ELSE IF (ICASE.EQ.9) THEN
325 ELSE IF (ICASE.EQ.10) THEN
331 END IF
616 IF (ICASE.EQ.1) THEN
620 ELSE IF (ICASE.EQ.2) THEN
627 ELSE IF (ICASE.EQ.5) THEN
634 ELSE IF (ICASE.EQ.6) THEN
663 IF ((KPAR .EQ. 2) .AND. (KNI .EQ. 7))
665 IF ((KPAR .EQ. 3) .AND. (KNI .EQ. 8))
679 END IF
777 IF (ICASE.EQ.4) THEN
791 END IF
894 * SEE IF THE TERM BY TERM DIFFERENCES, MULTIPLIED BY SFAC, ARE
925 IF (ABS(SFAC*SD) .LE. ABS(SSIZE(I))*EPSILON(ZERO))
930 IF ( .NOT. PASS) GO TO 20
1002 IF (ICOMP.EQ.ITRUE) GO TO 40
1006 IF ( .NOT. PASS) GO TO 20
