1 /*
2 * - - - - - - - - - - - - - - -
3 * g a l _ c 2 t p e _ t e s t
4 * - - - - - - - - - - - - - - -
5 *
6 * This routine is part of the General Astrodynamics Library
7 *
8 * Description:
9 *
10 * Test gal_c2tpe routine.
11 *
12 * Status:
13 *
14 * Internal test routine
15 *
16 * Called:
17 *
18 * gal_c2tpe
19 * gal_vdv
20 *
21 * This Revision:
22 *
23 * 2008 January 14 ( c version 2008 June 14 )
24 *
25 * Copyright (C) 2008 Paul C. L. Willmott. See notes at end.
26 */
27
28 #include "gal_c2tpe.h"
29 #include "gal_c2tpe_test.h"
30 #include "gal_test.h"
31
32 void
gal_c2tpe_test()33 gal_c2tpe_test
34 (
35 )
36 {
37
38 double tta, ttb, uta, utb, dpsi, deps, xp, yp, rc2t[3][3] ;
39
40 extern int gal_tfunc ;
41
42 /*
43 * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
44 */
45
46 tta = 2400000.5 ;
47 uta = 2400000.5 ;
48 ttb = 53736.0 ;
49 utb = 53736.0 ;
50 deps = 0.4090789763356509900 ;
51 dpsi = -0.9630909107115582393e-5 ;
52 xp = 2.55060238e-7 ;
53 yp = 1.860359247e-6 ;
54
55 gal_c2tpe ( tta, ttb, uta, utb, dpsi, deps, xp, yp, rc2t ) ;
56 gal_vdv ( rc2t[0][0], -0.1813677995858146152, 1e-10 /* 12 */, "gal_c2tpe", "rc2t[0][0]" ) ;
57 gal_vdv ( rc2t[0][1], 0.9023482171235561733, 1e-08 /* 12 */, "gal_c2tpe", "rc2t[0][1]" ) ;
58 gal_vdv ( rc2t[0][2], -0.3909903020886058012, 1e-08 /* 12 */, "gal_c2tpe", "rc2t[0][2]" ) ;
59 gal_vdv ( rc2t[1][0], -0.9834147641459164424, 1e-10 /* 12 */, "gal_c2tpe", "rc2t[1][0]" ) ;
60 gal_vdv ( rc2t[1][1], -0.1659883628822576285, 1e-09 /* 12 */, "gal_c2tpe", "rc2t[1][1]" ) ;
61 gal_vdv ( rc2t[1][2], 0.7309764050569163285e-1, 1e-08 /* 12 */, "gal_c2tpe", "rc2t[1][2]" ) ;
62 gal_vdv ( rc2t[2][0], 0.1059685439722449088e-2, 1e-10 /* 12 */, "gal_c2tpe", "rc2t[2][0]" ) ;
63 gal_vdv ( rc2t[2][1], 0.3977631939252391224, 1e-08 /* 12 */, "gal_c2tpe", "rc2t[2][1]" ) ;
64 gal_vdv ( rc2t[2][2], 0.9174875032528568841, 1e-08 /* 12 */, "gal_c2tpe", "rc2t[2][2]" ) ;
65
66 gal_tfunc++ ;
67
68 /*
69 * Finished.
70 */
71
72 }
73
74 /*
75 * gal - General Astrodynamics Library
76 * Copyright (C) 2008 Paul C. L. Willmott
77 *
78 * This program is free software; you can redistribute it and/or modify
79 * it under the terms of the GNU General Public License as published by
80 * the Free Software Foundation; either version 2 of the License, or
81 * (at your option) any later version.
82 *
83 * This program is distributed in the hope that it will be useful,
84 * but WITHOUT ANY WARRANTY; without even the implied warranty of
85 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
86 * GNU General Public License for more details.
87 *
88 * You should have received a copy of the GNU General Public License along
89 * with this program; if not, write to the Free Software Foundation, Inc.,
90 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
91 *
92 * Contact:
93 *
94 * Paul Willmott
95 * vp9mu@amsat.org
96 */
97