54       DOUBLE PRECISION SFAC  variable
61       DATA             SFAC/9.765625D-4/
78             CALL CHECK2(SFAC)
80             CALL CHECK1(SFAC)
118       SUBROUTINE CHECK1(SFAC)  argument
123       DOUBLE PRECISION  SFAC  local
253      +                     SFAC)
257      +                     SFAC)
262      +                    SFAC)
267      +                    SFAC)
289          CALL CTEST(5,CX,MWPCT,MWPCS,SFAC)
299          CALL CTEST(5,CX,MWPCT,MWPCS,SFAC)
307          CALL CTEST(5,CX,MWPCT,MWPCS,SFAC)
315          CALL CTEST(5,CX,MWPCT,MWPCS,SFAC)
319       SUBROUTINE CHECK2(SFAC)  argument
324       DOUBLE PRECISION  SFAC  local
536                CALL CTEST(1,CDOT,CT6(KN,KI),CSIZE1(KN),SFAC)
540                CALL CTEST(1,CDOT,CT7(KN,KI),CSIZE1(KN),SFAC)
544                CALL CTEST(LENY,CY,CT8(1,KN,KI),CSIZE2(1,KSIZE),SFAC)
563       SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC)  argument
577       DOUBLE PRECISION SFAC  local
598          IF (ABS(SFAC*SD) .LE. ABS(SSIZE(I))*EPSILON(ZERO))
619       SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)  argument
629       DOUBLE PRECISION  SCOMP1, SFAC, STRUE1  local
640       CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)
654       SUBROUTINE CTEST(LEN,CCOMP,CTRUE,CSIZE,SFAC)  argument
660       DOUBLE PRECISION SFAC  local
682       CALL STEST(2*LEN,SCOMP,STRUE,SSIZE,SFAC)