20    double t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t16,t17,t18;  in Fn()  local
232       t9 = t1*r;  in Fn()
234 51.0*t9*t4-25.0/68.0*t9*s+5.0/204.0*t9-25.0/102.0*t1*t4+5.0/51.0*t1*s-5.0/714.0  in Fn()
279       t9 = t2*s;  in Fn()
280       t20 = 70.0/323.0*r*t9-105.0/2584.0*r*t2+21.0/6460.0*r*s-r/12920+3.0/190.0  in Fn()
281 *t4-7.0/190.0*t6+21.0/646.0*t3-35.0/2584.0*t9+7.0/2584.0*t2-3.0/12920.0*s+1.0/  in Fn()
283       f = t1*t4-21.0/10.0*t1*t6+63.0/38.0*t1*t3-35.0/57.0*t1*t9+35.0/323.0*t1  in Fn()
391       t9 = t4*s;  in Fn()
392       t19 = t1*t5-28.0/11.0*t1*t7+28.0/11.0*t1*t9-14.0/11.0*t1*t4+70.0/209.0*t1  in Fn()
394 -42.0/55.0*r*t9+84.0/209.0*r*t4;  in Fn()
396 55.0*t7+42.0/1045.0*t9-14.0/627.0*t4+70.0/10659.0*t3-7.0/7106.0*t2+7.0/106590.0  in Fn()
456       t9 = r*t2;  in Fn()
459 10659.0*t9-5.0/11.0*t9*t6-9.0/14212.0*r*s+6.0/1045.0*t12+12.0/11.0*t12*t1+t6  in Fn()
461       t27 = -t4/385+27.0/209.0*t3*s-10.0/209.0*t9*s+30.0/3553.0*t2*s+15.0/209.0  in Fn()
462 *t2*t6+60.0/209.0*t9*t1-r*t6/209+15.0/11.0*t3*t6-t3/209-5.0/14212.0*t2-10.0/  in Fn()
500       t9 = t3*r-45.0/11.0*t3+540.0/77.0*t5*t2-72.0/11.0*t2*t1+756.0/209.0*r*t2  in Fn()
551       t9 = t4*t3;  in Fn()
554 1265.0*t7+4.0/759.0*t9+28.0/23.0*t1*t9-14.0/4807.0*r*t3+14.0/81719.0*r*s-t1*t6  in Fn()
557 t5+140.0/253.0*t1*t4+105.0/4807.0*r*t5+49.0/23.0*t2*t7-7.0/3.0*t2*t9+7.0/4807.0  in Fn()
559 -42.0/253.0*r*t9+42.0/253.0*r*t7;  in Fn()
569       t9 = t7*t1;  in Fn()
571 19228.0*t7-5.0/1961256.0*r-t8/1012+5.0/10626.0*t9-25.0/86526.0*t2-5.0/1307504.0  in Fn()
572 *s+25.0/490314.0*t1+5.0/245157.0*t4-105.0/253.0*t4*t8+5.0/23.0*t4*t9-25.0/  in Fn()
576 -175.0/506.0*t5*t2+15.0/4807.0*t21*s-5.0/86526.0*t21+t5*t9-7.0/4.0*t5*t8+25.0/  in Fn()
577 506.0*t5*t1-3.0/1012.0*t5*s+35.0/23.0*t21*t8-5.0/6.0*t21*t9-25.0/506.0*t21*t1+  in Fn()
578 250.0/759.0*t21*t2-525.0/506.0*t21*t7-5.0/253.0*r*t9+10.0/253.0*r*t8;  in Fn()
609       t9 = t4*s;  in Fn()
610       t25 = t3*t5-105.0/253.0*t4*t7-5.0/6.0*t3*t9-5.0/4807.0*t4*r+10.0/253.0*t7  in Fn()
611 *s+10.0/81719.0*r*s+35.0/23.0*t7*t9-25.0/14421.0*t1*s-3.0/1012.0*r*t5+75.0/  in Fn()
612 4807.0*t4*t1-25.0/506.0*t1*t9+25.0/506.0*t5*t1-7.0/4.0*t5*t7+105.0/92.0*t5*t2  in Fn()
613 -525.0/506.0*t2*t9+15.0/4807.0*r*t9+75.0/253.0*t4*t2;  in Fn()
616 +5.0/23.0*t3*t4+250.0/759.0*t28*t9-175.0/506.0*t28*t5+15.0/19228.0*t2+25.0/  in Fn()
617 490314.0*t1-5.0/86526.0*t9+5.0/10626.0*t3-5.0/1307504.0*r+t5/19228-5.0/  in Fn()
694       t9 = t1*s;  in Fn()
695       t10 = t2*t9;  in Fn()
699 t12-2646.0/1495.0*r*t14+126.0/299.0*r*t2-18.0/299.0*r*t9+27.0/5681.0*r*t1-r*s  in Fn()
702 252.0/1495.0*t14-63.0/1495.0*t2+36.0/5681.0*t9-3.0/5681.0*t1+2.0/96577.0*s-1.0/  in Fn()
712       t9 = t1*s;  in Fn()
713       t10 = t2*t9;  in Fn()
718 t2-7938.0/16445.0*t6*t2+81.0/312455.0*t6*s-45.0/13.0*t6*t3-378.0/16445.0*r*t9  in Fn()
719 -108.0/16445.0*t6*t1+252.0/3289.0*t6*t9;  in Fn()
722 *r*s-36.0/312455.0*t1+6.0/5311735.0*r+3.0/325.0*t12+378.0/312455.0*t9+27.0/  in Fn()
798       t9 = t3*s;  in Fn()
802       t27 = 3.0/124982.0*t13+t12*t9-315.0/3289.0*t6*t2-1.0/84987760.0-3.0/  in Fn()
804 62491.0*t24-7.0/26.0*t24*t9;  in Fn()
807 /124982+21.0/598.0*t1*t9;  in Fn()
809 *r*t9+9.0/3289.0*r*t3+6.0/13.0*t12*t13+3.0/598.0*t12*s-21.0/13.0*t7*t9+45.0/  in Fn()
810 124982.0*t1*s+126.0/65.0*t7*t3+t27+t9/32890+45.0/6578.0*t6*s-9.0/65780.0*t6+  in Fn()
812 3289.0*t24*t2+63.0/65.0*t6*t9-15.0/13.0*t12*t3+t44;  in Fn()
821       t9 = r*t3;  in Fn()
825 -98.0/65.0*t6*t9+56.0/3289.0*t6*t1+t4*t12-588.0/3289.0*t3*t5-294.0/16445.0*t1*  in Fn()
826 t12-84.0/16445.0*t1*t5+588.0/325.0*t12*t9-588.0/16445.0*t9*s+14.0/16445.0*r*t12  in Fn()
827 +56.0/1495.0*t20*s+t4/2990-14.0/16445.0*t20-t4*s/65+14.0/16445.0*t9+140.0/  in Fn()
832 t6*t2+196.0/299.0*t6*t3+588.0/1495.0*t9*t5-14.0/3289.0*t2*s-28.0/65.0*t20*t5  in Fn()
863       t9 = t6*r;  in Fn()
869 t5*s+t9*t1-3.0/13.0*t9*s+252.0/3289.0*t12*t1-45.0/13.0*t6*t1+2646.0/1495.0*t15*  in Fn()
874 *t15+3.0/325.0*t9+378.0/312455.0*t12-567.0/82225.0*t5-9.0/260.0*t6+6.0/  in Fn()
884       t9 = r*t1;  in Fn()
885       t10 = t2*t9;  in Fn()
891       t21 = 252.0/1495.0*t14+126.0/299.0*t2*s-63.0/1495.0*t2-18.0/299.0*t9*s+  in Fn()
892 36.0/5681.0*t9+27.0/5681.0*t1*s-3.0/5681.0*t1-r*s/5681+2.0/96577.0*r+s/482885  in Fn()
921       t9 = t4*s;  in Fn()
925       t22 = r*t5-33.0/7.0*r*t7+605.0/63.0*r*t9-3025.0/273.0*r*t4+726.0/91.0*r*  in Fn()
928       t23 = -t5/14+22.0/63.0*t7-605.0/819.0*t9+242.0/273.0*t4-121.0/182.0*t12+  in Fn()
939       t9 = t2*t2;  in Fn()
942       t17 = t9*t1;  in Fn()
943       t19 = t9*s;  in Fn()
945 t9+5.0/2093.0*t3*t1-10.0/299.0*t3*t5-77.0/65.0*t3*t13+44.0/13.0*t3*t15+t3*t17  in Fn()
946 -55.0/14.0*t3*t19-275.0/182.0*r*t9-21.0/299.0*r*t2+55.0/63.0*r*t19+462.0/1495.0  in Fn()
950 60843510.0-3.0/14.0*r*t17+11.0/182.0*t9-55.0/1638.0*t19+t17/126-21.0/1495.0*t13  in Fn()
1009       t9 = t2*s;  in Fn()
1013       t22 = 2.0/1003917915.0-t3*r/117+r*s/187473+14.0/9.0*t8*t9-15.0/14.0*t7*  in Fn()
1014 t12-100.0/117.0*t14*t3+28.0/39.0*t14*t9+10.0/29601.0*t14*s-70.0/9867.0*t14*t1+  in Fn()
1018 *t2-35.0/9867.0*r*t2-t8/148005-7.0/49335.0*t9;  in Fn()
1024 r*t9-14.0/117.0*t6*t9-70.0/39.0*t7*t9;  in Fn()
1084       t9 = t4*t4;  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()
1091 -40.0/91.0*t12*t4+16.0/455.0*t12*s+10.0/63.0*t4*t3-14.0/195.0*t7*t9+32.0/65.0*  in Fn()
1095 t4-28.0/49335.0*t27+224.0/195.0*t27*t5-28.0/3289.0*t2*s+28.0/4485.0*t1*t9+4.0/  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()
1099 *t27*t9+112.0/4485.0*t27*s+t3*t9+56.0/897.0*t7*t5;  in Fn()
1107       t9 = t3*r;  in Fn()
1108       t10 = t4*t9;  in Fn()
1115 *t12*t1+t16*t17+12.0/3289.0*t9*s-84.0/3289.0*t1*t9+14.0/299.0*t9*t17-21.0/65.0*  in Fn()
1119 1495.0*t6+12.0/16445.0*t4-2.0/16445.0*t9-t16/819-s/6561555+2.0/455.0*t12-t17  in Fn()
1151       t9 = r*t4;  in Fn()
1154       t16 = t5*s-t5/14-33.0/7.0*t7*s+22.0/63.0*t7+605.0/63.0*t9*s-605.0/819.0*  in Fn()
1155 t9-3025.0/273.0*t4*s+242.0/273.0*t4+726.0/91.0*t12*s-121.0/182.0*t12-242.0/65.0  in Fn()