255      +                  SA(10), STEMP(1), STRUE(8), SX(8)  local
322                   STRUE(I) = DTRUE5(I,NP1,INCX)
324                CALL STEST(LEN,SX,STRUE,STRUE,SFAC)
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)
932      +     STRUE(I), SD, SSIZE(I)
942       SUBROUTINE TESTDSDOT(SCOMP,STRUE,SSIZE,SFAC)  argument
956       REAL             SFAC, SCOMP, SSIZE, STRUE  local
968          SD = SCOMP - STRUE
980      +     STRUE, SD, SSIZE
1004       DOUBLE PRECISION  SCOMP(1), STRUE(1)  local
1010       STRUE(1) = STRUE1
1011       CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)