522       SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC)  argument
538       REAL             SCOMP(LEN), SSIZE(LEN), STRUE(LEN)  local
556          IF (SDIFF(ABS(SSIZE(I))+ABS(SFAC*SD),ABS(SSIZE(I))).EQ.0.0E0)
567      +     STRUE(I), SD, SSIZE(I)
577       SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)  argument
589       REAL              SSIZE(*)  local
598       CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)
625       REAL             SCOMP(20), SSIZE(20), STRUE(20)  local
636          SSIZE(2*I-1) = REAL(CSIZE(I))
637          SSIZE(2*I) = AIMAG(CSIZE(I))
640       CALL STEST(2*LEN,SCOMP,STRUE,SSIZE,SFAC)