c_______________________________________________________________________________
c
c   Esta subrutina calcula el producto escalar de dos vectores v1(n), v2(n).
c_______________________________________________________________________________

      Subroutine ProductoEscalar(n,v1,v2,w)
      implicit real*8 (a-h,o-z)
      dimension v1(n),v2(n)

      w=0.d+00
      do i=1,n
        w=w+v1(i)*v2(i)
      enddo

      return
      end
