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

928 HP MLIB User’s Guide
DSLELU One-call usage
ROWIND(8) = 2
ROWIND(9) = 3
ROWIND(10) = 5
ROWIND(11) = 1
ROWIND(12) = 4
ROWIND(13) = 5
ROWIND(14) = 6
ROWIND(15) = 2
ROWIND(16) = 3
ROWIND(17) = 4
ROWIND(18) = 5
ROWIND(19) = 4
ROWIND(20) = 6
VALUES(1) = 4.0D0
VALUES(2) = 1.0D0
VALUES(3) = 1.0D0
VALUES(4) = 4.0D0
VALUES(5) = 1.0D0
VALUES(6) = 1.0D0
VALUES(7) = −1.0D0
VALUES(8) = −1.0D0
VALUES(9) = 4.0D0
VALUES(10) = 1.0D0
VALUES(11) = −1.0D0
VALUES(12) = 4.0D0
VALUES(13) = 1.0D0
VALUES(14) = 1.0D0
VALUES(15) = −1.0D0
VALUES(16) = −1.0D0
VALUES(17) = −1.0D0
VALUES(18) = 4.0D0
VALUES(19) = −1.0D0
VALUES(20) = 1.0D0
CALL DSLELU (6,0,0.1D0,1,6,COLSTR,ROWIND,VALUE,
1,RHS,6,RCOND,INRTIA,GLOBAL,IER)
IF ( IER .NE. 0 ) THEN
handle error condition
ENDIF