18    double t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t16,t17,t18;  in EnDrv()  local
45       t4 = r*r;  in EnDrv()
46       t5 = t4*s;  in EnDrv()
47       t6 = t4*r;  in EnDrv()
54       t4 = r*t1*s;  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()
66       t4 = r*t2;  in EnDrv()
73       drv[0] = -21.0*t3+210.0*t4-525.0*t7+420.0*t9-105.0*t11+6.0*t12;  in EnDrv()
74       drv[1] = 6.0*t3-105.0*t4+420.0*t7-525.0*t9+210.0*t11-21.0*t12;  in EnDrv()
97       t4 = t3*t2;  in EnDrv()
108       drv[0] = -36.0*t4+672.0*t6-3528.0*t9+7056.0*t11-5880.0*t13+2016.0*t15  in EnDrv()
110       drv[1] = 8.0*t4-252.0*t6+2016.0*t9-5880.0*t11+7056.0*t13-3528.0*t15+672.0  in EnDrv()
117       t4 = t1*s;  in EnDrv()
118       t6 = r*t2*t4;  in EnDrv()
125       t16 = t13*r*t4;  in EnDrv()
138       t4 = t3*s;  in EnDrv()
153       drv[0] = -55.0*t4+1650.0*t5-14850.0*t9+55440.0*t12-97020.0*t15+83160.0*  in EnDrv()
155       drv[1] = 10.0*t4-495.0*t5+6600.0*t9-34650.0*t12+83160.0*t15-97020.0*t17+  in EnDrv()
162       t4 = t3*t1;  in EnDrv()
178       t28 = -66.0*t4+2420.0*t6-27225.0*t8+130680.0*t12-304920.0*t15+365904.0*  in EnDrv()
180       t29 = 11.0*t4-660.0*t6+10890.0*t8-72600.0*t12+228690.0*t15-365904.0*t18+  in EnDrv()
189       t4 = t3*t3;  in EnDrv()
190       t5 = t4*t2;  in EnDrv()
191       t7 = r*t4*t1;  in EnDrv()
193       t10 = t8*t4*s;  in EnDrv()
195       t12 = t11*t4;  in EnDrv()
217       t4 = t3*t2;  in EnDrv()
235       t34 = -91.0*t4+4732.0*t7-78078.0*t10+572572.0*t13-2147145.0*t15+4416984.0  in EnDrv()
238       t35 = 13.0*t4-1092.0*t7+26026.0*t10-260260.0*t13+1288287.0*t15-3435432.0*  in EnDrv()