886       SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC)  subroutine
896       INTEGER          NOUT
897       DOUBLE PRECISION ZERO
900       DOUBLE PRECISION SFAC
901       INTEGER          LEN
903       DOUBLE PRECISION SCOMP(LEN), SSIZE(LEN), STRUE(LEN)
905       INTEGER          ICASE, INCX, INCY, N  local
906       LOGICAL          PASS
908       DOUBLE PRECISION SD
909       INTEGER          I  local
911       DOUBLE PRECISION SDIFF
916       COMMON           /COMBLA/ICASE, N, INCX, INCY, PASS
943 *     ********************************* STEST **************************  argument