forms the dot product of two vectors. uses unrolled loops for increments equal to one.
jack dongarra, linpack, 3/11/78.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | n | |||
real(kind=wp), | intent(in), | dimension(*) | :: | dx | ||
integer, | intent(in) | :: | incx | |||
real(kind=wp), | intent(in), | dimension(*) | :: | dy | ||
integer, | intent(in) | :: | incy |
pure real(wp) function ddot(n,dx,incx,dy,incy) import :: wp implicit none integer,intent(in) :: n real(wp),dimension(*),intent(in) :: dx integer,intent(in) :: incx real(wp),dimension(*),intent(in) :: dy integer,intent(in) :: incy end function ddot