12       DOUBLE PRECISION SFAC  variable
82       SUBROUTINE CHECK0(SFAC)  argument
87       DOUBLE PRECISION  SFAC  local
143       SUBROUTINE CHECK1(SFAC)  argument
148       DOUBLE PRECISION  SFAC  local
237       SUBROUTINE CHECK2(SFAC)  argument
242       DOUBLE PRECISION  SFAC  local
392       SUBROUTINE CHECK3(SFAC)  argument
397       DOUBLE PRECISION  SFAC  local
598       SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC)  argument
611       DOUBLE PRECISION SFAC  local
653       SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)  argument
663       DOUBLE PRECISION  SCOMP1, SFAC, STRUE1  local