92       DOUBLE PRECISION  SA, SB, SC, SS  local
129             SA = DA1(K)
131             CALL DROTGTEST(SA,SB,SC,SS)
132             CALL STEST1(SA,DATRUE(K),DATRUE(K),SFAC)
156      +                  SA(10), STEMP(1), STRUE(8), SX(8)  local
169       DATA              SA/0.3D0, -1.0D0, 0.0D0, 1.0D0, 0.3D0, 0.3D0,
221                CALL DSCALTEST(N,SA((INCX-1)*5+NP1),SX,INCX)
247       DOUBLE PRECISION  SA  local
265       DATA              SA/0.3D0/
363                CALL DAXPYTEST(N,SA,SX,INCX,SY,INCY)
678       DOUBLE PRECISION FUNCTION SDIFF(SA,SB)
683       DOUBLE PRECISION                SA, SB  local
685       SDIFF = SA - SB