21    double t19,t20,t21,t22,t23,t24,t25,t26,t27,t28,t29,t30,t31,t32,t33,t34;  in Fn()  local
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()
414       f = t21+t27;  in Fn()
441       t21 = -10.0/11.0*t5*t3+20.0/77.0*t3*t4+200.0/1463.0*t1*t5-5.0/4389.0*t2  in Fn()
448       f = t21+t29;  in Fn()
574       t21 = t4*r;  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()
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()
704       f = t20+t21;  in Fn()
779       t21 = t16*r;  in Fn()
782 /13+21.0/598.0*t21*t3-15.0/6578.0*r*t8;  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()
789 t1-7.0/26.0*t21*t8-63.0/6578.0*r*t6+3.0/598.0*r*t5+63.0/65.0*t21*t4+45.0/6578.0  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()
894       f = t16+t21;  in Fn()
964       t21 = t6*t4;  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()
971 1495.0*r*t8+2.0/2187185.0*t1+108.0/455.0*r*t21+24.0/2187185.0*t2-12.0/3289.0*  in Fn()
973 /2187185-2.0/16445.0*t4-t11/690690-12.0/65.0*r*t12-3.0/455.0*t21+30.0/7.0*t11*  in Fn()
974 t21;  in Fn()
1038       t21 = -25.0/117.0*t2*t5+14.0/39.0*t7*t2-35.0/156.0*t4*t2+1.0/573667380.0  in Fn()
1050       f = t21+t34+t42+t51;  in Fn()