20    double t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t16,t17,t18;  in Fn()  local
473       t11 = t3*r;  in Fn()
475 +28.0/11.0*t11*t5-42.0/55.0*t11*s+42.0/1045.0*t11-14.0/11.0*t5*t3+84.0/209.0*t3  in Fn()
533       t11 = t3*t10;  in Fn()
536 t11-4.0/4807.0*t1*s-63.0/253.0*r*t3-42.0/253.0*t1*t10+210.0/253.0*t1*t3+84.0/  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()
587       t11 = t10*r;  in Fn()
591 t4*t1-125.0/1771.0*t4*t7+250.0/1771.0*t4*t2-5.0/4.0*t11*t2-375.0/506.0*t10*t7  in Fn()
593 /67298.0*t19*s+625.0/1771.0*t19*t7-375.0/506.0*t19*t2+25.0/3542.0*r*t14+t11*t14  in Fn()
594 +25.0/3542.0*t11*s;  in Fn()
596 /253.0*t11*t1+50.0/1716099.0*t1-25.0/9152528.0*r-t11/7084-125.0/100947.0*r*t1+  in Fn()
597 125.0/1144066.0*r*s+25.0/46.0*t11*t7-25.0/9152528.0*s-125.0/1771.0*t19*t1-25.0/  in Fn()
628       t11 = t4*t10;  in Fn()
631 *t6+4.0/759.0*t5-7.0/980628.0*r+14.0/81719.0*r*s+140.0/253.0*t4*t1+t11*t6+14.0/  in Fn()
632 4807.0*t4-t11/506-t11*t1/2-t6/43263-7.0/1265.0*t14-294.0/253.0*t14*t1;  in Fn()
633       t31 = 3.0/46.0*t11*s-35.0/43263.0*t10+175.0/759.0*t10*t6-21.0/253.0*t4*s  in Fn()
645       t11 = t7*r;  in Fn()
648 -28.0/4807.0*t1*s-252.0/253.0*t8*s+84.0/23.0*t8*t4+168.0/253.0*t11*s-42.0/253.0  in Fn()
652 -63.0/253.0*t7*s+18.0/23.0*t18*s-3.0*t18*t4-42.0/1265.0*t11-3.0/653752.0*s-4.0/  in Fn()
653 4807.0*t4*r+t4/81719+12.0/253.0*t8-3.0/163438.0*r-588.0/253.0*t11*t4;  in Fn()
960       t11 = t1*r;  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()
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()
969 14.0/299.0*t11*t4+96.0/65.0*t1*t12;  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()
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()
1010       t11 = t1*s;  in Fn()
1011       t12 = t11*t2;  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()
1017 40.0/29601.0*t1*t6-2.0*t8*t3-350.0/29601.0*t11*t6+16.0/117.0*t6*t3+28.0/39.0*t7  in Fn()
1019       t38 = -t11/59202-s/8436285-r/11810799+2.0/13455.0*t3+140.0/2691.0*t6*t2+  in Fn()
1020 25.0/29601.0*r*t11+4.0/3936933.0*t6+2.0/937365.0*t1+2.0/29601.0*t2-35.0/117.0*  in Fn()
1023 t8+20.0/9.0*t7*t3-70.0/117.0*t8*t2+14.0/117.0*t11*t8-7.0/9867.0*t7*s+7.0/897.0*  in Fn()
1060       t11 = t5*s;  in Fn()
1063       t20 = 20.0/9.0*t3*t5+2.0/1003917915.0-50.0/819.0*t8*t4+t8*s/273+t11*t8-  in Fn()
1064 t13/207207-7.0/49335.0*t14+r*s/187473+14.0/9.0*t14*t11-2.0*t3*t11+14.0/117.0*t7  in Fn()
1065 *t11-35.0/234.0*t7*t5;  in Fn()
1069       t47 = -7.0/585.0*t1*t11+28.0/39.0*t2*t5-7.0/9867.0*r*t5-35.0/9867.0*t2*s+  in Fn()
1070 7.0/13455.0*r*t11-70.0/117.0*t2*t11-14.0/117.0*t14*t4+28.0/39.0*t14*t13-100.0/  in Fn()
1073 /11810799-t11/148005-t8/16380-r/8436285+2.0/29601.0*t2-t7/59202+2.0/937365.0*t1  in Fn()
1133       t11 = t2*t10;  in Fn()
1135 299.0*t8+t2/299+t5/126+11.0/182.0*t3-s/3579030-550.0/91.0*t11*t6-11.0/182.0*t11  in Fn()
1136 -r/715806+t6/1193010+132.0/91.0*t11*s+r*s/39767;  in Fn()