20    double t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t16,t17,t18;  in Fn()  local
323       t16 = t3*t5-3.0/5.0*t3*t4+9.0/95.0*t3*s-t3/285-3.0/2.0*t2*t5+18.0/19.0*t2  in Fn()
329       f = t16+t23;  in Fn()
474       t16 = t4*t5-3.0/11.0*t4*s+t4/77-28.0/11.0*t8*t5+8.0/11.0*t8*s-2.0/55.0*t8  in Fn()
480       f = t16+t23;  in Fn()
630       t16 = 1.0/7354710.0-s/326876-14.0/14421.0*r*t1+4.0/245157.0*t1-7.0/3.0*t5  in Fn()
637       f = t16+t31;  in Fn()
778       t16 = t1*t1;  in Fn()
779       t21 = t16*r;  in Fn()
781 -3.0/124982.0*r*s+126.0/65.0*t16*t6-15.0/13.0*t16*t5+45.0/124982.0*r*t3-t1*t5  in Fn()
783       t44 = t21*t5-21.0/13.0*t21*t6+105.0/299.0*t16*t8-63.0/32890.0*t21*s-63.0/  in Fn()
784 52.0*t16*t4+9.0/3289.0*t16*s+42.0/299.0*t1*t6-t1/187473+t21/32890-3.0/65780.0*  in Fn()
785 t16-1.0/84987760.0;  in Fn()
790 *r*t4-315.0/6578.0*t16*t3+t44;  in Fn()
843       t16 = t8*t6;  in Fn()
848 t7*t4-504.0/325.0*t16*t2-504.0/82225.0*t16-36.0/13.0*t18*t4+36.0/7475.0*t18  in Fn()
853 432.0/325.0*t18*t2+1512.0/7475.0*t16*s+1008.0/325.0*t16*t4-10584.0/82225.0*t23*  in Fn()
888       t16 = t4*s-t4/13-55.0/13.0*t6*s+22.0/65.0*t6+99.0/13.0*t3*s-33.0/52.0*t3  in Fn()
894       f = t16+t21;  in Fn()
924       t16 = t3*s;  in Fn()
926 t12-242.0/65.0*r*t14+1694.0/1495.0*r*t16-66.0/299.0*t3*r+55.0/2093.0*r*t2-11.0/  in Fn()
929 484.0/1495.0*t14-154.0/1495.0*t16+44.0/2093.0*t3-11.0/4186.0*t2+22.0/119301.0*  in Fn()
963       t16 = t15*s;  in Fn()
967 *t16-45.0/14.0*t11*t15+3.0/23023.0*t11*s-36.0/115115.0*r*t2-180.0/91.0*t1*t21+  in Fn()
970       t39 = -3.0/7.0*t1*t16-15.0/91.0*r*t15-378.0/16445.0*r*t6+r*t16/21+126.0/  in Fn()
972 t11*t2-42.0/16445.0*t8+12.0/16445.0*t6-t16/819+2.0/455.0*t15+84.0/65.0*t11*t8-s  in Fn()
1110       t16 = t12*r;  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()
1118       t39 = -40.0/13.0*t6*t17+t16*s/21-3.0/7.0*t16*t1+126.0/1495.0*t27*s+8.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()
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()
1161       f = t16+t23;  in Fn()