54       REAL             SFAC  variable
61       DATA             SFAC/9.765625E-4/
78             CALL CHECK2(SFAC)
80             CALL CHECK1(SFAC)
118       SUBROUTINE CHECK1(SFAC)  argument
123       REAL              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       REAL              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       REAL             SFAC  local
598          IF (ABS(SFAC*SD) .LE. ABS(SSIZE(I))*EPSILON(ZERO))
619       SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)  argument
629       REAL              SCOMP1, SFAC, STRUE1  local
640       CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)
654       SUBROUTINE CTEST(LEN,CCOMP,CTRUE,CSIZE,SFAC)  argument
660       REAL             SFAC  local
682       CALL STEST(2*LEN,SCOMP,STRUE,SSIZE,SFAC)