1 /*
2 * - - - - - - - - - - - - - - - - - - - -
3 * g a l _ l a t l o n 2 t _ i e r s 0 0
4 * - - - - - - - - - - - - - - - - - - - -
5 *
6 * This routine is part of the General Astrodynamics Library
7 *
8 * Description:
9 *
10 * This routine creates a position vector in the ITRF reference
11 * frame from given geodetic latitude and longitude using
12 * IERS 2000 reference ellipsoid.
13 *
14 * Status:
15 *
16 * support routine.
17 *
18 * Given:
19 *
20 * lat d Latitude ( radians )
21 * lon d Longitude ( radians )
22 * height d Height above the reference spheroid ( m )
23 *
24 * Returned:
25 *
26 * itrf d[3] ITRF position vector ( km )
27 *
28 * Called:
29 *
30 * gal_latlon2t Convert latitude & longitude to ITRF position
31 *
32 * References:
33 *
34 * Explantory Supplement to the Astronomical Supplement
35 * Seidelmann P. Kenneth 1992
36 * Pages 202-207
37 *
38 * The Astronomical Almanac 1997
39 * Pages K11-K12
40 *
41 * This revision:
42 *
43 * 2008 May 4
44 *
45 * Copyright (C) 2008 Paul C. L. Willmott. See notes at end.
46 *
47 *-----------------------------------------------------------------------
48 */
49
50 #include "gal_latlon2t_iers00.h"
51 #include "gal_ellipsoids.h"
52 #include "gal_latlon2t.h"
53
54 void
gal_latlon2t_iers00(double lat,double lon,double height,double itrf[3])55 gal_latlon2t_iers00
56 (
57 double lat,
58 double lon,
59 double height,
60 double itrf[3]
61 )
62
63 {
64
65 double sma, invf ;
66
67 /*
68 * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
69 */
70
71 gal_emparams ( GAL_EMEA_IERS2000, &sma, &invf ) ;
72 gal_latlon2t ( lat, lon, height, sma, invf, itrf ) ;
73
74 /*
75 * Finished.
76 */
77
78 }
79
80 /*
81 * gal - General Astrodynamics Library
82 * Copyright (C) 2008 Paul C. L. Willmott
83 *
84 * This program is free software; you can redistribute it and/or modify
85 * it under the terms of the GNU General Public License as published by
86 * the Free Software Foundation; either version 2 of the License, or
87 * (at your option) any later version.
88 *
89 * This program is distributed in the hope that it will be useful,
90 * but WITHOUT ANY WARRANTY; without even the implied warranty of
91 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
92 * GNU General Public License for more details.
93 *
94 * You should have received a copy of the GNU General Public License along
95 * with this program; if not, write to the Free Software Foundation, Inc.,
96 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
97 *
98 * Contact:
99 *
100 * Paul Willmott
101 * vp9mu@amsat.org
102 */
103
104