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

Chapter 15 Sparse Eigenvalues and Eigenvectors 1049
End of matrix structure input DSEVIF
Name DSEVIF
End of matrix structure input
Purpose This subprogram indicates the end of structure input for matrices in the sparse
eigenvalue problem. DSEVIF is used only if subprograms DSEVI1 and/or
DSEVIE were the mechanism by which the structure was input.
Usage VECLIB:
INTEGER*4 ier
REAL*8 global(150)
CALL DSEVIF(global, ier)
VECLIB8:
INTEGER*8 ier
REAL*8 global(150)
CALL DSEVIF(global, ier)
Updated global Global communications array for this problem. This
array must be passed, untouched by the user, to
successive subroutines in this package.
Output ier Status response:
ier = 0 Normal return.
ier = −100 Incorrect processing path; DSEVIN
not called or matrix input already
finished.
ier = −101 Error in dynamic storage allocation.
Example The nonzero structure of a pair of finite element matrices was passed to the
sparse eigenvalue package using repeated calls to subroutine DSEVIE. Signal
that no more nonzeros will be added to either matrix.
INTEGER*4 IER
REAL*8 GLOBAL(150)
CALL DSEVIF (GLOBAL,IER )
IF ( IER .NE. 0 ) THEN
handle error condition
ENDIF