680       SUBROUTINE CHECK3(SFAC)  subroutine
682       INTEGER           NOUT
685       DOUBLE PRECISION  SFAC
687       INTEGER           ICASE, INCX, INCY, N  local
688       LOGICAL           PASS
690       DOUBLE PRECISION  SC, SS
691       INTEGER           I, K, KI, KN, KSIZE, LENX, LENY, MX, MY
693       DOUBLE PRECISION  COPYX(5), COPYY(5), DT9X(7,4,4), DT9Y(7,4,4),
694      +                  DX1(7), DY1(7), MWPC(11), MWPS(11), MWPSTX(5),
695      +                  MWPSTY(5), MWPTX(11,5), MWPTY(11,5), MWPX(5),
696      +                  MWPY(5), SSIZE2(14,2), STX(7), STY(7), SX(7),
697      +                  SY(7)
698       INTEGER           INCXS(4), INCYS(4), LENS(4,2), MWPINX(11),
699      +                  MWPINY(11), MWPN(11), NS(4)
705       COMMON            /COMBLA/ICASE, N, INCX, INCY, PASS
785                WRITE (NOUT,*) ' Shouldn''t be here in CHECK3'  argument
788    40    CONTINUE
789    60 CONTINUE
794    80 CONTINUE
798   100 CONTINUE
801   120 CONTINUE
826   140 CONTINUE
850   160 CONTINUE
879   180    CONTINUE
883   200 CONTINUE