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

Chapter 15 Sparse Eigenvalues and Eigenvectors 1019

Check accuracy of results DSEVCK

ier = 0 Normal return.

ier = −800 Incorrect processing path.

ier = −801 Error in storage allocation.

ier = −802 Error in retrieving eigenvectors.

ier = −804 System error.

Notes Additional diagnostic output from this subprogram is written onto the Fortran

logical unit speciﬁed in the last call to DSEVIN or DSEVOC. The amount of

output is independent of the message level value set in the last call to DSEVIN

or DSEVOC.

Example Check only the ﬁnal trust region eigenvalues and eigenvectors.

LOGICAL*4 ORTWRN

REAL*8 DISCRP,GLOBAL(150)

INTEGER*4 IER

CALL DSEVCK (.TRUE.,ORTWRN,DISCRP,GLOBAL,IER)

IF ( IER .NE. 0 ) THEN

handle error condition

ENDIF