54       DOUBLE PRECISION SFAC  variable
118       SUBROUTINE CHECK1(SFAC)  argument
123       DOUBLE PRECISION  SFAC  local
319       SUBROUTINE CHECK2(SFAC)  argument
324       DOUBLE PRECISION  SFAC  local
563       SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC)  argument
577       DOUBLE PRECISION SFAC  local
619       SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)  argument
629       DOUBLE PRECISION  SCOMP1, SFAC, STRUE1  local
654       SUBROUTINE CTEST(LEN,CCOMP,CTRUE,CSIZE,SFAC)  argument
660       DOUBLE PRECISION SFAC  local