Lines Matching full:icase
9 INTEGER ICASE, INCX, INCY, MODE, N
17 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
23 ICASE = IC
35 IF (ICASE.EQ.3) THEN
37 ELSE IF (ICASE.EQ.7 .OR. ICASE.EQ.8 .OR. ICASE.EQ.9 .OR.
38 + ICASE.EQ.10) THEN
40 ELSE IF (ICASE.EQ.1 .OR. ICASE.EQ.2 .OR. ICASE.EQ.5 .OR.
41 + ICASE.EQ.6) THEN
43 ELSE IF (ICASE.EQ.4) THEN
59 INTEGER ICASE, INCX, INCY, MODE, N
64 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
77 WRITE (NOUT,99999) ICASE, L(ICASE)
89 INTEGER ICASE, INCX, INCY, MODE, N
100 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
127 IF (ICASE.EQ.3) THEN
151 INTEGER ICASE, INCX, INCY, MODE, N
168 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
212 IF (ICASE.EQ.7) THEN
216 ELSE IF (ICASE.EQ.8) THEN
220 ELSE IF (ICASE.EQ.9) THEN
227 ELSE IF (ICASE.EQ.10) THEN
245 INTEGER ICASE, INCX, INCY, MODE, N
264 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
397 IF (ICASE.EQ.1) THEN
401 ELSE IF (ICASE.EQ.2) THEN
408 ELSE IF (ICASE.EQ.5) THEN
415 ELSE IF (ICASE.EQ.6) THEN
439 INTEGER ICASE, INCX, INCY, MODE, N
457 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
526 IF (ICASE.EQ.4) THEN
657 INTEGER ICASE, INCX, INCY, MODE, N
668 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
683 20 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, I, SCOMP(I),
742 INTEGER ICASE, INCX, INCY, MODE, N
747 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
760 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, ICOMP, ITRUE, ID
