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

Chapter 13 Sparse Linear Equations 953
Matrix value input by column DSLEVC
Example 2 Column 4519 of a nonsymmetric matrix has entries in rows 1, 2735, 4519, 4520,
4521, 6000, 6002, and 6004. Input the value 1.0 to each of these positions in the
matrix.
INTEGER*4 J,NZCOL,JROWIN(100),IER
REAL*8 VALUES(100),GLOBAL(150)
J = 4519
NZCOL = 8
JROWIN(1) = 1
JROWIN(2) = 2735
JROWIN(3) = 4519
JROWIN(4) = 4520
JROWIN(5) = 4521
JROWIN(6) = 6000
JROWIN(7) = 6002
JROWIN(8) = 6004
VALUES(1) = 1.0D0
VALUES(2) = 1.0D0
VALUES(3) = 1.0D0
VALUES(4) = 1.0D0
VALUES(5) = 1.0D0
VALUES(6) = 1.0D0
VALUES(7) = 1.0D0
VALUES(8) = 1.0D0
CALL DSLEVC (J,NZCOL,JROWIN,VALUES,GLOBAL,IER)
IF ( IER .NE. 0 ) THEN
handle error condition
ENDIF