20    double t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t16,t17,t18;  in Fn()  local
309       t12 = 1.0/352716.0-t2*t4+t1/1938-5.0/3876.0*t6+t3/1938-5.0/3876.0*t4+t7  in Fn()
314       f = t12+t24;  in Fn()
322       t12 = t1*r;  in Fn()
324 *t4-3.0/19.0*t2*s+2.0/323.0*t2+15.0/19.0*t12*t5-10.0/19.0*t12*t4+30.0/323.0*t12  in Fn()
325 *s-5.0/1292.0*t12;  in Fn()
337       t12 = t1*r;  in Fn()
338       t20 = 70.0/323.0*t12*s-35.0/2584.0*t12+35.0/323.0*t1*t4-105.0/2584.0*t1*s  in Fn()
342 /190.0*t7+63.0/38.0*t2*t4-21.0/38.0*t2*s+21.0/646.0*t2-35.0/57.0*t12*t4+t20;  in Fn()
440       t12 = t1*r;  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()
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()
446 /1463.0*t12*t4-50.0/4389.0*r*t5-50.0/77.0*t12*t5+50.0/74613.0*t12+20.0/74613.0*  in Fn()
457       t12 = t3*r;  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()
460 /10659-9.0/55.0*t12*s+s/71060+r/35530;  in Fn()
463 209.0*t2*t1-21.0/11.0*t12*t6+12.0/3553.0*t1*r-9.0/11.0*t3*t1;  in Fn()
520       t12 = t2*s;  in Fn()
522 *t12-189.0/253.0*r*t2+630.0/4807.0*r*t7-60.0/4807.0*r*t1+45.0/81719.0*r*s-5.0/  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()
664       t12 = t2*r;  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()
696       t12 = t2*t1;  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()
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()
714       t12 = t3*s;  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()
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()
723 5311735.0*s-3.0/13.0*r*t12;  in Fn()
755       t12 = t7*t4;  in Fn()
760 299.0*t2*t7-28.0/937365.0*r*s-r*t12/65-1.0/63740820.0-294.0/16445.0*t14*t3+56.0  in Fn()
761 /3289.0*r*t7+14.0/16445.0*t14*s-10.0/13.0*t2*t12+49.0/299.0*t14*t4-49.0/65.0*  in Fn()
765 588.0/325.0*t14*t22+t14*t12-28.0/13.0*t14*t8+168.0/312455.0*r*t3-28.0/65.0*t1*  in Fn()
766 t8+12.0/65.0*t1*t12+t12/2990-7.0/16445.0*t7+14.0/16445.0*t22-98.0/65.0*t2*t22  in Fn()
799       t12 = t6*t1;  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()
806 -3.0/32890.0*t12-t12*t2/13+3.0/16445.0*t7+42.0/299.0*t7*t2-15.0/6578.0*t24*s-t1  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()
812 3289.0*t24*t2+63.0/65.0*t6*t9-15.0/13.0*t12*t3+t44;  in Fn()
822       t12 = t5*t5;  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()
828 3289.0*t2*t5-t12/82225;  in Fn()
829       t39 = -49.0/65.0*t12*t3-7.0/16445.0*t3+7.0/62491.0*t2-28.0/937365.0*r*s  in Fn()
831 15935205.0*s-14.0/16445.0*r*t6+56.0/3289.0*t3*s+49.0/299.0*t12*t2-490.0/3289.0*  in Fn()
833 -28.0/13.0*t20*t12+112.0/65.0*t20*t6+168.0/312455.0*t1*s;  in Fn()
864       t12 = r*t4;  in Fn()
866       t18 = t5*t12;  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()
870 t1-378.0/16445.0*t12*s-81.0/65.0*t18*s-3.0/42493880.0+1512.0/1495.0*t20*s+648.0  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()
886       t12 = t2*t1;  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()
922       t12 = t3*t2;  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()
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()
961       t12 = t6*t2;  in Fn()
966 t1*t8+27.0/2187185.0*r*s+2.0/334639305.0-40.0/13.0*t11*t12-21.0/65.0*t11*t6+t11  in Fn()
968 12.0/3289.0*r*t4+10.0/7.0*t1*t15-9.0/115115.0*t1*s-r/6561555+8.0/1495.0*t12+  in Fn()
969 14.0/299.0*t11*t4+96.0/65.0*t1*t12;  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()
1011       t12 = t11*t2;  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()
1015 175.0/2691.0*t14*t11-r*t1/9867+25.0/63.0*t14*t12;  in Fn()
1016       t33 = -35.0/234.0*t7*t11+r*t12/273-50.0/819.0*t6*t12-2.0/29601.0*t6*s+  in Fn()
1021 t2*t14+2.0/207207.0*t7-t12/16380;  in Fn()
1022       t50 = -t14/207207+7.0/13455.0*t8*s+t8*t12+14.0/897.0*t7*t1-7.0/585.0*t1*  in Fn()
1035       t12 = t1*t1;  in Fn()
1036       t14 = t12*t1;  in Fn()
1037       t19 = r*t12;  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()
1041       t34 = 35.0/1196.0*t4*t1-7.0/156.0*t7*t1+t1*t5/39+21.0/26.0*t12*t4-21.0/  in Fn()
1042 13156.0*r*t4-21.0/13156.0*t12*s+7.0/2990.0*t7*r-35.0/26.0*t7*t12-7.0/156.0*t19*  in Fn()
1045 t3/749892-t2/118404+t12/39468-3.0/2.0*t14*t7-7.0/197340.0*t19-7.0/197340.0*t7+  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()
1086       t12 = t7*t2;  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()
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()
1109       t12 = t4*t4;  in Fn()
1110       t16 = t12*r;  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()
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()
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()
1152       t12 = t3*t2;  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()