353      $                  SSIZE(7), STX(7), STY(7), SX(7), SY(7),  local
659                      SSIZE(I)=STX(I)
664      $               SSIZE(1) = 2.4E0
666      $               SSIZE(5) = 1.8E0
669                   CALL   STEST(LENX,SX,STX,SSIZE,SFAC)
890       SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC)  argument
907       REAL             SCOMP(LEN), SSIZE(LEN), STRUE(LEN)  local
925          IF (ABS(SFAC*SD) .LE. ABS(SSIZE(I))*EPSILON(ZERO))
936      +     STRUE(I), SD, SSIZE(I)
946       SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)  argument
958       REAL              SSIZE(*)  local
967       CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)