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

908 HP MLIB User’s Guide
DSLEFS One-call usage
INTEGER*4 COLSTR(7),ROWIND(13),INRTIA(3),IER
REAL*8 VALUES(13),RHS(6),RCOND,GLOBAL(150)
COLSTR(1) = 1
COLSTR(2) = 4
COLSTR(3) = 7
COLSTR(4) = 9
COLSTR(5) = 12
COLSTR(6) = 13
COLSTR(7) = 14
ROWIND(1) = 1
ROWIND(2) = 3
ROWIND(3) = 4
ROWIND(4) = 2
ROWIND(5) = 3
ROWIND(6) = 5
ROWIND(7) = 3
ROWIND(8) = 5
ROWIND(9) = 4
ROWIND(10) = 5
ROWIND(11) = 6
ROWIND(12) = 5
ROWIND(13) = 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) = 4.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
RHS(1) = 1.0D0
RHS(2) = 0.0D0
RHS(3) = 1.0D0
RHS(4) = 1.0D0
RHS(5) = 0.0D0
RHS(6) = 0.0D0
CALL DSLEFS (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