10       LOGICAL          PASS  variable
17       COMMON           /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
31          PASS = .TRUE.
41          IF (PASS) WRITE (NOUT,99998)
54       LOGICAL          PASS  local
58       COMMON           /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
84       LOGICAL           PASS  local
103       COMMON            /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
285       LOGICAL           PASS  local
301       COMMON            /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
541       LOGICAL          PASS  local
551       COMMON           /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
561          IF ( .NOT. PASS) GO TO 20
563          PASS = .FALSE.
657       LOGICAL           PASS  local
661       COMMON            /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
667       IF ( .NOT. PASS) GO TO 20
669       PASS = .FALSE.