237       SUBROUTINE CHECK2(SFAC)  subroutine
239       INTEGER           NOUT
242       REAL              SFAC
244       INTEGER           ICASE, INCX, INCY, MODE, N  local
245       LOGICAL           PASS
247       REAL              SA
248       INTEGER           I, J, KI, KN, KSIZE, LENX, LENY, MX, MY
250       REAL              DT10X(7,4,4), DT10Y(7,4,4), DT7(4,4),
251      +                  DT8(7,4,4), DX1(7),
252      +                  DY1(7), SSIZE1(4), SSIZE2(14,2), STX(7), STY(7),
253      +                  SX(7), SY(7)
254       INTEGER           INCXS(4), INCYS(4), LENS(4,2), NS(4)
256       REAL              SDOTTEST
263       COMMON            /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
355    20       CONTINUE
385                WRITE (NOUT,*) ' Shouldn''t be here in CHECK2'  argument
388   100    CONTINUE
389   120 CONTINUE