sideral_time.c   sideral_time.c
skipping to change at line 252 skipping to change at line 252
D *= M_PI/180.; D *= M_PI/180.;
M *= M_PI/180.; M *= M_PI/180.;
MM *= M_PI/180.; MM *= M_PI/180.;
F *= M_PI/180.; F *= M_PI/180.;
O *= M_PI/180.; O *= M_PI/180.;
/* calc sum of terms in table 21A */ /* calc sum of terms in table 21A */
for (i=0; i< TERMS; i++) for (i=0; i< TERMS; i++)
{ {
/* calc coefficients of sine and cosine */ /* calc coefficients of sine and cosine */
coeff_sine = + coeff_sine = coefficients[i].longitude1 + (coefficie
* nts[i].longitude2 * T);
coeff_cos = + coeff_cos = coefficients[i].obliquity1 + (coefficien
* ts[i].obliquity2 * T);
/* sum the arguments */ /* sum the arguments */
if (arguments[i].D != 0) if (arguments[i].D != 0)
{ {
c_longitude += coeff_sine * (sin (arguments[ i].D * D)); c_longitude += coeff_sine * (sin (arguments[ i].D * D));
c_obliquity += coeff_cos * (cos (arguments[i ].D * D)); c_obliquity += coeff_cos * (cos (arguments[i ].D * D));
} }
if (arguments[i].M != 0) if (arguments[i].M != 0)
{ {
c_longitude += coeff_sine * (sin (arguments[ i].M * M)); c_longitude += coeff_sine * (sin (arguments[ i].M * M));
End of changes. 1 change blocks.
4 lines changed or deleted 4 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/