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

904 HP MLIB User’s Guide
DSLEFS 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 ZSLEFS(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 SSLEFS(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 DSLEFS(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 QSLEFS(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 CSLEFS(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 ZSLEFS(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