12       DOUBLE PRECISION SFAC  variable
76       SUBROUTINE CHECK1(SFAC)  argument
81       DOUBLE PRECISION  SFAC  local
277       SUBROUTINE CHECK2(SFAC)  argument
282       DOUBLE PRECISION  SFAC  local
522       SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC)  argument
535       DOUBLE PRECISION SFAC  local
577       SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)  argument
587       DOUBLE PRECISION  SCOMP1, SFAC, STRUE1  local
612       SUBROUTINE CTEST(LEN,CCOMP,CTRUE,CSIZE,SFAC)  argument
618       DOUBLE PRECISION SFAC  local