52       LOGICAL          PASS  variable
59       COMMON           /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
73          PASS = .TRUE.
83          IF (PASS) WRITE (NOUT,99998)
96       LOGICAL          PASS  local
100       COMMON           /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
126       LOGICAL           PASS  local
145       COMMON            /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
327       LOGICAL           PASS  local
344       COMMON            /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
583       LOGICAL          PASS  local
593       COMMON           /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
603          IF ( .NOT. PASS) GO TO 20
605          PASS = .FALSE.
699       LOGICAL           PASS  local
703       COMMON            /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
709       IF ( .NOT. PASS) GO TO 20
711       PASS = .FALSE.