copies a vector, x, to a vector, y. 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(out), | dimension(*) | :: | dy | ||
integer, | intent(in) | :: | incy |
pure subroutine dcopy(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(out) :: dy integer,intent(in) :: incy end subroutine dcopy