ddot Function

public function ddot(n, dx, incx, dy, incy)

Dot product of two vectors.

Arguments

Type IntentOptional Attributes Name
integer(kind=ip), intent(in) :: n

the number of entries in the vectors.
real(kind=wp), intent(in) :: dx(*)

the first vector
integer(kind=ip), intent(in) :: incx

the increment between successive entries in DX.
real(kind=wp), intent(in) :: dy(*)

the second vector
integer(kind=ip), intent(in) :: incy

the increment between successive entries in DY.

Return Value real(kind=wp)


Source Code

      function ddot  (n,dx,incx,dy,incy)
         implicit none
         integer, intent(in)          :: n,incx,incy
         double precision, intent(in) :: dx(*),dy(*)
         double precision             :: ddot
      end function ddot