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

952 HP MLIB User’s Guide

DSLEVC Matrix value input by column

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 = −400 Incorrect processing path; DSLEOR

not called.

ier = −401 Error in dynamic storage allocation.

ier = −402 At least one subscript pair

(jrowin(k),jcol) was not speciﬁed in

structure input. No room for value.

Example 1 Column 4519 of a symmetric matrix has entries in rows 1, 2735, 4519, 4520,

4521, 6000, 6002, and 6004. Input the value 1.0 to each of these positions in the

matrix.

INTEGER*4 J,NZCOL,JROWIN(100),IER

REAL*8 VALUES(100),GLOBAL(150)

J = 4519

NZCOL = 6

JROWIN(1) = 4519

JROWIN(2) = 4520

JROWIN(3) = 4521

JROWIN(4) = 6000

JROWIN(5) = 6002

JROWIN(6) = 6004

VALUES(1) = 1.0D0

VALUES(2) = 1.0D0

VALUES(3) = 1.0D0

VALUES(4) = 1.0D0

VALUES(5) = 1.0D0

VALUES(6) = 1.0D0

CALL DSLEVC (J,NZCOL,JROWIN,VALUES,GLOBAL,IER)

IF ( IER .NE. 0 ) THEN

handle error condition

ENDIF