Description:
This routine removes the demodulated data for a
specified sub-instrument and integration from the coadded measurement.
After checking status on entry the routine cycles through the bolometers for which data has been
taken. If the bolometer belongs to the sub-instrument whose data is to be removed, the routine will
then cycle through the jiggle pattern removing the integration data from the coadd. If this reduces the
number of coadded integrations to 0 then all the coadd numbers are set to 0 apart from quality,
which is set to 1. If the number of coadded integrations is reduced to 1 then the coadd
variance can no longer be estimated from the spread of data about the mean and will be set to
0.
Invocation
CALL SCULIB_REMOVE_DEMOD_INT (REMOVE_TYPE, NUM_CHAN, NUM_ADC,
BOL_TYPE, N_BOLS, BOL_CHAN, BOL_ADC, J_COUNT, INT_DATA, INT_QUALITY, COADD_DATA,
COADD_VARIANCE, COADD_QUALITY, COADD_NUMBER, STATUS)
Arguments
REMOVE_TYPE =
CHARACTER()
(Given)
the type of the sub-instrument whose data is to be removed
NUM_CHAN =
INTEGER (Given)
the number of channels per ADC in SCUBA
NUM_ADC = INTEGER
(Given)
the number of ADCs in SCUBA
BOL_TYPE (NUM_CHAN, NUM_ADC) =
CHARACTER()
(Given)
the types of the bolometers in SCUBA
N_BOLS = INTEGER (Given)
the number of
bolometers being measured
BOL_CHAN (N_BOLS) = INTEGER (Given)
the channel numbers of
the bolometers being measured
BOL_ADC (N_BOLS) = INTEGER (Given)
the ADC numbers of the
bolometers being measured
J_COUNT = INTEGER (Given)
the number of jiggle positions in the
pattern
INT_DATA (N_BOLS, J_COUNT) = REAL (Given)
the integration data
INT_QUALITY
(N_BOLS, J_COUNT) = INTEGER (Given)
quality on the integration data
COADD_DATA
(N_BOLS, J_COUNT) = REAL (Given and returned)
the mean of the coadded data
COADD_VARIANCE (N_BOLS, J_COUNT)
= REAL (Given and returned) the variance on
the mean of the coadded data
COADD_QUALITY (N_BOLS, J_COUNT)
= INTEGER
(Given and returned) the quality on the mean of the coadded data
COADD_NUMBER
(N_BOLS, J_COUNT)= INTEGER (Given and returned)
the number of data coadded
STATUS = INTEGER (Given and returned)
the global status
Copyright
Copyright
©1995,1996,1997,1998,1999 Particle Physics and Astronomy Research Council. All Rights Reserved.