Perform column interchange. Exchange elements of permuted index vector and perform column interchanges.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | i | |||
integer, | intent(in) | :: | imax | |||
integer, | intent(in) | :: | m | |||
integer, | intent(in) | :: | mdw | |||
integer, | intent(inout) | :: | ipivot(*) | |||
real(kind=wp), | intent(inout) | :: | h(*) | |||
real(kind=wp), | intent(inout) | :: | w(mdw,*) |
subroutine dwnlt3 (i, imax, m, mdw, ipivot, h, w) integer,intent(in) :: i integer,intent(in) :: imax integer,intent(inout) :: ipivot(*) integer ,intent(in):: m integer,intent(in) :: mdw real(wp),intent(inout) :: h(*) real(wp),intent(inout) :: w(mdw,*) real(wp) :: t integer :: itemp if (imax/=i) then itemp = ipivot(i) ipivot(i) = ipivot(imax) ipivot(imax) = itemp call dswap(m, w(1,imax), 1, w(1,i), 1) t = h(imax) h(imax) = h(i) h(i) = t endif end subroutine dwnlt3