20    double t19,t20,t21,t22,t23,t24,t25,t26,t27,t28,t29,t30,t31,t32,t33,t34;  in FnDrv()  local
640       t24 = 5.0*t7*t8+150.0/77.0*t1*t8+800.0/74613.0*t14-400.0/4389.0*t15-10.0/  in FnDrv()
650       drv[0] = t11+t24;  in FnDrv()
701       t24 = 2.0*t22*s-3.0/11.0*t22-56.0/11.0*t6+8.0/11.0*t3+56.0/11.0*t9-42.0/  in FnDrv()
706       drv[1] = t24;  in FnDrv()
847       t24 = t4*s;  in FnDrv()
850       t27 = -350.0/253.0*t22+50.0/253.0*t23-3.0/253.0*t24-7.0*t25+10.0/245157.0  in FnDrv()
857 -25.0/253.0*t24;  in FnDrv()
889       t24 = t5*t6;  in FnDrv()
894 -375.0/1771.0*t21+1875.0/1771.0*t22+5.0*t5*t7-25.0/4.0*t24+500.0/1771.0*t25  in FnDrv()
902       t37 = 1000.0/33649.0*t20-375.0/1771.0*t21+1000.0/1771.0*t22-25.0/4.0*t24+  in FnDrv()
932       t24 = t2*t10;  in FnDrv()
937 250.0/253.0*t24-35.0/4.0*t3*t5+25.0/253.0*r*t5+30.0/23.0*t27-5.0*t28-5.0/  in FnDrv()
945 253.0*t24+105.0/23.0*t27-7.0*t28+10.0/23.0*t32*s-5.0/1961256.0;  in FnDrv()
969       t24 = t5*t1;  in FnDrv()
973 -1470.0/253.0*t24+8.0/253.0*t8+210.0/253.0*t25-7.0/253.0*t5+7.0/4807.0*t10+56.0  in FnDrv()
979       t33 = -735.0/253.0*t24-14.0/4807.0*t4+168.0/4807.0*t13+3.0*t29*t1-21.0/  in FnDrv()
1127       t24 = r*t9;  in FnDrv()
1132 325.0*t24-1764.0/325.0*t25;  in FnDrv()
1140 t23+144.0/325.0*t24-3024.0/325.0*t25+8.0*t28*t9+3528.0/1495.0*t28*t8+336.0/  in FnDrv()
1212       t24 = t7*t3;  in FnDrv()
1216 13.0*t1*t5+36.0/3289.0*t23-630.0/3289.0*t24;  in FnDrv()
1231 -90.0/13.0*t20+36.0/13.0*t21+150.0/3289.0*t23-1575.0/3289.0*t24-30.0/3289.0*t26  in FnDrv()
1266       t24 = t5*t13;  in FnDrv()
1275 62491.0*t21-30.0/3289.0*t22-315.0/3289.0*t23+36.0/13.0*t24-63.0/13.0*t25-105.0/  in FnDrv()
1284 /6578.0*t22-63.0/6578.0*t23+504.0/65.0*t24-35.0/26.0*t25+84.0/299.0*t27+18.0/  in FnDrv()
1313       t24 = t6*s;  in FnDrv()
1322 -2352.0/3289.0*t23-42.0/3289.0*t24-1470.0/3289.0*t25+147.0/299.0*t6*t4+588.0/  in FnDrv()
1330       t41 = 280.0/3289.0*t22-1470.0/3289.0*t23-168.0/16445.0*t24-1176.0/16445.0  in FnDrv()
1356       t24 = 3024.0/1562275.0*t1-1008.0/82225.0*t3+6048.0/325.0*t6*t7-252.0/13.0  in FnDrv()
1377       drv[0] = t24+t31;  in FnDrv()
1399       t24 = t20*s;  in FnDrv()
1402 325.0*t9-18.0/65.0*t16-2268.0/82225.0*t5-4536.0/16445.0*t11-567.0/65.0*t24+  in FnDrv()
1410 t24-90.0/13.0*t10;  in FnDrv()
1537       t24 = r*s;  in FnDrv()
1541       t29 = 96.0/23023.0*t23-18.0/115115.0*t24+4.0/2187185.0*r-15.0/91.0*t14+  in FnDrv()
1550 -24.0/3289.0*t31*s-240.0/13.0*t31*t11+36.0/3289.0*t23-72.0/115115.0*t24+27.0/  in FnDrv()
1581       t24 = t16*s;  in FnDrv()
1592 t23+112.0/4485.0*t22-16.0/16445.0*t24+56.0/299.0*t25+32.0/3.0*t26+112.0/65.0*  in FnDrv()
1600       t46 = 8.0/1495.0*t22-112.0/9867.0*t24+112.0/299.0*t25+40.0/3.0*t26+224.0/  in FnDrv()
1629       t24 = t18*s;  in FnDrv()
1637 -28.0/9867.0*t24-280.0/39.0*t25+112.0/39.0*t26-70.0/117.0*t27+10.0/9867.0*t28;  in FnDrv()
1651 9867.0*t24-200.0/39.0*t25+140.0/39.0*t26-140.0/117.0*t27-14.0/585.0*t41*s+14.0/  in FnDrv()
1683       t24 = t5*s;  in FnDrv()
1684       t25 = t3*t24;  in FnDrv()
1687       t29 = t1*t24;  in FnDrv()
1693       t36 = t22*t24;  in FnDrv()
1697       t41 = r*t24;  in FnDrv()
1699       t43 = t2*t24;  in FnDrv()
1700       t44 = 3.0/624910.0*s+t3/8970-t4/13156+r/374946+7.0/2990.0*t24-7.0/39468.0  in FnDrv()
1706       t57 = t24/8970-21.0/13156.0*t2+5.0/9867.0*t22-7.0/39468.0*t5-t50/780-t41  in FnDrv()
1707 /130+35.0/598.0*t42+5.0*t43-15.0/2.0*t50*t5+10.0/3.0*t50*t7+6.0*t50*t24;  in FnDrv()
1922       t24 = t3*t9-33.0/7.0*t4+605.0/63.0*t6-3025.0/273.0*t3+726.0/91.0*t10  in FnDrv()
1926       drv[1] = t24;  in FnDrv()