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

946 HP MLIB User’s Guide
DSLESL Solve
Example Given the following right-hand side vector, compute the solution given the
numerical factorization computed by DSLECO or DSLEFA.
INTEGER*4 IER
REAL*8 RHS(6),GLOBAL(150)
RHS(1) = 1.0
RHS(2) = 0.0
RHS(3) = 1.0
RHS(4) = 1.0
RHS(5) = 0.0
RHS(6) = 0.0
CALL DSLESL (1,RHS,6,GLOBAL,IER)
IF ( IER .NE. 0 ) THEN
handle error condition
ENDIF
rhs =
1.0
0.0
1.0
1.0
0.0
0.0