From an array of
SCUBA sections, this routine creates a mask which is then used to modify the given data array
USE_SECT = LOGICAL (Given)
Are
we using the section (TRUE) or inverse (FALSE)
TYPE = CHAR (Given)
Type of data. Allowed
values are: REAL - data is real array BYTE - data is byte array BIT - affect single bit of byte array
N_SPEC = INTEGER (Given)
Number of specifications supplied in SPEC
SPEC( N_SPEC ) =
CHARACTER()
(Given)
the specification to be decoded
DEMOD_POINTER (N_SWITCHES, N_EXPOSURES,
N_INTEGRATIONS, N_MEASUREMENTS)
= INTEGER (Given)
the pointer to the location in the
main data array of the data for each switch of the observation
N_SWITCHES = INTEGER
(Given)
the number of switches per exposure
N_EXPOSURES = INTEGER (Given)
the number of exposures per integration
N_INTEGRATIONS = INTEGER (Given)
the
number of integrations per measurement
N_MEASUREMENTS = INTEGER (Given)
the
number of measurements in the observation
N_POS = INTEGER (Given)
the number of
positions measured in the observation
N_BOLS = INTEGER (Given)
the number of
bolometers measured in the observation
N_BEAM = INTEGER (Given)
Number of beams in
DATA_PTR
SWITCH_EXPECTED = LOGICAL (Given)
.TRUE. if a switch component is
allowed in the data-spec
VALUE = REAL (Given)
If TYPE is ’REAL’ then use this value
for masked data
BVALUE = BYTE (Given)
If TYPE is ’BYTE’ then use this value for
masked data
BITNUM = INTEGER (Given)
If TYPE is ’BIT’ then affect this bit position
BIT_STATE = LOGICAL (Given)
If TYPE is ’BIT’ then clear the bit (FALSE) or set it (TRUE)
DATA_PTR = INTEGER (Given & Returned)
Pointer to data array that is to be masked
STATUS = INTEGER (Given and Returned)
The global status.
Copyright
©1995,1996,1997,1998,1999 Particle Physics and Astronomy Research Council. All Rights Reserved.