54       REAL             SFAC  variable
61       DATA             SFAC/9.765625E-4/
77             CALL CHECK0(SFAC)
80             CALL CHECK1(SFAC)
83             CALL CHECK2(SFAC)
85             CALL CHECK3(SFAC)
126       SUBROUTINE CHECK0(SFAC)  argument
131       REAL              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       REAL              SFAC  local
313                CALL STEST1(SNRM2(N,SX,INCX),STEMP(1),STEMP,SFAC)
317                CALL STEST1(SASUM(N,SX,INCX),STEMP(1),STEMP,SFAC)
324                CALL STEST(LEN,SX,STRUE,STRUE,SFAC)
336       SUBROUTINE CHECK2(SFAC)  argument
341       REAL              SFAC  local
619      +                     ,SFAC)
626                CALL STEST(LENY,SY,STY,SSIZE2(1,KSIZE),SFAC)
669                   CALL   STEST(LENX,SX,STX,SSIZE,SFAC)
670                   CALL   STEST(LENY,SY,STY,STY,SFAC)
675      $                 ST7B(KN,KI),SSIZE3(KN),SFAC)
684       SUBROUTINE CHECK3(SFAC)  argument
689       REAL              SFAC  local
786                CALL STEST(LENX,SX,STX,SSIZE2(1,KSIZE),SFAC)
787                CALL STEST(LENY,SY,STY,SSIZE2(1,KSIZE),SFAC)
885          CALL STEST(5,COPYX,MWPSTX,MWPSTX,SFAC)
886          CALL STEST(5,COPYY,MWPSTY,MWPSTY,SFAC)
890       SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC)  argument
904       REAL             SFAC  local
925          IF (ABS(SFAC*SD) .LE. ABS(SSIZE(I))*EPSILON(ZERO))
946       SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)  argument
956       REAL              SCOMP1, SFAC, STRUE1  local
967       CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)