SURF_WRITE_PHOTOM

Routine to output ASCII results of PHOTOM reduction

Description:

This routine writes out the results for 1 sub-instrument of a PHOTOM observation. For each bolometer that measured the source:-

for all the integrations taken in the observation
Measurement results :
Bolometer
:
<bolometer name >
Weight
:
<weight to be given to its results >
Integration Peak Peak_sig Peak_x Peak_y Quality
<integration > <peak > <Error > <x of peak > <y of peak > <quality >
Fit to coadded jiggle:
:
<peak > <variance > <x of peak > <y of peak > <quality >
Coadded fit results :
:
<peak > <variance > <quality >

Invocation

CALL SURF_WRITE_PHOTOM (FD, MAX_BEAM, N_BOLS, BOL_CHAN, BOL_ADC, PHOT_BB, MAX_INT, N_MEASUREMENTS, N_INTEGRATIONS,PEAK_D, PEAK_V, PEAK_X, PEAK_Y, PEAK_Q, BEAM_WEIGHT, MEAS_1_D, MEAS_1_V, MEAS_1_X, MEAS_1_Y, MEAS_1_Q, MEAS_2_D, MEAS_2_V, MEAS_2_Q, STATUS)

Arguments

FD = INTEGER (Given)
ASCII file descriptor
MAX_BEAM = INTEGER (Given)
the maximum number of bolometers that can observe the source in a single observation
PARABOLA = LOGICAL (Given)
True if we fitted the coaaded jiggle with a parabola
N_BOLS = INTEGER (Given)
the number of bolometers used in the sub-instrument
BOL_CHAN (N_BOLS) = INTEGER (Given)
the channel numbers of the bolometers observing the object
BOL_ADC (N_BOLS) = INTEGER (Given)
the A/D numbers of the bolometers observing the object
PHOT_BB (MAX_BEAM) = INTEGER (Given)
the indices of the bolometers used to observe the source in each beam in the BOL_CHAN and BOL_ADC arrays
MAX_INT = INTEGER (Given)
the maximum number of integrations in an observation
N_MEASUREMENTS = INTEGER (Given)
the number of measurements in the observation
N_INTEGRATIONS = INTEGER (Given)
the number of integrations in the observation
PEAK_D (MAX_INT, MAX_BEAM) = REAL (Given)
the fitted peak value for each integration with each bolometer
PEAK_V (MAX_INT, MAX_BEAM) = REAL (Given)
the variance on PEAK
PEAK_X (MAX_INT, MAX_BEAM) = REAL (Given)
the x offset of the fitted peak for each integration with each bolometer
PEAK_Y (MAX_INT, MAX_BEAM) = REAL (Given)
the y offset of the fitted peak
PEAK_Q (MAX_INT, MAX_BEAM) = BYTE (Given)
the quality of each fitted peak (0 is good)
BEAM_WEIGHT (MAX_BEAM) = REAL (Given)
the weights assigned to the measurements with each bolometer
MEAS_1_D (MAX_BEAM) = REAL (given)
the fitted peak to the coadded integrations
MEAS_1_V (MAX_BEAM) = REAL (Given)
the variance on MEAS_1_D
MEAS_1_X (MAX_BEAM) = REAL (Given)
the x offset of the peak fitted to the coadd
MEAS_1_Y (MAX_BEAM) = REAL (Given)
the y offset
MEAS_1_Q (MAX_BEAM) = BYTE (Given)
the quality on MEAS_1_D
MEAS_2_D (MAX_BEAM) = REAL (Given)
the coadd of the peaks fitted to the individual integrations for each bolometer
MEAS_2_V (MAX_BEAM) = REAL (Given)
the variance on MEAS_2_D
MEAS_2_Q (MAX_BEAM) = BYTE (Given)
the quality on MEAS_2_D
STATUS = INTEGER (Given and returned)
global status

Copyright

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