21    double t19,t20,t21,t22,t23,t24,t25,t26,t27,t28,t29,t30,t31,t32,t33,t34;  in Fn()  local
280       t20 = 70.0/323.0*r*t9-105.0/2584.0*r*t2+21.0/6460.0*r*s-r/12920+3.0/190.0  in Fn()
285 +t20;  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()
698       t20 = r*t4-55.0/13.0*r*t6+99.0/13.0*r*t3-99.0/13.0*r*t10+1386.0/299.0*r*  in Fn()
704       f = t20+t21;  in Fn()
823       t20 = t3*t1;  in Fn()
827 +56.0/1495.0*t20*s+t4/2990-14.0/16445.0*t20-t4*s/65+14.0/16445.0*t9+140.0/  in Fn()
832 t6*t2+196.0/299.0*t6*t3+588.0/1495.0*t9*t5-14.0/3289.0*t2*s-28.0/65.0*t20*t5  in Fn()
833 -28.0/13.0*t20*t12+112.0/65.0*t20*t6+168.0/312455.0*t1*s;  in Fn()
867       t20 = t5*t4;  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()
873 16445.0*t4*t1-252.0/65.0*t20*t1+81.0/1495.0*t18-756.0/16445.0*t20+378.0/16445.0  in Fn()
990       t20 = t4*t4;  in Fn()
991       t31 = 40.0/21.0*t5*t18-14.0/195.0*t20*t14+16.0/455.0*r*t18-40.0/91.0*t4*  in Fn()
993 819.0*r*t10+28.0/65.0*t20*t2-4.0/16445.0*t20*s;  in Fn()
994       t37 = 112.0/4485.0*t3*r-56.0/39.0*t20*t3-t5/345345-t18/1365-18.0/7.0*t20*  in Fn()
995 t18+t20/345345+t10/4095+16.0/2187185.0*r*s-2.0/49335.0*t14+4.0/4485.0*t6-4.0/  in Fn()
997       t47 = -8.0/195.0*r*t6-2.0/19684665.0*r+t20*t10+1.0/334639305.0+28.0/  in Fn()
998 4485.0*t20*t1+8.0/3.0*t20*t6-28.0/3289.0*r*t2+28.0/299.0*t4*t2-56.0/3289.0*t4*  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()
1075       f = t20+t33+t47+t50;  in Fn()