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

948 HP MLIB User’s Guide
DSLEV1 Matrix value input by single entry
INTEGER*8 irow, jcol, ier
REAL*8 value, global(150)
REAL*8 global(150)
CALL DSLEV1(irow, jcol, value, global, ier)
INTEGER*8 irow, jcol, ier
REAL*16 value
REAL*8 global(150)
CALL QSLEV1(irow, jcol, value, global, ier)
INTEGER*8 irow, jcol, ier
COMPLEX*8 value
REAL*8 global(150)
CALL CSLEV1(irow, jcol, value, global, ier)
INTEGER*8 irow, jcol, ier
COMPLEX*16 value
REAL*8 global(150)
CALL ZSLEV1(irow, jcol, value, global, ier)
Input irow Row index of the nonzero entry. For a symmetric
matrix (LDL’ factoriation), jcol ≤ irow ≤ neqns.
jcol Column index of the nonzero entry, 1 ≤ jcol ≤ neqns.
value Numeric value that is added to any previous values
input for this location.
Updated global Global communications array for this problem. This
array must be passed, untouched by the user, to
successive subroutines in this package.
Output ier Status response:
ier = 0 Normal return.
ier = −400 Incorrect processing path; DSLEOR
not called.
ier = −401 Error in dynamic storage allocation.
ier = −402 Subscript pair (irow, jcol) was not
specified in structure input. No room
for value.
Example Store the value 4.523×10
−5
as the nonzero entry in row 3035, column 1024 of
the matrix.