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

1070 HP MLIB User’s Guide
DSEVVC Matrix value input by column
INTEGER*4 J,NZCOL,JROWIN(100),IER
REAL*8 VALUES(100),GLOBAL(150)
J = 4519
NZCOL = 6
JROWIN(1) = 4519
JROWIN(2) = 4520
JROWIN(3) = 4521
JROWIN(4) = 6000
JROWIN(5) = 6002
JROWIN(6) = 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
CALL DSEVVC (’A’,J,NZCOL,JROWIN,VALUES,GLOBAL,IER)
IF ( IER .NE. 0 ) THEN
handle error condition
ENDIF