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