521       SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC)  argument
537       REAL             SCOMP(LEN), SSIZE(LEN), STRUE(LEN)  local
555          IF (SDIFF(ABS(SSIZE(I))+ABS(SFAC*SD),ABS(SSIZE(I))).EQ.0.0E0)
566      +     STRUE(I), SD, SSIZE(I)
576       SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)  argument
588       REAL              SSIZE(*)  local
597       CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)
624       REAL             SCOMP(20), SSIZE(20), STRUE(20)  local
635          SSIZE(2*I-1) = REAL(CSIZE(I))
636          SSIZE(2*I) = AIMAG(CSIZE(I))
639       CALL STEST(2*LEN,SCOMP,STRUE,SSIZE,SFAC)