522       SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC)  argument
538       DOUBLE PRECISION SCOMP(LEN), SSIZE(LEN), STRUE(LEN)  local
555          SD = SCOMP(I) - STRUE(I)
567      +     STRUE(I), SD, SSIZE(I)
591       DOUBLE PRECISION  SCOMP(1), STRUE(1)  local
597       STRUE(1) = STRUE1
598       CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)
625       DOUBLE PRECISION SCOMP(20), SSIZE(20), STRUE(20)  local
634          STRUE(2*I-1) = DBLE(CTRUE(I))
635          STRUE(2*I) = DIMAG(CTRUE(I))
640       CALL STEST(2*LEN,SCOMP,STRUE,SSIZE,SFAC)