598       SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC)  subroutine
608       INTEGER          NOUT
611       DOUBLE PRECISION SFAC
612       INTEGER          LEN
614       DOUBLE PRECISION SCOMP(LEN), SSIZE(LEN), STRUE(LEN)
616       INTEGER          ICASE, INCX, INCY, MODE, N  local
617       LOGICAL          PASS
619       DOUBLE PRECISION SD
620       INTEGER          I  local
622       DOUBLE PRECISION SDIFF
627       COMMON           /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
653       SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)  argument
669       EXTERNAL          STEST  argument