563       SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC)  argument
580       REAL             SCOMP(LEN), SSIZE(LEN), STRUE(LEN)  local
597          SD = SCOMP(I) - STRUE(I)
609      +     STRUE(I), SD, SSIZE(I)
633       REAL              SCOMP(1), STRUE(1)  local
639       STRUE(1) = STRUE1
640       CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)
667       REAL             SCOMP(20), SSIZE(20), STRUE(20)  local
676          STRUE(2*I-1) = REAL(CTRUE(I))
677          STRUE(2*I) = AIMAG(CTRUE(I))
682       CALL STEST(2*LEN,SCOMP,STRUE,SSIZE,SFAC)