76       SUBROUTINE CHECK1(SFAC)  subroutine
78       INTEGER           NOUT
81       REAL              SFAC
83       INTEGER           ICASE, INCX, INCY, MODE, N  local
84       LOGICAL           PASS
86       COMPLEX           CA
87       REAL              SA
88       INTEGER           I, J, LEN, NP1
90       COMPLEX           CTRUE5(8,5,2), CTRUE6(8,5,2), CV(8,5,2), CX(8),
91      +                  MWPCS(5), MWPCT(5)
92       REAL              STRUE2(5), STRUE4(5)
93       INTEGER           ITRUE3(5)
95       REAL              SCASUMTEST, SCNRM2TEST
96       INTEGER           ICAMAXTEST
103       COMMON            /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
230                WRITE (NOUT,*) ' Shouldn''t be here in CHECK1'  argument
234    40    CONTINUE
235    60 CONTINUE
245    80    CONTINUE
255   100    CONTINUE
263   120    CONTINUE
271   140    CONTINUE