118       SUBROUTINE CHECK1(SFAC)  subroutine
120       INTEGER           NOUT
123       DOUBLE PRECISION  SFAC
125       INTEGER           ICASE, INCX, INCY, MODE, N  local
126       LOGICAL           PASS
128       COMPLEX*16        CA
129       DOUBLE PRECISION  SA
130       INTEGER           I, J, LEN, NP1
132       COMPLEX*16        CTRUE5(8,5,2), CTRUE6(8,5,2), CV(8,5,2), CX(8),
133      +                  MWPCS(5), MWPCT(5)
134       DOUBLE PRECISION  STRUE2(5), STRUE4(5)
135       INTEGER           ITRUE3(5)
137       DOUBLE PRECISION  DZASUM, DZNRM2
138       INTEGER           IZAMAX
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