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
612 IF (ICASE.EQ.1) THEN
616 ELSE IF (ICASE.EQ.2) THEN
623 ELSE IF (ICASE.EQ.5) THEN
630 ELSE IF (ICASE.EQ.6) THEN
639 ELSE IF (ICASE.EQ.12) THEN
659 IF ((KPAR .EQ. 2) .AND. (KNI .EQ. 7))
661 IF ((KPAR .EQ. 3) .AND. (KNI .EQ. 8))
668 ELSE IF (ICASE.EQ.13) THEN
675 END IF
773 IF (ICASE.EQ.4) THEN
787 END IF
890 * SEE IF THE TERM BY TERM DIFFERENCES, MULTIPLIED BY SFAC, ARE
921 IF (ABS(SFAC*SD) .LE. ABS(SSIZE(I))*EPSILON(ZERO))
926 IF ( .NOT. PASS) GO TO 20
946 * SEE IF THE TERM BY TERM DIFFERENCES, MULTIPLIED BY SFAC, ARE
969 IF (ABS(SFAC*SD) .LE. ABS(SSIZE) * EPSILON(ZERO))
974 IF ( .NOT. PASS) GO TO 20
1046 IF (ICOMP.EQ.ITRUE) GO TO 40
1050 IF ( .NOT. PASS) GO TO 20
