563       SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC)  argument
580       DOUBLE PRECISION SCOMP(LEN), SSIZE(LEN), STRUE(LEN)  local
597          SD = SCOMP(I) - STRUE(I)
608    20    WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, I, SCOMP(I),
633       DOUBLE PRECISION  SCOMP(1), STRUE(1)  local
638       SCOMP(1) = SCOMP1
640       CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)
667       DOUBLE PRECISION SCOMP(20), SSIZE(20), STRUE(20)  local
674          SCOMP(2*I-1) = DBLE(CCOMP(I))
675          SCOMP(2*I) = DIMAG(CCOMP(I))
682       CALL STEST(2*LEN,SCOMP,STRUE,SSIZE,SFAC)