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

Chapter 13 Sparse Linear Equations 895
Deallocate working storage DSLEDA
REAL*8 global(150)
CALL QSLEDA(global, ier)
INTEGER*8 ier
REAL*8 global(150)
CALL CSLEDA(global, ier)
INTEGER*8 ier
REAL*8 global(150)
CALL ZSLEDA(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 = −200 No system exists for this global
communications array.
Example Deallocate working storage after use of package.
REAL*8 GLOBAL(150)
CALL DSLEDA (GLOBAL,IER)
IF ( IER .NE. 0 ) THEN
handle error condition
ENDIF