Description:
This routine
unpacks a compressed SCUBA resampled data array into a 2-d image. It does this by cycling up the j
slices of the image and -
if the packed data has pixels for that slice
-
fill the image slice data (data sum, variance sum and weight sum) with zeroes and bad quality before
the packed slice starts.
-
copy the data and quality of the packed slice into the appropriate part of the image slice
-
fill the image slice with zeroes and bad quality after the packed slice ends.
else
endif
Invocation
CALL SCULIB_UNPACK (NBS_DIM1, NBS_DIM2, NBS_DIM3, RESNBS, ISTART,
NPIX, POINTER, SUB, RES_DIM1, RES_DIM2, RES_DS, RES_VS, RES_WS, RES_QS)
Arguments
NBS_DIM1 = INTEGER (Given)
first dimension of the RESNBS array
NBS_DIM2 = INTEGER
(Given)
second dimension of the RESNBS array
NBS_DIM3 = INTEGER (Given)
third
dimension of the RESNBS array
RESNBS (NBS_DIM1, NBS_DIM2, NBS_DIM3)) = REAL
(Given)
the noticeboard ‘resampled data’
ISTART (RES_DIM2) = INTEGER (Given)
the
I index of the start of each packed slice
NPIX (RES_DIM2) = INTEGER (Given)
the
number of pixels in each packed slice
POINTER (RES_DIM2) = INTEGER (Given)
the
pointer to the start of each packed slice
SUB = INTEGER (Given)
the number of the
sub-instrument map to be unpacked
RES_DIM1 = INTEGER (Given)
first dimension of resampled
image array
RES_DIM2 = INTEGER (Given)
second dimension of resampled image
array
RES_DS (RES_DIM1, RES_DIM2) = REAL (Returned)
the unpacked data sum
RES_VS (RES_DIM1, RES_DIM2) = REAL (Returned)
the unpacked variance sum
RES_WS (RES_DIM1, RES_DIM2) = REAL (Returned)
the unpacked weight sum
RES_QS
(RES_DIM1, RES_DIM2) = INTEGER (Returned)
the unpacked quality
Copyright
Copyright ©1993-1999 Particle Physics and Astronomy Research Council. All Rights Reserved.