319       SUBROUTINE CHECK2(SFAC)  subroutine
321       INTEGER           NOUT
324       REAL              SFAC
326       INTEGER           ICASE, INCX, INCY, MODE, N  local
327       LOGICAL           PASS
329       COMPLEX           CA
330       INTEGER           I, J, KI, KN, KSIZE, LENX, LENY, MX, MY
332       COMPLEX           CDOT(1), CSIZE1(4), CSIZE2(7,2), CSIZE3(14),
333      +                  CT10X(7,4,4), CT10Y(7,4,4), CT6(4,4), CT7(4,4),
334      +                  CT8(7,4,4), CX(7), CX1(7), CY(7), CY1(7)
335       INTEGER           INCXS(4), INCYS(4), LENS(4,2), NS(4)
337       COMPLEX           CDOTC, CDOTU
344       COMMON            /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
555                WRITE (NOUT,*) ' Shouldn''t be here in CHECK2'  argument
559    40    CONTINUE
560    60 CONTINUE