1 /*
2  *  - - - - - - - - - - -
3  *   g a l _ f a v e 0 3
4  *  - - - - - - - - - - -
5  *
6  *  This routine is part of the General Astrodynamics Library
7  *
8  *  Description:
9  *
10  *  Fundamental argument, IERS Conventions (2003):
11  *  mean longitude of Venus.
12  *
13  *  This routine is an independent translation of a FORTRAN routine
14  *  that is part of IAU's SOFA software collection.
15  *
16  *  Status:
17  *
18  *     canonical model.
19  *
20  *  Given:
21  *
22  *     t                   d        TDB, Julian centuries since J2000 (Note 1)
23  *
24  *  Returned:
25  *
26  *     gal_fave03          d        mean longitude of Venus, radians (Note 2)
27  *
28  *  Notes:
29  *
30  *  1) Though t is strictly TDB, it is usually more convenient to use TT,
31  *     which makes no significant difference.
32  *
33  *  2) The expression used is as adopted in IERS Conventions (2003) and
34  *     comes from Souchay et al. (1999) after Simon et al. (1994).
35  *
36  *  References:
37  *
38  *     McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003),
39  *     IERS Technical Note No. 32, BKG (2004)
40  *
41  *     Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M.,
42  *     Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683
43  *
44  *     Souchay, J., Loysel, B., Kinoshita, H., Folgueira, M. 1999,
45  *     Astron.Astrophys.Supp.Ser. 135, 111
46  *
47  *  This revision:
48  *
49  *     2007 May 11 ( c version 2008 January 19 )
50  *
51  *
52  *  Copyright (C) 2008 Paul C. L. Willmott. See notes at end.
53  *
54  *-----------------------------------------------------------------------
55  */
56 
57 #ifndef _GAL_FAVE03_H_
58 #define _GAL_FAVE03_H_ 1
59 
60 #undef __BEGIN_DECLS
61 #undef __END_DECLS
62 #ifdef __cplusplus
63 #define __BEGIN_DECLS extern "C" {
64 #define __END_DECLS }
65 #else
66 #define __BEGIN_DECLS /* empty */
67 #define __END_DECLS   /* empty */
68 #endif
69 
70 __BEGIN_DECLS
71 
72 double
73 gal_fave03
74  (
75     double t
76  ) ;
77 
78 __END_DECLS
79 
80 #endif /* !_GAL_FAVE03_H_ */
81 
82 /*
83  *  gal - General Astrodynamics Library
84  *  Copyright (C) 2008 Paul C. L. Willmott
85  *
86  *  This program is free software; you can redistribute it and/or modify
87  *  it under the terms of the GNU General Public License as published by
88  *  the Free Software Foundation; either version 2 of the License, or
89  *  (at your option) any later version.
90  *
91  *  This program is distributed in the hope that it will be useful,
92  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
93  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
94  *  GNU General Public License for more details.
95  *
96  *  You should have received a copy of the GNU General Public License along
97  *  with this program; if not, write to the Free Software Foundation, Inc.,
98  *  51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
99  *
100  *  Contact:
101  *
102  *  Paul Willmott
103  *  vp9mu@amsat.org
104  */
105