12 RealT
xx = 0.5 * (rr + 1.);
17 for (
int kk = 1; kk <= order[0]; ++kk)
22 for (
int kk = order[0] - 1; kk >= 0; --kk)
27 for (
int kk = 0; kk <= order[0]; ++kk)
30 coeff =
coeff * RealT(order[0] - kk) / RealT(kk + 1);
34 RealT
xx = 0.5 * (ss + 1.);
39 for (
int kk = 1; kk <= order[1]; ++kk)
44 for (
int kk = order[1] - 1; kk >= 0; --kk)
49 for (
int kk = 0; kk <=
order[1]; ++kk)
52 coeff =
coeff * RealT(order[1] - kk) / RealT(kk + 1);
56 RealT
xx = 0.5 * (tt + 1.);
61 for (
int kk = 1; kk <= order[2]; ++kk)
66 for (
int kk = order[2] - 1; kk >= 0; --kk)
71 for (
int kk = 0; kk <=
order[2]; ++kk)
74 coeff =
coeff * RealT(order[2] - kk) / RealT(kk + 1);
80for (
int qq = 0; qq <= order[2]; ++qq)
82 for (
int pp = 0; pp <= order[1]; ++pp)
84 for (
int oo = 0; oo <= order[0]; ++oo)
86 basis[
idx++] = rtmp[oo] * stmp[pp] * ttmp[qq];
WORKSPACE(RealT, rtmp, order[0]+1)