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

1044 HP MLIB User’s Guide

DSEVI1 Matrix structure input by single entry

Output ier Status response:

ier = 0 Normal return.

ier = −100 Incorrect processing path; DSEVIN

not called or matrix input already

ﬁnished.

ier = −101 Error in dynamic storage allocation.

ier = −104 Illegal value for jcol.

ier = −105 Illegal value for irow.

ier = −109 Illegal value for matrix designator.

ier = −110 Attempt to add nonzero location to B,

which was not speciﬁed as having a

general sparse structure (B is a

diagonal matrix, an identity matrix,

or has same structure as A).

Notes Calls to DSEVI1 and DSEVIE can be intermixed. DSEVIC and DSEVIM

cannot be used if DSEVI1 or DSEVIE are used.

Actual character arguments in a subroutine call may be longer than

corresponding dummy arguments. Therefore, readability of the CALL

statement may be improved by coding the matrix argument as ’addleft’.

Example Add the entry in row 3035, column 1024 to the list of nonzeros in the matrix A.

INTEGER*4 I,J,IER

REAL*8 GLOBAL(150)

I = 3035

J = 1024

CALL DSEVI1 (’A’,I,J,GLOBAL,IER)

IF ( IER .NE. 0 ) THEN

handle error condition

ENDIF