890       SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC)  subroutine
900       INTEGER          NOUT
901       REAL             ZERO
904       REAL             SFAC
905       INTEGER          LEN
907       REAL             SCOMP(LEN), SSIZE(LEN), STRUE(LEN)
909       INTEGER          ICASE, INCX, INCY, N  local
910       LOGICAL          PASS
912       REAL             SD
913       INTEGER          I  local
915       REAL             SDIFF
920       COMMON           /COMBLA/ICASE, N, INCX, INCY, PASS
946       SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)  argument
962       EXTERNAL          STEST  argument