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