18    double t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t16,t17,t18;  in EnDrv()  local
36       t2 = r*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()
43       t2 = t1*s;  in EnDrv()
48       drv[0] = -10.0*t2+40.0*t3-30.0*t5+4.0*t6;  in EnDrv()
49       drv[1] = 4.0*t2-30.0*t3+40.0*t5-10.0*t6;  in EnDrv()
53       t2 = t1*t1;  in EnDrv()
59       drv[0] = -15.0*t2+100.0*t4-150.0*t6+60.0*t8-5.0*t9;  in EnDrv()
60       drv[1] = 5.0*t2-60.0*t4+150.0*t6-100.0*t8+15.0*t9;  in EnDrv()
64       t2 = t1*t1;  in EnDrv()
65       t3 = t2*s;  in EnDrv()
66       t4 = r*t2;  in EnDrv()
78       t2 = t1*t1;  in EnDrv()
79       t3 = t2*t1;  in EnDrv()
80       t5 = r*t2*s;  in EnDrv()
82       t7 = t6*t2;  in EnDrv()
95       t2 = t1*s;  in EnDrv()
97       t4 = t3*t2;  in EnDrv()
104       t13 = t12*t2;  in EnDrv()
115       t2 = t1*t1;  in EnDrv()
116       t3 = t2*t2;  in EnDrv()
118       t6 = r*t2*t4;  in EnDrv()
120       t9 = t7*t2*t1;  in EnDrv()
122       t12 = t10*t2*s;  in EnDrv()
124       t14 = t13*t2;  in EnDrv()
136       t2 = t1*t1;  in EnDrv()
137       t3 = t2*t2;  in EnDrv()
142       t9 = t6*t2*t7;  in EnDrv()
144       t12 = t10*t2*t1;  in EnDrv()
146       t15 = t13*t2*s;  in EnDrv()
147       t17 = t13*r*t2;  in EnDrv()
160       t2 = t1*t1;  in EnDrv()
161       t3 = t2*t2;  in EnDrv()
168       t12 = t9*t2*t10;  in EnDrv()
170       t15 = t13*t2*t1;  in EnDrv()
171       t18 = t13*r*t2*s;  in EnDrv()
172       t20 = t13*t7*t2;  in EnDrv()
187       t2 = t1*s;  in EnDrv()
190       t5 = t4*t2;  in EnDrv()
197       t15 = t13*t3*t2;  in EnDrv()
202       t25 = t24*t2;  in EnDrv()
215       t2 = t1*t1;  in EnDrv()
216       t3 = t2*t2;  in EnDrv()
217       t4 = t3*t2;  in EnDrv()
226       t18 = t14*r*t2*t5;  in EnDrv()
227       t21 = t14*t8*t2*t1;  in EnDrv()
228       t24 = t14*t11*t2*s;  in EnDrv()
230       t26 = t25*t2;  in EnDrv()