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

1072 HP MLIB User’s Guide
DSEVVD Matrix value input to main diagonal
ier = −404 At least one subscript pair
(jrowin(j),jcol) was not specified in
structure input. No room for value.
ier = −406 The B matrix was specified as an
identity matrix. Cannot add nonzero
value.
Notes Calls to DSEVV1, DSEVVC, DSEVVD, DSEVVE and DSEVVM can be
intermixed. If the matrix entries of the main diagonal are available as a vector,
using DSEVVD is more efficient than using DSEVV1.
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 Create a main diagonal equal to 4.0 for B.
INTEGER*4 IER
REAL*8 VALUES(100),GLOBAL(150)
VALUES(1) = 4.0D0
VALUES(2) = 4.0D0
VALUES(3) = 4.0D0
VALUES(4) = 4.0D0
VALUES(5) = 4.0D0
VALUES(6) = 4.0D0
CALL DSEVVD (’B’,VALUES,GLOBAL,IER)
IF ( IER .NE. 0 ) THEN
handle error condition
ENDIF