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

Chapter 13 Sparse Linear Equations 899
Numeric factorization DSLEFA
Example Factor the matrix input to the package. Use a pivot tolerance of 0.1.
INTEGER*4 INRTIA(3),IER
REAL*8 GLOBAL(150)
CALL DSLEFA (0.1D0,INRTIA,GLOBAL,IER)
IF ( IER .NE. 0 ) THEN
handle error condition
ENDIF