20    double t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t16,t17,t18;  in Fn()  local
378       t10 = t2*s;  in Fn()
379       f = r*t3-36.0/11.0*r*t6+48.0/11.0*r*t8-168.0/55.0*r*t10+252.0/209.0*r*  in Fn()
381 -24.0/55.0*t8+336.0/1045.0*t10-28.0/209.0*t2+112.0/3553.0*t5-14.0/3553.0*t1+4.0  in Fn()
407       t10 = t2*s;  in Fn()
408       t21 = 6.0/77.0*r*t3-5.0/11.0*t6*t7+27.0/209.0*r*t2-9.0/55.0*r*t10+15.0/  in Fn()
409 11.0*t6*t2-21.0/11.0*t6*t10+t6*t3-1.0/1492260.0-10.0/209.0*r*t7+15.0/209.0*t6*  in Fn()
410 t1+12.0/3553.0*t5*s-6.0/11.0*t5*t3+12.0/11.0*t5*t10-9.0/11.0*t5*t2;  in Fn()
412 30.0/3553.0*t1*r-9.0/14212.0*r*s+6.0/1045.0*t10+20.0/10659.0*t7-t2/209+s/35530+  in Fn()
439       t10 = t4*t4;  in Fn()
442 -25.0/149226.0*t1-2.0/77.0*t3*s+15.0/1463.0*r*t10+50.0/77.0*t12*t10-25.0/  in Fn()
444 *t2-10.0/77.0*t1*t10-15.0/11.0*t2*t10;  in Fn()
445       t29 = 400.0/74613.0*t1*s+60.0/1463.0*t2*s-100.0/4389.0*t12*s+t3*t10+300.0  in Fn()
447 t5-t10/4389+t3/1463-5.0/49742.0*t4+s/74613+5.0/298452.0*r-1.0/2089164.0;  in Fn()
489       t10 = r*t2;  in Fn()
491 -168.0/55.0*t10*s+336.0/1045.0*t10+252.0/209.0*t2*s-28.0/209.0*t2-56.0/209.0*t5  in Fn()
519       t10 = t2*t1;  in Fn()
521       f = r*t4-15.0/4.0*r*t3+135.0/23.0*r*t8-1260.0/253.0*r*t10+630.0/253.0*r  in Fn()
523 653752.0*r-t4/12+15.0/46.0*t3-135.0/253.0*t8+120.0/253.0*t10-63.0/253.0*t12+  in Fn()
532       t10 = t2*s;  in Fn()
533       t11 = t3*t10;  in Fn()
536 t11-4.0/4807.0*t1*s-63.0/253.0*r*t3-42.0/253.0*t1*t10+210.0/253.0*t1*t3+84.0/  in Fn()
538       t26 = -3.0/653752.0*r-14.0/4807.0*t10-3.0/163438.0*s+1.0/3268760.0+18.0/  in Fn()
539 23.0*r*t11-r*t8/4+252.0/4807.0*r*t10-252.0/253.0*r*t17+168.0/253.0*r*t4+84.0/  in Fn()
586       t10 = t4*t4;  in Fn()
587       t11 = t10*r;  in Fn()
591 t4*t1-125.0/1771.0*t4*t7+250.0/1771.0*t4*t2-5.0/4.0*t11*t2-375.0/506.0*t10*t7  in Fn()
592 -5.0/4.0*t10*t14+375.0/67298.0*r*t7+250.0/1771.0*t10*t1-75.0/7084.0*t10*s+375.0  in Fn()
598 201894.0*t19+25.0/46.0*t19*t14+15.0/67298.0*t10+75.0/46.0*t10*t2+15.0/67298.0*  in Fn()
627       t10 = t3*r;  in Fn()
628       t11 = t4*t10;  in Fn()
633       t31 = 3.0/46.0*t11*s-35.0/43263.0*t10+175.0/759.0*t10*t6-21.0/253.0*t4*s  in Fn()
634 -245.0/253.0*t4*t6+49.0/23.0*t14*t6-35.0/253.0*t10*t1+7.0/4807.0*r*t6+28.0/  in Fn()
636 -42.0/253.0*t5*s+105.0/4807.0*t10*s+28.0/23.0*t5*t1;  in Fn()
663       t10 = t2*t1;  in Fn()
666 t8-1260.0/253.0*t10*s+120.0/253.0*t10+630.0/253.0*t12*s-63.0/253.0*t12-189.0/  in Fn()
695       t10 = t2*t9;  in Fn()
698       t20 = r*t4-55.0/13.0*r*t6+99.0/13.0*r*t3-99.0/13.0*r*t10+1386.0/299.0*r*  in Fn()
701       t21 = -t4/13+22.0/65.0*t6-33.0/52.0*t3+198.0/299.0*t10-126.0/299.0*t12+  in Fn()
713       t10 = t2*t9;  in Fn()
717 t10+t6*t12-3.0/42493880.0+378.0/16445.0*t14+2646.0/1495.0*t6*t14-567.0/82225.0*  in Fn()
721 16445.0*t7-9.0/260.0*t3-t6/312455+81.0/1495.0*t10-81.0/65.0*r*t10-27.0/312455.0  in Fn()
733       t10 = t7*s;  in Fn()
737 325.0*t2*t10+882.0/1495.0*t2*t7+t2*t13-3.0/106234700.0+36.0/7475.0*t15-6.0/  in Fn()
742 7056.0/7475.0*t1*t10-10584.0/82225.0*r*t10+1512.0/7475.0*r*t8-36.0/13.0*t2*t15+  in Fn()
743 756.0/16445.0*r*t7-126.0/82225.0*t7-t13/650-504.0/82225.0*t8+336.0/82225.0*t10  in Fn()
842       t10 = t8*t8;  in Fn()
847 t10*t2+1008.0/16445.0*t7*t2+882.0/1495.0*t8*t4+18.0/325.0*t10*s-1764.0/16445.0*  in Fn()
852 16445.0*t8*t2+168.0/16445.0*t6*t4-56.0/1562275.0*t6-588.0/325.0*t23*t4+t10*t4+  in Fn()
855 1562275.0*t2-t10/650;  in Fn()
885       t10 = t2*t9;  in Fn()
889 -99.0/13.0*t10*s+198.0/299.0*t10+1386.0/299.0*t12*s-126.0/299.0*t12-2646.0/  in Fn()
984       t10 = t2*t2;  in Fn()
987 /195.0*t5*t3-14.0/39.0*t5*t2-5.0/7.0*t5*t10+16.0/69069.0*t5*s-56.0/9867.0*t5*t1  in Fn()
993 819.0*r*t10+28.0/65.0*t20*t2-4.0/16445.0*t20*s;  in Fn()
995 t18+t20/345345+t10/4095+16.0/2187185.0*r*s-2.0/49335.0*t14+4.0/4485.0*t6-4.0/  in Fn()
997       t47 = -8.0/195.0*r*t6-2.0/19684665.0*r+t20*t10+1.0/334639305.0+28.0/  in Fn()
999 t14+10.0/63.0*t4*t10+16.0/9867.0*r*t14+2.0/2187185.0*t4;  in Fn()
1034       t10 = t3*s;  in Fn()
1039 -175.0/19734.0*t1*t10+t1/749892-35.0/156.0*t12*t10-t14*s/780+5.0/9867.0*r*t10-  in Fn()
1043 t3+14.0/39.0*t19*t10+t14*t5+t14*t3/39;  in Fn()
1044       t42 = 5.0/9867.0*t2*s-175.0/19734.0*t3*t2+175.0/2691.0*t2*t10-t3*r/13156+  in Fn()
1046 3.0/624910.0*r*s-t10/118404;  in Fn()
1048 /11248380+5.0/6.0*t14*t4+35.0/1196.0*t12*t3-25.0/117.0*t14*t10+5.0/6.0*t12*t5  in Fn()
1085       t10 = t2*t1;  in Fn()
1088 2187185.0*r*s+t3/4095-t5/345345+t9/345345+8.0/3.0*t10*t9-t12/1365+4.0/4485.0*  in Fn()
1089 t10;  in Fn()
1092 t10*t4+16.0/9867.0*t7*s-56.0/3289.0*t7*t4;  in Fn()
1096 937365.0*t1-8.0/195.0*t10*s+40.0/21.0*t12*t5;  in Fn()
1098 *t5+28.0/65.0*t2*t9-4.0/16445.0*r*t9-80.0/39.0*t10*t5-18.0/7.0*t12*t9-56.0/39.0  in Fn()
1108       t10 = t4*t9;  in Fn()
1114 s+2.0/334639305.0+108.0/455.0*t10*s-15.0/91.0*t12*s+27.0/2187185.0*r*s+10.0/7.0  in Fn()
1116 t4*t17+30.0/7.0*t10*t17+3.0/23023.0*r*t17-12.0/3289.0*t3*t17-378.0/16445.0*t4*s  in Fn()
1120 /690690-180.0/91.0*t10*t1+2.0/2187185.0*t1-3.0/455.0*t10-r/2187185-42.0/16445.0  in Fn()
1132       t10 = r*t1;  in Fn()
1133       t11 = t2*t10;  in Fn()
1134       t15 = 1.0/60843510.0-55.0/1638.0*t4+t5*t6+44.0/13.0*t8*t6-t10/2093+11.0/  in Fn()
1140 t1-3.0/4186.0*t1*s+20.0/2093.0*t10*s-10.0/299.0*t10*t6-r*t6/12558-11.0/13.0*t8*  in Fn()