18    double t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t16,t17,t18;  in EnDrv()  local
35       t1 = s*s;  in EnDrv()
38       drv[0] = -6.0*t1+12.0*t2-3.0*t3;  in EnDrv()
39       drv[1] = 3.0*t1-12.0*t2+6.0*t3;  in EnDrv()
42       t1 = s*s;  in EnDrv()
43       t2 = t1*s;  in EnDrv()
44       t3 = r*t1;  in EnDrv()
52       t1 = s*s;  in EnDrv()
53       t2 = t1*t1;  in EnDrv()
54       t4 = r*t1*s;  in EnDrv()
56       t6 = t5*t1;  in EnDrv()
63       t1 = s*s;  in EnDrv()
64       t2 = t1*t1;  in EnDrv()
68       t7 = t5*t1*s;  in EnDrv()
69       t9 = t5*r*t1;  in EnDrv()
77       t1 = s*s;  in EnDrv()
78       t2 = t1*t1;  in EnDrv()
79       t3 = t2*t1;  in EnDrv()
83       t10 = t6*r*t1*s;  in EnDrv()
85       t12 = t11*t1;  in EnDrv()
94       t1 = s*s;  in EnDrv()
95       t2 = t1*s;  in EnDrv()
96       t3 = t1*t1;  in EnDrv()
98       t6 = r*t3*t1;  in EnDrv()
105       t15 = t12*r*t1;  in EnDrv()
114       t1 = s*s;  in EnDrv()
115       t2 = t1*t1;  in EnDrv()
117       t4 = t1*s;  in EnDrv()
120       t9 = t7*t2*t1;  in EnDrv()
126       t18 = t13*t7*t1;  in EnDrv()
135       t1 = s*s;  in EnDrv()
136       t2 = t1*t1;  in EnDrv()
141       t7 = t1*s;  in EnDrv()
144       t12 = t10*t2*t1;  in EnDrv()
149       t21 = t13*t10*t1;  in EnDrv()
159       t1 = s*s;  in EnDrv()
160       t2 = t1*t1;  in EnDrv()
162       t4 = t3*t1;  in EnDrv()
167       t10 = t1*s;  in EnDrv()
170       t15 = t13*t2*t1;  in EnDrv()
175       t24 = t23*t1;  in EnDrv()
186       t1 = s*s;  in EnDrv()
187       t2 = t1*s;  in EnDrv()
188       t3 = t1*t1;  in EnDrv()
191       t7 = r*t4*t1;  in EnDrv()
198       t18 = t13*r*t3*t1;  in EnDrv()
203       t27 = t24*r*t1;  in EnDrv()
214       t1 = s*s;  in EnDrv()
215       t2 = t1*t1;  in EnDrv()
218       t5 = t1*s;  in EnDrv()
221       t10 = t8*t3*t1;  in EnDrv()
227       t21 = t14*t8*t2*t1;  in EnDrv()
232       t30 = t25*t8*t1;  in EnDrv()