scales a vector by a constant. uses unrolled loops for increment 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(inout), | dimension(*) | :: | dx | ||
integer, | intent(in) | :: | incx |
pure subroutine dscal(n,da,dx,incx) import :: wp implicit none integer,intent(in) :: n real(wp),intent(in) :: da real(wp),dimension(*),intent(inout) :: dx integer,intent(in) :: incx end subroutine dscal