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

924 HP MLIB User’s Guide
DSLELU One-call usage
INTEGER*4 neqns, maxzer, msglvl, output, colstr(neqns+1),
rowind(nnzero), nrhs, ldrhs, inrtia(3), ier
COMPLEX*16 value(nnzero), rhs(ldrhs, nrhs)
REAL*8 global(150)
CALL ZSLELU(neqns, maxzer, pvttol, msglvl, output, colstr, rowind,
value, nrhs, rhs, ldrhs, rcond, inrtia, global, ier)
VECLIB8:
INTEGER*8 neqns, maxzer, msglvl, output, colstr(neqns+1),
rowind(nnzero), nrhs, ldrhs, inrtia(3), ier
REAL*4 pvttol, value(nnzero), rhs(ldrhs, nrhs), rcond
REAL*8 global(150)
CALL SSLELU(neqns, maxzer, pvttol, msglvl, output, colstr, rowind,
value, nrhs, rhs, ldrhs, rcond, inrtia, global, ier)
INTEGER*8 neqns, maxzer, msglvl, output, colstr(neqns+1),
rowind(nnzero), nrhs, ldrhs, inrtia(3), ier
REAL*8 pvttol, value(nnzero), rhs(ldrhs, nrhs), rcond
REAL*8 global(150)
CALL DSLELU(neqns, maxzer, pvttol, msglvl, output, colstr, rowind,
value, nrhs, rhs, ldrhs, rcond, inrtia, global, ier)
INTEGER*8 neqns, maxzer, msglvl, output, colstr(neqns+1),
rowind(nnzero), nrhs, ldrhs, inrtia(3), ier
REAL*16 value(nnzero), rhs(ldrhs, nrhs)
REAL*8 global(150)
CALL QSLELU(neqns, maxzer, pvttol, msglvl, output, colstr, rowind,
value, nrhs, rhs, ldrhs, rcond, inrtia, global, ier)
INTEGER*8 neqns, maxzer, msglvl, output, colstr(neqns+1),
rowind(nnzero), nrhs, ldrhs, inrtia(3), ier
COMPLEX*8 value(nnzero), rhs(ldrhs, nrhs)
REAL*8 global(150)
CALL CSLELU(neqns, maxzer, pvttol, msglvl, output, colstr, rowind,
value, nrhs, rhs, ldrhs, rcond, inrtia, global, ier)
INTEGER*8 neqns, maxzer, msglvl, output, colstr(neqns+1),
rowind(nnzero), nrhs, ldrhs, inrtia(3), ier
COMPLEX*16 value(nnzero), rhs(ldrhs, nrhs)
REAL*8 global(150)
CALL ZSLELU(neqns, maxzer, pvttol, msglvl, output, colstr, rowind,
value, nrhs, rhs, ldrhs, rcond, inrtia, global, ier)
Input neqns Number of equations; neqns > 0.
maxzer Supernodal relaxation parameter; maxzer ≥ 0. If
maxzer > 0, the package allows additional fill for the