11 RealT
xx = 0.5 * (rr + 1.);
16 for (
int kk = 1; kk <= order[0]; ++kk)
21 for (
int kk = order[0] - 1; kk >= 0; --kk)
26 for (
int kk = 0; kk <= order[0]; ++kk)
29 coeff =
coeff * RealT(order[0] - kk) / RealT(kk + 1);
33 RealT
xx = 0.5 * (ss + 1.);
38 for (
int kk = 1; kk <= order[1]; ++kk)
43 for (
int kk = order[1] - 1; kk >= 0; --kk)
48 for (
int kk = 0; kk <=
order[1]; ++kk)
51 coeff =
coeff * RealT(order[1] - kk) / RealT(kk + 1);
57for (
int pp = 0; pp <= order[1]; ++pp)
59 for (
int oo = 0; oo <= order[0]; ++oo)
WORKSPACE(RealT, rtmp, order[0]+1)