Sources Esope | Cast3M

sscal
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 PPARAM
-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