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

Chapter 13 Sparse Linear Equations 941
Return diagonal elements of matrix in its current form DSLERD
Name DSLERD
Return diagonal elements of matrix in its current form
Purpose This subprogram is called after the matrix value input is complete. This
operation is not implemented for nonsymmetric matrices. It returns the
diagonal elements of the sparse matrix in its current form:
• If the matrix has not been factored, diag (A) is returned.
• If the matrix has been factored, diag (D) is returned.
The diagonal elements can be returned in the original order or in the permuted
order if reordering has been completed.
NOTE Matrix structure input by matrix supports five data types. Matrix structure
input by elements, columns, and finite elements supports only REAL*8
precision.
Usage VECLIB:
CHARACTER*1 job
INTEGER*4 ier
REAL*4 diag(neqns)
REAL*8 global(150)
CALL SSLERD(job, diag, global, ier)
CHARACTER*1 job
INTEGER*4 ier
REAL*8 diag(neqns)
REAL*8 global(150)
CALL DSLERD(job, diag, global, ier)
CHARACTER*1 job
INTEGER*4 ier
REAL*16 diag(neqns)
REAL*8 global(150)
CALL QSLERD(job, diag, global, ier)
CHARACTER*1 job
INTEGER*4 ier
COMPLEX*8 diag(neqns)
REAL*8 global(150)
CALL CSLERD(job, diag, global, ier)
CHARACTER*1 job