SURF_WRITE_PHOTOM_HEADER - Write photom information to text file

Description:

This routine writes out the header for 1 sub-instrument of a PHOTOM observation. If status is good on entry the routine will call FIO_ASSOC to open the ASCII file to hold the results; the filename will be read from parameter 'FILE'. FIO_WRITE will then be called to write out the results in the following format:-

Output from SURF reduction of a PHOTOM observation
Reduction date	:	$<$date$>$
Observation definition	:	$<$ODF name$>$
Date of observation	:	$<$date$>$
Time of observation	:	$<$time$>$
Run number	:	$<$number$>$
Object	:	$<$object$>$
Sub-instrument	:	$<$name$>$
Filter	:	$<$name$>$
Centre coords	:	$<$coord system of centre$>$
Latitude	:	$<$latitude$>$
Longitude	:	$<$longitude$>$

If the centre coordinate system is PLANET then:-

2nd latitude	:	$<$latitude on MJD2$>$
2nd longitude	:	$<$longitude on MJD2$>$
date of 1st position	:	$<$modified Julian day when source at lat,long$>$
date of 2nd position	:	$<$modified Julian day when source at lat2,long2$>$

end if

Offset coords	:	$<$coord system of source offset$>$
x offset	:	$<$x offset of source$>$
y offset	:	$<$y offset of source$>$
Sampe coords	:	$<$coord system of jiggle offsets$>$
Sample position angle	:	$<$angle that x axis of jiggle offsets is rotated
		anticlockwise from the x axis of the sample
		coord system$>$
Sky error removal	:	$<$TRUE if the SURF REMSKY application has
		been run on the data$>$
Analysis mode	:	AVERAGE or PARABOLA

Invocation:

CALL SURF_WRITE_PHOTOM_HEADER (ODF, OBS_DATE, OBS_TIME, ANALYSIS, RUN_NUMBER, OBJECT, SUB_INSTRUMENT, FILTER, CENTRE_COORDS, LAT, LONG, LAT2, LONG2, MJD1, MJD2, OFFSET_COORDS, MAP_X, MAP_Y, SAMPLE_COORDS, SAMPLE_PA, SKY_SUBTRACTION, FD, STATUS)

Arguments:

ODF = CHARACTER$*$($*$) (Given)

the name of the observation definition file

OBS_DATE = CHARACTER$*$($*$) (Given)

the date of the observation

OBS_TIME = CHARACTER$*$($*$) (Given)

the UT of the observation

RUN_NUMBER = INTEGER (Given)

the observation number

OBJECT = CHARACTER$*$($*$) (Given)

the name of the object observed

SUB_INSTRUMENT = CHARACTER$*$($*$) (Given)

the name of the sub-instrument used

FILTER = CHARACTER$*$($*$) (Given)

the name of the filter used

CENTRE_COORDS = CHARACTER$*$($*$) (Given)

the coordinate system of the telescope centre coords

LAT = CHARACTER$*$($*$) (Given)

the latitude of the telescope centre

LONG = CHARACTER$*$($*$) (Given)

the longitude of the telescope centre

LAT2 = CHARACTER$*$($*$) (Given)

the second source latitude if CENTRE_COORDS is PLANET

LONG2 = CHARACTER$*$($*$) (Given)

the second source longitude if CENTRE_COORDS is PLANET

MJD1 = DOUBLE PRECISION (Given)

the modified Julian date of LAT,LONG if CENTRE_COORDS is PLANET

MJD2 = DOUBLE PRECISION (Given)

the modified Julian date of LAT2,LONG2 if CENTRE_COORDS is PLANET

OFFSET_COORDS = CHARACTER$*$($*$) (Given)

the coordinate system of the map centre offsets

MAP_X = REAL (Given)

the x offset of the map centre

MAP_Y = REAL (Given)

the y offset of the map centre

SAMPLE_COORDS = CHARACTER$*$($*$) (Given)

the coordinate system of the jiggle offsets

SAMPLE_PA = REAL (Given)

the position angle by which the x-axis of the jiggle offsets is rotated (anti-clockwise) from the x-axis of the SAMPLE_COORDS system

SKY_SUBTRACTION = LOGICAL (Given)

.TRUE. if the sky error has been removed

MAX_BEAM = INTEGER (Given)

the maximum number of bolometers that can observe the source in a single observation

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

FD = INTEGER (Returned)

File descriptor of output file

STATUS = INTEGER (Given and returned)

global status

Copyright

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