684       SUBROUTINE CHECK3(SFAC)  subroutine
686       INTEGER           NOUT
689       REAL              SFAC
691       INTEGER           ICASE, INCX, INCY, N  local
692       LOGICAL           PASS
694       REAL              SC, SS
695       INTEGER           I, K, KI, KN, KSIZE, LENX, LENY, MX, MY
697       REAL              COPYX(5), COPYY(5), DT9X(7,4,4), DT9Y(7,4,4),
698      +                  DX1(7), DY1(7), MWPC(11), MWPS(11), MWPSTX(5),
699      +                  MWPSTY(5), MWPTX(11,5), MWPTY(11,5), MWPX(5),
700      +                  MWPY(5), SSIZE2(14,2), STX(7), STY(7), SX(7),
701      +                  SY(7)
702       INTEGER           INCXS(4), INCYS(4), LENS(4,2), MWPINX(11),
703      +                  MWPINY(11), MWPN(11), NS(4)
709       COMMON            /COMBLA/ICASE, N, INCX, INCY, PASS
789                WRITE (NOUT,*) ' Shouldn''t be here in CHECK3'  argument
792    40    CONTINUE
793    60 CONTINUE
798    80 CONTINUE
802   100 CONTINUE
805   120 CONTINUE
830   140 CONTINUE
854   160 CONTINUE
883   180    CONTINUE
887   200 CONTINUE