1 /*
2 * - - - - - - - - - - - - - - - -
3 * g a l _ t a i 2 t t _ t e s t
4 * - - - - - - - - - - - - - - - -
5 *
6 * This routine is part of the General Astrodynamics Library
7 *
8 * Description:
9 *
10 * Test gal_tai2tt routine.
11 *
12 * Status:
13 *
14 * Internal test routine
15 *
16 * Called:
17 *
18 * gal_viv
19 * gal_vdv
20 * gal_tai2tt
21 *
22 * This Revision:
23 *
24 * 2008 April 13
25 *
26 * Copyright (C) 2008 Paul C. L. Willmott. See notes at end.
27 */
28
29 #include "gal_tai2tt_test.h"
30 #include "gal_tai2tt.h"
31 #include "gal_test.h"
32 #include "gal_const.h"
33
34 void
gal_tai2tt_test()35 gal_tai2tt_test
36 (
37 )
38
39 {
40
41 double tt1, tt2 ;
42
43 extern int gal_tfunc ;
44
45 /*
46 * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
47 */
48
49 gal_tai2tt ( 2451545.0, 0.0, &tt1, &tt2 ) ;
50 gal_vdv ( tt1, 2451545.0 , 0.0, "gal_tai2tt", "tt1" ) ;
51 gal_vdv ( tt2, 32.184 / GAL_D2S, 0.0, "gal_tai2tt", "tt2" ) ;
52
53 gal_tfunc++ ;
54
55 /*
56 * Finished.
57 */
58
59 }
60
61 /*
62 * gal - General Astrodynamics Library
63 * Copyright (C) 2008 Paul C. L. Willmott
64 *
65 * This program is free software; you can redistribute it and/or modify
66 * it under the terms of the GNU General Public License as published by
67 * the Free Software Foundation; either version 2 of the License, or
68 * (at your option) any later version.
69 *
70 * This program is distributed in the hope that it will be useful,
71 * but WITHOUT ANY WARRANTY; without even the implied warranty of
72 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
73 * GNU General Public License for more details.
74 *
75 * You should have received a copy of the GNU General Public License along
76 * with this program; if not, write to the Free Software Foundation, Inc.,
77 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
78 *
79 * Contact:
80 *
81 * Paul Willmott
82 * vp9mu@amsat.org
83 */
84
85