release

DESCRIPTION

The subroutine "release" decompresses a set of integer*2 values from a onedimensional array which was originally compressed using the subroutine squeeze.
WARNING!
Original values -32767 and -32768 were both treated as undefined values during compression, and will both be decompressed as -32767 by "release".

SYNTAX

subroutine

release

(mode,ldat,leading,trailing,length,idata, maxsize,iwork,nfactors,factors,error )

INPUT, OUTPUT VARIABLES

Input:

mode	(i)	-	should be a variable, MUST BE SET TO 0 IN INITIAL CALL, should not be modified in the calling program/subroutine thereafter; e.g.: mode_variable = 0 do i = 1,n call get_field(ldat,...) call squeeze(mode_variable,...) call process_field(ldat,...) end do
leading	(i)	-	no. of leading entries in 'idata()' which have not been compressed
length	(i)	-	dimension of 'idata()' (suggested value: leading+nx*ny+trailing); left unchanged by "release"
idata	(I2)	-	leading entries, compressed field, trailing entries
maxsize	(i)	-	dimension of 'iwork()' (suggested value: nx*ny)
nfactors	(i)	-	dimension of 'factors()'; min. dimension: 17
factors	(I)	-	vector for storage of factors (time-saving); used if 'mode'<>0 and unchanged 'algorithm' since previous call

Output:

mode	(i)	-	output value: 1
ldat	(i)	-	length of the decompressed 'idata()' vector
trailing	(i)	-	no. of uncompressed trailing entries in 'idata()' on input and output
idata	(I2)	-	leading entries, decompressed field, trailing entries
factors	(I)	-	vector for storage of factors (time-saving)
error	(i)	-	will be set to: 0 if no error is detected 1 if value of 'leading' is inconsistent 2 if non-implemented 'algorithm' is selected

Work:

iwork

(I2)

-

work space vector, temporary storage; minimum size: 'maxsize' + 'trailing'

DEPENDENCIES

No external.

EXAMPLE

This subroutine performs the inverse transformation of the compression carried out by squeeze.
A step-by-step explanation (walk-thru) is also provided.