Sources Esope | Cast3M

sscal2
C SSCAL2    SOURCE    CHAT      05/01/13    03:24:28     5004
          SUBROUTINE SSCAL2 (DF,Q,IN,SC2,J,K,L,N)
      IMPLICIT INTEGER(I-N)
          IMPLICIT REAL*8 (A-H,O-Z)
 
-INC PPARAM
-INC CCOPTIO
 
          DIMENSION DF(K,L,N),Q(L)
 
          SC2=0.D0
          IF (L.LE.0) GOTO 9999
          DO 10 I=1,L
 
                SC2=SC2+Q(I)*DF(J,I,IN)
 
 10       CONTINUE
 
 9999     RETURN
          END