SCULIB_UNPACK_CHOPSCAN

routine to unpack compressed chop-scan data

Description:

Used by the on-line system to unpack notice-board entries and retrieve demodulated data.

Invocation

CALL SCULIB_UNPACK_CHOPSCAN (RESNBS, N_POINTS, ISTART, NPIX, POINTER, RESDATA_450, RESWT_450, RESDATA_850, RESWT_850, RESDIM1, RESDIM2, BAD)

Arguments

RESNBS (4, N_POINTS) = REAL (Given)
the ‘resampled data’ noticeboard
N_POINTS = INTEGER (Given)
the 2nd dimension of the RESNBS array
ISTART (RESDIM2) = INTEGER (Given)
the I index of the start of the packed slice at index J
NPIX (RESDIM2) = INTEGER (Given)
the number of pixels in the packed slice for row J
POINTER (RESDIM2) = INTEGER (Given)
the pointer to the start of the slice in the packed array
RESDATA_450 (RESDIM1, RESDIM2) = REAL (Returned)
the unpacked 450 data
RESWT_450 (RESDIM1, RESDIM2) = REAL (Returned)
450 weights
RESDATA_850 (RESDIM1, RESDIM2) = REAL (Returned)
the unpacked 850 image
RESWT_850 (RESDIM1, RESDIM2) = REAL (Returned)
850 weights
RESDIM1 = INTEGER (Given)
first dimension of resampled image array
RESDIM2 = INTEGER (Given)
second dimension
BAD = REAL (Given)
value signalling bad pixel

Copyright

Copyright ©1995,1996,1997,1998,1999 Particle Physics and Astronomy Research Council. All Rights Reserved.