This routine reads sky and telescope parameters for each SCUBA sub-instrument/filter combination 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$>$ $<$filter$>$ $<$eta_tel$>$ $<$b$>$ $<$tauz$>$ $<$date$>$ $<$day$>$ $<$run$>$

The values returned for a given filter/sub-instrument will be from the good quality entry ($<$qual$>$ = 0) with the highest associated $<$day$>$ number in the file.

Errors will be reported and bad status returned if;

• there is an error opening or reading from the file

• $<$qual$>$ does not convert to an integer

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

• $<$run$>$ does not convert to an integer

• More than MAX_SKY combinations are read.

Blank lines are ignored as are those parts of lines following a ! character (comments) and lines not beginning with the word FIT1.

This routine reads a file written by SCUDR_END_SKYDIP, so these 2 routines should be changed together when necessary.

If the file name is ’NULL’ (case insensitive) then the sky parameters will be reset to null values.

CALL SCULIB_READ_SKY (FILE, MAX_SKY, N_SKY, SUB, FILTER, ETA_TEL, B, TAUZ, DATEM, DAY, RUN, STATUS)

FILE = CHARACTER$\ast$($\ast$) (Given)

MAX_SKY = INTEGER (Given)

N_SKY = INTEGER (Returned)

SUB (MAX_SKY) = CHARACTER$\ast$($\ast$) (Returned)

FILTER (MAX_SKY) = CHARACTER$\ast$($\ast$) (Returned)

ETA_TEL (MAX_SKY) = REAL (Returned)

B (MAX_SKY) = REAL (Returned)

TAUZ (MAX_SKY) = REAL (Returned)

DATEM (MAX_SKY) = CHARACTER$\ast$($\ast$) (Returned)

DAY (MAX_SKY) = DOUBLE PRECISION (Returned)

RUN (MAX_SKY) = INTEGER (Returned)

STATUS = INTEGER (Given and returned)

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