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

Chapter 13 Sparse Linear Equations 913
Matrix structure input by column DSLEIC
INTEGER*4 J,NZCOL,JROWIN(100),IER
REAL*8 GLOBAL(150)
J = 4519
NZCOL = 7
JROWIN(1) = 1
JROWIN(2) = 2735
JROWIN(3) = 4519
JROWIN(4) = 4520
JROWIN(5) = 4521
JROWIN(6) = 6000
JROWIN(7) = 6002
JROWIN(8) = 6004
CALL DSLEIC (J,NZCOL,JROWIN,GLOBAL,IER)
IF ( IER .NE. 0 ) THEN
handle error condition
ENDIF