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/ |