faf03.c   faf03.c 
skipping to change at line 47 skipping to change at line 47
*/ */
{ {
double a; double a;
/* Mean longitude of the Moon minus that of the ascending node */ /* Mean longitude of the Moon minus that of the ascending node */
/* (IERS Conventions 2003). */ /* (IERS Conventions 2003). */
a = fmod( 335779.526232 + a = fmod( 335779.526232 +
t * ( 1739527262.8478 + t * ( 1739527262.8478 +
t * ( - 12.7512 + t * ( - 12.7512 +
t * ( - 0.001037 + t * ( - 0.001037 +
t * ( 0.00000417 ) ) ) ), TURNAS ) * DAS2R; t * ( 0.00000417 ) ) ) ), ERFA_TURNAS ) * ERFA_DAS2R;
return a; return a;
} }
/*---------------------------------------------------------------------- /*----------------------------------------------------------------------
** **
** **
** Copyright (C) 2013, NumFOCUS Foundation. ** Copyright (C) 2013, NumFOCUS Foundation.
** All rights reserved. ** All rights reserved.
** **
 End of changes. 1 change blocks. 
1 lines changed or deleted 1 lines changed or added

This html diff was produced by rfcdiff 1.41. The latest version is available from http://tools.ietf.org/tools/rfcdiff/