20    double t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t16,t17,t18;  in Fn()  local
294       t17 = t2*t5-3.0/2.0*t2*t4+15.0/19.0*t2*t8-10.0/57.0*t2*t3+5.0/323.0*t2*s-  in Fn()
300       f = t17+t23;  in Fn()
534       t17 = t3*t2;  in Fn()
537 23.0*t1*t17-42.0/1265.0*t4+28.0/81719.0*t2+t1/81719;  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()
540 4807.0*t2*t1+63.0/4807.0*t3-9.0/253.0*t11+t8/92+12.0/253.0*t17;  in Fn()
647       t17 = 1.0/3268760.0+28.0/81719.0*t1+252.0/4807.0*t2*s+84.0/4807.0*t4*t1  in Fn()
654       f = t17+t26;  in Fn()
942       t17 = t9*t1;  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()
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()
986       t17 = 4.0/937365.0*t1+2.0/9867.0*t2-28.0/49335.0*t3-80.0/39.0*t5*t6+224.0  in Fn()
1000       f = t17+t31+t37+t47;  in Fn()
1111       t17 = t1*s;  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()
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()
1117 -42.0/65.0*t27*t1+84.0/65.0*t27*t17;  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()
1121 *t27+48.0/23023.0*t3*t1+24.0/2187185.0*t3-36.0/115115.0*t3*s-45.0/14.0*t12*t17;  in Fn()
1157       t17 = t3*r;  in Fn()
1158       t23 = 1694.0/1495.0*t17*s-154.0/1495.0*t17-66.0/299.0*t3*s+44.0/2093.0*t3  in Fn()