dwnlt3.f
SUBROUTINE DWNLT3 (I, IMAX, M, MDW, IPIVOT, H, W)
C***BEGIN PROLOGUE DWNLT3
....
....
Warning: this routine is not intended to be user-callable.
....
....
C***SUBSIDIARY
C***PURPOSE Subsidiary to WNLIT
C***LIBRARY SLATEC
C***TYPE DOUBLE PRECISION (WNLT3-S, DWNLT3-D)
C***AUTHOR Hanson, R. J., (SNLA)
C Haskell, K. H., (SNLA)
C***DESCRIPTION
C
C Perform column interchange.
C Exchange elements of permuted index vector and perform column
C interchanges.
C
C***SEE ALSO DWNLIT
C***ROUTINES CALLED DSWAP
C***REVISION HISTORY (YYMMDD)
C 790701 DATE WRITTEN
C 890620 Code extracted from WNLIT and made a subroutine. (RWC))
C 900604 DP version created from SP version. (RWC)
C***END PROLOGUE DWNLT3