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