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

ManualsBrandsHP ManualsSoftwareHP-UX Performance Tools

Chapter 13 Sparse Linear Equations 889

Sample program

C -

C ... FACTOR THE MATRIX

C -

PVTTOL = 0.0D0

CALL DSLEFA (PVTTOL,INRTIA,GLOBAL,IER)

IF ( IER .NE. 0 ) GO TO 8000

C -

C ... SOLVE FOR A GIVEN RIGHT HAND SIDE

C -

CALL DSLESL (1,RHS,NEQNS,GLOBAL,IER)

IF ( IER .NE. 0 ) GO TO 8000

C

C ... USE THE SOLUTION STORED IN ARRAY RHS

C

.

.

.

C

C ... ERROR TRAP

C

8000 ..........