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