wnlt1.f
SUBROUTINE WNLT1 (I, LEND, MEND, IR, MDW, RECALC, IMAX, HBAR, H,
+ SCALE, W)
C***BEGIN PROLOGUE WNLT1
....
....
Warning: this routine is not intended to be user-callable.
....
....
C***SUBSIDIARY
C***PURPOSE Subsidiary to WNLIT
C***LIBRARY SLATEC
C***TYPE SINGLE PRECISION (WNLT1-S, DWNLT1-D)
C***AUTHOR Hanson, R. J., (SNLA)
C Haskell, K. H., (SNLA)
C***DESCRIPTION
C
C To update the column Sum Of Squares and find the pivot column.
C The column Sum of Squares Vector will be updated at each step.
C When numerically necessary, these values will be recomputed.
C
C***SEE ALSO WNLIT
C***ROUTINES CALLED ISAMAX
C***REVISION HISTORY (YYMMDD)
C 790701 DATE WRITTEN
C 890620 Code extracted from WNLIT and made a subroutine. (RWC))
C***END PROLOGUE WNLT1