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

Chapter 13 Sparse Linear Equations 957
Matrix value Input by matrix DSLEVM
Name DSLEVM
Matrix value Input by matrix
Purpose This subprogram updates the values of many or all of the nonzero entries in the
sparse matrix.
NOTE Matrix structure input by matrix supports five data types. Matrix structure
input by elements, columns, and finite elements supports only REAL*8
precision. This is the most efficient mechanism for specifying the nonzero
values. Normally, DSLEVM is used in conjunction with DSLEIM. Additional
entries or modifications can be entered with DSLEV1, DSLEVC, or DSLEVE.
Usage VECLIB:
INTEGER*4 neqns, nnzero, colstr(neqns+1), rowind(nnzero), ier
REAL*4 values(nnzero)
REAL*8 global(150)
CALL SSLEVM(colstr, rowind, values, global, ier)
INTEGER*4 neqns, nnzero, colstr(neqns+1), rowind(nnzero), ier
REAL*8 values(nnzero)
REAL*8 global(150)
CALL DSLEVM(colstr, rowind, values, global, ier)
INTEGER*4 neqns, nnzero, colstr(neqns+1), rowind(nnzero), ier
REAL*16 values(nnzero)
REAL*8 global(150)
CALL QSLEVM(colstr, rowind, values, global, ier)
INTEGER*4 neqns, nnzero, colstr(neqns+1), rowind(nnzero), ier
COMPLEX*8 values(nnzero)
REAL*8 global(150)
CALL CSLEVM(colstr, rowind, values, global, ier)
INTEGER*4 neqns, nnzero, colstr(neqns+1), rowind(nnzero), ier
COMPLEX*16 values(nnzero)
REAL*8 global(150)
CALL ZSLEVM(colstr, rowind, values, global, ier)
VECLIB8:
INTEGER*8 neqns, nnzero, colstr(neqns+1), rowind(nnzero), ier
REAL*4 values(nnzero)
REAL*8 global(150)
CALL SSLEVM(colstr, rowind, values, global, ier)