constant times a vector plus a vector. 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) | :: | da | |||
real(kind=wp), | intent(in), | dimension(*) | :: | dx | ||
integer, | intent(in) | :: | incx | |||
real(kind=wp), | intent(inout), | dimension(*) | :: | dy | ||
integer, | intent(in) | :: | incy |
pure subroutine daxpy(n,da,dx,incx,dy,incy) import :: wp implicit none integer,intent(in) :: n real(wp),intent(in) :: da real(wp),dimension(*),intent(in) :: dx integer,intent(in) :: incx real(wp),dimension(*),intent(inout) :: dy integer,intent(in) :: incy end subroutine daxpy