242       SUBROUTINE CHECK1(SFAC)  subroutine
244       INTEGER           NOUT
247       DOUBLE PRECISION  SFAC
249       INTEGER           ICASE, INCX, INCY, N  local
250       LOGICAL           PASS
252       INTEGER           I, LEN, NP1
254       DOUBLE PRECISION  DTRUE1(5), DTRUE3(5), DTRUE5(8,5,2), DV(8,5,2),
255      +                  SA(10), STEMP(1), STRUE(8), SX(8)
256       INTEGER           ITRUE2(5)
258       DOUBLE PRECISION  DASUM, DNRM2
259       INTEGER           IDAMAX
266       COMMON            /COMBLA/ICASE, N, INCX, INCY, PASS
329                WRITE (NOUT,*) ' Shouldn''t be here in CHECK1'  argument
332    60    CONTINUE
333    80 CONTINUE