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

Chapter 15 Sparse Eigenvalues and Eigenvectors 1065
Save problem state to a savefile DSEVSV
Name DSEVSV
Save problem state to a savefile
Purpose This subprogram saves the current problem for later restart at its current
state. The global communication array and all working storage are written onto
the user-specified I/O file using standard Fortran unformatted sequential write
statements. The file is rewound before and after use.
Usage VECLIB:
INTEGER*4 svfile, ier
REAL*8 global(150)
CALL DSEVSV(svfile, global, ier)
VECLIB8:
INTEGER*8 svfile, ier
REAL*8 global(150)
CALL DSEVSV(svfile, global, ier)
Input svfile Fortran logical unit number of the file onto which the
state is to be saved. The file will be rewound before and
after use.
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 = −902 I/O error detected by Fortran.
Example Save the current state on Fortran logical unit 42.
REAL*8 GLOBAL(150)
CALL DSEVSV (42,GLOBAL,IER)
IF ( IER .NE. 0 ) THEN
handle error condition
ENDIF