xref: /phasta/shapeFunction/src/BnDrv.c (revision 595995161822a203c8467e0e4a253d7bd7d6df32) 
1 /*-------------------------------------------------------------------------
2   Scientific Computation Research Center, RPI, Troy NY
3   (C) Copyright 1995, RPI-SCOREC
4 
5   Project  : shapeFuntions
6   Author(s): Saikat Dey
7   Creation : Oct., 95
8   Modifi.  :
9   Function :
10              derivatives of the "body" mode of a tet., Maple generated code.
11              i,j,k represent the highest monomila order of r,s,t in the
12              polynomial.
13 -------------------------------------------------------------------------*/
14 
15 #ifdef __cplusplus
16 extern "C" {
17 #endif
18 
BnDrv(int i,int j,int k,double r,double s,double t,double drv[3])19 int BnDrv(int i,int j, int k, double r, double s, double t, double drv[3]) {
20    double t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t16,t17,t18;
21    double t19,t20,t21,t22,t23,t24,t25,t26,t27,t28,t29,t30,t31,t32,t33,t34;
22    double t35,t36,t37,t38,t39,t40,t41,t42,t43,t44,t45,t46;
23 
24    /* p=4 0 0 0 */
25    if( i==0 && j==0 && k==0 ) {
26       drv[0] = 0.0;
27       drv[1] = 0.0;
28       drv[2] = 0.0;
29    /* p=5 0 0 1 */
30    } else if( i==0 && j==0 && k==1 ) {
31       drv[0] = 2.0/3.0;
32       drv[1] = 2.0/3.0;
33       drv[2] = 1.0;
34    /* p=5 0 1 0 */
35    } else if( i==0 && j==1 && k==0 ) {
36       drv[0] = 2.0/5.0;
37       drv[1] = 1.0;
38       drv[2] = 0.0;
39    /* p=5 1 0 0 */
40    } else if( i==1 && j==0 && k==0 ) {
41       drv[0] = 1.0;
42       drv[1] = 0.0;
43       drv[2] = 0.0;
44    /* p=6 0 0 2 */
45    } else if( i==0 && j==0 && k==2 ) {
46       t1 = 6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0;
47       drv[0] = t1;
48       drv[1] = t1;
49       drv[2] = 2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0;
50    /* p=6 0 1 1 */
51    } else if( i==0 && j==1 && k==1 ) {
52       drv[0] = 2.0/7.0*t+6.0/7.0*s+8.0/21.0*r-8.0/21.0;
53       drv[1] = t+4.0/3.0*s+6.0/7.0*r-6.0/7.0;
54       drv[2] = s+2.0/7.0*r-2.0/7.0;
55    /* p=6 0 2 0 */
56    } else if( i==0 && j==2 && k==0 ) {
57       drv[0] = 6.0/7.0*s+2.0/7.0*r-2.0/7.0;
58       drv[1] = 2.0*s+6.0/7.0*r-6.0/7.0;
59       drv[2] = 0.0;
60    /* p=6 1 0 1 */
61    } else if( i==1 && j==0 && k==1 ) {
62       drv[0] = t+2.0/3.0*s+4.0/3.0*r-22.0/27.0;
63       drv[1] = 2.0/3.0*r-4.0/27.0;
64       drv[2] = r-2.0/9.0;
65    /* p=6 1 1 0 */
66    } else if( i==1 && j==1 && k==0 ) {
67       drv[0] = s+4.0/5.0*r-22.0/45.0;
68       drv[1] = r-2.0/9.0;
69       drv[2] = 0.0;
70    /* p=6 2 0 0 */
71    } else if( i==2 && j==0 && k==0 ) {
72       drv[0] = 2.0*r-2.0/3.0;
73       drv[1] = 0.0;
74       drv[2] = 0.0;
75    /* p=7 0 0 3 */
76    } else if( i==0 && j==0 && k==3 ) {
77       t1 = t*t;
78       t2 = s+r-1.0;
79       t3 = t*t2;
80       t4 = t2*t2;
81       t5 = 12.0/7.0*t1+12.0/7.0*t3+12.0/35.0*t4;
82       drv[0] = t5;
83       drv[1] = t5;
84       drv[2] = 3.0*t1+24.0/7.0*t3+6.0/7.0*t4;
85    /* p=7 0 1 2 */
86    } else if( i==0 && j==1 && k==2 ) {
87       t1 = t*t;
88       t2 = s+r-1.0;
89       t3 = t*t2;
90       t4 = t2*t2;
91       t5 = s+2.0/9.0*r-2.0/9.0;
92       t7 = t5*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
93       drv[0] = 2.0/9.0*t1+4.0/15.0*t3+t4/15+t7;
94       drv[1] = t1+6.0/5.0*t3+3.0/10.0*t4+t7;
95       drv[2] = t5*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
96    /* p=7 0 2 1 */
97    } else if( i==0 && j==2 && k==1 ) {
98       t2 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
99       t4 = s*s;
100       t5 = r-1.0;
101       t6 = s*t5;
102       t7 = t5*t5;
103       drv[0] = (2.0/3.0*s+r/6-1.0/6.0)*t2+2.0/3.0*t4+4.0/9.0*t6+t7/18;
104       drv[1] = (2.0*s+2.0/3.0*r-2.0/3.0)*t2+2.0/3.0*t4+4.0/9.0*t6+t7/18;
105       drv[2] = t4+2.0/3.0*t6+t7/12;
106    /* p=7 0 3 0 */
107    } else if( i==0 && j==3 && k==0 ) {
108       t1 = s*s;
109       t2 = r-1.0;
110       t3 = s*t2;
111       t4 = t2*t2;
112       drv[0] = 4.0/3.0*t1+t3+t4/7;
113       drv[1] = 3.0*t1+8.0/3.0*t3+t4/2;
114       drv[2] = 0.0;
115    /* p=7 1 0 2 */
116    } else if( i==1 && j==0 && k==2 ) {
117       t1 = t*t;
118       t2 = s+r-1.0;
119       t4 = t2*t2;
120       t5 = r-2.0/11.0;
121       t7 = t5*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
122       drv[0] = t1+6.0/5.0*t*t2+3.0/10.0*t4+t7;
123       drv[1] = t7;
124       drv[2] = t5*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
125    /* p=7 1 1 1 */
126    } else if( i==1 && j==1 && k==1 ) {
127       t1 = s+2.0/7.0*r-2.0/7.0;
128       t2 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
129       t4 = r-2.0/11.0;
130       t5 = t4*t2;
131       t6 = t4*t1;
132       drv[0] = t1*t2+2.0/7.0*t5+2.0/3.0*t6;
133       drv[1] = t5+2.0/3.0*t6;
134       drv[2] = t6;
135    /* p=7 1 2 0 */
136    } else if( i==1 && j==2 && k==0 ) {
137       t1 = s*s;
138       t2 = r-1.0;
139       t4 = t2*t2;
140       t5 = r-2.0/11.0;
141       drv[0] = t1+6.0/7.0*s*t2+t4/7+t5*(6.0/7.0*s+2.0/7.0*r-2.0/7.0);
142       drv[1] = t5*(2.0*s+6.0/7.0*r-6.0/7.0);
143       drv[2] = 0.0;
144    /* p=7 2 0 1 */
145    } else if( i==2 && j==0 && k==1 ) {
146       t4 = r*r;
147       drv[0] = (2.0*r-6.0/11.0)*(t+2.0/3.0*s+2.0/3.0*r-2.0/3.0)+2.0/3.0*t4-4.0/
148 11.0*r+2.0/55.0;
149       drv[1] = 2.0/3.0*t4-4.0/11.0*r+2.0/55.0;
150       drv[2] = t4-6.0/11.0*r+3.0/55.0;
151    /* p=7 2 1 0 */
152    } else if( i==2 && j==1 && k==0 ) {
153       t4 = r*r;
154       drv[0] = (2.0*r-6.0/11.0)*(s+2.0/5.0*r-2.0/5.0)+2.0/5.0*t4-12.0/55.0*r+
155 6.0/275.0;
156       drv[1] = t4-6.0/11.0*r+3.0/55.0;
157       drv[2] = 0.0;
158    /* p=7 3 0 0 */
159    } else if( i==3 && j==0 && k==0 ) {
160       t1 = r*r;
161       drv[0] = 3.0*t1-24.0/11.0*r+18.0/55.0;
162       drv[1] = 0.0;
163       drv[2] = 0.0;
164    /* p=8 0 0 4 */
165    } else if( i==0 && j==0 && k==4 ) {
166       t1 = t*t;
167       t2 = t1*t;
168       t3 = s+r-1.0;
169       t4 = t3*t1;
170       t5 = t3*t3;
171       t6 = t*t5;
172       t7 = t5*t3;
173       t8 = 20.0/9.0*t2+10.0/3.0*t4+10.0/7.0*t6+10.0/63.0*t7;
174       drv[0] = t8;
175       drv[1] = t8;
176       drv[2] = 4.0*t2+20.0/3.0*t4+10.0/3.0*t6+10.0/21.0*t7;
177    /* p=8 0 1 3 */
178    } else if( i==0 && j==1 && k==3 ) {
179       t1 = t*t;
180       t2 = t1*t;
181       t3 = s+r-1.0;
182       t4 = t3*t1;
183       t5 = t3*t3;
184       t6 = t*t5;
185       t7 = t5*t3;
186       t8 = s+2.0/11.0*r-2.0/11.0;
187       t9 = t*t3;
188       t11 = t8*(12.0/7.0*t1+12.0/7.0*t9+12.0/35.0*t5);
189       drv[0] = 2.0/11.0*t2+24.0/77.0*t4+12.0/77.0*t6+8.0/385.0*t7+t11;
190       drv[1] = t2+12.0/7.0*t4+6.0/7.0*t6+4.0/35.0*t7+t11;
191       drv[2] = t8*(3.0*t1+24.0/7.0*t9+6.0/7.0*t5);
192    /* p=8 0 2 2 */
193    } else if( i==0 && j==2 && k==2 ) {
194       t2 = t*t;
195       t3 = s+r-1.0;
196       t5 = t3*t3;
197       t6 = t2+6.0/5.0*t*t3+3.0/10.0*t5;
198       t8 = s*s;
199       t9 = r-1.0;
200       t11 = t9*t9;
201       t12 = t8+6.0/11.0*s*t9+3.0/55.0*t11;
202       t14 = t12*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
203       drv[0] = (6.0/11.0*s+6.0/55.0*r-6.0/55.0)*t6+t14;
204       drv[1] = (2.0*s+6.0/11.0*r-6.0/11.0)*t6+t14;
205       drv[2] = t12*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
206    /* p=8 0 3 1 */
207    } else if( i==0 && j==3 && k==1 ) {
208       t1 = s*s;
209       t2 = r-1.0;
210       t3 = s*t2;
211       t4 = t2*t2;
212       t6 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
213       t8 = t1*s;
214       t9 = t1*t2;
215       t10 = s*t4;
216       t11 = t4*t2;
217       drv[0] = (12.0/11.0*t1+36.0/55.0*t3+4.0/55.0*t4)*t6+2.0/3.0*t8+8.0/11.0*
218 t9+12.0/55.0*t10+8.0/495.0*t11;
219       drv[1] = (3.0*t1+24.0/11.0*t3+18.0/55.0*t4)*t6+2.0/3.0*t8+8.0/11.0*t9+
220 12.0/55.0*t10+8.0/495.0*t11;
221       drv[2] = t8+12.0/11.0*t9+18.0/55.0*t10+4.0/165.0*t11;
222    /* p=8 0 4 0 */
223    } else if( i==0 && j==4 && k==0 ) {
224       t1 = s*s;
225       t2 = t1*s;
226       t3 = r-1.0;
227       t4 = t3*t1;
228       t5 = t3*t3;
229       t6 = s*t5;
230       t7 = t5*t3;
231       drv[0] = 20.0/11.0*t2+24.0/11.0*t4+8.0/11.0*t6+2.0/33.0*t7;
232       drv[1] = 4.0*t2+60.0/11.0*t4+24.0/11.0*t6+8.0/33.0*t7;
233       drv[2] = 0.0;
234    /* p=8 1 0 3 */
235    } else if( i==1 && j==0 && k==3 ) {
236       t1 = t*t;
237       t3 = s+r-1.0;
238       t5 = t3*t3;
239       t8 = r-2.0/13.0;
240       t9 = t*t3;
241       t11 = t8*(12.0/7.0*t1+12.0/7.0*t9+12.0/35.0*t5);
242       drv[0] = t1*t+12.0/7.0*t3*t1+6.0/7.0*t*t5+4.0/35.0*t5*t3+t11;
243       drv[1] = t11;
244       drv[2] = t8*(3.0*t1+24.0/7.0*t9+6.0/7.0*t5);
245    /* p=8 1 1 2 */
246    } else if( i==1 && j==1 && k==2 ) {
247       t1 = s+2.0/9.0*r-2.0/9.0;
248       t2 = t*t;
249       t3 = s+r-1.0;
250       t5 = t3*t3;
251       t6 = t2+6.0/5.0*t*t3+3.0/10.0*t5;
252       t8 = r-2.0/13.0;
253       t9 = t8*t6;
254       t10 = t8*t1;
255       t12 = t10*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
256       drv[0] = t1*t6+2.0/9.0*t9+t12;
257       drv[1] = t9+t12;
258       drv[2] = t10*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
259    /* p=8 1 2 1 */
260    } else if( i==1 && j==2 && k==1 ) {
261       t1 = s*s;
262       t2 = r-1.0;
263       t4 = t2*t2;
264       t5 = t1+2.0/3.0*s*t2+t4/12;
265       t6 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
266       t8 = r-2.0/13.0;
267       t12 = t8*t5;
268       drv[0] = t5*t6+t8*(2.0/3.0*s+r/6-1.0/6.0)*t6+2.0/3.0*t12;
269       drv[1] = t8*(2.0*s+2.0/3.0*r-2.0/3.0)*t6+2.0/3.0*t12;
270       drv[2] = t12;
271    /* p=8 1 3 0 */
272    } else if( i==1 && j==3 && k==0 ) {
273       t1 = s*s;
274       t3 = r-1.0;
275       t5 = t3*t3;
276       t8 = r-2.0/13.0;
277       t9 = s*t3;
278       drv[0] = t1*s+4.0/3.0*t3*t1+s*t5/2+t5*t3/21+t8*(4.0/3.0*t1+t9+t5/7);
279       drv[1] = t8*(3.0*t1+8.0/3.0*t9+t5/2);
280       drv[2] = 0.0;
281    /* p=8 2 0 2 */
282    } else if( i==2 && j==0 && k==2 ) {
283       t2 = t*t;
284       t3 = s+r-1.0;
285       t5 = t3*t3;
286       t8 = r*r;
287       t9 = t8-6.0/13.0*r+1.0/26.0;
288       t11 = t9*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
289       drv[0] = (2.0*r-6.0/13.0)*(t2+6.0/5.0*t*t3+3.0/10.0*t5)+t11;
290       drv[1] = t11;
291       drv[2] = t9*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
292    /* p=8 2 1 1 */
293    } else if( i==2 && j==1 && k==1 ) {
294       t2 = s+2.0/7.0*r-2.0/7.0;
295       t4 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
296       t6 = r*r;
297       t7 = t6-6.0/13.0*r+1.0/26.0;
298       t8 = t7*t4;
299       t9 = t7*t2;
300       drv[0] = (2.0*r-6.0/13.0)*t2*t4+2.0/7.0*t8+2.0/3.0*t9;
301       drv[1] = t8+2.0/3.0*t9;
302       drv[2] = t9;
303    /* p=8 2 2 0 */
304    } else if( i==2 && j==2 && k==0 ) {
305       t2 = s*s;
306       t3 = r-1.0;
307       t5 = t3*t3;
308       t8 = r*r;
309       t9 = t8-6.0/13.0*r+1.0/26.0;
310       drv[0] = (2.0*r-6.0/13.0)*(t2+6.0/7.0*s*t3+t5/7)+t9*(6.0/7.0*s+2.0/7.0*r
311 -2.0/7.0);
312       drv[1] = t9*(2.0*s+6.0/7.0*r-6.0/7.0);
313       drv[2] = 0.0;
314    /* p=8 3 0 1 */
315    } else if( i==3 && j==0 && k==1 ) {
316       t1 = r*r;
317       t5 = t1*r;
318       drv[0] = (t+2.0/3.0*s+2.0/3.0*r-2.0/3.0)*(3.0*t1-24.0/13.0*r+3.0/13.0)+
319 2.0/3.0*t5-8.0/13.0*t1+2.0/13.0*r-4.0/429.0;
320       drv[1] = 2.0/3.0*t5-8.0/13.0*t1+2.0/13.0*r-4.0/429.0;
321       drv[2] = t5-12.0/13.0*t1+3.0/13.0*r-2.0/143.0;
322    /* p=8 3 1 0 */
323    } else if( i==3 && j==1 && k==0 ) {
324       t1 = r*r;
325       t5 = t1*r;
326       drv[0] = (s+2.0/5.0*r-2.0/5.0)*(3.0*t1-24.0/13.0*r+3.0/13.0)+2.0/5.0*t5
327 -24.0/65.0*t1+6.0/65.0*r-4.0/715.0;
328       drv[1] = t5-12.0/13.0*t1+3.0/13.0*r-2.0/143.0;
329       drv[2] = 0.0;
330    /* p=8 4 0 0 */
331    } else if( i==4 && j==0 && k==0 ) {
332       t1 = r*r;
333       drv[0] = 4.0*t1*r-60.0/13.0*t1+20.0/13.0*r-20.0/143.0;
334       drv[1] = 0.0;
335       drv[2] = 0.0;
336    /* p=9 0 0 5 */
337    } else if( i==0 && j==0 && k==5 ) {
338       t1 = t*t;
339       t2 = t1*t1;
340       t4 = s+r-1.0;
341       t5 = t1*t*t4;
342       t6 = t4*t4;
343       t7 = t1*t6;
344       t9 = t*t6*t4;
345       t10 = t6*t6;
346       t11 = 30.0/11.0*t2+60.0/11.0*t5+40.0/11.0*t7+10.0/11.0*t9+5.0/77.0*t10;
347       drv[0] = t11;
348       drv[1] = t11;
349       drv[2] = 5.0*t2+120.0/11.0*t5+90.0/11.0*t7+80.0/33.0*t9+5.0/22.0*t10;
350    /* p=9 0 1 4 */
351    } else if( i==0 && j==1 && k==4 ) {
352       t1 = t*t;
353       t2 = t1*t1;
354       t3 = t1*t;
355       t4 = s+r-1.0;
356       t5 = t3*t4;
357       t6 = t4*t4;
358       t7 = t1*t6;
359       t8 = t6*t4;
360       t9 = t*t8;
361       t10 = t6*t6;
362       t11 = s+2.0/13.0*r-2.0/13.0;
363       t12 = t4*t1;
364       t13 = t*t6;
365       t15 = t11*(20.0/9.0*t3+10.0/3.0*t12+10.0/7.0*t13+10.0/63.0*t8);
366       drv[0] = 2.0/13.0*t2+40.0/117.0*t5+10.0/39.0*t7+20.0/273.0*t9+5.0/819.0*
367 t10+t15;
368       drv[1] = t2+20.0/9.0*t5+5.0/3.0*t7+10.0/21.0*t9+5.0/126.0*t10+t15;
369       drv[2] = t11*(4.0*t3+20.0/3.0*t12+10.0/3.0*t13+10.0/21.0*t8);
370    /* p=9 0 2 3 */
371    } else if( i==0 && j==2 && k==3 ) {
372       t2 = t*t;
373       t4 = s+r-1.0;
374       t6 = t4*t4;
375       t9 = t2*t+12.0/7.0*t4*t2+6.0/7.0*t*t6+4.0/35.0*t6*t4;
376       t11 = s*s;
377       t12 = r-1.0;
378       t14 = t12*t12;
379       t15 = t11+6.0/13.0*s*t12+t14/26;
380       t16 = t*t4;
381       t18 = t15*(12.0/7.0*t2+12.0/7.0*t16+12.0/35.0*t6);
382       drv[0] = (6.0/13.0*s+r/13-1.0/13.0)*t9+t18;
383       drv[1] = (2.0*s+6.0/13.0*r-6.0/13.0)*t9+t18;
384       drv[2] = t15*(3.0*t2+24.0/7.0*t16+6.0/7.0*t6);
385    /* p=9 0 3 2 */
386    } else if( i==0 && j==3 && k==2 ) {
387       t1 = s*s;
388       t2 = r-1.0;
389       t3 = s*t2;
390       t4 = t2*t2;
391       t6 = t*t;
392       t7 = s+r-1.0;
393       t9 = t7*t7;
394       t10 = t6+6.0/5.0*t*t7+3.0/10.0*t9;
395       t16 = t1*s+12.0/13.0*t1*t2+3.0/13.0*s*t4+2.0/143.0*t4*t2;
396       t18 = t16*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
397       drv[0] = (12.0/13.0*t1+6.0/13.0*t3+6.0/143.0*t4)*t10+t18;
398       drv[1] = (3.0*t1+24.0/13.0*t3+3.0/13.0*t4)*t10+t18;
399       drv[2] = t16*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
400    /* p=9 0 4 1 */
401    } else if( i==0 && j==4 && k==1 ) {
402       t1 = s*s;
403       t2 = t1*s;
404       t3 = r-1.0;
405       t4 = t3*t1;
406       t5 = t3*t3;
407       t6 = s*t5;
408       t7 = t5*t3;
409       t9 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
410       t11 = t1*t1;
411       t12 = t3*t2;
412       t13 = t1*t5;
413       t14 = s*t7;
414       t15 = t5*t5;
415       drv[0] = (20.0/13.0*t2+20.0/13.0*t4+60.0/143.0*t6+4.0/143.0*t7)*t9+2.0/
416 3.0*t11+40.0/39.0*t12+20.0/39.0*t13+40.0/429.0*t14+2.0/429.0*t15;
417       drv[1] = (4.0*t2+60.0/13.0*t4+20.0/13.0*t6+20.0/143.0*t7)*t9+2.0/3.0*t11+
418 40.0/39.0*t12+20.0/39.0*t13+40.0/429.0*t14+2.0/429.0*t15;
419       drv[2] = t11+20.0/13.0*t12+10.0/13.0*t13+20.0/143.0*t14+t15/143;
420    /* p=9 0 5 0 */
421    } else if( i==0 && j==5 && k==0 ) {
422       t1 = s*s;
423       t2 = t1*t1;
424       t4 = r-1.0;
425       t5 = t1*s*t4;
426       t6 = t4*t4;
427       t7 = t1*t6;
428       t9 = s*t6*t4;
429       t10 = t6*t6;
430       drv[0] = 30.0/13.0*t2+50.0/13.0*t5+300.0/143.0*t7+60.0/143.0*t9+10.0/
431 429.0*t10;
432       drv[1] = 5.0*t2+120.0/13.0*t5+75.0/13.0*t7+200.0/143.0*t9+15.0/143.0*t10;
433       drv[2] = 0.0;
434    /* p=9 1 0 4 */
435    } else if( i==1 && j==0 && k==4 ) {
436       t1 = t*t;
437       t2 = t1*t1;
438       t3 = t1*t;
439       t4 = s+r-1.0;
440       t6 = t4*t4;
441       t8 = t6*t4;
442       t10 = t6*t6;
443       t11 = r-2.0/15.0;
444       t12 = t4*t1;
445       t13 = t*t6;
446       t15 = t11*(20.0/9.0*t3+10.0/3.0*t12+10.0/7.0*t13+10.0/63.0*t8);
447       drv[0] = t2+20.0/9.0*t3*t4+5.0/3.0*t1*t6+10.0/21.0*t*t8+5.0/126.0*t10+t15
448 ;
449       drv[1] = t15;
450       drv[2] = t11*(4.0*t3+20.0/3.0*t12+10.0/3.0*t13+10.0/21.0*t8);
451    /* p=9 1 1 3 */
452    } else if( i==1 && j==1 && k==3 ) {
453       t1 = s+2.0/11.0*r-2.0/11.0;
454       t2 = t*t;
455       t4 = s+r-1.0;
456       t6 = t4*t4;
457       t9 = t2*t+12.0/7.0*t4*t2+6.0/7.0*t*t6+4.0/35.0*t6*t4;
458       t11 = r-2.0/15.0;
459       t12 = t11*t9;
460       t13 = t11*t1;
461       t14 = t*t4;
462       t16 = t13*(12.0/7.0*t2+12.0/7.0*t14+12.0/35.0*t6);
463       drv[0] = t1*t9+2.0/11.0*t12+t16;
464       drv[1] = t12+t16;
465       drv[2] = t13*(3.0*t2+24.0/7.0*t14+6.0/7.0*t6);
466    /* p=9 1 2 2 */
467    } else if( i==1 && j==2 && k==2 ) {
468       t1 = s*s;
469       t2 = r-1.0;
470       t4 = t2*t2;
471       t5 = t1+6.0/11.0*s*t2+3.0/55.0*t4;
472       t6 = t*t;
473       t7 = s+r-1.0;
474       t9 = t7*t7;
475       t10 = t6+6.0/5.0*t*t7+3.0/10.0*t9;
476       t12 = r-2.0/15.0;
477       t16 = t12*t5;
478       t18 = t16*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
479       drv[0] = t5*t10+t12*(6.0/11.0*s+6.0/55.0*r-6.0/55.0)*t10+t18;
480       drv[1] = t12*(2.0*s+6.0/11.0*r-6.0/11.0)*t10+t18;
481       drv[2] = t16*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
482    /* p=9 1 3 1 */
483    } else if( i==1 && j==3 && k==1 ) {
484       t1 = s*s;
485       t3 = r-1.0;
486       t5 = t3*t3;
487       t8 = t1*s+12.0/11.0*t3*t1+18.0/55.0*s*t5+4.0/165.0*t5*t3;
488       t9 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
489       t11 = r-2.0/15.0;
490       t12 = s*t3;
491       t16 = t11*t8;
492       drv[0] = t8*t9+t11*(12.0/11.0*t1+36.0/55.0*t12+4.0/55.0*t5)*t9+2.0/3.0*
493 t16;
494       drv[1] = t11*(3.0*t1+24.0/11.0*t12+18.0/55.0*t5)*t9+2.0/3.0*t16;
495       drv[2] = t16;
496    /* p=9 1 4 0 */
497    } else if( i==1 && j==4 && k==0 ) {
498       t1 = s*s;
499       t2 = t1*t1;
500       t3 = t1*s;
501       t4 = r-1.0;
502       t6 = t4*t4;
503       t8 = t6*t4;
504       t10 = t6*t6;
505       t11 = r-2.0/15.0;
506       t12 = t4*t1;
507       t13 = s*t6;
508       drv[0] = t2+20.0/11.0*t3*t4+12.0/11.0*t1*t6+8.0/33.0*s*t8+t10/66+t11*(
509 20.0/11.0*t3+24.0/11.0*t12+8.0/11.0*t13+2.0/33.0*t8);
510       drv[1] = t11*(4.0*t3+60.0/11.0*t12+24.0/11.0*t13+8.0/33.0*t8);
511       drv[2] = 0.0;
512    /* p=9 2 0 3 */
513    } else if( i==2 && j==0 && k==3 ) {
514       t2 = t*t;
515       t4 = s+r-1.0;
516       t6 = t4*t4;
517       t11 = r*r;
518       t12 = t11-2.0/5.0*r+1.0/35.0;
519       t13 = t*t4;
520       t15 = t12*(12.0/7.0*t2+12.0/7.0*t13+12.0/35.0*t6);
521       drv[0] = (2.0*r-2.0/5.0)*(t2*t+12.0/7.0*t4*t2+6.0/7.0*t*t6+4.0/35.0*t6*t4
522 )+t15;
523       drv[1] = t15;
524       drv[2] = t12*(3.0*t2+24.0/7.0*t13+6.0/7.0*t6);
525    /* p=9 2 1 2 */
526    } else if( i==2 && j==1 && k==2 ) {
527       t2 = s+2.0/9.0*r-2.0/9.0;
528       t4 = t*t;
529       t5 = s+r-1.0;
530       t7 = t5*t5;
531       t8 = t4+6.0/5.0*t*t5+3.0/10.0*t7;
532       t10 = r*r;
533       t11 = t10-2.0/5.0*r+1.0/35.0;
534       t12 = t11*t8;
535       t13 = t11*t2;
536       t15 = t13*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
537       drv[0] = (2.0*r-2.0/5.0)*t2*t8+2.0/9.0*t12+t15;
538       drv[1] = t12+t15;
539       drv[2] = t13*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
540    /* p=9 2 2 1 */
541    } else if( i==2 && j==2 && k==1 ) {
542       t2 = s*s;
543       t3 = r-1.0;
544       t5 = t3*t3;
545       t6 = t2+2.0/3.0*s*t3+t5/12;
546       t8 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
547       t10 = r*r;
548       t11 = t10-2.0/5.0*r+1.0/35.0;
549       t15 = t11*t6;
550       drv[0] = (2.0*r-2.0/5.0)*t6*t8+t11*(2.0/3.0*s+r/6-1.0/6.0)*t8+2.0/3.0*t15
551 ;
552       drv[1] = t11*(2.0*s+2.0/3.0*r-2.0/3.0)*t8+2.0/3.0*t15;
553       drv[2] = t15;
554    /* p=9 2 3 0 */
555    } else if( i==2 && j==3 && k==0 ) {
556       t2 = s*s;
557       t4 = r-1.0;
558       t6 = t4*t4;
559       t11 = r*r;
560       t12 = t11-2.0/5.0*r+1.0/35.0;
561       t13 = s*t4;
562       drv[0] = (2.0*r-2.0/5.0)*(t2*s+4.0/3.0*t4*t2+s*t6/2+t6*t4/21)+t12*(4.0/
563 3.0*t2+t13+t6/7);
564       drv[1] = t12*(3.0*t2+8.0/3.0*t13+t6/2);
565       drv[2] = 0.0;
566    /* p=9 3 0 2 */
567    } else if( i==3 && j==0 && k==2 ) {
568       t1 = r*r;
569       t3 = t*t;
570       t4 = s+r-1.0;
571       t6 = t4*t4;
572       t10 = t1*r-4.0/5.0*t1+6.0/35.0*r-4.0/455.0;
573       t12 = t10*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
574       drv[0] = (3.0*t1-8.0/5.0*r+6.0/35.0)*(t3+6.0/5.0*t*t4+3.0/10.0*t6)+t12;
575       drv[1] = t12;
576       drv[2] = t10*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
577    /* p=9 3 1 1 */
578    } else if( i==3 && j==1 && k==1 ) {
579       t1 = r*r;
580       t3 = s+2.0/7.0*r-2.0/7.0;
581       t5 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
582       t8 = t1*r-4.0/5.0*t1+6.0/35.0*r-4.0/455.0;
583       t9 = t8*t5;
584       t10 = t3*t8;
585       drv[0] = t3*(3.0*t1-8.0/5.0*r+6.0/35.0)*t5+2.0/7.0*t9+2.0/3.0*t10;
586       drv[1] = t9+2.0/3.0*t10;
587       drv[2] = t10;
588    /* p=9 3 2 0 */
589    } else if( i==3 && j==2 && k==0 ) {
590       t1 = r*r;
591       t3 = s*s;
592       t4 = r-1.0;
593       t6 = t4*t4;
594       t10 = t1*r-4.0/5.0*t1+6.0/35.0*r-4.0/455.0;
595       drv[0] = (3.0*t1-8.0/5.0*r+6.0/35.0)*(t3+6.0/7.0*s*t4+t6/7)+t10*(6.0/7.0*
596 s+2.0/7.0*r-2.0/7.0);
597       drv[1] = t10*(2.0*s+6.0/7.0*r-6.0/7.0);
598       drv[2] = 0.0;
599    /* p=9 4 0 1 */
600    } else if( i==4 && j==0 && k==1 ) {
601       t1 = r*r;
602       t2 = t1*r;
603       t6 = t1*t1;
604       drv[0] = (4.0*t2-4.0*t1+8.0/7.0*r-8.0/91.0)*(t+2.0/3.0*s+2.0/3.0*r-2.0/
605 3.0)+2.0/3.0*t6-8.0/9.0*t2+8.0/21.0*t1-16.0/273.0*r+2.0/819.0;
606       drv[1] = 2.0/3.0*t6-8.0/9.0*t2+8.0/21.0*t1-16.0/273.0*r+2.0/819.0;
607       drv[2] = t6-4.0/3.0*t2+4.0/7.0*t1-8.0/91.0*r+1.0/273.0;
608    /* p=9 4 1 0 */
609    } else if( i==4 && j==1 && k==0 ) {
610       t1 = r*r;
611       t2 = t1*r;
612       t6 = t1*t1;
613       drv[0] = (4.0*t2-4.0*t1+8.0/7.0*r-8.0/91.0)*(s+2.0/5.0*r-2.0/5.0)+2.0/5.0
614 *t6-8.0/15.0*t2+8.0/35.0*t1-16.0/455.0*r+2.0/1365.0;
615       drv[1] = t6-4.0/3.0*t2+4.0/7.0*t1-8.0/91.0*r+1.0/273.0;
616       drv[2] = 0.0;
617    /* p=9 5 0 0 */
618    } else if( i==5 && j==0 && k==0 ) {
619       t1 = r*r;
620       t2 = t1*t1;
621       drv[0] = 5.0*t2-8.0*t1*r+30.0/7.0*t1-80.0/91.0*r+5.0/91.0;
622       drv[1] = 0.0;
623       drv[2] = 0.0;
624    /* p=10 0 0 6 */
625    } else if( i==0 && j==0 && k==6 ) {
626       t1 = t*t;
627       t2 = t1*t1;
628       t3 = t2*t;
629       t4 = s+r-1.0;
630       t5 = t4*t2;
631       t7 = t4*t4;
632       t8 = t1*t*t7;
633       t10 = t1*t7*t4;
634       t11 = t7*t7;
635       t12 = t*t11;
636       t13 = t11*t4;
637       t14 = 42.0/13.0*t3+105.0/13.0*t5+1050.0/143.0*t8+420.0/143.0*t10+70.0/
638 143.0*t12+7.0/286.0*t13;
639       drv[0] = t14;
640       drv[1] = t14;
641       drv[2] = 6.0*t3+210.0/13.0*t5+210.0/13.0*t8+1050.0/143.0*t10+210.0/143.0*
642 t12+14.0/143.0*t13;
643    /* p=10 0 1 5 */
644    } else if( i==0 && j==1 && k==5 ) {
645       t1 = t*t;
646       t2 = t1*t1;
647       t3 = t2*t;
648       t4 = s+r-1.0;
649       t5 = t4*t2;
650       t6 = t1*t;
651       t7 = t4*t4;
652       t8 = t6*t7;
653       t9 = t7*t4;
654       t10 = t1*t9;
655       t11 = t7*t7;
656       t12 = t*t11;
657       t13 = t11*t4;
658       t14 = s+2.0/15.0*r-2.0/15.0;
659       t15 = t6*t4;
660       t16 = t1*t7;
661       t17 = t*t9;
662       t19 = t14*(30.0/11.0*t2+60.0/11.0*t15+40.0/11.0*t16+10.0/11.0*t17+5.0/
663 77.0*t11);
664       drv[0] = 2.0/15.0*t3+4.0/11.0*t5+4.0/11.0*t8+16.0/99.0*t10+t12/33+2.0/
665 1155.0*t13+t19;
666       drv[1] = t3+30.0/11.0*t5+30.0/11.0*t8+40.0/33.0*t10+5.0/22.0*t12+t13/77+
667 t19;
668       drv[2] = t14*(5.0*t2+120.0/11.0*t15+90.0/11.0*t16+80.0/33.0*t17+5.0/22.0*
669 t11);
670    /* p=10 0 2 4 */
671    } else if( i==0 && j==2 && k==4 ) {
672       t2 = t*t;
673       t3 = t2*t2;
674       t4 = t2*t;
675       t5 = s+r-1.0;
676       t7 = t5*t5;
677       t9 = t7*t5;
678       t11 = t7*t7;
679       t12 = t3+20.0/9.0*t4*t5+5.0/3.0*t2*t7+10.0/21.0*t*t9+5.0/126.0*t11;
680       t14 = s*s;
681       t15 = r-1.0;
682       t17 = t15*t15;
683       t18 = t14+2.0/5.0*s*t15+t17/35;
684       t19 = t2*t5;
685       t20 = t*t7;
686       t22 = t18*(20.0/9.0*t4+10.0/3.0*t19+10.0/7.0*t20+10.0/63.0*t9);
687       drv[0] = (2.0/5.0*s+2.0/35.0*r-2.0/35.0)*t12+t22;
688       drv[1] = (2.0*s+2.0/5.0*r-2.0/5.0)*t12+t22;
689       drv[2] = t18*(4.0*t4+20.0/3.0*t19+10.0/3.0*t20+10.0/21.0*t9);
690    /* p=10 0 3 3 */
691    } else if( i==0 && j==3 && k==3 ) {
692       t1 = s*s;
693       t2 = r-1.0;
694       t3 = s*t2;
695       t4 = t2*t2;
696       t6 = t*t;
697       t8 = s+r-1.0;
698       t10 = t8*t8;
699       t13 = t6*t+12.0/7.0*t6*t8+6.0/7.0*t*t10+4.0/35.0*t10*t8;
700       t19 = t1*s+4.0/5.0*t1*t2+6.0/35.0*s*t4+4.0/455.0*t4*t2;
701       t20 = t*t8;
702       t22 = t19*(12.0/7.0*t6+12.0/7.0*t20+12.0/35.0*t10);
703       drv[0] = (4.0/5.0*t1+12.0/35.0*t3+12.0/455.0*t4)*t13+t22;
704       drv[1] = (3.0*t1+8.0/5.0*t3+6.0/35.0*t4)*t13+t22;
705       drv[2] = t19*(3.0*t6+24.0/7.0*t20+6.0/7.0*t10);
706    /* p=10 0 4 2 */
707    } else if( i==0 && j==4 && k==2 ) {
708       t1 = s*s;
709       t2 = t1*s;
710       t3 = r-1.0;
711       t4 = t3*t1;
712       t5 = t3*t3;
713       t6 = s*t5;
714       t7 = t5*t3;
715       t9 = t*t;
716       t10 = s+r-1.0;
717       t12 = t10*t10;
718       t13 = t9+6.0/5.0*t*t10+3.0/10.0*t12;
719       t15 = t1*t1;
720       t19 = t5*t5;
721       t20 = t15+4.0/3.0*t3*t2+4.0/7.0*t1*t5+8.0/91.0*s*t7+t19/273;
722       t22 = t20*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
723       drv[0] = (4.0/3.0*t2+8.0/7.0*t4+24.0/91.0*t6+4.0/273.0*t7)*t13+t22;
724       drv[1] = (4.0*t2+4.0*t4+8.0/7.0*t6+8.0/91.0*t7)*t13+t22;
725       drv[2] = t20*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
726    /* p=10 0 5 1 */
727    } else if( i==0 && j==5 && k==1 ) {
728       t1 = s*s;
729       t2 = t1*t1;
730       t3 = t1*s;
731       t4 = r-1.0;
732       t5 = t3*t4;
733       t6 = t4*t4;
734       t7 = t1*t6;
735       t8 = t6*t4;
736       t9 = s*t8;
737       t10 = t6*t6;
738       t12 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
739       t14 = s*t2;
740       t15 = t4*t2;
741       t16 = t3*t6;
742       t17 = t1*t8;
743       t18 = s*t10;
744       t19 = t10*t4;
745       drv[0] = (2.0*t2+20.0/7.0*t5+120.0/91.0*t7+20.0/91.0*t9+10.0/1001.0*t10)*
746 t12+2.0/3.0*t14+4.0/3.0*t15+20.0/21.0*t16+80.0/273.0*t17+10.0/273.0*t18+4.0/
747 3003.0*t19;
748       drv[1] = (5.0*t2+8.0*t5+30.0/7.0*t7+80.0/91.0*t9+5.0/91.0*t10)*t12+2.0/
749 3.0*t14+4.0/3.0*t15+20.0/21.0*t16+80.0/273.0*t17+10.0/273.0*t18+4.0/3003.0*t19;
750       drv[2] = t14+2.0*t15+10.0/7.0*t16+40.0/91.0*t17+5.0/91.0*t18+2.0/1001.0*
751 t19;
752    /* p=10 0 6 0 */
753    } else if( i==0 && j==6 && k==0 ) {
754       t1 = s*s;
755       t2 = t1*t1;
756       t3 = t2*s;
757       t4 = r-1.0;
758       t5 = t4*t2;
759       t7 = t4*t4;
760       t8 = t1*s*t7;
761       t10 = t1*t7*t4;
762       t11 = t7*t7;
763       t12 = s*t11;
764       t13 = t11*t4;
765       drv[0] = 14.0/5.0*t3+6.0*t5+60.0/13.0*t8+20.0/13.0*t10+30.0/143.0*t12+6.0
766 /715.0*t13;
767       drv[1] = 6.0*t3+14.0*t5+12.0*t8+60.0/13.0*t10+10.0/13.0*t12+6.0/143.0*t13
768 ;
769       drv[2] = 0.0;
770    /* p=10 1 0 5 */
771    } else if( i==1 && j==0 && k==5 ) {
772       t1 = t*t;
773       t2 = t1*t1;
774       t4 = s+r-1.0;
775       t6 = t1*t;
776       t7 = t4*t4;
777       t9 = t7*t4;
778       t11 = t7*t7;
779       t14 = r-2.0/17.0;
780       t15 = t6*t4;
781       t16 = t1*t7;
782       t17 = t*t9;
783       t19 = t14*(30.0/11.0*t2+60.0/11.0*t15+40.0/11.0*t16+10.0/11.0*t17+5.0/
784 77.0*t11);
785       drv[0] = t2*t+30.0/11.0*t4*t2+30.0/11.0*t6*t7+40.0/33.0*t1*t9+5.0/22.0*t*
786 t11+t11*t4/77+t19;
787       drv[1] = t19;
788       drv[2] = t14*(5.0*t2+120.0/11.0*t15+90.0/11.0*t16+80.0/33.0*t17+5.0/22.0*
789 t11);
790    /* p=10 1 1 4 */
791    } else if( i==1 && j==1 && k==4 ) {
792       t1 = s+2.0/13.0*r-2.0/13.0;
793       t2 = t*t;
794       t3 = t2*t2;
795       t4 = t2*t;
796       t5 = s+r-1.0;
797       t7 = t5*t5;
798       t9 = t7*t5;
799       t11 = t7*t7;
800       t12 = t3+20.0/9.0*t4*t5+5.0/3.0*t2*t7+10.0/21.0*t*t9+5.0/126.0*t11;
801       t14 = r-2.0/17.0;
802       t15 = t14*t12;
803       t16 = t14*t1;
804       t17 = t2*t5;
805       t18 = t*t7;
806       t20 = t16*(20.0/9.0*t4+10.0/3.0*t17+10.0/7.0*t18+10.0/63.0*t9);
807       drv[0] = t1*t12+2.0/13.0*t15+t20;
808       drv[1] = t15+t20;
809       drv[2] = t16*(4.0*t4+20.0/3.0*t17+10.0/3.0*t18+10.0/21.0*t9);
810    /* p=10 1 2 3 */
811    } else if( i==1 && j==2 && k==3 ) {
812       t1 = s*s;
813       t2 = r-1.0;
814       t4 = t2*t2;
815       t5 = t1+6.0/13.0*t2*s+t4/26;
816       t6 = t*t;
817       t8 = s+r-1.0;
818       t10 = t8*t8;
819       t13 = t6*t+12.0/7.0*t6*t8+6.0/7.0*t*t10+4.0/35.0*t10*t8;
820       t15 = r-2.0/17.0;
821       t19 = t15*t5;
822       t20 = t*t8;
823       t22 = t19*(12.0/7.0*t6+12.0/7.0*t20+12.0/35.0*t10);
824       drv[0] = t5*t13+t15*(6.0/13.0*s+r/13-1.0/13.0)*t13+t22;
825       drv[1] = t15*(2.0*s+6.0/13.0*r-6.0/13.0)*t13+t22;
826       drv[2] = t19*(3.0*t6+24.0/7.0*t20+6.0/7.0*t10);
827    /* p=10 1 3 2 */
828    } else if( i==1 && j==3 && k==2 ) {
829       t1 = s*s;
830       t3 = r-1.0;
831       t5 = t3*t3;
832       t8 = t1*s+12.0/13.0*t3*t1+3.0/13.0*s*t5+2.0/143.0*t5*t3;
833       t9 = t*t;
834       t10 = s+r-1.0;
835       t12 = t10*t10;
836       t13 = t9+6.0/5.0*t*t10+3.0/10.0*t12;
837       t15 = r-2.0/17.0;
838       t16 = s*t3;
839       t20 = t15*t8;
840       t22 = t20*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
841       drv[0] = t8*t13+t15*(12.0/13.0*t1+6.0/13.0*t16+6.0/143.0*t5)*t13+t22;
842       drv[1] = t15*(3.0*t1+24.0/13.0*t16+3.0/13.0*t5)*t13+t22;
843       drv[2] = t20*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
844    /* p=10 1 4 1 */
845    } else if( i==1 && j==4 && k==1 ) {
846       t1 = s*s;
847       t2 = t1*t1;
848       t3 = t1*s;
849       t4 = r-1.0;
850       t6 = t4*t4;
851       t8 = t6*t4;
852       t10 = t6*t6;
853       t11 = t2+20.0/13.0*t3*t4+10.0/13.0*t1*t6+20.0/143.0*s*t8+t10/143;
854       t12 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
855       t14 = r-2.0/17.0;
856       t15 = t4*t1;
857       t16 = s*t6;
858       t20 = t14*t11;
859       drv[0] = t11*t12+t14*(20.0/13.0*t3+20.0/13.0*t15+60.0/143.0*t16+4.0/143.0
860 *t8)*t12+2.0/3.0*t20;
861       drv[1] = t14*(4.0*t3+60.0/13.0*t15+20.0/13.0*t16+20.0/143.0*t8)*t12+2.0/
862 3.0*t20;
863       drv[2] = t20;
864    /* p=10 1 5 0 */
865    } else if( i==1 && j==5 && k==0 ) {
866       t1 = s*s;
867       t2 = t1*t1;
868       t4 = r-1.0;
869       t6 = t1*s;
870       t7 = t4*t4;
871       t9 = t7*t4;
872       t11 = t7*t7;
873       t14 = r-2.0/17.0;
874       t15 = t6*t4;
875       t16 = t1*t7;
876       t17 = s*t9;
877       drv[0] = t2*s+30.0/13.0*t4*t2+25.0/13.0*t6*t7+100.0/143.0*t1*t9+15.0/
878 143.0*s*t11+2.0/429.0*t11*t4+t14*(30.0/13.0*t2+50.0/13.0*t15+300.0/143.0*t16+
879 60.0/143.0*t17+10.0/429.0*t11);
880       drv[1] = t14*(5.0*t2+120.0/13.0*t15+75.0/13.0*t16+200.0/143.0*t17+15.0/
881 143.0*t11);
882       drv[2] = 0.0;
883    /* p=10 2 0 4 */
884    } else if( i==2 && j==0 && k==4 ) {
885       t2 = t*t;
886       t3 = t2*t2;
887       t4 = t2*t;
888       t5 = s+r-1.0;
889       t7 = t5*t5;
890       t9 = t7*t5;
891       t11 = t7*t7;
892       t14 = r*r;
893       t15 = t14-6.0/17.0*r+3.0/136.0;
894       t16 = t2*t5;
895       t17 = t*t7;
896       t19 = t15*(20.0/9.0*t4+10.0/3.0*t16+10.0/7.0*t17+10.0/63.0*t9);
897       drv[0] = (2.0*r-6.0/17.0)*(t3+20.0/9.0*t4*t5+5.0/3.0*t2*t7+10.0/21.0*t*t9
898 +5.0/126.0*t11)+t19;
899       drv[1] = t19;
900       drv[2] = t15*(4.0*t4+20.0/3.0*t16+10.0/3.0*t17+10.0/21.0*t9);
901    /* p=10 2 1 3 */
902    } else if( i==2 && j==1 && k==3 ) {
903       t2 = s+2.0/11.0*r-2.0/11.0;
904       t4 = t*t;
905       t6 = s+r-1.0;
906       t8 = t6*t6;
907       t11 = t4*t+12.0/7.0*t6*t4+6.0/7.0*t*t8+4.0/35.0*t8*t6;
908       t13 = r*r;
909       t14 = t13-6.0/17.0*r+3.0/136.0;
910       t15 = t14*t11;
911       t16 = t14*t2;
912       t17 = t*t6;
913       t19 = t16*(12.0/7.0*t4+12.0/7.0*t17+12.0/35.0*t8);
914       drv[0] = (2.0*r-6.0/17.0)*t2*t11+2.0/11.0*t15+t19;
915       drv[1] = t15+t19;
916       drv[2] = t16*(3.0*t4+24.0/7.0*t17+6.0/7.0*t8);
917    /* p=10 2 2 2 */
918    } else if( i==2 && j==2 && k==2 ) {
919       t2 = s*s;
920       t3 = r-1.0;
921       t5 = t3*t3;
922       t6 = t2+6.0/11.0*s*t3+3.0/55.0*t5;
923       t8 = t*t;
924       t9 = s+r-1.0;
925       t11 = t9*t9;
926       t12 = t8+6.0/5.0*t*t9+3.0/10.0*t11;
927       t14 = r*r;
928       t15 = t14-6.0/17.0*r+3.0/136.0;
929       t19 = t15*t6;
930       t21 = t19*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
931       drv[0] = (2.0*r-6.0/17.0)*t6*t12+t15*(6.0/11.0*s+6.0/55.0*r-6.0/55.0)*t12
932 +t21;
933       drv[1] = t15*(2.0*s+6.0/11.0*r-6.0/11.0)*t12+t21;
934       drv[2] = t19*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
935    /* p=10 2 3 1 */
936    } else if( i==2 && j==3 && k==1 ) {
937       t2 = s*s;
938       t4 = r-1.0;
939       t6 = t4*t4;
940       t9 = t2*s+12.0/11.0*t4*t2+18.0/55.0*s*t6+4.0/165.0*t6*t4;
941       t11 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
942       t13 = r*r;
943       t14 = t13-6.0/17.0*r+3.0/136.0;
944       t15 = s*t4;
945       t19 = t14*t9;
946       drv[0] = (2.0*r-6.0/17.0)*t9*t11+t14*(12.0/11.0*t2+36.0/55.0*t15+4.0/55.0
947 *t6)*t11+2.0/3.0*t19;
948       drv[1] = t14*(3.0*t2+24.0/11.0*t15+18.0/55.0*t6)*t11+2.0/3.0*t19;
949       drv[2] = t19;
950    /* p=10 2 4 0 */
951    } else if( i==2 && j==4 && k==0 ) {
952       t2 = s*s;
953       t3 = t2*t2;
954       t4 = t2*s;
955       t5 = r-1.0;
956       t7 = t5*t5;
957       t9 = t7*t5;
958       t11 = t7*t7;
959       t14 = r*r;
960       t15 = t14-6.0/17.0*r+3.0/136.0;
961       t16 = t2*t5;
962       t17 = s*t7;
963       drv[0] = (2.0*r-6.0/17.0)*(t3+20.0/11.0*t4*t5+12.0/11.0*t2*t7+8.0/33.0*s*
964 t9+t11/66)+t15*(20.0/11.0*t4+24.0/11.0*t16+8.0/11.0*t17+2.0/33.0*t9);
965       drv[1] = t15*(4.0*t4+60.0/11.0*t16+24.0/11.0*t17+8.0/33.0*t9);
966       drv[2] = 0.0;
967    /* p=10 3 0 3 */
968    } else if( i==3 && j==0 && k==3 ) {
969       t1 = r*r;
970       t3 = t*t;
971       t5 = s+r-1.0;
972       t7 = t5*t5;
973       t13 = t1*r-12.0/17.0*t1+9.0/68.0*r-1.0/170.0;
974       t14 = t*t5;
975       t16 = t13*(12.0/7.0*t3+12.0/7.0*t14+12.0/35.0*t7);
976       drv[0] = (3.0*t1-24.0/17.0*r+9.0/68.0)*(t3*t+12.0/7.0*t3*t5+6.0/7.0*t*t7+
977 4.0/35.0*t7*t5)+t16;
978       drv[1] = t16;
979       drv[2] = t13*(3.0*t3+24.0/7.0*t14+6.0/7.0*t7);
980    /* p=10 3 1 2 */
981    } else if( i==3 && j==1 && k==2 ) {
982       t1 = r*r;
983       t3 = s+2.0/9.0*r-2.0/9.0;
984       t5 = t*t;
985       t6 = s+r-1.0;
986       t8 = t6*t6;
987       t9 = t5+6.0/5.0*t*t6+3.0/10.0*t8;
988       t12 = t1*r-12.0/17.0*t1+9.0/68.0*r-1.0/170.0;
989       t13 = t12*t9;
990       t14 = t12*t3;
991       t16 = t14*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
992       drv[0] = t3*(3.0*t1-24.0/17.0*r+9.0/68.0)*t9+2.0/9.0*t13+t16;
993       drv[1] = t13+t16;
994       drv[2] = t14*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
995    /* p=10 3 2 1 */
996    } else if( i==3 && j==2 && k==1 ) {
997       t1 = r*r;
998       t3 = s*s;
999       t4 = r-1.0;
1000       t6 = t4*t4;
1001       t7 = t3+2.0/3.0*s*t4+t6/12;
1002       t9 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
1003       t12 = t1*r-12.0/17.0*t1+9.0/68.0*r-1.0/170.0;
1004       t16 = t12*t7;
1005       drv[0] = (3.0*t1-24.0/17.0*r+9.0/68.0)*t7*t9+t12*(2.0/3.0*s+r/6-1.0/6.0)*
1006 t9+2.0/3.0*t16;
1007       drv[1] = t12*(2.0*s+2.0/3.0*r-2.0/3.0)*t9+2.0/3.0*t16;
1008       drv[2] = t16;
1009    /* p=10 3 3 0 */
1010    } else if( i==3 && j==3 && k==0 ) {
1011       t1 = r*r;
1012       t3 = s*s;
1013       t5 = r-1.0;
1014       t7 = t5*t5;
1015       t13 = t1*r-12.0/17.0*t1+9.0/68.0*r-1.0/170.0;
1016       t14 = s*t5;
1017       drv[0] = (3.0*t1-24.0/17.0*r+9.0/68.0)*(t3*s+4.0/3.0*t3*t5+s*t7/2+t7*t5
1018 /21)+t13*(4.0/3.0*t3+t14+t7/7);
1019       drv[1] = t13*(3.0*t3+8.0/3.0*t14+t7/2);
1020       drv[2] = 0.0;
1021    /* p=10 4 0 2 */
1022    } else if( i==4 && j==0 && k==2 ) {
1023       t1 = r*r;
1024       t2 = t1*r;
1025       t4 = t*t;
1026       t5 = s+r-1.0;
1027       t7 = t5*t5;
1028       t10 = t1*t1;
1029       t11 = t10-20.0/17.0*t2+15.0/34.0*t1-r/17+1.0/476.0;
1030       t13 = t11*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
1031       drv[0] = (4.0*t2-60.0/17.0*t1+15.0/17.0*r-1.0/17.0)*(t4+6.0/5.0*t*t5+3.0/
1032 10.0*t7)+t13;
1033       drv[1] = t13;
1034       drv[2] = t11*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
1035    /* p=10 4 1 1 */
1036    } else if( i==4 && j==1 && k==1 ) {
1037       t1 = r*r;
1038       t2 = t1*r;
1039       t4 = s+2.0/7.0*r-2.0/7.0;
1040       t6 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
1041       t8 = t1*t1;
1042       t9 = t8-20.0/17.0*t2+15.0/34.0*t1-r/17+1.0/476.0;
1043       t10 = t9*t6;
1044       t11 = t9*t4;
1045       drv[0] = (4.0*t2-60.0/17.0*t1+15.0/17.0*r-1.0/17.0)*t4*t6+2.0/7.0*t10+2.0
1046 /3.0*t11;
1047       drv[1] = t10+2.0/3.0*t11;
1048       drv[2] = t11;
1049    /* p=10 4 2 0 */
1050    } else if( i==4 && j==2 && k==0 ) {
1051       t1 = r*r;
1052       t2 = t1*r;
1053       t4 = s*s;
1054       t5 = r-1.0;
1055       t7 = t5*t5;
1056       t10 = t1*t1;
1057       t11 = t10-20.0/17.0*t2+15.0/34.0*t1-r/17+1.0/476.0;
1058       drv[0] = (4.0*t2-60.0/17.0*t1+15.0/17.0*r-1.0/17.0)*(t4+6.0/7.0*s*t5+t7/7
1059 )+t11*(6.0/7.0*s+2.0/7.0*r-2.0/7.0);
1060       drv[1] = t11*(2.0*s+6.0/7.0*r-6.0/7.0);
1061       drv[2] = 0.0;
1062    /* p=10 5 0 1 */
1063    } else if( i==5 && j==0 && k==1 ) {
1064       t1 = r*r;
1065       t2 = t1*t1;
1066       t3 = t1*r;
1067       t7 = t2*r;
1068       drv[0] = (5.0*t2-120.0/17.0*t3+225.0/68.0*t1-10.0/17.0*r+15.0/476.0)*(t+
1069 2.0/3.0*s+2.0/3.0*r-2.0/3.0)+2.0/3.0*t7-20.0/17.0*t2+25.0/34.0*t3-10.0/51.0*t1+
1070 5.0/238.0*r-1.0/1547.0;
1071       drv[1] = 2.0/3.0*t7-20.0/17.0*t2+25.0/34.0*t3-10.0/51.0*t1+5.0/238.0*r
1072 -1.0/1547.0;
1073       drv[2] = t7-30.0/17.0*t2+75.0/68.0*t3-5.0/17.0*t1+15.0/476.0*r-3.0/3094.0
1074 ;
1075    /* p=10 5 1 0 */
1076    } else if( i==5 && j==1 && k==0 ) {
1077       t1 = r*r;
1078       t2 = t1*t1;
1079       t3 = t1*r;
1080       t7 = t2*r;
1081       drv[0] = (5.0*t2-120.0/17.0*t3+225.0/68.0*t1-10.0/17.0*r+15.0/476.0)*(s+
1082 2.0/5.0*r-2.0/5.0)+2.0/5.0*t7-12.0/17.0*t2+15.0/34.0*t3-2.0/17.0*t1+3.0/238.0*r
1083 -3.0/7735.0;
1084       drv[1] = t7-30.0/17.0*t2+75.0/68.0*t3-5.0/17.0*t1+15.0/476.0*r-3.0/3094.0
1085 ;
1086       drv[2] = 0.0;
1087    /* p=10 6 0 0 */
1088    } else if( i==6 && j==0 && k==0 ) {
1089       t1 = r*r;
1090       t2 = t1*t1;
1091       drv[0] = 6.0*t2*r-210.0/17.0*t2+315.0/34.0*t1*r-105.0/34.0*t1+15.0/34.0*r
1092 -9.0/442.0;
1093       drv[1] = 0.0;
1094       drv[2] = 0.0;
1095    /* p=11 0 0 7 */
1096    } else if( i==0 && j==0 && k==7 ) {
1097       t1 = t*t;
1098       t2 = t1*t1;
1099       t3 = t2*t1;
1100       t5 = s+r-1.0;
1101       t6 = t2*t*t5;
1102       t7 = t5*t5;
1103       t8 = t2*t7;
1104       t11 = t1*t*t7*t5;
1105       t12 = t7*t7;
1106       t13 = t1*t12;
1107       t15 = t*t12*t5;
1108       t16 = t12*t7;
1109       t17 = 56.0/15.0*t3+56.0/5.0*t6+168.0/13.0*t8+280.0/39.0*t11+280.0/143.0*
1110 t13+168.0/715.0*t15+56.0/6435.0*t16;
1111       drv[0] = t17;
1112       drv[1] = t17;
1113       drv[2] = 7.0*t3+112.0/5.0*t6+28.0*t8+224.0/13.0*t11+70.0/13.0*t13+112.0/
1114 143.0*t15+28.0/715.0*t16;
1115    /* p=11 0 1 6 */
1116    } else if( i==0 && j==1 && k==6 ) {
1117       t1 = t*t;
1118       t2 = t1*t1;
1119       t3 = t2*t1;
1120       t4 = t2*t;
1121       t5 = s+r-1.0;
1122       t6 = t4*t5;
1123       t7 = t5*t5;
1124       t8 = t2*t7;
1125       t9 = t1*t;
1126       t10 = t7*t5;
1127       t11 = t9*t10;
1128       t12 = t7*t7;
1129       t13 = t1*t12;
1130       t14 = t12*t5;
1131       t15 = t*t14;
1132       t16 = t12*t7;
1133       t17 = s+2.0/17.0*r-2.0/17.0;
1134       t18 = t2*t5;
1135       t19 = t9*t7;
1136       t20 = t1*t10;
1137       t21 = t*t12;
1138       t23 = t17*(42.0/13.0*t4+105.0/13.0*t18+1050.0/143.0*t19+420.0/143.0*t20+
1139 70.0/143.0*t21+7.0/286.0*t14);
1140       drv[0] = 2.0/17.0*t3+84.0/221.0*t6+105.0/221.0*t8+700.0/2431.0*t11+210.0/
1141 2431.0*t13+28.0/2431.0*t15+7.0/14586.0*t16+t23;
1142       drv[1] = t3+42.0/13.0*t6+105.0/26.0*t8+350.0/143.0*t11+105.0/143.0*t13+
1143 14.0/143.0*t15+7.0/1716.0*t16+t23;
1144       drv[2] = t17*(6.0*t4+210.0/13.0*t18+210.0/13.0*t19+1050.0/143.0*t20+210.0
1145 /143.0*t21+14.0/143.0*t14);
1146    /* p=11 0 2 5 */
1147    } else if( i==0 && j==2 && k==5 ) {
1148       t2 = t*t;
1149       t3 = t2*t2;
1150       t5 = s+r-1.0;
1151       t7 = t2*t;
1152       t8 = t5*t5;
1153       t10 = t8*t5;
1154       t12 = t8*t8;
1155       t15 = t3*t+30.0/11.0*t3*t5+30.0/11.0*t7*t8+40.0/33.0*t2*t10+5.0/22.0*t*
1156 t12+t12*t5/77;
1157       t17 = s*s;
1158       t18 = r-1.0;
1159       t20 = t18*t18;
1160       t21 = t17+6.0/17.0*s*t18+3.0/136.0*t20;
1161       t22 = t7*t5;
1162       t23 = t2*t8;
1163       t24 = t*t10;
1164       t26 = t21*(30.0/11.0*t3+60.0/11.0*t22+40.0/11.0*t23+10.0/11.0*t24+5.0/
1165 77.0*t12);
1166       drv[0] = (6.0/17.0*s+3.0/68.0*r-3.0/68.0)*t15+t26;
1167       drv[1] = (2.0*s+6.0/17.0*r-6.0/17.0)*t15+t26;
1168       drv[2] = t21*(5.0*t3+120.0/11.0*t22+90.0/11.0*t23+80.0/33.0*t24+5.0/22.0*
1169 t12);
1170    /* p=11 0 3 4 */
1171    } else if( i==0 && j==3 && k==4 ) {
1172       t1 = s*s;
1173       t2 = r-1.0;
1174       t3 = s*t2;
1175       t4 = t2*t2;
1176       t6 = t*t;
1177       t7 = t6*t6;
1178       t8 = t6*t;
1179       t9 = s+r-1.0;
1180       t11 = t9*t9;
1181       t13 = t11*t9;
1182       t15 = t11*t11;
1183       t16 = t7+20.0/9.0*t8*t9+5.0/3.0*t6*t11+10.0/21.0*t*t13+5.0/126.0*t15;
1184       t22 = t1*s+12.0/17.0*t1*t2+9.0/68.0*s*t4+t4*t2/170;
1185       t23 = t6*t9;
1186       t24 = t*t11;
1187       t26 = t22*(20.0/9.0*t8+10.0/3.0*t23+10.0/7.0*t24+10.0/63.0*t13);
1188       drv[0] = (12.0/17.0*t1+9.0/34.0*t3+3.0/170.0*t4)*t16+t26;
1189       drv[1] = (3.0*t1+24.0/17.0*t3+9.0/68.0*t4)*t16+t26;
1190       drv[2] = t22*(4.0*t8+20.0/3.0*t23+10.0/3.0*t24+10.0/21.0*t13);
1191    /* p=11 0 4 3 */
1192    } else if( i==0 && j==4 && k==3 ) {
1193       t1 = s*s;
1194       t2 = t1*s;
1195       t3 = r-1.0;
1196       t4 = t3*t1;
1197       t5 = t3*t3;
1198       t6 = s*t5;
1199       t7 = t3*t5;
1200       t9 = t*t;
1201       t11 = s+r-1.0;
1202       t13 = t11*t11;
1203       t16 = t9*t+12.0/7.0*t11*t9+6.0/7.0*t*t13+4.0/35.0*t13*t11;
1204       t18 = t1*t1;
1205       t22 = t5*t5;
1206       t23 = t18+20.0/17.0*t3*t2+15.0/34.0*t1*t5+s*t7/17+t22/476;
1207       t24 = t*t11;
1208       t26 = t23*(12.0/7.0*t9+12.0/7.0*t24+12.0/35.0*t13);
1209       drv[0] = (20.0/17.0*t2+15.0/17.0*t4+3.0/17.0*t6+t7/119)*t16+t26;
1210       drv[1] = (4.0*t2+60.0/17.0*t4+15.0/17.0*t6+t7/17)*t16+t26;
1211       drv[2] = t23*(3.0*t9+24.0/7.0*t24+6.0/7.0*t13);
1212    /* p=11 0 5 2 */
1213    } else if( i==0 && j==5 && k==2 ) {
1214       t1 = s*s;
1215       t2 = t1*t1;
1216       t3 = t1*s;
1217       t4 = r-1.0;
1218       t5 = t3*t4;
1219       t6 = t4*t4;
1220       t7 = t1*t6;
1221       t8 = t6*t4;
1222       t9 = s*t8;
1223       t10 = t6*t6;
1224       t12 = t*t;
1225       t13 = s+r-1.0;
1226       t15 = t13*t13;
1227       t16 = t12+6.0/5.0*t*t13+3.0/10.0*t15;
1228       t24 = s*t2+30.0/17.0*t4*t2+75.0/68.0*t3*t6+5.0/17.0*t1*t8+15.0/476.0*s*
1229 t10+3.0/3094.0*t10*t4;
1230       t26 = t24*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
1231       drv[0] = (30.0/17.0*t2+75.0/34.0*t5+15.0/17.0*t7+15.0/119.0*t9+15.0/
1232 3094.0*t10)*t16+t26;
1233       drv[1] = (5.0*t2+120.0/17.0*t5+225.0/68.0*t7+10.0/17.0*t9+15.0/476.0*t10)
1234 *t16+t26;
1235       drv[2] = t24*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
1236    /* p=11 0 6 1 */
1237    } else if( i==0 && j==6 && k==1 ) {
1238       t1 = s*s;
1239       t2 = t1*t1;
1240       t3 = t2*s;
1241       t4 = r-1.0;
1242       t5 = t4*t2;
1243       t6 = t1*s;
1244       t7 = t4*t4;
1245       t8 = t6*t7;
1246       t9 = t7*t4;
1247       t10 = t1*t9;
1248       t11 = t7*t7;
1249       t12 = s*t11;
1250       t13 = t11*t4;
1251       t15 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
1252       t17 = t2*t1;
1253       t18 = t3*t4;
1254       t19 = t2*t7;
1255       t20 = t6*t9;
1256       t21 = t1*t11;
1257       t22 = s*t13;
1258       t23 = t11*t7;
1259       drv[0] = (42.0/17.0*t3+315.0/68.0*t5+105.0/34.0*t8+15.0/17.0*t10+45.0/
1260 442.0*t12+3.0/884.0*t13)*t15+2.0/3.0*t17+28.0/17.0*t18+105.0/68.0*t19+35.0/51.0
1261 *t20+5.0/34.0*t21+3.0/221.0*t22+t23/2652;
1262       drv[1] = (6.0*t3+210.0/17.0*t5+315.0/34.0*t8+105.0/34.0*t10+15.0/34.0*t12
1263 +9.0/442.0*t13)*t15+2.0/3.0*t17+28.0/17.0*t18+105.0/68.0*t19+35.0/51.0*t20+5.0/
1264 34.0*t21+3.0/221.0*t22+t23/2652;
1265       drv[2] = t17+42.0/17.0*t18+315.0/136.0*t19+35.0/34.0*t20+15.0/68.0*t21+
1266 9.0/442.0*t22+t23/1768;
1267    /* p=11 0 7 0 */
1268    } else if( i==0 && j==7 && k==0 ) {
1269       t1 = s*s;
1270       t2 = t1*t1;
1271       t3 = t2*t1;
1272       t5 = r-1.0;
1273       t6 = t2*s*t5;
1274       t7 = t5*t5;
1275       t8 = t2*t7;
1276       t11 = t1*s*t7*t5;
1277       t12 = t7*t7;
1278       t13 = t1*t12;
1279       t15 = s*t12*t5;
1280       t16 = t12*t7;
1281       drv[0] = 56.0/17.0*t3+147.0/17.0*t6+147.0/17.0*t8+70.0/17.0*t11+210.0/
1282 221.0*t13+21.0/221.0*t15+7.0/2431.0*t16;
1283       drv[1] = 7.0*t3+336.0/17.0*t6+735.0/34.0*t8+196.0/17.0*t11+105.0/34.0*t13
1284 +84.0/221.0*t15+7.0/442.0*t16;
1285       drv[2] = 0.0;
1286    /* p=11 1 0 6 */
1287    } else if( i==1 && j==0 && k==6 ) {
1288       t1 = t*t;
1289       t2 = t1*t1;
1290       t4 = t2*t;
1291       t5 = s+r-1.0;
1292       t7 = t5*t5;
1293       t9 = t1*t;
1294       t10 = t7*t5;
1295       t12 = t7*t7;
1296       t14 = t12*t5;
1297       t17 = r-2.0/19.0;
1298       t18 = t2*t5;
1299       t19 = t9*t7;
1300       t20 = t1*t10;
1301       t21 = t*t12;
1302       t23 = t17*(42.0/13.0*t4+105.0/13.0*t18+1050.0/143.0*t19+420.0/143.0*t20+
1303 70.0/143.0*t21+7.0/286.0*t14);
1304       drv[0] = t2*t1+42.0/13.0*t4*t5+105.0/26.0*t2*t7+350.0/143.0*t9*t10+105.0/
1305 143.0*t1*t12+14.0/143.0*t*t14+7.0/1716.0*t12*t7+t23;
1306       drv[1] = t23;
1307       drv[2] = t17*(6.0*t4+210.0/13.0*t18+210.0/13.0*t19+1050.0/143.0*t20+210.0
1308 /143.0*t21+14.0/143.0*t14);
1309    /* p=11 1 1 5 */
1310    } else if( i==1 && j==1 && k==5 ) {
1311       t1 = s+2.0/15.0*r-2.0/15.0;
1312       t2 = t*t;
1313       t3 = t2*t2;
1314       t5 = s+r-1.0;
1315       t7 = t2*t;
1316       t8 = t5*t5;
1317       t10 = t8*t5;
1318       t12 = t8*t8;
1319       t15 = t3*t+30.0/11.0*t3*t5+30.0/11.0*t7*t8+40.0/33.0*t2*t10+5.0/22.0*t*
1320 t12+t12*t5/77;
1321       t17 = r-2.0/19.0;
1322       t18 = t17*t15;
1323       t19 = t17*t1;
1324       t20 = t7*t5;
1325       t21 = t2*t8;
1326       t22 = t*t10;
1327       t24 = t19*(30.0/11.0*t3+60.0/11.0*t20+40.0/11.0*t21+10.0/11.0*t22+5.0/
1328 77.0*t12);
1329       drv[0] = t1*t15+2.0/15.0*t18+t24;
1330       drv[1] = t18+t24;
1331       drv[2] = t19*(5.0*t3+120.0/11.0*t20+90.0/11.0*t21+80.0/33.0*t22+5.0/22.0*
1332 t12);
1333    /* p=11 1 2 4 */
1334    } else if( i==1 && j==2 && k==4 ) {
1335       t1 = s*s;
1336       t2 = r-1.0;
1337       t4 = t2*t2;
1338       t5 = t1+2.0/5.0*s*t2+t4/35;
1339       t6 = t*t;
1340       t7 = t6*t6;
1341       t8 = t6*t;
1342       t9 = s+r-1.0;
1343       t11 = t9*t9;
1344       t13 = t11*t9;
1345       t15 = t11*t11;
1346       t16 = t7+20.0/9.0*t8*t9+5.0/3.0*t6*t11+10.0/21.0*t*t13+5.0/126.0*t15;
1347       t18 = r-2.0/19.0;
1348       t22 = t18*t5;
1349       t23 = t6*t9;
1350       t24 = t*t11;
1351       t26 = t22*(20.0/9.0*t8+10.0/3.0*t23+10.0/7.0*t24+10.0/63.0*t13);
1352       drv[0] = t5*t16+t18*(2.0/5.0*s+2.0/35.0*r-2.0/35.0)*t16+t26;
1353       drv[1] = t18*(2.0*s+2.0/5.0*r-2.0/5.0)*t16+t26;
1354       drv[2] = t22*(4.0*t8+20.0/3.0*t23+10.0/3.0*t24+10.0/21.0*t13);
1355    /* p=11 1 3 3 */
1356    } else if( i==1 && j==3 && k==3 ) {
1357       t1 = s*s;
1358       t3 = r-1.0;
1359       t5 = t3*t3;
1360       t8 = t1*s+4.0/5.0*t3*t1+6.0/35.0*s*t5+4.0/455.0*t5*t3;
1361       t9 = t*t;
1362       t11 = s+r-1.0;
1363       t13 = t11*t11;
1364       t16 = t9*t+12.0/7.0*t11*t9+6.0/7.0*t*t13+4.0/35.0*t13*t11;
1365       t18 = r-2.0/19.0;
1366       t19 = s*t3;
1367       t23 = t18*t8;
1368       t24 = t*t11;
1369       t26 = t23*(12.0/7.0*t9+12.0/7.0*t24+12.0/35.0*t13);
1370       drv[0] = t8*t16+t18*(4.0/5.0*t1+12.0/35.0*t19+12.0/455.0*t5)*t16+t26;
1371       drv[1] = t18*(3.0*t1+8.0/5.0*t19+6.0/35.0*t5)*t16+t26;
1372       drv[2] = t23*(3.0*t9+24.0/7.0*t24+6.0/7.0*t13);
1373    /* p=11 1 4 2 */
1374    } else if( i==1 && j==4 && k==2 ) {
1375       t1 = s*s;
1376       t2 = t1*t1;
1377       t3 = t1*s;
1378       t4 = r-1.0;
1379       t6 = t4*t4;
1380       t8 = t6*t4;
1381       t10 = t6*t6;
1382       t11 = t2+4.0/3.0*t3*t4+4.0/7.0*t1*t6+8.0/91.0*s*t8+t10/273;
1383       t12 = t*t;
1384       t13 = s+r-1.0;
1385       t15 = t13*t13;
1386       t16 = t12+6.0/5.0*t*t13+3.0/10.0*t15;
1387       t18 = r-2.0/19.0;
1388       t19 = t4*t1;
1389       t20 = s*t6;
1390       t24 = t18*t11;
1391       t26 = t24*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
1392       drv[0] = t11*t16+t18*(4.0/3.0*t3+8.0/7.0*t19+24.0/91.0*t20+4.0/273.0*t8)*
1393 t16+t26;
1394       drv[1] = t18*(4.0*t3+4.0*t19+8.0/7.0*t20+8.0/91.0*t8)*t16+t26;
1395       drv[2] = t24*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
1396    /* p=11 1 5 1 */
1397    } else if( i==1 && j==5 && k==1 ) {
1398       t1 = s*s;
1399       t2 = t1*t1;
1400       t4 = r-1.0;
1401       t6 = t1*s;
1402       t7 = t4*t4;
1403       t9 = t7*t4;
1404       t11 = t7*t7;
1405       t14 = s*t2+2.0*t4*t2+10.0/7.0*t6*t7+40.0/91.0*t1*t9+5.0/91.0*s*t11+2.0/
1406 1001.0*t11*t4;
1407       t15 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
1408       t17 = r-2.0/19.0;
1409       t18 = t6*t4;
1410       t19 = t1*t7;
1411       t20 = s*t9;
1412       t24 = t17*t14;
1413       drv[0] = t14*t15+t17*(2.0*t2+20.0/7.0*t18+120.0/91.0*t19+20.0/91.0*t20+
1414 10.0/1001.0*t11)*t15+2.0/3.0*t24;
1415       drv[1] = t17*(5.0*t2+8.0*t18+30.0/7.0*t19+80.0/91.0*t20+5.0/91.0*t11)*t15
1416 +2.0/3.0*t24;
1417       drv[2] = t24;
1418    /* p=11 1 6 0 */
1419    } else if( i==1 && j==6 && k==0 ) {
1420       t1 = s*s;
1421       t2 = t1*t1;
1422       t4 = s*t2;
1423       t5 = r-1.0;
1424       t7 = t5*t5;
1425       t9 = t1*s;
1426       t10 = t7*t5;
1427       t12 = t7*t7;
1428       t14 = t12*t5;
1429       t17 = r-2.0/19.0;
1430       t18 = t2*t5;
1431       t19 = t9*t7;
1432       t20 = t1*t10;
1433       t21 = s*t12;
1434       drv[0] = t2*t1+14.0/5.0*t4*t5+3.0*t2*t7+20.0/13.0*t9*t10+5.0/13.0*t1*t12+
1435 6.0/143.0*s*t14+t12*t7/715+t17*(14.0/5.0*t4+6.0*t18+60.0/13.0*t19+20.0/13.0*t20
1436 +30.0/143.0*t21+6.0/715.0*t14);
1437       drv[1] = t17*(6.0*t4+14.0*t18+12.0*t19+60.0/13.0*t20+10.0/13.0*t21+6.0/
1438 143.0*t14);
1439       drv[2] = 0.0;
1440    /* p=11 2 0 5 */
1441    } else if( i==2 && j==0 && k==5 ) {
1442       t2 = t*t;
1443       t3 = t2*t2;
1444       t5 = s+r-1.0;
1445       t7 = t2*t;
1446       t8 = t5*t5;
1447       t10 = t8*t5;
1448       t12 = t8*t8;
1449       t17 = r*r;
1450       t18 = t17-6.0/19.0*r+1.0/57.0;
1451       t19 = t7*t5;
1452       t20 = t2*t8;
1453       t21 = t*t10;
1454       t23 = t18*(30.0/11.0*t3+60.0/11.0*t19+40.0/11.0*t20+10.0/11.0*t21+5.0/
1455 77.0*t12);
1456       drv[0] = (2.0*r-6.0/19.0)*(t3*t+30.0/11.0*t3*t5+30.0/11.0*t7*t8+40.0/33.0
1457 *t2*t10+5.0/22.0*t*t12+t12*t5/77)+t23;
1458       drv[1] = t23;
1459       drv[2] = t18*(5.0*t3+120.0/11.0*t19+90.0/11.0*t20+80.0/33.0*t21+5.0/22.0*
1460 t12);
1461    /* p=11 2 1 4 */
1462    } else if( i==2 && j==1 && k==4 ) {
1463       t2 = s+2.0/13.0*r-2.0/13.0;
1464       t4 = t*t;
1465       t5 = t4*t4;
1466       t6 = t4*t;
1467       t7 = s+r-1.0;
1468       t9 = t7*t7;
1469       t11 = t9*t7;
1470       t13 = t9*t9;
1471       t14 = t5+20.0/9.0*t6*t7+5.0/3.0*t4*t9+10.0/21.0*t*t11+5.0/126.0*t13;
1472       t16 = r*r;
1473       t17 = t16-6.0/19.0*r+1.0/57.0;
1474       t18 = t17*t14;
1475       t19 = t17*t2;
1476       t20 = t7*t4;
1477       t21 = t*t9;
1478       t23 = t19*(20.0/9.0*t6+10.0/3.0*t20+10.0/7.0*t21+10.0/63.0*t11);
1479       drv[0] = t2*(2.0*r-6.0/19.0)*t14+2.0/13.0*t18+t23;
1480       drv[1] = t18+t23;
1481       drv[2] = t19*(4.0*t6+20.0/3.0*t20+10.0/3.0*t21+10.0/21.0*t11);
1482    /* p=11 2 2 3 */
1483    } else if( i==2 && j==2 && k==3 ) {
1484       t2 = s*s;
1485       t3 = r-1.0;
1486       t5 = t3*t3;
1487       t6 = t2+6.0/13.0*s*t3+t5/26;
1488       t8 = t*t;
1489       t10 = s+r-1.0;
1490       t12 = t10*t10;
1491       t15 = t8*t+12.0/7.0*t8*t10+6.0/7.0*t*t12+4.0/35.0*t12*t10;
1492       t17 = r*r;
1493       t18 = t17-6.0/19.0*r+1.0/57.0;
1494       t22 = t18*t6;
1495       t23 = t*t10;
1496       t25 = t22*(12.0/7.0*t8+12.0/7.0*t23+12.0/35.0*t12);
1497       drv[0] = (2.0*r-6.0/19.0)*t6*t15+t18*(6.0/13.0*s+r/13-1.0/13.0)*t15+t25;
1498       drv[1] = t18*(2.0*s+6.0/13.0*r-6.0/13.0)*t15+t25;
1499       drv[2] = t22*(3.0*t8+24.0/7.0*t23+6.0/7.0*t12);
1500    /* p=11 2 3 2 */
1501    } else if( i==2 && j==3 && k==2 ) {
1502       t2 = s*s;
1503       t4 = r-1.0;
1504       t6 = t4*t4;
1505       t9 = t2*s+12.0/13.0*t4*t2+3.0/13.0*s*t6+2.0/143.0*t6*t4;
1506       t11 = t*t;
1507       t12 = s+r-1.0;
1508       t14 = t12*t12;
1509       t15 = t11+6.0/5.0*t*t12+3.0/10.0*t14;
1510       t17 = r*r;
1511       t18 = t17-6.0/19.0*r+1.0/57.0;
1512       t19 = s*t4;
1513       t23 = t18*t9;
1514       t25 = t23*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
1515       drv[0] = (2.0*r-6.0/19.0)*t9*t15+t18*(12.0/13.0*t2+6.0/13.0*t19+6.0/143.0
1516 *t6)*t15+t25;
1517       drv[1] = t18*(3.0*t2+24.0/13.0*t19+3.0/13.0*t6)*t15+t25;
1518       drv[2] = t23*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
1519    /* p=11 2 4 1 */
1520    } else if( i==2 && j==4 && k==1 ) {
1521       t2 = s*s;
1522       t3 = t2*t2;
1523       t4 = t2*s;
1524       t5 = r-1.0;
1525       t7 = t5*t5;
1526       t9 = t7*t5;
1527       t11 = t7*t7;
1528       t12 = t3+20.0/13.0*t4*t5+10.0/13.0*t2*t7+20.0/143.0*s*t9+t11/143;
1529       t14 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
1530       t16 = r*r;
1531       t17 = t16-6.0/19.0*r+1.0/57.0;
1532       t18 = t2*t5;
1533       t19 = s*t7;
1534       t23 = t17*t12;
1535       drv[0] = (2.0*r-6.0/19.0)*t12*t14+t17*(20.0/13.0*t4+20.0/13.0*t18+60.0/
1536 143.0*t19+4.0/143.0*t9)*t14+2.0/3.0*t23;
1537       drv[1] = t17*(4.0*t4+60.0/13.0*t18+20.0/13.0*t19+20.0/143.0*t9)*t14+2.0/
1538 3.0*t23;
1539       drv[2] = t23;
1540    /* p=11 2 5 0 */
1541    } else if( i==2 && j==5 && k==0 ) {
1542       t2 = s*s;
1543       t3 = t2*t2;
1544       t5 = r-1.0;
1545       t7 = t2*s;
1546       t8 = t5*t5;
1547       t10 = t8*t5;
1548       t12 = t8*t8;
1549       t17 = r*r;
1550       t18 = t17-6.0/19.0*r+1.0/57.0;
1551       t19 = t7*t5;
1552       t20 = t2*t8;
1553       t21 = s*t10;
1554       drv[0] = (2.0*r-6.0/19.0)*(t3*s+30.0/13.0*t3*t5+25.0/13.0*t7*t8+100.0/
1555 143.0*t2*t10+15.0/143.0*s*t12+2.0/429.0*t12*t5)+t18*(30.0/13.0*t3+50.0/13.0*t19
1556 +300.0/143.0*t20+60.0/143.0*t21+10.0/429.0*t12);
1557       drv[1] = t18*(5.0*t3+120.0/13.0*t19+75.0/13.0*t20+200.0/143.0*t21+15.0/
1558 143.0*t12);
1559       drv[2] = 0.0;
1560    /* p=11 3 0 4 */
1561    } else if( i==3 && j==0 && k==4 ) {
1562       t1 = r*r;
1563       t3 = t*t;
1564       t4 = t3*t3;
1565       t5 = t3*t;
1566       t6 = s+r-1.0;
1567       t8 = t6*t6;
1568       t10 = t8*t6;
1569       t12 = t8*t8;
1570       t16 = t1*r-12.0/19.0*t1+2.0/19.0*r-4.0/969.0;
1571       t17 = t3*t6;
1572       t18 = t*t8;
1573       t20 = t16*(20.0/9.0*t5+10.0/3.0*t17+10.0/7.0*t18+10.0/63.0*t10);
1574       drv[0] = (3.0*t1-24.0/19.0*r+2.0/19.0)*(t4+20.0/9.0*t5*t6+5.0/3.0*t3*t8+
1575 10.0/21.0*t*t10+5.0/126.0*t12)+t20;
1576       drv[1] = t20;
1577       drv[2] = t16*(4.0*t5+20.0/3.0*t17+10.0/3.0*t18+10.0/21.0*t10);
1578    /* p=11 3 1 3 */
1579    } else if( i==3 && j==1 && k==3 ) {
1580       t1 = r*r;
1581       t3 = s+2.0/11.0*r-2.0/11.0;
1582       t5 = t*t;
1583       t7 = s+r-1.0;
1584       t9 = t7*t7;
1585       t12 = t5*t+12.0/7.0*t5*t7+6.0/7.0*t*t9+4.0/35.0*t9*t7;
1586       t15 = t1*r-12.0/19.0*t1+2.0/19.0*r-4.0/969.0;
1587       t16 = t15*t12;
1588       t17 = t15*t3;
1589       t18 = t*t7;
1590       t20 = t17*(12.0/7.0*t5+12.0/7.0*t18+12.0/35.0*t9);
1591       drv[0] = t3*(3.0*t1-24.0/19.0*r+2.0/19.0)*t12+2.0/11.0*t16+t20;
1592       drv[1] = t16+t20;
1593       drv[2] = t17*(3.0*t5+24.0/7.0*t18+6.0/7.0*t9);
1594    /* p=11 3 2 2 */
1595    } else if( i==3 && j==2 && k==2 ) {
1596       t1 = r*r;
1597       t3 = s*s;
1598       t4 = r-1.0;
1599       t6 = t4*t4;
1600       t7 = t3+6.0/11.0*s*t4+3.0/55.0*t6;
1601       t9 = t*t;
1602       t10 = s+r-1.0;
1603       t12 = t10*t10;
1604       t13 = t9+6.0/5.0*t*t10+3.0/10.0*t12;
1605       t16 = t1*r-12.0/19.0*t1+2.0/19.0*r-4.0/969.0;
1606       t20 = t16*t7;
1607       t22 = t20*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
1608       drv[0] = (3.0*t1-24.0/19.0*r+2.0/19.0)*t7*t13+t16*(6.0/11.0*s+6.0/55.0*r
1609 -6.0/55.0)*t13+t22;
1610       drv[1] = t16*(2.0*s+6.0/11.0*r-6.0/11.0)*t13+t22;
1611       drv[2] = t20*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
1612    /* p=11 3 3 1 */
1613    } else if( i==3 && j==3 && k==1 ) {
1614       t1 = r*r;
1615       t3 = s*s;
1616       t5 = r-1.0;
1617       t7 = t5*t5;
1618       t10 = t3*s+12.0/11.0*t3*t5+18.0/55.0*s*t7+4.0/165.0*t5*t7;
1619       t12 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
1620       t15 = t1*r-12.0/19.0*t1+2.0/19.0*r-4.0/969.0;
1621       t16 = s*t5;
1622       t20 = t15*t10;
1623       drv[0] = (3.0*t1-24.0/19.0*r+2.0/19.0)*t10*t12+t15*(12.0/11.0*t3+36.0/
1624 55.0*t16+4.0/55.0*t7)*t12+2.0/3.0*t20;
1625       drv[1] = t15*(3.0*t3+24.0/11.0*t16+18.0/55.0*t7)*t12+2.0/3.0*t20;
1626       drv[2] = t20;
1627    /* p=11 3 4 0 */
1628    } else if( i==3 && j==4 && k==0 ) {
1629       t1 = r*r;
1630       t3 = s*s;
1631       t4 = t3*t3;
1632       t5 = t3*s;
1633       t6 = r-1.0;
1634       t8 = t6*t6;
1635       t10 = t8*t6;
1636       t12 = t8*t8;
1637       t16 = t1*r-12.0/19.0*t1+2.0/19.0*r-4.0/969.0;
1638       t17 = t3*t6;
1639       t18 = s*t8;
1640       drv[0] = (3.0*t1-24.0/19.0*r+2.0/19.0)*(t4+20.0/11.0*t5*t6+12.0/11.0*t3*
1641 t8+8.0/33.0*s*t10+t12/66)+t16*(20.0/11.0*t5+24.0/11.0*t17+8.0/11.0*t18+2.0/33.0
1642 *t10);
1643       drv[1] = t16*(4.0*t5+60.0/11.0*t17+24.0/11.0*t18+8.0/33.0*t10);
1644       drv[2] = 0.0;
1645    /* p=11 4 0 3 */
1646    } else if( i==4 && j==0 && k==3 ) {
1647       t1 = r*r;
1648       t2 = t1*r;
1649       t4 = t*t;
1650       t6 = s+r-1.0;
1651       t8 = t6*t6;
1652       t13 = t1*t1;
1653       t14 = t13-20.0/19.0*t2+20.0/57.0*t1-40.0/969.0*r+5.0/3876.0;
1654       t15 = t*t6;
1655       t17 = t14*(12.0/7.0*t4+12.0/7.0*t15+12.0/35.0*t8);
1656       drv[0] = (4.0*t2-60.0/19.0*t1+40.0/57.0*r-40.0/969.0)*(t4*t+12.0/7.0*t4*
1657 t6+6.0/7.0*t*t8+4.0/35.0*t8*t6)+t17;
1658       drv[1] = t17;
1659       drv[2] = t14*(3.0*t4+24.0/7.0*t15+6.0/7.0*t8);
1660    /* p=11 4 1 2 */
1661    } else if( i==4 && j==1 && k==2 ) {
1662       t1 = r*r;
1663       t2 = t1*r;
1664       t4 = s+2.0/9.0*r-2.0/9.0;
1665       t6 = t*t;
1666       t7 = s+r-1.0;
1667       t9 = t7*t7;
1668       t10 = t6+6.0/5.0*t*t7+3.0/10.0*t9;
1669       t12 = t1*t1;
1670       t13 = t12-20.0/19.0*t2+20.0/57.0*t1-40.0/969.0*r+5.0/3876.0;
1671       t14 = t13*t10;
1672       t15 = t13*t4;
1673       t17 = t15*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
1674       drv[0] = (4.0*t2-60.0/19.0*t1+40.0/57.0*r-40.0/969.0)*t4*t10+2.0/9.0*t14+
1675 t17;
1676       drv[1] = t14+t17;
1677       drv[2] = t15*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
1678    /* p=11 4 2 1 */
1679    } else if( i==4 && j==2 && k==1 ) {
1680       t1 = r*r;
1681       t2 = t1*r;
1682       t4 = s*s;
1683       t5 = r-1.0;
1684       t7 = t5*t5;
1685       t8 = t4+2.0/3.0*s*t5+t7/12;
1686       t10 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
1687       t12 = t1*t1;
1688       t13 = t12-20.0/19.0*t2+20.0/57.0*t1-40.0/969.0*r+5.0/3876.0;
1689       t17 = t13*t8;
1690       drv[0] = (4.0*t2-60.0/19.0*t1+40.0/57.0*r-40.0/969.0)*t8*t10+t13*(2.0/3.0
1691 *s+r/6-1.0/6.0)*t10+2.0/3.0*t17;
1692       drv[1] = t13*(2.0*s+2.0/3.0*r-2.0/3.0)*t10+2.0/3.0*t17;
1693       drv[2] = t17;
1694    /* p=11 4 3 0 */
1695    } else if( i==4 && j==3 && k==0 ) {
1696       t1 = r*r;
1697       t2 = t1*r;
1698       t4 = s*s;
1699       t6 = r-1.0;
1700       t8 = t6*t6;
1701       t13 = t1*t1;
1702       t14 = t13-20.0/19.0*t2+20.0/57.0*t1-40.0/969.0*r+5.0/3876.0;
1703       t15 = s*t6;
1704       drv[0] = (4.0*t2-60.0/19.0*t1+40.0/57.0*r-40.0/969.0)*(t4*s+4.0/3.0*t4*t6
1705 +s*t8/2+t8*t6/21)+t14*(4.0/3.0*t4+t15+t8/7);
1706       drv[1] = t14*(3.0*t4+8.0/3.0*t15+t8/2);
1707       drv[2] = 0.0;
1708    /* p=11 5 0 2 */
1709    } else if( i==5 && j==0 && k==2 ) {
1710       t1 = r*r;
1711       t2 = t1*t1;
1712       t3 = t1*r;
1713       t5 = t*t;
1714       t6 = s+r-1.0;
1715       t8 = t6*t6;
1716       t12 = t2*r-30.0/19.0*t2+50.0/57.0*t3-200.0/969.0*t1+25.0/1292.0*r-1.0/
1717 1938.0;
1718       t14 = t12*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
1719       drv[0] = (5.0*t2-120.0/19.0*t3+50.0/19.0*t1-400.0/969.0*r+25.0/1292.0)*(
1720 t5+6.0/5.0*t*t6+3.0/10.0*t8)+t14;
1721       drv[1] = t14;
1722       drv[2] = t12*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
1723    /* p=11 5 1 1 */
1724    } else if( i==5 && j==1 && k==1 ) {
1725       t1 = r*r;
1726       t2 = t1*t1;
1727       t3 = t1*r;
1728       t5 = s+2.0/7.0*r-2.0/7.0;
1729       t7 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
1730       t10 = t2*r-30.0/19.0*t2+50.0/57.0*t3-200.0/969.0*t1+25.0/1292.0*r-1.0/
1731 1938.0;
1732       t11 = t10*t7;
1733       t12 = t5*t10;
1734       drv[0] = (5.0*t2-120.0/19.0*t3+50.0/19.0*t1-400.0/969.0*r+25.0/1292.0)*t5
1735 *t7+2.0/7.0*t11+2.0/3.0*t12;
1736       drv[1] = t11+2.0/3.0*t12;
1737       drv[2] = t12;
1738    /* p=11 5 2 0 */
1739    } else if( i==5 && j==2 && k==0 ) {
1740       t1 = r*r;
1741       t2 = t1*t1;
1742       t3 = t1*r;
1743       t5 = s*s;
1744       t6 = r-1.0;
1745       t8 = t6*t6;
1746       t12 = t2*r-30.0/19.0*t2+50.0/57.0*t3-200.0/969.0*t1+25.0/1292.0*r-1.0/
1747 1938.0;
1748       drv[0] = (5.0*t2-120.0/19.0*t3+50.0/19.0*t1-400.0/969.0*r+25.0/1292.0)*(
1749 t5+6.0/7.0*s*t6+t8/7)+t12*(6.0/7.0*s+2.0/7.0*r-2.0/7.0);
1750       drv[1] = t12*(2.0*s+6.0/7.0*r-6.0/7.0);
1751       drv[2] = 0.0;
1752    /* p=11 6 0 1 */
1753    } else if( i==6 && j==0 && k==1 ) {
1754       t1 = r*r;
1755       t2 = t1*t1;
1756       t3 = t2*r;
1757       t4 = t1*r;
1758       t8 = t2*t1;
1759       drv[0] = (6.0*t3-210.0/19.0*t2+140.0/19.0*t4-700.0/323.0*t1+175.0/646.0*r
1760 -7.0/646.0)*(t+2.0/3.0*s+2.0/3.0*r-2.0/3.0)+2.0/3.0*t8-28.0/19.0*t3+70.0/57.0*
1761 t2-1400.0/2907.0*t4+175.0/1938.0*t1-7.0/969.0*r+1.0/5814.0;
1762       drv[1] = 2.0/3.0*t8-28.0/19.0*t3+70.0/57.0*t2-1400.0/2907.0*t4+175.0/
1763 1938.0*t1-7.0/969.0*r+1.0/5814.0;
1764       drv[2] = t8-42.0/19.0*t3+35.0/19.0*t2-700.0/969.0*t4+175.0/1292.0*t1-7.0/
1765 646.0*r+1.0/3876.0;
1766    /* p=11 6 1 0 */
1767    } else if( i==6 && j==1 && k==0 ) {
1768       t1 = r*r;
1769       t2 = t1*t1;
1770       t3 = t2*r;
1771       t4 = t1*r;
1772       t8 = t2*t1;
1773       drv[0] = (6.0*t3-210.0/19.0*t2+140.0/19.0*t4-700.0/323.0*t1+175.0/646.0*r
1774 -7.0/646.0)*(s+2.0/5.0*r-2.0/5.0)+2.0/5.0*t8-84.0/95.0*t3+14.0/19.0*t2-280.0/
1775 969.0*t4+35.0/646.0*t1-7.0/1615.0*r+1.0/9690.0;
1776       drv[1] = t8-42.0/19.0*t3+35.0/19.0*t2-700.0/969.0*t4+175.0/1292.0*t1-7.0/
1777 646.0*r+1.0/3876.0;
1778       drv[2] = 0.0;
1779    /* p=11 7 0 0 */
1780    } else if( i==7 && j==0 && k==0 ) {
1781       t1 = r*r;
1782       t2 = t1*t1;
1783       drv[0] = 7.0*t2*t1-336.0/19.0*t2*r+980.0/57.0*t2-7840.0/969.0*t1*r+1225.0
1784 /646.0*t1-196.0/969.0*r+7.0/969.0;
1785       drv[1] = 0.0;
1786       drv[2] = 0.0;
1787    /* p=12 0 0 8 */
1788    } else if( i==0 && j==0 && k==8 ) {
1789       t1 = t*t;
1790       t2 = t1*t;
1791       t3 = t1*t1;
1792       t4 = t3*t2;
1793       t6 = s+r-1.0;
1794       t7 = t3*t1*t6;
1795       t9 = t6*t6;
1796       t10 = t3*t*t9;
1797       t11 = t9*t6;
1798       t12 = t3*t11;
1799       t13 = t9*t9;
1800       t14 = t2*t13;
1801       t16 = t1*t13*t6;
1802       t18 = t*t13*t9;
1803       t19 = t13*t11;
1804       t20 = 72.0/17.0*t4+252.0/17.0*t7+1764.0/85.0*t10+252.0/17.0*t12+1260.0/
1805 221.0*t14+252.0/221.0*t16+252.0/2431.0*t18+36.0/12155.0*t19;
1806       drv[0] = t20;
1807       drv[1] = t20;
1808       drv[2] = 8.0*t4+504.0/17.0*t7+756.0/17.0*t10+588.0/17.0*t12+252.0/17.0*
1809 t14+756.0/221.0*t16+84.0/221.0*t18+36.0/2431.0*t19;
1810    /* p=12 0 1 7 */
1811    } else if( i==0 && j==1 && k==7 ) {
1812       t1 = t*t;
1813       t2 = t1*t;
1814       t3 = t1*t1;
1815       t4 = t3*t2;
1816       t5 = t3*t1;
1817       t6 = s+r-1.0;
1818       t7 = t5*t6;
1819       t8 = t3*t;
1820       t9 = t6*t6;
1821       t10 = t8*t9;
1822       t11 = t9*t6;
1823       t12 = t3*t11;
1824       t13 = t9*t9;
1825       t14 = t2*t13;
1826       t15 = t13*t6;
1827       t16 = t1*t15;
1828       t17 = t13*t9;
1829       t18 = t*t17;
1830       t19 = t13*t11;
1831       t20 = s+2.0/19.0*r-2.0/19.0;
1832       t21 = t8*t6;
1833       t22 = t3*t9;
1834       t23 = t2*t11;
1835       t24 = t1*t13;
1836       t25 = t*t15;
1837       t27 = t20*(56.0/15.0*t5+56.0/5.0*t21+168.0/13.0*t22+280.0/39.0*t23+280.0/
1838 143.0*t24+168.0/715.0*t25+56.0/6435.0*t17);
1839       drv[0] = 2.0/19.0*t4+112.0/285.0*t7+56.0/95.0*t10+112.0/247.0*t12+140.0/
1840 741.0*t14+112.0/2717.0*t16+56.0/13585.0*t18+16.0/122265.0*t19+t27;
1841       drv[1] = t4+56.0/15.0*t7+28.0/5.0*t10+56.0/13.0*t12+70.0/39.0*t14+56.0/
1842 143.0*t16+28.0/715.0*t18+8.0/6435.0*t19+t27;
1843       drv[2] = t20*(7.0*t5+112.0/5.0*t21+28.0*t22+224.0/13.0*t23+70.0/13.0*t24+
1844 112.0/143.0*t25+28.0/715.0*t17);
1845    /* p=12 0 2 6 */
1846    } else if( i==0 && j==2 && k==6 ) {
1847       t2 = t*t;
1848       t3 = t2*t2;
1849       t5 = t3*t;
1850       t6 = s+r-1.0;
1851       t8 = t6*t6;
1852       t10 = t2*t;
1853       t11 = t8*t6;
1854       t13 = t8*t8;
1855       t15 = t13*t6;
1856       t18 = t3*t2+42.0/13.0*t5*t6+105.0/26.0*t3*t8+350.0/143.0*t10*t11+105.0/
1857 143.0*t2*t13+14.0/143.0*t*t15+7.0/1716.0*t13*t8;
1858       t20 = s*s;
1859       t21 = r-1.0;
1860       t23 = t21*t21;
1861       t24 = t20+6.0/19.0*s*t21+t23/57;
1862       t25 = t3*t6;
1863       t26 = t10*t8;
1864       t27 = t2*t11;
1865       t28 = t*t13;
1866       t30 = t24*(42.0/13.0*t5+105.0/13.0*t25+1050.0/143.0*t26+420.0/143.0*t27+
1867 70.0/143.0*t28+7.0/286.0*t15);
1868       drv[0] = (6.0/19.0*s+2.0/57.0*r-2.0/57.0)*t18+t30;
1869       drv[1] = (2.0*s+6.0/19.0*r-6.0/19.0)*t18+t30;
1870       drv[2] = t24*(6.0*t5+210.0/13.0*t25+210.0/13.0*t26+1050.0/143.0*t27+210.0
1871 /143.0*t28+14.0/143.0*t15);
1872    /* p=12 0 3 5 */
1873    } else if( i==0 && j==3 && k==5 ) {
1874       t1 = s*s;
1875       t2 = r-1.0;
1876       t3 = s*t2;
1877       t4 = t2*t2;
1878       t6 = t*t;
1879       t7 = t6*t6;
1880       t9 = s+r-1.0;
1881       t11 = t6*t;
1882       t12 = t9*t9;
1883       t14 = t12*t9;
1884       t16 = t12*t12;
1885       t19 = t7*t+30.0/11.0*t7*t9+30.0/11.0*t11*t12+40.0/33.0*t6*t14+5.0/22.0*t*
1886 t16+t16*t9/77;
1887       t25 = t1*s+12.0/19.0*t1*t2+2.0/19.0*s*t4+4.0/969.0*t4*t2;
1888       t26 = t11*t9;
1889       t27 = t6*t12;
1890       t28 = t*t14;
1891       t30 = t25*(30.0/11.0*t7+60.0/11.0*t26+40.0/11.0*t27+10.0/11.0*t28+5.0/
1892 77.0*t16);
1893       drv[0] = (12.0/19.0*t1+4.0/19.0*t3+4.0/323.0*t4)*t19+t30;
1894       drv[1] = (3.0*t1+24.0/19.0*t3+2.0/19.0*t4)*t19+t30;
1895       drv[2] = t25*(5.0*t7+120.0/11.0*t26+90.0/11.0*t27+80.0/33.0*t28+5.0/22.0*
1896 t16);
1897    /* p=12 0 4 4 */
1898    } else if( i==0 && j==4 && k==4 ) {
1899       t1 = s*s;
1900       t2 = t1*s;
1901       t3 = r-1.0;
1902       t4 = t3*t1;
1903       t5 = t3*t3;
1904       t6 = s*t5;
1905       t7 = t5*t3;
1906       t9 = t*t;
1907       t10 = t9*t9;
1908       t11 = t9*t;
1909       t12 = s+r-1.0;
1910       t14 = t12*t12;
1911       t16 = t14*t12;
1912       t18 = t14*t14;
1913       t19 = t10+20.0/9.0*t11*t12+5.0/3.0*t9*t14+10.0/21.0*t*t16+5.0/126.0*t18;
1914       t21 = t1*t1;
1915       t25 = t5*t5;
1916       t26 = t21+20.0/19.0*t3*t2+20.0/57.0*t1*t5+40.0/969.0*s*t7+5.0/3876.0*t25;
1917       t27 = t9*t12;
1918       t28 = t*t14;
1919       t30 = t26*(20.0/9.0*t11+10.0/3.0*t27+10.0/7.0*t28+10.0/63.0*t16);
1920       drv[0] = (20.0/19.0*t2+40.0/57.0*t4+40.0/323.0*t6+5.0/969.0*t7)*t19+t30;
1921       drv[1] = (4.0*t2+60.0/19.0*t4+40.0/57.0*t6+40.0/969.0*t7)*t19+t30;
1922       drv[2] = t26*(4.0*t11+20.0/3.0*t27+10.0/3.0*t28+10.0/21.0*t16);
1923    /* p=12 0 5 3 */
1924    } else if( i==0 && j==5 && k==3 ) {
1925       t1 = s*s;
1926       t2 = t1*t1;
1927       t3 = t1*s;
1928       t4 = r-1.0;
1929       t5 = t3*t4;
1930       t6 = t4*t4;
1931       t7 = t1*t6;
1932       t8 = t6*t4;
1933       t9 = s*t8;
1934       t10 = t6*t6;
1935       t12 = t*t;
1936       t14 = s+r-1.0;
1937       t16 = t14*t14;
1938       t19 = t12*t+12.0/7.0*t14*t12+6.0/7.0*t*t16+4.0/35.0*t16*t14;
1939       t27 = t2*s+30.0/19.0*t4*t2+50.0/57.0*t3*t6+200.0/969.0*t1*t8+25.0/1292.0*
1940 s*t10+t10*t4/1938;
1941       t28 = t*t14;
1942       t30 = t27*(12.0/7.0*t12+12.0/7.0*t28+12.0/35.0*t16);
1943       drv[0] = (30.0/19.0*t2+100.0/57.0*t5+200.0/323.0*t7+25.0/323.0*t9+5.0/
1944 1938.0*t10)*t19+t30;
1945       drv[1] = (5.0*t2+120.0/19.0*t5+50.0/19.0*t7+400.0/969.0*t9+25.0/1292.0*
1946 t10)*t19+t30;
1947       drv[2] = t27*(3.0*t12+24.0/7.0*t28+6.0/7.0*t16);
1948    /* p=12 0 6 2 */
1949    } else if( i==0 && j==6 && k==2 ) {
1950       t1 = s*s;
1951       t2 = t1*t1;
1952       t3 = t2*s;
1953       t4 = r-1.0;
1954       t5 = t4*t2;
1955       t6 = t1*s;
1956       t7 = t4*t4;
1957       t8 = t6*t7;
1958       t9 = t7*t4;
1959       t10 = t1*t9;
1960       t11 = t7*t7;
1961       t12 = s*t11;
1962       t13 = t11*t4;
1963       t15 = t*t;
1964       t16 = s+r-1.0;
1965       t18 = t16*t16;
1966       t19 = t15+6.0/5.0*t*t16+3.0/10.0*t18;
1967       t28 = t2*t1+42.0/19.0*t3*t4+35.0/19.0*t2*t7+700.0/969.0*t6*t9+175.0/
1968 1292.0*t1*t11+7.0/646.0*s*t13+t11*t7/3876;
1969       t30 = t28*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
1970       drv[0] = (42.0/19.0*t3+70.0/19.0*t5+700.0/323.0*t8+175.0/323.0*t10+35.0/
1971 646.0*t12+t13/646)*t19+t30;
1972       drv[1] = (6.0*t3+210.0/19.0*t5+140.0/19.0*t8+700.0/323.0*t10+175.0/646.0*
1973 t12+7.0/646.0*t13)*t19+t30;
1974       drv[2] = t28*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
1975    /* p=12 0 7 1 */
1976    } else if( i==0 && j==7 && k==1 ) {
1977       t1 = s*s;
1978       t2 = t1*t1;
1979       t3 = t2*t1;
1980       t4 = t2*s;
1981       t5 = r-1.0;
1982       t6 = t4*t5;
1983       t7 = t5*t5;
1984       t8 = t2*t7;
1985       t9 = t1*s;
1986       t10 = t7*t5;
1987       t11 = t9*t10;
1988       t12 = t7*t7;
1989       t13 = t1*t12;
1990       t14 = t12*t5;
1991       t15 = s*t14;
1992       t16 = t12*t7;
1993       t18 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
1994       t20 = t2*t9;
1995       t21 = t3*t5;
1996       t22 = t4*t7;
1997       t23 = t2*t10;
1998       t24 = t9*t12;
1999       t25 = t1*t14;
2000       t26 = s*t16;
2001       t27 = t12*t10;
2002       drv[0] = (56.0/19.0*t3+392.0/57.0*t6+1960.0/323.0*t8+2450.0/969.0*t11+
2003 490.0/969.0*t13+14.0/323.0*t15+14.0/12597.0*t16)*t18+2.0/3.0*t20+112.0/57.0*t21
2004 +392.0/171.0*t22+3920.0/2907.0*t23+1225.0/2907.0*t24+196.0/2907.0*t25+14.0/
2005 2907.0*t26+4.0/37791.0*t27;
2006       drv[1] = (7.0*t3+336.0/19.0*t6+980.0/57.0*t8+7840.0/969.0*t11+1225.0/
2007 646.0*t13+196.0/969.0*t15+7.0/969.0*t16)*t18+2.0/3.0*t20+112.0/57.0*t21+392.0/
2008 171.0*t22+3920.0/2907.0*t23+1225.0/2907.0*t24+196.0/2907.0*t25+14.0/2907.0*t26+
2009 4.0/37791.0*t27;
2010       drv[2] = t20+56.0/19.0*t21+196.0/57.0*t22+1960.0/969.0*t23+1225.0/1938.0*
2011 t24+98.0/969.0*t25+7.0/969.0*t26+2.0/12597.0*t27;
2012    /* p=12 0 8 0 */
2013    } else if( i==0 && j==8 && k==0 ) {
2014       t1 = s*s;
2015       t2 = t1*s;
2016       t3 = t1*t1;
2017       t4 = t3*t2;
2018       t6 = r-1.0;
2019       t7 = t3*t1*t6;
2020       t9 = t6*t6;
2021       t10 = t3*s*t9;
2022       t11 = t9*t6;
2023       t12 = t3*t11;
2024       t13 = t9*t9;
2025       t14 = t2*t13;
2026       t16 = t1*t13*t6;
2027       t18 = s*t13*t9;
2028       t19 = t13*t11;
2029       drv[0] = 72.0/19.0*t4+224.0/19.0*t7+4704.0/323.0*t10+2940.0/323.0*t12+
2030 980.0/323.0*t14+168.0/323.0*t16+168.0/4199.0*t18+4.0/4199.0*t19;
2031       drv[1] = 8.0*t4+504.0/19.0*t7+672.0/19.0*t10+7840.0/323.0*t12+2940.0/
2032 323.0*t14+588.0/323.0*t16+56.0/323.0*t18+24.0/4199.0*t19;
2033       drv[2] = 0.0;
2034    /* p=12 1 0 7 */
2035    } else if( i==1 && j==0 && k==7 ) {
2036       t1 = t*t;
2037       t2 = t1*t;
2038       t3 = t1*t1;
2039       t5 = t3*t1;
2040       t6 = s+r-1.0;
2041       t8 = t3*t;
2042       t9 = t6*t6;
2043       t11 = t9*t6;
2044       t13 = t9*t9;
2045       t15 = t13*t6;
2046       t17 = t13*t9;
2047       t20 = r-2.0/21.0;
2048       t21 = t8*t6;
2049       t22 = t3*t9;
2050       t23 = t2*t11;
2051       t24 = t1*t13;
2052       t25 = t*t15;
2053       t27 = t20*(56.0/15.0*t5+56.0/5.0*t21+168.0/13.0*t22+280.0/39.0*t23+280.0/
2054 143.0*t24+168.0/715.0*t25+56.0/6435.0*t17);
2055       drv[0] = t3*t2+56.0/15.0*t5*t6+28.0/5.0*t8*t9+56.0/13.0*t3*t11+70.0/39.0*
2056 t2*t13+56.0/143.0*t1*t15+28.0/715.0*t*t17+8.0/6435.0*t13*t11+t27;
2057       drv[1] = t27;
2058       drv[2] = t20*(7.0*t5+112.0/5.0*t21+28.0*t22+224.0/13.0*t23+70.0/13.0*t24+
2059 112.0/143.0*t25+28.0/715.0*t17);
2060    /* p=12 1 1 6 */
2061    } else if( i==1 && j==1 && k==6 ) {
2062       t1 = s+2.0/17.0*r-2.0/17.0;
2063       t2 = t*t;
2064       t3 = t2*t2;
2065       t5 = t3*t;
2066       t6 = s+r-1.0;
2067       t8 = t6*t6;
2068       t10 = t2*t;
2069       t11 = t8*t6;
2070       t13 = t8*t8;
2071       t15 = t13*t6;
2072       t18 = t3*t2+42.0/13.0*t5*t6+105.0/26.0*t3*t8+350.0/143.0*t10*t11+105.0/
2073 143.0*t2*t13+14.0/143.0*t*t15+7.0/1716.0*t13*t8;
2074       t20 = r-2.0/21.0;
2075       t21 = t20*t18;
2076       t22 = t20*t1;
2077       t23 = t3*t6;
2078       t24 = t10*t8;
2079       t25 = t2*t11;
2080       t26 = t*t13;
2081       t28 = t22*(42.0/13.0*t5+105.0/13.0*t23+1050.0/143.0*t24+420.0/143.0*t25+
2082 70.0/143.0*t26+7.0/286.0*t15);
2083       drv[0] = t1*t18+2.0/17.0*t21+t28;
2084       drv[1] = t21+t28;
2085       drv[2] = t22*(6.0*t5+210.0/13.0*t23+210.0/13.0*t24+1050.0/143.0*t25+210.0
2086 /143.0*t26+14.0/143.0*t15);
2087    /* p=12 1 2 5 */
2088    } else if( i==1 && j==2 && k==5 ) {
2089       t1 = s*s;
2090       t2 = r-1.0;
2091       t4 = t2*t2;
2092       t5 = t1+6.0/17.0*s*t2+3.0/136.0*t4;
2093       t6 = t*t;
2094       t7 = t6*t6;
2095       t9 = s+r-1.0;
2096       t11 = t6*t;
2097       t12 = t9*t9;
2098       t14 = t12*t9;
2099       t16 = t12*t12;
2100       t19 = t7*t+30.0/11.0*t7*t9+30.0/11.0*t11*t12+40.0/33.0*t6*t14+5.0/22.0*t*
2101 t16+t16*t9/77;
2102       t21 = r-2.0/21.0;
2103       t25 = t21*t5;
2104       t26 = t11*t9;
2105       t27 = t6*t12;
2106       t28 = t*t14;
2107       t30 = t25*(30.0/11.0*t7+60.0/11.0*t26+40.0/11.0*t27+10.0/11.0*t28+5.0/
2108 77.0*t16);
2109       drv[0] = t5*t19+t21*(6.0/17.0*s+3.0/68.0*r-3.0/68.0)*t19+t30;
2110       drv[1] = t21*(2.0*s+6.0/17.0*r-6.0/17.0)*t19+t30;
2111       drv[2] = t25*(5.0*t7+120.0/11.0*t26+90.0/11.0*t27+80.0/33.0*t28+5.0/22.0*
2112 t16);
2113    /* p=12 1 3 4 */
2114    } else if( i==1 && j==3 && k==4 ) {
2115       t1 = s*s;
2116       t3 = r-1.0;
2117       t5 = t3*t3;
2118       t8 = t1*s+12.0/17.0*t3*t1+9.0/68.0*s*t5+t5*t3/170;
2119       t9 = t*t;
2120       t10 = t9*t9;
2121       t11 = t9*t;
2122       t12 = s+r-1.0;
2123       t14 = t12*t12;
2124       t16 = t14*t12;
2125       t18 = t14*t14;
2126       t19 = t10+20.0/9.0*t11*t12+5.0/3.0*t9*t14+10.0/21.0*t*t16+5.0/126.0*t18;
2127       t21 = r-2.0/21.0;
2128       t22 = s*t3;
2129       t26 = t21*t8;
2130       t27 = t12*t9;
2131       t28 = t*t14;
2132       t30 = t26*(20.0/9.0*t11+10.0/3.0*t27+10.0/7.0*t28+10.0/63.0*t16);
2133       drv[0] = t8*t19+t21*(12.0/17.0*t1+9.0/34.0*t22+3.0/170.0*t5)*t19+t30;
2134       drv[1] = t21*(3.0*t1+24.0/17.0*t22+9.0/68.0*t5)*t19+t30;
2135       drv[2] = t26*(4.0*t11+20.0/3.0*t27+10.0/3.0*t28+10.0/21.0*t16);
2136    /* p=12 1 4 3 */
2137    } else if( i==1 && j==4 && k==3 ) {
2138       t1 = s*s;
2139       t2 = t1*t1;
2140       t3 = t1*s;
2141       t4 = r-1.0;
2142       t6 = t4*t4;
2143       t8 = t6*t4;
2144       t10 = t6*t6;
2145       t11 = t2+20.0/17.0*t3*t4+15.0/34.0*t1*t6+s*t8/17+t10/476;
2146       t12 = t*t;
2147       t14 = s+r-1.0;
2148       t16 = t14*t14;
2149       t19 = t12*t+12.0/7.0*t14*t12+6.0/7.0*t*t16+4.0/35.0*t16*t14;
2150       t21 = r-2.0/21.0;
2151       t22 = t4*t1;
2152       t23 = s*t6;
2153       t27 = t21*t11;
2154       t28 = t*t14;
2155       t30 = t27*(12.0/7.0*t12+12.0/7.0*t28+12.0/35.0*t16);
2156       drv[0] = t11*t19+t21*(20.0/17.0*t3+15.0/17.0*t22+3.0/17.0*t23+t8/119)*t19
2157 +t30;
2158       drv[1] = t21*(4.0*t3+60.0/17.0*t22+15.0/17.0*t23+t8/17)*t19+t30;
2159       drv[2] = t27*(3.0*t12+24.0/7.0*t28+6.0/7.0*t16);
2160    /* p=12 1 5 2 */
2161    } else if( i==1 && j==5 && k==2 ) {
2162       t1 = s*s;
2163       t2 = t1*t1;
2164       t4 = r-1.0;
2165       t6 = t1*s;
2166       t7 = t4*t4;
2167       t9 = t7*t4;
2168       t11 = t7*t7;
2169       t14 = t2*s+30.0/17.0*t4*t2+75.0/68.0*t6*t7+5.0/17.0*t1*t9+15.0/476.0*s*
2170 t11+3.0/3094.0*t11*t4;
2171       t15 = t*t;
2172       t16 = s+r-1.0;
2173       t18 = t16*t16;
2174       t19 = t15+6.0/5.0*t*t16+3.0/10.0*t18;
2175       t21 = r-2.0/21.0;
2176       t22 = t6*t4;
2177       t23 = t1*t7;
2178       t24 = s*t9;
2179       t28 = t21*t14;
2180       t30 = t28*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
2181       drv[0] = t14*t19+t21*(30.0/17.0*t2+75.0/34.0*t22+15.0/17.0*t23+15.0/119.0
2182 *t24+15.0/3094.0*t11)*t19+t30;
2183       drv[1] = t21*(5.0*t2+120.0/17.0*t22+225.0/68.0*t23+10.0/17.0*t24+15.0/
2184 476.0*t11)*t19+t30;
2185       drv[2] = t28*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
2186    /* p=12 1 6 1 */
2187    } else if( i==1 && j==6 && k==1 ) {
2188       t1 = s*s;
2189       t2 = t1*t1;
2190       t4 = t2*s;
2191       t5 = r-1.0;
2192       t7 = t5*t5;
2193       t9 = t1*s;
2194       t10 = t7*t5;
2195       t12 = t7*t7;
2196       t14 = t12*t5;
2197       t17 = t2*t1+42.0/17.0*t4*t5+315.0/136.0*t2*t7+35.0/34.0*t9*t10+15.0/68.0*
2198 t1*t12+9.0/442.0*s*t14+t12*t7/1768;
2199       t18 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
2200       t20 = r-2.0/21.0;
2201       t21 = t2*t5;
2202       t22 = t9*t7;
2203       t23 = t1*t10;
2204       t24 = s*t12;
2205       t28 = t20*t17;
2206       drv[0] = t17*t18+t20*(42.0/17.0*t4+315.0/68.0*t21+105.0/34.0*t22+15.0/
2207 17.0*t23+45.0/442.0*t24+3.0/884.0*t14)*t18+2.0/3.0*t28;
2208       drv[1] = t20*(6.0*t4+210.0/17.0*t21+315.0/34.0*t22+105.0/34.0*t23+15.0/
2209 34.0*t24+9.0/442.0*t14)*t18+2.0/3.0*t28;
2210       drv[2] = t28;
2211    /* p=12 1 7 0 */
2212    } else if( i==1 && j==7 && k==0 ) {
2213       t1 = s*s;
2214       t2 = t1*s;
2215       t3 = t1*t1;
2216       t5 = t3*t1;
2217       t6 = r-1.0;
2218       t8 = t3*s;
2219       t9 = t6*t6;
2220       t11 = t9*t6;
2221       t13 = t9*t9;
2222       t15 = t13*t6;
2223       t17 = t13*t9;
2224       t20 = r-2.0/21.0;
2225       t21 = t8*t6;
2226       t22 = t3*t9;
2227       t23 = t2*t11;
2228       t24 = t1*t13;
2229       t25 = s*t15;
2230       drv[0] = t3*t2+56.0/17.0*t5*t6+147.0/34.0*t8*t9+49.0/17.0*t3*t11+35.0/
2231 34.0*t2*t13+42.0/221.0*t1*t15+7.0/442.0*s*t17+t13*t11/2431+t20*(56.0/17.0*t5+
2232 147.0/17.0*t21+147.0/17.0*t22+70.0/17.0*t23+210.0/221.0*t24+21.0/221.0*t25+7.0/
2233 2431.0*t17);
2234       drv[1] = t20*(7.0*t5+336.0/17.0*t21+735.0/34.0*t22+196.0/17.0*t23+105.0/
2235 34.0*t24+84.0/221.0*t25+7.0/442.0*t17);
2236       drv[2] = 0.0;
2237    /* p=12 2 0 6 */
2238    } else if( i==2 && j==0 && k==6 ) {
2239       t2 = t*t;
2240       t3 = t2*t2;
2241       t5 = t3*t;
2242       t6 = s+r-1.0;
2243       t8 = t6*t6;
2244       t10 = t2*t;
2245       t11 = t8*t6;
2246       t13 = t8*t8;
2247       t15 = t13*t6;
2248       t20 = r*r;
2249       t21 = t20-2.0/7.0*r+1.0/70.0;
2250       t22 = t3*t6;
2251       t23 = t10*t8;
2252       t24 = t2*t11;
2253       t25 = t*t13;
2254       t27 = t21*(42.0/13.0*t5+105.0/13.0*t22+1050.0/143.0*t23+420.0/143.0*t24+
2255 70.0/143.0*t25+7.0/286.0*t15);
2256       drv[0] = (2.0*r-2.0/7.0)*(t3*t2+42.0/13.0*t5*t6+105.0/26.0*t3*t8+350.0/
2257 143.0*t10*t11+105.0/143.0*t2*t13+14.0/143.0*t*t15+7.0/1716.0*t13*t8)+t27;
2258       drv[1] = t27;
2259       drv[2] = t21*(6.0*t5+210.0/13.0*t22+210.0/13.0*t23+1050.0/143.0*t24+210.0
2260 /143.0*t25+14.0/143.0*t15);
2261    /* p=12 2 1 5 */
2262    } else if( i==2 && j==1 && k==5 ) {
2263       t2 = s+2.0/15.0*r-2.0/15.0;
2264       t4 = t*t;
2265       t5 = t4*t4;
2266       t7 = s+r-1.0;
2267       t9 = t4*t;
2268       t10 = t7*t7;
2269       t12 = t10*t7;
2270       t14 = t10*t10;
2271       t17 = t5*t+30.0/11.0*t5*t7+30.0/11.0*t9*t10+40.0/33.0*t4*t12+5.0/22.0*t*
2272 t14+t14*t7/77;
2273       t19 = r*r;
2274       t20 = t19-2.0/7.0*r+1.0/70.0;
2275       t21 = t20*t17;
2276       t22 = t20*t2;
2277       t23 = t9*t7;
2278       t24 = t4*t10;
2279       t25 = t*t12;
2280       t27 = t22*(30.0/11.0*t5+60.0/11.0*t23+40.0/11.0*t24+10.0/11.0*t25+5.0/
2281 77.0*t14);
2282       drv[0] = (2.0*r-2.0/7.0)*t2*t17+2.0/15.0*t21+t27;
2283       drv[1] = t21+t27;
2284       drv[2] = t22*(5.0*t5+120.0/11.0*t23+90.0/11.0*t24+80.0/33.0*t25+5.0/22.0*
2285 t14);
2286    /* p=12 2 2 4 */
2287    } else if( i==2 && j==2 && k==4 ) {
2288       t2 = s*s;
2289       t3 = r-1.0;
2290       t5 = t3*t3;
2291       t6 = t2+2.0/5.0*s*t3+t5/35;
2292       t8 = t*t;
2293       t9 = t8*t8;
2294       t10 = t8*t;
2295       t11 = s+r-1.0;
2296       t13 = t11*t11;
2297       t15 = t13*t11;
2298       t17 = t13*t13;
2299       t18 = t9+20.0/9.0*t10*t11+5.0/3.0*t13*t8+10.0/21.0*t*t15+5.0/126.0*t17;
2300       t20 = r*r;
2301       t21 = t20-2.0/7.0*r+1.0/70.0;
2302       t25 = t21*t6;
2303       t26 = t8*t11;
2304       t27 = t*t13;
2305       t29 = t25*(20.0/9.0*t10+10.0/3.0*t26+10.0/7.0*t27+10.0/63.0*t15);
2306       drv[0] = (2.0*r-2.0/7.0)*t6*t18+t21*(2.0/5.0*s+2.0/35.0*r-2.0/35.0)*t18+
2307 t29;
2308       drv[1] = t21*(2.0*s+2.0/5.0*r-2.0/5.0)*t18+t29;
2309       drv[2] = t25*(4.0*t10+20.0/3.0*t26+10.0/3.0*t27+10.0/21.0*t15);
2310    /* p=12 2 3 3 */
2311    } else if( i==2 && j==3 && k==3 ) {
2312       t2 = s*s;
2313       t4 = r-1.0;
2314       t6 = t4*t4;
2315       t9 = t2*s+4.0/5.0*t4*t2+6.0/35.0*s*t6+4.0/455.0*t6*t4;
2316       t11 = t*t;
2317       t13 = s+r-1.0;
2318       t15 = t13*t13;
2319       t18 = t11*t+12.0/7.0*t13*t11+6.0/7.0*t*t15+4.0/35.0*t15*t13;
2320       t20 = r*r;
2321       t21 = t20-2.0/7.0*r+1.0/70.0;
2322       t22 = s*t4;
2323       t26 = t21*t9;
2324       t27 = t*t13;
2325       t29 = t26*(12.0/7.0*t11+12.0/7.0*t27+12.0/35.0*t15);
2326       drv[0] = (2.0*r-2.0/7.0)*t9*t18+t21*(4.0/5.0*t2+12.0/35.0*t22+12.0/455.0*
2327 t6)*t18+t29;
2328       drv[1] = t21*(3.0*t2+8.0/5.0*t22+6.0/35.0*t6)*t18+t29;
2329       drv[2] = t26*(3.0*t11+24.0/7.0*t27+6.0/7.0*t15);
2330    /* p=12 2 4 2 */
2331    } else if( i==2 && j==4 && k==2 ) {
2332       t2 = s*s;
2333       t3 = t2*t2;
2334       t4 = t2*s;
2335       t5 = r-1.0;
2336       t7 = t5*t5;
2337       t9 = t7*t5;
2338       t11 = t7*t7;
2339       t12 = t3+4.0/3.0*t4*t5+4.0/7.0*t2*t7+8.0/91.0*s*t9+t11/273;
2340       t14 = t*t;
2341       t15 = s+r-1.0;
2342       t17 = t15*t15;
2343       t18 = t14+6.0/5.0*t*t15+3.0/10.0*t17;
2344       t20 = r*r;
2345       t21 = t20-2.0/7.0*r+1.0/70.0;
2346       t22 = t2*t5;
2347       t23 = s*t7;
2348       t27 = t21*t12;
2349       t29 = t27*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
2350       drv[0] = (2.0*r-2.0/7.0)*t12*t18+t21*(4.0/3.0*t4+8.0/7.0*t22+24.0/91.0*
2351 t23+4.0/273.0*t9)*t18+t29;
2352       drv[1] = t21*(4.0*t4+4.0*t22+8.0/7.0*t23+8.0/91.0*t9)*t18+t29;
2353       drv[2] = t27*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
2354    /* p=12 2 5 1 */
2355    } else if( i==2 && j==5 && k==1 ) {
2356       t2 = s*s;
2357       t3 = t2*t2;
2358       t5 = r-1.0;
2359       t7 = t2*s;
2360       t8 = t5*t5;
2361       t10 = t8*t5;
2362       t12 = t8*t8;
2363       t15 = t3*s+2.0*t3*t5+10.0/7.0*t7*t8+40.0/91.0*t2*t10+5.0/91.0*s*t12+2.0/
2364 1001.0*t12*t5;
2365       t17 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
2366       t19 = r*r;
2367       t20 = t19-2.0/7.0*r+1.0/70.0;
2368       t21 = t7*t5;
2369       t22 = t2*t8;
2370       t23 = s*t10;
2371       t27 = t20*t15;
2372       drv[0] = (2.0*r-2.0/7.0)*t15*t17+t20*(2.0*t3+20.0/7.0*t21+120.0/91.0*t22+
2373 20.0/91.0*t23+10.0/1001.0*t12)*t17+2.0/3.0*t27;
2374       drv[1] = t20*(5.0*t3+8.0*t21+30.0/7.0*t22+80.0/91.0*t23+5.0/91.0*t12)*t17
2375 +2.0/3.0*t27;
2376       drv[2] = t27;
2377    /* p=12 2 6 0 */
2378    } else if( i==2 && j==6 && k==0 ) {
2379       t2 = s*s;
2380       t3 = t2*t2;
2381       t5 = t3*s;
2382       t6 = r-1.0;
2383       t8 = t6*t6;
2384       t10 = t2*s;
2385       t11 = t8*t6;
2386       t13 = t8*t8;
2387       t15 = t13*t6;
2388       t20 = r*r;
2389       t21 = t20-2.0/7.0*r+1.0/70.0;
2390       t22 = t3*t6;
2391       t23 = t10*t8;
2392       t24 = t2*t11;
2393       t25 = s*t13;
2394       drv[0] = (2.0*r-2.0/7.0)*(t3*t2+14.0/5.0*t5*t6+3.0*t3*t8+20.0/13.0*t10*
2395 t11+5.0/13.0*t2*t13+6.0/143.0*s*t15+t13*t8/715)+t21*(14.0/5.0*t5+6.0*t22+60.0/
2396 13.0*t23+20.0/13.0*t24+30.0/143.0*t25+6.0/715.0*t15);
2397       drv[1] = t21*(6.0*t5+14.0*t22+12.0*t23+60.0/13.0*t24+10.0/13.0*t25+6.0/
2398 143.0*t15);
2399       drv[2] = 0.0;
2400    /* p=12 3 0 5 */
2401    } else if( i==3 && j==0 && k==5 ) {
2402       t1 = r*r;
2403       t3 = t*t;
2404       t4 = t3*t3;
2405       t6 = s+r-1.0;
2406       t8 = t3*t;
2407       t9 = t6*t6;
2408       t11 = t9*t6;
2409       t13 = t9*t9;
2410       t19 = t1*r-4.0/7.0*t1+3.0/35.0*r-2.0/665.0;
2411       t20 = t8*t6;
2412       t21 = t3*t9;
2413       t22 = t*t11;
2414       t24 = t19*(30.0/11.0*t4+60.0/11.0*t20+40.0/11.0*t21+10.0/11.0*t22+5.0/
2415 77.0*t13);
2416       drv[0] = (3.0*t1-8.0/7.0*r+3.0/35.0)*(t4*t+30.0/11.0*t4*t6+30.0/11.0*t8*
2417 t9+40.0/33.0*t3*t11+5.0/22.0*t*t13+t13*t6/77)+t24;
2418       drv[1] = t24;
2419       drv[2] = t19*(5.0*t4+120.0/11.0*t20+90.0/11.0*t21+80.0/33.0*t22+5.0/22.0*
2420 t13);
2421    /* p=12 3 1 4 */
2422    } else if( i==3 && j==1 && k==4 ) {
2423       t1 = r*r;
2424       t3 = s+2.0/13.0*r-2.0/13.0;
2425       t5 = t*t;
2426       t6 = t5*t5;
2427       t7 = t5*t;
2428       t8 = s+r-1.0;
2429       t10 = t8*t8;
2430       t12 = t10*t8;
2431       t14 = t10*t10;
2432       t15 = t6+20.0/9.0*t7*t8+5.0/3.0*t5*t10+10.0/21.0*t*t12+5.0/126.0*t14;
2433       t18 = t1*r-4.0/7.0*t1+3.0/35.0*r-2.0/665.0;
2434       t19 = t18*t15;
2435       t20 = t18*t3;
2436       t21 = t5*t8;
2437       t22 = t*t10;
2438       t24 = t20*(20.0/9.0*t7+10.0/3.0*t21+10.0/7.0*t22+10.0/63.0*t12);
2439       drv[0] = t3*(3.0*t1-8.0/7.0*r+3.0/35.0)*t15+2.0/13.0*t19+t24;
2440       drv[1] = t19+t24;
2441       drv[2] = t20*(4.0*t7+20.0/3.0*t21+10.0/3.0*t22+10.0/21.0*t12);
2442    /* p=12 3 2 3 */
2443    } else if( i==3 && j==2 && k==3 ) {
2444       t1 = r*r;
2445       t3 = s*s;
2446       t4 = r-1.0;
2447       t6 = t4*t4;
2448       t7 = t3+6.0/13.0*s*t4+t6/26;
2449       t9 = t*t;
2450       t11 = s+r-1.0;
2451       t13 = t11*t11;
2452       t16 = t9*t+12.0/7.0*t9*t11+6.0/7.0*t*t13+4.0/35.0*t13*t11;
2453       t19 = t1*r-4.0/7.0*t1+3.0/35.0*r-2.0/665.0;
2454       t23 = t19*t7;
2455       t24 = t*t11;
2456       t26 = t23*(12.0/7.0*t9+12.0/7.0*t24+12.0/35.0*t13);
2457       drv[0] = (3.0*t1-8.0/7.0*r+3.0/35.0)*t7*t16+t19*(6.0/13.0*s+r/13-1.0/13.0
2458 )*t16+t26;
2459       drv[1] = t19*(2.0*s+6.0/13.0*r-6.0/13.0)*t16+t26;
2460       drv[2] = t23*(3.0*t9+24.0/7.0*t24+6.0/7.0*t13);
2461    /* p=12 3 3 2 */
2462    } else if( i==3 && j==3 && k==2 ) {
2463       t1 = r*r;
2464       t3 = s*s;
2465       t5 = r-1.0;
2466       t7 = t5*t5;
2467       t10 = t3*s+12.0/13.0*t3*t5+3.0/13.0*s*t7+2.0/143.0*t7*t5;
2468       t12 = t*t;
2469       t13 = s+r-1.0;
2470       t15 = t13*t13;
2471       t16 = t12+6.0/5.0*t*t13+3.0/10.0*t15;
2472       t19 = t1*r-4.0/7.0*t1+3.0/35.0*r-2.0/665.0;
2473       t20 = s*t5;
2474       t24 = t19*t10;
2475       t26 = t24*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
2476       drv[0] = (3.0*t1-8.0/7.0*r+3.0/35.0)*t10*t16+t19*(12.0/13.0*t3+6.0/13.0*
2477 t20+6.0/143.0*t7)*t16+t26;
2478       drv[1] = t19*(3.0*t3+24.0/13.0*t20+3.0/13.0*t7)*t16+t26;
2479       drv[2] = t24*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
2480    /* p=12 3 4 1 */
2481    } else if( i==3 && j==4 && k==1 ) {
2482       t1 = r*r;
2483       t3 = s*s;
2484       t4 = t3*t3;
2485       t5 = t3*s;
2486       t6 = r-1.0;
2487       t8 = t6*t6;
2488       t10 = t8*t6;
2489       t12 = t8*t8;
2490       t13 = t4+20.0/13.0*t5*t6+10.0/13.0*t3*t8+20.0/143.0*s*t10+t12/143;
2491       t15 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
2492       t18 = t1*r-4.0/7.0*t1+3.0/35.0*r-2.0/665.0;
2493       t19 = t3*t6;
2494       t20 = s*t8;
2495       t24 = t18*t13;
2496       drv[0] = (3.0*t1-8.0/7.0*r+3.0/35.0)*t13*t15+t18*(20.0/13.0*t5+20.0/13.0*
2497 t19+60.0/143.0*t20+4.0/143.0*t10)*t15+2.0/3.0*t24;
2498       drv[1] = t18*(4.0*t5+60.0/13.0*t19+20.0/13.0*t20+20.0/143.0*t10)*t15+2.0/
2499 3.0*t24;
2500       drv[2] = t24;
2501    /* p=12 3 5 0 */
2502    } else if( i==3 && j==5 && k==0 ) {
2503       t1 = r*r;
2504       t3 = s*s;
2505       t4 = t3*t3;
2506       t6 = r-1.0;
2507       t8 = t3*s;
2508       t9 = t6*t6;
2509       t11 = t9*t6;
2510       t13 = t9*t9;
2511       t19 = t1*r-4.0/7.0*t1+3.0/35.0*r-2.0/665.0;
2512       t20 = t8*t6;
2513       t21 = t3*t9;
2514       t22 = s*t11;
2515       drv[0] = (3.0*t1-8.0/7.0*r+3.0/35.0)*(t4*s+30.0/13.0*t4*t6+25.0/13.0*t8*
2516 t9+100.0/143.0*t3*t11+15.0/143.0*s*t13+2.0/429.0*t13*t6)+t19*(30.0/13.0*t4+50.0
2517 /13.0*t20+300.0/143.0*t21+60.0/143.0*t22+10.0/429.0*t13);
2518       drv[1] = t19*(5.0*t4+120.0/13.0*t20+75.0/13.0*t21+200.0/143.0*t22+15.0/
2519 143.0*t13);
2520       drv[2] = 0.0;
2521    /* p=12 4 0 4 */
2522    } else if( i==4 && j==0 && k==4 ) {
2523       t1 = r*r;
2524       t2 = t1*r;
2525       t4 = t*t;
2526       t5 = t4*t4;
2527       t6 = t4*t;
2528       t7 = s+r-1.0;
2529       t9 = t7*t7;
2530       t11 = t9*t7;
2531       t13 = t9*t9;
2532       t16 = t1*t1;
2533       t17 = t16-20.0/21.0*t2+2.0/7.0*t1-4.0/133.0*r+1.0/1197.0;
2534       t18 = t4*t7;
2535       t19 = t*t9;
2536       t21 = t17*(20.0/9.0*t6+10.0/3.0*t18+10.0/7.0*t19+10.0/63.0*t11);
2537       drv[0] = (4.0*t2-20.0/7.0*t1+4.0/7.0*r-4.0/133.0)*(t5+20.0/9.0*t6*t7+5.0/
2538 3.0*t4*t9+10.0/21.0*t*t11+5.0/126.0*t13)+t21;
2539       drv[1] = t21;
2540       drv[2] = t17*(4.0*t6+20.0/3.0*t18+10.0/3.0*t19+10.0/21.0*t11);
2541    /* p=12 4 1 3 */
2542    } else if( i==4 && j==1 && k==3 ) {
2543       t1 = r*r;
2544       t2 = t1*r;
2545       t4 = s+2.0/11.0*r-2.0/11.0;
2546       t6 = t*t;
2547       t8 = s+r-1.0;
2548       t10 = t8*t8;
2549       t13 = t6*t+12.0/7.0*t8*t6+6.0/7.0*t*t10+4.0/35.0*t10*t8;
2550       t15 = t1*t1;
2551       t16 = t15-20.0/21.0*t2+2.0/7.0*t1-4.0/133.0*r+1.0/1197.0;
2552       t17 = t16*t13;
2553       t18 = t16*t4;
2554       t19 = t*t8;
2555       t21 = t18*(12.0/7.0*t6+12.0/7.0*t19+12.0/35.0*t10);
2556       drv[0] = (4.0*t2-20.0/7.0*t1+4.0/7.0*r-4.0/133.0)*t4*t13+2.0/11.0*t17+t21
2557 ;
2558       drv[1] = t17+t21;
2559       drv[2] = t18*(3.0*t6+24.0/7.0*t19+6.0/7.0*t10);
2560    /* p=12 4 2 2 */
2561    } else if( i==4 && j==2 && k==2 ) {
2562       t1 = r*r;
2563       t2 = t1*r;
2564       t4 = s*s;
2565       t5 = r-1.0;
2566       t7 = t5*t5;
2567       t8 = t4+6.0/11.0*s*t5+3.0/55.0*t7;
2568       t10 = t*t;
2569       t11 = s+r-1.0;
2570       t13 = t11*t11;
2571       t14 = t10+6.0/5.0*t*t11+3.0/10.0*t13;
2572       t16 = t1*t1;
2573       t17 = t16-20.0/21.0*t2+2.0/7.0*t1-4.0/133.0*r+1.0/1197.0;
2574       t21 = t17*t8;
2575       t23 = t21*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
2576       drv[0] = (4.0*t2-20.0/7.0*t1+4.0/7.0*r-4.0/133.0)*t8*t14+t17*(6.0/11.0*s+
2577 6.0/55.0*r-6.0/55.0)*t14+t23;
2578       drv[1] = t17*(2.0*s+6.0/11.0*r-6.0/11.0)*t14+t23;
2579       drv[2] = t21*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
2580    /* p=12 4 3 1 */
2581    } else if( i==4 && j==3 && k==1 ) {
2582       t1 = r*r;
2583       t2 = t1*r;
2584       t4 = s*s;
2585       t6 = r-1.0;
2586       t8 = t6*t6;
2587       t11 = t4*s+12.0/11.0*t4*t6+18.0/55.0*s*t8+4.0/165.0*t8*t6;
2588       t13 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
2589       t15 = t1*t1;
2590       t16 = t15-20.0/21.0*t2+2.0/7.0*t1-4.0/133.0*r+1.0/1197.0;
2591       t17 = s*t6;
2592       t21 = t16*t11;
2593       drv[0] = (4.0*t2-20.0/7.0*t1+4.0/7.0*r-4.0/133.0)*t11*t13+t16*(12.0/11.0*
2594 t4+36.0/55.0*t17+4.0/55.0*t8)*t13+2.0/3.0*t21;
2595       drv[1] = t16*(3.0*t4+24.0/11.0*t17+18.0/55.0*t8)*t13+2.0/3.0*t21;
2596       drv[2] = t21;
2597    /* p=12 4 4 0 */
2598    } else if( i==4 && j==4 && k==0 ) {
2599       t1 = r*r;
2600       t2 = t1*r;
2601       t4 = s*s;
2602       t5 = t4*t4;
2603       t6 = t4*s;
2604       t7 = r-1.0;
2605       t9 = t7*t7;
2606       t11 = t9*t7;
2607       t13 = t9*t9;
2608       t16 = t1*t1;
2609       t17 = t16-20.0/21.0*t2+2.0/7.0*t1-4.0/133.0*r+1.0/1197.0;
2610       t18 = t4*t7;
2611       t19 = s*t9;
2612       drv[0] = (4.0*t2-20.0/7.0*t1+4.0/7.0*r-4.0/133.0)*(t5+20.0/11.0*t6*t7+
2613 12.0/11.0*t4*t9+8.0/33.0*s*t11+t13/66)+t17*(20.0/11.0*t6+24.0/11.0*t18+8.0/11.0
2614 *t19+2.0/33.0*t11);
2615       drv[1] = t17*(4.0*t6+60.0/11.0*t18+24.0/11.0*t19+8.0/33.0*t11);
2616       drv[2] = 0.0;
2617    /* p=12 5 0 3 */
2618    } else if( i==5 && j==0 && k==3 ) {
2619       t1 = r*r;
2620       t2 = t1*t1;
2621       t3 = t1*r;
2622       t5 = t*t;
2623       t7 = s+r-1.0;
2624       t9 = t7*t7;
2625       t15 = t2*r-10.0/7.0*t2+5.0/7.0*t3-20.0/133.0*t1+5.0/399.0*r-2.0/6783.0;
2626       t16 = t*t7;
2627       t18 = t15*(12.0/7.0*t5+12.0/7.0*t16+12.0/35.0*t9);
2628       drv[0] = (5.0*t2-40.0/7.0*t3+15.0/7.0*t1-40.0/133.0*r+5.0/399.0)*(t5*t+
2629 12.0/7.0*t5*t7+6.0/7.0*t*t9+4.0/35.0*t9*t7)+t18;
2630       drv[1] = t18;
2631       drv[2] = t15*(3.0*t5+24.0/7.0*t16+6.0/7.0*t9);
2632    /* p=12 5 1 2 */
2633    } else if( i==5 && j==1 && k==2 ) {
2634       t1 = r*r;
2635       t2 = t1*t1;
2636       t3 = t1*r;
2637       t5 = s+2.0/9.0*r-2.0/9.0;
2638       t7 = t*t;
2639       t8 = s+r-1.0;
2640       t10 = t8*t8;
2641       t11 = t7+6.0/5.0*t*t8+3.0/10.0*t10;
2642       t14 = t2*r-10.0/7.0*t2+5.0/7.0*t3-20.0/133.0*t1+5.0/399.0*r-2.0/6783.0;
2643       t15 = t14*t11;
2644       t16 = t14*t5;
2645       t18 = t16*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
2646       drv[0] = (5.0*t2-40.0/7.0*t3+15.0/7.0*t1-40.0/133.0*r+5.0/399.0)*t5*t11+
2647 2.0/9.0*t15+t18;
2648       drv[1] = t15+t18;
2649       drv[2] = t16*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
2650    /* p=12 5 2 1 */
2651    } else if( i==5 && j==2 && k==1 ) {
2652       t1 = r*r;
2653       t2 = t1*t1;
2654       t3 = t1*r;
2655       t5 = s*s;
2656       t6 = r-1.0;
2657       t8 = t6*t6;
2658       t9 = t5+2.0/3.0*s*t6+t8/12;
2659       t11 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
2660       t14 = t2*r-10.0/7.0*t2+5.0/7.0*t3-20.0/133.0*t1+5.0/399.0*r-2.0/6783.0;
2661       t18 = t14*t9;
2662       drv[0] = (5.0*t2-40.0/7.0*t3+15.0/7.0*t1-40.0/133.0*r+5.0/399.0)*t9*t11+
2663 t14*(2.0/3.0*s+r/6-1.0/6.0)*t11+2.0/3.0*t18;
2664       drv[1] = t14*(2.0*s+2.0/3.0*r-2.0/3.0)*t11+2.0/3.0*t18;
2665       drv[2] = t18;
2666    /* p=12 5 3 0 */
2667    } else if( i==5 && j==3 && k==0 ) {
2668       t1 = r*r;
2669       t2 = t1*t1;
2670       t3 = t1*r;
2671       t5 = s*s;
2672       t7 = r-1.0;
2673       t9 = t7*t7;
2674       t15 = t2*r-10.0/7.0*t2+5.0/7.0*t3-20.0/133.0*t1+5.0/399.0*r-2.0/6783.0;
2675       t16 = s*t7;
2676       drv[0] = (5.0*t2-40.0/7.0*t3+15.0/7.0*t1-40.0/133.0*r+5.0/399.0)*(t5*s+
2677 4.0/3.0*t5*t7+s*t9/2+t9*t7/21)+t15*(4.0/3.0*t5+t16+t9/7);
2678       drv[1] = t15*(3.0*t5+8.0/3.0*t16+t9/2);
2679       drv[2] = 0.0;
2680    /* p=12 6 0 2 */
2681    } else if( i==6 && j==0 && k==2 ) {
2682       t1 = r*r;
2683       t2 = t1*t1;
2684       t3 = t2*r;
2685       t4 = t1*r;
2686       t6 = t*t;
2687       t7 = s+r-1.0;
2688       t9 = t7*t7;
2689       t13 = t2*t1-2.0*t3+3.0/2.0*t2-10.0/19.0*t4+5.0/57.0*t1-2.0/323.0*r+1.0/
2690 7752.0;
2691       t15 = t13*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
2692       drv[0] = (6.0*t3-10.0*t2+6.0*t4-30.0/19.0*t1+10.0/57.0*r-2.0/323.0)*(t6+
2693 6.0/5.0*t*t7+3.0/10.0*t9)+t15;
2694       drv[1] = t15;
2695       drv[2] = t13*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
2696    /* p=12 6 1 1 */
2697    } else if( i==6 && j==1 && k==1 ) {
2698       t1 = r*r;
2699       t2 = t1*t1;
2700       t3 = t2*r;
2701       t4 = t1*r;
2702       t6 = s+2.0/7.0*r-2.0/7.0;
2703       t8 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
2704       t11 = t2*t1-2.0*t3+3.0/2.0*t2-10.0/19.0*t4+5.0/57.0*t1-2.0/323.0*r+1.0/
2705 7752.0;
2706       t12 = t11*t8;
2707       t13 = t11*t6;
2708       drv[0] = (6.0*t3-10.0*t2+6.0*t4-30.0/19.0*t1+10.0/57.0*r-2.0/323.0)*t6*t8
2709 +2.0/7.0*t12+2.0/3.0*t13;
2710       drv[1] = t12+2.0/3.0*t13;
2711       drv[2] = t13;
2712    /* p=12 6 2 0 */
2713    } else if( i==6 && j==2 && k==0 ) {
2714       t1 = r*r;
2715       t2 = t1*t1;
2716       t3 = t2*r;
2717       t4 = t1*r;
2718       t6 = s*s;
2719       t7 = r-1.0;
2720       t9 = t7*t7;
2721       t13 = t2*t1-2.0*t3+3.0/2.0*t2-10.0/19.0*t4+5.0/57.0*t1-2.0/323.0*r+1.0/
2722 7752.0;
2723       drv[0] = (6.0*t3-10.0*t2+6.0*t4-30.0/19.0*t1+10.0/57.0*r-2.0/323.0)*(t6+
2724 6.0/7.0*s*t7+t9/7)+t13*(6.0/7.0*s+2.0/7.0*r-2.0/7.0);
2725       drv[1] = t13*(2.0*s+6.0/7.0*r-6.0/7.0);
2726       drv[2] = 0.0;
2727    /* p=12 7 0 1 */
2728    } else if( i==7 && j==0 && k==1 ) {
2729       t1 = r*r;
2730       t2 = t1*t1;
2731       t3 = t2*t1;
2732       t4 = t2*r;
2733       t5 = t1*r;
2734       t9 = t2*t5;
2735       drv[0] = (7.0*t3-16.0*t4+14.0*t2-112.0/19.0*t5+70.0/57.0*t1-112.0/969.0*r
2736 +7.0/1938.0)*(t+2.0/3.0*s+2.0/3.0*r-2.0/3.0)+2.0/3.0*t9-16.0/9.0*t3+28.0/15.0*
2737 t4-56.0/57.0*t2+140.0/513.0*t5-112.0/2907.0*t1+7.0/2907.0*r-2.0/43605.0;
2738       drv[1] = 2.0/3.0*t9-16.0/9.0*t3+28.0/15.0*t4-56.0/57.0*t2+140.0/513.0*t5
2739 -112.0/2907.0*t1+7.0/2907.0*r-2.0/43605.0;
2740       drv[2] = t9-8.0/3.0*t3+14.0/5.0*t4-28.0/19.0*t2+70.0/171.0*t5-56.0/969.0*
2741 t1+7.0/1938.0*r-1.0/14535.0;
2742    /* p=12 7 1 0 */
2743    } else if( i==7 && j==1 && k==0 ) {
2744       t1 = r*r;
2745       t2 = t1*t1;
2746       t3 = t2*t1;
2747       t4 = t2*r;
2748       t5 = t1*r;
2749       t9 = t2*t5;
2750       drv[0] = (7.0*t3-16.0*t4+14.0*t2-112.0/19.0*t5+70.0/57.0*t1-112.0/969.0*r
2751 +7.0/1938.0)*(s+2.0/5.0*r-2.0/5.0)+2.0/5.0*t9-16.0/15.0*t3+28.0/25.0*t4-56.0/
2752 95.0*t2+28.0/171.0*t5-112.0/4845.0*t1+7.0/4845.0*r-2.0/72675.0;
2753       drv[1] = t9-8.0/3.0*t3+14.0/5.0*t4-28.0/19.0*t2+70.0/171.0*t5-56.0/969.0*
2754 t1+7.0/1938.0*r-1.0/14535.0;
2755       drv[2] = 0.0;
2756    /* p=12 8 0 0 */
2757    } else if( i==8 && j==0 && k==0 ) {
2758       t1 = r*r;
2759       t2 = t1*r;
2760       t3 = t1*t1;
2761       drv[0] = 8.0*t3*t2-24.0*t3*t1+144.0/5.0*t3*r-336.0/19.0*t3+112.0/19.0*t2
2762 -336.0/323.0*t1+28.0/323.0*r-4.0/1615.0;
2763       drv[1] = 0.0;
2764       drv[2] = 0.0;
2765    /* p=13 0 0 9 */
2766    } else if( i==0 && j==0 && k==9 ) {
2767       t1 = t*t;
2768       t2 = t1*t1;
2769       t3 = t2*t2;
2770       t4 = t1*t;
2771       t6 = s+r-1.0;
2772       t7 = t4*t2*t6;
2773       t9 = t6*t6;
2774       t10 = t2*t1*t9;
2775       t12 = t9*t6;
2776       t13 = t2*t*t12;
2777       t14 = t9*t9;
2778       t15 = t2*t14;
2779       t17 = t4*t14*t6;
2780       t19 = t1*t14*t9;
2781       t21 = t*t14*t12;
2782       t22 = t14*t14;
2783       t23 = 90.0/19.0*t3+360.0/19.0*t7+10080.0/323.0*t10+8820.0/323.0*t13+
2784 4410.0/323.0*t15+1260.0/323.0*t17+2520.0/4199.0*t19+180.0/4199.0*t21+45.0/
2785 46189.0*t22;
2786       drv[0] = t23;
2787       drv[1] = t23;
2788       drv[2] = 9.0*t3+720.0/19.0*t7+1260.0/19.0*t10+20160.0/323.0*t13+11025.0/
2789 323.0*t15+3528.0/323.0*t17+630.0/323.0*t19+720.0/4199.0*t21+45.0/8398.0*t22;
2790    /* p=13 0 1 8 */
2791    } else if( i==0 && j==1 && k==8 ) {
2792       t1 = t*t;
2793       t2 = t1*t1;
2794       t3 = t2*t2;
2795       t4 = t1*t;
2796       t5 = t4*t2;
2797       t6 = s+r-1.0;
2798       t7 = t5*t6;
2799       t8 = t2*t1;
2800       t9 = t6*t6;
2801       t10 = t8*t9;
2802       t11 = t2*t;
2803       t12 = t9*t6;
2804       t13 = t11*t12;
2805       t14 = t9*t9;
2806       t15 = t2*t14;
2807       t16 = t14*t6;
2808       t17 = t4*t16;
2809       t18 = t14*t9;
2810       t19 = t1*t18;
2811       t20 = t14*t12;
2812       t21 = t*t20;
2813       t22 = t14*t14;
2814       t23 = s+2.0/21.0*r-2.0/21.0;
2815       t24 = t8*t6;
2816       t25 = t11*t9;
2817       t26 = t2*t12;
2818       t27 = t4*t14;
2819       t28 = t1*t16;
2820       t29 = t*t18;
2821       t31 = t23*(72.0/17.0*t5+252.0/17.0*t24+1764.0/85.0*t25+252.0/17.0*t26+
2822 1260.0/221.0*t27+252.0/221.0*t28+252.0/2431.0*t29+36.0/12155.0*t20);
2823       drv[0] = 2.0/21.0*t3+48.0/119.0*t7+12.0/17.0*t10+56.0/85.0*t13+6.0/17.0*
2824 t15+24.0/221.0*t17+4.0/221.0*t19+24.0/17017.0*t21+3.0/85085.0*t22+t31;
2825       drv[1] = t3+72.0/17.0*t7+126.0/17.0*t10+588.0/85.0*t13+63.0/17.0*t15+
2826 252.0/221.0*t17+42.0/221.0*t19+36.0/2431.0*t21+9.0/24310.0*t22+t31;
2827       drv[2] = t23*(8.0*t5+504.0/17.0*t24+756.0/17.0*t25+588.0/17.0*t26+252.0/
2828 17.0*t27+756.0/221.0*t28+84.0/221.0*t29+36.0/2431.0*t20);
2829    /* p=13 0 2 7 */
2830    } else if( i==0 && j==2 && k==7 ) {
2831       t2 = t*t;
2832       t3 = t2*t;
2833       t4 = t2*t2;
2834       t6 = t4*t2;
2835       t7 = s+r-1.0;
2836       t9 = t4*t;
2837       t10 = t7*t7;
2838       t12 = t10*t7;
2839       t14 = t10*t10;
2840       t16 = t14*t7;
2841       t18 = t14*t10;
2842       t21 = t4*t3+56.0/15.0*t6*t7+28.0/5.0*t9*t10+56.0/13.0*t4*t12+70.0/39.0*t3
2843 *t14+56.0/143.0*t2*t16+28.0/715.0*t*t18+8.0/6435.0*t14*t12;
2844       t23 = s*s;
2845       t24 = r-1.0;
2846       t26 = t24*t24;
2847       t27 = t23+2.0/7.0*s*t24+t26/70;
2848       t28 = t9*t7;
2849       t29 = t4*t10;
2850       t30 = t3*t12;
2851       t31 = t2*t14;
2852       t32 = t*t16;
2853       t34 = t27*(56.0/15.0*t6+56.0/5.0*t28+168.0/13.0*t29+280.0/39.0*t30+280.0/
2854 143.0*t31+168.0/715.0*t32+56.0/6435.0*t18);
2855       drv[0] = (2.0/7.0*s+r/35-1.0/35.0)*t21+t34;
2856       drv[1] = (2.0*s+2.0/7.0*r-2.0/7.0)*t21+t34;
2857       drv[2] = t27*(7.0*t6+112.0/5.0*t28+28.0*t29+224.0/13.0*t30+70.0/13.0*t31+
2858 112.0/143.0*t32+28.0/715.0*t18);
2859    /* p=13 0 3 6 */
2860    } else if( i==0 && j==3 && k==6 ) {
2861       t1 = s*s;
2862       t2 = r-1.0;
2863       t3 = s*t2;
2864       t4 = t2*t2;
2865       t6 = t*t;
2866       t7 = t6*t6;
2867       t9 = t7*t;
2868       t10 = s+r-1.0;
2869       t12 = t10*t10;
2870       t14 = t6*t;
2871       t15 = t12*t10;
2872       t17 = t12*t12;
2873       t19 = t17*t10;
2874       t22 = t7*t6+42.0/13.0*t9*t10+105.0/26.0*t7*t12+350.0/143.0*t14*t15+105.0/
2875 143.0*t6*t17+14.0/143.0*t*t19+7.0/1716.0*t17*t12;
2876       t28 = t1*s+4.0/7.0*t1*t2+3.0/35.0*s*t4+2.0/665.0*t4*t2;
2877       t29 = t7*t10;
2878       t30 = t14*t12;
2879       t31 = t6*t15;
2880       t32 = t*t17;
2881       t34 = t28*(42.0/13.0*t9+105.0/13.0*t29+1050.0/143.0*t30+420.0/143.0*t31+
2882 70.0/143.0*t32+7.0/286.0*t19);
2883       drv[0] = (4.0/7.0*t1+6.0/35.0*t3+6.0/665.0*t4)*t22+t34;
2884       drv[1] = (3.0*t1+8.0/7.0*t3+3.0/35.0*t4)*t22+t34;
2885       drv[2] = t28*(6.0*t9+210.0/13.0*t29+210.0/13.0*t30+1050.0/143.0*t31+210.0
2886 /143.0*t32+14.0/143.0*t19);
2887    /* p=13 0 4 5 */
2888    } else if( i==0 && j==4 && k==5 ) {
2889       t1 = s*s;
2890       t2 = t1*s;
2891       t3 = r-1.0;
2892       t4 = t3*t1;
2893       t5 = t3*t3;
2894       t6 = s*t5;
2895       t7 = t5*t3;
2896       t9 = t*t;
2897       t10 = t9*t9;
2898       t12 = s+r-1.0;
2899       t14 = t9*t;
2900       t15 = t12*t12;
2901       t17 = t15*t12;
2902       t19 = t15*t15;
2903       t22 = t10*t+30.0/11.0*t12*t10+30.0/11.0*t14*t15+40.0/33.0*t9*t17+5.0/22.0
2904 *t*t19+t19*t12/77;
2905       t24 = t1*t1;
2906       t28 = t5*t5;
2907       t29 = t24+20.0/21.0*t3*t2+2.0/7.0*t1*t5+4.0/133.0*s*t7+t28/1197;
2908       t30 = t14*t12;
2909       t31 = t9*t15;
2910       t32 = t*t17;
2911       t34 = t29*(30.0/11.0*t10+60.0/11.0*t30+40.0/11.0*t31+10.0/11.0*t32+5.0/
2912 77.0*t19);
2913       drv[0] = (20.0/21.0*t2+4.0/7.0*t4+12.0/133.0*t6+4.0/1197.0*t7)*t22+t34;
2914       drv[1] = (4.0*t2+20.0/7.0*t4+4.0/7.0*t6+4.0/133.0*t7)*t22+t34;
2915       drv[2] = t29*(5.0*t10+120.0/11.0*t30+90.0/11.0*t31+80.0/33.0*t32+5.0/22.0
2916 *t19);
2917    /* p=13 0 5 4 */
2918    } else if( i==0 && j==5 && k==4 ) {
2919       t1 = s*s;
2920       t2 = t1*t1;
2921       t3 = t1*s;
2922       t4 = r-1.0;
2923       t5 = t3*t4;
2924       t6 = t4*t4;
2925       t7 = t1*t6;
2926       t8 = t6*t4;
2927       t9 = s*t8;
2928       t10 = t6*t6;
2929       t12 = t*t;
2930       t13 = t12*t12;
2931       t14 = t12*t;
2932       t15 = s+r-1.0;
2933       t17 = t15*t15;
2934       t19 = t17*t15;
2935       t21 = t17*t17;
2936       t22 = t13+20.0/9.0*t14*t15+5.0/3.0*t17*t12+10.0/21.0*t*t19+5.0/126.0*t21;
2937       t30 = s*t2+10.0/7.0*t4*t2+5.0/7.0*t3*t6+20.0/133.0*t1*t8+5.0/399.0*s*t10+
2938 2.0/6783.0*t10*t4;
2939       t31 = t15*t12;
2940       t32 = t*t17;
2941       t34 = t30*(20.0/9.0*t14+10.0/3.0*t31+10.0/7.0*t32+10.0/63.0*t19);
2942       drv[0] = (10.0/7.0*t2+10.0/7.0*t5+60.0/133.0*t7+20.0/399.0*t9+10.0/6783.0
2943 *t10)*t22+t34;
2944       drv[1] = (5.0*t2+40.0/7.0*t5+15.0/7.0*t7+40.0/133.0*t9+5.0/399.0*t10)*t22
2945 +t34;
2946       drv[2] = t30*(4.0*t14+20.0/3.0*t31+10.0/3.0*t32+10.0/21.0*t19);
2947    /* p=13 0 6 3 */
2948    } else if( i==0 && j==6 && k==3 ) {
2949       t1 = s*s;
2950       t2 = t1*t1;
2951       t3 = t2*s;
2952       t4 = r-1.0;
2953       t5 = t4*t2;
2954       t6 = t1*s;
2955       t7 = t4*t4;
2956       t8 = t6*t7;
2957       t9 = t7*t4;
2958       t10 = t1*t9;
2959       t11 = t7*t7;
2960       t12 = s*t11;
2961       t13 = t11*t4;
2962       t15 = t*t;
2963       t17 = s+r-1.0;
2964       t19 = t17*t17;
2965       t22 = t15*t+12.0/7.0*t15*t17+6.0/7.0*t*t19+4.0/35.0*t19*t17;
2966       t31 = t2*t1+2.0*t3*t4+3.0/2.0*t2*t7+10.0/19.0*t6*t9+5.0/57.0*t1*t11+2.0/
2967 323.0*s*t13+t11*t7/7752;
2968       t32 = t*t17;
2969       t34 = t31*(12.0/7.0*t15+12.0/7.0*t32+12.0/35.0*t19);
2970       drv[0] = (2.0*t3+3.0*t5+30.0/19.0*t8+20.0/57.0*t10+10.0/323.0*t12+t13
2971 /1292)*t22+t34;
2972       drv[1] = (6.0*t3+10.0*t5+6.0*t8+30.0/19.0*t10+10.0/57.0*t12+2.0/323.0*t13
2973 )*t22+t34;
2974       drv[2] = t31*(3.0*t15+24.0/7.0*t32+6.0/7.0*t19);
2975    /* p=13 0 7 2 */
2976    } else if( i==0 && j==7 && k==2 ) {
2977       t1 = s*s;
2978       t2 = t1*t1;
2979       t3 = t2*t1;
2980       t4 = t2*s;
2981       t5 = r-1.0;
2982       t6 = t4*t5;
2983       t7 = t5*t5;
2984       t8 = t2*t7;
2985       t9 = t1*s;
2986       t10 = t7*t5;
2987       t11 = t9*t10;
2988       t12 = t7*t7;
2989       t13 = t1*t12;
2990       t14 = t12*t5;
2991       t15 = s*t14;
2992       t16 = t12*t7;
2993       t18 = t*t;
2994       t19 = s+r-1.0;
2995       t21 = t19*t19;
2996       t22 = t18+6.0/5.0*t*t19+3.0/10.0*t21;
2997       t32 = t2*t9+8.0/3.0*t3*t5+14.0/5.0*t7*t4+28.0/19.0*t2*t10+70.0/171.0*t9*
2998 t12+56.0/969.0*t1*t14+7.0/1938.0*s*t16+t12*t10/14535;
2999       t34 = t32*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
3000       drv[0] = (8.0/3.0*t3+28.0/5.0*t6+84.0/19.0*t8+280.0/171.0*t11+280.0/969.0
3001 *t13+7.0/323.0*t15+7.0/14535.0*t16)*t22+t34;
3002       drv[1] = (7.0*t3+16.0*t6+14.0*t8+112.0/19.0*t11+70.0/57.0*t13+112.0/969.0
3003 *t15+7.0/1938.0*t16)*t22+t34;
3004       drv[2] = t32*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
3005    /* p=13 0 8 1 */
3006    } else if( i==0 && j==8 && k==1 ) {
3007       t1 = s*s;
3008       t2 = t1*s;
3009       t3 = t1*t1;
3010       t4 = t3*t2;
3011       t5 = t3*t1;
3012       t6 = r-1.0;
3013       t7 = t5*t6;
3014       t8 = t3*s;
3015       t9 = t6*t6;
3016       t10 = t8*t9;
3017       t11 = t6*t9;
3018       t12 = t3*t11;
3019       t13 = t9*t9;
3020       t14 = t2*t13;
3021       t15 = t13*t6;
3022       t16 = t1*t15;
3023       t17 = t13*t9;
3024       t18 = s*t17;
3025       t19 = t13*t11;
3026       t21 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
3027       t23 = t3*t3;
3028       t24 = t4*t6;
3029       t25 = t5*t9;
3030       t26 = t8*t11;
3031       t27 = t3*t13;
3032       t28 = t2*t15;
3033       t29 = t1*t17;
3034       t30 = s*t19;
3035       t31 = t13*t13;
3036       drv[0] = (24.0/7.0*t4+48.0/5.0*t7+1008.0/95.0*t10+112.0/19.0*t12+560.0/
3037 323.0*t14+84.0/323.0*t16+28.0/1615.0*t18+4.0/11305.0*t19)*t21+2.0/3.0*t23+16.0/
3038 7.0*t24+16.0/5.0*t25+224.0/95.0*t26+56.0/57.0*t27+224.0/969.0*t28+28.0/969.0*
3039 t29+8.0/4845.0*t30+t31/33915;
3040       drv[1] = (8.0*t4+24.0*t7+144.0/5.0*t10+336.0/19.0*t12+112.0/19.0*t14+
3041 336.0/323.0*t16+28.0/323.0*t18+4.0/1615.0*t19)*t21+2.0/3.0*t23+16.0/7.0*t24+
3042 16.0/5.0*t25+224.0/95.0*t26+56.0/57.0*t27+224.0/969.0*t28+28.0/969.0*t29+8.0/
3043 4845.0*t30+t31/33915;
3044       drv[2] = t23+24.0/7.0*t24+24.0/5.0*t25+336.0/95.0*t26+28.0/19.0*t27+112.0
3045 /323.0*t28+14.0/323.0*t29+4.0/1615.0*t30+t31/22610;
3046    /* p=13 0 9 0 */
3047    } else if( i==0 && j==9 && k==0 ) {
3048       t1 = s*s;
3049       t2 = t1*t1;
3050       t3 = t2*t2;
3051       t4 = t1*s;
3052       t6 = r-1.0;
3053       t7 = t4*t2*t6;
3054       t9 = t6*t6;
3055       t10 = t2*t1*t9;
3056       t12 = t6*t9;
3057       t13 = t2*s*t12;
3058       t14 = t9*t9;
3059       t15 = t2*t14;
3060       t17 = t4*t14*t6;
3061       t19 = t1*t14*t9;
3062       t21 = s*t14*t12;
3063       t22 = t14*t14;
3064       drv[0] = 30.0/7.0*t3+108.0/7.0*t7+432.0/19.0*t10+336.0/19.0*t13+2520.0/
3065 323.0*t15+630.0/323.0*t17+84.0/323.0*t19+36.0/2261.0*t21+9.0/29393.0*t22;
3066       drv[1] = 9.0*t3+240.0/7.0*t7+54.0*t10+864.0/19.0*t13+420.0/19.0*t15+
3067 2016.0/323.0*t17+315.0/323.0*t19+24.0/323.0*t21+9.0/4522.0*t22;
3068       drv[2] = 0.0;
3069    /* p=13 1 0 8 */
3070    } else if( i==1 && j==0 && k==8 ) {
3071       t1 = t*t;
3072       t2 = t1*t1;
3073       t3 = t2*t2;
3074       t4 = t1*t;
3075       t5 = t4*t2;
3076       t6 = s+r-1.0;
3077       t8 = t2*t1;
3078       t9 = t6*t6;
3079       t11 = t2*t;
3080       t12 = t6*t9;
3081       t14 = t9*t9;
3082       t16 = t14*t6;
3083       t18 = t14*t9;
3084       t20 = t14*t12;
3085       t22 = t14*t14;
3086       t23 = r-2.0/23.0;
3087       t24 = t8*t6;
3088       t25 = t11*t9;
3089       t26 = t2*t12;
3090       t27 = t4*t14;
3091       t28 = t1*t16;
3092       t29 = t*t18;
3093       t31 = t23*(72.0/17.0*t5+252.0/17.0*t24+1764.0/85.0*t25+252.0/17.0*t26+
3094 1260.0/221.0*t27+252.0/221.0*t28+252.0/2431.0*t29+36.0/12155.0*t20);
3095       drv[0] = t3+72.0/17.0*t5*t6+126.0/17.0*t8*t9+588.0/85.0*t11*t12+63.0/17.0
3096 *t2*t14+252.0/221.0*t4*t16+42.0/221.0*t1*t18+36.0/2431.0*t*t20+9.0/24310.0*t22+
3097 t31;
3098       drv[1] = t31;
3099       drv[2] = t23*(8.0*t5+504.0/17.0*t24+756.0/17.0*t25+588.0/17.0*t26+252.0/
3100 17.0*t27+756.0/221.0*t28+84.0/221.0*t29+36.0/2431.0*t20);
3101    /* p=13 1 1 7 */
3102    } else if( i==1 && j==1 && k==7 ) {
3103       t1 = s+2.0/19.0*r-2.0/19.0;
3104       t2 = t*t;
3105       t3 = t2*t;
3106       t4 = t2*t2;
3107       t6 = t4*t2;
3108       t7 = s+r-1.0;
3109       t9 = t4*t;
3110       t10 = t7*t7;
3111       t12 = t10*t7;
3112       t14 = t10*t10;
3113       t16 = t14*t7;
3114       t18 = t14*t10;
3115       t21 = t4*t3+56.0/15.0*t6*t7+28.0/5.0*t9*t10+56.0/13.0*t4*t12+70.0/39.0*t3
3116 *t14+56.0/143.0*t2*t16+28.0/715.0*t*t18+8.0/6435.0*t14*t12;
3117       t23 = r-2.0/23.0;
3118       t24 = t23*t21;
3119       t25 = t23*t1;
3120       t26 = t9*t7;
3121       t27 = t4*t10;
3122       t28 = t3*t12;
3123       t29 = t2*t14;
3124       t30 = t*t16;
3125       t32 = t25*(56.0/15.0*t6+56.0/5.0*t26+168.0/13.0*t27+280.0/39.0*t28+280.0/
3126 143.0*t29+168.0/715.0*t30+56.0/6435.0*t18);
3127       drv[0] = t1*t21+2.0/19.0*t24+t32;
3128       drv[1] = t24+t32;
3129       drv[2] = t25*(7.0*t6+112.0/5.0*t26+28.0*t27+224.0/13.0*t28+70.0/13.0*t29+
3130 112.0/143.0*t30+28.0/715.0*t18);
3131    /* p=13 1 2 6 */
3132    } else if( i==1 && j==2 && k==6 ) {
3133       t1 = s*s;
3134       t2 = r-1.0;
3135       t4 = t2*t2;
3136       t5 = t1+6.0/19.0*s*t2+t4/57;
3137       t6 = t*t;
3138       t7 = t6*t6;
3139       t9 = t7*t;
3140       t10 = s+r-1.0;
3141       t12 = t10*t10;
3142       t14 = t6*t;
3143       t15 = t12*t10;
3144       t17 = t12*t12;
3145       t19 = t17*t10;
3146       t22 = t7*t6+42.0/13.0*t9*t10+105.0/26.0*t7*t12+350.0/143.0*t14*t15+105.0/
3147 143.0*t6*t17+14.0/143.0*t*t19+7.0/1716.0*t17*t12;
3148       t24 = r-2.0/23.0;
3149       t28 = t24*t5;
3150       t29 = t7*t10;
3151       t30 = t14*t12;
3152       t31 = t6*t15;
3153       t32 = t*t17;
3154       t34 = t28*(42.0/13.0*t9+105.0/13.0*t29+1050.0/143.0*t30+420.0/143.0*t31+
3155 70.0/143.0*t32+7.0/286.0*t19);
3156       drv[0] = t5*t22+t24*(6.0/19.0*s+2.0/57.0*r-2.0/57.0)*t22+t34;
3157       drv[1] = t24*(2.0*s+6.0/19.0*r-6.0/19.0)*t22+t34;
3158       drv[2] = t28*(6.0*t9+210.0/13.0*t29+210.0/13.0*t30+1050.0/143.0*t31+210.0
3159 /143.0*t32+14.0/143.0*t19);
3160    /* p=13 1 3 5 */
3161    } else if( i==1 && j==3 && k==5 ) {
3162       t1 = s*s;
3163       t3 = r-1.0;
3164       t5 = t3*t3;
3165       t8 = t1*s+12.0/19.0*t3*t1+2.0/19.0*s*t5+4.0/969.0*t5*t3;
3166       t9 = t*t;
3167       t10 = t9*t9;
3168       t12 = s+r-1.0;
3169       t14 = t9*t;
3170       t15 = t12*t12;
3171       t17 = t15*t12;
3172       t19 = t15*t15;
3173       t22 = t10*t+30.0/11.0*t12*t10+30.0/11.0*t14*t15+40.0/33.0*t9*t17+5.0/22.0
3174 *t*t19+t19*t12/77;
3175       t24 = r-2.0/23.0;
3176       t25 = s*t3;
3177       t29 = t24*t8;
3178       t30 = t14*t12;
3179       t31 = t9*t15;
3180       t32 = t*t17;
3181       t34 = t29*(30.0/11.0*t10+60.0/11.0*t30+40.0/11.0*t31+10.0/11.0*t32+5.0/
3182 77.0*t19);
3183       drv[0] = t8*t22+t24*(12.0/19.0*t1+4.0/19.0*t25+4.0/323.0*t5)*t22+t34;
3184       drv[1] = t24*(3.0*t1+24.0/19.0*t25+2.0/19.0*t5)*t22+t34;
3185       drv[2] = t29*(5.0*t10+120.0/11.0*t30+90.0/11.0*t31+80.0/33.0*t32+5.0/22.0
3186 *t19);
3187    /* p=13 1 4 4 */
3188    } else if( i==1 && j==4 && k==4 ) {
3189       t1 = s*s;
3190       t2 = t1*t1;
3191       t3 = t1*s;
3192       t4 = r-1.0;
3193       t6 = t4*t4;
3194       t8 = t6*t4;
3195       t10 = t6*t6;
3196       t11 = t2+20.0/19.0*t3*t4+20.0/57.0*t1*t6+40.0/969.0*s*t8+5.0/3876.0*t10;
3197       t12 = t*t;
3198       t13 = t12*t12;
3199       t14 = t12*t;
3200       t15 = s+r-1.0;
3201       t17 = t15*t15;
3202       t19 = t17*t15;
3203       t21 = t17*t17;
3204       t22 = t13+20.0/9.0*t14*t15+5.0/3.0*t17*t12+10.0/21.0*t*t19+5.0/126.0*t21;
3205       t24 = r-2.0/23.0;
3206       t25 = t4*t1;
3207       t26 = s*t6;
3208       t30 = t24*t11;
3209       t31 = t15*t12;
3210       t32 = t*t17;
3211       t34 = t30*(20.0/9.0*t14+10.0/3.0*t31+10.0/7.0*t32+10.0/63.0*t19);
3212       drv[0] = t11*t22+t24*(20.0/19.0*t3+40.0/57.0*t25+40.0/323.0*t26+5.0/969.0
3213 *t8)*t22+t34;
3214       drv[1] = t24*(4.0*t3+60.0/19.0*t25+40.0/57.0*t26+40.0/969.0*t8)*t22+t34;
3215       drv[2] = t30*(4.0*t14+20.0/3.0*t31+10.0/3.0*t32+10.0/21.0*t19);
3216    /* p=13 1 5 3 */
3217    } else if( i==1 && j==5 && k==3 ) {
3218       t1 = s*s;
3219       t2 = t1*t1;
3220       t4 = r-1.0;
3221       t6 = t1*s;
3222       t7 = t4*t4;
3223       t9 = t7*t4;
3224       t11 = t7*t7;
3225       t14 = t2*s+30.0/19.0*t4*t2+50.0/57.0*t6*t7+200.0/969.0*t1*t9+25.0/1292.0*
3226 s*t11+t11*t4/1938;
3227       t15 = t*t;
3228       t17 = s+r-1.0;
3229       t19 = t17*t17;
3230       t22 = t15*t+12.0/7.0*t17*t15+6.0/7.0*t*t19+4.0/35.0*t19*t17;
3231       t24 = r-2.0/23.0;
3232       t25 = t6*t4;
3233       t26 = t1*t7;
3234       t27 = s*t9;
3235       t31 = t24*t14;
3236       t32 = t*t17;
3237       t34 = t31*(12.0/7.0*t15+12.0/7.0*t32+12.0/35.0*t19);
3238       drv[0] = t14*t22+t24*(30.0/19.0*t2+100.0/57.0*t25+200.0/323.0*t26+25.0/
3239 323.0*t27+5.0/1938.0*t11)*t22+t34;
3240       drv[1] = t24*(5.0*t2+120.0/19.0*t25+50.0/19.0*t26+400.0/969.0*t27+25.0/
3241 1292.0*t11)*t22+t34;
3242       drv[2] = t31*(3.0*t15+24.0/7.0*t32+6.0/7.0*t19);
3243    /* p=13 1 6 2 */
3244    } else if( i==1 && j==6 && k==2 ) {
3245       t1 = s*s;
3246       t2 = t1*t1;
3247       t4 = t2*s;
3248       t5 = r-1.0;
3249       t7 = t5*t5;
3250       t9 = t1*s;
3251       t10 = t7*t5;
3252       t12 = t7*t7;
3253       t14 = t12*t5;
3254       t17 = t2*t1+42.0/19.0*t4*t5+35.0/19.0*t2*t7+700.0/969.0*t9*t10+175.0/
3255 1292.0*t1*t12+7.0/646.0*s*t14+t12*t7/3876;
3256       t18 = t*t;
3257       t19 = s+r-1.0;
3258       t21 = t19*t19;
3259       t22 = t18+6.0/5.0*t*t19+3.0/10.0*t21;
3260       t24 = r-2.0/23.0;
3261       t25 = t2*t5;
3262       t26 = t9*t7;
3263       t27 = t1*t10;
3264       t28 = s*t12;
3265       t32 = t24*t17;
3266       t34 = t32*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
3267       drv[0] = t17*t22+t24*(42.0/19.0*t4+70.0/19.0*t25+700.0/323.0*t26+175.0/
3268 323.0*t27+35.0/646.0*t28+t14/646)*t22+t34;
3269       drv[1] = t24*(6.0*t4+210.0/19.0*t25+140.0/19.0*t26+700.0/323.0*t27+175.0/
3270 646.0*t28+7.0/646.0*t14)*t22+t34;
3271       drv[2] = t32*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
3272    /* p=13 1 7 1 */
3273    } else if( i==1 && j==7 && k==1 ) {
3274       t1 = s*s;
3275       t2 = t1*s;
3276       t3 = t1*t1;
3277       t5 = t3*t1;
3278       t6 = r-1.0;
3279       t8 = t3*s;
3280       t9 = t6*t6;
3281       t11 = t9*t6;
3282       t13 = t9*t9;
3283       t15 = t13*t6;
3284       t17 = t13*t9;
3285       t20 = t3*t2+56.0/19.0*t5*t6+196.0/57.0*t8*t9+1960.0/969.0*t3*t11+1225.0/
3286 1938.0*t2*t13+98.0/969.0*t1*t15+7.0/969.0*s*t17+2.0/12597.0*t13*t11;
3287       t21 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
3288       t23 = r-2.0/23.0;
3289       t24 = t8*t6;
3290       t25 = t3*t9;
3291       t26 = t2*t11;
3292       t27 = t1*t13;
3293       t28 = s*t15;
3294       t32 = t23*t20;
3295       drv[0] = t20*t21+t23*(56.0/19.0*t5+392.0/57.0*t24+1960.0/323.0*t25+2450.0
3296 /969.0*t26+490.0/969.0*t27+14.0/323.0*t28+14.0/12597.0*t17)*t21+2.0/3.0*t32;
3297       drv[1] = t23*(7.0*t5+336.0/19.0*t24+980.0/57.0*t25+7840.0/969.0*t26+
3298 1225.0/646.0*t27+196.0/969.0*t28+7.0/969.0*t17)*t21+2.0/3.0*t32;
3299       drv[2] = t32;
3300    /* p=13 1 8 0 */
3301    } else if( i==1 && j==8 && k==0 ) {
3302       t1 = s*s;
3303       t2 = t1*t1;
3304       t3 = t2*t2;
3305       t4 = t1*s;
3306       t5 = t4*t2;
3307       t6 = r-1.0;
3308       t8 = t2*t1;
3309       t9 = t6*t6;
3310       t11 = t2*s;
3311       t12 = t9*t6;
3312       t14 = t9*t9;
3313       t16 = t14*t6;
3314       t18 = t14*t9;
3315       t20 = t14*t12;
3316       t22 = t14*t14;
3317       t23 = r-2.0/23.0;
3318       t24 = t8*t6;
3319       t25 = t11*t9;
3320       t26 = t2*t12;
3321       t27 = t4*t14;
3322       t28 = t1*t16;
3323       t29 = s*t18;
3324       drv[0] = t3+72.0/19.0*t5*t6+112.0/19.0*t8*t9+1568.0/323.0*t11*t12+735.0/
3325 323.0*t2*t14+196.0/323.0*t4*t16+28.0/323.0*t1*t18+24.0/4199.0*s*t20+t22/8398+
3326 t23*(72.0/19.0*t5+224.0/19.0*t24+4704.0/323.0*t25+2940.0/323.0*t26+980.0/323.0*
3327 t27+168.0/323.0*t28+168.0/4199.0*t29+4.0/4199.0*t20);
3328       drv[1] = t23*(8.0*t5+504.0/19.0*t24+672.0/19.0*t25+7840.0/323.0*t26+
3329 2940.0/323.0*t27+588.0/323.0*t28+56.0/323.0*t29+24.0/4199.0*t20);
3330       drv[2] = 0.0;
3331    /* p=13 2 0 7 */
3332    } else if( i==2 && j==0 && k==7 ) {
3333       t2 = t*t;
3334       t3 = t2*t;
3335       t4 = t2*t2;
3336       t6 = t4*t2;
3337       t7 = s+r-1.0;
3338       t9 = t4*t;
3339       t10 = t7*t7;
3340       t12 = t10*t7;
3341       t14 = t10*t10;
3342       t16 = t14*t7;
3343       t18 = t14*t10;
3344       t23 = r*r;
3345       t24 = t23-6.0/23.0*r+3.0/253.0;
3346       t25 = t9*t7;
3347       t26 = t4*t10;
3348       t27 = t3*t12;
3349       t28 = t2*t14;
3350       t29 = t*t16;
3351       t31 = t24*(56.0/15.0*t6+56.0/5.0*t25+168.0/13.0*t26+280.0/39.0*t27+280.0/
3352 143.0*t28+168.0/715.0*t29+56.0/6435.0*t18);
3353       drv[0] = (2.0*r-6.0/23.0)*(t4*t3+56.0/15.0*t6*t7+28.0/5.0*t9*t10+56.0/
3354 13.0*t4*t12+70.0/39.0*t3*t14+56.0/143.0*t2*t16+28.0/715.0*t*t18+8.0/6435.0*t14*
3355 t12)+t31;
3356       drv[1] = t31;
3357       drv[2] = t24*(7.0*t6+112.0/5.0*t25+28.0*t26+224.0/13.0*t27+70.0/13.0*t28+
3358 112.0/143.0*t29+28.0/715.0*t18);
3359    /* p=13 2 1 6 */
3360    } else if( i==2 && j==1 && k==6 ) {
3361       t2 = s+2.0/17.0*r-2.0/17.0;
3362       t4 = t*t;
3363       t5 = t4*t4;
3364       t7 = t5*t;
3365       t8 = s+r-1.0;
3366       t10 = t8*t8;
3367       t12 = t4*t;
3368       t13 = t10*t8;
3369       t15 = t10*t10;
3370       t17 = t15*t8;
3371       t20 = t5*t4+42.0/13.0*t7*t8+105.0/26.0*t5*t10+350.0/143.0*t12*t13+105.0/
3372 143.0*t4*t15+14.0/143.0*t*t17+7.0/1716.0*t15*t10;
3373       t22 = r*r;
3374       t23 = t22-6.0/23.0*r+3.0/253.0;
3375       t24 = t23*t20;
3376       t25 = t23*t2;
3377       t26 = t5*t8;
3378       t27 = t12*t10;
3379       t28 = t4*t13;
3380       t29 = t*t15;
3381       t31 = t25*(42.0/13.0*t7+105.0/13.0*t26+1050.0/143.0*t27+420.0/143.0*t28+
3382 70.0/143.0*t29+7.0/286.0*t17);
3383       drv[0] = t2*(2.0*r-6.0/23.0)*t20+2.0/17.0*t24+t31;
3384       drv[1] = t24+t31;
3385       drv[2] = t25*(6.0*t7+210.0/13.0*t26+210.0/13.0*t27+1050.0/143.0*t28+210.0
3386 /143.0*t29+14.0/143.0*t17);
3387    /* p=13 2 2 5 */
3388    } else if( i==2 && j==2 && k==5 ) {
3389       t2 = s*s;
3390       t3 = r-1.0;
3391       t5 = t3*t3;
3392       t6 = t2+6.0/17.0*s*t3+3.0/136.0*t5;
3393       t8 = t*t;
3394       t9 = t8*t8;
3395       t11 = s+r-1.0;
3396       t13 = t8*t;
3397       t14 = t11*t11;
3398       t16 = t14*t11;
3399       t18 = t14*t14;
3400       t21 = t9*t+30.0/11.0*t9*t11+30.0/11.0*t13*t14+40.0/33.0*t8*t16+5.0/22.0*t
3401 *t18+t18*t11/77;
3402       t23 = r*r;
3403       t24 = t23-6.0/23.0*r+3.0/253.0;
3404       t28 = t24*t6;
3405       t29 = t13*t11;
3406       t30 = t8*t14;
3407       t31 = t*t16;
3408       t33 = t28*(30.0/11.0*t9+60.0/11.0*t29+40.0/11.0*t30+10.0/11.0*t31+5.0/
3409 77.0*t18);
3410       drv[0] = (2.0*r-6.0/23.0)*t6*t21+t24*(6.0/17.0*s+3.0/68.0*r-3.0/68.0)*t21
3411 +t33;
3412       drv[1] = t24*(2.0*s+6.0/17.0*r-6.0/17.0)*t21+t33;
3413       drv[2] = t28*(5.0*t9+120.0/11.0*t29+90.0/11.0*t30+80.0/33.0*t31+5.0/22.0*
3414 t18);
3415    /* p=13 2 3 4 */
3416    } else if( i==2 && j==3 && k==4 ) {
3417       t2 = s*s;
3418       t4 = r-1.0;
3419       t6 = t4*t4;
3420       t9 = t2*s+12.0/17.0*t4*t2+9.0/68.0*s*t6+t6*t4/170;
3421       t11 = t*t;
3422       t12 = t11*t11;
3423       t13 = t11*t;
3424       t14 = s+r-1.0;
3425       t16 = t14*t14;
3426       t18 = t16*t14;
3427       t20 = t16*t16;
3428       t21 = t12+20.0/9.0*t13*t14+5.0/3.0*t11*t16+10.0/21.0*t*t18+5.0/126.0*t20;
3429       t23 = r*r;
3430       t24 = t23-6.0/23.0*r+3.0/253.0;
3431       t25 = s*t4;
3432       t29 = t24*t9;
3433       t30 = t14*t11;
3434       t31 = t*t16;
3435       t33 = t29*(20.0/9.0*t13+10.0/3.0*t30+10.0/7.0*t31+10.0/63.0*t18);
3436       drv[0] = (2.0*r-6.0/23.0)*t9*t21+t24*(12.0/17.0*t2+9.0/34.0*t25+3.0/170.0
3437 *t6)*t21+t33;
3438       drv[1] = t24*(3.0*t2+24.0/17.0*t25+9.0/68.0*t6)*t21+t33;
3439       drv[2] = t29*(4.0*t13+20.0/3.0*t30+10.0/3.0*t31+10.0/21.0*t18);
3440    /* p=13 2 4 3 */
3441    } else if( i==2 && j==4 && k==3 ) {
3442       t2 = s*s;
3443       t3 = t2*t2;
3444       t4 = t2*s;
3445       t5 = r-1.0;
3446       t7 = t5*t5;
3447       t9 = t7*t5;
3448       t11 = t7*t7;
3449       t12 = t3+20.0/17.0*t5*t4+15.0/34.0*t2*t7+s*t9/17+t11/476;
3450       t14 = t*t;
3451       t16 = s+r-1.0;
3452       t18 = t16*t16;
3453       t21 = t14*t+12.0/7.0*t16*t14+6.0/7.0*t*t18+4.0/35.0*t18*t16;
3454       t23 = r*r;
3455       t24 = t23-6.0/23.0*r+3.0/253.0;
3456       t25 = t2*t5;
3457       t26 = s*t7;
3458       t30 = t24*t12;
3459       t31 = t*t16;
3460       t33 = t30*(12.0/7.0*t14+12.0/7.0*t31+12.0/35.0*t18);
3461       drv[0] = (2.0*r-6.0/23.0)*t12*t21+t24*(20.0/17.0*t4+15.0/17.0*t25+3.0/
3462 17.0*t26+t9/119)*t21+t33;
3463       drv[1] = t24*(4.0*t4+60.0/17.0*t25+15.0/17.0*t26+t9/17)*t21+t33;
3464       drv[2] = t30*(3.0*t14+24.0/7.0*t31+6.0/7.0*t18);
3465    /* p=13 2 5 2 */
3466    } else if( i==2 && j==5 && k==2 ) {
3467       t2 = s*s;
3468       t3 = t2*t2;
3469       t5 = r-1.0;
3470       t7 = t2*s;
3471       t8 = t5*t5;
3472       t10 = t8*t5;
3473       t12 = t8*t8;
3474       t15 = t3*s+30.0/17.0*t3*t5+75.0/68.0*t7*t8+5.0/17.0*t2*t10+15.0/476.0*s*
3475 t12+3.0/3094.0*t12*t5;
3476       t17 = t*t;
3477       t18 = s+r-1.0;
3478       t20 = t18*t18;
3479       t21 = t17+6.0/5.0*t*t18+3.0/10.0*t20;
3480       t23 = r*r;
3481       t24 = t23-6.0/23.0*r+3.0/253.0;
3482       t25 = t7*t5;
3483       t26 = t2*t8;
3484       t27 = s*t10;
3485       t31 = t24*t15;
3486       t33 = t31*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
3487       drv[0] = (2.0*r-6.0/23.0)*t15*t21+t24*(30.0/17.0*t3+75.0/34.0*t25+15.0/
3488 17.0*t26+15.0/119.0*t27+15.0/3094.0*t12)*t21+t33;
3489       drv[1] = t24*(5.0*t3+120.0/17.0*t25+225.0/68.0*t26+10.0/17.0*t27+15.0/
3490 476.0*t12)*t21+t33;
3491       drv[2] = t31*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
3492    /* p=13 2 6 1 */
3493    } else if( i==2 && j==6 && k==1 ) {
3494       t2 = s*s;
3495       t3 = t2*t2;
3496       t5 = t3*s;
3497       t6 = r-1.0;
3498       t8 = t6*t6;
3499       t10 = t2*s;
3500       t11 = t8*t6;
3501       t13 = t8*t8;
3502       t15 = t13*t6;
3503       t18 = t3*t2+42.0/17.0*t5*t6+315.0/136.0*t3*t8+35.0/34.0*t10*t11+15.0/68.0
3504 *t2*t13+9.0/442.0*s*t15+t13*t8/1768;
3505       t20 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
3506       t22 = r*r;
3507       t23 = t22-6.0/23.0*r+3.0/253.0;
3508       t24 = t3*t6;
3509       t25 = t10*t8;
3510       t26 = t2*t11;
3511       t27 = s*t13;
3512       t31 = t23*t18;
3513       drv[0] = (2.0*r-6.0/23.0)*t18*t20+t23*(42.0/17.0*t5+315.0/68.0*t24+105.0/
3514 34.0*t25+15.0/17.0*t26+45.0/442.0*t27+3.0/884.0*t15)*t20+2.0/3.0*t31;
3515       drv[1] = t23*(6.0*t5+210.0/17.0*t24+315.0/34.0*t25+105.0/34.0*t26+15.0/
3516 34.0*t27+9.0/442.0*t15)*t20+2.0/3.0*t31;
3517       drv[2] = t31;
3518    /* p=13 2 7 0 */
3519    } else if( i==2 && j==7 && k==0 ) {
3520       t2 = s*s;
3521       t3 = t2*s;
3522       t4 = t2*t2;
3523       t6 = t4*t2;
3524       t7 = r-1.0;
3525       t9 = t4*s;
3526       t10 = t7*t7;
3527       t12 = t10*t7;
3528       t14 = t10*t10;
3529       t16 = t14*t7;
3530       t18 = t14*t10;
3531       t23 = r*r;
3532       t24 = t23-6.0/23.0*r+3.0/253.0;
3533       t25 = t9*t7;
3534       t26 = t4*t10;
3535       t27 = t3*t12;
3536       t28 = t2*t14;
3537       t29 = s*t16;
3538       drv[0] = (2.0*r-6.0/23.0)*(t4*t3+56.0/17.0*t6*t7+147.0/34.0*t9*t10+49.0/
3539 17.0*t4*t12+35.0/34.0*t3*t14+42.0/221.0*t2*t16+7.0/442.0*s*t18+t14*t12/2431)+
3540 t24*(56.0/17.0*t6+147.0/17.0*t25+147.0/17.0*t26+70.0/17.0*t27+210.0/221.0*t28+
3541 21.0/221.0*t29+7.0/2431.0*t18);
3542       drv[1] = t24*(7.0*t6+336.0/17.0*t25+735.0/34.0*t26+196.0/17.0*t27+105.0/
3543 34.0*t28+84.0/221.0*t29+7.0/442.0*t18);
3544       drv[2] = 0.0;
3545    /* p=13 3 0 6 */
3546    } else if( i==3 && j==0 && k==6 ) {
3547       t1 = r*r;
3548       t3 = t*t;
3549       t4 = t3*t3;
3550       t6 = t4*t;
3551       t7 = s+r-1.0;
3552       t9 = t7*t7;
3553       t11 = t3*t;
3554       t12 = t9*t7;
3555       t14 = t9*t9;
3556       t16 = t14*t7;
3557       t22 = t1*r-12.0/23.0*t1+18.0/253.0*r-4.0/1771.0;
3558       t23 = t4*t7;
3559       t24 = t11*t9;
3560       t25 = t3*t12;
3561       t26 = t*t14;
3562       t28 = t22*(42.0/13.0*t6+105.0/13.0*t23+1050.0/143.0*t24+420.0/143.0*t25+
3563 70.0/143.0*t26+7.0/286.0*t16);
3564       drv[0] = (3.0*t1-24.0/23.0*r+18.0/253.0)*(t4*t3+42.0/13.0*t6*t7+105.0/
3565 26.0*t4*t9+350.0/143.0*t11*t12+105.0/143.0*t3*t14+14.0/143.0*t*t16+7.0/1716.0*
3566 t14*t9)+t28;
3567       drv[1] = t28;
3568       drv[2] = t22*(6.0*t6+210.0/13.0*t23+210.0/13.0*t24+1050.0/143.0*t25+210.0
3569 /143.0*t26+14.0/143.0*t16);
3570    /* p=13 3 1 5 */
3571    } else if( i==3 && j==1 && k==5 ) {
3572       t1 = r*r;
3573       t3 = s+2.0/15.0*r-2.0/15.0;
3574       t5 = t*t;
3575       t6 = t5*t5;
3576       t8 = s+r-1.0;
3577       t10 = t5*t;
3578       t11 = t8*t8;
3579       t13 = t11*t8;
3580       t15 = t11*t11;
3581       t18 = t6*t+30.0/11.0*t6*t8+30.0/11.0*t10*t11+40.0/33.0*t5*t13+5.0/22.0*t*
3582 t15+t15*t8/77;
3583       t21 = t1*r-12.0/23.0*t1+18.0/253.0*r-4.0/1771.0;
3584       t22 = t21*t18;
3585       t23 = t21*t3;
3586       t24 = t10*t8;
3587       t25 = t5*t11;
3588       t26 = t*t13;
3589       t28 = t23*(30.0/11.0*t6+60.0/11.0*t24+40.0/11.0*t25+10.0/11.0*t26+5.0/
3590 77.0*t15);
3591       drv[0] = t3*(3.0*t1-24.0/23.0*r+18.0/253.0)*t18+2.0/15.0*t22+t28;
3592       drv[1] = t22+t28;
3593       drv[2] = t23*(5.0*t6+120.0/11.0*t24+90.0/11.0*t25+80.0/33.0*t26+5.0/22.0*
3594 t15);
3595    /* p=13 3 2 4 */
3596    } else if( i==3 && j==2 && k==4 ) {
3597       t1 = r*r;
3598       t3 = s*s;
3599       t4 = r-1.0;
3600       t6 = t4*t4;
3601       t7 = t3+2.0/5.0*s*t4+t6/35;
3602       t9 = t*t;
3603       t10 = t9*t9;
3604       t11 = t9*t;
3605       t12 = s+r-1.0;
3606       t14 = t12*t12;
3607       t16 = t14*t12;
3608       t18 = t14*t14;
3609       t19 = t10+20.0/9.0*t11*t12+5.0/3.0*t14*t9+10.0/21.0*t*t16+5.0/126.0*t18;
3610       t22 = t1*r-12.0/23.0*t1+18.0/253.0*r-4.0/1771.0;
3611       t26 = t22*t7;
3612       t27 = t9*t12;
3613       t28 = t*t14;
3614       t30 = t26*(20.0/9.0*t11+10.0/3.0*t27+10.0/7.0*t28+10.0/63.0*t16);
3615       drv[0] = (3.0*t1-24.0/23.0*r+18.0/253.0)*t7*t19+t22*(2.0/5.0*s+2.0/35.0*r
3616 -2.0/35.0)*t19+t30;
3617       drv[1] = t22*(2.0*s+2.0/5.0*r-2.0/5.0)*t19+t30;
3618       drv[2] = t26*(4.0*t11+20.0/3.0*t27+10.0/3.0*t28+10.0/21.0*t16);
3619    /* p=13 3 3 3 */
3620    } else if( i==3 && j==3 && k==3 ) {
3621       t1 = r*r;
3622       t3 = s*s;
3623       t5 = r-1.0;
3624       t7 = t5*t5;
3625       t10 = t3*s+4.0/5.0*t3*t5+6.0/35.0*s*t7+4.0/455.0*t7*t5;
3626       t12 = t*t;
3627       t14 = s+r-1.0;
3628       t16 = t14*t14;
3629       t19 = t12*t+12.0/7.0*t12*t14+6.0/7.0*t*t16+4.0/35.0*t16*t14;
3630       t22 = t1*r-12.0/23.0*t1+18.0/253.0*r-4.0/1771.0;
3631       t23 = s*t5;
3632       t27 = t22*t10;
3633       t28 = t*t14;
3634       t30 = t27*(12.0/7.0*t12+12.0/7.0*t28+12.0/35.0*t16);
3635       drv[0] = (3.0*t1-24.0/23.0*r+18.0/253.0)*t10*t19+t22*(4.0/5.0*t3+12.0/
3636 35.0*t23+12.0/455.0*t7)*t19+t30;
3637       drv[1] = t22*(3.0*t3+8.0/5.0*t23+6.0/35.0*t7)*t19+t30;
3638       drv[2] = t27*(3.0*t12+24.0/7.0*t28+6.0/7.0*t16);
3639    /* p=13 3 4 2 */
3640    } else if( i==3 && j==4 && k==2 ) {
3641       t1 = r*r;
3642       t3 = s*s;
3643       t4 = t3*t3;
3644       t5 = t3*s;
3645       t6 = r-1.0;
3646       t8 = t6*t6;
3647       t10 = t8*t6;
3648       t12 = t8*t8;
3649       t13 = t4+4.0/3.0*t5*t6+4.0/7.0*t3*t8+8.0/91.0*s*t10+t12/273;
3650       t15 = t*t;
3651       t16 = s+r-1.0;
3652       t18 = t16*t16;
3653       t19 = t15+6.0/5.0*t*t16+3.0/10.0*t18;
3654       t22 = t1*r-12.0/23.0*t1+18.0/253.0*r-4.0/1771.0;
3655       t23 = t3*t6;
3656       t24 = s*t8;
3657       t28 = t22*t13;
3658       t30 = t28*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
3659       drv[0] = (3.0*t1-24.0/23.0*r+18.0/253.0)*t13*t19+t22*(4.0/3.0*t5+8.0/7.0*
3660 t23+24.0/91.0*t24+4.0/273.0*t10)*t19+t30;
3661       drv[1] = t22*(4.0*t5+4.0*t23+8.0/7.0*t24+8.0/91.0*t10)*t19+t30;
3662       drv[2] = t28*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
3663    /* p=13 3 5 1 */
3664    } else if( i==3 && j==5 && k==1 ) {
3665       t1 = r*r;
3666       t3 = s*s;
3667       t4 = t3*t3;
3668       t6 = r-1.0;
3669       t8 = t3*s;
3670       t9 = t6*t6;
3671       t11 = t9*t6;
3672       t13 = t9*t9;
3673       t16 = t4*s+2.0*t4*t6+10.0/7.0*t8*t9+40.0/91.0*t3*t11+5.0/91.0*s*t13+2.0/
3674 1001.0*t13*t6;
3675       t18 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
3676       t21 = t1*r-12.0/23.0*t1+18.0/253.0*r-4.0/1771.0;
3677       t22 = t8*t6;
3678       t23 = t3*t9;
3679       t24 = s*t11;
3680       t28 = t21*t16;
3681       drv[0] = (3.0*t1-24.0/23.0*r+18.0/253.0)*t16*t18+t21*(2.0*t4+20.0/7.0*t22
3682 +120.0/91.0*t23+20.0/91.0*t24+10.0/1001.0*t13)*t18+2.0/3.0*t28;
3683       drv[1] = t21*(5.0*t4+8.0*t22+30.0/7.0*t23+80.0/91.0*t24+5.0/91.0*t13)*t18
3684 +2.0/3.0*t28;
3685       drv[2] = t28;
3686    /* p=13 3 6 0 */
3687    } else if( i==3 && j==6 && k==0 ) {
3688       t1 = r*r;
3689       t3 = s*s;
3690       t4 = t3*t3;
3691       t6 = t4*s;
3692       t7 = r-1.0;
3693       t9 = t7*t7;
3694       t11 = t3*s;
3695       t12 = t9*t7;
3696       t14 = t9*t9;
3697       t16 = t14*t7;
3698       t22 = t1*r-12.0/23.0*t1+18.0/253.0*r-4.0/1771.0;
3699       t23 = t4*t7;
3700       t24 = t11*t9;
3701       t25 = t3*t12;
3702       t26 = s*t14;
3703       drv[0] = (3.0*t1-24.0/23.0*r+18.0/253.0)*(t4*t3+14.0/5.0*t6*t7+3.0*t4*t9+
3704 20.0/13.0*t11*t12+5.0/13.0*t3*t14+6.0/143.0*s*t16+t14*t9/715)+t22*(14.0/5.0*t6+
3705 6.0*t23+60.0/13.0*t24+20.0/13.0*t25+30.0/143.0*t26+6.0/715.0*t16);
3706       drv[1] = t22*(6.0*t6+14.0*t23+12.0*t24+60.0/13.0*t25+10.0/13.0*t26+6.0/
3707 143.0*t16);
3708       drv[2] = 0.0;
3709    /* p=13 4 0 5 */
3710    } else if( i==4 && j==0 && k==5 ) {
3711       t1 = r*r;
3712       t2 = t1*r;
3713       t4 = t*t;
3714       t5 = t4*t4;
3715       t7 = s+r-1.0;
3716       t9 = t4*t;
3717       t10 = t7*t7;
3718       t12 = t10*t7;
3719       t14 = t10*t10;
3720       t19 = t1*t1;
3721       t20 = t19-20.0/23.0*t2+60.0/253.0*t1-40.0/1771.0*r+1.0/1771.0;
3722       t21 = t9*t7;
3723       t22 = t4*t10;
3724       t23 = t*t12;
3725       t25 = t20*(30.0/11.0*t5+60.0/11.0*t21+40.0/11.0*t22+10.0/11.0*t23+5.0/
3726 77.0*t14);
3727       drv[0] = (4.0*t2-60.0/23.0*t1+120.0/253.0*r-40.0/1771.0)*(t5*t+30.0/11.0*
3728 t5*t7+30.0/11.0*t9*t10+40.0/33.0*t4*t12+5.0/22.0*t*t14+t14*t7/77)+t25;
3729       drv[1] = t25;
3730       drv[2] = t20*(5.0*t5+120.0/11.0*t21+90.0/11.0*t22+80.0/33.0*t23+5.0/22.0*
3731 t14);
3732    /* p=13 4 1 4 */
3733    } else if( i==4 && j==1 && k==4 ) {
3734       t1 = r*r;
3735       t2 = t1*r;
3736       t4 = s+2.0/13.0*r-2.0/13.0;
3737       t6 = t*t;
3738       t7 = t6*t6;
3739       t8 = t6*t;
3740       t9 = s+r-1.0;
3741       t11 = t9*t9;
3742       t13 = t11*t9;
3743       t15 = t11*t11;
3744       t16 = t7+20.0/9.0*t8*t9+5.0/3.0*t6*t11+10.0/21.0*t*t13+5.0/126.0*t15;
3745       t18 = t1*t1;
3746       t19 = t18-20.0/23.0*t2+60.0/253.0*t1-40.0/1771.0*r+1.0/1771.0;
3747       t20 = t19*t16;
3748       t21 = t19*t4;
3749       t22 = t6*t9;
3750       t23 = t*t11;
3751       t25 = t21*(20.0/9.0*t8+10.0/3.0*t22+10.0/7.0*t23+10.0/63.0*t13);
3752       drv[0] = t4*(4.0*t2-60.0/23.0*t1+120.0/253.0*r-40.0/1771.0)*t16+2.0/13.0*
3753 t20+t25;
3754       drv[1] = t20+t25;
3755       drv[2] = t21*(4.0*t8+20.0/3.0*t22+10.0/3.0*t23+10.0/21.0*t13);
3756    /* p=13 4 2 3 */
3757    } else if( i==4 && j==2 && k==3 ) {
3758       t1 = r*r;
3759       t2 = t1*r;
3760       t4 = s*s;
3761       t5 = r-1.0;
3762       t7 = t5*t5;
3763       t8 = t4+6.0/13.0*s*t5+t7/26;
3764       t10 = t*t;
3765       t12 = s+r-1.0;
3766       t14 = t12*t12;
3767       t17 = t10*t+12.0/7.0*t10*t12+6.0/7.0*t*t14+4.0/35.0*t14*t12;
3768       t19 = t1*t1;
3769       t20 = t19-20.0/23.0*t2+60.0/253.0*t1-40.0/1771.0*r+1.0/1771.0;
3770       t24 = t20*t8;
3771       t25 = t*t12;
3772       t27 = t24*(12.0/7.0*t10+12.0/7.0*t25+12.0/35.0*t14);
3773       drv[0] = (4.0*t2-60.0/23.0*t1+120.0/253.0*r-40.0/1771.0)*t8*t17+t20*(6.0/
3774 13.0*s+r/13-1.0/13.0)*t17+t27;
3775       drv[1] = t20*(2.0*s+6.0/13.0*r-6.0/13.0)*t17+t27;
3776       drv[2] = t24*(3.0*t10+24.0/7.0*t25+6.0/7.0*t14);
3777    /* p=13 4 3 2 */
3778    } else if( i==4 && j==3 && k==2 ) {
3779       t1 = r*r;
3780       t2 = t1*r;
3781       t4 = s*s;
3782       t6 = r-1.0;
3783       t8 = t6*t6;
3784       t11 = t4*s+12.0/13.0*t4*t6+3.0/13.0*s*t8+2.0/143.0*t8*t6;
3785       t13 = t*t;
3786       t14 = s+r-1.0;
3787       t16 = t14*t14;
3788       t17 = t13+6.0/5.0*t*t14+3.0/10.0*t16;
3789       t19 = t1*t1;
3790       t20 = t19-20.0/23.0*t2+60.0/253.0*t1-40.0/1771.0*r+1.0/1771.0;
3791       t21 = s*t6;
3792       t25 = t20*t11;
3793       t27 = t25*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
3794       drv[0] = (4.0*t2-60.0/23.0*t1+120.0/253.0*r-40.0/1771.0)*t11*t17+t20*(
3795 12.0/13.0*t4+6.0/13.0*t21+6.0/143.0*t8)*t17+t27;
3796       drv[1] = t20*(3.0*t4+24.0/13.0*t21+3.0/13.0*t8)*t17+t27;
3797       drv[2] = t25*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
3798    /* p=13 4 4 1 */
3799    } else if( i==4 && j==4 && k==1 ) {
3800       t1 = r*r;
3801       t2 = t1*r;
3802       t4 = s*s;
3803       t5 = t4*t4;
3804       t6 = t4*s;
3805       t7 = r-1.0;
3806       t9 = t7*t7;
3807       t11 = t9*t7;
3808       t13 = t9*t9;
3809       t14 = t5+20.0/13.0*t6*t7+10.0/13.0*t4*t9+20.0/143.0*s*t11+t13/143;
3810       t16 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
3811       t18 = t1*t1;
3812       t19 = t18-20.0/23.0*t2+60.0/253.0*t1-40.0/1771.0*r+1.0/1771.0;
3813       t20 = t4*t7;
3814       t21 = s*t9;
3815       t25 = t19*t14;
3816       drv[0] = (4.0*t2-60.0/23.0*t1+120.0/253.0*r-40.0/1771.0)*t14*t16+t19*(
3817 20.0/13.0*t6+20.0/13.0*t20+60.0/143.0*t21+4.0/143.0*t11)*t16+2.0/3.0*t25;
3818       drv[1] = t19*(4.0*t6+60.0/13.0*t20+20.0/13.0*t21+20.0/143.0*t11)*t16+2.0/
3819 3.0*t25;
3820       drv[2] = t25;
3821    /* p=13 4 5 0 */
3822    } else if( i==4 && j==5 && k==0 ) {
3823       t1 = r*r;
3824       t2 = t1*r;
3825       t4 = s*s;
3826       t5 = t4*t4;
3827       t7 = r-1.0;
3828       t9 = t4*s;
3829       t10 = t7*t7;
3830       t12 = t10*t7;
3831       t14 = t10*t10;
3832       t19 = t1*t1;
3833       t20 = t19-20.0/23.0*t2+60.0/253.0*t1-40.0/1771.0*r+1.0/1771.0;
3834       t21 = t9*t7;
3835       t22 = t4*t10;
3836       t23 = s*t12;
3837       drv[0] = (4.0*t2-60.0/23.0*t1+120.0/253.0*r-40.0/1771.0)*(t5*s+30.0/13.0*
3838 t5*t7+25.0/13.0*t9*t10+100.0/143.0*t4*t12+15.0/143.0*s*t14+2.0/429.0*t14*t7)+
3839 t20*(30.0/13.0*t5+50.0/13.0*t21+300.0/143.0*t22+60.0/143.0*t23+10.0/429.0*t14);
3840       drv[1] = t20*(5.0*t5+120.0/13.0*t21+75.0/13.0*t22+200.0/143.0*t23+15.0/
3841 143.0*t14);
3842       drv[2] = 0.0;
3843    /* p=13 5 0 4 */
3844    } else if( i==5 && j==0 && k==4 ) {
3845       t1 = r*r;
3846       t2 = t1*t1;
3847       t3 = t1*r;
3848       t5 = t*t;
3849       t6 = t5*t5;
3850       t7 = t5*t;
3851       t8 = s+r-1.0;
3852       t10 = t8*t8;
3853       t12 = t10*t8;
3854       t14 = t10*t10;
3855       t18 = t2*r-30.0/23.0*t2+150.0/253.0*t3-200.0/1771.0*t1+15.0/1771.0*r-6.0/
3856 33649.0;
3857       t19 = t5*t8;
3858       t20 = t*t10;
3859       t22 = t18*(20.0/9.0*t7+10.0/3.0*t19+10.0/7.0*t20+10.0/63.0*t12);
3860       drv[0] = (5.0*t2-120.0/23.0*t3+450.0/253.0*t1-400.0/1771.0*r+15.0/1771.0)
3861 *(t6+20.0/9.0*t7*t8+5.0/3.0*t5*t10+10.0/21.0*t*t12+5.0/126.0*t14)+t22;
3862       drv[1] = t22;
3863       drv[2] = t18*(4.0*t7+20.0/3.0*t19+10.0/3.0*t20+10.0/21.0*t12);
3864    /* p=13 5 1 3 */
3865    } else if( i==5 && j==1 && k==3 ) {
3866       t1 = r*r;
3867       t2 = t1*t1;
3868       t3 = t1*r;
3869       t5 = s+2.0/11.0*r-2.0/11.0;
3870       t7 = t*t;
3871       t9 = s+r-1.0;
3872       t11 = t9*t9;
3873       t14 = t7*t+12.0/7.0*t7*t9+6.0/7.0*t*t11+4.0/35.0*t11*t9;
3874       t17 = t2*r-30.0/23.0*t2+150.0/253.0*t3-200.0/1771.0*t1+15.0/1771.0*r-6.0/
3875 33649.0;
3876       t18 = t17*t14;
3877       t19 = t17*t5;
3878       t20 = t*t9;
3879       t22 = t19*(12.0/7.0*t7+12.0/7.0*t20+12.0/35.0*t11);
3880       drv[0] = (5.0*t2-120.0/23.0*t3+450.0/253.0*t1-400.0/1771.0*r+15.0/1771.0)
3881 *t5*t14+2.0/11.0*t18+t22;
3882       drv[1] = t18+t22;
3883       drv[2] = t19*(3.0*t7+24.0/7.0*t20+6.0/7.0*t11);
3884    /* p=13 5 2 2 */
3885    } else if( i==5 && j==2 && k==2 ) {
3886       t1 = r*r;
3887       t2 = t1*t1;
3888       t3 = t1*r;
3889       t5 = s*s;
3890       t6 = r-1.0;
3891       t8 = t6*t6;
3892       t9 = t5+6.0/11.0*s*t6+3.0/55.0*t8;
3893       t11 = t*t;
3894       t12 = s+r-1.0;
3895       t14 = t12*t12;
3896       t15 = t11+6.0/5.0*t*t12+3.0/10.0*t14;
3897       t18 = t2*r-30.0/23.0*t2+150.0/253.0*t3-200.0/1771.0*t1+15.0/1771.0*r-6.0/
3898 33649.0;
3899       t22 = t18*t9;
3900       t24 = t22*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
3901       drv[0] = (5.0*t2-120.0/23.0*t3+450.0/253.0*t1-400.0/1771.0*r+15.0/1771.0)
3902 *t9*t15+t18*(6.0/11.0*s+6.0/55.0*r-6.0/55.0)*t15+t24;
3903       drv[1] = t18*(2.0*s+6.0/11.0*r-6.0/11.0)*t15+t24;
3904       drv[2] = t22*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
3905    /* p=13 5 3 1 */
3906    } else if( i==5 && j==3 && k==1 ) {
3907       t1 = r*r;
3908       t2 = t1*t1;
3909       t3 = t1*r;
3910       t5 = s*s;
3911       t7 = r-1.0;
3912       t9 = t7*t7;
3913       t12 = t5*s+12.0/11.0*t5*t7+18.0/55.0*s*t9+4.0/165.0*t7*t9;
3914       t14 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
3915       t17 = t2*r-30.0/23.0*t2+150.0/253.0*t3-200.0/1771.0*t1+15.0/1771.0*r-6.0/
3916 33649.0;
3917       t18 = s*t7;
3918       t22 = t17*t12;
3919       drv[0] = (5.0*t2-120.0/23.0*t3+450.0/253.0*t1-400.0/1771.0*r+15.0/1771.0)
3920 *t12*t14+t17*(12.0/11.0*t5+36.0/55.0*t18+4.0/55.0*t9)*t14+2.0/3.0*t22;
3921       drv[1] = t17*(3.0*t5+24.0/11.0*t18+18.0/55.0*t9)*t14+2.0/3.0*t22;
3922       drv[2] = t22;
3923    /* p=13 5 4 0 */
3924    } else if( i==5 && j==4 && k==0 ) {
3925       t1 = r*r;
3926       t2 = t1*t1;
3927       t3 = t1*r;
3928       t5 = s*s;
3929       t6 = t5*t5;
3930       t7 = t5*s;
3931       t8 = r-1.0;
3932       t10 = t8*t8;
3933       t12 = t10*t8;
3934       t14 = t10*t10;
3935       t18 = t2*r-30.0/23.0*t2+150.0/253.0*t3-200.0/1771.0*t1+15.0/1771.0*r-6.0/
3936 33649.0;
3937       t19 = t5*t8;
3938       t20 = s*t10;
3939       drv[0] = (5.0*t2-120.0/23.0*t3+450.0/253.0*t1-400.0/1771.0*r+15.0/1771.0)
3940 *(t6+20.0/11.0*t7*t8+12.0/11.0*t5*t10+8.0/33.0*s*t12+t14/66)+t18*(20.0/11.0*t7+
3941 24.0/11.0*t19+8.0/11.0*t20+2.0/33.0*t12);
3942       drv[1] = t18*(4.0*t7+60.0/11.0*t19+24.0/11.0*t20+8.0/33.0*t12);
3943       drv[2] = 0.0;
3944    /* p=13 6 0 3 */
3945    } else if( i==6 && j==0 && k==3 ) {
3946       t1 = r*r;
3947       t2 = t1*t1;
3948       t3 = t2*r;
3949       t4 = t1*r;
3950       t6 = t*t;
3951       t8 = s+r-1.0;
3952       t10 = t8*t8;
3953       t16 = t2*t1-42.0/23.0*t3+315.0/253.0*t2-100.0/253.0*t4+15.0/253.0*t1-18.0
3954 /4807.0*r+1.0/14421.0;
3955       t17 = t*t8;
3956       t19 = t16*(12.0/7.0*t6+12.0/7.0*t17+12.0/35.0*t10);
3957       drv[0] = (6.0*t3-210.0/23.0*t2+1260.0/253.0*t4-300.0/253.0*t1+30.0/253.0*
3958 r-18.0/4807.0)*(t6*t+12.0/7.0*t6*t8+6.0/7.0*t*t10+4.0/35.0*t10*t8)+t19;
3959       drv[1] = t19;
3960       drv[2] = t16*(3.0*t6+24.0/7.0*t17+6.0/7.0*t10);
3961    /* p=13 6 1 2 */
3962    } else if( i==6 && j==1 && k==2 ) {
3963       t1 = r*r;
3964       t2 = t1*t1;
3965       t3 = t2*r;
3966       t4 = t1*r;
3967       t6 = s+2.0/9.0*r-2.0/9.0;
3968       t8 = t*t;
3969       t9 = s+r-1.0;
3970       t11 = t9*t9;
3971       t12 = t8+6.0/5.0*t*t9+3.0/10.0*t11;
3972       t15 = t2*t1-42.0/23.0*t3+315.0/253.0*t2-100.0/253.0*t4+15.0/253.0*t1-18.0
3973 /4807.0*r+1.0/14421.0;
3974       t16 = t15*t12;
3975       t17 = t15*t6;
3976       t19 = t17*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
3977       drv[0] = (6.0*t3-210.0/23.0*t2+1260.0/253.0*t4-300.0/253.0*t1+30.0/253.0*
3978 r-18.0/4807.0)*t6*t12+2.0/9.0*t16+t19;
3979       drv[1] = t16+t19;
3980       drv[2] = t17*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
3981    /* p=13 6 2 1 */
3982    } else if( i==6 && j==2 && k==1 ) {
3983       t1 = r*r;
3984       t2 = t1*t1;
3985       t3 = t2*r;
3986       t4 = t1*r;
3987       t6 = s*s;
3988       t7 = r-1.0;
3989       t9 = t7*t7;
3990       t10 = t6+2.0/3.0*s*t7+t9/12;
3991       t12 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
3992       t15 = t2*t1-42.0/23.0*t3+315.0/253.0*t2-100.0/253.0*t4+15.0/253.0*t1-18.0
3993 /4807.0*r+1.0/14421.0;
3994       t19 = t15*t10;
3995       drv[0] = (6.0*t3-210.0/23.0*t2+1260.0/253.0*t4-300.0/253.0*t1+30.0/253.0*
3996 r-18.0/4807.0)*t10*t12+t15*(2.0/3.0*s+r/6-1.0/6.0)*t12+2.0/3.0*t19;
3997       drv[1] = t15*(2.0*s+2.0/3.0*r-2.0/3.0)*t12+2.0/3.0*t19;
3998       drv[2] = t19;
3999    /* p=13 6 3 0 */
4000    } else if( i==6 && j==3 && k==0 ) {
4001       t1 = r*r;
4002       t2 = t1*t1;
4003       t3 = t2*r;
4004       t4 = t1*r;
4005       t6 = s*s;
4006       t8 = r-1.0;
4007       t10 = t8*t8;
4008       t16 = t2*t1-42.0/23.0*t3+315.0/253.0*t2-100.0/253.0*t4+15.0/253.0*t1-18.0
4009 /4807.0*r+1.0/14421.0;
4010       t17 = s*t8;
4011       drv[0] = (6.0*t3-210.0/23.0*t2+1260.0/253.0*t4-300.0/253.0*t1+30.0/253.0*
4012 r-18.0/4807.0)*(t6*s+4.0/3.0*t6*t8+s*t10/2+t10*t8/21)+t16*(4.0/3.0*t6+t17+t10/7
4013 );
4014       drv[1] = t16*(3.0*t6+8.0/3.0*t17+t10/2);
4015       drv[2] = 0.0;
4016    /* p=13 7 0 2 */
4017    } else if( i==7 && j==0 && k==2 ) {
4018       t1 = r*r;
4019       t2 = t1*t1;
4020       t3 = t2*t1;
4021       t4 = t2*r;
4022       t5 = t1*r;
4023       t7 = t*t;
4024       t8 = s+r-1.0;
4025       t10 = t8*t8;
4026       t14 = t2*t5-56.0/23.0*t3+588.0/253.0*t4-280.0/253.0*t2+70.0/253.0*t5
4027 -168.0/4807.0*t1+28.0/14421.0*r-8.0/245157.0;
4028       t16 = t14*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
4029       drv[0] = (7.0*t3-336.0/23.0*t4+2940.0/253.0*t2-1120.0/253.0*t5+210.0/
4030 253.0*t1-336.0/4807.0*r+28.0/14421.0)*(t7+6.0/5.0*t*t8+3.0/10.0*t10)+t16;
4031       drv[1] = t16;
4032       drv[2] = t14*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
4033    /* p=13 7 1 1 */
4034    } else if( i==7 && j==1 && k==1 ) {
4035       t1 = r*r;
4036       t2 = t1*t1;
4037       t3 = t2*t1;
4038       t4 = t2*r;
4039       t5 = t1*r;
4040       t7 = s+2.0/7.0*r-2.0/7.0;
4041       t9 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
4042       t12 = t2*t5-56.0/23.0*t3+588.0/253.0*t4-280.0/253.0*t2+70.0/253.0*t5
4043 -168.0/4807.0*t1+28.0/14421.0*r-8.0/245157.0;
4044       t13 = t12*t9;
4045       t14 = t12*t7;
4046       drv[0] = (7.0*t3-336.0/23.0*t4+2940.0/253.0*t2-1120.0/253.0*t5+210.0/
4047 253.0*t1-336.0/4807.0*r+28.0/14421.0)*t7*t9+2.0/7.0*t13+2.0/3.0*t14;
4048       drv[1] = t13+2.0/3.0*t14;
4049       drv[2] = t14;
4050    /* p=13 7 2 0 */
4051    } else if( i==7 && j==2 && k==0 ) {
4052       t1 = r*r;
4053       t2 = t1*t1;
4054       t3 = t2*t1;
4055       t4 = t2*r;
4056       t5 = t1*r;
4057       t7 = s*s;
4058       t8 = r-1.0;
4059       t10 = t8*t8;
4060       t14 = t2*t5-56.0/23.0*t3+588.0/253.0*t4-280.0/253.0*t2+70.0/253.0*t5
4061 -168.0/4807.0*t1+28.0/14421.0*r-8.0/245157.0;
4062       drv[0] = (7.0*t3-336.0/23.0*t4+2940.0/253.0*t2-1120.0/253.0*t5+210.0/
4063 253.0*t1-336.0/4807.0*r+28.0/14421.0)*(t7+6.0/7.0*s*t8+t10/7)+t14*(6.0/7.0*s+
4064 2.0/7.0*r-2.0/7.0);
4065       drv[1] = t14*(2.0*s+6.0/7.0*r-6.0/7.0);
4066       drv[2] = 0.0;
4067    /* p=13 8 0 1 */
4068    } else if( i==8 && j==0 && k==1 ) {
4069       t1 = r*r;
4070       t2 = t1*r;
4071       t3 = t1*t1;
4072       t4 = t3*t2;
4073       t5 = t3*t1;
4074       t6 = t3*r;
4075       t10 = t3*t3;
4076       drv[0] = (8.0*t4-504.0/23.0*t5+6048.0/253.0*t6-3360.0/253.0*t3+1008.0/
4077 253.0*t2-3024.0/4807.0*t1+224.0/4807.0*r-96.0/81719.0)*(t+2.0/3.0*s+2.0/3.0*r
4078 -2.0/3.0)+2.0/3.0*t10-48.0/23.0*t4+672.0/253.0*t5-448.0/253.0*t6+168.0/253.0*t3
4079 -672.0/4807.0*t2+224.0/14421.0*t1-64.0/81719.0*r+1.0/81719.0;
4080       drv[1] = 2.0/3.0*t10-48.0/23.0*t4+672.0/253.0*t5-448.0/253.0*t6+168.0/
4081 253.0*t3-672.0/4807.0*t2+224.0/14421.0*t1-64.0/81719.0*r+1.0/81719.0;
4082       drv[2] = t10-72.0/23.0*t4+1008.0/253.0*t5-672.0/253.0*t6+252.0/253.0*t3
4083 -1008.0/4807.0*t2+112.0/4807.0*t1-96.0/81719.0*r+3.0/163438.0;
4084    /* p=13 8 1 0 */
4085    } else if( i==8 && j==1 && k==0 ) {
4086       t1 = r*r;
4087       t2 = t1*r;
4088       t3 = t1*t1;
4089       t4 = t3*t2;
4090       t5 = t3*t1;
4091       t6 = t3*r;
4092       t10 = t3*t3;
4093       drv[0] = (8.0*t4-504.0/23.0*t5+6048.0/253.0*t6-3360.0/253.0*t3+1008.0/
4094 253.0*t2-3024.0/4807.0*t1+224.0/4807.0*r-96.0/81719.0)*(s+2.0/5.0*r-2.0/5.0)+
4095 2.0/5.0*t10-144.0/115.0*t4+2016.0/1265.0*t5-1344.0/1265.0*t6+504.0/1265.0*t3
4096 -2016.0/24035.0*t2+224.0/24035.0*t1-192.0/408595.0*r+3.0/408595.0;
4097       drv[1] = t10-72.0/23.0*t4+1008.0/253.0*t5-672.0/253.0*t6+252.0/253.0*t3
4098 -1008.0/4807.0*t2+112.0/4807.0*t1-96.0/81719.0*r+3.0/163438.0;
4099       drv[2] = 0.0;
4100    /* p=13 9 0 0 */
4101    } else if( i==9 && j==0 && k==0 ) {
4102       t1 = r*r;
4103       t2 = t1*t1;
4104       t3 = t2*t2;
4105       t4 = t1*r;
4106       drv[0] = 9.0*t3-720.0/23.0*t4*t2+11340.0/253.0*t2*t1-8640.0/253.0*t2*r+
4107 3780.0/253.0*t2-18144.0/4807.0*t4+2520.0/4807.0*t1-2880.0/81719.0*r+135.0/
4108 163438.0;
4109       drv[1] = 0.0;
4110       drv[2] = 0.0;
4111    /* p=14 0 0 10 */
4112    } else if( i==0 && j==0 && k==10 ) {
4113       t1 = t*t;
4114       t2 = t1*t1;
4115       t3 = t2*t2;
4116       t4 = t3*t;
4117       t5 = s+r-1.0;
4118       t6 = t3*t5;
4119       t7 = t1*t;
4120       t9 = t5*t5;
4121       t10 = t2*t7*t9;
4122       t12 = t9*t5;
4123       t13 = t2*t1*t12;
4124       t15 = t9*t9;
4125       t16 = t2*t*t15;
4126       t18 = t2*t15*t5;
4127       t20 = t7*t15*t9;
4128       t22 = t1*t15*t12;
4129       t23 = t15*t15;
4130       t24 = t*t23;
4131       t25 = t23*t5;
4132       t26 = 110.0/21.0*t4+165.0/7.0*t6+5940.0/133.0*t10+880.0/19.0*t13+9240.0/
4133 323.0*t16+3465.0/323.0*t18+770.0/323.0*t20+660.0/2261.0*t22+495.0/29393.0*t24+
4134 55.0/176358.0*t25;
4135       drv[0] = t26;
4136       drv[1] = t26;
4137       drv[2] = 10.0*t4+330.0/7.0*t6+660.0/7.0*t10+1980.0/19.0*t13+1320.0/19.0*
4138 t16+9240.0/323.0*t18+2310.0/323.0*t20+330.0/323.0*t22+165.0/2261.0*t24+55.0/
4139 29393.0*t25;
4140    /* p=14 0 1 9 */
4141    } else if( i==0 && j==1 && k==9 ) {
4142       t1 = t*t;
4143       t2 = t1*t1;
4144       t3 = t2*t2;
4145       t4 = t3*t;
4146       t5 = s+r-1.0;
4147       t6 = t3*t5;
4148       t7 = t1*t;
4149       t8 = t2*t7;
4150       t9 = t5*t5;
4151       t10 = t8*t9;
4152       t11 = t2*t1;
4153       t12 = t9*t5;
4154       t13 = t11*t12;
4155       t14 = t2*t;
4156       t15 = t9*t9;
4157       t16 = t14*t15;
4158       t17 = t15*t5;
4159       t18 = t2*t17;
4160       t19 = t15*t9;
4161       t20 = t7*t19;
4162       t21 = t15*t12;
4163       t22 = t1*t21;
4164       t23 = t15*t15;
4165       t24 = t*t23;
4166       t25 = t23*t5;
4167       t26 = s+2.0/23.0*r-2.0/23.0;
4168       t27 = t8*t5;
4169       t28 = t11*t9;
4170       t29 = t14*t12;
4171       t30 = t2*t15;
4172       t31 = t7*t17;
4173       t32 = t1*t19;
4174       t33 = t*t21;
4175       t35 = t26*(90.0/19.0*t3+360.0/19.0*t27+10080.0/323.0*t28+8820.0/323.0*t29
4176 +4410.0/323.0*t30+1260.0/323.0*t31+2520.0/4199.0*t32+180.0/4199.0*t33+45.0/
4177 46189.0*t23);
4178       t36 = 2.0/23.0*t4+180.0/437.0*t6+360.0/437.0*t10+6720.0/7429.0*t13+4410.0
4179 /7429.0*t16+1764.0/7429.0*t18+420.0/7429.0*t20+720.0/96577.0*t22+45.0/96577.0*
4180 t24+10.0/1062347.0*t25+t35;
4181       t37 = t4+90.0/19.0*t6+180.0/19.0*t10+3360.0/323.0*t13+2205.0/323.0*t16+
4182 882.0/323.0*t18+210.0/323.0*t20+360.0/4199.0*t22+45.0/8398.0*t24+5.0/46189.0*
4183 t25+t35;
4184       drv[0] = t36;
4185       drv[1] = t37;
4186       drv[2] = t26*(9.0*t3+720.0/19.0*t27+1260.0/19.0*t28+20160.0/323.0*t29+
4187 11025.0/323.0*t30+3528.0/323.0*t31+630.0/323.0*t32+720.0/4199.0*t33+45.0/8398.0
4188 *t23);
4189    /* p=14 0 2 8 */
4190    } else if( i==0 && j==2 && k==8 ) {
4191       t2 = t*t;
4192       t3 = t2*t2;
4193       t4 = t3*t3;
4194       t5 = t2*t;
4195       t6 = t3*t5;
4196       t7 = s+r-1.0;
4197       t9 = t3*t2;
4198       t10 = t7*t7;
4199       t12 = t3*t;
4200       t13 = t10*t7;
4201       t15 = t10*t10;
4202       t17 = t15*t7;
4203       t19 = t15*t10;
4204       t21 = t15*t13;
4205       t23 = t15*t15;
4206       t24 = t4+72.0/17.0*t6*t7+126.0/17.0*t9*t10+588.0/85.0*t12*t13+63.0/17.0*
4207 t3*t15+252.0/221.0*t5*t17+42.0/221.0*t2*t19+36.0/2431.0*t*t21+9.0/24310.0*t23;
4208       t26 = s*s;
4209       t27 = r-1.0;
4210       t29 = t27*t27;
4211       t30 = t26+6.0/23.0*s*t27+3.0/253.0*t29;
4212       t31 = t9*t7;
4213       t32 = t12*t10;
4214       t33 = t3*t13;
4215       t34 = t15*t5;
4216       t35 = t2*t17;
4217       t36 = t*t19;
4218       t38 = t30*(72.0/17.0*t6+252.0/17.0*t31+1764.0/85.0*t32+252.0/17.0*t33+
4219 1260.0/221.0*t34+252.0/221.0*t35+252.0/2431.0*t36+36.0/12155.0*t21);
4220       drv[0] = (6.0/23.0*s+6.0/253.0*r-6.0/253.0)*t24+t38;
4221       drv[1] = (2.0*s+6.0/23.0*r-6.0/23.0)*t24+t38;
4222       drv[2] = t30*(8.0*t6+504.0/17.0*t31+756.0/17.0*t32+588.0/17.0*t33+252.0/
4223 17.0*t34+756.0/221.0*t35+84.0/221.0*t36+36.0/2431.0*t21);
4224    /* p=14 0 3 7 */
4225    } else if( i==0 && j==3 && k==7 ) {
4226       t1 = s*s;
4227       t2 = r-1.0;
4228       t3 = s*t2;
4229       t4 = t2*t2;
4230       t6 = t*t;
4231       t7 = t6*t;
4232       t8 = t6*t6;
4233       t10 = t8*t6;
4234       t11 = s+r-1.0;
4235       t13 = t8*t;
4236       t14 = t11*t11;
4237       t16 = t14*t11;
4238       t18 = t14*t14;
4239       t20 = t18*t11;
4240       t22 = t18*t14;
4241       t25 = t8*t7+56.0/15.0*t10*t11+28.0/5.0*t13*t14+56.0/13.0*t8*t16+70.0/39.0
4242 *t7*t18+56.0/143.0*t6*t20+28.0/715.0*t*t22+8.0/6435.0*t18*t16;
4243       t31 = t1*s+12.0/23.0*t2*t1+18.0/253.0*s*t4+4.0/1771.0*t4*t2;
4244       t32 = t13*t11;
4245       t33 = t8*t14;
4246       t34 = t7*t16;
4247       t35 = t6*t18;
4248       t36 = t*t20;
4249       t38 = t31*(56.0/15.0*t10+56.0/5.0*t32+168.0/13.0*t33+280.0/39.0*t34+280.0
4250 /143.0*t35+168.0/715.0*t36+56.0/6435.0*t22);
4251       drv[0] = (12.0/23.0*t1+36.0/253.0*t3+12.0/1771.0*t4)*t25+t38;
4252       drv[1] = (3.0*t1+24.0/23.0*t3+18.0/253.0*t4)*t25+t38;
4253       drv[2] = t31*(7.0*t10+112.0/5.0*t32+28.0*t33+224.0/13.0*t34+70.0/13.0*t35
4254 +112.0/143.0*t36+28.0/715.0*t22);
4255    /* p=14 0 4 6 */
4256    } else if( i==0 && j==4 && k==6 ) {
4257       t1 = s*s;
4258       t2 = t1*s;
4259       t3 = r-1.0;
4260       t4 = t3*t1;
4261       t5 = t3*t3;
4262       t6 = s*t5;
4263       t7 = t5*t3;
4264       t9 = t*t;
4265       t10 = t9*t9;
4266       t12 = t10*t;
4267       t13 = s+r-1.0;
4268       t15 = t13*t13;
4269       t17 = t9*t;
4270       t18 = t15*t13;
4271       t20 = t15*t15;
4272       t22 = t20*t13;
4273       t25 = t10*t9+42.0/13.0*t12*t13+105.0/26.0*t10*t15+350.0/143.0*t17*t18+
4274 105.0/143.0*t9*t20+14.0/143.0*t*t22+7.0/1716.0*t20*t15;
4275       t27 = t1*t1;
4276       t31 = t5*t5;
4277       t32 = t27+20.0/23.0*t3*t2+60.0/253.0*t1*t5+40.0/1771.0*s*t7+t31/1771;
4278       t33 = t10*t13;
4279       t34 = t17*t15;
4280       t35 = t9*t18;
4281       t36 = t*t20;
4282       t38 = t32*(42.0/13.0*t12+105.0/13.0*t33+1050.0/143.0*t34+420.0/143.0*t35+
4283 70.0/143.0*t36+7.0/286.0*t22);
4284       drv[0] = (20.0/23.0*t2+120.0/253.0*t4+120.0/1771.0*t6+4.0/1771.0*t7)*t25+
4285 t38;
4286       drv[1] = (4.0*t2+60.0/23.0*t4+120.0/253.0*t6+40.0/1771.0*t7)*t25+t38;
4287       drv[2] = t32*(6.0*t12+210.0/13.0*t33+210.0/13.0*t34+1050.0/143.0*t35+
4288 210.0/143.0*t36+14.0/143.0*t22);
4289    /* p=14 0 5 5 */
4290    } else if( i==0 && j==5 && k==5 ) {
4291       t1 = s*s;
4292       t2 = t1*t1;
4293       t3 = t1*s;
4294       t4 = r-1.0;
4295       t5 = t3*t4;
4296       t6 = t4*t4;
4297       t7 = t1*t6;
4298       t8 = t6*t4;
4299       t9 = s*t8;
4300       t10 = t6*t6;
4301       t12 = t*t;
4302       t13 = t12*t12;
4303       t15 = s+r-1.0;
4304       t17 = t12*t;
4305       t18 = t15*t15;
4306       t20 = t18*t15;
4307       t22 = t18*t18;
4308       t25 = t13*t+30.0/11.0*t15*t13+30.0/11.0*t17*t18+40.0/33.0*t12*t20+5.0/
4309 22.0*t*t22+t22*t15/77;
4310       t33 = s*t2+30.0/23.0*t4*t2+150.0/253.0*t3*t6+200.0/1771.0*t1*t8+15.0/
4311 1771.0*s*t10+6.0/33649.0*t10*t4;
4312       t34 = t17*t15;
4313       t35 = t12*t18;
4314       t36 = t*t20;
4315       t38 = t33*(30.0/11.0*t13+60.0/11.0*t34+40.0/11.0*t35+10.0/11.0*t36+5.0/
4316 77.0*t22);
4317       drv[0] = (30.0/23.0*t2+300.0/253.0*t5+600.0/1771.0*t7+60.0/1771.0*t9+30.0
4318 /33649.0*t10)*t25+t38;
4319       drv[1] = (5.0*t2+120.0/23.0*t5+450.0/253.0*t7+400.0/1771.0*t9+15.0/1771.0
4320 *t10)*t25+t38;
4321       drv[2] = t33*(5.0*t13+120.0/11.0*t34+90.0/11.0*t35+80.0/33.0*t36+5.0/22.0
4322 *t22);
4323    /* p=14 0 6 4 */
4324    } else if( i==0 && j==6 && k==4 ) {
4325       t1 = s*s;
4326       t2 = t1*t1;
4327       t3 = t2*s;
4328       t4 = r-1.0;
4329       t5 = t4*t2;
4330       t6 = t1*s;
4331       t7 = t4*t4;
4332       t8 = t6*t7;
4333       t9 = t7*t4;
4334       t10 = t1*t9;
4335       t11 = t7*t7;
4336       t12 = s*t11;
4337       t13 = t11*t4;
4338       t15 = t*t;
4339       t16 = t15*t15;
4340       t17 = t15*t;
4341       t18 = s+r-1.0;
4342       t20 = t18*t18;
4343       t22 = t20*t18;
4344       t24 = t20*t20;
4345       t25 = t16+20.0/9.0*t17*t18+5.0/3.0*t20*t15+10.0/21.0*t*t22+5.0/126.0*t24;
4346       t34 = t2*t1+42.0/23.0*t3*t4+315.0/253.0*t2*t7+100.0/253.0*t6*t9+15.0/
4347 253.0*t1*t11+18.0/4807.0*s*t13+t11*t7/14421;
4348       t35 = t18*t15;
4349       t36 = t*t20;
4350       t38 = t34*(20.0/9.0*t17+10.0/3.0*t35+10.0/7.0*t36+10.0/63.0*t22);
4351       drv[0] = (42.0/23.0*t3+630.0/253.0*t5+300.0/253.0*t8+60.0/253.0*t10+90.0/
4352 4807.0*t12+2.0/4807.0*t13)*t25+t38;
4353       drv[1] = (6.0*t3+210.0/23.0*t5+1260.0/253.0*t8+300.0/253.0*t10+30.0/253.0
4354 *t12+18.0/4807.0*t13)*t25+t38;
4355       drv[2] = t34*(4.0*t17+20.0/3.0*t35+10.0/3.0*t36+10.0/21.0*t22);
4356    /* p=14 0 7 3 */
4357    } else if( i==0 && j==7 && k==3 ) {
4358       t1 = s*s;
4359       t2 = t1*t1;
4360       t3 = t2*t1;
4361       t4 = t2*s;
4362       t5 = r-1.0;
4363       t6 = t4*t5;
4364       t7 = t5*t5;
4365       t8 = t2*t7;
4366       t9 = t1*s;
4367       t10 = t7*t5;
4368       t11 = t9*t10;
4369       t12 = t7*t7;
4370       t13 = t1*t12;
4371       t14 = t12*t5;
4372       t15 = s*t14;
4373       t16 = t12*t7;
4374       t18 = t*t;
4375       t20 = s+r-1.0;
4376       t22 = t20*t20;
4377       t25 = t18*t+12.0/7.0*t20*t18+6.0/7.0*t*t22+4.0/35.0*t22*t20;
4378       t35 = t2*t9+56.0/23.0*t3*t5+588.0/253.0*t7*t4+280.0/253.0*t2*t10+70.0/
4379 253.0*t9*t12+168.0/4807.0*t1*t14+28.0/14421.0*s*t16+8.0/245157.0*t12*t10;
4380       t36 = t*t20;
4381       t38 = t35*(12.0/7.0*t18+12.0/7.0*t36+12.0/35.0*t22);
4382       drv[0] = (56.0/23.0*t3+1176.0/253.0*t6+840.0/253.0*t8+280.0/253.0*t11+
4383 840.0/4807.0*t13+56.0/4807.0*t15+56.0/245157.0*t16)*t25+t38;
4384       drv[1] = (7.0*t3+336.0/23.0*t6+2940.0/253.0*t8+1120.0/253.0*t11+210.0/
4385 253.0*t13+336.0/4807.0*t15+28.0/14421.0*t16)*t25+t38;
4386       drv[2] = t35*(3.0*t18+24.0/7.0*t36+6.0/7.0*t22);
4387    /* p=14 0 8 2 */
4388    } else if( i==0 && j==8 && k==2 ) {
4389       t1 = s*s;
4390       t2 = t1*s;
4391       t3 = t1*t1;
4392       t4 = t3*t2;
4393       t5 = t3*t1;
4394       t6 = r-1.0;
4395       t7 = t5*t6;
4396       t8 = t3*s;
4397       t9 = t6*t6;
4398       t10 = t8*t9;
4399       t11 = t6*t9;
4400       t12 = t3*t11;
4401       t13 = t9*t9;
4402       t14 = t2*t13;
4403       t15 = t13*t6;
4404       t16 = t1*t15;
4405       t17 = t13*t9;
4406       t18 = s*t17;
4407       t19 = t13*t11;
4408       t21 = t*t;
4409       t22 = s+r-1.0;
4410       t24 = t22*t22;
4411       t25 = t21+6.0/5.0*t*t22+3.0/10.0*t24;
4412       t27 = t3*t3;
4413       t35 = t13*t13;
4414       t36 = t27+72.0/23.0*t4*t6+1008.0/253.0*t5*t9+672.0/253.0*t8*t11+252.0/
4415 253.0*t3*t13+1008.0/4807.0*t2*t15+112.0/4807.0*t1*t17+96.0/81719.0*s*t19+3.0/
4416 163438.0*t35;
4417       t38 = t36*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
4418       drv[0] = (72.0/23.0*t4+2016.0/253.0*t7+2016.0/253.0*t10+1008.0/253.0*t12+
4419 5040.0/4807.0*t14+672.0/4807.0*t16+672.0/81719.0*t18+12.0/81719.0*t19)*t25+t38;
4420       drv[1] = (8.0*t4+504.0/23.0*t7+6048.0/253.0*t10+3360.0/253.0*t12+1008.0/
4421 253.0*t14+3024.0/4807.0*t16+224.0/4807.0*t18+96.0/81719.0*t19)*t25+t38;
4422       drv[2] = t36*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
4423    /* p=14 0 9 1 */
4424    } else if( i==0 && j==9 && k==1 ) {
4425       t1 = s*s;
4426       t2 = t1*t1;
4427       t3 = t2*t2;
4428       t4 = t1*s;
4429       t5 = t4*t2;
4430       t6 = r-1.0;
4431       t7 = t5*t6;
4432       t8 = t2*t1;
4433       t9 = t6*t6;
4434       t10 = t8*t9;
4435       t11 = t2*s;
4436       t12 = t9*t6;
4437       t13 = t11*t12;
4438       t14 = t9*t9;
4439       t15 = t2*t14;
4440       t16 = t14*t6;
4441       t17 = t4*t16;
4442       t18 = t14*t9;
4443       t19 = t1*t18;
4444       t20 = t14*t12;
4445       t21 = s*t20;
4446       t22 = t14*t14;
4447       t24 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
4448       t26 = t3*s;
4449       t27 = t3*t6;
4450       t28 = t5*t9;
4451       t29 = t8*t12;
4452       t30 = t11*t14;
4453       t31 = t2*t16;
4454       t32 = t4*t18;
4455       t33 = t1*t20;
4456       t34 = s*t22;
4457       t35 = t22*t6;
4458       t36 = (90.0/23.0*t3+3240.0/253.0*t7+4320.0/253.0*t10+3024.0/253.0*t13+
4459 22680.0/4807.0*t15+5040.0/4807.0*t17+10080.0/81719.0*t19+540.0/81719.0*t21+9.0/
4460 81719.0*t22)*t24+2.0/3.0*t26+60.0/23.0*t27+1080.0/253.0*t28+960.0/253.0*t29+
4461 504.0/253.0*t30+3024.0/4807.0*t31+560.0/4807.0*t32+960.0/81719.0*t33+45.0/
4462 81719.0*t34+2.0/245157.0*t35;
4463       t39 = (9.0*t3+720.0/23.0*t7+11340.0/253.0*t10+8640.0/253.0*t13+3780.0/
4464 253.0*t15+18144.0/4807.0*t17+2520.0/4807.0*t19+2880.0/81719.0*t21+135.0/
4465 163438.0*t22)*t24+2.0/3.0*t26+60.0/23.0*t27+1080.0/253.0*t28+960.0/253.0*t29+
4466 504.0/253.0*t30+3024.0/4807.0*t31+560.0/4807.0*t32+960.0/81719.0*t33+45.0/
4467 81719.0*t34+2.0/245157.0*t35;
4468       drv[0] = t36;
4469       drv[1] = t39;
4470       drv[2] = t26+90.0/23.0*t27+1620.0/253.0*t28+1440.0/253.0*t29+756.0/253.0*
4471 t30+4536.0/4807.0*t31+840.0/4807.0*t32+1440.0/81719.0*t33+135.0/163438.0*t34+
4472 t35/81719;
4473    /* p=14 0 10 0 */
4474    } else if( i==0 && j==10 && k==0 ) {
4475       t1 = s*s;
4476       t2 = t1*t1;
4477       t3 = t2*t2;
4478       t4 = t3*s;
4479       t5 = r-1.0;
4480       t6 = t3*t5;
4481       t7 = t1*s;
4482       t9 = t5*t5;
4483       t10 = t2*t7*t9;
4484       t12 = t5*t9;
4485       t13 = t2*t1*t12;
4486       t15 = t9*t9;
4487       t16 = t2*s*t15;
4488       t18 = t2*t15*t5;
4489       t20 = t7*t15*t9;
4490       t22 = t1*t15*t12;
4491       t23 = t15*t15;
4492       t24 = s*t23;
4493       t25 = t23*t5;
4494       drv[0] = 110.0/23.0*t4+450.0/23.0*t6+5400.0/161.0*t10+720.0/23.0*t13+
4495 7560.0/437.0*t16+2520.0/437.0*t18+8400.0/7429.0*t20+900.0/7429.0*t22+45.0/
4496 7429.0*t24+5.0/52003.0*t25;
4497       drv[1] = 10.0*t4+990.0/23.0*t6+1800.0/23.0*t10+1800.0/23.0*t13+1080.0/
4498 23.0*t16+7560.0/437.0*t18+1680.0/437.0*t20+3600.0/7429.0*t22+225.0/7429.0*t24+
4499 5.0/7429.0*t25;
4500       drv[2] = 0.0;
4501    /* p=14 1 0 9 */
4502    } else if( i==1 && j==0 && k==9 ) {
4503       t1 = t*t;
4504       t2 = t1*t1;
4505       t3 = t2*t2;
4506       t5 = s+r-1.0;
4507       t7 = t1*t;
4508       t8 = t2*t7;
4509       t9 = t5*t5;
4510       t11 = t2*t1;
4511       t12 = t5*t9;
4512       t14 = t2*t;
4513       t15 = t9*t9;
4514       t17 = t15*t5;
4515       t19 = t15*t9;
4516       t21 = t15*t12;
4517       t23 = t15*t15;
4518       t26 = r-2.0/25.0;
4519       t27 = t8*t5;
4520       t28 = t11*t9;
4521       t29 = t14*t12;
4522       t30 = t2*t15;
4523       t31 = t7*t17;
4524       t32 = t1*t19;
4525       t33 = t*t21;
4526       t35 = t26*(90.0/19.0*t3+360.0/19.0*t27+10080.0/323.0*t28+8820.0/323.0*t29
4527 +4410.0/323.0*t30+1260.0/323.0*t31+2520.0/4199.0*t32+180.0/4199.0*t33+45.0/
4528 46189.0*t23);
4529       t36 = t3*t+90.0/19.0*t3*t5+180.0/19.0*t8*t9+3360.0/323.0*t11*t12+2205.0/
4530 323.0*t14*t15+882.0/323.0*t2*t17+210.0/323.0*t7*t19+360.0/4199.0*t1*t21+45.0/
4531 8398.0*t*t23+5.0/46189.0*t23*t5+t35;
4532       drv[0] = t36;
4533       drv[1] = t35;
4534       drv[2] = t26*(9.0*t3+720.0/19.0*t27+1260.0/19.0*t28+20160.0/323.0*t29+
4535 11025.0/323.0*t30+3528.0/323.0*t31+630.0/323.0*t32+720.0/4199.0*t33+45.0/8398.0
4536 *t23);
4537    /* p=14 1 1 8 */
4538    } else if( i==1 && j==1 && k==8 ) {
4539       t1 = s+2.0/21.0*r-2.0/21.0;
4540       t2 = t*t;
4541       t3 = t2*t2;
4542       t4 = t3*t3;
4543       t5 = t2*t;
4544       t6 = t3*t5;
4545       t7 = s+r-1.0;
4546       t9 = t3*t2;
4547       t10 = t7*t7;
4548       t12 = t3*t;
4549       t13 = t10*t7;
4550       t15 = t10*t10;
4551       t17 = t15*t7;
4552       t19 = t15*t10;
4553       t21 = t15*t13;
4554       t23 = t15*t15;
4555       t24 = t4+72.0/17.0*t6*t7+126.0/17.0*t9*t10+588.0/85.0*t12*t13+63.0/17.0*
4556 t3*t15+252.0/221.0*t5*t17+42.0/221.0*t2*t19+36.0/2431.0*t*t21+9.0/24310.0*t23;
4557       t26 = r-2.0/25.0;
4558       t27 = t26*t24;
4559       t28 = t26*t1;
4560       t29 = t9*t7;
4561       t30 = t12*t10;
4562       t31 = t3*t13;
4563       t32 = t15*t5;
4564       t33 = t2*t17;
4565       t34 = t*t19;
4566       t36 = t28*(72.0/17.0*t6+252.0/17.0*t29+1764.0/85.0*t30+252.0/17.0*t31+
4567 1260.0/221.0*t32+252.0/221.0*t33+252.0/2431.0*t34+36.0/12155.0*t21);
4568       drv[0] = t1*t24+2.0/21.0*t27+t36;
4569       drv[1] = t27+t36;
4570       drv[2] = t28*(8.0*t6+504.0/17.0*t29+756.0/17.0*t30+588.0/17.0*t31+252.0/
4571 17.0*t32+756.0/221.0*t33+84.0/221.0*t34+36.0/2431.0*t21);
4572    /* p=14 1 2 7 */
4573    } else if( i==1 && j==2 && k==7 ) {
4574       t1 = s*s;
4575       t2 = r-1.0;
4576       t4 = t2*t2;
4577       t5 = t1+2.0/7.0*s*t2+t4/70;
4578       t6 = t*t;
4579       t7 = t6*t;
4580       t8 = t6*t6;
4581       t10 = t8*t6;
4582       t11 = s+r-1.0;
4583       t13 = t8*t;
4584       t14 = t11*t11;
4585       t16 = t14*t11;
4586       t18 = t14*t14;
4587       t20 = t18*t11;
4588       t22 = t18*t14;
4589       t25 = t8*t7+56.0/15.0*t10*t11+28.0/5.0*t13*t14+56.0/13.0*t8*t16+70.0/39.0
4590 *t7*t18+56.0/143.0*t6*t20+28.0/715.0*t*t22+8.0/6435.0*t18*t16;
4591       t27 = r-2.0/25.0;
4592       t31 = t27*t5;
4593       t32 = t13*t11;
4594       t33 = t8*t14;
4595       t34 = t7*t16;
4596       t35 = t6*t18;
4597       t36 = t*t20;
4598       t38 = t31*(56.0/15.0*t10+56.0/5.0*t32+168.0/13.0*t33+280.0/39.0*t34+280.0
4599 /143.0*t35+168.0/715.0*t36+56.0/6435.0*t22);
4600       drv[0] = t5*t25+t27*(2.0/7.0*s+r/35-1.0/35.0)*t25+t38;
4601       drv[1] = t27*(2.0*s+2.0/7.0*r-2.0/7.0)*t25+t38;
4602       drv[2] = t31*(7.0*t10+112.0/5.0*t32+28.0*t33+224.0/13.0*t34+70.0/13.0*t35
4603 +112.0/143.0*t36+28.0/715.0*t22);
4604    /* p=14 1 3 6 */
4605    } else if( i==1 && j==3 && k==6 ) {
4606       t1 = s*s;
4607       t3 = r-1.0;
4608       t5 = t3*t3;
4609       t8 = t1*s+4.0/7.0*t3*t1+3.0/35.0*s*t5+2.0/665.0*t5*t3;
4610       t9 = t*t;
4611       t10 = t9*t9;
4612       t12 = t10*t;
4613       t13 = s+r-1.0;
4614       t15 = t13*t13;
4615       t17 = t9*t;
4616       t18 = t15*t13;
4617       t20 = t15*t15;
4618       t22 = t20*t13;
4619       t25 = t10*t9+42.0/13.0*t12*t13+105.0/26.0*t10*t15+350.0/143.0*t17*t18+
4620 105.0/143.0*t9*t20+14.0/143.0*t*t22+7.0/1716.0*t20*t15;
4621       t27 = r-2.0/25.0;
4622       t28 = s*t3;
4623       t32 = t27*t8;
4624       t33 = t10*t13;
4625       t34 = t17*t15;
4626       t35 = t9*t18;
4627       t36 = t*t20;
4628       t38 = t32*(42.0/13.0*t12+105.0/13.0*t33+1050.0/143.0*t34+420.0/143.0*t35+
4629 70.0/143.0*t36+7.0/286.0*t22);
4630       drv[0] = t8*t25+t27*(4.0/7.0*t1+6.0/35.0*t28+6.0/665.0*t5)*t25+t38;
4631       drv[1] = t27*(3.0*t1+8.0/7.0*t28+3.0/35.0*t5)*t25+t38;
4632       drv[2] = t32*(6.0*t12+210.0/13.0*t33+210.0/13.0*t34+1050.0/143.0*t35+
4633 210.0/143.0*t36+14.0/143.0*t22);
4634    /* p=14 1 4 5 */
4635    } else if( i==1 && j==4 && k==5 ) {
4636       t1 = s*s;
4637       t2 = t1*t1;
4638       t3 = t1*s;
4639       t4 = r-1.0;
4640       t6 = t4*t4;
4641       t8 = t6*t4;
4642       t10 = t6*t6;
4643       t11 = t2+20.0/21.0*t3*t4+2.0/7.0*t1*t6+4.0/133.0*s*t8+t10/1197;
4644       t12 = t*t;
4645       t13 = t12*t12;
4646       t15 = s+r-1.0;
4647       t17 = t12*t;
4648       t18 = t15*t15;
4649       t20 = t18*t15;
4650       t22 = t18*t18;
4651       t25 = t13*t+30.0/11.0*t15*t13+30.0/11.0*t17*t18+40.0/33.0*t12*t20+5.0/
4652 22.0*t*t22+t22*t15/77;
4653       t27 = r-2.0/25.0;
4654       t28 = t4*t1;
4655       t29 = s*t6;
4656       t33 = t27*t11;
4657       t34 = t17*t15;
4658       t35 = t12*t18;
4659       t36 = t*t20;
4660       t38 = t33*(30.0/11.0*t13+60.0/11.0*t34+40.0/11.0*t35+10.0/11.0*t36+5.0/
4661 77.0*t22);
4662       drv[0] = t11*t25+t27*(20.0/21.0*t3+4.0/7.0*t28+12.0/133.0*t29+4.0/1197.0*
4663 t8)*t25+t38;
4664       drv[1] = t27*(4.0*t3+20.0/7.0*t28+4.0/7.0*t29+4.0/133.0*t8)*t25+t38;
4665       drv[2] = t33*(5.0*t13+120.0/11.0*t34+90.0/11.0*t35+80.0/33.0*t36+5.0/22.0
4666 *t22);
4667    /* p=14 1 5 4 */
4668    } else if( i==1 && j==5 && k==4 ) {
4669       t1 = s*s;
4670       t2 = t1*t1;
4671       t4 = r-1.0;
4672       t6 = t1*s;
4673       t7 = t4*t4;
4674       t9 = t7*t4;
4675       t11 = t7*t7;
4676       t14 = t2*s+10.0/7.0*t4*t2+5.0/7.0*t6*t7+20.0/133.0*t1*t9+5.0/399.0*s*t11+
4677 2.0/6783.0*t11*t4;
4678       t15 = t*t;
4679       t16 = t15*t15;
4680       t17 = t15*t;
4681       t18 = s+r-1.0;
4682       t20 = t18*t18;
4683       t22 = t20*t18;
4684       t24 = t20*t20;
4685       t25 = t16+20.0/9.0*t17*t18+5.0/3.0*t20*t15+10.0/21.0*t*t22+5.0/126.0*t24;
4686       t27 = r-2.0/25.0;
4687       t28 = t6*t4;
4688       t29 = t1*t7;
4689       t30 = s*t9;
4690       t34 = t27*t14;
4691       t35 = t18*t15;
4692       t36 = t*t20;
4693       t38 = t34*(20.0/9.0*t17+10.0/3.0*t35+10.0/7.0*t36+10.0/63.0*t22);
4694       drv[0] = t14*t25+t27*(10.0/7.0*t2+10.0/7.0*t28+60.0/133.0*t29+20.0/399.0*
4695 t30+10.0/6783.0*t11)*t25+t38;
4696       drv[1] = t27*(5.0*t2+40.0/7.0*t28+15.0/7.0*t29+40.0/133.0*t30+5.0/399.0*
4697 t11)*t25+t38;
4698       drv[2] = t34*(4.0*t17+20.0/3.0*t35+10.0/3.0*t36+10.0/21.0*t22);
4699    /* p=14 1 6 3 */
4700    } else if( i==1 && j==6 && k==3 ) {
4701       t1 = s*s;
4702       t2 = t1*t1;
4703       t4 = t2*s;
4704       t5 = r-1.0;
4705       t7 = t5*t5;
4706       t9 = t1*s;
4707       t10 = t7*t5;
4708       t12 = t7*t7;
4709       t14 = t12*t5;
4710       t17 = t2*t1+2.0*t4*t5+3.0/2.0*t2*t7+10.0/19.0*t9*t10+5.0/57.0*t1*t12+2.0/
4711 323.0*s*t14+t12*t7/7752;
4712       t18 = t*t;
4713       t20 = s+r-1.0;
4714       t22 = t20*t20;
4715       t25 = t18*t+12.0/7.0*t18*t20+6.0/7.0*t*t22+4.0/35.0*t22*t20;
4716       t27 = r-2.0/25.0;
4717       t28 = t2*t5;
4718       t29 = t9*t7;
4719       t30 = t1*t10;
4720       t31 = s*t12;
4721       t35 = t27*t17;
4722       t36 = t*t20;
4723       t38 = t35*(12.0/7.0*t18+12.0/7.0*t36+12.0/35.0*t22);
4724       drv[0] = t17*t25+t27*(2.0*t4+3.0*t28+30.0/19.0*t29+20.0/57.0*t30+10.0/
4725 323.0*t31+t14/1292)*t25+t38;
4726       drv[1] = t27*(6.0*t4+10.0*t28+6.0*t29+30.0/19.0*t30+10.0/57.0*t31+2.0/
4727 323.0*t14)*t25+t38;
4728       drv[2] = t35*(3.0*t18+24.0/7.0*t36+6.0/7.0*t22);
4729    /* p=14 1 7 2 */
4730    } else if( i==1 && j==7 && k==2 ) {
4731       t1 = s*s;
4732       t2 = t1*s;
4733       t3 = t1*t1;
4734       t5 = t3*t1;
4735       t6 = r-1.0;
4736       t8 = t3*s;
4737       t9 = t6*t6;
4738       t11 = t9*t6;
4739       t13 = t9*t9;
4740       t15 = t13*t6;
4741       t17 = t13*t9;
4742       t20 = t3*t2+8.0/3.0*t5*t6+14.0/5.0*t8*t9+28.0/19.0*t3*t11+70.0/171.0*t2*
4743 t13+56.0/969.0*t1*t15+7.0/1938.0*s*t17+t13*t11/14535;
4744       t21 = t*t;
4745       t22 = s+r-1.0;
4746       t24 = t22*t22;
4747       t25 = t21+6.0/5.0*t*t22+3.0/10.0*t24;
4748       t27 = r-2.0/25.0;
4749       t28 = t8*t6;
4750       t29 = t3*t9;
4751       t30 = t2*t11;
4752       t31 = t1*t13;
4753       t32 = s*t15;
4754       t36 = t27*t20;
4755       t38 = t36*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
4756       drv[0] = t20*t25+t27*(8.0/3.0*t5+28.0/5.0*t28+84.0/19.0*t29+280.0/171.0*
4757 t30+280.0/969.0*t31+7.0/323.0*t32+7.0/14535.0*t17)*t25+t38;
4758       drv[1] = t27*(7.0*t5+16.0*t28+14.0*t29+112.0/19.0*t30+70.0/57.0*t31+112.0
4759 /969.0*t32+7.0/1938.0*t17)*t25+t38;
4760       drv[2] = t36*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
4761    /* p=14 1 8 1 */
4762    } else if( i==1 && j==8 && k==1 ) {
4763       t1 = s*s;
4764       t2 = t1*t1;
4765       t3 = t2*t2;
4766       t4 = t1*s;
4767       t5 = t4*t2;
4768       t6 = r-1.0;
4769       t8 = t2*t1;
4770       t9 = t6*t6;
4771       t11 = t2*s;
4772       t12 = t9*t6;
4773       t14 = t9*t9;
4774       t16 = t14*t6;
4775       t18 = t14*t9;
4776       t20 = t14*t12;
4777       t22 = t14*t14;
4778       t23 = t3+24.0/7.0*t5*t6+24.0/5.0*t8*t9+336.0/95.0*t11*t12+28.0/19.0*t2*
4779 t14+112.0/323.0*t4*t16+14.0/323.0*t1*t18+4.0/1615.0*s*t20+t22/22610;
4780       t24 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
4781       t26 = r-2.0/25.0;
4782       t27 = t8*t6;
4783       t28 = t11*t9;
4784       t29 = t2*t12;
4785       t30 = t4*t14;
4786       t31 = t1*t16;
4787       t32 = s*t18;
4788       t36 = t26*t23;
4789       drv[0] = t23*t24+t26*(24.0/7.0*t5+48.0/5.0*t27+1008.0/95.0*t28+112.0/19.0
4790 *t29+560.0/323.0*t30+84.0/323.0*t31+28.0/1615.0*t32+4.0/11305.0*t20)*t24+2.0/
4791 3.0*t36;
4792       drv[1] = t26*(8.0*t5+24.0*t27+144.0/5.0*t28+336.0/19.0*t29+112.0/19.0*t30
4793 +336.0/323.0*t31+28.0/323.0*t32+4.0/1615.0*t20)*t24+2.0/3.0*t36;
4794       drv[2] = t36;
4795    /* p=14 1 9 0 */
4796    } else if( i==1 && j==9 && k==0 ) {
4797       t1 = s*s;
4798       t2 = t1*t1;
4799       t3 = t2*t2;
4800       t5 = r-1.0;
4801       t7 = t1*s;
4802       t8 = t2*t7;
4803       t9 = t5*t5;
4804       t11 = t2*t1;
4805       t12 = t9*t5;
4806       t14 = t2*s;
4807       t15 = t9*t9;
4808       t17 = t15*t5;
4809       t19 = t15*t9;
4810       t21 = t15*t12;
4811       t23 = t15*t15;
4812       t26 = r-2.0/25.0;
4813       t27 = t8*t5;
4814       t28 = t11*t9;
4815       t29 = t14*t12;
4816       t30 = t2*t15;
4817       t31 = t7*t17;
4818       t32 = t1*t19;
4819       t33 = s*t21;
4820       t36 = t3*s+30.0/7.0*t3*t5+54.0/7.0*t8*t9+144.0/19.0*t11*t12+84.0/19.0*t14
4821 *t15+504.0/323.0*t2*t17+105.0/323.0*t7*t19+12.0/323.0*t1*t21+9.0/4522.0*s*t23+
4822 t23*t5/29393+t26*(30.0/7.0*t3+108.0/7.0*t27+432.0/19.0*t28+336.0/19.0*t29+
4823 2520.0/323.0*t30+630.0/323.0*t31+84.0/323.0*t32+36.0/2261.0*t33+9.0/29393.0*t23
4824 );
4825       drv[0] = t36;
4826       drv[1] = t26*(9.0*t3+240.0/7.0*t27+54.0*t28+864.0/19.0*t29+420.0/19.0*t30
4827 +2016.0/323.0*t31+315.0/323.0*t32+24.0/323.0*t33+9.0/4522.0*t23);
4828       drv[2] = 0.0;
4829    /* p=14 2 0 8 */
4830    } else if( i==2 && j==0 && k==8 ) {
4831       t2 = t*t;
4832       t3 = t2*t2;
4833       t4 = t3*t3;
4834       t5 = t2*t;
4835       t6 = t3*t5;
4836       t7 = s+r-1.0;
4837       t9 = t3*t2;
4838       t10 = t7*t7;
4839       t12 = t3*t;
4840       t13 = t10*t7;
4841       t15 = t10*t10;
4842       t17 = t15*t7;
4843       t19 = t15*t10;
4844       t21 = t15*t13;
4845       t23 = t15*t15;
4846       t26 = r*r;
4847       t27 = t26-6.0/25.0*r+1.0/100.0;
4848       t28 = t9*t7;
4849       t29 = t12*t10;
4850       t30 = t3*t13;
4851       t31 = t15*t5;
4852       t32 = t2*t17;
4853       t33 = t*t19;
4854       t35 = t27*(72.0/17.0*t6+252.0/17.0*t28+1764.0/85.0*t29+252.0/17.0*t30+
4855 1260.0/221.0*t31+252.0/221.0*t32+252.0/2431.0*t33+36.0/12155.0*t21);
4856       drv[0] = (2.0*r-6.0/25.0)*(t4+72.0/17.0*t6*t7+126.0/17.0*t9*t10+588.0/
4857 85.0*t12*t13+63.0/17.0*t3*t15+252.0/221.0*t5*t17+42.0/221.0*t2*t19+36.0/2431.0*
4858 t*t21+9.0/24310.0*t23)+t35;
4859       drv[1] = t35;
4860       drv[2] = t27*(8.0*t6+504.0/17.0*t28+756.0/17.0*t29+588.0/17.0*t30+252.0/
4861 17.0*t31+756.0/221.0*t32+84.0/221.0*t33+36.0/2431.0*t21);
4862    /* p=14 2 1 7 */
4863    } else if( i==2 && j==1 && k==7 ) {
4864       t2 = s+2.0/19.0*r-2.0/19.0;
4865       t4 = t*t;
4866       t5 = t4*t;
4867       t6 = t4*t4;
4868       t8 = t6*t4;
4869       t9 = s+r-1.0;
4870       t11 = t6*t;
4871       t12 = t9*t9;
4872       t14 = t12*t9;
4873       t16 = t12*t12;
4874       t18 = t16*t9;
4875       t20 = t16*t12;
4876       t23 = t5*t6+56.0/15.0*t8*t9+28.0/5.0*t11*t12+56.0/13.0*t6*t14+70.0/39.0*
4877 t5*t16+56.0/143.0*t4*t18+28.0/715.0*t*t20+8.0/6435.0*t16*t14;
4878       t25 = r*r;
4879       t26 = t25-6.0/25.0*r+1.0/100.0;
4880       t27 = t26*t23;
4881       t28 = t26*t2;
4882       t29 = t11*t9;
4883       t30 = t6*t12;
4884       t31 = t5*t14;
4885       t32 = t4*t16;
4886       t33 = t*t18;
4887       t35 = t28*(56.0/15.0*t8+56.0/5.0*t29+168.0/13.0*t30+280.0/39.0*t31+280.0/
4888 143.0*t32+168.0/715.0*t33+56.0/6435.0*t20);
4889       drv[0] = t2*(2.0*r-6.0/25.0)*t23+2.0/19.0*t27+t35;
4890       drv[1] = t27+t35;
4891       drv[2] = t28*(7.0*t8+112.0/5.0*t29+28.0*t30+224.0/13.0*t31+70.0/13.0*t32+
4892 112.0/143.0*t33+28.0/715.0*t20);
4893    /* p=14 2 2 6 */
4894    } else if( i==2 && j==2 && k==6 ) {
4895       t2 = s*s;
4896       t3 = r-1.0;
4897       t5 = t3*t3;
4898       t6 = t2+6.0/19.0*s*t3+t5/57;
4899       t8 = t*t;
4900       t9 = t8*t8;
4901       t11 = t9*t;
4902       t12 = s+r-1.0;
4903       t14 = t12*t12;
4904       t16 = t8*t;
4905       t17 = t14*t12;
4906       t19 = t14*t14;
4907       t21 = t19*t12;
4908       t24 = t8*t9+42.0/13.0*t11*t12+105.0/26.0*t9*t14+350.0/143.0*t16*t17+105.0
4909 /143.0*t8*t19+14.0/143.0*t*t21+7.0/1716.0*t19*t14;
4910       t26 = r*r;
4911       t27 = t26-6.0/25.0*r+1.0/100.0;
4912       t31 = t27*t6;
4913       t32 = t12*t9;
4914       t33 = t16*t14;
4915       t34 = t8*t17;
4916       t35 = t*t19;
4917       t37 = t31*(42.0/13.0*t11+105.0/13.0*t32+1050.0/143.0*t33+420.0/143.0*t34+
4918 70.0/143.0*t35+7.0/286.0*t21);
4919       drv[0] = (2.0*r-6.0/25.0)*t6*t24+t27*(6.0/19.0*s+2.0/57.0*r-2.0/57.0)*t24
4920 +t37;
4921       drv[1] = t27*(2.0*s+6.0/19.0*r-6.0/19.0)*t24+t37;
4922       drv[2] = t31*(6.0*t11+210.0/13.0*t32+210.0/13.0*t33+1050.0/143.0*t34+
4923 210.0/143.0*t35+14.0/143.0*t21);
4924    /* p=14 2 3 5 */
4925    } else if( i==2 && j==3 && k==5 ) {
4926       t2 = s*s;
4927       t4 = r-1.0;
4928       t6 = t4*t4;
4929       t9 = t2*s+12.0/19.0*t4*t2+2.0/19.0*s*t6+4.0/969.0*t6*t4;
4930       t11 = t*t;
4931       t12 = t11*t11;
4932       t14 = s+r-1.0;
4933       t16 = t11*t;
4934       t17 = t14*t14;
4935       t19 = t17*t14;
4936       t21 = t17*t17;
4937       t24 = t12*t+30.0/11.0*t14*t12+30.0/11.0*t16*t17+40.0/33.0*t11*t19+5.0/
4938 22.0*t*t21+t21*t14/77;
4939       t26 = r*r;
4940       t27 = t26-6.0/25.0*r+1.0/100.0;
4941       t28 = s*t4;
4942       t32 = t27*t9;
4943       t33 = t16*t14;
4944       t34 = t11*t17;
4945       t35 = t*t19;
4946       t37 = t32*(30.0/11.0*t12+60.0/11.0*t33+40.0/11.0*t34+10.0/11.0*t35+5.0/
4947 77.0*t21);
4948       drv[0] = (2.0*r-6.0/25.0)*t9*t24+t27*(12.0/19.0*t2+4.0/19.0*t28+4.0/323.0
4949 *t6)*t24+t37;
4950       drv[1] = t27*(3.0*t2+24.0/19.0*t28+2.0/19.0*t6)*t24+t37;
4951       drv[2] = t32*(5.0*t12+120.0/11.0*t33+90.0/11.0*t34+80.0/33.0*t35+5.0/22.0
4952 *t21);
4953    /* p=14 2 4 4 */
4954    } else if( i==2 && j==4 && k==4 ) {
4955       t2 = s*s;
4956       t3 = t2*t2;
4957       t4 = t2*s;
4958       t5 = r-1.0;
4959       t7 = t5*t5;
4960       t9 = t7*t5;
4961       t11 = t7*t7;
4962       t12 = t3+20.0/19.0*t4*t5+20.0/57.0*t2*t7+40.0/969.0*s*t9+5.0/3876.0*t11;
4963       t14 = t*t;
4964       t15 = t14*t14;
4965       t16 = t14*t;
4966       t17 = s+r-1.0;
4967       t19 = t17*t17;
4968       t21 = t19*t17;
4969       t23 = t19*t19;
4970       t24 = t15+20.0/9.0*t16*t17+5.0/3.0*t14*t19+10.0/21.0*t*t21+5.0/126.0*t23;
4971       t26 = r*r;
4972       t27 = t26-6.0/25.0*r+1.0/100.0;
4973       t28 = t2*t5;
4974       t29 = s*t7;
4975       t33 = t27*t12;
4976       t34 = t14*t17;
4977       t35 = t*t19;
4978       t37 = t33*(20.0/9.0*t16+10.0/3.0*t34+10.0/7.0*t35+10.0/63.0*t21);
4979       drv[0] = (2.0*r-6.0/25.0)*t12*t24+t27*(20.0/19.0*t4+40.0/57.0*t28+40.0/
4980 323.0*t29+5.0/969.0*t9)*t24+t37;
4981       drv[1] = t27*(4.0*t4+60.0/19.0*t28+40.0/57.0*t29+40.0/969.0*t9)*t24+t37;
4982       drv[2] = t33*(4.0*t16+20.0/3.0*t34+10.0/3.0*t35+10.0/21.0*t21);
4983    /* p=14 2 5 3 */
4984    } else if( i==2 && j==5 && k==3 ) {
4985       t2 = s*s;
4986       t3 = t2*t2;
4987       t5 = r-1.0;
4988       t7 = t2*s;
4989       t8 = t5*t5;
4990       t10 = t8*t5;
4991       t12 = t8*t8;
4992       t15 = t3*s+30.0/19.0*t3*t5+50.0/57.0*t7*t8+200.0/969.0*t2*t10+25.0/1292.0
4993 *s*t12+t12*t5/1938;
4994       t17 = t*t;
4995       t19 = s+r-1.0;
4996       t21 = t19*t19;
4997       t24 = t17*t+12.0/7.0*t19*t17+6.0/7.0*t*t21+4.0/35.0*t21*t19;
4998       t26 = r*r;
4999       t27 = t26-6.0/25.0*r+1.0/100.0;
5000       t28 = t7*t5;
5001       t29 = t2*t8;
5002       t30 = s*t10;
5003       t34 = t27*t15;
5004       t35 = t*t19;
5005       t37 = t34*(12.0/7.0*t17+12.0/7.0*t35+12.0/35.0*t21);
5006       drv[0] = (2.0*r-6.0/25.0)*t15*t24+t27*(30.0/19.0*t3+100.0/57.0*t28+200.0/
5007 323.0*t29+25.0/323.0*t30+5.0/1938.0*t12)*t24+t37;
5008       drv[1] = t27*(5.0*t3+120.0/19.0*t28+50.0/19.0*t29+400.0/969.0*t30+25.0/
5009 1292.0*t12)*t24+t37;
5010       drv[2] = t34*(3.0*t17+24.0/7.0*t35+6.0/7.0*t21);
5011    /* p=14 2 6 2 */
5012    } else if( i==2 && j==6 && k==2 ) {
5013       t2 = s*s;
5014       t3 = t2*t2;
5015       t5 = t3*s;
5016       t6 = r-1.0;
5017       t8 = t6*t6;
5018       t10 = t2*s;
5019       t11 = t8*t6;
5020       t13 = t8*t8;
5021       t15 = t13*t6;
5022       t18 = t3*t2+42.0/19.0*t5*t6+35.0/19.0*t3*t8+700.0/969.0*t10*t11+175.0/
5023 1292.0*t2*t13+7.0/646.0*s*t15+t13*t8/3876;
5024       t20 = t*t;
5025       t21 = s+r-1.0;
5026       t23 = t21*t21;
5027       t24 = t20+6.0/5.0*t*t21+3.0/10.0*t23;
5028       t26 = r*r;
5029       t27 = t26-6.0/25.0*r+1.0/100.0;
5030       t28 = t3*t6;
5031       t29 = t10*t8;
5032       t30 = t2*t11;
5033       t31 = s*t13;
5034       t35 = t27*t18;
5035       t37 = t35*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
5036       drv[0] = (2.0*r-6.0/25.0)*t18*t24+t27*(42.0/19.0*t5+70.0/19.0*t28+700.0/
5037 323.0*t29+175.0/323.0*t30+35.0/646.0*t31+t15/646)*t24+t37;
5038       drv[1] = t27*(6.0*t5+210.0/19.0*t28+140.0/19.0*t29+700.0/323.0*t30+175.0/
5039 646.0*t31+7.0/646.0*t15)*t24+t37;
5040       drv[2] = t35*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
5041    /* p=14 2 7 1 */
5042    } else if( i==2 && j==7 && k==1 ) {
5043       t2 = s*s;
5044       t3 = t2*s;
5045       t4 = t2*t2;
5046       t6 = t4*t2;
5047       t7 = r-1.0;
5048       t9 = t4*s;
5049       t10 = t7*t7;
5050       t12 = t10*t7;
5051       t14 = t10*t10;
5052       t16 = t14*t7;
5053       t18 = t14*t10;
5054       t21 = t4*t3+56.0/19.0*t6*t7+196.0/57.0*t9*t10+1960.0/969.0*t4*t12+1225.0/
5055 1938.0*t3*t14+98.0/969.0*t2*t16+7.0/969.0*s*t18+2.0/12597.0*t14*t12;
5056       t23 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
5057       t25 = r*r;
5058       t26 = t25-6.0/25.0*r+1.0/100.0;
5059       t27 = t9*t7;
5060       t28 = t4*t10;
5061       t29 = t3*t12;
5062       t30 = t2*t14;
5063       t31 = s*t16;
5064       t35 = t26*t21;
5065       drv[0] = (2.0*r-6.0/25.0)*t21*t23+t26*(56.0/19.0*t6+392.0/57.0*t27+1960.0
5066 /323.0*t28+2450.0/969.0*t29+490.0/969.0*t30+14.0/323.0*t31+14.0/12597.0*t18)*
5067 t23+2.0/3.0*t35;
5068       drv[1] = t26*(7.0*t6+336.0/19.0*t27+980.0/57.0*t28+7840.0/969.0*t29+
5069 1225.0/646.0*t30+196.0/969.0*t31+7.0/969.0*t18)*t23+2.0/3.0*t35;
5070       drv[2] = t35;
5071    /* p=14 2 8 0 */
5072    } else if( i==2 && j==8 && k==0 ) {
5073       t2 = s*s;
5074       t3 = t2*t2;
5075       t4 = t3*t3;
5076       t5 = t2*s;
5077       t6 = t3*t5;
5078       t7 = r-1.0;
5079       t9 = t3*t2;
5080       t10 = t7*t7;
5081       t12 = t3*s;
5082       t13 = t10*t7;
5083       t15 = t10*t10;
5084       t17 = t15*t7;
5085       t19 = t15*t10;
5086       t21 = t15*t13;
5087       t23 = t15*t15;
5088       t26 = r*r;
5089       t27 = t26-6.0/25.0*r+1.0/100.0;
5090       t28 = t9*t7;
5091       t29 = t12*t10;
5092       t30 = t3*t13;
5093       t31 = t5*t15;
5094       t32 = t2*t17;
5095       t33 = s*t19;
5096       drv[0] = (2.0*r-6.0/25.0)*(t4+72.0/19.0*t6*t7+112.0/19.0*t9*t10+1568.0/
5097 323.0*t12*t13+735.0/323.0*t3*t15+196.0/323.0*t5*t17+28.0/323.0*t2*t19+24.0/
5098 4199.0*s*t21+t23/8398)+t27*(72.0/19.0*t6+224.0/19.0*t28+4704.0/323.0*t29+2940.0
5099 /323.0*t30+980.0/323.0*t31+168.0/323.0*t32+168.0/4199.0*t33+4.0/4199.0*t21);
5100       drv[1] = t27*(8.0*t6+504.0/19.0*t28+672.0/19.0*t29+7840.0/323.0*t30+
5101 2940.0/323.0*t31+588.0/323.0*t32+56.0/323.0*t33+24.0/4199.0*t21);
5102       drv[2] = 0.0;
5103    /* p=14 3 0 7 */
5104    } else if( i==3 && j==0 && k==7 ) {
5105       t1 = r*r;
5106       t3 = t*t;
5107       t4 = t3*t;
5108       t5 = t3*t3;
5109       t7 = t3*t5;
5110       t8 = s+r-1.0;
5111       t10 = t5*t;
5112       t11 = t8*t8;
5113       t13 = t11*t8;
5114       t15 = t11*t11;
5115       t17 = t15*t8;
5116       t19 = t15*t11;
5117       t25 = t1*r-12.0/25.0*t1+3.0/50.0*r-1.0/575.0;
5118       t26 = t10*t8;
5119       t27 = t5*t11;
5120       t28 = t4*t13;
5121       t29 = t3*t15;
5122       t30 = t*t17;
5123       t32 = t25*(56.0/15.0*t7+56.0/5.0*t26+168.0/13.0*t27+280.0/39.0*t28+280.0/
5124 143.0*t29+168.0/715.0*t30+56.0/6435.0*t19);
5125       drv[0] = (3.0*t1-24.0/25.0*r+3.0/50.0)*(t5*t4+56.0/15.0*t7*t8+28.0/5.0*
5126 t10*t11+56.0/13.0*t5*t13+70.0/39.0*t4*t15+56.0/143.0*t3*t17+28.0/715.0*t*t19+
5127 8.0/6435.0*t15*t13)+t32;
5128       drv[1] = t32;
5129       drv[2] = t25*(7.0*t7+112.0/5.0*t26+28.0*t27+224.0/13.0*t28+70.0/13.0*t29+
5130 112.0/143.0*t30+28.0/715.0*t19);
5131    /* p=14 3 1 6 */
5132    } else if( i==3 && j==1 && k==6 ) {
5133       t1 = r*r;
5134       t3 = s+2.0/17.0*r-2.0/17.0;
5135       t5 = t*t;
5136       t6 = t5*t5;
5137       t8 = t6*t;
5138       t9 = s+r-1.0;
5139       t11 = t9*t9;
5140       t13 = t5*t;
5141       t14 = t11*t9;
5142       t16 = t11*t11;
5143       t18 = t16*t9;
5144       t21 = t6*t5+42.0/13.0*t8*t9+105.0/26.0*t6*t11+350.0/143.0*t13*t14+105.0/
5145 143.0*t5*t16+14.0/143.0*t*t18+7.0/1716.0*t16*t11;
5146       t24 = t1*r-12.0/25.0*t1+3.0/50.0*r-1.0/575.0;
5147       t25 = t24*t21;
5148       t26 = t24*t3;
5149       t27 = t6*t9;
5150       t28 = t13*t11;
5151       t29 = t5*t14;
5152       t30 = t*t16;
5153       t32 = t26*(42.0/13.0*t8+105.0/13.0*t27+1050.0/143.0*t28+420.0/143.0*t29+
5154 70.0/143.0*t30+7.0/286.0*t18);
5155       drv[0] = t3*(3.0*t1-24.0/25.0*r+3.0/50.0)*t21+2.0/17.0*t25+t32;
5156       drv[1] = t25+t32;
5157       drv[2] = t26*(6.0*t8+210.0/13.0*t27+210.0/13.0*t28+1050.0/143.0*t29+210.0
5158 /143.0*t30+14.0/143.0*t18);
5159    /* p=14 3 2 5 */
5160    } else if( i==3 && j==2 && k==5 ) {
5161       t1 = r*r;
5162       t3 = s*s;
5163       t4 = r-1.0;
5164       t6 = t4*t4;
5165       t7 = t3+6.0/17.0*s*t4+3.0/136.0*t6;
5166       t9 = t*t;
5167       t10 = t9*t9;
5168       t12 = s+r-1.0;
5169       t14 = t9*t;
5170       t15 = t12*t12;
5171       t17 = t15*t12;
5172       t19 = t15*t15;
5173       t22 = t10*t+30.0/11.0*t10*t12+30.0/11.0*t14*t15+40.0/33.0*t9*t17+5.0/22.0
5174 *t*t19+t19*t12/77;
5175       t25 = t1*r-12.0/25.0*t1+3.0/50.0*r-1.0/575.0;
5176       t29 = t25*t7;
5177       t30 = t14*t12;
5178       t31 = t9*t15;
5179       t32 = t*t17;
5180       t34 = t29*(30.0/11.0*t10+60.0/11.0*t30+40.0/11.0*t31+10.0/11.0*t32+5.0/
5181 77.0*t19);
5182       drv[0] = (3.0*t1-24.0/25.0*r+3.0/50.0)*t7*t22+t25*(6.0/17.0*s+3.0/68.0*r
5183 -3.0/68.0)*t22+t34;
5184       drv[1] = t25*(2.0*s+6.0/17.0*r-6.0/17.0)*t22+t34;
5185       drv[2] = t29*(5.0*t10+120.0/11.0*t30+90.0/11.0*t31+80.0/33.0*t32+5.0/22.0
5186 *t19);
5187    /* p=14 3 3 4 */
5188    } else if( i==3 && j==3 && k==4 ) {
5189       t1 = r*r;
5190       t3 = s*s;
5191       t5 = r-1.0;
5192       t7 = t5*t5;
5193       t10 = t3*s+12.0/17.0*t3*t5+9.0/68.0*s*t7+t7*t5/170;
5194       t12 = t*t;
5195       t13 = t12*t12;
5196       t14 = t12*t;
5197       t15 = s+r-1.0;
5198       t17 = t15*t15;
5199       t19 = t17*t15;
5200       t21 = t17*t17;
5201       t22 = t13+20.0/9.0*t14*t15+5.0/3.0*t12*t17+10.0/21.0*t*t19+5.0/126.0*t21;
5202       t25 = t1*r-12.0/25.0*t1+3.0/50.0*r-1.0/575.0;
5203       t26 = s*t5;
5204       t30 = t25*t10;
5205       t31 = t15*t12;
5206       t32 = t*t17;
5207       t34 = t30*(20.0/9.0*t14+10.0/3.0*t31+10.0/7.0*t32+10.0/63.0*t19);
5208       drv[0] = (3.0*t1-24.0/25.0*r+3.0/50.0)*t10*t22+t25*(12.0/17.0*t3+9.0/34.0
5209 *t26+3.0/170.0*t7)*t22+t34;
5210       drv[1] = t25*(3.0*t3+24.0/17.0*t26+9.0/68.0*t7)*t22+t34;
5211       drv[2] = t30*(4.0*t14+20.0/3.0*t31+10.0/3.0*t32+10.0/21.0*t19);
5212    /* p=14 3 4 3 */
5213    } else if( i==3 && j==4 && k==3 ) {
5214       t1 = r*r;
5215       t3 = s*s;
5216       t4 = t3*t3;
5217       t5 = t3*s;
5218       t6 = r-1.0;
5219       t8 = t6*t6;
5220       t10 = t8*t6;
5221       t12 = t8*t8;
5222       t13 = t4+20.0/17.0*t5*t6+15.0/34.0*t3*t8+s*t10/17+t12/476;
5223       t15 = t*t;
5224       t17 = s+r-1.0;
5225       t19 = t17*t17;
5226       t22 = t15*t+12.0/7.0*t17*t15+6.0/7.0*t*t19+4.0/35.0*t19*t17;
5227       t25 = t1*r-12.0/25.0*t1+3.0/50.0*r-1.0/575.0;
5228       t26 = t3*t6;
5229       t27 = s*t8;
5230       t31 = t25*t13;
5231       t32 = t*t17;
5232       t34 = t31*(12.0/7.0*t15+12.0/7.0*t32+12.0/35.0*t19);
5233       drv[0] = (3.0*t1-24.0/25.0*r+3.0/50.0)*t13*t22+t25*(20.0/17.0*t5+15.0/
5234 17.0*t26+3.0/17.0*t27+t10/119)*t22+t34;
5235       drv[1] = t25*(4.0*t5+60.0/17.0*t26+15.0/17.0*t27+t10/17)*t22+t34;
5236       drv[2] = t31*(3.0*t15+24.0/7.0*t32+6.0/7.0*t19);
5237    /* p=14 3 5 2 */
5238    } else if( i==3 && j==5 && k==2 ) {
5239       t1 = r*r;
5240       t3 = s*s;
5241       t4 = t3*t3;
5242       t6 = r-1.0;
5243       t8 = t3*s;
5244       t9 = t6*t6;
5245       t11 = t9*t6;
5246       t13 = t9*t9;
5247       t16 = t4*s+30.0/17.0*t4*t6+75.0/68.0*t8*t9+5.0/17.0*t3*t11+15.0/476.0*s*
5248 t13+3.0/3094.0*t13*t6;
5249       t18 = t*t;
5250       t19 = s+r-1.0;
5251       t21 = t19*t19;
5252       t22 = t18+6.0/5.0*t*t19+3.0/10.0*t21;
5253       t25 = t1*r-12.0/25.0*t1+3.0/50.0*r-1.0/575.0;
5254       t26 = t8*t6;
5255       t27 = t3*t9;
5256       t28 = s*t11;
5257       t32 = t25*t16;
5258       t34 = t32*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
5259       drv[0] = (3.0*t1-24.0/25.0*r+3.0/50.0)*t16*t22+t25*(30.0/17.0*t4+75.0/
5260 34.0*t26+15.0/17.0*t27+15.0/119.0*t28+15.0/3094.0*t13)*t22+t34;
5261       drv[1] = t25*(5.0*t4+120.0/17.0*t26+225.0/68.0*t27+10.0/17.0*t28+15.0/
5262 476.0*t13)*t22+t34;
5263       drv[2] = t32*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
5264    /* p=14 3 6 1 */
5265    } else if( i==3 && j==6 && k==1 ) {
5266       t1 = r*r;
5267       t3 = s*s;
5268       t4 = t3*t3;
5269       t6 = t4*s;
5270       t7 = r-1.0;
5271       t9 = t7*t7;
5272       t11 = t3*s;
5273       t12 = t9*t7;
5274       t14 = t9*t9;
5275       t16 = t14*t7;
5276       t19 = t4*t3+42.0/17.0*t6*t7+315.0/136.0*t4*t9+35.0/34.0*t11*t12+15.0/68.0
5277 *t3*t14+9.0/442.0*s*t16+t14*t9/1768;
5278       t21 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
5279       t24 = t1*r-12.0/25.0*t1+3.0/50.0*r-1.0/575.0;
5280       t25 = t4*t7;
5281       t26 = t11*t9;
5282       t27 = t3*t12;
5283       t28 = s*t14;
5284       t32 = t24*t19;
5285       drv[0] = (3.0*t1-24.0/25.0*r+3.0/50.0)*t19*t21+t24*(42.0/17.0*t6+315.0/
5286 68.0*t25+105.0/34.0*t26+15.0/17.0*t27+45.0/442.0*t28+3.0/884.0*t16)*t21+2.0/3.0
5287 *t32;
5288       drv[1] = t24*(6.0*t6+210.0/17.0*t25+315.0/34.0*t26+105.0/34.0*t27+15.0/
5289 34.0*t28+9.0/442.0*t16)*t21+2.0/3.0*t32;
5290       drv[2] = t32;
5291    /* p=14 3 7 0 */
5292    } else if( i==3 && j==7 && k==0 ) {
5293       t1 = r*r;
5294       t3 = s*s;
5295       t4 = t3*s;
5296       t5 = t3*t3;
5297       t7 = t5*t3;
5298       t8 = r-1.0;
5299       t10 = t5*s;
5300       t11 = t8*t8;
5301       t13 = t11*t8;
5302       t15 = t11*t11;
5303       t17 = t15*t8;
5304       t19 = t15*t11;
5305       t25 = t1*r-12.0/25.0*t1+3.0/50.0*r-1.0/575.0;
5306       t26 = t10*t8;
5307       t27 = t5*t11;
5308       t28 = t4*t13;
5309       t29 = t3*t15;
5310       t30 = s*t17;
5311       drv[0] = (3.0*t1-24.0/25.0*r+3.0/50.0)*(t5*t4+56.0/17.0*t7*t8+147.0/34.0*
5312 t10*t11+49.0/17.0*t5*t13+35.0/34.0*t4*t15+42.0/221.0*t3*t17+7.0/442.0*s*t19+t15
5313 *t13/2431)+t25*(56.0/17.0*t7+147.0/17.0*t26+147.0/17.0*t27+70.0/17.0*t28+210.0/
5314 221.0*t29+21.0/221.0*t30+7.0/2431.0*t19);
5315       drv[1] = t25*(7.0*t7+336.0/17.0*t26+735.0/34.0*t27+196.0/17.0*t28+105.0/
5316 34.0*t29+84.0/221.0*t30+7.0/442.0*t19);
5317       drv[2] = 0.0;
5318    /* p=14 4 0 6 */
5319    } else if( i==4 && j==0 && k==6 ) {
5320       t1 = r*r;
5321       t2 = t1*r;
5322       t4 = t*t;
5323       t5 = t4*t4;
5324       t7 = t5*t;
5325       t8 = s+r-1.0;
5326       t10 = t8*t8;
5327       t12 = t4*t;
5328       t13 = t10*t8;
5329       t15 = t10*t10;
5330       t17 = t15*t8;
5331       t22 = t1*t1;
5332       t23 = t22-4.0/5.0*t2+t1/5-2.0/115.0*r+1.0/2530.0;
5333       t24 = t5*t8;
5334       t25 = t12*t10;
5335       t26 = t4*t13;
5336       t27 = t*t15;
5337       t29 = t23*(42.0/13.0*t7+105.0/13.0*t24+1050.0/143.0*t25+420.0/143.0*t26+
5338 70.0/143.0*t27+7.0/286.0*t17);
5339       drv[0] = (4.0*t2-12.0/5.0*t1+2.0/5.0*r-2.0/115.0)*(t5*t4+42.0/13.0*t7*t8+
5340 105.0/26.0*t5*t10+350.0/143.0*t12*t13+105.0/143.0*t4*t15+14.0/143.0*t*t17+7.0/
5341 1716.0*t15*t10)+t29;
5342       drv[1] = t29;
5343       drv[2] = t23*(6.0*t7+210.0/13.0*t24+210.0/13.0*t25+1050.0/143.0*t26+210.0
5344 /143.0*t27+14.0/143.0*t17);
5345    /* p=14 4 1 5 */
5346    } else if( i==4 && j==1 && k==5 ) {
5347       t1 = r*r;
5348       t2 = t1*r;
5349       t4 = s+2.0/15.0*r-2.0/15.0;
5350       t6 = t*t;
5351       t7 = t6*t6;
5352       t9 = s+r-1.0;
5353       t11 = t6*t;
5354       t12 = t9*t9;
5355       t14 = t12*t9;
5356       t16 = t12*t12;
5357       t19 = t7*t+30.0/11.0*t9*t7+30.0/11.0*t11*t12+40.0/33.0*t6*t14+5.0/22.0*t*
5358 t16+t16*t9/77;
5359       t21 = t1*t1;
5360       t22 = t21-4.0/5.0*t2+t1/5-2.0/115.0*r+1.0/2530.0;
5361       t23 = t22*t19;
5362       t24 = t22*t4;
5363       t25 = t11*t9;
5364       t26 = t6*t12;
5365       t27 = t*t14;
5366       t29 = t24*(30.0/11.0*t7+60.0/11.0*t25+40.0/11.0*t26+10.0/11.0*t27+5.0/
5367 77.0*t16);
5368       drv[0] = t4*(4.0*t2-12.0/5.0*t1+2.0/5.0*r-2.0/115.0)*t19+2.0/15.0*t23+t29
5369 ;
5370       drv[1] = t23+t29;
5371       drv[2] = t24*(5.0*t7+120.0/11.0*t25+90.0/11.0*t26+80.0/33.0*t27+5.0/22.0*
5372 t16);
5373    /* p=14 4 2 4 */
5374    } else if( i==4 && j==2 && k==4 ) {
5375       t1 = r*r;
5376       t2 = t1*r;
5377       t4 = s*s;
5378       t5 = r-1.0;
5379       t7 = t5*t5;
5380       t8 = t4+2.0/5.0*s*t5+t7/35;
5381       t10 = t*t;
5382       t11 = t10*t10;
5383       t12 = t10*t;
5384       t13 = s+r-1.0;
5385       t15 = t13*t13;
5386       t17 = t15*t13;
5387       t19 = t15*t15;
5388       t20 = t11+20.0/9.0*t12*t13+5.0/3.0*t10*t15+10.0/21.0*t*t17+5.0/126.0*t19;
5389       t22 = t1*t1;
5390       t23 = t22-4.0/5.0*t2+t1/5-2.0/115.0*r+1.0/2530.0;
5391       t27 = t23*t8;
5392       t28 = t10*t13;
5393       t29 = t*t15;
5394       t31 = t27*(20.0/9.0*t12+10.0/3.0*t28+10.0/7.0*t29+10.0/63.0*t17);
5395       drv[0] = (4.0*t2-12.0/5.0*t1+2.0/5.0*r-2.0/115.0)*t8*t20+t23*(2.0/5.0*s+
5396 2.0/35.0*r-2.0/35.0)*t20+t31;
5397       drv[1] = t23*(2.0*s+2.0/5.0*r-2.0/5.0)*t20+t31;
5398       drv[2] = t27*(4.0*t12+20.0/3.0*t28+10.0/3.0*t29+10.0/21.0*t17);
5399    /* p=14 4 3 3 */
5400    } else if( i==4 && j==3 && k==3 ) {
5401       t1 = r*r;
5402       t2 = t1*r;
5403       t4 = s*s;
5404       t6 = r-1.0;
5405       t8 = t6*t6;
5406       t11 = t4*s+4.0/5.0*t4*t6+6.0/35.0*s*t8+4.0/455.0*t8*t6;
5407       t13 = t*t;
5408       t15 = s+r-1.0;
5409       t17 = t15*t15;
5410       t20 = t13*t+12.0/7.0*t15*t13+6.0/7.0*t*t17+4.0/35.0*t17*t15;
5411       t22 = t1*t1;
5412       t23 = t22-4.0/5.0*t2+t1/5-2.0/115.0*r+1.0/2530.0;
5413       t24 = s*t6;
5414       t28 = t23*t11;
5415       t29 = t*t15;
5416       t31 = t28*(12.0/7.0*t13+12.0/7.0*t29+12.0/35.0*t17);
5417       drv[0] = (4.0*t2-12.0/5.0*t1+2.0/5.0*r-2.0/115.0)*t11*t20+t23*(4.0/5.0*t4
5418 +12.0/35.0*t24+12.0/455.0*t8)*t20+t31;
5419       drv[1] = t23*(3.0*t4+8.0/5.0*t24+6.0/35.0*t8)*t20+t31;
5420       drv[2] = t28*(3.0*t13+24.0/7.0*t29+6.0/7.0*t17);
5421    /* p=14 4 4 2 */
5422    } else if( i==4 && j==4 && k==2 ) {
5423       t1 = r*r;
5424       t2 = t1*r;
5425       t4 = s*s;
5426       t5 = t4*t4;
5427       t6 = t4*s;
5428       t7 = r-1.0;
5429       t9 = t7*t7;
5430       t11 = t9*t7;
5431       t13 = t9*t9;
5432       t14 = t5+4.0/3.0*t6*t7+4.0/7.0*t4*t9+8.0/91.0*s*t11+t13/273;
5433       t16 = t*t;
5434       t17 = s+r-1.0;
5435       t19 = t17*t17;
5436       t20 = t16+6.0/5.0*t*t17+3.0/10.0*t19;
5437       t22 = t1*t1;
5438       t23 = t22-4.0/5.0*t2+t1/5-2.0/115.0*r+1.0/2530.0;
5439       t24 = t4*t7;
5440       t25 = s*t9;
5441       t29 = t23*t14;
5442       t31 = t29*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
5443       drv[0] = (4.0*t2-12.0/5.0*t1+2.0/5.0*r-2.0/115.0)*t14*t20+t23*(4.0/3.0*t6
5444 +8.0/7.0*t24+24.0/91.0*t25+4.0/273.0*t11)*t20+t31;
5445       drv[1] = t23*(4.0*t6+4.0*t24+8.0/7.0*t25+8.0/91.0*t11)*t20+t31;
5446       drv[2] = t29*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
5447    /* p=14 4 5 1 */
5448    } else if( i==4 && j==5 && k==1 ) {
5449       t1 = r*r;
5450       t2 = t1*r;
5451       t4 = s*s;
5452       t5 = t4*t4;
5453       t7 = r-1.0;
5454       t9 = t4*s;
5455       t10 = t7*t7;
5456       t12 = t10*t7;
5457       t14 = t10*t10;
5458       t17 = t5*s+2.0*t5*t7+10.0/7.0*t9*t10+40.0/91.0*t4*t12+5.0/91.0*s*t14+2.0/
5459 1001.0*t14*t7;
5460       t19 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
5461       t21 = t1*t1;
5462       t22 = t21-4.0/5.0*t2+t1/5-2.0/115.0*r+1.0/2530.0;
5463       t23 = t9*t7;
5464       t24 = t4*t10;
5465       t25 = s*t12;
5466       t29 = t22*t17;
5467       drv[0] = (4.0*t2-12.0/5.0*t1+2.0/5.0*r-2.0/115.0)*t17*t19+t22*(2.0*t5+
5468 20.0/7.0*t23+120.0/91.0*t24+20.0/91.0*t25+10.0/1001.0*t14)*t19+2.0/3.0*t29;
5469       drv[1] = t22*(5.0*t5+8.0*t23+30.0/7.0*t24+80.0/91.0*t25+5.0/91.0*t14)*t19
5470 +2.0/3.0*t29;
5471       drv[2] = t29;
5472    /* p=14 4 6 0 */
5473    } else if( i==4 && j==6 && k==0 ) {
5474       t1 = r*r;
5475       t2 = t1*r;
5476       t4 = s*s;
5477       t5 = t4*t4;
5478       t7 = t5*s;
5479       t8 = r-1.0;
5480       t10 = t8*t8;
5481       t12 = t4*s;
5482       t13 = t10*t8;
5483       t15 = t10*t10;
5484       t17 = t15*t8;
5485       t22 = t1*t1;
5486       t23 = t22-4.0/5.0*t2+t1/5-2.0/115.0*r+1.0/2530.0;
5487       t24 = t5*t8;
5488       t25 = t12*t10;
5489       t26 = t4*t13;
5490       t27 = s*t15;
5491       drv[0] = (4.0*t2-12.0/5.0*t1+2.0/5.0*r-2.0/115.0)*(t5*t4+14.0/5.0*t7*t8+
5492 3.0*t5*t10+20.0/13.0*t12*t13+5.0/13.0*t4*t15+6.0/143.0*s*t17+t15*t10/715)+t23*(
5493 14.0/5.0*t7+6.0*t24+60.0/13.0*t25+20.0/13.0*t26+30.0/143.0*t27+6.0/715.0*t17);
5494       drv[1] = t23*(6.0*t7+14.0*t24+12.0*t25+60.0/13.0*t26+10.0/13.0*t27+6.0/
5495 143.0*t17);
5496       drv[2] = 0.0;
5497    /* p=14 5 0 5 */
5498    } else if( i==5 && j==0 && k==5 ) {
5499       t1 = r*r;
5500       t2 = t1*t1;
5501       t3 = t1*r;
5502       t5 = t*t;
5503       t6 = t5*t5;
5504       t8 = s+r-1.0;
5505       t10 = t5*t;
5506       t11 = t8*t8;
5507       t13 = t11*t8;
5508       t15 = t11*t11;
5509       t21 = t2*r-6.0/5.0*t2+t3/2-2.0/23.0*t1+3.0/506.0*r-1.0/8855.0;
5510       t22 = t10*t8;
5511       t23 = t5*t11;
5512       t24 = t*t13;
5513       t26 = t21*(30.0/11.0*t6+60.0/11.0*t22+40.0/11.0*t23+10.0/11.0*t24+5.0/
5514 77.0*t15);
5515       drv[0] = (5.0*t2-24.0/5.0*t3+3.0/2.0*t1-4.0/23.0*r+3.0/506.0)*(t6*t+30.0/
5516 11.0*t6*t8+30.0/11.0*t10*t11+40.0/33.0*t5*t13+5.0/22.0*t*t15+t15*t8/77)+t26;
5517       drv[1] = t26;
5518       drv[2] = t21*(5.0*t6+120.0/11.0*t22+90.0/11.0*t23+80.0/33.0*t24+5.0/22.0*
5519 t15);
5520    /* p=14 5 1 4 */
5521    } else if( i==5 && j==1 && k==4 ) {
5522       t1 = r*r;
5523       t2 = t1*t1;
5524       t3 = t1*r;
5525       t5 = s+2.0/13.0*r-2.0/13.0;
5526       t7 = t*t;
5527       t8 = t7*t7;
5528       t9 = t7*t;
5529       t10 = s+r-1.0;
5530       t12 = t10*t10;
5531       t14 = t12*t10;
5532       t16 = t12*t12;
5533       t17 = t8+20.0/9.0*t9*t10+5.0/3.0*t7*t12+10.0/21.0*t*t14+5.0/126.0*t16;
5534       t20 = t2*r-6.0/5.0*t2+t3/2-2.0/23.0*t1+3.0/506.0*r-1.0/8855.0;
5535       t21 = t20*t17;
5536       t22 = t20*t5;
5537       t23 = t7*t10;
5538       t24 = t*t12;
5539       t26 = t22*(20.0/9.0*t9+10.0/3.0*t23+10.0/7.0*t24+10.0/63.0*t14);
5540       drv[0] = (5.0*t2-24.0/5.0*t3+3.0/2.0*t1-4.0/23.0*r+3.0/506.0)*t5*t17+2.0/
5541 13.0*t21+t26;
5542       drv[1] = t21+t26;
5543       drv[2] = t22*(4.0*t9+20.0/3.0*t23+10.0/3.0*t24+10.0/21.0*t14);
5544    /* p=14 5 2 3 */
5545    } else if( i==5 && j==2 && k==3 ) {
5546       t1 = r*r;
5547       t2 = t1*t1;
5548       t3 = t1*r;
5549       t5 = s*s;
5550       t6 = r-1.0;
5551       t8 = t6*t6;
5552       t9 = t5+6.0/13.0*s*t6+t8/26;
5553       t11 = t*t;
5554       t13 = s+r-1.0;
5555       t15 = t13*t13;
5556       t18 = t11*t+12.0/7.0*t11*t13+6.0/7.0*t*t15+4.0/35.0*t15*t13;
5557       t21 = t2*r-6.0/5.0*t2+t3/2-2.0/23.0*t1+3.0/506.0*r-1.0/8855.0;
5558       t25 = t21*t9;
5559       t26 = t*t13;
5560       t28 = t25*(12.0/7.0*t11+12.0/7.0*t26+12.0/35.0*t15);
5561       drv[0] = (5.0*t2-24.0/5.0*t3+3.0/2.0*t1-4.0/23.0*r+3.0/506.0)*t9*t18+t21*
5562 (6.0/13.0*s+r/13-1.0/13.0)*t18+t28;
5563       drv[1] = t21*(2.0*s+6.0/13.0*r-6.0/13.0)*t18+t28;
5564       drv[2] = t25*(3.0*t11+24.0/7.0*t26+6.0/7.0*t15);
5565    /* p=14 5 3 2 */
5566    } else if( i==5 && j==3 && k==2 ) {
5567       t1 = r*r;
5568       t2 = t1*t1;
5569       t3 = t1*r;
5570       t5 = s*s;
5571       t7 = r-1.0;
5572       t9 = t7*t7;
5573       t12 = t5*s+12.0/13.0*t5*t7+3.0/13.0*s*t9+2.0/143.0*t9*t7;
5574       t14 = t*t;
5575       t15 = s+r-1.0;
5576       t17 = t15*t15;
5577       t18 = t14+6.0/5.0*t*t15+3.0/10.0*t17;
5578       t21 = t2*r-6.0/5.0*t2+t3/2-2.0/23.0*t1+3.0/506.0*r-1.0/8855.0;
5579       t22 = s*t7;
5580       t26 = t21*t12;
5581       t28 = t26*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
5582       drv[0] = (5.0*t2-24.0/5.0*t3+3.0/2.0*t1-4.0/23.0*r+3.0/506.0)*t12*t18+t21
5583 *(12.0/13.0*t5+6.0/13.0*t22+6.0/143.0*t9)*t18+t28;
5584       drv[1] = t21*(3.0*t5+24.0/13.0*t22+3.0/13.0*t9)*t18+t28;
5585       drv[2] = t26*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
5586    /* p=14 5 4 1 */
5587    } else if( i==5 && j==4 && k==1 ) {
5588       t1 = r*r;
5589       t2 = t1*t1;
5590       t3 = t1*r;
5591       t5 = s*s;
5592       t6 = t5*t5;
5593       t7 = t5*s;
5594       t8 = r-1.0;
5595       t10 = t8*t8;
5596       t12 = t10*t8;
5597       t14 = t10*t10;
5598       t15 = t6+20.0/13.0*t7*t8+10.0/13.0*t5*t10+20.0/143.0*s*t12+t14/143;
5599       t17 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
5600       t20 = t2*r-6.0/5.0*t2+t3/2-2.0/23.0*t1+3.0/506.0*r-1.0/8855.0;
5601       t21 = t5*t8;
5602       t22 = s*t10;
5603       t26 = t20*t15;
5604       drv[0] = (5.0*t2-24.0/5.0*t3+3.0/2.0*t1-4.0/23.0*r+3.0/506.0)*t15*t17+t20
5605 *(20.0/13.0*t7+20.0/13.0*t21+60.0/143.0*t22+4.0/143.0*t12)*t17+2.0/3.0*t26;
5606       drv[1] = t20*(4.0*t7+60.0/13.0*t21+20.0/13.0*t22+20.0/143.0*t12)*t17+2.0/
5607 3.0*t26;
5608       drv[2] = t26;
5609    /* p=14 5 5 0 */
5610    } else if( i==5 && j==5 && k==0 ) {
5611       t1 = r*r;
5612       t2 = t1*t1;
5613       t3 = t1*r;
5614       t5 = s*s;
5615       t6 = t5*t5;
5616       t8 = r-1.0;
5617       t10 = t5*s;
5618       t11 = t8*t8;
5619       t13 = t11*t8;
5620       t15 = t11*t11;
5621       t21 = t2*r-6.0/5.0*t2+t3/2-2.0/23.0*t1+3.0/506.0*r-1.0/8855.0;
5622       t22 = t10*t8;
5623       t23 = t5*t11;
5624       t24 = s*t13;
5625       drv[0] = (5.0*t2-24.0/5.0*t3+3.0/2.0*t1-4.0/23.0*r+3.0/506.0)*(t6*s+30.0/
5626 13.0*t6*t8+25.0/13.0*t10*t11+100.0/143.0*t5*t13+15.0/143.0*s*t15+2.0/429.0*t15*
5627 t8)+t21*(30.0/13.0*t6+50.0/13.0*t22+300.0/143.0*t23+60.0/143.0*t24+10.0/429.0*
5628 t15);
5629       drv[1] = t21*(5.0*t6+120.0/13.0*t22+75.0/13.0*t23+200.0/143.0*t24+15.0/
5630 143.0*t15);
5631       drv[2] = 0.0;
5632    /* p=14 6 0 4 */
5633    } else if( i==6 && j==0 && k==4 ) {
5634       t1 = r*r;
5635       t2 = t1*t1;
5636       t3 = t2*r;
5637       t4 = t1*r;
5638       t6 = t*t;
5639       t7 = t6*t6;
5640       t8 = t6*t;
5641       t9 = s+r-1.0;
5642       t11 = t9*t9;
5643       t13 = t11*t9;
5644       t15 = t11*t11;
5645       t19 = t2*t1-42.0/25.0*t3+21.0/20.0*t2-7.0/23.0*t4+21.0/506.0*t1-3.0/
5646 1265.0*r+1.0/25300.0;
5647       t20 = t6*t9;
5648       t21 = t*t11;
5649       t23 = t19*(20.0/9.0*t8+10.0/3.0*t20+10.0/7.0*t21+10.0/63.0*t13);
5650       drv[0] = (6.0*t3-42.0/5.0*t2+21.0/5.0*t4-21.0/23.0*t1+21.0/253.0*r-3.0/
5651 1265.0)*(t7+20.0/9.0*t8*t9+5.0/3.0*t6*t11+10.0/21.0*t*t13+5.0/126.0*t15)+t23;
5652       drv[1] = t23;
5653       drv[2] = t19*(4.0*t8+20.0/3.0*t20+10.0/3.0*t21+10.0/21.0*t13);
5654    /* p=14 6 1 3 */
5655    } else if( i==6 && j==1 && k==3 ) {
5656       t1 = r*r;
5657       t2 = t1*t1;
5658       t3 = t2*r;
5659       t4 = t1*r;
5660       t6 = s+2.0/11.0*r-2.0/11.0;
5661       t8 = t*t;
5662       t10 = s+r-1.0;
5663       t12 = t10*t10;
5664       t15 = t8*t+12.0/7.0*t10*t8+6.0/7.0*t*t12+4.0/35.0*t12*t10;
5665       t18 = t2*t1-42.0/25.0*t3+21.0/20.0*t2-7.0/23.0*t4+21.0/506.0*t1-3.0/
5666 1265.0*r+1.0/25300.0;
5667       t19 = t18*t15;
5668       t20 = t18*t6;
5669       t21 = t*t10;
5670       t23 = t20*(12.0/7.0*t8+12.0/7.0*t21+12.0/35.0*t12);
5671       drv[0] = (6.0*t3-42.0/5.0*t2+21.0/5.0*t4-21.0/23.0*t1+21.0/253.0*r-3.0/
5672 1265.0)*t6*t15+2.0/11.0*t19+t23;
5673       drv[1] = t19+t23;
5674       drv[2] = t20*(3.0*t8+24.0/7.0*t21+6.0/7.0*t12);
5675    /* p=14 6 2 2 */
5676    } else if( i==6 && j==2 && k==2 ) {
5677       t1 = r*r;
5678       t2 = t1*t1;
5679       t3 = t2*r;
5680       t4 = t1*r;
5681       t6 = s*s;
5682       t7 = r-1.0;
5683       t9 = t7*t7;
5684       t10 = t6+6.0/11.0*s*t7+3.0/55.0*t9;
5685       t12 = t*t;
5686       t13 = s+r-1.0;
5687       t15 = t13*t13;
5688       t16 = t12+6.0/5.0*t*t13+3.0/10.0*t15;
5689       t19 = t2*t1-42.0/25.0*t3+21.0/20.0*t2-7.0/23.0*t4+21.0/506.0*t1-3.0/
5690 1265.0*r+1.0/25300.0;
5691       t23 = t19*t10;
5692       t25 = t23*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
5693       drv[0] = (6.0*t3-42.0/5.0*t2+21.0/5.0*t4-21.0/23.0*t1+21.0/253.0*r-3.0/
5694 1265.0)*t10*t16+t19*(6.0/11.0*s+6.0/55.0*r-6.0/55.0)*t16+t25;
5695       drv[1] = t19*(2.0*s+6.0/11.0*r-6.0/11.0)*t16+t25;
5696       drv[2] = t23*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
5697    /* p=14 6 3 1 */
5698    } else if( i==6 && j==3 && k==1 ) {
5699       t1 = r*r;
5700       t2 = t1*t1;
5701       t3 = t2*r;
5702       t4 = t1*r;
5703       t6 = s*s;
5704       t8 = r-1.0;
5705       t10 = t8*t8;
5706       t13 = t6*s+12.0/11.0*t6*t8+18.0/55.0*s*t10+4.0/165.0*t10*t8;
5707       t15 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
5708       t18 = t2*t1-42.0/25.0*t3+21.0/20.0*t2-7.0/23.0*t4+21.0/506.0*t1-3.0/
5709 1265.0*r+1.0/25300.0;
5710       t19 = s*t8;
5711       t23 = t18*t13;
5712       drv[0] = (6.0*t3-42.0/5.0*t2+21.0/5.0*t4-21.0/23.0*t1+21.0/253.0*r-3.0/
5713 1265.0)*t13*t15+t18*(12.0/11.0*t6+36.0/55.0*t19+4.0/55.0*t10)*t15+2.0/3.0*t23;
5714       drv[1] = t18*(3.0*t6+24.0/11.0*t19+18.0/55.0*t10)*t15+2.0/3.0*t23;
5715       drv[2] = t23;
5716    /* p=14 6 4 0 */
5717    } else if( i==6 && j==4 && k==0 ) {
5718       t1 = r*r;
5719       t2 = t1*t1;
5720       t3 = t2*r;
5721       t4 = t1*r;
5722       t6 = s*s;
5723       t7 = t6*t6;
5724       t8 = t6*s;
5725       t9 = r-1.0;
5726       t11 = t9*t9;
5727       t13 = t11*t9;
5728       t15 = t11*t11;
5729       t19 = t2*t1-42.0/25.0*t3+21.0/20.0*t2-7.0/23.0*t4+21.0/506.0*t1-3.0/
5730 1265.0*r+1.0/25300.0;
5731       t20 = t6*t9;
5732       t21 = s*t11;
5733       drv[0] = (6.0*t3-42.0/5.0*t2+21.0/5.0*t4-21.0/23.0*t1+21.0/253.0*r-3.0/
5734 1265.0)*(t7+20.0/11.0*t8*t9+12.0/11.0*t6*t11+8.0/33.0*s*t13+t15/66)+t19*(20.0/
5735 11.0*t8+24.0/11.0*t20+8.0/11.0*t21+2.0/33.0*t13);
5736       drv[1] = t19*(4.0*t8+60.0/11.0*t20+24.0/11.0*t21+8.0/33.0*t13);
5737       drv[2] = 0.0;
5738    /* p=14 7 0 3 */
5739    } else if( i==7 && j==0 && k==3 ) {
5740       t1 = r*r;
5741       t2 = t1*t1;
5742       t3 = t2*t1;
5743       t4 = t2*r;
5744       t5 = t1*r;
5745       t7 = t*t;
5746       t9 = s+r-1.0;
5747       t11 = t9*t9;
5748       t17 = t2*t5-56.0/25.0*t3+49.0/25.0*t4-98.0/115.0*t2+49.0/253.0*t5-28.0/
5749 1265.0*t1+7.0/6325.0*r-2.0/120175.0;
5750       t18 = t*t9;
5751       t20 = t17*(12.0/7.0*t7+12.0/7.0*t18+12.0/35.0*t11);
5752       drv[0] = (7.0*t3-336.0/25.0*t4+49.0/5.0*t2-392.0/115.0*t5+147.0/253.0*t1
5753 -56.0/1265.0*r+7.0/6325.0)*(t7*t+12.0/7.0*t7*t9+6.0/7.0*t*t11+4.0/35.0*t11*t9)+
5754 t20;
5755       drv[1] = t20;
5756       drv[2] = t17*(3.0*t7+24.0/7.0*t18+6.0/7.0*t11);
5757    /* p=14 7 1 2 */
5758    } else if( i==7 && j==1 && k==2 ) {
5759       t1 = r*r;
5760       t2 = t1*t1;
5761       t3 = t2*t1;
5762       t4 = t2*r;
5763       t5 = t1*r;
5764       t7 = s+2.0/9.0*r-2.0/9.0;
5765       t9 = t*t;
5766       t10 = s+r-1.0;
5767       t12 = t10*t10;
5768       t13 = t9+6.0/5.0*t*t10+3.0/10.0*t12;
5769       t16 = t2*t5-56.0/25.0*t3+49.0/25.0*t4-98.0/115.0*t2+49.0/253.0*t5-28.0/
5770 1265.0*t1+7.0/6325.0*r-2.0/120175.0;
5771       t17 = t16*t13;
5772       t18 = t16*t7;
5773       t20 = t18*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
5774       drv[0] = (7.0*t3-336.0/25.0*t4+49.0/5.0*t2-392.0/115.0*t5+147.0/253.0*t1
5775 -56.0/1265.0*r+7.0/6325.0)*t7*t13+2.0/9.0*t17+t20;
5776       drv[1] = t17+t20;
5777       drv[2] = t18*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
5778    /* p=14 7 2 1 */
5779    } else if( i==7 && j==2 && k==1 ) {
5780       t1 = r*r;
5781       t2 = t1*t1;
5782       t3 = t2*t1;
5783       t4 = t2*r;
5784       t5 = t1*r;
5785       t7 = s*s;
5786       t8 = r-1.0;
5787       t10 = t8*t8;
5788       t11 = t7+2.0/3.0*s*t8+t10/12;
5789       t13 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
5790       t16 = t2*t5-56.0/25.0*t3+49.0/25.0*t4-98.0/115.0*t2+49.0/253.0*t5-28.0/
5791 1265.0*t1+7.0/6325.0*r-2.0/120175.0;
5792       t20 = t16*t11;
5793       drv[0] = (7.0*t3-336.0/25.0*t4+49.0/5.0*t2-392.0/115.0*t5+147.0/253.0*t1
5794 -56.0/1265.0*r+7.0/6325.0)*t11*t13+t16*(2.0/3.0*s+r/6-1.0/6.0)*t13+2.0/3.0*t20;
5795       drv[1] = t16*(2.0*s+2.0/3.0*r-2.0/3.0)*t13+2.0/3.0*t20;
5796       drv[2] = t20;
5797    /* p=14 7 3 0 */
5798    } else if( i==7 && j==3 && k==0 ) {
5799       t1 = r*r;
5800       t2 = t1*t1;
5801       t3 = t2*t1;
5802       t4 = t2*r;
5803       t5 = t1*r;
5804       t7 = s*s;
5805       t9 = r-1.0;
5806       t11 = t9*t9;
5807       t17 = t2*t5-56.0/25.0*t3+49.0/25.0*t4-98.0/115.0*t2+49.0/253.0*t5-28.0/
5808 1265.0*t1+7.0/6325.0*r-2.0/120175.0;
5809       t18 = s*t9;
5810       drv[0] = (7.0*t3-336.0/25.0*t4+49.0/5.0*t2-392.0/115.0*t5+147.0/253.0*t1
5811 -56.0/1265.0*r+7.0/6325.0)*(t7*s+4.0/3.0*t7*t9+s*t11/2+t11*t9/21)+t17*(4.0/3.0*
5812 t7+t18+t11/7);
5813       drv[1] = t17*(3.0*t7+8.0/3.0*t18+t11/2);
5814       drv[2] = 0.0;
5815    /* p=14 8 0 2 */
5816    } else if( i==8 && j==0 && k==2 ) {
5817       t1 = r*r;
5818       t2 = t1*r;
5819       t3 = t1*t1;
5820       t4 = t3*t2;
5821       t5 = t3*t1;
5822       t6 = t3*r;
5823       t8 = t*t;
5824       t9 = s+r-1.0;
5825       t11 = t9*t9;
5826       t14 = t3*t3;
5827       t15 = t14-72.0/25.0*t4+84.0/25.0*t5-1176.0/575.0*t6+882.0/1265.0*t3-168.0
5828 /1265.0*t2+84.0/6325.0*t1-72.0/120175.0*r+1.0/120175.0;
5829       t17 = t15*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
5830       drv[0] = (8.0*t4-504.0/25.0*t5+504.0/25.0*t6-1176.0/115.0*t3+3528.0/
5831 1265.0*t2-504.0/1265.0*t1+168.0/6325.0*r-72.0/120175.0)*(t8+6.0/5.0*t*t9+3.0/
5832 10.0*t11)+t17;
5833       drv[1] = t17;
5834       drv[2] = t15*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
5835    /* p=14 8 1 1 */
5836    } else if( i==8 && j==1 && k==1 ) {
5837       t1 = r*r;
5838       t2 = t1*r;
5839       t3 = t1*t1;
5840       t4 = t3*t2;
5841       t5 = t3*t1;
5842       t6 = t3*r;
5843       t8 = s+2.0/7.0*r-2.0/7.0;
5844       t10 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
5845       t12 = t3*t3;
5846       t13 = t12-72.0/25.0*t4+84.0/25.0*t5-1176.0/575.0*t6+882.0/1265.0*t3-168.0
5847 /1265.0*t2+84.0/6325.0*t1-72.0/120175.0*r+1.0/120175.0;
5848       t14 = t13*t10;
5849       t15 = t13*t8;
5850       drv[0] = (8.0*t4-504.0/25.0*t5+504.0/25.0*t6-1176.0/115.0*t3+3528.0/
5851 1265.0*t2-504.0/1265.0*t1+168.0/6325.0*r-72.0/120175.0)*t8*t10+2.0/7.0*t14+2.0/
5852 3.0*t15;
5853       drv[1] = t14+2.0/3.0*t15;
5854       drv[2] = t15;
5855    /* p=14 8 2 0 */
5856    } else if( i==8 && j==2 && k==0 ) {
5857       t1 = r*r;
5858       t2 = t1*r;
5859       t3 = t1*t1;
5860       t4 = t3*t2;
5861       t5 = t3*t1;
5862       t6 = t3*r;
5863       t8 = s*s;
5864       t9 = r-1.0;
5865       t11 = t9*t9;
5866       t14 = t3*t3;
5867       t15 = t14-72.0/25.0*t4+84.0/25.0*t5-1176.0/575.0*t6+882.0/1265.0*t3-168.0
5868 /1265.0*t2+84.0/6325.0*t1-72.0/120175.0*r+1.0/120175.0;
5869       drv[0] = (8.0*t4-504.0/25.0*t5+504.0/25.0*t6-1176.0/115.0*t3+3528.0/
5870 1265.0*t2-504.0/1265.0*t1+168.0/6325.0*r-72.0/120175.0)*(t8+6.0/7.0*s*t9+t11/7)
5871 +t15*(6.0/7.0*s+2.0/7.0*r-2.0/7.0);
5872       drv[1] = t15*(2.0*s+6.0/7.0*r-6.0/7.0);
5873       drv[2] = 0.0;
5874    /* p=14 9 0 1 */
5875    } else if( i==9 && j==0 && k==1 ) {
5876       t1 = r*r;
5877       t2 = t1*t1;
5878       t3 = t2*t2;
5879       t4 = t1*r;
5880       t5 = t4*t2;
5881       t6 = t2*t1;
5882       t7 = t2*r;
5883       t11 = t3*r;
5884       t12 = (9.0*t3-144.0/5.0*t5+189.0/5.0*t6-3024.0/115.0*t7+2646.0/253.0*t2
5885 -3024.0/1265.0*t4+378.0/1265.0*t1-432.0/24035.0*r+9.0/24035.0)*(t+2.0/3.0*s+2.0
5886 /3.0*r-2.0/3.0)+2.0/3.0*t11-12.0/5.0*t3+18.0/5.0*t5-336.0/115.0*t6+1764.0/
5887 1265.0*t7-504.0/1265.0*t2+84.0/1265.0*t4-144.0/24035.0*t1+6.0/24035.0*r-4.0/
5888 1225785.0;
5889       drv[0] = t12;
5890       drv[1] = 2.0/3.0*t11-12.0/5.0*t3+18.0/5.0*t5-336.0/115.0*t6+1764.0/1265.0
5891 *t7-504.0/1265.0*t2+84.0/1265.0*t4-144.0/24035.0*t1+6.0/24035.0*r-4.0/1225785.0
5892 ;
5893       drv[2] = t11-18.0/5.0*t3+27.0/5.0*t5-504.0/115.0*t6+2646.0/1265.0*t7
5894 -756.0/1265.0*t2+126.0/1265.0*t4-216.0/24035.0*t1+9.0/24035.0*r-2.0/408595.0;
5895    /* p=14 9 1 0 */
5896    } else if( i==9 && j==1 && k==0 ) {
5897       t1 = r*r;
5898       t2 = t1*t1;
5899       t3 = t2*t2;
5900       t4 = t1*r;
5901       t5 = t4*t2;
5902       t6 = t2*t1;
5903       t7 = t2*r;
5904       t11 = t3*r;
5905       t12 = (9.0*t3-144.0/5.0*t5+189.0/5.0*t6-3024.0/115.0*t7+2646.0/253.0*t2
5906 -3024.0/1265.0*t4+378.0/1265.0*t1-432.0/24035.0*r+9.0/24035.0)*(s+2.0/5.0*r-2.0
5907 /5.0)+2.0/5.0*t11-36.0/25.0*t3+54.0/25.0*t5-1008.0/575.0*t6+5292.0/6325.0*t7
5908 -1512.0/6325.0*t2+252.0/6325.0*t4-432.0/120175.0*t1+18.0/120175.0*r-4.0/
5909 2042975.0;
5910       drv[0] = t12;
5911       drv[1] = t11-18.0/5.0*t3+27.0/5.0*t5-504.0/115.0*t6+2646.0/1265.0*t7
5912 -756.0/1265.0*t2+126.0/1265.0*t4-216.0/24035.0*t1+9.0/24035.0*r-2.0/408595.0;
5913       drv[2] = 0.0;
5914    /* p=14 10 0 0 */
5915    } else if( i==10 && j==0 && k==0 ) {
5916       t1 = r*r;
5917       t2 = t1*t1;
5918       t3 = t2*t2;
5919       t5 = t1*r;
5920       drv[0] = 10.0*t3*r-198.0/5.0*t3+66.0*t2*t5-1386.0/23.0*t2*t1+756.0/23.0*
5921 t2*r-252.0/23.0*t2+252.0/115.0*t5-108.0/437.0*t1+6.0/437.0*r-2.0/7429.0;
5922       drv[1] = 0.0;
5923       drv[2] = 0.0;
5924    /* p=15 0 0 11 */
5925    } else if( i==0 && j==0 && k==11 ) {
5926       t1 = t*t;
5927       t2 = t1*t1;
5928       t3 = t2*t2;
5929       t4 = t3*t1;
5930       t6 = s+r-1.0;
5931       t7 = t3*t*t6;
5932       t8 = t6*t6;
5933       t9 = t3*t8;
5934       t10 = t1*t;
5935       t12 = t8*t6;
5936       t13 = t2*t10*t12;
5937       t15 = t8*t8;
5938       t16 = t2*t1*t15;
5939       t19 = t2*t*t15*t6;
5940       t21 = t2*t15*t8;
5941       t23 = t10*t15*t12;
5942       t24 = t15*t15;
5943       t25 = t1*t24;
5944       t27 = t*t24*t6;
5945       t28 = t24*t8;
5946       t29 = 132.0/23.0*t4+660.0/23.0*t7+9900.0/161.0*t9+11880.0/161.0*t13+
5947 23760.0/437.0*t16+11088.0/437.0*t19+55440.0/7429.0*t21+9900.0/7429.0*t23+990.0/
5948 7429.0*t25+330.0/52003.0*t27+66.0/676039.0*t28;
5949       t30 = 11.0*t4+1320.0/23.0*t7+2970.0/23.0*t9+26400.0/161.0*t13+2970.0/23.0
5950 *t16+28512.0/437.0*t19+9240.0/437.0*t21+31680.0/7429.0*t23+7425.0/14858.0*t25+
5951 220.0/7429.0*t27+33.0/52003.0*t28;
5952       drv[0] = t29;
5953       drv[1] = t29;
5954       drv[2] = t30;
5955    /* p=15 0 1 10 */
5956    } else if( i==0 && j==1 && k==10 ) {
5957       t1 = t*t;
5958       t2 = t1*t1;
5959       t3 = t2*t2;
5960       t4 = t3*t1;
5961       t5 = t3*t;
5962       t6 = s+r-1.0;
5963       t7 = t5*t6;
5964       t8 = t6*t6;
5965       t9 = t3*t8;
5966       t10 = t1*t;
5967       t11 = t2*t10;
5968       t12 = t8*t6;
5969       t13 = t11*t12;
5970       t14 = t2*t1;
5971       t15 = t8*t8;
5972       t16 = t14*t15;
5973       t17 = t2*t;
5974       t18 = t15*t6;
5975       t19 = t17*t18;
5976       t20 = t15*t8;
5977       t21 = t2*t20;
5978       t22 = t15*t12;
5979       t23 = t10*t22;
5980       t24 = t15*t15;
5981       t25 = t1*t24;
5982       t26 = t24*t6;
5983       t27 = t*t26;
5984       t28 = t24*t8;
5985       t29 = s+2.0/25.0*r-2.0/25.0;
5986       t30 = t3*t6;
5987       t31 = t11*t8;
5988       t32 = t14*t12;
5989       t33 = t17*t15;
5990       t34 = t2*t18;
5991       t35 = t10*t20;
5992       t36 = t1*t22;
5993       t37 = t*t24;
5994       t39 = t29*(110.0/21.0*t5+165.0/7.0*t30+5940.0/133.0*t31+880.0/19.0*t32+
5995 9240.0/323.0*t33+3465.0/323.0*t34+770.0/323.0*t35+660.0/2261.0*t36+495.0/
5996 29393.0*t37+55.0/176358.0*t26);
5997       t40 = 2.0/25.0*t4+44.0/105.0*t7+33.0/35.0*t9+792.0/665.0*t13+88.0/95.0*
5998 t16+3696.0/8075.0*t19+231.0/1615.0*t21+44.0/1615.0*t23+33.0/11305.0*t25+22.0/
5999 146965.0*t27+11.0/4408950.0*t28+t39;
6000       t41 = t4+110.0/21.0*t7+165.0/14.0*t9+1980.0/133.0*t13+220.0/19.0*t16+
6001 1848.0/323.0*t19+1155.0/646.0*t21+110.0/323.0*t23+165.0/4522.0*t25+55.0/29393.0
6002 *t27+11.0/352716.0*t28+t39;
6003       drv[0] = t40;
6004       drv[1] = t41;
6005       drv[2] = t29*(10.0*t5+330.0/7.0*t30+660.0/7.0*t31+1980.0/19.0*t32+1320.0/
6006 19.0*t33+9240.0/323.0*t34+2310.0/323.0*t35+330.0/323.0*t36+165.0/2261.0*t37+
6007 55.0/29393.0*t26);
6008    /* p=15 0 2 9 */
6009    } else if( i==0 && j==2 && k==9 ) {
6010       t2 = t*t;
6011       t3 = t2*t2;
6012       t4 = t3*t3;
6013       t6 = s+r-1.0;
6014       t8 = t2*t;
6015       t9 = t3*t8;
6016       t10 = t6*t6;
6017       t12 = t3*t2;
6018       t13 = t10*t6;
6019       t15 = t3*t;
6020       t16 = t10*t10;
6021       t18 = t16*t6;
6022       t20 = t16*t10;
6023       t22 = t16*t13;
6024       t24 = t16*t16;
6025       t27 = t4*t+90.0/19.0*t4*t6+180.0/19.0*t9*t10+3360.0/323.0*t12*t13+2205.0/
6026 323.0*t15*t16+882.0/323.0*t3*t18+210.0/323.0*t8*t20+360.0/4199.0*t2*t22+45.0/
6027 8398.0*t*t24+5.0/46189.0*t24*t6;
6028       t29 = s*s;
6029       t30 = r-1.0;
6030       t32 = t30*t30;
6031       t33 = t29+6.0/25.0*s*t30+t32/100;
6032       t34 = t9*t6;
6033       t35 = t12*t10;
6034       t36 = t15*t13;
6035       t37 = t3*t16;
6036       t38 = t8*t18;
6037       t39 = t2*t20;
6038       t40 = t*t22;
6039       t42 = t33*(90.0/19.0*t4+360.0/19.0*t34+10080.0/323.0*t35+8820.0/323.0*t36
6040 +4410.0/323.0*t37+1260.0/323.0*t38+2520.0/4199.0*t39+180.0/4199.0*t40+45.0/
6041 46189.0*t24);
6042       drv[0] = (6.0/25.0*s+r/50-1.0/50.0)*t27+t42;
6043       drv[1] = (2.0*s+6.0/25.0*r-6.0/25.0)*t27+t42;
6044       drv[2] = t33*(9.0*t4+720.0/19.0*t34+1260.0/19.0*t35+20160.0/323.0*t36+
6045 11025.0/323.0*t37+3528.0/323.0*t38+630.0/323.0*t39+720.0/4199.0*t40+45.0/8398.0
6046 *t24);
6047    /* p=15 0 3 8 */
6048    } else if( i==0 && j==3 && k==8 ) {
6049       t1 = s*s;
6050       t2 = r-1.0;
6051       t3 = s*t2;
6052       t4 = t2*t2;
6053       t6 = t*t;
6054       t7 = t6*t6;
6055       t8 = t7*t7;
6056       t9 = t6*t;
6057       t10 = t7*t9;
6058       t11 = s+r-1.0;
6059       t13 = t7*t6;
6060       t14 = t11*t11;
6061       t16 = t7*t;
6062       t17 = t14*t11;
6063       t19 = t14*t14;
6064       t21 = t19*t11;
6065       t23 = t19*t14;
6066       t25 = t19*t17;
6067       t27 = t19*t19;
6068       t28 = t8+72.0/17.0*t10*t11+126.0/17.0*t13*t14+588.0/85.0*t16*t17+63.0/
6069 17.0*t7*t19+252.0/221.0*t9*t21+42.0/221.0*t6*t23+36.0/2431.0*t*t25+9.0/24310.0*
6070 t27;
6071       t34 = t1*s+12.0/25.0*t2*t1+3.0/50.0*s*t4+t4*t2/575;
6072       t35 = t13*t11;
6073       t36 = t16*t14;
6074       t37 = t7*t17;
6075       t38 = t9*t19;
6076       t39 = t6*t21;
6077       t40 = t*t23;
6078       t42 = t34*(72.0/17.0*t10+252.0/17.0*t35+1764.0/85.0*t36+252.0/17.0*t37+
6079 1260.0/221.0*t38+252.0/221.0*t39+252.0/2431.0*t40+36.0/12155.0*t25);
6080       drv[0] = (12.0/25.0*t1+3.0/25.0*t3+3.0/575.0*t4)*t28+t42;
6081       drv[1] = (3.0*t1+24.0/25.0*t3+3.0/50.0*t4)*t28+t42;
6082       drv[2] = t34*(8.0*t10+504.0/17.0*t35+756.0/17.0*t36+588.0/17.0*t37+252.0/
6083 17.0*t38+756.0/221.0*t39+84.0/221.0*t40+36.0/2431.0*t25);
6084    /* p=15 0 4 7 */
6085    } else if( i==0 && j==4 && k==7 ) {
6086       t1 = s*s;
6087       t2 = t1*s;
6088       t3 = r-1.0;
6089       t4 = t3*t1;
6090       t5 = t3*t3;
6091       t6 = s*t5;
6092       t7 = t5*t3;
6093       t9 = t*t;
6094       t10 = t9*t;
6095       t11 = t9*t9;
6096       t13 = t11*t9;
6097       t14 = s+r-1.0;
6098       t16 = t11*t;
6099       t17 = t14*t14;
6100       t19 = t17*t14;
6101       t21 = t17*t17;
6102       t23 = t21*t14;
6103       t25 = t21*t17;
6104       t28 = t10*t11+56.0/15.0*t13*t14+28.0/5.0*t16*t17+56.0/13.0*t19*t11+70.0/
6105 39.0*t10*t21+56.0/143.0*t9*t23+28.0/715.0*t*t25+8.0/6435.0*t21*t19;
6106       t30 = t1*t1;
6107       t34 = t5*t5;
6108       t35 = t30+4.0/5.0*t3*t2+t1*t5/5+2.0/115.0*s*t7+t34/2530;
6109       t36 = t16*t14;
6110       t37 = t11*t17;
6111       t38 = t10*t19;
6112       t39 = t9*t21;
6113       t40 = t*t23;
6114       t42 = t35*(56.0/15.0*t13+56.0/5.0*t36+168.0/13.0*t37+280.0/39.0*t38+280.0
6115 /143.0*t39+168.0/715.0*t40+56.0/6435.0*t25);
6116       drv[0] = (4.0/5.0*t2+2.0/5.0*t4+6.0/115.0*t6+2.0/1265.0*t7)*t28+t42;
6117       drv[1] = (4.0*t2+12.0/5.0*t4+2.0/5.0*t6+2.0/115.0*t7)*t28+t42;
6118       drv[2] = t35*(7.0*t13+112.0/5.0*t36+28.0*t37+224.0/13.0*t38+70.0/13.0*t39
6119 +112.0/143.0*t40+28.0/715.0*t25);
6120    /* p=15 0 5 6 */
6121    } else if( i==0 && j==5 && k==6 ) {
6122       t1 = s*s;
6123       t2 = t1*t1;
6124       t3 = t1*s;
6125       t4 = r-1.0;
6126       t5 = t3*t4;
6127       t6 = t4*t4;
6128       t7 = t1*t6;
6129       t8 = t6*t4;
6130       t9 = s*t8;
6131       t10 = t6*t6;
6132       t12 = t*t;
6133       t13 = t12*t12;
6134       t15 = t13*t;
6135       t16 = s+r-1.0;
6136       t18 = t16*t16;
6137       t20 = t12*t;
6138       t21 = t18*t16;
6139       t23 = t18*t18;
6140       t25 = t23*t16;
6141       t28 = t13*t12+42.0/13.0*t15*t16+105.0/26.0*t13*t18+350.0/143.0*t20*t21+
6142 105.0/143.0*t12*t23+14.0/143.0*t*t25+7.0/1716.0*t23*t18;
6143       t36 = s*t2+6.0/5.0*t4*t2+t3*t6/2+2.0/23.0*t1*t8+3.0/506.0*s*t10+t10*t4
6144 /8855;
6145       t37 = t13*t16;
6146       t38 = t20*t18;
6147       t39 = t12*t21;
6148       t40 = t*t23;
6149       t42 = t36*(42.0/13.0*t15+105.0/13.0*t37+1050.0/143.0*t38+420.0/143.0*t39+
6150 70.0/143.0*t40+7.0/286.0*t25);
6151       drv[0] = (6.0/5.0*t2+t5+6.0/23.0*t7+6.0/253.0*t9+t10/1771)*t28+t42;
6152       drv[1] = (5.0*t2+24.0/5.0*t5+3.0/2.0*t7+4.0/23.0*t9+3.0/506.0*t10)*t28+
6153 t42;
6154       drv[2] = t36*(6.0*t15+210.0/13.0*t37+210.0/13.0*t38+1050.0/143.0*t39+
6155 210.0/143.0*t40+14.0/143.0*t25);
6156    /* p=15 0 6 5 */
6157    } else if( i==0 && j==6 && k==5 ) {
6158       t1 = s*s;
6159       t2 = t1*t1;
6160       t3 = s*t2;
6161       t4 = r-1.0;
6162       t5 = t4*t2;
6163       t6 = t1*s;
6164       t7 = t4*t4;
6165       t8 = t6*t7;
6166       t9 = t7*t4;
6167       t10 = t1*t9;
6168       t11 = t7*t7;
6169       t12 = s*t11;
6170       t13 = t11*t4;
6171       t15 = t*t;
6172       t16 = t15*t15;
6173       t18 = s+r-1.0;
6174       t20 = t15*t;
6175       t21 = t18*t18;
6176       t23 = t21*t18;
6177       t25 = t21*t21;
6178       t28 = t16*t+30.0/11.0*t18*t16+30.0/11.0*t20*t21+40.0/33.0*t15*t23+5.0/
6179 22.0*t*t25+t25*t18/77;
6180       t37 = t2*t1+42.0/25.0*t3*t4+21.0/20.0*t2*t7+7.0/23.0*t6*t9+21.0/506.0*t1*
6181 t11+3.0/1265.0*s*t13+t11*t7/25300;
6182       t38 = t20*t18;
6183       t39 = t15*t21;
6184       t40 = t*t23;
6185       t42 = t37*(30.0/11.0*t16+60.0/11.0*t38+40.0/11.0*t39+10.0/11.0*t40+5.0/
6186 77.0*t25);
6187       drv[0] = (42.0/25.0*t3+21.0/10.0*t5+21.0/23.0*t8+42.0/253.0*t10+3.0/253.0
6188 *t12+3.0/12650.0*t13)*t28+t42;
6189       drv[1] = (6.0*t3+42.0/5.0*t5+21.0/5.0*t8+21.0/23.0*t10+21.0/253.0*t12+3.0
6190 /1265.0*t13)*t28+t42;
6191       drv[2] = t37*(5.0*t16+120.0/11.0*t38+90.0/11.0*t39+80.0/33.0*t40+5.0/22.0
6192 *t25);
6193    /* p=15 0 7 4 */
6194    } else if( i==0 && j==7 && k==4 ) {
6195       t1 = s*s;
6196       t2 = t1*t1;
6197       t3 = t2*t1;
6198       t4 = s*t2;
6199       t5 = r-1.0;
6200       t6 = t4*t5;
6201       t7 = t5*t5;
6202       t8 = t2*t7;
6203       t9 = t1*s;
6204       t10 = t7*t5;
6205       t11 = t9*t10;
6206       t12 = t7*t7;
6207       t13 = t1*t12;
6208       t14 = t12*t5;
6209       t15 = s*t14;
6210       t16 = t12*t7;
6211       t18 = t*t;
6212       t19 = t18*t18;
6213       t20 = t18*t;
6214       t21 = s+r-1.0;
6215       t23 = t21*t21;
6216       t25 = t23*t21;
6217       t27 = t23*t23;
6218       t28 = t19+20.0/9.0*t20*t21+5.0/3.0*t23*t18+10.0/21.0*t*t25+5.0/126.0*t27;
6219       t38 = t2*t9+56.0/25.0*t3*t5+49.0/25.0*t7*t4+98.0/115.0*t2*t10+49.0/253.0*
6220 t9*t12+28.0/1265.0*t1*t14+7.0/6325.0*s*t16+2.0/120175.0*t12*t10;
6221       t39 = t21*t18;
6222       t40 = t*t23;
6223       t42 = t38*(20.0/9.0*t20+10.0/3.0*t39+10.0/7.0*t40+10.0/63.0*t25);
6224       drv[0] = (56.0/25.0*t3+98.0/25.0*t6+294.0/115.0*t8+196.0/253.0*t11+28.0/
6225 253.0*t13+42.0/6325.0*t15+14.0/120175.0*t16)*t28+t42;
6226       drv[1] = (7.0*t3+336.0/25.0*t6+49.0/5.0*t8+392.0/115.0*t11+147.0/253.0*
6227 t13+56.0/1265.0*t15+7.0/6325.0*t16)*t28+t42;
6228       drv[2] = t38*(4.0*t20+20.0/3.0*t39+10.0/3.0*t40+10.0/21.0*t25);
6229    /* p=15 0 8 3 */
6230    } else if( i==0 && j==8 && k==3 ) {
6231       t1 = s*s;
6232       t2 = t1*s;
6233       t3 = t1*t1;
6234       t4 = t3*t2;
6235       t5 = t3*t1;
6236       t6 = r-1.0;
6237       t7 = t5*t6;
6238       t8 = t3*s;
6239       t9 = t6*t6;
6240       t10 = t8*t9;
6241       t11 = t9*t6;
6242       t12 = t3*t11;
6243       t13 = t9*t9;
6244       t14 = t2*t13;
6245       t15 = t13*t6;
6246       t16 = t1*t15;
6247       t17 = t13*t9;
6248       t18 = s*t17;
6249       t19 = t13*t11;
6250       t21 = t*t;
6251       t23 = s+r-1.0;
6252       t25 = t23*t23;
6253       t28 = t21*t+12.0/7.0*t21*t23+6.0/7.0*t*t25+4.0/35.0*t25*t23;
6254       t30 = t3*t3;
6255       t38 = t13*t13;
6256       t39 = t30+72.0/25.0*t4*t6+84.0/25.0*t5*t9+1176.0/575.0*t8*t11+882.0/
6257 1265.0*t3*t13+168.0/1265.0*t2*t15+84.0/6325.0*t1*t17+72.0/120175.0*s*t19+t38
6258 /120175;
6259       t40 = t*t23;
6260       t42 = t39*(12.0/7.0*t21+12.0/7.0*t40+12.0/35.0*t25);
6261       drv[0] = (72.0/25.0*t4+168.0/25.0*t7+3528.0/575.0*t10+3528.0/1265.0*t12+
6262 168.0/253.0*t14+504.0/6325.0*t16+504.0/120175.0*t18+8.0/120175.0*t19)*t28+t42;
6263       drv[1] = (8.0*t4+504.0/25.0*t7+504.0/25.0*t10+1176.0/115.0*t12+3528.0/
6264 1265.0*t14+504.0/1265.0*t16+168.0/6325.0*t18+72.0/120175.0*t19)*t28+t42;
6265       drv[2] = t39*(3.0*t21+24.0/7.0*t40+6.0/7.0*t25);
6266    /* p=15 0 9 2 */
6267    } else if( i==0 && j==9 && k==2 ) {
6268       t1 = s*s;
6269       t2 = t1*t1;
6270       t3 = t2*t2;
6271       t4 = t1*s;
6272       t5 = t4*t2;
6273       t6 = r-1.0;
6274       t7 = t5*t6;
6275       t8 = t2*t1;
6276       t9 = t6*t6;
6277       t10 = t8*t9;
6278       t11 = t2*s;
6279       t12 = t9*t6;
6280       t13 = t11*t12;
6281       t14 = t9*t9;
6282       t15 = t2*t14;
6283       t16 = t14*t6;
6284       t17 = t4*t16;
6285       t18 = t14*t9;
6286       t19 = t1*t18;
6287       t20 = t14*t12;
6288       t21 = s*t20;
6289       t22 = t14*t14;
6290       t24 = t*t;
6291       t25 = s+r-1.0;
6292       t27 = t25*t25;
6293       t28 = t24+6.0/5.0*t*t25+3.0/10.0*t27;
6294       t40 = t3*s+18.0/5.0*t3*t6+27.0/5.0*t5*t9+504.0/115.0*t8*t12+2646.0/1265.0
6295 *t11*t14+756.0/1265.0*t2*t16+126.0/1265.0*t4*t18+216.0/24035.0*t1*t20+9.0/
6296 24035.0*s*t22+2.0/408595.0*t22*t6;
6297       t42 = t40*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
6298       drv[0] = (18.0/5.0*t3+54.0/5.0*t7+1512.0/115.0*t10+10584.0/1265.0*t13+
6299 756.0/253.0*t15+756.0/1265.0*t17+1512.0/24035.0*t19+72.0/24035.0*t21+18.0/
6300 408595.0*t22)*t28+t42;
6301       drv[1] = (9.0*t3+144.0/5.0*t7+189.0/5.0*t10+3024.0/115.0*t13+2646.0/253.0
6302 *t15+3024.0/1265.0*t17+378.0/1265.0*t19+432.0/24035.0*t21+9.0/24035.0*t22)*t28+
6303 t42;
6304       drv[2] = t40*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
6305    /* p=15 0 10 1 */
6306    } else if( i==0 && j==10 && k==1 ) {
6307       t1 = s*s;
6308       t2 = t1*t1;
6309       t3 = t2*t2;
6310       t4 = t3*s;
6311       t5 = r-1.0;
6312       t6 = t3*t5;
6313       t7 = t1*s;
6314       t8 = t2*t7;
6315       t9 = t5*t5;
6316       t10 = t8*t9;
6317       t11 = t2*t1;
6318       t12 = t5*t9;
6319       t13 = t11*t12;
6320       t14 = t2*s;
6321       t15 = t9*t9;
6322       t16 = t14*t15;
6323       t17 = t15*t5;
6324       t18 = t2*t17;
6325       t19 = t15*t9;
6326       t20 = t7*t19;
6327       t21 = t15*t12;
6328       t22 = t1*t21;
6329       t23 = t15*t15;
6330       t24 = s*t23;
6331       t25 = t23*t5;
6332       t27 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
6333       t29 = t3*t1;
6334       t30 = t4*t5;
6335       t31 = t3*t9;
6336       t32 = t8*t12;
6337       t33 = t11*t15;
6338       t34 = t14*t17;
6339       t35 = t2*t19;
6340       t36 = t7*t21;
6341       t37 = t1*t23;
6342       t38 = s*t25;
6343       t39 = t23*t9;
6344       t40 = (22.0/5.0*t4+33.0/2.0*t6+594.0/23.0*t10+504.0/23.0*t13+252.0/23.0*
6345 t16+378.0/115.0*t18+252.0/437.0*t20+24.0/437.0*t22+18.0/7429.0*t24+t25/29716)*
6346 t27+2.0/3.0*t29+44.0/15.0*t30+11.0/2.0*t31+132.0/23.0*t32+84.0/23.0*t33+168.0/
6347 115.0*t34+42.0/115.0*t35+24.0/437.0*t36+2.0/437.0*t37+4.0/22287.0*t38+t39
6348 /445740;
6349       t43 = (10.0*t4+198.0/5.0*t6+66.0*t10+1386.0/23.0*t13+756.0/23.0*t16+252.0
6350 /23.0*t18+252.0/115.0*t20+108.0/437.0*t22+6.0/437.0*t24+2.0/7429.0*t25)*t27+2.0
6351 /3.0*t29+44.0/15.0*t30+11.0/2.0*t31+132.0/23.0*t32+84.0/23.0*t33+168.0/115.0*
6352 t34+42.0/115.0*t35+24.0/437.0*t36+2.0/437.0*t37+4.0/22287.0*t38+t39/445740;
6353       t44 = t29+22.0/5.0*t30+33.0/4.0*t31+198.0/23.0*t32+126.0/23.0*t33+252.0/
6354 115.0*t34+63.0/115.0*t35+36.0/437.0*t36+3.0/437.0*t37+2.0/7429.0*t38+t39/297160
6355 ;
6356       drv[0] = t40;
6357       drv[1] = t43;
6358       drv[2] = t44;
6359    /* p=15 0 11 0 */
6360    } else if( i==0 && j==11 && k==0 ) {
6361       t1 = s*s;
6362       t2 = t1*t1;
6363       t3 = t2*t2;
6364       t4 = t3*t1;
6365       t6 = r-1.0;
6366       t7 = t3*s*t6;
6367       t8 = t6*t6;
6368       t9 = t3*t8;
6369       t10 = t1*s;
6370       t12 = t8*t6;
6371       t13 = t2*t10*t12;
6372       t15 = t8*t8;
6373       t16 = t2*t1*t15;
6374       t19 = t2*s*t15*t6;
6375       t21 = t2*t15*t8;
6376       t23 = t10*t15*t12;
6377       t24 = t15*t15;
6378       t25 = t1*t24;
6379       t27 = s*t24*t6;
6380       t28 = t24*t8;
6381       t29 = 132.0/25.0*t4+121.0/5.0*t7+1089.0/23.0*t9+1188.0/23.0*t13+792.0/
6382 23.0*t16+8316.0/575.0*t19+8316.0/2185.0*t21+264.0/437.0*t23+396.0/7429.0*t25+
6383 33.0/14858.0*t27+11.0/371450.0*t28;
6384       t30 = 11.0*t4+264.0/5.0*t7+1089.0/10.0*t9+2904.0/23.0*t13+2079.0/23.0*t16
6385 +4752.0/115.0*t19+1386.0/115.0*t21+4752.0/2185.0*t23+99.0/437.0*t25+88.0/7429.0
6386 *t27+33.0/148580.0*t28;
6387       drv[0] = t29;
6388       drv[1] = t30;
6389       drv[2] = 0.0;
6390    /* p=15 1 0 10 */
6391    } else if( i==1 && j==0 && k==10 ) {
6392       t1 = t*t;
6393       t2 = t1*t1;
6394       t3 = t2*t2;
6395       t5 = t3*t;
6396       t6 = s+r-1.0;
6397       t8 = t6*t6;
6398       t10 = t1*t;
6399       t11 = t2*t10;
6400       t12 = t8*t6;
6401       t14 = t2*t1;
6402       t15 = t8*t8;
6403       t17 = t2*t;
6404       t18 = t15*t6;
6405       t20 = t15*t8;
6406       t22 = t15*t12;
6407       t24 = t15*t15;
6408       t26 = t24*t6;
6409       t29 = r-2.0/27.0;
6410       t30 = t3*t6;
6411       t31 = t11*t8;
6412       t32 = t14*t12;
6413       t33 = t17*t15;
6414       t34 = t2*t18;
6415       t35 = t10*t20;
6416       t36 = t1*t22;
6417       t37 = t*t24;
6418       t39 = t29*(110.0/21.0*t5+165.0/7.0*t30+5940.0/133.0*t31+880.0/19.0*t32+
6419 9240.0/323.0*t33+3465.0/323.0*t34+770.0/323.0*t35+660.0/2261.0*t36+495.0/
6420 29393.0*t37+55.0/176358.0*t26);
6421       t40 = t3*t1+110.0/21.0*t5*t6+165.0/14.0*t3*t8+1980.0/133.0*t11*t12+220.0/
6422 19.0*t14*t15+1848.0/323.0*t17*t18+1155.0/646.0*t2*t20+110.0/323.0*t10*t22+165.0
6423 /4522.0*t1*t24+55.0/29393.0*t*t26+11.0/352716.0*t24*t8+t39;
6424       drv[0] = t40;
6425       drv[1] = t39;
6426       drv[2] = t29*(10.0*t5+330.0/7.0*t30+660.0/7.0*t31+1980.0/19.0*t32+1320.0/
6427 19.0*t33+9240.0/323.0*t34+2310.0/323.0*t35+330.0/323.0*t36+165.0/2261.0*t37+
6428 55.0/29393.0*t26);
6429    /* p=15 1 1 9 */
6430    } else if( i==1 && j==1 && k==9 ) {
6431       t1 = s+2.0/23.0*r-2.0/23.0;
6432       t2 = t*t;
6433       t3 = t2*t2;
6434       t4 = t3*t3;
6435       t6 = s+r-1.0;
6436       t8 = t2*t;
6437       t9 = t3*t8;
6438       t10 = t6*t6;
6439       t12 = t3*t2;
6440       t13 = t10*t6;
6441       t15 = t3*t;
6442       t16 = t10*t10;
6443       t18 = t16*t6;
6444       t20 = t16*t10;
6445       t22 = t16*t13;
6446       t24 = t16*t16;
6447       t27 = t4*t+90.0/19.0*t4*t6+180.0/19.0*t9*t10+3360.0/323.0*t12*t13+2205.0/
6448 323.0*t15*t16+882.0/323.0*t3*t18+210.0/323.0*t8*t20+360.0/4199.0*t2*t22+45.0/
6449 8398.0*t*t24+5.0/46189.0*t24*t6;
6450       t29 = r-2.0/27.0;
6451       t30 = t29*t27;
6452       t31 = t29*t1;
6453       t32 = t9*t6;
6454       t33 = t12*t10;
6455       t34 = t15*t13;
6456       t35 = t3*t16;
6457       t36 = t8*t18;
6458       t37 = t2*t20;
6459       t38 = t*t22;
6460       t40 = t31*(90.0/19.0*t4+360.0/19.0*t32+10080.0/323.0*t33+8820.0/323.0*t34
6461 +4410.0/323.0*t35+1260.0/323.0*t36+2520.0/4199.0*t37+180.0/4199.0*t38+45.0/
6462 46189.0*t24);
6463       drv[0] = t1*t27+2.0/23.0*t30+t40;
6464       drv[1] = t30+t40;
6465       drv[2] = t31*(9.0*t4+720.0/19.0*t32+1260.0/19.0*t33+20160.0/323.0*t34+
6466 11025.0/323.0*t35+3528.0/323.0*t36+630.0/323.0*t37+720.0/4199.0*t38+45.0/8398.0
6467 *t24);
6468    /* p=15 1 2 8 */
6469    } else if( i==1 && j==2 && k==8 ) {
6470       t1 = s*s;
6471       t2 = r-1.0;
6472       t4 = t2*t2;
6473       t5 = t1+6.0/23.0*s*t2+3.0/253.0*t4;
6474       t6 = t*t;
6475       t7 = t6*t6;
6476       t8 = t7*t7;
6477       t9 = t6*t;
6478       t10 = t7*t9;
6479       t11 = s+r-1.0;
6480       t13 = t7*t6;
6481       t14 = t11*t11;
6482       t16 = t7*t;
6483       t17 = t14*t11;
6484       t19 = t14*t14;
6485       t21 = t19*t11;
6486       t23 = t19*t14;
6487       t25 = t19*t17;
6488       t27 = t19*t19;
6489       t28 = t8+72.0/17.0*t10*t11+126.0/17.0*t13*t14+588.0/85.0*t16*t17+63.0/
6490 17.0*t7*t19+252.0/221.0*t9*t21+42.0/221.0*t6*t23+36.0/2431.0*t*t25+9.0/24310.0*
6491 t27;
6492       t30 = r-2.0/27.0;
6493       t34 = t30*t5;
6494       t35 = t13*t11;
6495       t36 = t16*t14;
6496       t37 = t7*t17;
6497       t38 = t9*t19;
6498       t39 = t6*t21;
6499       t40 = t*t23;
6500       t42 = t34*(72.0/17.0*t10+252.0/17.0*t35+1764.0/85.0*t36+252.0/17.0*t37+
6501 1260.0/221.0*t38+252.0/221.0*t39+252.0/2431.0*t40+36.0/12155.0*t25);
6502       drv[0] = t5*t28+t30*(6.0/23.0*s+6.0/253.0*r-6.0/253.0)*t28+t42;
6503       drv[1] = t30*(2.0*s+6.0/23.0*r-6.0/23.0)*t28+t42;
6504       drv[2] = t34*(8.0*t10+504.0/17.0*t35+756.0/17.0*t36+588.0/17.0*t37+252.0/
6505 17.0*t38+756.0/221.0*t39+84.0/221.0*t40+36.0/2431.0*t25);
6506    /* p=15 1 3 7 */
6507    } else if( i==1 && j==3 && k==7 ) {
6508       t1 = s*s;
6509       t3 = r-1.0;
6510       t5 = t3*t3;
6511       t8 = t1*s+12.0/23.0*t3*t1+18.0/253.0*s*t5+4.0/1771.0*t5*t3;
6512       t9 = t*t;
6513       t10 = t9*t;
6514       t11 = t9*t9;
6515       t13 = t11*t9;
6516       t14 = s+r-1.0;
6517       t16 = t11*t;
6518       t17 = t14*t14;
6519       t19 = t17*t14;
6520       t21 = t17*t17;
6521       t23 = t21*t14;
6522       t25 = t21*t17;
6523       t28 = t11*t10+56.0/15.0*t13*t14+28.0/5.0*t16*t17+56.0/13.0*t11*t19+70.0/
6524 39.0*t10*t21+56.0/143.0*t9*t23+28.0/715.0*t*t25+8.0/6435.0*t21*t19;
6525       t30 = r-2.0/27.0;
6526       t31 = s*t3;
6527       t35 = t30*t8;
6528       t36 = t16*t14;
6529       t37 = t11*t17;
6530       t38 = t10*t19;
6531       t39 = t9*t21;
6532       t40 = t*t23;
6533       t42 = t35*(56.0/15.0*t13+56.0/5.0*t36+168.0/13.0*t37+280.0/39.0*t38+280.0
6534 /143.0*t39+168.0/715.0*t40+56.0/6435.0*t25);
6535       drv[0] = t8*t28+t30*(12.0/23.0*t1+36.0/253.0*t31+12.0/1771.0*t5)*t28+t42;
6536       drv[1] = t30*(3.0*t1+24.0/23.0*t31+18.0/253.0*t5)*t28+t42;
6537       drv[2] = t35*(7.0*t13+112.0/5.0*t36+28.0*t37+224.0/13.0*t38+70.0/13.0*t39
6538 +112.0/143.0*t40+28.0/715.0*t25);
6539    /* p=15 1 4 6 */
6540    } else if( i==1 && j==4 && k==6 ) {
6541       t1 = s*s;
6542       t2 = t1*t1;
6543       t3 = t1*s;
6544       t4 = r-1.0;
6545       t6 = t4*t4;
6546       t8 = t6*t4;
6547       t10 = t6*t6;
6548       t11 = t2+20.0/23.0*t3*t4+60.0/253.0*t1*t6+40.0/1771.0*s*t8+t10/1771;
6549       t12 = t*t;
6550       t13 = t12*t12;
6551       t15 = t13*t;
6552       t16 = s+r-1.0;
6553       t18 = t16*t16;
6554       t20 = t12*t;
6555       t21 = t18*t16;
6556       t23 = t18*t18;
6557       t25 = t23*t16;
6558       t28 = t13*t12+42.0/13.0*t15*t16+105.0/26.0*t13*t18+350.0/143.0*t20*t21+
6559 105.0/143.0*t12*t23+14.0/143.0*t*t25+7.0/1716.0*t23*t18;
6560       t30 = r-2.0/27.0;
6561       t31 = t4*t1;
6562       t32 = s*t6;
6563       t36 = t30*t11;
6564       t37 = t13*t16;
6565       t38 = t20*t18;
6566       t39 = t12*t21;
6567       t40 = t*t23;
6568       t42 = t36*(42.0/13.0*t15+105.0/13.0*t37+1050.0/143.0*t38+420.0/143.0*t39+
6569 70.0/143.0*t40+7.0/286.0*t25);
6570       drv[0] = t11*t28+t30*(20.0/23.0*t3+120.0/253.0*t31+120.0/1771.0*t32+4.0/
6571 1771.0*t8)*t28+t42;
6572       drv[1] = t30*(4.0*t3+60.0/23.0*t31+120.0/253.0*t32+40.0/1771.0*t8)*t28+
6573 t42;
6574       drv[2] = t36*(6.0*t15+210.0/13.0*t37+210.0/13.0*t38+1050.0/143.0*t39+
6575 210.0/143.0*t40+14.0/143.0*t25);
6576    /* p=15 1 5 5 */
6577    } else if( i==1 && j==5 && k==5 ) {
6578       t1 = s*s;
6579       t2 = t1*t1;
6580       t4 = r-1.0;
6581       t6 = t1*s;
6582       t7 = t4*t4;
6583       t9 = t7*t4;
6584       t11 = t7*t7;
6585       t14 = t2*s+30.0/23.0*t4*t2+150.0/253.0*t6*t7+200.0/1771.0*t1*t9+15.0/
6586 1771.0*s*t11+6.0/33649.0*t11*t4;
6587       t15 = t*t;
6588       t16 = t15*t15;
6589       t18 = s+r-1.0;
6590       t20 = t15*t;
6591       t21 = t18*t18;
6592       t23 = t21*t18;
6593       t25 = t21*t21;
6594       t28 = t16*t+30.0/11.0*t18*t16+30.0/11.0*t20*t21+40.0/33.0*t15*t23+5.0/
6595 22.0*t*t25+t25*t18/77;
6596       t30 = r-2.0/27.0;
6597       t31 = t6*t4;
6598       t32 = t1*t7;
6599       t33 = s*t9;
6600       t37 = t30*t14;
6601       t38 = t20*t18;
6602       t39 = t15*t21;
6603       t40 = t*t23;
6604       t42 = t37*(30.0/11.0*t16+60.0/11.0*t38+40.0/11.0*t39+10.0/11.0*t40+5.0/
6605 77.0*t25);
6606       drv[0] = t14*t28+t30*(30.0/23.0*t2+300.0/253.0*t31+600.0/1771.0*t32+60.0/
6607 1771.0*t33+30.0/33649.0*t11)*t28+t42;
6608       drv[1] = t30*(5.0*t2+120.0/23.0*t31+450.0/253.0*t32+400.0/1771.0*t33+15.0
6609 /1771.0*t11)*t28+t42;
6610       drv[2] = t37*(5.0*t16+120.0/11.0*t38+90.0/11.0*t39+80.0/33.0*t40+5.0/22.0
6611 *t25);
6612    /* p=15 1 6 4 */
6613    } else if( i==1 && j==6 && k==4 ) {
6614       t1 = s*s;
6615       t2 = t1*t1;
6616       t4 = t2*s;
6617       t5 = r-1.0;
6618       t7 = t5*t5;
6619       t9 = t1*s;
6620       t10 = t7*t5;
6621       t12 = t7*t7;
6622       t14 = t12*t5;
6623       t17 = t2*t1+42.0/23.0*t4*t5+315.0/253.0*t2*t7+100.0/253.0*t9*t10+15.0/
6624 253.0*t1*t12+18.0/4807.0*s*t14+t12*t7/14421;
6625       t18 = t*t;
6626       t19 = t18*t18;
6627       t20 = t18*t;
6628       t21 = s+r-1.0;
6629       t23 = t21*t21;
6630       t25 = t23*t21;
6631       t27 = t23*t23;
6632       t28 = t19+20.0/9.0*t20*t21+5.0/3.0*t18*t23+10.0/21.0*t*t25+5.0/126.0*t27;
6633       t30 = r-2.0/27.0;
6634       t31 = t2*t5;
6635       t32 = t9*t7;
6636       t33 = t1*t10;
6637       t34 = s*t12;
6638       t38 = t30*t17;
6639       t39 = t21*t18;
6640       t40 = t*t23;
6641       t42 = t38*(20.0/9.0*t20+10.0/3.0*t39+10.0/7.0*t40+10.0/63.0*t25);
6642       drv[0] = t17*t28+t30*(42.0/23.0*t4+630.0/253.0*t31+300.0/253.0*t32+60.0/
6643 253.0*t33+90.0/4807.0*t34+2.0/4807.0*t14)*t28+t42;
6644       drv[1] = t30*(6.0*t4+210.0/23.0*t31+1260.0/253.0*t32+300.0/253.0*t33+30.0
6645 /253.0*t34+18.0/4807.0*t14)*t28+t42;
6646       drv[2] = t38*(4.0*t20+20.0/3.0*t39+10.0/3.0*t40+10.0/21.0*t25);
6647    /* p=15 1 7 3 */
6648    } else if( i==1 && j==7 && k==3 ) {
6649       t1 = s*s;
6650       t2 = t1*s;
6651       t3 = t1*t1;
6652       t5 = t3*t1;
6653       t6 = r-1.0;
6654       t8 = t3*s;
6655       t9 = t6*t6;
6656       t11 = t9*t6;
6657       t13 = t9*t9;
6658       t15 = t13*t6;
6659       t17 = t13*t9;
6660       t20 = t3*t2+56.0/23.0*t5*t6+588.0/253.0*t8*t9+280.0/253.0*t3*t11+70.0/
6661 253.0*t2*t13+168.0/4807.0*t1*t15+28.0/14421.0*s*t17+8.0/245157.0*t13*t11;
6662       t21 = t*t;
6663       t23 = s+r-1.0;
6664       t25 = t23*t23;
6665       t28 = t21*t+12.0/7.0*t23*t21+6.0/7.0*t*t25+4.0/35.0*t25*t23;
6666       t30 = r-2.0/27.0;
6667       t31 = t8*t6;
6668       t32 = t3*t9;
6669       t33 = t2*t11;
6670       t34 = t1*t13;
6671       t35 = s*t15;
6672       t39 = t30*t20;
6673       t40 = t*t23;
6674       t42 = t39*(12.0/7.0*t21+12.0/7.0*t40+12.0/35.0*t25);
6675       drv[0] = t20*t28+t30*(56.0/23.0*t5+1176.0/253.0*t31+840.0/253.0*t32+280.0
6676 /253.0*t33+840.0/4807.0*t34+56.0/4807.0*t35+56.0/245157.0*t17)*t28+t42;
6677       drv[1] = t30*(7.0*t5+336.0/23.0*t31+2940.0/253.0*t32+1120.0/253.0*t33+
6678 210.0/253.0*t34+336.0/4807.0*t35+28.0/14421.0*t17)*t28+t42;
6679       drv[2] = t39*(3.0*t21+24.0/7.0*t40+6.0/7.0*t25);
6680    /* p=15 1 8 2 */
6681    } else if( i==1 && j==8 && k==2 ) {
6682       t1 = s*s;
6683       t2 = t1*t1;
6684       t3 = t2*t2;
6685       t4 = t1*s;
6686       t5 = t4*t2;
6687       t6 = r-1.0;
6688       t8 = t2*t1;
6689       t9 = t6*t6;
6690       t11 = t2*s;
6691       t12 = t9*t6;
6692       t14 = t9*t9;
6693       t16 = t14*t6;
6694       t18 = t14*t9;
6695       t20 = t14*t12;
6696       t22 = t14*t14;
6697       t23 = t3+72.0/23.0*t5*t6+1008.0/253.0*t8*t9+672.0/253.0*t11*t12+252.0/
6698 253.0*t2*t14+1008.0/4807.0*t4*t16+112.0/4807.0*t1*t18+96.0/81719.0*s*t20+3.0/
6699 163438.0*t22;
6700       t24 = t*t;
6701       t25 = s+r-1.0;
6702       t27 = t25*t25;
6703       t28 = t24+6.0/5.0*t*t25+3.0/10.0*t27;
6704       t30 = r-2.0/27.0;
6705       t31 = t8*t6;
6706       t32 = t11*t9;
6707       t33 = t2*t12;
6708       t34 = t4*t14;
6709       t35 = t1*t16;
6710       t36 = s*t18;
6711       t40 = t30*t23;
6712       t42 = t40*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
6713       drv[0] = t23*t28+t30*(72.0/23.0*t5+2016.0/253.0*t31+2016.0/253.0*t32+
6714 1008.0/253.0*t33+5040.0/4807.0*t34+672.0/4807.0*t35+672.0/81719.0*t36+12.0/
6715 81719.0*t20)*t28+t42;
6716       drv[1] = t30*(8.0*t5+504.0/23.0*t31+6048.0/253.0*t32+3360.0/253.0*t33+
6717 1008.0/253.0*t34+3024.0/4807.0*t35+224.0/4807.0*t36+96.0/81719.0*t20)*t28+t42;
6718       drv[2] = t40*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
6719    /* p=15 1 9 1 */
6720    } else if( i==1 && j==9 && k==1 ) {
6721       t1 = s*s;
6722       t2 = t1*t1;
6723       t3 = t2*t2;
6724       t5 = r-1.0;
6725       t7 = t1*s;
6726       t8 = t2*t7;
6727       t9 = t5*t5;
6728       t11 = t2*t1;
6729       t12 = t9*t5;
6730       t14 = t2*s;
6731       t15 = t9*t9;
6732       t17 = t15*t5;
6733       t19 = t15*t9;
6734       t21 = t15*t12;
6735       t23 = t15*t15;
6736       t26 = t3*s+90.0/23.0*t3*t5+1620.0/253.0*t8*t9+1440.0/253.0*t11*t12+756.0/
6737 253.0*t14*t15+4536.0/4807.0*t2*t17+840.0/4807.0*t7*t19+1440.0/81719.0*t1*t21+
6738 135.0/163438.0*s*t23+t23*t5/81719;
6739       t27 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
6740       t29 = r-2.0/27.0;
6741       t30 = t8*t5;
6742       t31 = t11*t9;
6743       t32 = t14*t12;
6744       t33 = t2*t15;
6745       t34 = t7*t17;
6746       t35 = t1*t19;
6747       t36 = s*t21;
6748       t40 = t29*t26;
6749       drv[0] = t26*t27+t29*(90.0/23.0*t3+3240.0/253.0*t30+4320.0/253.0*t31+
6750 3024.0/253.0*t32+22680.0/4807.0*t33+5040.0/4807.0*t34+10080.0/81719.0*t35+540.0
6751 /81719.0*t36+9.0/81719.0*t23)*t27+2.0/3.0*t40;
6752       drv[1] = t29*(9.0*t3+720.0/23.0*t30+11340.0/253.0*t31+8640.0/253.0*t32+
6753 3780.0/253.0*t33+18144.0/4807.0*t34+2520.0/4807.0*t35+2880.0/81719.0*t36+135.0/
6754 163438.0*t23)*t27+2.0/3.0*t40;
6755       drv[2] = t40;
6756    /* p=15 1 10 0 */
6757    } else if( i==1 && j==10 && k==0 ) {
6758       t1 = s*s;
6759       t2 = t1*t1;
6760       t3 = t2*t2;
6761       t5 = t3*s;
6762       t6 = r-1.0;
6763       t8 = t6*t6;
6764       t10 = t1*s;
6765       t11 = t2*t10;
6766       t12 = t8*t6;
6767       t14 = t2*t1;
6768       t15 = t8*t8;
6769       t17 = t2*s;
6770       t18 = t15*t6;
6771       t20 = t15*t8;
6772       t22 = t15*t12;
6773       t24 = t15*t15;
6774       t26 = t24*t6;
6775       t29 = r-2.0/27.0;
6776       t30 = t3*t6;
6777       t31 = t11*t8;
6778       t32 = t14*t12;
6779       t33 = t17*t15;
6780       t34 = t2*t18;
6781       t35 = t10*t20;
6782       t36 = t1*t22;
6783       t37 = s*t24;
6784       t40 = t3*t1+110.0/23.0*t5*t6+225.0/23.0*t3*t8+1800.0/161.0*t11*t12+180.0/
6785 23.0*t14*t15+1512.0/437.0*t17*t18+420.0/437.0*t2*t20+1200.0/7429.0*t10*t22+
6786 225.0/14858.0*t1*t24+5.0/7429.0*s*t26+t24*t8/104006+t29*(110.0/23.0*t5+450.0/
6787 23.0*t30+5400.0/161.0*t31+720.0/23.0*t32+7560.0/437.0*t33+2520.0/437.0*t34+
6788 8400.0/7429.0*t35+900.0/7429.0*t36+45.0/7429.0*t37+5.0/52003.0*t26);
6789       drv[0] = t40;
6790       drv[1] = t29*(10.0*t5+990.0/23.0*t30+1800.0/23.0*t31+1800.0/23.0*t32+
6791 1080.0/23.0*t33+7560.0/437.0*t34+1680.0/437.0*t35+3600.0/7429.0*t36+225.0/
6792 7429.0*t37+5.0/7429.0*t26);
6793       drv[2] = 0.0;
6794    /* p=15 2 0 9 */
6795    } else if( i==2 && j==0 && k==9 ) {
6796       t2 = t*t;
6797       t3 = t2*t2;
6798       t4 = t3*t3;
6799       t6 = s+r-1.0;
6800       t8 = t2*t;
6801       t9 = t3*t8;
6802       t10 = t6*t6;
6803       t12 = t3*t2;
6804       t13 = t10*t6;
6805       t15 = t3*t;
6806       t16 = t10*t10;
6807       t18 = t16*t6;
6808       t20 = t16*t10;
6809       t22 = t16*t13;
6810       t24 = t16*t16;
6811       t29 = r*r;
6812       t30 = t29-2.0/9.0*r+1.0/117.0;
6813       t31 = t9*t6;
6814       t32 = t12*t10;
6815       t33 = t15*t13;
6816       t34 = t3*t16;
6817       t35 = t8*t18;
6818       t36 = t2*t20;
6819       t37 = t*t22;
6820       t39 = t30*(90.0/19.0*t4+360.0/19.0*t31+10080.0/323.0*t32+8820.0/323.0*t33
6821 +4410.0/323.0*t34+1260.0/323.0*t35+2520.0/4199.0*t36+180.0/4199.0*t37+45.0/
6822 46189.0*t24);
6823       drv[0] = (2.0*r-2.0/9.0)*(t4*t+90.0/19.0*t4*t6+180.0/19.0*t9*t10+3360.0/
6824 323.0*t12*t13+2205.0/323.0*t15*t16+882.0/323.0*t3*t18+210.0/323.0*t8*t20+360.0/
6825 4199.0*t2*t22+45.0/8398.0*t*t24+5.0/46189.0*t24*t6)+t39;
6826       drv[1] = t39;
6827       drv[2] = t30*(9.0*t4+720.0/19.0*t31+1260.0/19.0*t32+20160.0/323.0*t33+
6828 11025.0/323.0*t34+3528.0/323.0*t35+630.0/323.0*t36+720.0/4199.0*t37+45.0/8398.0
6829 *t24);
6830    /* p=15 2 1 8 */
6831    } else if( i==2 && j==1 && k==8 ) {
6832       t2 = s+2.0/21.0*r-2.0/21.0;
6833       t4 = t*t;
6834       t5 = t4*t4;
6835       t6 = t5*t5;
6836       t7 = t4*t;
6837       t8 = t5*t7;
6838       t9 = s+r-1.0;
6839       t11 = t5*t4;
6840       t12 = t9*t9;
6841       t14 = t5*t;
6842       t15 = t12*t9;
6843       t17 = t12*t12;
6844       t19 = t17*t9;
6845       t21 = t17*t12;
6846       t23 = t17*t15;
6847       t25 = t17*t17;
6848       t26 = t6+72.0/17.0*t8*t9+126.0/17.0*t11*t12+588.0/85.0*t14*t15+63.0/17.0*
6849 t5*t17+252.0/221.0*t7*t19+42.0/221.0*t4*t21+36.0/2431.0*t*t23+9.0/24310.0*t25;
6850       t28 = r*r;
6851       t29 = t28-2.0/9.0*r+1.0/117.0;
6852       t30 = t29*t26;
6853       t31 = t29*t2;
6854       t32 = t11*t9;
6855       t33 = t14*t12;
6856       t34 = t5*t15;
6857       t35 = t7*t17;
6858       t36 = t4*t19;
6859       t37 = t*t21;
6860       t39 = t31*(72.0/17.0*t8+252.0/17.0*t32+1764.0/85.0*t33+252.0/17.0*t34+
6861 1260.0/221.0*t35+252.0/221.0*t36+252.0/2431.0*t37+36.0/12155.0*t23);
6862       drv[0] = t2*(2.0*r-2.0/9.0)*t26+2.0/21.0*t30+t39;
6863       drv[1] = t30+t39;
6864       drv[2] = t31*(8.0*t8+504.0/17.0*t32+756.0/17.0*t33+588.0/17.0*t34+252.0/
6865 17.0*t35+756.0/221.0*t36+84.0/221.0*t37+36.0/2431.0*t23);
6866    /* p=15 2 2 7 */
6867    } else if( i==2 && j==2 && k==7 ) {
6868       t2 = s*s;
6869       t3 = r-1.0;
6870       t5 = t3*t3;
6871       t6 = t2+2.0/7.0*s*t3+t5/70;
6872       t8 = t*t;
6873       t9 = t8*t;
6874       t10 = t8*t8;
6875       t12 = t10*t8;
6876       t13 = s+r-1.0;
6877       t15 = t10*t;
6878       t16 = t13*t13;
6879       t18 = t16*t13;
6880       t20 = t16*t16;
6881       t22 = t20*t13;
6882       t24 = t20*t16;
6883       t27 = t10*t9+56.0/15.0*t12*t13+28.0/5.0*t15*t16+56.0/13.0*t10*t18+70.0/
6884 39.0*t9*t20+56.0/143.0*t8*t22+28.0/715.0*t*t24+8.0/6435.0*t20*t18;
6885       t29 = r*r;
6886       t30 = t29-2.0/9.0*r+1.0/117.0;
6887       t34 = t30*t6;
6888       t35 = t15*t13;
6889       t36 = t10*t16;
6890       t37 = t9*t18;
6891       t38 = t8*t20;
6892       t39 = t*t22;
6893       t41 = t34*(56.0/15.0*t12+56.0/5.0*t35+168.0/13.0*t36+280.0/39.0*t37+280.0
6894 /143.0*t38+168.0/715.0*t39+56.0/6435.0*t24);
6895       drv[0] = (2.0*r-2.0/9.0)*t6*t27+t30*(2.0/7.0*s+r/35-1.0/35.0)*t27+t41;
6896       drv[1] = t30*(2.0*s+2.0/7.0*r-2.0/7.0)*t27+t41;
6897       drv[2] = t34*(7.0*t12+112.0/5.0*t35+28.0*t36+224.0/13.0*t37+70.0/13.0*t38
6898 +112.0/143.0*t39+28.0/715.0*t24);
6899    /* p=15 2 3 6 */
6900    } else if( i==2 && j==3 && k==6 ) {
6901       t2 = s*s;
6902       t4 = r-1.0;
6903       t6 = t4*t4;
6904       t9 = t2*s+4.0/7.0*t4*t2+3.0/35.0*s*t6+2.0/665.0*t6*t4;
6905       t11 = t*t;
6906       t12 = t11*t11;
6907       t14 = t12*t;
6908       t15 = s+r-1.0;
6909       t17 = t15*t15;
6910       t19 = t11*t;
6911       t20 = t17*t15;
6912       t22 = t17*t17;
6913       t24 = t22*t15;
6914       t27 = t11*t12+42.0/13.0*t14*t15+105.0/26.0*t17*t12+350.0/143.0*t19*t20+
6915 105.0/143.0*t11*t22+14.0/143.0*t*t24+7.0/1716.0*t22*t17;
6916       t29 = r*r;
6917       t30 = t29-2.0/9.0*r+1.0/117.0;
6918       t31 = s*t4;
6919       t35 = t30*t9;
6920       t36 = t12*t15;
6921       t37 = t19*t17;
6922       t38 = t11*t20;
6923       t39 = t*t22;
6924       t41 = t35*(42.0/13.0*t14+105.0/13.0*t36+1050.0/143.0*t37+420.0/143.0*t38+
6925 70.0/143.0*t39+7.0/286.0*t24);
6926       drv[0] = (2.0*r-2.0/9.0)*t9*t27+t30*(4.0/7.0*t2+6.0/35.0*t31+6.0/665.0*t6
6927 )*t27+t41;
6928       drv[1] = t30*(3.0*t2+8.0/7.0*t31+3.0/35.0*t6)*t27+t41;
6929       drv[2] = t35*(6.0*t14+210.0/13.0*t36+210.0/13.0*t37+1050.0/143.0*t38+
6930 210.0/143.0*t39+14.0/143.0*t24);
6931    /* p=15 2 4 5 */
6932    } else if( i==2 && j==4 && k==5 ) {
6933       t2 = s*s;
6934       t3 = t2*t2;
6935       t4 = t2*s;
6936       t5 = r-1.0;
6937       t7 = t5*t5;
6938       t9 = t7*t5;
6939       t11 = t7*t7;
6940       t12 = t3+20.0/21.0*t4*t5+2.0/7.0*t2*t7+4.0/133.0*s*t9+t11/1197;
6941       t14 = t*t;
6942       t15 = t14*t14;
6943       t17 = s+r-1.0;
6944       t19 = t14*t;
6945       t20 = t17*t17;
6946       t22 = t20*t17;
6947       t24 = t20*t20;
6948       t27 = t15*t+30.0/11.0*t15*t17+30.0/11.0*t19*t20+40.0/33.0*t14*t22+5.0/
6949 22.0*t*t24+t24*t17/77;
6950       t29 = r*r;
6951       t30 = t29-2.0/9.0*r+1.0/117.0;
6952       t31 = t2*t5;
6953       t32 = s*t7;
6954       t36 = t30*t12;
6955       t37 = t19*t17;
6956       t38 = t14*t20;
6957       t39 = t*t22;
6958       t41 = t36*(30.0/11.0*t15+60.0/11.0*t37+40.0/11.0*t38+10.0/11.0*t39+5.0/
6959 77.0*t24);
6960       drv[0] = (2.0*r-2.0/9.0)*t12*t27+t30*(20.0/21.0*t4+4.0/7.0*t31+12.0/133.0
6961 *t32+4.0/1197.0*t9)*t27+t41;
6962       drv[1] = t30*(4.0*t4+20.0/7.0*t31+4.0/7.0*t32+4.0/133.0*t9)*t27+t41;
6963       drv[2] = t36*(5.0*t15+120.0/11.0*t37+90.0/11.0*t38+80.0/33.0*t39+5.0/22.0
6964 *t24);
6965    /* p=15 2 5 4 */
6966    } else if( i==2 && j==5 && k==4 ) {
6967       t2 = s*s;
6968       t3 = t2*t2;
6969       t5 = r-1.0;
6970       t7 = t2*s;
6971       t8 = t5*t5;
6972       t10 = t8*t5;
6973       t12 = t8*t8;
6974       t15 = t3*s+10.0/7.0*t3*t5+5.0/7.0*t7*t8+20.0/133.0*t2*t10+5.0/399.0*s*t12
6975 +2.0/6783.0*t12*t5;
6976       t17 = t*t;
6977       t18 = t17*t17;
6978       t19 = t17*t;
6979       t20 = s+r-1.0;
6980       t22 = t20*t20;
6981       t24 = t22*t20;
6982       t26 = t22*t22;
6983       t27 = t18+20.0/9.0*t19*t20+5.0/3.0*t17*t22+10.0/21.0*t*t24+5.0/126.0*t26;
6984       t29 = r*r;
6985       t30 = t29-2.0/9.0*r+1.0/117.0;
6986       t31 = t7*t5;
6987       t32 = t2*t8;
6988       t33 = s*t10;
6989       t37 = t30*t15;
6990       t38 = t20*t17;
6991       t39 = t*t22;
6992       t41 = t37*(20.0/9.0*t19+10.0/3.0*t38+10.0/7.0*t39+10.0/63.0*t24);
6993       drv[0] = (2.0*r-2.0/9.0)*t15*t27+t30*(10.0/7.0*t3+10.0/7.0*t31+60.0/133.0
6994 *t32+20.0/399.0*t33+10.0/6783.0*t12)*t27+t41;
6995       drv[1] = t30*(5.0*t3+40.0/7.0*t31+15.0/7.0*t32+40.0/133.0*t33+5.0/399.0*
6996 t12)*t27+t41;
6997       drv[2] = t37*(4.0*t19+20.0/3.0*t38+10.0/3.0*t39+10.0/21.0*t24);
6998    /* p=15 2 6 3 */
6999    } else if( i==2 && j==6 && k==3 ) {
7000       t2 = s*s;
7001       t3 = t2*t2;
7002       t5 = t3*s;
7003       t6 = r-1.0;
7004       t8 = t6*t6;
7005       t10 = t2*s;
7006       t11 = t8*t6;
7007       t13 = t8*t8;
7008       t15 = t13*t6;
7009       t18 = t3*t2+2.0*t5*t6+3.0/2.0*t3*t8+10.0/19.0*t10*t11+5.0/57.0*t2*t13+2.0
7010 /323.0*s*t15+t13*t8/7752;
7011       t20 = t*t;
7012       t22 = s+r-1.0;
7013       t24 = t22*t22;
7014       t27 = t20*t+12.0/7.0*t22*t20+6.0/7.0*t*t24+4.0/35.0*t24*t22;
7015       t29 = r*r;
7016       t30 = t29-2.0/9.0*r+1.0/117.0;
7017       t31 = t3*t6;
7018       t32 = t10*t8;
7019       t33 = t2*t11;
7020       t34 = s*t13;
7021       t38 = t30*t18;
7022       t39 = t*t22;
7023       t41 = t38*(12.0/7.0*t20+12.0/7.0*t39+12.0/35.0*t24);
7024       drv[0] = (2.0*r-2.0/9.0)*t18*t27+t30*(2.0*t5+3.0*t31+30.0/19.0*t32+20.0/
7025 57.0*t33+10.0/323.0*t34+t15/1292)*t27+t41;
7026       drv[1] = t30*(6.0*t5+10.0*t31+6.0*t32+30.0/19.0*t33+10.0/57.0*t34+2.0/
7027 323.0*t15)*t27+t41;
7028       drv[2] = t38*(3.0*t20+24.0/7.0*t39+6.0/7.0*t24);
7029    /* p=15 2 7 2 */
7030    } else if( i==2 && j==7 && k==2 ) {
7031       t2 = s*s;
7032       t3 = t2*s;
7033       t4 = t2*t2;
7034       t6 = t4*t2;
7035       t7 = r-1.0;
7036       t9 = t4*s;
7037       t10 = t7*t7;
7038       t12 = t10*t7;
7039       t14 = t10*t10;
7040       t16 = t14*t7;
7041       t18 = t14*t10;
7042       t21 = t4*t3+8.0/3.0*t6*t7+14.0/5.0*t9*t10+28.0/19.0*t4*t12+70.0/171.0*t3*
7043 t14+56.0/969.0*t2*t16+7.0/1938.0*s*t18+t14*t12/14535;
7044       t23 = t*t;
7045       t24 = s+r-1.0;
7046       t26 = t24*t24;
7047       t27 = t23+6.0/5.0*t*t24+3.0/10.0*t26;
7048       t29 = r*r;
7049       t30 = t29-2.0/9.0*r+1.0/117.0;
7050       t31 = t9*t7;
7051       t32 = t4*t10;
7052       t33 = t3*t12;
7053       t34 = t2*t14;
7054       t35 = s*t16;
7055       t39 = t30*t21;
7056       t41 = t39*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
7057       drv[0] = (2.0*r-2.0/9.0)*t21*t27+t30*(8.0/3.0*t6+28.0/5.0*t31+84.0/19.0*
7058 t32+280.0/171.0*t33+280.0/969.0*t34+7.0/323.0*t35+7.0/14535.0*t18)*t27+t41;
7059       drv[1] = t30*(7.0*t6+16.0*t31+14.0*t32+112.0/19.0*t33+70.0/57.0*t34+112.0
7060 /969.0*t35+7.0/1938.0*t18)*t27+t41;
7061       drv[2] = t39*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
7062    /* p=15 2 8 1 */
7063    } else if( i==2 && j==8 && k==1 ) {
7064       t2 = s*s;
7065       t3 = t2*t2;
7066       t4 = t3*t3;
7067       t5 = t2*s;
7068       t6 = t3*t5;
7069       t7 = r-1.0;
7070       t9 = t3*t2;
7071       t10 = t7*t7;
7072       t12 = t3*s;
7073       t13 = t10*t7;
7074       t15 = t10*t10;
7075       t17 = t15*t7;
7076       t19 = t15*t10;
7077       t21 = t15*t13;
7078       t23 = t15*t15;
7079       t24 = t4+24.0/7.0*t6*t7+24.0/5.0*t9*t10+336.0/95.0*t12*t13+28.0/19.0*t3*
7080 t15+112.0/323.0*t5*t17+14.0/323.0*t2*t19+4.0/1615.0*s*t21+t23/22610;
7081       t26 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
7082       t28 = r*r;
7083       t29 = t28-2.0/9.0*r+1.0/117.0;
7084       t30 = t9*t7;
7085       t31 = t12*t10;
7086       t32 = t3*t13;
7087       t33 = t5*t15;
7088       t34 = t2*t17;
7089       t35 = s*t19;
7090       t39 = t29*t24;
7091       drv[0] = (2.0*r-2.0/9.0)*t24*t26+t29*(24.0/7.0*t6+48.0/5.0*t30+1008.0/
7092 95.0*t31+112.0/19.0*t32+560.0/323.0*t33+84.0/323.0*t34+28.0/1615.0*t35+4.0/
7093 11305.0*t21)*t26+2.0/3.0*t39;
7094       drv[1] = t29*(8.0*t6+24.0*t30+144.0/5.0*t31+336.0/19.0*t32+112.0/19.0*t33
7095 +336.0/323.0*t34+28.0/323.0*t35+4.0/1615.0*t21)*t26+2.0/3.0*t39;
7096       drv[2] = t39;
7097    /* p=15 2 9 0 */
7098    } else if( i==2 && j==9 && k==0 ) {
7099       t2 = s*s;
7100       t3 = t2*t2;
7101       t4 = t3*t3;
7102       t6 = r-1.0;
7103       t8 = t2*s;
7104       t9 = t3*t8;
7105       t10 = t6*t6;
7106       t12 = t3*t2;
7107       t13 = t10*t6;
7108       t15 = t3*s;
7109       t16 = t10*t10;
7110       t18 = t16*t6;
7111       t20 = t16*t10;
7112       t22 = t16*t13;
7113       t24 = t16*t16;
7114       t29 = r*r;
7115       t30 = t29-2.0/9.0*r+1.0/117.0;
7116       t31 = t9*t6;
7117       t32 = t12*t10;
7118       t33 = t15*t13;
7119       t34 = t3*t16;
7120       t35 = t8*t18;
7121       t36 = t2*t20;
7122       t37 = s*t22;
7123       drv[0] = (2.0*r-2.0/9.0)*(t4*s+30.0/7.0*t4*t6+54.0/7.0*t9*t10+144.0/19.0*
7124 t12*t13+84.0/19.0*t15*t16+504.0/323.0*t3*t18+105.0/323.0*t8*t20+12.0/323.0*t2*
7125 t22+9.0/4522.0*s*t24+t24*t6/29393)+t30*(30.0/7.0*t4+108.0/7.0*t31+432.0/19.0*
7126 t32+336.0/19.0*t33+2520.0/323.0*t34+630.0/323.0*t35+84.0/323.0*t36+36.0/2261.0*
7127 t37+9.0/29393.0*t24);
7128       drv[1] = t30*(9.0*t4+240.0/7.0*t31+54.0*t32+864.0/19.0*t33+420.0/19.0*t34
7129 +2016.0/323.0*t35+315.0/323.0*t36+24.0/323.0*t37+9.0/4522.0*t24);
7130       drv[2] = 0.0;
7131    /* p=15 3 0 8 */
7132    } else if( i==3 && j==0 && k==8 ) {
7133       t1 = r*r;
7134       t3 = t*t;
7135       t4 = t3*t3;
7136       t5 = t4*t4;
7137       t6 = t3*t;
7138       t7 = t4*t6;
7139       t8 = s+r-1.0;
7140       t10 = t4*t3;
7141       t11 = t8*t8;
7142       t13 = t4*t;
7143       t14 = t11*t8;
7144       t16 = t11*t11;
7145       t18 = t16*t8;
7146       t20 = t16*t11;
7147       t22 = t16*t14;
7148       t24 = t16*t16;
7149       t28 = t1*r-4.0/9.0*t1+2.0/39.0*r-4.0/2925.0;
7150       t29 = t10*t8;
7151       t30 = t13*t11;
7152       t31 = t4*t14;
7153       t32 = t16*t6;
7154       t33 = t3*t18;
7155       t34 = t*t20;
7156       t36 = t28*(72.0/17.0*t7+252.0/17.0*t29+1764.0/85.0*t30+252.0/17.0*t31+
7157 1260.0/221.0*t32+252.0/221.0*t33+252.0/2431.0*t34+36.0/12155.0*t22);
7158       drv[0] = (3.0*t1-8.0/9.0*r+2.0/39.0)*(t5+72.0/17.0*t7*t8+126.0/17.0*t10*
7159 t11+588.0/85.0*t13*t14+63.0/17.0*t4*t16+252.0/221.0*t6*t18+42.0/221.0*t3*t20+
7160 36.0/2431.0*t*t22+9.0/24310.0*t24)+t36;
7161       drv[1] = t36;
7162       drv[2] = t28*(8.0*t7+504.0/17.0*t29+756.0/17.0*t30+588.0/17.0*t31+252.0/
7163 17.0*t32+756.0/221.0*t33+84.0/221.0*t34+36.0/2431.0*t22);
7164    /* p=15 3 1 7 */
7165    } else if( i==3 && j==1 && k==7 ) {
7166       t1 = r*r;
7167       t3 = s+2.0/19.0*r-2.0/19.0;
7168       t5 = t*t;
7169       t6 = t5*t;
7170       t7 = t5*t5;
7171       t9 = t7*t5;
7172       t10 = s+r-1.0;
7173       t12 = t7*t;
7174       t13 = t10*t10;
7175       t15 = t13*t10;
7176       t17 = t13*t13;
7177       t19 = t17*t10;
7178       t21 = t17*t13;
7179       t24 = t7*t6+56.0/15.0*t9*t10+28.0/5.0*t12*t13+56.0/13.0*t7*t15+70.0/39.0*
7180 t6*t17+56.0/143.0*t5*t19+28.0/715.0*t*t21+8.0/6435.0*t17*t15;
7181       t27 = t1*r-4.0/9.0*t1+2.0/39.0*r-4.0/2925.0;
7182       t28 = t27*t24;
7183       t29 = t27*t3;
7184       t30 = t12*t10;
7185       t31 = t7*t13;
7186       t32 = t6*t15;
7187       t33 = t5*t17;
7188       t34 = t*t19;
7189       t36 = t29*(56.0/15.0*t9+56.0/5.0*t30+168.0/13.0*t31+280.0/39.0*t32+280.0/
7190 143.0*t33+168.0/715.0*t34+56.0/6435.0*t21);
7191       drv[0] = t3*(3.0*t1-8.0/9.0*r+2.0/39.0)*t24+2.0/19.0*t28+t36;
7192       drv[1] = t28+t36;
7193       drv[2] = t29*(7.0*t9+112.0/5.0*t30+28.0*t31+224.0/13.0*t32+70.0/13.0*t33+
7194 112.0/143.0*t34+28.0/715.0*t21);
7195    /* p=15 3 2 6 */
7196    } else if( i==3 && j==2 && k==6 ) {
7197       t1 = r*r;
7198       t3 = s*s;
7199       t4 = r-1.0;
7200       t6 = t4*t4;
7201       t7 = t3+6.0/19.0*s*t4+t6/57;
7202       t9 = t*t;
7203       t10 = t9*t9;
7204       t12 = t10*t;
7205       t13 = s+r-1.0;
7206       t15 = t13*t13;
7207       t17 = t9*t;
7208       t18 = t15*t13;
7209       t20 = t15*t15;
7210       t22 = t20*t13;
7211       t25 = t10*t9+42.0/13.0*t12*t13+105.0/26.0*t10*t15+350.0/143.0*t17*t18+
7212 105.0/143.0*t9*t20+14.0/143.0*t*t22+7.0/1716.0*t20*t15;
7213       t28 = t1*r-4.0/9.0*t1+2.0/39.0*r-4.0/2925.0;
7214       t32 = t28*t7;
7215       t33 = t10*t13;
7216       t34 = t17*t15;
7217       t35 = t9*t18;
7218       t36 = t*t20;
7219       t38 = t32*(42.0/13.0*t12+105.0/13.0*t33+1050.0/143.0*t34+420.0/143.0*t35+
7220 70.0/143.0*t36+7.0/286.0*t22);
7221       drv[0] = (3.0*t1-8.0/9.0*r+2.0/39.0)*t7*t25+t28*(6.0/19.0*s+2.0/57.0*r
7222 -2.0/57.0)*t25+t38;
7223       drv[1] = t28*(2.0*s+6.0/19.0*r-6.0/19.0)*t25+t38;
7224       drv[2] = t32*(6.0*t12+210.0/13.0*t33+210.0/13.0*t34+1050.0/143.0*t35+
7225 210.0/143.0*t36+14.0/143.0*t22);
7226    /* p=15 3 3 5 */
7227    } else if( i==3 && j==3 && k==5 ) {
7228       t1 = r*r;
7229       t3 = s*s;
7230       t5 = r-1.0;
7231       t7 = t5*t5;
7232       t10 = t3*s+12.0/19.0*t3*t5+2.0/19.0*s*t7+4.0/969.0*t7*t5;
7233       t12 = t*t;
7234       t13 = t12*t12;
7235       t15 = s+r-1.0;
7236       t17 = t12*t;
7237       t18 = t15*t15;
7238       t20 = t18*t15;
7239       t22 = t18*t18;
7240       t25 = t13*t+30.0/11.0*t15*t13+30.0/11.0*t17*t18+40.0/33.0*t12*t20+5.0/
7241 22.0*t*t22+t22*t15/77;
7242       t28 = t1*r-4.0/9.0*t1+2.0/39.0*r-4.0/2925.0;
7243       t29 = s*t5;
7244       t33 = t28*t10;
7245       t34 = t17*t15;
7246       t35 = t12*t18;
7247       t36 = t*t20;
7248       t38 = t33*(30.0/11.0*t13+60.0/11.0*t34+40.0/11.0*t35+10.0/11.0*t36+5.0/
7249 77.0*t22);
7250       drv[0] = (3.0*t1-8.0/9.0*r+2.0/39.0)*t10*t25+t28*(12.0/19.0*t3+4.0/19.0*
7251 t29+4.0/323.0*t7)*t25+t38;
7252       drv[1] = t28*(3.0*t3+24.0/19.0*t29+2.0/19.0*t7)*t25+t38;
7253       drv[2] = t33*(5.0*t13+120.0/11.0*t34+90.0/11.0*t35+80.0/33.0*t36+5.0/22.0
7254 *t22);
7255    /* p=15 3 4 4 */
7256    } else if( i==3 && j==4 && k==4 ) {
7257       t1 = r*r;
7258       t3 = s*s;
7259       t4 = t3*t3;
7260       t5 = t3*s;
7261       t6 = r-1.0;
7262       t8 = t6*t6;
7263       t10 = t8*t6;
7264       t12 = t8*t8;
7265       t13 = t4+20.0/19.0*t5*t6+20.0/57.0*t3*t8+40.0/969.0*s*t10+5.0/3876.0*t12;
7266       t15 = t*t;
7267       t16 = t15*t15;
7268       t17 = t15*t;
7269       t18 = s+r-1.0;
7270       t20 = t18*t18;
7271       t22 = t20*t18;
7272       t24 = t20*t20;
7273       t25 = t16+20.0/9.0*t17*t18+5.0/3.0*t20*t15+10.0/21.0*t*t22+5.0/126.0*t24;
7274       t28 = t1*r-4.0/9.0*t1+2.0/39.0*r-4.0/2925.0;
7275       t29 = t3*t6;
7276       t30 = s*t8;
7277       t34 = t28*t13;
7278       t35 = t18*t15;
7279       t36 = t*t20;
7280       t38 = t34*(20.0/9.0*t17+10.0/3.0*t35+10.0/7.0*t36+10.0/63.0*t22);
7281       drv[0] = (3.0*t1-8.0/9.0*r+2.0/39.0)*t13*t25+t28*(20.0/19.0*t5+40.0/57.0*
7282 t29+40.0/323.0*t30+5.0/969.0*t10)*t25+t38;
7283       drv[1] = t28*(4.0*t5+60.0/19.0*t29+40.0/57.0*t30+40.0/969.0*t10)*t25+t38;
7284       drv[2] = t34*(4.0*t17+20.0/3.0*t35+10.0/3.0*t36+10.0/21.0*t22);
7285    /* p=15 3 5 3 */
7286    } else if( i==3 && j==5 && k==3 ) {
7287       t1 = r*r;
7288       t3 = s*s;
7289       t4 = t3*t3;
7290       t6 = r-1.0;
7291       t8 = t3*s;
7292       t9 = t6*t6;
7293       t11 = t9*t6;
7294       t13 = t9*t9;
7295       t16 = t4*s+30.0/19.0*t4*t6+50.0/57.0*t8*t9+200.0/969.0*t3*t11+25.0/1292.0
7296 *s*t13+t13*t6/1938;
7297       t18 = t*t;
7298       t20 = s+r-1.0;
7299       t22 = t20*t20;
7300       t25 = t18*t+12.0/7.0*t20*t18+6.0/7.0*t*t22+4.0/35.0*t22*t20;
7301       t28 = t1*r-4.0/9.0*t1+2.0/39.0*r-4.0/2925.0;
7302       t29 = t8*t6;
7303       t30 = t3*t9;
7304       t31 = s*t11;
7305       t35 = t28*t16;
7306       t36 = t*t20;
7307       t38 = t35*(12.0/7.0*t18+12.0/7.0*t36+12.0/35.0*t22);
7308       drv[0] = (3.0*t1-8.0/9.0*r+2.0/39.0)*t16*t25+t28*(30.0/19.0*t4+100.0/57.0
7309 *t29+200.0/323.0*t30+25.0/323.0*t31+5.0/1938.0*t13)*t25+t38;
7310       drv[1] = t28*(5.0*t4+120.0/19.0*t29+50.0/19.0*t30+400.0/969.0*t31+25.0/
7311 1292.0*t13)*t25+t38;
7312       drv[2] = t35*(3.0*t18+24.0/7.0*t36+6.0/7.0*t22);
7313    /* p=15 3 6 2 */
7314    } else if( i==3 && j==6 && k==2 ) {
7315       t1 = r*r;
7316       t3 = s*s;
7317       t4 = t3*t3;
7318       t6 = t4*s;
7319       t7 = r-1.0;
7320       t9 = t7*t7;
7321       t11 = t3*s;
7322       t12 = t9*t7;
7323       t14 = t9*t9;
7324       t16 = t14*t7;
7325       t19 = t4*t3+42.0/19.0*t6*t7+35.0/19.0*t4*t9+700.0/969.0*t11*t12+175.0/
7326 1292.0*t3*t14+7.0/646.0*s*t16+t14*t9/3876;
7327       t21 = t*t;
7328       t22 = s+r-1.0;
7329       t24 = t22*t22;
7330       t25 = t21+6.0/5.0*t*t22+3.0/10.0*t24;
7331       t28 = t1*r-4.0/9.0*t1+2.0/39.0*r-4.0/2925.0;
7332       t29 = t4*t7;
7333       t30 = t11*t9;
7334       t31 = t3*t12;
7335       t32 = s*t14;
7336       t36 = t28*t19;
7337       t38 = t36*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
7338       drv[0] = (3.0*t1-8.0/9.0*r+2.0/39.0)*t19*t25+t28*(42.0/19.0*t6+70.0/19.0*
7339 t29+700.0/323.0*t30+175.0/323.0*t31+35.0/646.0*t32+t16/646)*t25+t38;
7340       drv[1] = t28*(6.0*t6+210.0/19.0*t29+140.0/19.0*t30+700.0/323.0*t31+175.0/
7341 646.0*t32+7.0/646.0*t16)*t25+t38;
7342       drv[2] = t36*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
7343    /* p=15 3 7 1 */
7344    } else if( i==3 && j==7 && k==1 ) {
7345       t1 = r*r;
7346       t3 = s*s;
7347       t4 = t3*s;
7348       t5 = t3*t3;
7349       t7 = t5*t3;
7350       t8 = r-1.0;
7351       t10 = t5*s;
7352       t11 = t8*t8;
7353       t13 = t11*t8;
7354       t15 = t11*t11;
7355       t17 = t15*t8;
7356       t19 = t15*t11;
7357       t22 = t5*t4+56.0/19.0*t7*t8+196.0/57.0*t10*t11+1960.0/969.0*t5*t13+1225.0
7358 /1938.0*t4*t15+98.0/969.0*t3*t17+7.0/969.0*s*t19+2.0/12597.0*t15*t13;
7359       t24 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
7360       t27 = t1*r-4.0/9.0*t1+2.0/39.0*r-4.0/2925.0;
7361       t28 = t10*t8;
7362       t29 = t5*t11;
7363       t30 = t4*t13;
7364       t31 = t3*t15;
7365       t32 = s*t17;
7366       t36 = t27*t22;
7367       drv[0] = (3.0*t1-8.0/9.0*r+2.0/39.0)*t22*t24+t27*(56.0/19.0*t7+392.0/57.0
7368 *t28+1960.0/323.0*t29+2450.0/969.0*t30+490.0/969.0*t31+14.0/323.0*t32+14.0/
7369 12597.0*t19)*t24+2.0/3.0*t36;
7370       drv[1] = t27*(7.0*t7+336.0/19.0*t28+980.0/57.0*t29+7840.0/969.0*t30+
7371 1225.0/646.0*t31+196.0/969.0*t32+7.0/969.0*t19)*t24+2.0/3.0*t36;
7372       drv[2] = t36;
7373    /* p=15 3 8 0 */
7374    } else if( i==3 && j==8 && k==0 ) {
7375       t1 = r*r;
7376       t3 = s*s;
7377       t4 = t3*t3;
7378       t5 = t4*t4;
7379       t6 = t3*s;
7380       t7 = t4*t6;
7381       t8 = r-1.0;
7382       t10 = t4*t3;
7383       t11 = t8*t8;
7384       t13 = t4*s;
7385       t14 = t11*t8;
7386       t16 = t11*t11;
7387       t18 = t16*t8;
7388       t20 = t16*t11;
7389       t22 = t16*t14;
7390       t24 = t16*t16;
7391       t28 = t1*r-4.0/9.0*t1+2.0/39.0*r-4.0/2925.0;
7392       t29 = t10*t8;
7393       t30 = t13*t11;
7394       t31 = t4*t14;
7395       t32 = t6*t16;
7396       t33 = t3*t18;
7397       t34 = s*t20;
7398       drv[0] = (3.0*t1-8.0/9.0*r+2.0/39.0)*(t5+72.0/19.0*t7*t8+112.0/19.0*t10*
7399 t11+1568.0/323.0*t13*t14+735.0/323.0*t4*t16+196.0/323.0*t6*t18+28.0/323.0*t3*
7400 t20+24.0/4199.0*s*t22+t24/8398)+t28*(72.0/19.0*t7+224.0/19.0*t29+4704.0/323.0*
7401 t30+2940.0/323.0*t31+980.0/323.0*t32+168.0/323.0*t33+168.0/4199.0*t34+4.0/
7402 4199.0*t22);
7403       drv[1] = t28*(8.0*t7+504.0/19.0*t29+672.0/19.0*t30+7840.0/323.0*t31+
7404 2940.0/323.0*t32+588.0/323.0*t33+56.0/323.0*t34+24.0/4199.0*t22);
7405       drv[2] = 0.0;
7406    /* p=15 4 0 7 */
7407    } else if( i==4 && j==0 && k==7 ) {
7408       t1 = r*r;
7409       t2 = t1*r;
7410       t4 = t*t;
7411       t5 = t4*t;
7412       t6 = t4*t4;
7413       t8 = t4*t6;
7414       t9 = s+r-1.0;
7415       t11 = t6*t;
7416       t12 = t9*t9;
7417       t14 = t12*t9;
7418       t16 = t12*t12;
7419       t18 = t16*t9;
7420       t20 = t16*t12;
7421       t25 = t1*t1;
7422       t26 = t25-20.0/27.0*t2+20.0/117.0*t1-8.0/585.0*r+1.0/3510.0;
7423       t27 = t11*t9;
7424       t28 = t6*t12;
7425       t29 = t5*t14;
7426       t30 = t4*t16;
7427       t31 = t*t18;
7428       t33 = t26*(56.0/15.0*t8+56.0/5.0*t27+168.0/13.0*t28+280.0/39.0*t29+280.0/
7429 143.0*t30+168.0/715.0*t31+56.0/6435.0*t20);
7430       drv[0] = (4.0*t2-20.0/9.0*t1+40.0/117.0*r-8.0/585.0)*(t6*t5+56.0/15.0*t8*
7431 t9+28.0/5.0*t11*t12+56.0/13.0*t6*t14+70.0/39.0*t5*t16+56.0/143.0*t4*t18+28.0/
7432 715.0*t*t20+8.0/6435.0*t16*t14)+t33;
7433       drv[1] = t33;
7434       drv[2] = t26*(7.0*t8+112.0/5.0*t27+28.0*t28+224.0/13.0*t29+70.0/13.0*t30+
7435 112.0/143.0*t31+28.0/715.0*t20);
7436    /* p=15 4 1 6 */
7437    } else if( i==4 && j==1 && k==6 ) {
7438       t1 = r*r;
7439       t2 = t1*r;
7440       t4 = s+2.0/17.0*r-2.0/17.0;
7441       t6 = t*t;
7442       t7 = t6*t6;
7443       t9 = t7*t;
7444       t10 = s+r-1.0;
7445       t12 = t10*t10;
7446       t14 = t6*t;
7447       t15 = t12*t10;
7448       t17 = t12*t12;
7449       t19 = t17*t10;
7450       t22 = t7*t6+42.0/13.0*t9*t10+105.0/26.0*t7*t12+350.0/143.0*t14*t15+105.0/
7451 143.0*t6*t17+14.0/143.0*t*t19+7.0/1716.0*t17*t12;
7452       t24 = t1*t1;
7453       t25 = t24-20.0/27.0*t2+20.0/117.0*t1-8.0/585.0*r+1.0/3510.0;
7454       t26 = t25*t22;
7455       t27 = t25*t4;
7456       t28 = t7*t10;
7457       t29 = t14*t12;
7458       t30 = t6*t15;
7459       t31 = t*t17;
7460       t33 = t27*(42.0/13.0*t9+105.0/13.0*t28+1050.0/143.0*t29+420.0/143.0*t30+
7461 70.0/143.0*t31+7.0/286.0*t19);
7462       drv[0] = (4.0*t2-20.0/9.0*t1+40.0/117.0*r-8.0/585.0)*t4*t22+2.0/17.0*t26+
7463 t33;
7464       drv[1] = t26+t33;
7465       drv[2] = t27*(6.0*t9+210.0/13.0*t28+210.0/13.0*t29+1050.0/143.0*t30+210.0
7466 /143.0*t31+14.0/143.0*t19);
7467    /* p=15 4 2 5 */
7468    } else if( i==4 && j==2 && k==5 ) {
7469       t1 = r*r;
7470       t2 = t1*r;
7471       t4 = s*s;
7472       t5 = r-1.0;
7473       t7 = t5*t5;
7474       t8 = t4+6.0/17.0*s*t5+3.0/136.0*t7;
7475       t10 = t*t;
7476       t11 = t10*t10;
7477       t13 = s+r-1.0;
7478       t15 = t10*t;
7479       t16 = t13*t13;
7480       t18 = t16*t13;
7481       t20 = t16*t16;
7482       t23 = t11*t+30.0/11.0*t11*t13+30.0/11.0*t15*t16+40.0/33.0*t10*t18+5.0/
7483 22.0*t*t20+t20*t13/77;
7484       t25 = t1*t1;
7485       t26 = t25-20.0/27.0*t2+20.0/117.0*t1-8.0/585.0*r+1.0/3510.0;
7486       t30 = t26*t8;
7487       t31 = t15*t13;
7488       t32 = t10*t16;
7489       t33 = t*t18;
7490       t35 = t30*(30.0/11.0*t11+60.0/11.0*t31+40.0/11.0*t32+10.0/11.0*t33+5.0/
7491 77.0*t20);
7492       drv[0] = (4.0*t2-20.0/9.0*t1+40.0/117.0*r-8.0/585.0)*t8*t23+t26*(6.0/17.0
7493 *s+3.0/68.0*r-3.0/68.0)*t23+t35;
7494       drv[1] = t26*(2.0*s+6.0/17.0*r-6.0/17.0)*t23+t35;
7495       drv[2] = t30*(5.0*t11+120.0/11.0*t31+90.0/11.0*t32+80.0/33.0*t33+5.0/22.0
7496 *t20);
7497    /* p=15 4 3 4 */
7498    } else if( i==4 && j==3 && k==4 ) {
7499       t1 = r*r;
7500       t2 = t1*r;
7501       t4 = s*s;
7502       t6 = r-1.0;
7503       t8 = t6*t6;
7504       t11 = t4*s+12.0/17.0*t4*t6+9.0/68.0*s*t8+t8*t6/170;
7505       t13 = t*t;
7506       t14 = t13*t13;
7507       t15 = t13*t;
7508       t16 = s+r-1.0;
7509       t18 = t16*t16;
7510       t20 = t18*t16;
7511       t22 = t18*t18;
7512       t23 = t14+20.0/9.0*t15*t16+5.0/3.0*t13*t18+10.0/21.0*t*t20+5.0/126.0*t22;
7513       t25 = t1*t1;
7514       t26 = t25-20.0/27.0*t2+20.0/117.0*t1-8.0/585.0*r+1.0/3510.0;
7515       t27 = s*t6;
7516       t31 = t26*t11;
7517       t32 = t16*t13;
7518       t33 = t*t18;
7519       t35 = t31*(20.0/9.0*t15+10.0/3.0*t32+10.0/7.0*t33+10.0/63.0*t20);
7520       drv[0] = (4.0*t2-20.0/9.0*t1+40.0/117.0*r-8.0/585.0)*t11*t23+t26*(12.0/
7521 17.0*t4+9.0/34.0*t27+3.0/170.0*t8)*t23+t35;
7522       drv[1] = t26*(3.0*t4+24.0/17.0*t27+9.0/68.0*t8)*t23+t35;
7523       drv[2] = t31*(4.0*t15+20.0/3.0*t32+10.0/3.0*t33+10.0/21.0*t20);
7524    /* p=15 4 4 3 */
7525    } else if( i==4 && j==4 && k==3 ) {
7526       t1 = r*r;
7527       t2 = t1*r;
7528       t4 = s*s;
7529       t5 = t4*t4;
7530       t6 = t4*s;
7531       t7 = r-1.0;
7532       t9 = t7*t7;
7533       t11 = t9*t7;
7534       t13 = t9*t9;
7535       t14 = t5+20.0/17.0*t6*t7+15.0/34.0*t4*t9+s*t11/17+t13/476;
7536       t16 = t*t;
7537       t18 = s+r-1.0;
7538       t20 = t18*t18;
7539       t23 = t16*t+12.0/7.0*t18*t16+6.0/7.0*t*t20+4.0/35.0*t20*t18;
7540       t25 = t1*t1;
7541       t26 = t25-20.0/27.0*t2+20.0/117.0*t1-8.0/585.0*r+1.0/3510.0;
7542       t27 = t4*t7;
7543       t28 = s*t9;
7544       t32 = t26*t14;
7545       t33 = t*t18;
7546       t35 = t32*(12.0/7.0*t16+12.0/7.0*t33+12.0/35.0*t20);
7547       drv[0] = (4.0*t2-20.0/9.0*t1+40.0/117.0*r-8.0/585.0)*t14*t23+t26*(20.0/
7548 17.0*t6+15.0/17.0*t27+3.0/17.0*t28+t11/119)*t23+t35;
7549       drv[1] = t26*(4.0*t6+60.0/17.0*t27+15.0/17.0*t28+t11/17)*t23+t35;
7550       drv[2] = t32*(3.0*t16+24.0/7.0*t33+6.0/7.0*t20);
7551    /* p=15 4 5 2 */
7552    } else if( i==4 && j==5 && k==2 ) {
7553       t1 = r*r;
7554       t2 = t1*r;
7555       t4 = s*s;
7556       t5 = t4*t4;
7557       t7 = r-1.0;
7558       t9 = t4*s;
7559       t10 = t7*t7;
7560       t12 = t10*t7;
7561       t14 = t10*t10;
7562       t17 = t5*s+30.0/17.0*t5*t7+75.0/68.0*t9*t10+5.0/17.0*t4*t12+15.0/476.0*s*
7563 t14+3.0/3094.0*t14*t7;
7564       t19 = t*t;
7565       t20 = s+r-1.0;
7566       t22 = t20*t20;
7567       t23 = t19+6.0/5.0*t*t20+3.0/10.0*t22;
7568       t25 = t1*t1;
7569       t26 = t25-20.0/27.0*t2+20.0/117.0*t1-8.0/585.0*r+1.0/3510.0;
7570       t27 = t9*t7;
7571       t28 = t4*t10;
7572       t29 = s*t12;
7573       t33 = t26*t17;
7574       t35 = t33*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
7575       drv[0] = (4.0*t2-20.0/9.0*t1+40.0/117.0*r-8.0/585.0)*t17*t23+t26*(30.0/
7576 17.0*t5+75.0/34.0*t27+15.0/17.0*t28+15.0/119.0*t29+15.0/3094.0*t14)*t23+t35;
7577       drv[1] = t26*(5.0*t5+120.0/17.0*t27+225.0/68.0*t28+10.0/17.0*t29+15.0/
7578 476.0*t14)*t23+t35;
7579       drv[2] = t33*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
7580    /* p=15 4 6 1 */
7581    } else if( i==4 && j==6 && k==1 ) {
7582       t1 = r*r;
7583       t2 = t1*r;
7584       t4 = s*s;
7585       t5 = t4*t4;
7586       t7 = t5*s;
7587       t8 = r-1.0;
7588       t10 = t8*t8;
7589       t12 = t4*s;
7590       t13 = t10*t8;
7591       t15 = t10*t10;
7592       t17 = t15*t8;
7593       t20 = t5*t4+42.0/17.0*t7*t8+315.0/136.0*t5*t10+35.0/34.0*t12*t13+15.0/
7594 68.0*t4*t15+9.0/442.0*s*t17+t15*t10/1768;
7595       t22 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
7596       t24 = t1*t1;
7597       t25 = t24-20.0/27.0*t2+20.0/117.0*t1-8.0/585.0*r+1.0/3510.0;
7598       t26 = t5*t8;
7599       t27 = t12*t10;
7600       t28 = t4*t13;
7601       t29 = s*t15;
7602       t33 = t25*t20;
7603       drv[0] = (4.0*t2-20.0/9.0*t1+40.0/117.0*r-8.0/585.0)*t20*t22+t25*(42.0/
7604 17.0*t7+315.0/68.0*t26+105.0/34.0*t27+15.0/17.0*t28+45.0/442.0*t29+3.0/884.0*
7605 t17)*t22+2.0/3.0*t33;
7606       drv[1] = t25*(6.0*t7+210.0/17.0*t26+315.0/34.0*t27+105.0/34.0*t28+15.0/
7607 34.0*t29+9.0/442.0*t17)*t22+2.0/3.0*t33;
7608       drv[2] = t33;
7609    /* p=15 4 7 0 */
7610    } else if( i==4 && j==7 && k==0 ) {
7611       t1 = r*r;
7612       t2 = t1*r;
7613       t4 = s*s;
7614       t5 = t4*s;
7615       t6 = t4*t4;
7616       t8 = t6*t4;
7617       t9 = r-1.0;
7618       t11 = t6*s;
7619       t12 = t9*t9;
7620       t14 = t12*t9;
7621       t16 = t12*t12;
7622       t18 = t16*t9;
7623       t20 = t16*t12;
7624       t25 = t1*t1;
7625       t26 = t25-20.0/27.0*t2+20.0/117.0*t1-8.0/585.0*r+1.0/3510.0;
7626       t27 = t11*t9;
7627       t28 = t6*t12;
7628       t29 = t5*t14;
7629       t30 = t4*t16;
7630       t31 = s*t18;
7631       drv[0] = (4.0*t2-20.0/9.0*t1+40.0/117.0*r-8.0/585.0)*(t6*t5+56.0/17.0*t8*
7632 t9+147.0/34.0*t11*t12+49.0/17.0*t6*t14+35.0/34.0*t5*t16+42.0/221.0*t4*t18+7.0/
7633 442.0*s*t20+t16*t14/2431)+t26*(56.0/17.0*t8+147.0/17.0*t27+147.0/17.0*t28+70.0/
7634 17.0*t29+210.0/221.0*t30+21.0/221.0*t31+7.0/2431.0*t20);
7635       drv[1] = t26*(7.0*t8+336.0/17.0*t27+735.0/34.0*t28+196.0/17.0*t29+105.0/
7636 34.0*t30+84.0/221.0*t31+7.0/442.0*t20);
7637       drv[2] = 0.0;
7638    /* p=15 5 0 6 */
7639    } else if( i==5 && j==0 && k==6 ) {
7640       t1 = r*r;
7641       t2 = t1*t1;
7642       t3 = t1*r;
7643       t5 = t*t;
7644       t6 = t5*t5;
7645       t8 = t6*t;
7646       t9 = s+r-1.0;
7647       t11 = t9*t9;
7648       t13 = t5*t;
7649       t14 = t11*t9;
7650       t16 = t11*t11;
7651       t18 = t16*t9;
7652       t24 = t2*r-10.0/9.0*t2+50.0/117.0*t3-8.0/117.0*t1+r/234-1.0/13455.0;
7653       t25 = t6*t9;
7654       t26 = t13*t11;
7655       t27 = t5*t14;
7656       t28 = t*t16;
7657       t30 = t24*(42.0/13.0*t8+105.0/13.0*t25+1050.0/143.0*t26+420.0/143.0*t27+
7658 70.0/143.0*t28+7.0/286.0*t18);
7659       drv[0] = (5.0*t2-40.0/9.0*t3+50.0/39.0*t1-16.0/117.0*r+1.0/234.0)*(t6*t5+
7660 42.0/13.0*t8*t9+105.0/26.0*t6*t11+350.0/143.0*t13*t14+105.0/143.0*t5*t16+14.0/
7661 143.0*t*t18+7.0/1716.0*t16*t11)+t30;
7662       drv[1] = t30;
7663       drv[2] = t24*(6.0*t8+210.0/13.0*t25+210.0/13.0*t26+1050.0/143.0*t27+210.0
7664 /143.0*t28+14.0/143.0*t18);
7665    /* p=15 5 1 5 */
7666    } else if( i==5 && j==1 && k==5 ) {
7667       t1 = r*r;
7668       t2 = t1*t1;
7669       t3 = t1*r;
7670       t5 = s+2.0/15.0*r-2.0/15.0;
7671       t7 = t*t;
7672       t8 = t7*t7;
7673       t10 = s+r-1.0;
7674       t12 = t7*t;
7675       t13 = t10*t10;
7676       t15 = t13*t10;
7677       t17 = t13*t13;
7678       t20 = t8*t+30.0/11.0*t8*t10+30.0/11.0*t12*t13+40.0/33.0*t7*t15+5.0/22.0*t
7679 *t17+t17*t10/77;
7680       t23 = t2*r-10.0/9.0*t2+50.0/117.0*t3-8.0/117.0*t1+r/234-1.0/13455.0;
7681       t24 = t23*t20;
7682       t25 = t23*t5;
7683       t26 = t12*t10;
7684       t27 = t7*t13;
7685       t28 = t*t15;
7686       t30 = t25*(30.0/11.0*t8+60.0/11.0*t26+40.0/11.0*t27+10.0/11.0*t28+5.0/
7687 77.0*t17);
7688       drv[0] = (5.0*t2-40.0/9.0*t3+50.0/39.0*t1-16.0/117.0*r+1.0/234.0)*t5*t20+
7689 2.0/15.0*t24+t30;
7690       drv[1] = t24+t30;
7691       drv[2] = t25*(5.0*t8+120.0/11.0*t26+90.0/11.0*t27+80.0/33.0*t28+5.0/22.0*
7692 t17);
7693    /* p=15 5 2 4 */
7694    } else if( i==5 && j==2 && k==4 ) {
7695       t1 = r*r;
7696       t2 = t1*t1;
7697       t3 = t1*r;
7698       t5 = s*s;
7699       t6 = r-1.0;
7700       t8 = t6*t6;
7701       t9 = t5+2.0/5.0*s*t6+t8/35;
7702       t11 = t*t;
7703       t12 = t11*t11;
7704       t13 = t11*t;
7705       t14 = s+r-1.0;
7706       t16 = t14*t14;
7707       t18 = t16*t14;
7708       t20 = t16*t16;
7709       t21 = t12+20.0/9.0*t13*t14+5.0/3.0*t11*t16+10.0/21.0*t*t18+5.0/126.0*t20;
7710       t24 = t2*r-10.0/9.0*t2+50.0/117.0*t3-8.0/117.0*t1+r/234-1.0/13455.0;
7711       t28 = t24*t9;
7712       t29 = t11*t14;
7713       t30 = t*t16;
7714       t32 = t28*(20.0/9.0*t13+10.0/3.0*t29+10.0/7.0*t30+10.0/63.0*t18);
7715       drv[0] = (5.0*t2-40.0/9.0*t3+50.0/39.0*t1-16.0/117.0*r+1.0/234.0)*t9*t21+
7716 t24*(2.0/5.0*s+2.0/35.0*r-2.0/35.0)*t21+t32;
7717       drv[1] = t24*(2.0*s+2.0/5.0*r-2.0/5.0)*t21+t32;
7718       drv[2] = t28*(4.0*t13+20.0/3.0*t29+10.0/3.0*t30+10.0/21.0*t18);
7719    /* p=15 5 3 3 */
7720    } else if( i==5 && j==3 && k==3 ) {
7721       t1 = r*r;
7722       t2 = t1*t1;
7723       t3 = t1*r;
7724       t5 = s*s;
7725       t7 = r-1.0;
7726       t9 = t7*t7;
7727       t12 = t5*s+4.0/5.0*t5*t7+6.0/35.0*s*t9+4.0/455.0*t9*t7;
7728       t14 = t*t;
7729       t16 = s+r-1.0;
7730       t18 = t16*t16;
7731       t21 = t14*t+12.0/7.0*t16*t14+6.0/7.0*t*t18+4.0/35.0*t18*t16;
7732       t24 = t2*r-10.0/9.0*t2+50.0/117.0*t3-8.0/117.0*t1+r/234-1.0/13455.0;
7733       t25 = s*t7;
7734       t29 = t24*t12;
7735       t30 = t*t16;
7736       t32 = t29*(12.0/7.0*t14+12.0/7.0*t30+12.0/35.0*t18);
7737       drv[0] = (5.0*t2-40.0/9.0*t3+50.0/39.0*t1-16.0/117.0*r+1.0/234.0)*t12*t21
7738 +t24*(4.0/5.0*t5+12.0/35.0*t25+12.0/455.0*t9)*t21+t32;
7739       drv[1] = t24*(3.0*t5+8.0/5.0*t25+6.0/35.0*t9)*t21+t32;
7740       drv[2] = t29*(3.0*t14+24.0/7.0*t30+6.0/7.0*t18);
7741    /* p=15 5 4 2 */
7742    } else if( i==5 && j==4 && k==2 ) {
7743       t1 = r*r;
7744       t2 = t1*t1;
7745       t3 = t1*r;
7746       t5 = s*s;
7747       t6 = t5*t5;
7748       t7 = t5*s;
7749       t8 = r-1.0;
7750       t10 = t8*t8;
7751       t12 = t10*t8;
7752       t14 = t10*t10;
7753       t15 = t6+4.0/3.0*t7*t8+4.0/7.0*t5*t10+8.0/91.0*s*t12+t14/273;
7754       t17 = t*t;
7755       t18 = s+r-1.0;
7756       t20 = t18*t18;
7757       t21 = t17+6.0/5.0*t*t18+3.0/10.0*t20;
7758       t24 = t2*r-10.0/9.0*t2+50.0/117.0*t3-8.0/117.0*t1+r/234-1.0/13455.0;
7759       t25 = t5*t8;
7760       t26 = s*t10;
7761       t30 = t24*t15;
7762       t32 = t30*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
7763       drv[0] = (5.0*t2-40.0/9.0*t3+50.0/39.0*t1-16.0/117.0*r+1.0/234.0)*t15*t21
7764 +t24*(4.0/3.0*t7+8.0/7.0*t25+24.0/91.0*t26+4.0/273.0*t12)*t21+t32;
7765       drv[1] = t24*(4.0*t7+4.0*t25+8.0/7.0*t26+8.0/91.0*t12)*t21+t32;
7766       drv[2] = t30*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
7767    /* p=15 5 5 1 */
7768    } else if( i==5 && j==5 && k==1 ) {
7769       t1 = r*r;
7770       t2 = t1*t1;
7771       t3 = t1*r;
7772       t5 = s*s;
7773       t6 = t5*t5;
7774       t8 = r-1.0;
7775       t10 = t5*s;
7776       t11 = t8*t8;
7777       t13 = t11*t8;
7778       t15 = t11*t11;
7779       t18 = t6*s+2.0*t6*t8+10.0/7.0*t10*t11+40.0/91.0*t5*t13+5.0/91.0*s*t15+2.0
7780 /1001.0*t15*t8;
7781       t20 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
7782       t23 = t2*r-10.0/9.0*t2+50.0/117.0*t3-8.0/117.0*t1+r/234-1.0/13455.0;
7783       t24 = t10*t8;
7784       t25 = t5*t11;
7785       t26 = s*t13;
7786       t30 = t23*t18;
7787       drv[0] = (5.0*t2-40.0/9.0*t3+50.0/39.0*t1-16.0/117.0*r+1.0/234.0)*t18*t20
7788 +t23*(2.0*t6+20.0/7.0*t24+120.0/91.0*t25+20.0/91.0*t26+10.0/1001.0*t15)*t20+2.0
7789 /3.0*t30;
7790       drv[1] = t23*(5.0*t6+8.0*t24+30.0/7.0*t25+80.0/91.0*t26+5.0/91.0*t15)*t20
7791 +2.0/3.0*t30;
7792       drv[2] = t30;
7793    /* p=15 5 6 0 */
7794    } else if( i==5 && j==6 && k==0 ) {
7795       t1 = r*r;
7796       t2 = t1*t1;
7797       t3 = t1*r;
7798       t5 = s*s;
7799       t6 = t5*t5;
7800       t8 = t6*s;
7801       t9 = r-1.0;
7802       t11 = t9*t9;
7803       t13 = t5*s;
7804       t14 = t11*t9;
7805       t16 = t11*t11;
7806       t18 = t16*t9;
7807       t24 = t2*r-10.0/9.0*t2+50.0/117.0*t3-8.0/117.0*t1+r/234-1.0/13455.0;
7808       t25 = t6*t9;
7809       t26 = t13*t11;
7810       t27 = t5*t14;
7811       t28 = s*t16;
7812       drv[0] = (5.0*t2-40.0/9.0*t3+50.0/39.0*t1-16.0/117.0*r+1.0/234.0)*(t6*t5+
7813 14.0/5.0*t8*t9+3.0*t6*t11+20.0/13.0*t13*t14+5.0/13.0*t5*t16+6.0/143.0*s*t18+t16
7814 *t11/715)+t24*(14.0/5.0*t8+6.0*t25+60.0/13.0*t26+20.0/13.0*t27+30.0/143.0*t28+
7815 6.0/715.0*t18);
7816       drv[1] = t24*(6.0*t8+14.0*t25+12.0*t26+60.0/13.0*t27+10.0/13.0*t28+6.0/
7817 143.0*t18);
7818       drv[2] = 0.0;
7819    /* p=15 6 0 5 */
7820    } else if( i==6 && j==0 && k==5 ) {
7821       t1 = r*r;
7822       t2 = t1*t1;
7823       t3 = t2*r;
7824       t4 = t1*r;
7825       t6 = t*t;
7826       t7 = t6*t6;
7827       t9 = s+r-1.0;
7828       t11 = t6*t;
7829       t12 = t9*t9;
7830       t14 = t12*t9;
7831       t16 = t12*t12;
7832       t22 = t2*t1-14.0/9.0*t3+35.0/39.0*t2-28.0/117.0*t4+7.0/234.0*t1-7.0/
7833 4485.0*r+7.0/296010.0;
7834       t23 = t11*t9;
7835       t24 = t6*t12;
7836       t25 = t*t14;
7837       t27 = t22*(30.0/11.0*t7+60.0/11.0*t23+40.0/11.0*t24+10.0/11.0*t25+5.0/
7838 77.0*t16);
7839       drv[0] = (6.0*t3-70.0/9.0*t2+140.0/39.0*t4-28.0/39.0*t1+7.0/117.0*r-7.0/
7840 4485.0)*(t7*t+30.0/11.0*t7*t9+30.0/11.0*t11*t12+40.0/33.0*t6*t14+5.0/22.0*t*t16
7841 +t16*t9/77)+t27;
7842       drv[1] = t27;
7843       drv[2] = t22*(5.0*t7+120.0/11.0*t23+90.0/11.0*t24+80.0/33.0*t25+5.0/22.0*
7844 t16);
7845    /* p=15 6 1 4 */
7846    } else if( i==6 && j==1 && k==4 ) {
7847       t1 = r*r;
7848       t2 = t1*t1;
7849       t3 = t2*r;
7850       t4 = t1*r;
7851       t6 = s+2.0/13.0*r-2.0/13.0;
7852       t8 = t*t;
7853       t9 = t8*t8;
7854       t10 = t8*t;
7855       t11 = s+r-1.0;
7856       t13 = t11*t11;
7857       t15 = t13*t11;
7858       t17 = t13*t13;
7859       t18 = t9+20.0/9.0*t10*t11+5.0/3.0*t8*t13+10.0/21.0*t*t15+5.0/126.0*t17;
7860       t21 = t2*t1-14.0/9.0*t3+35.0/39.0*t2-28.0/117.0*t4+7.0/234.0*t1-7.0/
7861 4485.0*r+7.0/296010.0;
7862       t22 = t21*t18;
7863       t23 = t21*t6;
7864       t24 = t8*t11;
7865       t25 = t*t13;
7866       t27 = t23*(20.0/9.0*t10+10.0/3.0*t24+10.0/7.0*t25+10.0/63.0*t15);
7867       drv[0] = (6.0*t3-70.0/9.0*t2+140.0/39.0*t4-28.0/39.0*t1+7.0/117.0*r-7.0/
7868 4485.0)*t6*t18+2.0/13.0*t22+t27;
7869       drv[1] = t22+t27;
7870       drv[2] = t23*(4.0*t10+20.0/3.0*t24+10.0/3.0*t25+10.0/21.0*t15);
7871    /* p=15 6 2 3 */
7872    } else if( i==6 && j==2 && k==3 ) {
7873       t1 = r*r;
7874       t2 = t1*t1;
7875       t3 = t2*r;
7876       t4 = t1*r;
7877       t6 = s*s;
7878       t7 = r-1.0;
7879       t9 = t7*t7;
7880       t10 = t6+6.0/13.0*s*t7+t9/26;
7881       t12 = t*t;
7882       t14 = s+r-1.0;
7883       t16 = t14*t14;
7884       t19 = t12*t+12.0/7.0*t12*t14+6.0/7.0*t*t16+4.0/35.0*t16*t14;
7885       t22 = t2*t1-14.0/9.0*t3+35.0/39.0*t2-28.0/117.0*t4+7.0/234.0*t1-7.0/
7886 4485.0*r+7.0/296010.0;
7887       t26 = t22*t10;
7888       t27 = t*t14;
7889       t29 = t26*(12.0/7.0*t12+12.0/7.0*t27+12.0/35.0*t16);
7890       drv[0] = (6.0*t3-70.0/9.0*t2+140.0/39.0*t4-28.0/39.0*t1+7.0/117.0*r-7.0/
7891 4485.0)*t10*t19+t22*(6.0/13.0*s+r/13-1.0/13.0)*t19+t29;
7892       drv[1] = t22*(2.0*s+6.0/13.0*r-6.0/13.0)*t19+t29;
7893       drv[2] = t26*(3.0*t12+24.0/7.0*t27+6.0/7.0*t16);
7894    /* p=15 6 3 2 */
7895    } else if( i==6 && j==3 && k==2 ) {
7896       t1 = r*r;
7897       t2 = t1*t1;
7898       t3 = t2*r;
7899       t4 = t1*r;
7900       t6 = s*s;
7901       t8 = r-1.0;
7902       t10 = t8*t8;
7903       t13 = t6*s+12.0/13.0*t6*t8+3.0/13.0*s*t10+2.0/143.0*t10*t8;
7904       t15 = t*t;
7905       t16 = s+r-1.0;
7906       t18 = t16*t16;
7907       t19 = t15+6.0/5.0*t*t16+3.0/10.0*t18;
7908       t22 = t2*t1-14.0/9.0*t3+35.0/39.0*t2-28.0/117.0*t4+7.0/234.0*t1-7.0/
7909 4485.0*r+7.0/296010.0;
7910       t23 = s*t8;
7911       t27 = t22*t13;
7912       t29 = t27*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
7913       drv[0] = (6.0*t3-70.0/9.0*t2+140.0/39.0*t4-28.0/39.0*t1+7.0/117.0*r-7.0/
7914 4485.0)*t13*t19+t22*(12.0/13.0*t6+6.0/13.0*t23+6.0/143.0*t10)*t19+t29;
7915       drv[1] = t22*(3.0*t6+24.0/13.0*t23+3.0/13.0*t10)*t19+t29;
7916       drv[2] = t27*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
7917    /* p=15 6 4 1 */
7918    } else if( i==6 && j==4 && k==1 ) {
7919       t1 = r*r;
7920       t2 = t1*t1;
7921       t3 = t2*r;
7922       t4 = t1*r;
7923       t6 = s*s;
7924       t7 = t6*t6;
7925       t8 = t6*s;
7926       t9 = r-1.0;
7927       t11 = t9*t9;
7928       t13 = t11*t9;
7929       t15 = t11*t11;
7930       t16 = t7+20.0/13.0*t8*t9+10.0/13.0*t6*t11+20.0/143.0*s*t13+t15/143;
7931       t18 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
7932       t21 = t2*t1-14.0/9.0*t3+35.0/39.0*t2-28.0/117.0*t4+7.0/234.0*t1-7.0/
7933 4485.0*r+7.0/296010.0;
7934       t22 = t6*t9;
7935       t23 = s*t11;
7936       t27 = t21*t16;
7937       drv[0] = (6.0*t3-70.0/9.0*t2+140.0/39.0*t4-28.0/39.0*t1+7.0/117.0*r-7.0/
7938 4485.0)*t16*t18+t21*(20.0/13.0*t8+20.0/13.0*t22+60.0/143.0*t23+4.0/143.0*t13)*
7939 t18+2.0/3.0*t27;
7940       drv[1] = t21*(4.0*t8+60.0/13.0*t22+20.0/13.0*t23+20.0/143.0*t13)*t18+2.0/
7941 3.0*t27;
7942       drv[2] = t27;
7943    /* p=15 6 5 0 */
7944    } else if( i==6 && j==5 && k==0 ) {
7945       t1 = r*r;
7946       t2 = t1*t1;
7947       t3 = t2*r;
7948       t4 = t1*r;
7949       t6 = s*s;
7950       t7 = t6*t6;
7951       t9 = r-1.0;
7952       t11 = t6*s;
7953       t12 = t9*t9;
7954       t14 = t12*t9;
7955       t16 = t12*t12;
7956       t22 = t2*t1-14.0/9.0*t3+35.0/39.0*t2-28.0/117.0*t4+7.0/234.0*t1-7.0/
7957 4485.0*r+7.0/296010.0;
7958       t23 = t11*t9;
7959       t24 = t6*t12;
7960       t25 = s*t14;
7961       drv[0] = (6.0*t3-70.0/9.0*t2+140.0/39.0*t4-28.0/39.0*t1+7.0/117.0*r-7.0/
7962 4485.0)*(t7*s+30.0/13.0*t7*t9+25.0/13.0*t11*t12+100.0/143.0*t6*t14+15.0/143.0*s
7963 *t16+2.0/429.0*t16*t9)+t22*(30.0/13.0*t7+50.0/13.0*t23+300.0/143.0*t24+60.0/
7964 143.0*t25+10.0/429.0*t16);
7965       drv[1] = t22*(5.0*t7+120.0/13.0*t23+75.0/13.0*t24+200.0/143.0*t25+15.0/
7966 143.0*t16);
7967       drv[2] = 0.0;
7968    /* p=15 7 0 4 */
7969    } else if( i==7 && j==0 && k==4 ) {
7970       t1 = r*r;
7971       t2 = t1*t1;
7972       t3 = t2*t1;
7973       t4 = t2*r;
7974       t5 = t1*r;
7975       t7 = t*t;
7976       t8 = t7*t7;
7977       t9 = t7*t;
7978       t10 = s+r-1.0;
7979       t12 = t10*t10;
7980       t14 = t12*t10;
7981       t16 = t12*t12;
7982       t20 = t2*t5-56.0/27.0*t3+196.0/117.0*t4-392.0/585.0*t2+49.0/351.0*t5
7983 -196.0/13455.0*t1+98.0/148005.0*r-4.0/444015.0;
7984       t21 = t7*t10;
7985       t22 = t*t12;
7986       t24 = t20*(20.0/9.0*t9+10.0/3.0*t21+10.0/7.0*t22+10.0/63.0*t14);
7987       drv[0] = (7.0*t3-112.0/9.0*t4+980.0/117.0*t2-1568.0/585.0*t5+49.0/117.0*
7988 t1-392.0/13455.0*r+98.0/148005.0)*(t8+20.0/9.0*t9*t10+5.0/3.0*t7*t12+10.0/21.0*
7989 t*t14+5.0/126.0*t16)+t24;
7990       drv[1] = t24;
7991       drv[2] = t20*(4.0*t9+20.0/3.0*t21+10.0/3.0*t22+10.0/21.0*t14);
7992    /* p=15 7 1 3 */
7993    } else if( i==7 && j==1 && k==3 ) {
7994       t1 = r*r;
7995       t2 = t1*t1;
7996       t3 = t2*t1;
7997       t4 = t2*r;
7998       t5 = t1*r;
7999       t7 = s+2.0/11.0*r-2.0/11.0;
8000       t9 = t*t;
8001       t11 = s+r-1.0;
8002       t13 = t11*t11;
8003       t16 = t9*t+12.0/7.0*t9*t11+6.0/7.0*t*t13+4.0/35.0*t13*t11;
8004       t19 = t2*t5-56.0/27.0*t3+196.0/117.0*t4-392.0/585.0*t2+49.0/351.0*t5
8005 -196.0/13455.0*t1+98.0/148005.0*r-4.0/444015.0;
8006       t20 = t19*t16;
8007       t21 = t19*t7;
8008       t22 = t*t11;
8009       t24 = t21*(12.0/7.0*t9+12.0/7.0*t22+12.0/35.0*t13);
8010       drv[0] = (7.0*t3-112.0/9.0*t4+980.0/117.0*t2-1568.0/585.0*t5+49.0/117.0*
8011 t1-392.0/13455.0*r+98.0/148005.0)*t7*t16+2.0/11.0*t20+t24;
8012       drv[1] = t20+t24;
8013       drv[2] = t21*(3.0*t9+24.0/7.0*t22+6.0/7.0*t13);
8014    /* p=15 7 2 2 */
8015    } else if( i==7 && j==2 && k==2 ) {
8016       t1 = r*r;
8017       t2 = t1*t1;
8018       t3 = t2*t1;
8019       t4 = t2*r;
8020       t5 = t1*r;
8021       t7 = s*s;
8022       t8 = r-1.0;
8023       t10 = t8*t8;
8024       t11 = t7+6.0/11.0*s*t8+3.0/55.0*t10;
8025       t13 = t*t;
8026       t14 = s+r-1.0;
8027       t16 = t14*t14;
8028       t17 = t13+6.0/5.0*t*t14+3.0/10.0*t16;
8029       t20 = t2*t5-56.0/27.0*t3+196.0/117.0*t4-392.0/585.0*t2+49.0/351.0*t5
8030 -196.0/13455.0*t1+98.0/148005.0*r-4.0/444015.0;
8031       t24 = t20*t11;
8032       t26 = t24*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
8033       drv[0] = (7.0*t3-112.0/9.0*t4+980.0/117.0*t2-1568.0/585.0*t5+49.0/117.0*
8034 t1-392.0/13455.0*r+98.0/148005.0)*t11*t17+t20*(6.0/11.0*s+6.0/55.0*r-6.0/55.0)*
8035 t17+t26;
8036       drv[1] = t20*(2.0*s+6.0/11.0*r-6.0/11.0)*t17+t26;
8037       drv[2] = t24*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
8038    /* p=15 7 3 1 */
8039    } else if( i==7 && j==3 && k==1 ) {
8040       t1 = r*r;
8041       t2 = t1*t1;
8042       t3 = t2*t1;
8043       t4 = t2*r;
8044       t5 = t1*r;
8045       t7 = s*s;
8046       t9 = r-1.0;
8047       t11 = t9*t9;
8048       t14 = t7*s+12.0/11.0*t7*t9+18.0/55.0*s*t11+4.0/165.0*t11*t9;
8049       t16 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
8050       t19 = t2*t5-56.0/27.0*t3+196.0/117.0*t4-392.0/585.0*t2+49.0/351.0*t5
8051 -196.0/13455.0*t1+98.0/148005.0*r-4.0/444015.0;
8052       t20 = s*t9;
8053       t24 = t19*t14;
8054       drv[0] = (7.0*t3-112.0/9.0*t4+980.0/117.0*t2-1568.0/585.0*t5+49.0/117.0*
8055 t1-392.0/13455.0*r+98.0/148005.0)*t14*t16+t19*(12.0/11.0*t7+36.0/55.0*t20+4.0/
8056 55.0*t11)*t16+2.0/3.0*t24;
8057       drv[1] = t19*(3.0*t7+24.0/11.0*t20+18.0/55.0*t11)*t16+2.0/3.0*t24;
8058       drv[2] = t24;
8059    /* p=15 7 4 0 */
8060    } else if( i==7 && j==4 && k==0 ) {
8061       t1 = r*r;
8062       t2 = t1*t1;
8063       t3 = t2*t1;
8064       t4 = t2*r;
8065       t5 = t1*r;
8066       t7 = s*s;
8067       t8 = t7*t7;
8068       t9 = t7*s;
8069       t10 = r-1.0;
8070       t12 = t10*t10;
8071       t14 = t12*t10;
8072       t16 = t12*t12;
8073       t20 = t2*t5-56.0/27.0*t3+196.0/117.0*t4-392.0/585.0*t2+49.0/351.0*t5
8074 -196.0/13455.0*t1+98.0/148005.0*r-4.0/444015.0;
8075       t21 = t7*t10;
8076       t22 = s*t12;
8077       drv[0] = (7.0*t3-112.0/9.0*t4+980.0/117.0*t2-1568.0/585.0*t5+49.0/117.0*
8078 t1-392.0/13455.0*r+98.0/148005.0)*(t8+20.0/11.0*t9*t10+12.0/11.0*t7*t12+8.0/
8079 33.0*s*t14+t16/66)+t20*(20.0/11.0*t9+24.0/11.0*t21+8.0/11.0*t22+2.0/33.0*t14);
8080       drv[1] = t20*(4.0*t9+60.0/11.0*t21+24.0/11.0*t22+8.0/33.0*t14);
8081       drv[2] = 0.0;
8082    /* p=15 8 0 3 */
8083    } else if( i==8 && j==0 && k==3 ) {
8084       t1 = r*r;
8085       t2 = t1*r;
8086       t3 = t1*t1;
8087       t4 = t3*t2;
8088       t5 = t3*t1;
8089       t6 = t3*r;
8090       t8 = t*t;
8091       t10 = s+r-1.0;
8092       t12 = t10*t10;
8093       t17 = t3*t3;
8094       t18 = t17-8.0/3.0*t4+112.0/39.0*t5-1568.0/975.0*t6+98.0/195.0*t3-392.0/
8095 4485.0*t2+392.0/49335.0*t1-16.0/49335.0*r+1.0/246675.0;
8096       t19 = t*t10;
8097       t21 = t18*(12.0/7.0*t8+12.0/7.0*t19+12.0/35.0*t12);
8098       drv[0] = (8.0*t4-56.0/3.0*t5+224.0/13.0*t6-1568.0/195.0*t3+392.0/195.0*t2
8099 -392.0/1495.0*t1+784.0/49335.0*r-16.0/49335.0)*(t8*t+12.0/7.0*t8*t10+6.0/7.0*t*
8100 t12+4.0/35.0*t12*t10)+t21;
8101       drv[1] = t21;
8102       drv[2] = t18*(3.0*t8+24.0/7.0*t19+6.0/7.0*t12);
8103    /* p=15 8 1 2 */
8104    } else if( i==8 && j==1 && k==2 ) {
8105       t1 = r*r;
8106       t2 = t1*r;
8107       t3 = t1*t1;
8108       t4 = t3*t2;
8109       t5 = t3*t1;
8110       t6 = t3*r;
8111       t8 = s+2.0/9.0*r-2.0/9.0;
8112       t10 = t*t;
8113       t11 = s+r-1.0;
8114       t13 = t11*t11;
8115       t14 = t10+6.0/5.0*t*t11+3.0/10.0*t13;
8116       t16 = t3*t3;
8117       t17 = t16-8.0/3.0*t4+112.0/39.0*t5-1568.0/975.0*t6+98.0/195.0*t3-392.0/
8118 4485.0*t2+392.0/49335.0*t1-16.0/49335.0*r+1.0/246675.0;
8119       t18 = t17*t14;
8120       t19 = t17*t8;
8121       t21 = t19*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
8122       drv[0] = (8.0*t4-56.0/3.0*t5+224.0/13.0*t6-1568.0/195.0*t3+392.0/195.0*t2
8123 -392.0/1495.0*t1+784.0/49335.0*r-16.0/49335.0)*t8*t14+2.0/9.0*t18+t21;
8124       drv[1] = t18+t21;
8125       drv[2] = t19*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
8126    /* p=15 8 2 1 */
8127    } else if( i==8 && j==2 && k==1 ) {
8128       t1 = r*r;
8129       t2 = t1*r;
8130       t3 = t1*t1;
8131       t4 = t3*t2;
8132       t5 = t3*t1;
8133       t6 = t3*r;
8134       t8 = s*s;
8135       t9 = r-1.0;
8136       t11 = t9*t9;
8137       t12 = t8+2.0/3.0*s*t9+t11/12;
8138       t14 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
8139       t16 = t3*t3;
8140       t17 = t16-8.0/3.0*t4+112.0/39.0*t5-1568.0/975.0*t6+98.0/195.0*t3-392.0/
8141 4485.0*t2+392.0/49335.0*t1-16.0/49335.0*r+1.0/246675.0;
8142       t21 = t17*t12;
8143       drv[0] = (8.0*t4-56.0/3.0*t5+224.0/13.0*t6-1568.0/195.0*t3+392.0/195.0*t2
8144 -392.0/1495.0*t1+784.0/49335.0*r-16.0/49335.0)*t12*t14+t17*(2.0/3.0*s+r/6-1.0/
8145 6.0)*t14+2.0/3.0*t21;
8146       drv[1] = t17*(2.0*s+2.0/3.0*r-2.0/3.0)*t14+2.0/3.0*t21;
8147       drv[2] = t21;
8148    /* p=15 8 3 0 */
8149    } else if( i==8 && j==3 && k==0 ) {
8150       t1 = r*r;
8151       t2 = t1*r;
8152       t3 = t1*t1;
8153       t4 = t3*t2;
8154       t5 = t3*t1;
8155       t6 = t3*r;
8156       t8 = s*s;
8157       t10 = r-1.0;
8158       t12 = t10*t10;
8159       t17 = t3*t3;
8160       t18 = t17-8.0/3.0*t4+112.0/39.0*t5-1568.0/975.0*t6+98.0/195.0*t3-392.0/
8161 4485.0*t2+392.0/49335.0*t1-16.0/49335.0*r+1.0/246675.0;
8162       t19 = s*t10;
8163       drv[0] = (8.0*t4-56.0/3.0*t5+224.0/13.0*t6-1568.0/195.0*t3+392.0/195.0*t2
8164 -392.0/1495.0*t1+784.0/49335.0*r-16.0/49335.0)*(t8*s+4.0/3.0*t8*t10+s*t12/2+t12
8165 *t10/21)+t18*(4.0/3.0*t8+t19+t12/7);
8166       drv[1] = t18*(3.0*t8+8.0/3.0*t19+t12/2);
8167       drv[2] = 0.0;
8168    /* p=15 9 0 2 */
8169    } else if( i==9 && j==0 && k==2 ) {
8170       t1 = r*r;
8171       t2 = t1*t1;
8172       t3 = t2*t2;
8173       t4 = t1*r;
8174       t5 = t4*t2;
8175       t6 = t2*t1;
8176       t7 = t2*r;
8177       t9 = t*t;
8178       t10 = s+r-1.0;
8179       t12 = t10*t10;
8180       t16 = t3*r-10.0/3.0*t3+60.0/13.0*t5-224.0/65.0*t6+98.0/65.0*t7-588.0/
8181 1495.0*t2+196.0/3289.0*t4-16.0/3289.0*t1+3.0/16445.0*r-2.0/937365.0;
8182       t18 = t16*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0);
8183       drv[0] = (9.0*t3-80.0/3.0*t5+420.0/13.0*t6-1344.0/65.0*t7+98.0/13.0*t2
8184 -2352.0/1495.0*t4+588.0/3289.0*t1-32.0/3289.0*r+3.0/16445.0)*(t9+6.0/5.0*t*t10+
8185 3.0/10.0*t12)+t18;
8186       drv[1] = t18;
8187       drv[2] = t16*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0);
8188    /* p=15 9 1 1 */
8189    } else if( i==9 && j==1 && k==1 ) {
8190       t1 = r*r;
8191       t2 = t1*t1;
8192       t3 = t2*t2;
8193       t4 = t1*r;
8194       t5 = t4*t2;
8195       t6 = t2*t1;
8196       t7 = t2*r;
8197       t9 = s+2.0/7.0*r-2.0/7.0;
8198       t11 = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0;
8199       t14 = t3*r-10.0/3.0*t3+60.0/13.0*t5-224.0/65.0*t6+98.0/65.0*t7-588.0/
8200 1495.0*t2+196.0/3289.0*t4-16.0/3289.0*t1+3.0/16445.0*r-2.0/937365.0;
8201       t15 = t14*t11;
8202       t16 = t14*t9;
8203       drv[0] = (9.0*t3-80.0/3.0*t5+420.0/13.0*t6-1344.0/65.0*t7+98.0/13.0*t2
8204 -2352.0/1495.0*t4+588.0/3289.0*t1-32.0/3289.0*r+3.0/16445.0)*t9*t11+2.0/7.0*t15
8205 +2.0/3.0*t16;
8206       drv[1] = t15+2.0/3.0*t16;
8207       drv[2] = t16;
8208    /* p=15 9 2 0 */
8209    } else if( i==9 && j==2 && k==0 ) {
8210       t1 = r*r;
8211       t2 = t1*t1;
8212       t3 = t2*t2;
8213       t4 = t1*r;
8214       t5 = t4*t2;
8215       t6 = t2*t1;
8216       t7 = t2*r;
8217       t9 = s*s;
8218       t10 = r-1.0;
8219       t12 = t10*t10;
8220       t16 = t3*r-10.0/3.0*t3+60.0/13.0*t5-224.0/65.0*t6+98.0/65.0*t7-588.0/
8221 1495.0*t2+196.0/3289.0*t4-16.0/3289.0*t1+3.0/16445.0*r-2.0/937365.0;
8222       drv[0] = (9.0*t3-80.0/3.0*t5+420.0/13.0*t6-1344.0/65.0*t7+98.0/13.0*t2
8223 -2352.0/1495.0*t4+588.0/3289.0*t1-32.0/3289.0*r+3.0/16445.0)*(t9+6.0/7.0*s*t10+
8224 t12/7)+t16*(6.0/7.0*s+2.0/7.0*r-2.0/7.0);
8225       drv[1] = t16*(2.0*s+6.0/7.0*r-6.0/7.0);
8226       drv[2] = 0.0;
8227    /* p=15 10 0 1 */
8228    } else if( i==10 && j==0 && k==1 ) {
8229       t1 = r*r;
8230       t2 = t1*t1;
8231       t3 = t2*t2;
8232       t4 = t3*r;
8233       t5 = t1*r;
8234       t6 = t2*t5;
8235       t7 = t2*t1;
8236       t8 = t2*r;
8237       t12 = t3*t1;
8238       t13 = (10.0*t4-110.0/3.0*t3+2200.0/39.0*t6-616.0/13.0*t7+308.0/13.0*t8
8239 -2156.0/299.0*t2+392.0/299.0*t5-40.0/299.0*t1+2.0/299.0*r-2.0/17043.0)*(t+2.0/
8240 3.0*s+2.0/3.0*r-2.0/3.0)+2.0/3.0*t12-220.0/81.0*t4+550.0/117.0*t3-176.0/39.0*t6
8241 +308.0/117.0*t7-4312.0/4485.0*t8+196.0/897.0*t2-80.0/2691.0*t5+2.0/897.0*t1-4.0
8242 /51129.0*r+2.0/2300805.0;
8243       t14 = 2.0/3.0*t12-220.0/81.0*t4+550.0/117.0*t3-176.0/39.0*t6+308.0/117.0*
8244 t7-4312.0/4485.0*t8+196.0/897.0*t2-80.0/2691.0*t5+2.0/897.0*t1-4.0/51129.0*r+
8245 2.0/2300805.0;
8246       t15 = t12-110.0/27.0*t4+275.0/39.0*t3-88.0/13.0*t6+154.0/39.0*t7-2156.0/
8247 1495.0*t8+98.0/299.0*t2-40.0/897.0*t5+t1/299-2.0/17043.0*r+1.0/766935.0;
8248       drv[0] = t13;
8249       drv[1] = t14;
8250       drv[2] = t15;
8251    /* p=15 10 1 0 */
8252    } else if( i==10 && j==1 && k==0 ) {
8253       t1 = r*r;
8254       t2 = t1*t1;
8255       t3 = t2*t2;
8256       t4 = t3*r;
8257       t5 = t1*r;
8258       t6 = t2*t5;
8259       t7 = t2*t1;
8260       t8 = t2*r;
8261       t12 = t3*t1;
8262       t13 = (10.0*t4-110.0/3.0*t3+2200.0/39.0*t6-616.0/13.0*t7+308.0/13.0*t8
8263 -2156.0/299.0*t2+392.0/299.0*t5-40.0/299.0*t1+2.0/299.0*r-2.0/17043.0)*(s+2.0/
8264 5.0*r-2.0/5.0)+2.0/5.0*t12-44.0/27.0*t4+110.0/39.0*t3-176.0/65.0*t6+308.0/195.0
8265 *t7-4312.0/7475.0*t8+196.0/1495.0*t2-16.0/897.0*t5+2.0/1495.0*t1-4.0/85215.0*r+
8266 2.0/3834675.0;
8267       t14 = t12-110.0/27.0*t4+275.0/39.0*t3-88.0/13.0*t6+154.0/39.0*t7-2156.0/
8268 1495.0*t8+98.0/299.0*t2-40.0/897.0*t5+t1/299-2.0/17043.0*r+1.0/766935.0;
8269       drv[0] = t13;
8270       drv[1] = t14;
8271       drv[2] = 0.0;
8272    /* p=15 11 0 0 */
8273    } else if( i==11 && j==0 && k==0 ) {
8274       t1 = r*r;
8275       t2 = t1*t1;
8276       t3 = t2*t2;
8277       t6 = t1*r;
8278       t10 = 11.0*t3*t1-440.0/9.0*t3*r+1210.0/13.0*t3-3872.0/39.0*t2*t6+847.0/
8279 13.0*t2*t1-40656.0/1495.0*t2*r+2156.0/299.0*t2-352.0/299.0*t6+33.0/299.0*t1
8280 -88.0/17043.0*r+22.0/255645.0;
8281       drv[0] = t10;
8282       drv[1] = 0.0;
8283       drv[2] = 0.0;
8284 
8285     } else
8286       return 0;
8287     return 1;
8288 }
8289 #ifdef __cplusplus
8290 }
8291 #endif
8292