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

1020 HP MLIB User’s Guide
DSEVDA Deallocate working storage
Name DSEVDA
Deallocate working storage
Purpose This subprogram deallocates working storage at the end of processing. If the
program using the package is going to continue execution when use of the
package is completed, then it is recommended that the user deallocate the
dynamically allocated working storage to reduce system impact.
Usage VECLIB:
INTEGER*4 ier
REAL*8 global(150)
CALL DSEVDA(global, ier)
VECLIB8:
INTEGER*8 ier
REAL*8 global(150)
CALL DSEVDA(global, ier)
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 = −801 Error in dynamic storage deallocation.
Example Deallocate working storage after use of package.
REAL*8 GLOBAL(150)
CALL DSEVDA (GLOBAL,IER)
IF ( IER .NE. 0 ) THEN
handle error condition
ENDIF