Lines Matching refs:IF
28 * .. detailed output, if any, for cases that do not involve ..
35 IF (ICASE.EQ.3) THEN
37 ELSE IF (ICASE.EQ.7 .OR. ICASE.EQ.8 .OR. ICASE.EQ.9 .OR.
40 ELSE IF (ICASE.EQ.1 .OR. ICASE.EQ.2 .OR. ICASE.EQ.5 .OR.
43 ELSE IF (ICASE.EQ.4) THEN
45 END IF
47 IF (PASS) WRITE (NOUT,99998)
124 * .. Set N=K for identification in output if any ..
126 IF (ICASE.EQ.3) THEN
128 IF (K.GT.8) GO TO 40
139 END IF
211 IF (ICASE.EQ.7) THEN
215 ELSE IF (ICASE.EQ.8) THEN
219 ELSE IF (ICASE.EQ.9) THEN
226 ELSE IF (ICASE.EQ.10) THEN
232 END IF
357 IF (ICASE.EQ.1) THEN
361 ELSE IF (ICASE.EQ.2) THEN
368 ELSE IF (ICASE.EQ.5) THEN
375 ELSE IF (ICASE.EQ.6) THEN
387 END IF
485 IF (ICASE.EQ.4) THEN
499 END IF
602 * SEE IF THE TERM BY TERM DIFFERENCES, MULTIPLIED BY SFAC, ARE
632 IF (SDIFF(ABS(SSIZE(I))+ABS(SFAC*SD),ABS(SSIZE(I))).EQ.0.0D0)
637 IF ( .NOT. PASS) GO TO 20
709 IF (ICOMP.EQ.ITRUE) GO TO 40
713 IF ( .NOT. PASS) GO TO 20
