521       SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC)  argument
537       REAL             SCOMP(LEN), SSIZE(LEN), STRUE(LEN)  local
554          SD = SCOMP(I) - STRUE(I)
565    20    WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, I, SCOMP(I),
590       REAL              SCOMP(1), STRUE(1)  local
595       SCOMP(1) = SCOMP1
597       CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)
624       REAL             SCOMP(20), SSIZE(20), STRUE(20)  local
631          SCOMP(2*I-1) = REAL(CCOMP(I))
632          SCOMP(2*I) = AIMAG(CCOMP(I))
639       CALL STEST(2*LEN,SCOMP,STRUE,SSIZE,SFAC)