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

Chapter 15 Sparse Eigenvalues and Eigenvectors 1073
Matrix value input by finite element DSEVVE
Name DSEVVE
Matrix value input by finite element
Purpose This subprogram adds to the values of a set of nonzero entries in the lower
triangle of one of the sparse matrices corresponding to a finite element or
clique.
Usage VECLIB:
CHARACTER*1 matrix
INTEGER*4 nnode, ldelmx, nodlst(nnode), ier
REAL*8 elmmtx(ldelmx, nnode), global(150)
CALL DSEVVE(matrix, nnode, nodlst, elmmtx, ldelmx, global, ier)
VECLIB8:
CHARACTER*1 matrix
INTEGER*8 nnode, ldelmx, nodlst(nnode), ier
REAL*8 elmmtx(ldelmx, nnode), global(150)
CALL DSEVVE(matrix, nnode, nodlst, elmmtx, ldelmx, global, ier)
Input matrix Character string denoting the matrix for which the
nonzero location is being input:
’A’ or ’a’ or
’K’ or ’k’ Add to the matrix on the left side.
’B’ or ’b’ or
’M’ or ’m’ Add to the matrix on the right side.
nnode Number of nodes in the finite element or clique,
1 ≤ nnode ≤ norder, where norder is the matrix order
as specified in the call to DSEVIN.
nodlst List of nodes in element or clique, 1 ≤ nodlst(i) ≤ norder
for all i, and nodlst(i) ≠ nodlst(j) for all i and j with i ≠ j.
Values for all pairs (nodlst(i),nodlst(j)) in the lower
triangle are added to the values of the matrix
designated by matrix.
elmmtx A two-dimensional array containing values to be added
to the matrix. Only the lower triangle (including the
diagonal) of elmmtx is referenced. The value in
elmmtx(k,l) is added to the value in position
(nodlst(k),nodlst(l)) in the sparse matrix.
ldelmx The leading dimension of array elmmtx as declared in
the calling program unit, with ldelmx ≥ nnode.