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