multvec.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	multvec (n, x, y, dot)

Function/Subroutine Documentation

multvec()

subroutine multvec	(	integer	n,
		real*8, dimension(*)	x,
		real*8, dimension(*)	y,
		real*8	dot
	)

!
!     calculates the dot product of two vectors x and y of length n
!
      implicit none
!
      integer i,n
!
      real*8 x(*),y(*),dot
!
      dot=0.d0
      do i=1,n
         dot=dot+x(i)*y(i)
      enddo
!
      return