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

956 HP MLIB User’s Guide
DSLEVE Matrix value input by finite element
ier = −400 Incorrect processing path; DSLEOR
not called.
ier = −401 Error in dynamic storage allocation.
ier = −402 At least one subscript pair
(nodlst(k),nodlst(l)) was not specified
in structure input. No room for value.
Example Rows and columns 345, 346, 347, and 989 form a small dense submatrix of A.
Add the value 1.0 to the values in the positions consisting of all pairs of
numbers from this set to the list of nonzeros in the matrix.
INTEGER*4 NNODE,NODLST(10),IER
REAL*8 ELMMTX(10,10),GLOBAL(150)
NNODE = 4
NODLST(1) = 345
NODLST(2) = 346
NODLST(3) = 347
NODLST(4) = 989
DO 200 K = 1, NNODE
DO 100 L = K, NNODE
ELMMTX(K,L) = 1.0D0
100 CONTINUE
200 CONTINUE
CALL DSLEVE (NNODE,NODLST,ELMMTX,10,GLOBAL,IER)
IF ( IER .NE. 0 ) THEN
handle error condition
ENDIF