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

Chapter 13 Sparse Linear Equations 949
Matrix value input by single entry DSLEV1
INTEGER*4 I,J,IER
REAL*8 VALUE,GLOBAL(150)
I = 3035
J = 1024
VALUE = 4.523D-5
CALL DSLEV1 (I,J,VALUE,GLOBAL,IER)
IF ( IER .NE. 0 ) THEN
handle error condition
ENDIF