GETOBLOC

Name

getobloc

Purpose (one Line)

Fetch location of observatory given its code

Description

Calling Sequence

getobloc,obscode,obs

Inputs

obscode - observatory code (integer or string)

Optional Input Parameters

Keyword Input Parameters

OBSFILE - Name of observatory code file to read. Default=obscode.dat

Outputs

obs - anonymous structure that contains information for the requested
observatory. Four tags are defined:
name - string name of observatory
lat - Latitude of observatory (radians)
lon - Longitude of observatory (radians)
obscode - observatory code (input returned always as string)

Common Blocks

Side Effects

Note, if the observatory code file is NOT found, '688' (Lowell Observatory)
is used.
If the file is okay but the code is not recognized, the observatory
name is returned as 'unknown' and lat=lon=0.0
Observatory coordinate file is read each time this procedure is called.
This really needs to add code to read the file once and store its
contents in non-volatile memory (anonymous stucture in a common block)
and then re-read the file only when it's date changes.

Restrictions

Procedure

Modification History

2002/03/14, Written by David Tucker
2002/12/09, MWB, converted to separate standalone routine.
2016/02/05, MWB, forced lat/lon to be double