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

942 HP MLIB User’s Guide
DSLERD Return diagonal elements of matrix in its current form
INTEGER*4 ier
COMPLEX*16 diag(neqns)
REAL*8 global(150)
CALL ZSLERD(job, diag, global, ier)
VECLIB8:
CHARACTER*1 job
INTEGER*8 ier
REAL*4 diag(neqns)
REAL*8 global(150)
CALL SSLERD(job, diag, global, ier)
CHARACTER*1 job
INTEGER*8 ier
REAL*8 diag(neqns)
REAL*8 global(150)
CALL DSLERD(job, diag, global, ier)
CHARACTER*1 job
INTEGER*8 ier
REAL*16 diag(neqns)
REAL*8 global(150)
CALL QSLERD(job, diag, global, ier)
CHARACTER*1 job
INTEGER*8 ier
COMPLEX*8 diag(neqns)
REAL*8 global(150)
CALL CSLERD(job, diag, global, ier)
CHARACTER*1 job
INTEGER*8 ier
COMPLEX*16 diag(neqns)
REAL*8 global(150)
CALL ZSLERD(job, diag, global, ier)
Input job Option flag:
job = ’O’ or ’o’ Return the diagonal elements of the
current form of the matrix in the
original order.
job = ’P’ or ’p’ Return the diagonal elements of the
current form of the matrix in the