WNLT2(3)

SYNOPSIS
LOGICAL FUNCTION WNLT2 (ME, MEND, IR, FACTOR, TAU, SCALE, WIC)

NAME
wnlt2 - Subsidiary to WNLIT

LIBRARY
SLATEC

TYPE
SINGLE PRECISION (WNLT2-S, DWNLT2-D)

AUTHOR
Hanson, R. J., (SNLA) Haskell, K. H., (SNLA)

DESCRIPTION
To test independence of incoming column. Test the column IC to determine if it is linearly independent of the columns already in the basis. In the initial tri. step, we usually want the heavy weight ALAMDA to be included in the test for independence. In this case, the value of FACTOR will have been set to 1.E0 before this procedure is invoked. In the potentially rank deficient problem, the value of FACTOR will have been set to ALSQ=ALAMDA**2 to remove the effect of the heavy weight from the test for independence. Write new column as partitioned vector (A1) number of components in solution so far = NIV (A2) M-NIV components And compute SN = inverse weighted length of A1 RN = inverse weighted length of A2 Call the column independent when RN .GT. TAU*SN

SEE ALSO
WNILT

ROUTINES CALLED
(NONE)

REVISION HISTORY (YYMMDD)
790701 DATE WRITTEN
890620 Code extracted from WNLIT and made a subroutine. (RWC))