238       SUBROUTINE CHECK2(SFAC)  subroutine
240       INTEGER           NOUT
243       REAL              SFAC
245       INTEGER           ICASE, INCX, INCY, MODE, N  local
246       LOGICAL           PASS
248       REAL              SA, SC, SS
249       INTEGER           I, J, KI, KN, KSIZE, LENX, LENY, MX, MY
251       REAL              DT10X(7,4,4), DT10Y(7,4,4), DT7(4,4),
252      +                  DT8(7,4,4), DT9X(7,4,4), DT9Y(7,4,4), DX1(7),
253      +                  DY1(7), SSIZE1(4), SSIZE2(14,2), STX(7), STY(7),
254      +                  SX(7), SY(7)
255       INTEGER           INCXS(4), INCYS(4), LENS(4,2), NS(4)
257       REAL              SDOT
264       COMMON            /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
395    20       CONTINUE
425                WRITE (NOUT,*) ' Shouldn''t be here in CHECK2'  argument
428   100    CONTINUE
429   120 CONTINUE