Esope source files

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