521       SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC)  subroutine
531       INTEGER          NOUT
534       DOUBLE PRECISION SFAC
535       INTEGER          LEN
537       DOUBLE PRECISION SCOMP(LEN), SSIZE(LEN), STRUE(LEN)
539       INTEGER          ICASE, INCX, INCY, MODE, N  local
540       LOGICAL          PASS
542       DOUBLE PRECISION SD
543       INTEGER          I  local
545       DOUBLE PRECISION SDIFF
550       COMMON           /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
576       SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)  argument
592       EXTERNAL          STEST  argument