522       SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC)  subroutine
532       INTEGER          NOUT
535       DOUBLE PRECISION SFAC
536       INTEGER          LEN
538       DOUBLE PRECISION SCOMP(LEN), SSIZE(LEN), STRUE(LEN)
540       INTEGER          ICASE, INCX, INCY, MODE, N  local
541       LOGICAL          PASS
543       DOUBLE PRECISION SD
544       INTEGER          I  local
546       DOUBLE PRECISION SDIFF
551       COMMON           /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
577       SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)  argument
593       EXTERNAL          STEST  argument