SURF_READ_REBIN_NDF - Read an NDF into memory prior to regridding

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.