Esope source files

   1 : C SSCAL     SOURCE    CHAT      05/01/13    03:24:33     5004           
   2 :        SUBROUTINE SSCAL (F,T,IN,SC,L)
   3 : 
   4 :       IMPLICIT INTEGER(I-N)
   5 :        IMPLICIT REAL*8 (A-H,O-Z)
   6 :        DIMENSION F(L,*),T(*)
   7 : -INC CCOPTIO
   8 : 
   9 :        SC=0.D0
  10 :        IF (L.LE.0) GOTO 9999
  11 :        DO 10 I=1,L
  12 :             SC=SC+T(I)*F(I,IN)
  13 :  10    CONTINUE
  14 : 
  15 : 
  16 : 
  17 :  9999  RETURN
  18 :        END
  19 : 
  20 :  
  21 :