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

922 HP MLIB User’s Guide
DSLEIN Initialize sparse linear equations
INTEGER*8 neqns, msglvl, output, ier
REAL*8 global(150)
CALL CSLEIN(neqns, msglvl, output, global, ier)
INTEGER*8 neqns, msglvl, output, ier
REAL*8 global(150)
CALL ZSLEIN(neqns, msglvl, output, global, ier)
Input neqns Order of matrix (number of degrees of freedom);
neqns > 0.
msglvl Message level for printable output:
msglvl ≤ 0 Suppress all output.
msglvl = 1 Error messages and summary
statistics.
msglvl = 2 More complete statistics.
msglvl = 3 First stage of debugging output.
msglvl = 4 Complete debugging output.
output Fortran logical unit number to which all printable
output is written.
Output global Global communications array for this problem. This
array must be passed, untouched by the user, to
successive subroutines in this package.
ier Status response:
ier = 0 Normal return.
ier = −100 Too many systems initialized.
ier = −101 Error in dynamic storage allocation.
ier = −102 neqns ≤ 0.
Example Prepare to solve a system of equations of order 10,000. Obtain error messages
and standard minimal output on Fortran logical unit 6.
INTEGER*4 NEQNS,IER
REAL*8 GLOBAL(150)
NEQNS = 10000
CALL DSLEIN (NEQNS,1,6,GLOBAL,IER)
IF ( IER .NE. 0 ) THEN
handle error condition
ENDIF