639       SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC)  subroutine
649       INTEGER          NOUT
652       REAL             SFAC
653       INTEGER          LEN
655       REAL             SCOMP(LEN), SSIZE(LEN), STRUE(LEN)
657       INTEGER          ICASE, INCX, INCY, MODE, N  local
658       LOGICAL          PASS
660       REAL             SD
661       INTEGER          I  local
663       REAL             SDIFF
668       COMMON           /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
694       SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)  argument
710       EXTERNAL          STEST  argument