fasa03.c | fasa03.c | |||
---|---|---|---|---|
skipping to change at line 44 | skipping to change at line 44 | |||
** Souchay, J., Loysel, B., Kinoshita, H., Folgueira, M. 1999, | ** Souchay, J., Loysel, B., Kinoshita, H., Folgueira, M. 1999, | |||
** Astron.Astrophys.Supp.Ser. 135, 111 | ** Astron.Astrophys.Supp.Ser. 135, 111 | |||
** | ** | |||
** Copyright (C) 2013, NumFOCUS Foundation. | ** Copyright (C) 2013, NumFOCUS Foundation. | |||
** Derived, with permission, from the SOFA library. See notes at end of f ile. | ** Derived, with permission, from the SOFA library. See notes at end of f ile. | |||
*/ | */ | |||
{ | { | |||
double a; | double a; | |||
/* Mean longitude of Saturn (IERS Conventions 2003). */ | /* Mean longitude of Saturn (IERS Conventions 2003). */ | |||
a = fmod(0.874016757 + 21.3299104960 * t, D2PI); | a = fmod(0.874016757 + 21.3299104960 * t, ERFA_D2PI); | |||
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/ |