SUBROUTINE SCALQN(KDIM,PX,PY,DDSC,KZS,PZS,PDZS)

      IMPLICIT NONE
      INTEGER KDIM

      INTEGER KZS(1),I
      REAL PZS(1),PX(KDIM),PY(KDIM)
      REAL*8 PDZS(1),DDSC

      DDSC = 0.
      DO I=1,KDIM
         DDSC = DDSC + DBLE(PX(I))*DBLE(PY(I))
      ENDDO

      RETURN
      END