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

920 HP MLIB User’s Guide
DSLEIM Matrix structure input by matrix
INTEGER*4 COLSTR(7),ROWIND(12),IER
REAL*8 GLOBAL(150)
COLSTR(1) = 1
COLSTR(2) = 3
COLSTR(3) = 5
COLSTR(4) = 8
COLSTR(5) = 10
COLSTR(6) = 13
COLSTR(7) = 13
ROWIND(1) = 3
ROWIND(2) = 4
ROWIND(3) = 3
ROWIND(4) = 5
ROWIND(5) = 1
ROWIND(6) = 2
ROWIND(7) = 5
ROWIND(8) = 1
ROWIND(9) = 5
ROWIND(10) = 2
ROWIND(11) = 3
ROWIND(12) = 4
CALL DSLEIM (COLSTR,ROWIND,GLOBAL,IER)
IF ( IER .NE. 0 ) THEN
handle error condition
ENDIF