C SSCAL     SOURCE    CHAT      05/01/13    03:24:33     5004           
       SUBROUTINE SSCAL (F,T,IN,SC,L)

      IMPLICIT INTEGER(I-N)
       IMPLICIT REAL*8 (A-H,O-Z)
       DIMENSION F(L,*),T(*)
-INC CCOPTIO

       SC=0.D0
       IF (L.LE.0) GOTO 9999
       DO 10 I=1,L
            SC=SC+T(I)*F(I,IN)
 10    CONTINUE



 9999  RETURN
       END