• Home
  • Raw
  • Download

Lines Matching refs:ICASE

51       INTEGER          ICASE, INCX, INCY, N  variable
59 COMMON /COMBLA/ICASE, N, INCX, INCY, PASS local
65 ICASE = IC
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.
79 + ICASE.EQ.10) THEN
81 ELSE IF (ICASE.EQ.1 .OR. ICASE.EQ.2 .OR. ICASE.EQ.5 .OR.
82 + ICASE.EQ.6 .OR. ICASE.EQ.12 .OR. ICASE.EQ.13) THEN
84 ELSE IF (ICASE.EQ.4) THEN
100 INTEGER ICASE, INCX, INCY, N local
105 COMMON /COMBLA/ICASE, N, INCX, INCY, PASS local
121 WRITE (NOUT,99999) ICASE, L(ICASE)
133 INTEGER ICASE, INCX, INCY, N local
144 COMMON /COMBLA/ICASE, N, INCX, INCY, PASS local
216 IF (ICASE.EQ.3) THEN
226 ELSEIF (ICASE.EQ.11) THEN
249 INTEGER ICASE, INCX, INCY, N local
266 COMMON /COMBLA/ICASE, N, INCX, INCY, PASS local
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
343 INTEGER ICASE, INCX, INCY, N local
368 COMMON /COMBLA/ICASE, N, INCX, INCY, PASS local
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
643 ELSEIF (ICASE.EQ.12) THEN
672 ELSEIF (ICASE.EQ.13) THEN
691 INTEGER ICASE, INCX, INCY, N local
709 COMMON /COMBLA/ICASE, N, INCX, INCY, PASS local
777 IF (ICASE.EQ.4) THEN
909 INTEGER ICASE, INCX, INCY, N local
920 COMMON /COMBLA/ICASE, N, INCX, INCY, PASS local
935 20 WRITE (NOUT,99997) ICASE, N, INCX, INCY, I, SCOMP(I),
994 INTEGER ICASE, INCX, INCY, N local
999 COMMON /COMBLA/ICASE, N, INCX, INCY, PASS local
1012 WRITE (NOUT,99997) ICASE, N, INCX, INCY, ICOMP, ITRUE, ID