392       SUBROUTINE CHECK3(SFAC)  subroutine
394       INTEGER           NOUT
397       REAL              SFAC
399       INTEGER           ICASE, INCX, INCY, MODE, N  local
400       LOGICAL           PASS
402       REAL              SC, SS
403       INTEGER           I, K, KI, KN, KSIZE, LENX, LENY, MX, MY
405       REAL              COPYX(5), COPYY(5), DT9X(7,4,4), DT9Y(7,4,4),
406      +                  DX1(7), DY1(7), MWPC(11), MWPS(11), MWPSTX(5),
407      +                  MWPSTY(5), MWPTX(11,5), MWPTY(11,5), MWPX(5),
408      +                  MWPY(5), SSIZE2(14,2), STX(7), STY(7), SX(7),
409      +                  SY(7)
410       INTEGER           INCXS(4), INCYS(4), LENS(4,2), MWPINX(11),
411      +                  MWPINY(11), MWPN(11), NS(4)
417       COMMON            /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
497                WRITE (NOUT,*) ' Shouldn''t be here in CHECK3'  argument
500    40    CONTINUE
501    60 CONTINUE
506    80 CONTINUE
510   100 CONTINUE
513   120 CONTINUE
538   140 CONTINUE
562   160 CONTINUE
591   180    CONTINUE
595   200 CONTINUE