Lines Matching refs:SFAC
12 REAL SFAC variable
19 DATA SFAC/9.765625E-4/
36 CALL CHECK2(SFAC)
38 CALL CHECK1(SFAC)
76 SUBROUTINE CHECK1(SFAC) argument
81 REAL SFAC local
211 + STRUE2(NP1), SFAC)
215 + STRUE4(NP1),SFAC)
220 + SFAC)
225 + SFAC)
247 CALL CTEST(5,CX,MWPCT,MWPCS,SFAC)
257 CALL CTEST(5,CX,MWPCT,MWPCS,SFAC)
265 CALL CTEST(5,CX,MWPCT,MWPCS,SFAC)
273 CALL CTEST(5,CX,MWPCT,MWPCS,SFAC)
277 SUBROUTINE CHECK2(SFAC) argument
282 REAL SFAC local
494 CALL CTEST(1,CDOT,CT6(KN,KI),CSIZE1(KN),SFAC)
499 CALL CTEST(1,CDOT,CT7(KN,KI),CSIZE1(KN),SFAC)
503 CALL CTEST(LENY,CY,CT8(1,KN,KI),CSIZE2(1,KSIZE),SFAC)
522 SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) argument
535 REAL SFAC local
556 IF (SDIFF(ABS(SSIZE(I))+ABS(SFAC*SD),ABS(SSIZE(I))).EQ.0.0E0)
577 SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC) argument
587 REAL SCOMP1, SFAC, STRUE1 local
598 CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)
612 SUBROUTINE CTEST(LEN,CCOMP,CTRUE,CSIZE,SFAC) argument
618 REAL SFAC local
640 CALL STEST(2*LEN,SCOMP,STRUE,SSIZE,SFAC)