SURF_WRITE_PHOTOM

←Prev
SURF Programming Interface
Next→
TOC ↑

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

G.2 SURFLIB

This section describes the subroutines that are available in the surflib distribution (libsurflib.a).

←Prev
SURF Programming Interface
Next→
TOC ↑

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

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

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

Description:

Invocation

Arguments

ODF = CHARACTER∗(∗) (Given)

OBS_DATE = CHARACTER∗(∗) (Given)

OBS_TIME = CHARACTER∗(∗) (Given)