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