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

Chapter 15 Sparse Eigenvalues and Eigenvectors 1053
Matrix structure input by matrix DSEVIM
Example In a small (order 6) sparse generalized eigenvalue problem, B is a mass matrix
with the following structure:
INTEGER*4 COLSTR(7),ROWIND(6),IER
REAL*8 GLOBAL(150)
COLSTR(1) = 1
COLSTR(2) = 3
COLSTR(3) = 5
COLSTR(4) = 6
COLSTR(5) = 7
COLSTR(6) = 7
COLSTR(7) = 7
ROWIND(1) = 3
ROWIND(2) = 4
ROWIND(3) = 3
ROWIND(4) = 5
ROWIND(5) = 5
ROWIND(6) = 5
CALL DSEVIM (’B’,COLSTR,ROWIND,GLOBAL,IER)
IF ( IER .NE. 0 ) THEN
handle error condition
ENDIF
x0xx00
0xx0x0
xxx0x0
x00xx0
0xxxx0
000000