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

Chapter 13 Sparse Linear Equations 955
Matrix value input by finite element DSLEVE
INTEGER*8 nnode, ldelmx, nodlst(nnode), ier
REAL*4 elmmtx(ldelmx, nnode)
REAL*8 global(150)
CALL SSLEVE(nnode, nodlst, elmmtx, ldelmx, global, ier)
INTEGER*8 nnode, ldelmx, nodlst(nnode), ier
REAL*8 elmmtx(ldelmx, nnode), global(150)
REAL*8 global(150)
CALL DSLEVE(nnode, nodlst, elmmtx, ldelmx, global, ier)
INTEGER*8 nnode, ldelmx, nodlst(nnode), ier
REAL*16 elmmtx(ldelmx, nnode)
REAL*8 global(150)
CALL QSLEVE(nnode, nodlst, elmmtx, ldelmx, global, ier)
INTEGER*8 nnode, ldelmx, nodlst(nnode), ier
COMPLEX*8 elmmtx(ldelmx, nnode)
REAL*8 global(150)
CALL CSLEVE(nnode, nodlst, elmmtx, ldelmx, global, ier)
INTEGER*8 nnode, ldelmx, nodlst(nnode), ier
COMPLEX*16 elmmtx(ldelmx, nnode)
REAL*8 global(150)
CALL ZSLEVE(nnode, nodlst, elmmtx, ldelmx, global, ier)
Input nnode Number of nodes in the finite element or clique.
nodlst List of nodes in element or clique. Values for all pairs
(nodlst(i),nodlst(j)) are added to the values of the
matrix.
elmmtx 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.
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.