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

954 HP MLIB User’s Guide
DSLEVE Matrix value input by finite element
Name DSLEVE
Matrix value input by finite element
Purpose This subprogram adds to the values of a set of nonzero entries in the lower
triangle of the sparse matrix corresponding to a finite element or clique.
NOTE Matrix structure input by matrix supports five data types. Matrix structure
input by elements, columns, and finite elements supports only REAL*8
precision. Calls to DSLEV1, DSLEVC, DSLEVE, and DSLEVM can be
intermixed. Using DSLEVE is more efficient in finite element contexts, where
the matrix is created as the sum of elemental matrices, if the user has stored
the elemental matrices rather than the assembled matrix. SSLEVE, QSLEVE,
CSLEVE, and ZSLEVE can only be used if the matrix input format was
specified using SSLEIM, QSLEIM, CSLEIM, or ZSLEIM respectively.
Usage VECLIB:
INTEGER*4 nnode, ldelmx, nodlst(nnode), ier
REAL*4 elmmtx(ldelmx, nnode)
REAL*8 global(150)
CALL SSLEVE(nnode, nodlst, elmmtx, ldelmx, global, ier)
INTEGER*4 nnode, ldelmx, nodlst(nnode), ier
REAL*8 elmmtx(ldelmx, nnode)
REAL*8 global(150)
CALL DSLEVE(nnode, nodlst, elmmtx, ldelmx, global, ier)
INTEGER*4 nnode, ldelmx, nodlst(nnode), ier
REAL*16 elmmtx(ldelmx, nnode)
REAL*8 global(150)
CALL QSLEVE(nnode, nodlst, elmmtx, ldelmx, global, ier)
INTEGER*4 nnode, ldelmx, nodlst(nnode), ier
COMPLEX*8 elmmtx(ldelmx, nnode)
REAL*8 global(150)
CALL CSLEVE(nnode, nodlst, elmmtx, ldelmx, global, ier)
INTEGER*4 nnode, ldelmx, nodlst(nnode), ier
COMPLEX*16 elmmtx(ldelmx, nnode)
REAL*8 global(150)
CALL ZSLEVE(nnode, nodlst, elmmtx, ldelmx, global, ier)
VECLIB8: