143       SUBROUTINE CHECK1(SFAC)  subroutine
145       INTEGER           NOUT
148       REAL              SFAC
150       INTEGER           ICASE, INCX, INCY, MODE, N  local
151       LOGICAL           PASS
153       INTEGER           I, LEN, NP1
155       REAL              DTRUE1(5), DTRUE3(5), DTRUE5(8,5,2), DV(8,5,2),
156      +                  SA(10), STEMP(1), STRUE(8), SX(8)
157       INTEGER           ITRUE2(5)
159       REAL              SASUMTEST, SNRM2TEST
160       INTEGER           ISAMAXTEST
167       COMMON            /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
230                WRITE (NOUT,*) ' Shouldn''t be here in CHECK1'  argument
233    60    CONTINUE
234    80 CONTINUE