54       DOUBLE PRECISION SFAC  variable
126       SUBROUTINE CHECK0(SFAC)  argument
131       DOUBLE PRECISION  SFAC  local
242       SUBROUTINE CHECK1(SFAC)  argument
247       DOUBLE PRECISION  SFAC  local
336       SUBROUTINE CHECK2(SFAC)  argument
341       DOUBLE PRECISION  SFAC  local
680       SUBROUTINE CHECK3(SFAC)  argument
685       DOUBLE PRECISION  SFAC  local
886       SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC)  argument
900       DOUBLE PRECISION SFAC  local
942       SUBROUTINE TESTDSDOT(SCOMP,STRUE,SSIZE,SFAC)  argument
956       REAL             SFAC, SCOMP, SSIZE, STRUE  local
990       SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)  argument
1000       DOUBLE PRECISION  SCOMP1, SFAC, STRUE1  local