54       DOUBLE PRECISION SFAC  variable
61       DATA             SFAC/9.765625D-4/
77             CALL CHECK0(SFAC)
80             CALL CHECK1(SFAC)
83             CALL CHECK2(SFAC)
85             CALL CHECK3(SFAC)
126       SUBROUTINE CHECK0(SFAC)  argument
131       DOUBLE PRECISION  SFAC  local
222             CALL STEST1(SA,DATRUE(K),DATRUE(K),SFAC)
223             CALL STEST1(SB,DBTRUE(K),DBTRUE(K),SFAC)
224             CALL STEST1(SC,DC1(K),DC1(K),SFAC)
225             CALL STEST1(SS,DS1(K),DS1(K),SFAC)
234             CALL STEST(9,DTEMP,DTRUE(1,K),DTRUE(1,K),SFAC)
242       SUBROUTINE CHECK1(SFAC)  argument
247       DOUBLE PRECISION  SFAC  local
313                CALL STEST1(DNRM2(N,SX,INCX),STEMP(1),STEMP,SFAC)
317                CALL STEST1(DASUM(N,SX,INCX),STEMP(1),STEMP,SFAC)
324                CALL STEST(LEN,SX,STRUE,STRUE,SFAC)
336       SUBROUTINE CHECK2(SFAC)  argument
341       DOUBLE PRECISION  SFAC  local
615      +                     ,SFAC)
622                CALL STEST(LENY,SY,STY,SSIZE2(1,KSIZE),SFAC)
665                   CALL   STEST(LENX,SX,STX,SSIZE,SFAC)
666                   CALL   STEST(LENY,SY,STY,STY,SFAC)
680       SUBROUTINE CHECK3(SFAC)  argument
685       DOUBLE PRECISION  SFAC  local
782                CALL STEST(LENX,SX,STX,SSIZE2(1,KSIZE),SFAC)
783                CALL STEST(LENY,SY,STY,SSIZE2(1,KSIZE),SFAC)
881          CALL STEST(5,COPYX,MWPSTX,MWPSTX,SFAC)
882          CALL STEST(5,COPYY,MWPSTY,MWPSTY,SFAC)
886       SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC)  argument
900       DOUBLE PRECISION SFAC  local
921          IF (ABS(SFAC*SD) .LE. ABS(SSIZE(I))*EPSILON(ZERO))
942       SUBROUTINE TESTDSDOT(SCOMP,STRUE,SSIZE,SFAC)  argument
956       REAL             SFAC, SCOMP, SSIZE, STRUE  local
969          IF (ABS(SFAC*SD) .LE. ABS(SSIZE) * EPSILON(ZERO))
990       SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)  argument
1000       DOUBLE PRECISION  SCOMP1, SFAC, STRUE1  local
1011       CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)