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