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