1 /*
2  *  - - - - - - - - - -
3  *   g a l _ m a f m s
4  *  - - - - - - - - - -
5  *
6  *  This routine is part of the General Astrodynamics Library
7  *
8  *  Description:
9  *
10  *     This routine calculates the parameters for the Mars
11  *     Fictitious Mean Sun and related parameters.
12  *
13  *  Status:
14  *
15  *     support routine.
16  *
17  *  Given:
18  *
19  *     tt1                 d        TT date part 1 ( see Note 1 )
20  *     tt2                 d        TT date part 2 ( see Note 1 )
21  *
22  *  Returned:
23  *
24  *     *m                  d        Mean anomaly ( radians )
25  *     *fms                d        Fictitious Maen Sun Angle ( radians )
26  *     *pbs                d        Sum of angular perturbations in longitude ( radians )
27  *     *ls                 d        Aerocentric solar longitude ( radians )
28  *     *eot                d        Equation of Time ( radians )
29  *
30  *  Notes:
31  *
32  *  1) The Julian Date is apportioned in any convenient way between
33  *     the arguments tt1 and tt2.  For example, JD=2450123.7 could
34  *     be expressed in any of these ways, among others:
35  *
36  *               tt1          tt2
37  *
38  *         2450123.7          0.0   (JD method)
39  *         2451545.0      -1421.3   (J2000 method)
40  *         2400000.5      50123.2   (MJD method)
41  *         2450123.5          0.2   (date & time method)
42  *
43  *  Called:
44  *
45  *     gal_anp             Normalize angle to 0 <= a < pi
46  *
47  *  References:
48  *
49  *     A post-Pathfinder evaluation of areocentric solar coordinates with
50  *     improved timing recipes for Mars seasonal/diurnal climate studies
51  *     by Michael Allison, Megan McEwen,
52  *     Planetary and Space Science 48 (2000) 215-235
53  *
54  *     Mars24 URL: http://www.giss.nasa.gov/tools/mars24/help/algorithm.html
55  *     The referenced URL contains corrections to the referenced article.
56  *
57  *  This revision:
58  *
59  *     2009 January 5
60  *
61  *  Copyright (C) 2009 Paul C. L. Willmott. See notes at end.
62  *
63  *-----------------------------------------------------------------------
64  */
65 
66 #ifndef _GAL_MAFMS_H_
67 #define _GAL_MAFMS_H_ 1
68 
69 #undef __BEGIN_DECLS
70 #undef __END_DECLS
71 #ifdef __cplusplus
72 #define __BEGIN_DECLS extern "C" {
73 #define __END_DECLS }
74 #else
75 #define __BEGIN_DECLS /* empty */
76 #define __END_DECLS   /* empty */
77 #endif
78 
79 __BEGIN_DECLS
80 
81 void
82 gal_mafms
83  (
84     double tt1,
85     double tt2,
86     double *m,
87     double *fms,
88     double *pbs,
89     double *ls,
90     double *eot
91  ) ;
92 
93 __END_DECLS
94 
95 #endif /* !_GAL_MAFMS_H_ */
96 
97 /*
98  *  gal - General Astrodynamics Library
99  *  Copyright (C) 2009 Paul C. L. Willmott
100  *
101  *  This program is free software; you can redistribute it and/or modify
102  *  it under the terms of the GNU General Public License as published by
103  *  the Free Software Foundation; either version 2 of the License, or
104  *  (at your option) any later version.
105  *
106  *  This program is distributed in the hope that it will be useful,
107  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
108  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
109  *  GNU General Public License for more details.
110  *
111  *  You should have received a copy of the GNU General Public License along
112  *  with this program; if not, write to the Free Software Foundation, Inc.,
113  *  51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
114  *
115  *  Contact:
116  *
117  *  Paul Willmott
118  *  vp9mu@amsat.org
119  */
120