Lines Matching refs:SFAC
12 DOUBLE PRECISION SFAC variable
19 DATA SFAC/9.765625D-4/
36 CALL CHECK0(SFAC)
39 CALL CHECK1(SFAC)
42 CALL CHECK2(SFAC)
44 CALL CHECK3(SFAC)
82 SUBROUTINE CHECK0(SFAC) argument
87 DOUBLE PRECISION SFAC local
132 CALL STEST1(SA,DATRUE(K),DATRUE(K),SFAC)
133 CALL STEST1(SB,DBTRUE(K),DBTRUE(K),SFAC)
134 CALL STEST1(SC,DC1(K),DC1(K),SFAC)
135 CALL STEST1(SS,DS1(K),DS1(K),SFAC)
143 SUBROUTINE CHECK1(SFAC) argument
148 DOUBLE PRECISION SFAC local
214 CALL STEST1(DNRM2TEST(N,SX,INCX),STEMP,STEMP,SFAC)
218 CALL STEST1(DASUMTEST(N,SX,INCX),STEMP,STEMP,SFAC)
225 CALL STEST(LEN,SX,STRUE,STRUE,SFAC)
237 SUBROUTINE CHECK2(SFAC) argument
242 DOUBLE PRECISION SFAC local
360 + SSIZE1(KN),SFAC)
367 CALL STEST(LENY,SY,STY,SSIZE2(1,KSIZE),SFAC)
392 SUBROUTINE CHECK3(SFAC) argument
397 DOUBLE PRECISION SFAC local
494 CALL STEST(LENX,SX,STX,SSIZE2(1,KSIZE),SFAC)
495 CALL STEST(LENY,SY,STY,SSIZE2(1,KSIZE),SFAC)
593 CALL STEST(5,COPYX,MWPSTX,MWPSTX,SFAC)
594 CALL STEST(5,COPYY,MWPSTY,MWPSTY,SFAC)
598 SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) argument
611 DOUBLE PRECISION SFAC local
632 IF (SDIFF(ABS(SSIZE(I))+ABS(SFAC*SD),ABS(SSIZE(I))).EQ.0.0D0)
653 SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC) argument
663 DOUBLE PRECISION SCOMP1, SFAC, STRUE1 local
674 CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)