Description:
This
routines reads all necessary information from an NDF (via the given NDF identifier) for
rebinning. Optionally, returns the quality array (needed for despiking).
Invocation
CALL
SURF_READ_REBIN_NDF( IN_NDF, MAX_FILE, NSPEC, DATA_SPEC, OUT_COORDS, N_FILE,
USE_SECTION, N_BOL, N_POS, N_INTS, N_BEAMS, MJD_STANDARD, IN_UT1, OUT_RA_CEN,
OUT_DEC_CEN, FITS, N_FITS, WAVELENGTH, SUB_INSTRUMENT, SOBJECT, SUTDATE, SUTSTART,
BOL_ADC, BOL_CHAN, BOL_RA_PTR, BOL_RA_END, BOL_DEC_PTR, BOL_DEC_END, DATA_PTR,
DATA_END, VARIANCE_PTR, VARIANCE_END, QMF, QUALITY_PTR, QUALITY_END, BADBITS, USE_LST,
LST_PTR, ANG_INT, ANG_MEAS, INT_LIST, MEAS_LIST, BOLWT, STATUS)
Arguments
IN_NDF =
INTEGER (Given)
NDF identifier of input NDF
MAX_FILE = INTEGER (Given)
Max number of
files allowed [used for INT_LIST/MEAS only]
NSPEC = INTEGER (Given)
Number
of SCUBA sections in DATA_SPEC
DATA_SPEC( NSPEC ) = CHAR (Given)
SCUBA
sections
OUT_COORDS = CHAR (Given)
Output coordinates system. (Passed into
SURF_READ_REBIN_NDF)
N_FILE = INTEGER (Given)
Current file number (less than MAX_FILE
and greater than 0).
USE_SECTION = LOGICAL (Given)
Determines whether we are
using the section or the invers
N_BOL = INTEGER (Returned)
Number of bolometers
associated with this observation
N_POS = INTEGER (Returned)
Number of samples in
observation
N_INTS = INTEGER (Returned)
Total Number of integrations in observation
(INT∗MEAS)
N_MEAS = INTEGER (Returned)
Number of measurements in observation
N_BEAMS =
INTEGER (Given & Returned)
Number of beams requested in the positions arrays. N_BEAMS
= 1 will return the middle-beam (standard position) N_BEAMS = 2 will return L and R
beams for RASTER and JIGGLE N_BEAMS = 3 will return L, M and R beams (as M,L,R) for
JIGGLE data that has been reduce_switched and for SCAN data. N_BEAM is set to 2 if
a single switch of a JIGGLE map is requested.
MJD_STANDARD = DOUBLE (Given
& Returned)
Modified Julian data of observation. Returned if N_FILE=1.
IN_UT1 =
DOUBLE (Returned)
Modified Julian data of observation UT1 at start of an input observation,
expressed as modified Julian day
IN_RA_CEN = DOUBLE (Returned)
RA of centre
IN_DEC_CEN = DOUBLE (Returned)
Dec of centre
FITS ( SCUBA_MAX_FITS ) = CHARACTER
∗80
(Returned)
FITS header entries
N_FITS = INTEGER (Returned)
Number of FITS entries
WAVELENGTH = REAL (Given & Returned)
Wavelength of map
SUB_INSTRUMENT = CHAR
(Given & Returned)
Sub instrument of map
SOBJECT = CHAR (Returned)
Name of object
SUTDATE = CHAR (Returned)
UT date of the observation
SUTSTART = CHAR (Returned)
UT
time of the observation
BOL_ADC = INTEGER (Returned)
ADC information for bolometers - only
used by BOLREBIN
BOL_CHAN = INTEGER (Returned)
Channel information for bolometers -
only used by BOLREBIN
BOL_RA_PTR = INTEGER (Returned)
Pointer to RA bolometer positions
[Pointer is given, data is returned]
BOL_RA_END = INTEGER (Returned)
Pointer to end of RA
bolometer positions
BOL_DEC_PTR = INTEGER (Returned)
Pointer to DEC bolometer positions
BOL_DEC_END = INTEGER (Returned)
Pointer to end of DEC bol positions
DATA_PTR =
INTEGER (Returned)
Pointer to data values
DATA_END = INTEGER (Returned)
Pointer to end
of data values
VARIANCE_PTR = INTEGER (Returned)
Pointer to variance values
VARIANCE_END = INTEGER (Returned)
Pointer to end of variance values
QMF = LOGICAL
(Given)
Flag to decide whether quality is being stored (.FALSE.) or being folded into the
data array (.true.). See NDF_SQMF
QUALITY_PTR = INTEGER (Returned)
Pointer to
quality array
QUALITY_END = INTEGER (Returned)
Pointer to end of quality array
BADBITS = BYTE (Returned)
Bad bits mask for quality array
USE_LST = LOGICAL
(Given)
Governs whether we want an LST array returned
LST_PTR( 2 ) = INTEGER
(Returned)
Array of pointers (begin and end) to array of LSTs
ANG_INT( MAX_FILE,
SCUBA__MAX_INT,2) = REAL (Returned)
Array containing the polarimetry angles for each
integration The 2 dimensions are for WPLATE and ANGROT
ANG_MEAS( MAX_FILE,
SCUBA__MAX_MEAS,2) = REAL (Returned)
Array containing the pol angles for each
measurement The 2 dimensions are for WPLATE and ANGROT
INT_LIST( MAX_FILE,
SCUBA__MAX_INT+1)
= INTEGER (Returned)
Position of integrations in each data file
MEAS_LIST(MAX_FILE,
SCUBA__MAX_MEAS+1)
= INTEGER (Returned)
Position of measurements in each data file
BOLWT ( N_BOL ) = REAL
(Returned)
Relative weights of each bolometer
STATUS = INTEGER (Given and Returned)
The
global status
Copyright
Copyright ©1995,1996,1997,1998,1999 Particle Physics and Astronomy
Research Council. All Rights Reserved.