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

Chapter 15 Sparse Eigenvalues and Eigenvectors 1075
Matrix value input by finite element DSEVVE
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 matrix A.
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 DSEVVE (’A’,NNODE,NODLST,ELMMTX,10,GLOBAL,IER)
IF ( IER .NE. 0 ) THEN
handle error condition
ENDIF