392       SUBROUTINE CHECK3(SFAC)  subroutine
394       INTEGER           NOUT
397       DOUBLE PRECISION  SFAC
399       INTEGER           ICASE, INCX, INCY, MODE, N  local
400       LOGICAL           PASS
402       DOUBLE PRECISION  SC, SS
403       INTEGER           I, K, KI, KN, KSIZE, LENX, LENY, MX, MY
405       DOUBLE PRECISION  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