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:-

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$>$
for all the integrations taken in the observation
Measurement results :
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.