Find file
Fetching contributors…
Cannot retrieve contributors at this time
943 lines (840 sloc) 26.1 KB
SUBROUTINE sla_OBS (N, C, NAME, W, P, H)
*+
* - - - -
* O B S
* - - - -
*
* Parameters of selected groundbased observing stations
*
* Given:
* N int number specifying observing station
*
* Either given or returned
* C c*(*) identifier specifying observing station
*
* Returned:
* NAME c*(*) name of specified observing station
* W dp longitude (radians, West +ve)
* P dp geodetic latitude (radians, North +ve)
* H dp height above sea level (metres)
*
* Notes:
*
* Station identifiers C may be up to 10 characters long,
* and station names NAME may be up to 40 characters long.
*
* C and N are alternative ways of specifying the observing
* station. The C option, which is the most generally useful,
* may be selected by specifying an N value of zero or less.
* If N is 1 or more, the parameters of the Nth station
* in the currently supported list are interrogated, and
* the station identifier C is returned as well as NAME, W,
* P and H.
*
* If the station parameters are not available, either because
* the station identifier C is not recognized, or because an
* N value greater than the number of stations supported is
* given, a name of '?' is returned and C, W, P and H are left
* in their current states.
*
* Programs can obtain a list of all currently supported
* stations by calling the routine repeatedly, with N=1,2,3...
* When NAME='?' is seen, the list of stations has been
* exhausted.
*
* Station numbers, identifiers, names and other details are
* subject to change and should not be hardwired into
* application programs.
*
* All station identifiers C are uppercase only; lowercase
* characters must be converted to uppercase by the calling
* program. The station names returned may contain both upper-
* and lowercase. All characters up to the first space are
* checked; thus an abbreviated ID will return the parameters
* for the first station in the list which matches the
* abbreviation supplied, and no station in the list will ever
* contain embedded spaces. C must not have leading spaces.
*
* IMPORTANT -- BEWARE OF THE LONGITUDE SIGN CONVENTION. The
* longitude returned by sla_OBS is west-positive in accordance
* with astronomical usage. However, this sign convention is
* left-handed and is the opposite of the one used by geographers;
* elsewhere in SLALIB the preferable east-positive convention is
* used. In particular, note that for use in sla_AOP, sla_AOPPA
* and sla_OAP the sign of the longitude must be reversed.
*
* Users are urged to inform the author of any improvements
* they would like to see made. For example:
*
* typographical corrections
* more accurate parameters
* better station identifiers or names
* additional stations
*
* P.T.Wallace Starlink 15 March 2002
*
* Copyright (C) 2002 Rutherford Appleton Laboratory
*
* License:
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program (see SLA_CONDITIONS); if not, write to the
* Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA
*
*-
IMPLICIT NONE
INTEGER N
CHARACTER C*(*),NAME*(*)
DOUBLE PRECISION W,P,H
INTEGER NMAX,M,NS,I
CHARACTER*10 CC
DOUBLE PRECISION AS2R,WEST,NORTH,EAST,SOUTH
INTEGER ID,IAM
REAL AS
PARAMETER (AS2R=0.484813681109535994D-5)
* Table of station identifiers
PARAMETER (NMAX=83)
CHARACTER*10 CTAB(NMAX)
DATA CTAB (1) /'AAT '/
DATA CTAB (2) /'LPO4.2 '/
DATA CTAB (3) /'LPO2.5 '/
DATA CTAB (4) /'LPO1 '/
DATA CTAB (5) /'LICK120 '/
DATA CTAB (6) /'MMT '/
DATA CTAB (7) /'DAO72 '/
DATA CTAB (8) /'DUPONT '/
DATA CTAB (9) /'MTHOP1.5 '/
DATA CTAB (10) /'STROMLO74 '/
DATA CTAB (11) /'ANU2.3 '/
DATA CTAB (12) /'GBVA140 '/
DATA CTAB (13) /'TOLOLO4M '/
DATA CTAB (14) /'TOLOLO1.5M'/
DATA CTAB (15) /'TIDBINBLA '/
DATA CTAB (16) /'BLOEMF '/
DATA CTAB (17) /'BOSQALEGRE'/
DATA CTAB (18) /'FLAGSTF61 '/
DATA CTAB (19) /'LOWELL72 '/
DATA CTAB (20) /'HARVARD '/
DATA CTAB (21) /'OKAYAMA '/
DATA CTAB (22) /'KPNO158 '/
DATA CTAB (23) /'KPNO90 '/
DATA CTAB (24) /'KPNO84 '/
DATA CTAB (25) /'KPNO36FT '/
DATA CTAB (26) /'KOTTAMIA '/
DATA CTAB (27) /'ESO3.6 '/
DATA CTAB (28) /'MAUNAK88 '/
DATA CTAB (29) /'UKIRT '/
DATA CTAB (30) /'QUEBEC1.6 '/
DATA CTAB (31) /'MTEKAR '/
DATA CTAB (32) /'MTLEMMON60'/
DATA CTAB (33) /'MCDONLD2.7'/
DATA CTAB (34) /'MCDONLD2.1'/
DATA CTAB (35) /'PALOMAR200'/
DATA CTAB (36) /'PALOMAR60 '/
DATA CTAB (37) /'DUNLAP74 '/
DATA CTAB (38) /'HPROV1.93 '/
DATA CTAB (39) /'HPROV1.52 '/
DATA CTAB (40) /'SANPM83 '/
DATA CTAB (41) /'SAAO74 '/
DATA CTAB (42) /'TAUTNBG '/
DATA CTAB (43) /'CATALINA61'/
DATA CTAB (44) /'STEWARD90 '/
DATA CTAB (45) /'USSR6 '/
DATA CTAB (46) /'ARECIBO '/
DATA CTAB (47) /'CAMB5KM '/
DATA CTAB (48) /'CAMB1MILE '/
DATA CTAB (49) /'EFFELSBERG'/
DATA CTAB (50) /'GBT '/
DATA CTAB (51) /'JODRELL1 '/
DATA CTAB (52) /'PARKES '/
DATA CTAB (53) /'VLA '/
DATA CTAB (54) /'SUGARGROVE'/
DATA CTAB (55) /'USSR600 '/
DATA CTAB (56) /'NOBEYAMA '/
DATA CTAB (57) /'JCMT '/
DATA CTAB (58) /'ESONTT '/
DATA CTAB (59) /'ST.ANDREWS'/
DATA CTAB (60) /'APO3.5 '/
DATA CTAB (61) /'KECK1 '/
DATA CTAB (62) /'TAUTSCHM '/
DATA CTAB (63) /'PALOMAR48 '/
DATA CTAB (64) /'UKST '/
DATA CTAB (65) /'KISO '/
DATA CTAB (66) /'ESOSCHM '/
DATA CTAB (67) /'ATCA '/
DATA CTAB (68) /'MOPRA '/
DATA CTAB (69) /'SUBARU '/
DATA CTAB (70) /'CFHT '/
DATA CTAB (71) /'KECK2 '/
DATA CTAB (72) /'GEMININ '/
DATA CTAB (73) /'FCRAO '/
DATA CTAB (74) /'IRTF '/
DATA CTAB (75) /'CSO '/
DATA CTAB (76) /'VLT1 '/
DATA CTAB (77) /'VLT2 '/
DATA CTAB (78) /'VLT3 '/
DATA CTAB (79) /'VLT4 '/
DATA CTAB (80) /'GEMINIS '/
DATA CTAB (81) /'KOSMA3M '/
DATA CTAB (82) /'MAGELLAN1 '/
DATA CTAB (83) /'MAGELLAN2 '/
* Degrees, arcminutes, arcseconds to radians
WEST(ID,IAM,AS)=AS2R*(DBLE(60*(60*ID+IAM))+DBLE(AS))
NORTH(ID,IAM,AS)=WEST(ID,IAM,AS)
EAST(ID,IAM,AS)=-WEST(ID,IAM,AS)
SOUTH(ID,IAM,AS)=-WEST(ID,IAM,AS)
* Station specified by number or identifier?
IF (N.GT.0) THEN
* Station specified by number
M=N
IF (M.LE.NMAX) C=CTAB(M)
ELSE
* Station specified by identifier: determine corresponding number
CC=C
DO NS=1,NMAX
DO I=1,10
IF (CC(I:I).EQ.' ') GO TO 5
IF (CC(I:I).NE.CTAB(NS)(I:I)) GO TO 1
END DO
GO TO 5
1 CONTINUE
END DO
NS=NMAX+1
5 CONTINUE
IF (C(1:1).NE.' ') THEN
M=NS
ELSE
M=NMAX+1
END IF
END IF
*
* Return parameters of Mth station
* --------------------------------
GO TO (10,20,30,40,50,60,70,80,90,100,
: 110,120,130,140,150,160,170,180,190,200,
: 210,220,230,240,250,260,270,280,290,300,
: 310,320,330,340,350,360,370,380,390,400,
: 410,420,430,440,450,460,470,480,490,500,
: 510,520,530,540,550,560,570,580,590,600,
: 610,620,630,640,650,660,670,680,690,700,
: 710,720,730,740,750,760,770,780,790,800,
: 810,820,830) M
GO TO 9000
* AAT (Observer's Guide) AAT
10 CONTINUE
NAME='Anglo-Australian 3.9m Telescope'
W=EAST(149,03,57.91)
P=SOUTH(31,16,37.34)
H=1164D0
GO TO 9999
* WHT (Gemini, April 1987) LPO4.2
20 CONTINUE
NAME='William Herschel 4.2m Telescope'
W=WEST(17,52,53.9)
P=NORTH(28,45,38.1)
H=2332D0
GO TO 9999
* INT (Gemini, April 1987) LPO2.5
30 CONTINUE
NAME='Isaac Newton 2.5m Telescope'
W=WEST(17,52,39.5)
P=NORTH(28,45,43.2)
H=2336D0
GO TO 9999
* JKT (Gemini, April 1987) LPO1
40 CONTINUE
NAME='Jacobus Kapteyn 1m Telescope'
W=WEST(17,52,41.2)
P=NORTH(28,45,39.9)
H=2364D0
GO TO 9999
* Lick 120" (S.L.Allen, private communication, 2002) LICK120
50 CONTINUE
NAME='Lick 120 inch'
W=WEST(121,38,13.689)
P=NORTH(37,20,34.931)
H=1286D0
GO TO 9999
* MMT 6.5m conversion (MMT Observatory website) MMT
60 CONTINUE
NAME='MMT 6.5m, Mt Hopkins'
W=WEST(110,53,04.4)
P=NORTH(31,41,19.6)
H=2608D0
GO TO 9999
* Victoria B.C. 1.85m (1984 Almanac) DAO72
70 CONTINUE
NAME='DAO Victoria BC 1.85 metre'
W=WEST(123,25,01.18)
P=NORTH(48,31,11.9)
H=238D0
GO TO 9999
* Las Campanas (1983 Almanac) DUPONT
80 CONTINUE
NAME='Du Pont 2.5m Telescope, Las Campanas'
W=WEST(70,42,9.)
P=SOUTH(29,00,11.)
H=2280D0
GO TO 9999
* Mt Hopkins 1.5m (1983 Almanac) MTHOP1.5
90 CONTINUE
NAME='Mt Hopkins 1.5 metre'
W=WEST(110,52,39.00)
P=NORTH(31,40,51.4)
H=2344D0
GO TO 9999
* Mt Stromlo 74" (1983 Almanac) STROMLO74
100 CONTINUE
NAME='Mount Stromlo 74 inch'
W=EAST(149,00,27.59)
P=SOUTH(35,19,14.3)
H=767D0
GO TO 9999
* ANU 2.3m, SSO (Gary Hovey) ANU2.3
110 CONTINUE
NAME='Siding Spring 2.3 metre'
W=EAST(149,03,40.3)
P=SOUTH(31,16,24.1)
H=1149D0
GO TO 9999
* Greenbank 140' (1983 Almanac) GBVA140
120 CONTINUE
NAME='Greenbank 140 foot'
W=WEST(79,50,09.61)
P=NORTH(38,26,15.4)
H=881D0
GO TO 9999
* Cerro Tololo 4m (1982 Almanac) TOLOLO4M
130 CONTINUE
NAME='Cerro Tololo 4 metre'
W=WEST(70,48,53.6)
P=SOUTH(30,09,57.8)
H=2235D0
GO TO 9999
* Cerro Tololo 1.5m (1982 Almanac) TOLOLO1.5M
140 CONTINUE
NAME='Cerro Tololo 1.5 metre'
W=WEST(70,48,54.5)
P=SOUTH(30,09,56.3)
H=2225D0
GO TO 9999
* Tidbinbilla 64m (1982 Almanac) TIDBINBLA
150 CONTINUE
NAME='Tidbinbilla 64 metre'
W=EAST(148,58,48.20)
P=SOUTH(35,24,14.3)
H=670D0
GO TO 9999
* Bloemfontein 1.52m (1981 Almanac) BLOEMF
160 CONTINUE
NAME='Bloemfontein 1.52 metre'
W=EAST(26,24,18.)
P=SOUTH(29,02,18.)
H=1387D0
GO TO 9999
* Bosque Alegre 1.54m (1981 Almanac) BOSQALEGRE
170 CONTINUE
NAME='Bosque Alegre 1.54 metre'
W=WEST(64,32,48.0)
P=SOUTH(31,35,53.)
H=1250D0
GO TO 9999
* USNO 61" astrographic reflector, Flagstaff (1981 Almanac) FLAGSTF61
180 CONTINUE
NAME='USNO 61 inch astrograph, Flagstaff'
W=WEST(111,44,23.6)
P=NORTH(35,11,02.5)
H=2316D0
GO TO 9999
* Lowell 72" (1981 Almanac) LOWELL72
190 CONTINUE
NAME='Perkins 72 inch, Lowell'
W=WEST(111,32,09.3)
P=NORTH(35,05,48.6)
H=2198D0
GO TO 9999
* Harvard 1.55m (1981 Almanac) HARVARD
200 CONTINUE
NAME='Harvard College Observatory 1.55m'
W=WEST(71,33,29.32)
P=NORTH(42,30,19.0)
H=185D0
GO TO 9999
* Okayama 1.88m (1981 Almanac) OKAYAMA
210 CONTINUE
NAME='Okayama 1.88 metre'
W=EAST(133,35,47.29)
P=NORTH(34,34,26.1)
H=372D0
GO TO 9999
* Kitt Peak Mayall 4m (1981 Almanac) KPNO158
220 CONTINUE
NAME='Kitt Peak 158 inch'
W=WEST(111,35,57.61)
P=NORTH(31,57,50.3)
H=2120D0
GO TO 9999
* Kitt Peak 90 inch (1981 Almanac) KPNO90
230 CONTINUE
NAME='Kitt Peak 90 inch'
W=WEST(111,35,58.24)
P=NORTH(31,57,46.9)
H=2071D0
GO TO 9999
* Kitt Peak 84 inch (1981 Almanac) KPNO84
240 CONTINUE
NAME='Kitt Peak 84 inch'
W=WEST(111,35,51.56)
P=NORTH(31,57,29.2)
H=2096D0
GO TO 9999
* Kitt Peak 36 foot (1981 Almanac) KPNO36FT
250 CONTINUE
NAME='Kitt Peak 36 foot'
W=WEST(111,36,51.12)
P=NORTH(31,57,12.1)
H=1939D0
GO TO 9999
* Kottamia 74" (1981 Almanac) KOTTAMIA
260 CONTINUE
NAME='Kottamia 74 inch'
W=EAST(31,49,30.)
P=NORTH(29,55,54.)
H=476D0
GO TO 9999
* La Silla 3.6m (1981 Almanac) ESO3.6
270 CONTINUE
NAME='ESO 3.6 metre'
W=WEST(70,43,36.)
P=SOUTH(29,15,36.)
H=2428D0
GO TO 9999
* Mauna Kea 88 inch MAUNAK88
* (IfA website, Richard Wainscoat)
280 CONTINUE
NAME='Mauna Kea 88 inch'
W=WEST(155,28,09.96)
P=NORTH(19,49,22.77)
H=4213.6D0
GO TO 9999
* UKIRT (IfA website, Richard Wainscoat) UKIRT
290 CONTINUE
NAME='UK Infra Red Telescope'
W=WEST(155,28,13.18)
P=NORTH(19,49,20.75)
H=4198.5D0
GO TO 9999
* Quebec 1.6m (1981 Almanac) QUEBEC1.6
300 CONTINUE
NAME='Quebec 1.6 metre'
W=WEST(71,09,09.7)
P=NORTH(45,27,20.6)
H=1114D0
GO TO 9999
* Mt Ekar 1.82m (1981 Almanac) MTEKAR
310 CONTINUE
NAME='Mt Ekar 1.82 metre'
W=EAST(11,34,15.)
P=NORTH(45,50,48.)
H=1365D0
GO TO 9999
* Mt Lemmon 60" (1981 Almanac) MTLEMMON60
320 CONTINUE
NAME='Mt Lemmon 60 inch'
W=WEST(110,42,16.9)
P=NORTH(32,26,33.9)
H=2790D0
GO TO 9999
* Mt Locke 2.7m (1981 Almanac) MCDONLD2.7
330 CONTINUE
NAME='McDonald 2.7 metre'
W=WEST(104,01,17.60)
P=NORTH(30,40,17.7)
H=2075D0
GO TO 9999
* Mt Locke 2.1m (1981 Almanac) MCDONLD2.1
340 CONTINUE
NAME='McDonald 2.1 metre'
W=WEST(104,01,20.10)
P=NORTH(30,40,17.7)
H=2075D0
GO TO 9999
* Palomar 200" (1981 Almanac) PALOMAR200
350 CONTINUE
NAME='Palomar 200 inch'
W=WEST(116,51,50.)
P=NORTH(33,21,22.)
H=1706D0
GO TO 9999
* Palomar 60" (1981 Almanac) PALOMAR60
360 CONTINUE
NAME='Palomar 60 inch'
W=WEST(116,51,31.)
P=NORTH(33,20,56.)
H=1706D0
GO TO 9999
* David Dunlap 74" (1981 Almanac) DUNLAP74
370 CONTINUE
NAME='David Dunlap 74 inch'
W=WEST(79,25,20.)
P=NORTH(43,51,46.)
H=244D0
GO TO 9999
* Haute Provence 1.93m (1981 Almanac) HPROV1.93
380 CONTINUE
NAME='Haute Provence 1.93 metre'
W=EAST(5,42,46.75)
P=NORTH(43,55,53.3)
H=665D0
GO TO 9999
* Haute Provence 1.52m (1981 Almanac) HPROV1.52
390 CONTINUE
NAME='Haute Provence 1.52 metre'
W=EAST(5,42,43.82)
P=NORTH(43,56,00.2)
H=667D0
GO TO 9999
* San Pedro Martir 83" (1981 Almanac) SANPM83
400 CONTINUE
NAME='San Pedro Martir 83 inch'
W=WEST(115,27,47.)
P=NORTH(31,02,38.)
H=2830D0
GO TO 9999
* Sutherland 74" (1981 Almanac) SAAO74
410 CONTINUE
NAME='Sutherland 74 inch'
W=EAST(20,48,44.3)
P=SOUTH(32,22,43.4)
H=1771D0
GO TO 9999
* Tautenburg 2m (1981 Almanac) TAUTNBG
420 CONTINUE
NAME='Tautenburg 2 metre'
W=EAST(11,42,45.)
P=NORTH(50,58,51.)
H=331D0
GO TO 9999
* Catalina 61" (1981 Almanac) CATALINA61
430 CONTINUE
NAME='Catalina 61 inch'
W=WEST(110,43,55.1)
P=NORTH(32,25,00.7)
H=2510D0
GO TO 9999
* Steward 90" (1981 Almanac) STEWARD90
440 CONTINUE
NAME='Steward 90 inch'
W=WEST(111,35,58.24)
P=NORTH(31,57,46.9)
H=2071D0
GO TO 9999
* Russian 6m (1981 Almanac) USSR6
450 CONTINUE
NAME='USSR 6 metre'
W=EAST(41,26,30.0)
P=NORTH(43,39,12.)
H=2100D0
GO TO 9999
* Arecibo 1000' (1981 Almanac) ARECIBO
460 CONTINUE
NAME='Arecibo 1000 foot'
W=WEST(66,45,11.1)
P=NORTH(18,20,36.6)
H=496D0
GO TO 9999
* Cambridge 5km (1981 Almanac) CAMB5KM
470 CONTINUE
NAME='Cambridge 5km'
W=EAST(0,02,37.23)
P=NORTH(52,10,12.2)
H=17D0
GO TO 9999
* Cambridge 1 mile (1981 Almanac) CAMB1MILE
480 CONTINUE
NAME='Cambridge 1 mile'
W=EAST(0,02,21.64)
P=NORTH(52,09,47.3)
H=17D0
GO TO 9999
* Bonn 100m (1981 Almanac) EFFELSBERG
490 CONTINUE
NAME='Effelsberg 100 metre'
W=EAST(6,53,01.5)
P=NORTH(50,31,28.6)
H=366D0
GO TO 9999
* Green Bank Telescop 100m
500 CONTINUE
NAME='Green Bank Telescope'
W=WEST(79,50,23.406)
P=NORTH(38,25,59.236)
H=880D0
GO TO 9999
* Jodrell Bank Mk 1 (1981 Almanac) JODRELL1
510 CONTINUE
NAME='Jodrell Bank 250 foot'
W=WEST(2,18,25.)
P=NORTH(53,14,10.5)
H=78D0
GO TO 9999
* Australia Telescope Parkes Observatory PARKES
* (Peter te Lintel Hekkert)
520 CONTINUE
NAME='Parkes 64 metre'
W=EAST(148,15,44.3591)
P=SOUTH(32,59,59.8657)
H=391.79D0
GO TO 9999
* VLA (1981 Almanac) VLA
530 CONTINUE
NAME='Very Large Array'
W=WEST(107,37,03.82)
P=NORTH(34,04,43.5)
H=2124D0
GO TO 9999
* Sugar Grove 150' (1981 Almanac) SUGARGROVE
540 CONTINUE
NAME='Sugar Grove 150 foot'
W=WEST(79,16,23.)
P=NORTH(38,31,14.)
H=705D0
GO TO 9999
* Russian 600' (1981 Almanac) USSR600
550 CONTINUE
NAME='USSR 600 foot'
W=EAST(41,35,25.5)
P=NORTH(43,49,32.)
H=973D0
GO TO 9999
* Nobeyama 45 metre mm dish (based on 1981 Almanac entry) NOBEYAMA
560 CONTINUE
NAME='Nobeyama 45 metre'
W=EAST(138,29,12.)
P=NORTH(35,56,19.)
H=1350D0
GO TO 9999
* James Clerk Maxwell 15 metre mm telescope, Mauna Kea JCMT
* (IfA website, Richard Wainscoat, height from I.Coulson)
570 CONTINUE
NAME='JCMT 15 metre'
W=WEST(155,28,37.20)
P=NORTH(19,49,22.11)
H=4111D0
GO TO 9999
* ESO 3.5 metre NTT, La Silla (K.Wirenstrand) ESONTT
580 CONTINUE
NAME='ESO 3.5 metre NTT'
W=WEST(70,43,07.)
P=SOUTH(29,15,30.)
H=2377D0
GO TO 9999
* St Andrews University Observatory (1982 Almanac) ST.ANDREWS
590 CONTINUE
NAME='St Andrews'
W=WEST(2,48,52.5)
P=NORTH(56,20,12.)
H=30D0
GO TO 9999
* Apache Point 3.5 metre (R.Owen) APO3.5
600 CONTINUE
NAME='Apache Point 3.5m'
W=WEST(105,49,11.56)
P=NORTH(32,46,48.96)
H=2809D0
GO TO 9999
* W.M.Keck Observatory, Telescope 1 KECK1
* (William Lupton)
610 CONTINUE
NAME='Keck 10m Telescope #1'
W=WEST(155,28,28.99)
P=NORTH(19,49,33.41)
H=4160D0
GO TO 9999
* Tautenberg Schmidt (1983 Almanac) TAUTSCHM
620 CONTINUE
NAME='Tautenberg 1.34 metre Schmidt'
W=EAST(11,42,45.0)
P=NORTH(50,58,51.0)
H=331D0
GO TO 9999
* Palomar Schmidt (1981 Almanac) PALOMAR48
630 CONTINUE
NAME='Palomar 48-inch Schmidt'
W=WEST(116,51,32.0)
P=NORTH(33,21,26.0)
H=1706D0
GO TO 9999
* UK Schmidt, Siding Spring (1983 Almanac) UKST
640 CONTINUE
NAME='UK 1.2 metre Schmidt, Siding Spring'
W=EAST(149,04,12.8)
P=SOUTH(31,16,27.8)
H=1145D0
GO TO 9999
* Kiso Schmidt, Japan (1981 Almanac) KISO
650 CONTINUE
NAME='Kiso 1.05 metre Schmidt, Japan'
W=EAST(137,37,42.2)
P=NORTH(35,47,38.7)
H=1130D0
GO TO 9999
* ESO Schmidt, La Silla (1981 Almanac) ESOSCHM
660 CONTINUE
NAME='ESO 1 metre Schmidt, La Silla'
W=WEST(70,43,46.5)
P=SOUTH(29,15,25.8)
H=2347D0
GO TO 9999
* Australia Telescope Compact Array ATCA
* (WGS84 coordinates of Station 35, Mark Calabretta)
670 CONTINUE
NAME='Australia Telescope Compact Array'
W=EAST(149,33,00.500)
P=SOUTH(30,18,46.385)
H=236.9D0
GO TO 9999
* Australia Telescope Mopra Observatory MOPRA
* (Peter te Lintel Hekkert)
680 CONTINUE
NAME='ATNF Mopra Observatory'
W=EAST(149,05,58.732)
P=SOUTH(31,16,04.451)
H=850D0
GO TO 9999
* Subaru telescope, Mauna Kea SUBARU
* (IfA website, Richard Wainscoat)
690 CONTINUE
NAME='Subaru 8m telescope'
W=WEST(155,28,33.67)
P=NORTH(19,49,31.81)
H=4163D0
GO TO 9999
* Canada-France-Hawaii Telescope, Mauna Kea CFHT
* (IfA website, Richard Wainscoat)
700 CONTINUE
NAME='Canada-France-Hawaii 3.6m Telescope'
W=WEST(155,28,07.95)
P=NORTH(19,49,30.91)
H=4204.1D0
GO TO 9999
* W.M.Keck Observatory, Telescope 2 KECK2
* (William Lupton)
710 CONTINUE
NAME='Keck 10m Telescope #2'
W=WEST(155,28,27.24)
P=NORTH(19,49,35.62)
H=4159.6D0
GO TO 9999
* Gemini North, Mauna Kea GEMININ
* (IfA website, Richard Wainscoat)
720 CONTINUE
NAME='Gemini North 8-m telescope'
W=WEST(155,28,08.57)
P=NORTH(19,49,25.69)
H=4213.4D0
GO TO 9999
* Five College Radio Astronomy Observatory FCRAO
* (Tim Jenness)
730 CONTINUE
NAME='Five College Radio Astronomy Obs'
W=WEST(72,20,42.0)
P=NORTH(42,23,30.0)
H=314D0
GO TO 9999
* NASA Infra Red Telescope Facility IRTF
* (IfA website, Richard Wainscoat)
740 CONTINUE
NAME='NASA IR Telescope Facility, Mauna Kea'
W=WEST(155,28,19.20)
P=NORTH(19,49,34.39)
H=4168.1D0
GO TO 9999
* Caltech Submillimeter Observatory CSO
* (IfA website, Richard Wainscoat; height estimated)
750 CONTINUE
NAME='Caltech Sub-mm Observatory, Mauna Kea'
W=WEST(155,28,31.79)
P=NORTH(19,49,20.78)
H=4080D0
GO TO 9999
* ESO VLT, UT1 VLT1
* (ESO website, VLT Whitebook Chapter 2)
760 CONTINUE
NAME='ESO VLT, Paranal, Chile: UT1'
W=WEST(70,24,11.642)
P=SOUTH(24,37,33.117)
H=2635.43
GO TO 9999
* ESO VLT, UT2 VLT2
* (ESO website, VLT Whitebook Chapter 2)
770 CONTINUE
NAME='ESO VLT, Paranal, Chile: UT2'
W=WEST(70,24,10.855)
P=SOUTH(24,37,31.465)
H=2635.43
GO TO 9999
* ESO VLT, UT3 VLT3
* (ESO website, VLT Whitebook Chapter 2)
780 CONTINUE
NAME='ESO VLT, Paranal, Chile: UT3'
W=WEST(70,24,09.896)
P=SOUTH(24,37,30.300)
H=2635.43
GO TO 9999
* ESO VLT, UT4 VLT4
* (ESO website, VLT Whitebook Chapter 2)
790 CONTINUE
NAME='ESO VLT, Paranal, Chile: UT4'
W=WEST(70,24,08.000)
P=SOUTH(24,37,31.000)
H=2635.43
GO TO 9999
* Gemini South, Cerro Pachon GEMINIS
* (GPS readings by Patrick Wallace)
800 CONTINUE
NAME='Gemini South 8-m telescope'
W=WEST(70,44,11.5)
P=SOUTH(30,14,26.7)
H=2738D0
GO TO 9999
* Cologne Observatory for Submillimeter Astronomy (KOSMA) KOSMA3M
* (Holger Jakob)
810 CONTINUE
NAME='KOSMA 3m telescope, Gornergrat'
W=EAST(7,47,3.48)
P=NORTH(45,58,59.772)
H=3141D0
GO TO 9999
* Magellan 1, 6.5m telescope at Las Campanas, Chile MAGELLAN1
* (Skip Schaller)
820 CONTINUE
NAME='Magellan 1, 6.5m, Las Campanas'
W=WEST(70,41,31.9)
P=SOUTH(29,00,51.7)
H=2408D0
GO TO 9999
* Magellan 2, 6.5m telescope at Las Campanas, Chile MAGELLAN2
* (Skip Schaller)
830 CONTINUE
NAME='Magellan 2, 6.5m, Las Campanas'
W=WEST(70,41,33.5)
P=SOUTH(29,00,50.3)
H=2408D0
GO TO 9999
* Unrecognized station
9000 CONTINUE
NAME='?'
* Exit
9999 CONTINUE
END