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