Description:
This
routine reads filter names and associated sky zenith opacities from an ASCII file named
in FILE. The format of each line in the file that contains sky information is assumed to
be:-
FIT1 <qual>
<sub_inst>
<filter>
<eta_tel>
<b>
<tauz>
<date>
<day>
<run>
Errors will be reported and bad status returned if;
-
there is an error opening or reading the file
-
<qual>
is not an integer
-
<sub-inst>
is not one of SHORT, LONG, P1100, P1300, P2000
-
<eta_tel>
does not convert to a real
-
<b>
does not convert to a real
-
<tauz>
does not convert to a real
-
<day>
does not convert to a double
-
<run>
does not convert to an integer
The value of tauz returned for a given filter will be the good quality entry
(<qual>
= 0) with the highest associated <day>
number in the file.
Blank lines are ignored as are those parts of lines following a ! character (comments) and any line
whose first line is not FIT1.
This routine reads a file written by SCUDR_END_SKYDIP, so these 2 routines should
be changed together when necessary.
Invocation
CALL SCULIB_READ_TAUZ (FILE,
MAX_FILT, N_FILT, FILTER, TAUZ, DATEM, DAY, RUN, STATUS)
Arguments
FILE =
CHARACTER∗(∗)
(Given)
the name of the file
MAX_FILT = INTEGER (Given)
the maximum number of
filters
N_FILT = INTEGER (Returned)
the number of filters read
FILTER (MAX_FILT) =
CHARACTER∗(∗)
(Returned)
the names of the filters
TAUZ (MAX_FILT) = REAL (Returned)
zenith atmospheric optical depth for that filter
DATEM (MAX_FILT) =
CHARACTER∗(∗)
(Returned)
the date on which the measurement was made
DAY (MAX_FILT) = DOUBLE
PRECISION (Returned)
the date and time at which the measurement was made, measured as a day
number from 1st Jan
RUN (MAX_FILT) = INTEGER (Returned)
the run number of the
measurement
STATUS = INTEGER (Given and returned)
global status
Copyright
Copyright
©1995,1996,1997,1998,1999 Particle Physics and Astronomy Research Council. All Rights Reserved.