886       SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC)  argument
903       DOUBLE PRECISION SCOMP(LEN), SSIZE(LEN), STRUE(LEN)  local
920          SD = SCOMP(I) - STRUE(I)
931    20    WRITE (NOUT,99997) ICASE, N, INCX, INCY, I, SCOMP(I),
942       SUBROUTINE TESTDSDOT(SCOMP,STRUE,SSIZE,SFAC)  argument
956       REAL             SFAC, SCOMP, SSIZE, STRUE  local
968          SD = SCOMP - STRUE
979    20    WRITE (NOUT,99997) ICASE, N, INCX, INCY, SCOMP,
1004       DOUBLE PRECISION  SCOMP(1), STRUE(1)  local
1009       SCOMP(1) = SCOMP1
1011       CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)