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
367       COMMON            /COMBLA/ICASE, N, INCX, INCY, PASS  local
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
668             ELSE IF (ICASE.EQ.13) THEN
687       INTEGER           ICASE, INCX, INCY, N  local
705       COMMON            /COMBLA/ICASE, N, INCX, INCY, PASS  local
773             IF (ICASE.EQ.4) THEN
905       INTEGER          ICASE, INCX, INCY, N  local
916       COMMON           /COMBLA/ICASE, N, INCX, INCY, PASS  local
931    20    WRITE (NOUT,99997) ICASE, N, INCX, INCY, I, SCOMP(I),
958       INTEGER          ICASE, INCX, INCY, N  local
965       COMMON           /COMBLA/ICASE, N, INCX, INCY, PASS  local
979    20    WRITE (NOUT,99997) ICASE, N, INCX, INCY, SCOMP,
1038       INTEGER           ICASE, INCX, INCY, N  local
1043       COMMON            /COMBLA/ICASE, N, INCX, INCY, PASS  local
1056       WRITE (NOUT,99997) ICASE, N, INCX, INCY, ICOMP, ITRUE, ID