HP MLIB User's Guide Vol. 2 7th Ed.

Chapter 13 Sparse Linear Equations 951

Matrix value input by column DSLEVC

INTEGER*8 jcol, nzcol, jrowin(nzcol), ier

REAL*4 values(nzcol)

REAL*8 global(150)

CALL SSLEVC(jcol, nzcol, jrowin, values, global, ier)

INTEGER*8 jcol, nzcol, jrowin(nzcol), ier

REAL*8 values(nzcol)

REAL*8 global(150)

CALL DSLEVC(jcol, nzcol, jrowin, values, global, ier)

INTEGER*8 jcol, nzcol, jrowin(nzcol), ier

REAL*16 values(nzcol)

REAL*8 global(150)

CALL QSLEVC(jcol, nzcol, jrowin, values, global, ier)

INTEGER*8 jcol, nzcol, jrowin(nzcol), ier

COMPLEX*8 values(nzcol)

REAL*8 global(150)

CALL CSLEVC(jcol, nzcol, jrowin, values, global, ier)

INTEGER*8 jcol, nzcol, jrowin(nzcol), ier

COMPLEX*16 values(nzcol)

REAL*8 global(150)

CALL ZSLEVC(jcol, nzcol, jrowin, values, global, ier)

Input jcol Column index; 1 ≤ jcol ≤ neqns.

nzcol Number of nonzeros in the list of nonzeros for column

jcol of the matrix; nzcol ≥ 0.

jrowin For a symmetric matrix (LDL’ factorization), a list of

row indices for nonzeros, in ascending order, in the

lower triangular part of column jcol of the matrix; jcol

≤ jrowin(1) < jrowin(2) < ... < jrowin(nzcol) ≤ neqns.

For a nonsymmetric matrix (LU factorization), a list of

row indices for nonzeros, in ascending order, in column

jcol of the matrix; 1 ≤ jrowin(1) < jrowin(2) < ... <

jrowin(nzcol) ≤ neqns. Exceptionally, if present, the

diagonal entry can either be the ﬁrst element of jrowin

or ascendingly ordered as described above.

values List of values corresponding to the positions speciﬁed

by jcol and jrowin.