vsop87.c   vsop87.c 
skipping to change at line 137264 skipping to change at line 137264
} else { } else {
if (lambda_index == 0xFF) break; if (lambda_index == 0xFF) break;
/* pop argument from the stack */ /* pop argument from the stack */
sp -= 2; sp -= 2;
} }
} }
} }
static static
void CalcVsop87Elem(const double t,double elem[8*6]) { void CalcVsop87Elem(const double t,double elem[8*6]) {
int i; unsigned int i;
double lambda[12]; double lambda[12];
double cos_sin_lambda[203*4]; double cos_sin_lambda[203*4];
double accu[sizeof(vsop87_constants)/sizeof(vsop87_constants[0])]; double accu[sizeof(vsop87_constants)/sizeof(vsop87_constants[0])];
double stack[12*2]; double stack[12*2];
double use_polynomials; double use_polynomials;
for (i=0;i<12;i++) lambda[i] = lambda_0[i] + lambda_1[i] * t; for (i=0;i<12;i++) lambda[i] = lambda_0[i] + lambda_1[i] * t;
PrepareLambdaArray(12,vsop87_max_lambda_factor,lambda,cos_sin_lambda); PrepareLambdaArray(12,vsop87_max_lambda_factor,lambda,cos_sin_lambda);
for (i=0;i<(sizeof(vsop87_constants)/sizeof(vsop87_constants[0]));i++) { for (i=0;i<(sizeof(vsop87_constants)/sizeof(vsop87_constants[0]));++i) {
accu[i] = 0.0; accu[i] = 0.0;
} }
AccumulateVsop87Terms(vsop87_instructions,vsop87_coefficients,cos_sin_lam bda, AccumulateVsop87Terms(vsop87_instructions,vsop87_coefficients,cos_sin_lam bda,
accu,stack); accu,stack);
for (i=0;i<8*6;i++) { for (i=0;i<8*6;i++) {
elem[i] = 0.0; elem[i] = 0.0;
} }
/* terms of order t^alpha: */ /* terms of order t^alpha: */
use_polynomials = (6.1 - fabs(t)) / 0.1; use_polynomials = (6.1 - fabs(t)) / 0.1;
 End of changes. 2 change blocks. 
2 lines changed or deleted 2 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/