563       SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC)  subroutine
573       INTEGER          NOUT
574       DOUBLE PRECISION ZERO
577       DOUBLE PRECISION SFAC
578       INTEGER          LEN
580       DOUBLE PRECISION SCOMP(LEN), SSIZE(LEN), STRUE(LEN)
582       INTEGER          ICASE, INCX, INCY, MODE, N  local
583       LOGICAL          PASS
585       DOUBLE PRECISION SD
586       INTEGER          I  local
588       DOUBLE PRECISION SDIFF
593       COMMON           /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
619       SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)  argument
635       EXTERNAL          STEST  argument