118       SUBROUTINE CHECK1(SFAC)  subroutine
120       INTEGER           NOUT
123       REAL              SFAC
125       INTEGER           ICASE, INCX, INCY, MODE, N  local
126       LOGICAL           PASS
128       COMPLEX           CA
129       REAL              SA
130       INTEGER           I, J, LEN, NP1
132       COMPLEX           CTRUE5(8,5,2), CTRUE6(8,5,2), CV(8,5,2), CX(8),
133      +                  MWPCS(5), MWPCT(5)
134       REAL              STRUE2(5), STRUE4(5)
135       INTEGER           ITRUE3(5)
137       REAL              SCASUM, SCNRM2
138       INTEGER           ICAMAX
145       COMMON            /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
272                WRITE (NOUT,*) ' Shouldn''t be here in CHECK1'  argument
276    40    CONTINUE
277    60 CONTINUE
287    80    CONTINUE
297   100    CONTINUE
305   120    CONTINUE
313   140    CONTINUE