- CL_ALLOCA_STACK;
- var cl_I* av = (cl_I*) cl_alloca(N*sizeof(cl_I));
- var cl_I* pv = (cl_I*) cl_alloca(N*sizeof(cl_I));
- var cl_I* qv = (cl_I*) cl_alloca(N*sizeof(cl_I));
- var uintL n;
- for (n = 0; n < N; n++) {
- init1(cl_I, av[n]) (205*square((cl_I)n) + 250*(cl_I)n + 77);
- if (n==0)
- init1(cl_I, pv[n]) (1);
- else
- init1(cl_I, pv[n]) (-expt_pos(n,5));
- init1(cl_I, qv[n]) (expt_pos(2*n+1,5)<<5);
- }
- var cl_pqa_series series;
- series.av = av;
- series.pv = pv; series.qv = qv; series.qsv = NULL;
- var cl_LF sum = eval_rational_series(N,series,actuallen);
- for (n = 0; n < N; n++) {
- av[n].~cl_I();
- pv[n].~cl_I();
- qv[n].~cl_I();
- }
+ var cl_LF sum = eval_rational_series<false>(N,series,actuallen,actuallen);