22    double t19,t20,t21,t22,t23,t24,t25,t26,t27,t28,t29,t30,t31,t32,t33,t34;  in Bn()  local
2210       t25 = t21*t21;  in Bn()
2213 t21+40.0/33.0*t15*t21*t18+5.0/22.0*t*t25+t25*t18/77);  in Bn()
2240       t25 = t23*t23;  in Bn()
2243 *t11)*(t21*t+12.0/7.0*t21*t23+6.0/7.0*t*t25+4.0/35.0*t25*t23);  in Bn()
2256       t25 = s+r-1.0;  in Bn()
2257       t27 = t25*t25;  in Bn()
2260 s*t14*t12+3.0/163438.0*t22)*(t24+6.0/5.0*t*t25+3.0/10.0*t27);  in Bn()
2314       t25 = t17*t17;  in Bn()
2317 221.0*t4*t17*t12+36.0/2431.0*t*t17*t15+9.0/24310.0*t25);  in Bn()
2998       t25 = t15*t15;  in Bn()
3001 7920.0/7429.0*t3*t15*t12+2475.0/14858.0*t2*t25+110.0/7429.0*t1*t25*t7+33.0/  in Bn()
3002 52003.0*t*t25*t10+6.0/676039.0*t25*t12;  in Bn()
3013       t25 = t16*t16;  in Bn()
3016 323.0*t11*t16*t13+165.0/4522.0*t2*t25+55.0/29393.0*t*t25*t7+11.0/352716.0*t25*  in Bn()
3178       t25 = t15*t15;  in Bn()
3181 2185.0*t3*t15*t12+33.0/437.0*t2*t25+44.0/7429.0*t1*t25*t7+33.0/148580.0*s*t25*  in Bn()
3182 t10+t25*t12/371450;  in Bn()
3193       t25 = t16*t16;  in Bn()
3196 323.0*t11*t16*t13+165.0/4522.0*t2*t25+55.0/29393.0*t*t25*t7+11.0/352716.0*t25*  in Bn()
3257       t25 = t20*t20;  in Bn()
3260 *t*t20*t18+105.0/143.0*t14*t25+14.0/143.0*t*t25*t18+7.0/1716.0*t25*t20);  in Bn()
3286       t25 = t23*t23;  in Bn()
3287       t29 = t25*t25;  in Bn()
3290 t20*t*t23+5.0/3.0*t20*t25+10.0/21.0*t*t25*t23+5.0/126.0*t29);  in Bn()
3301       t25 = s+r-1.0;  in Bn()
3302       t27 = t25*t25;  in Bn()
3305 8.0/245157.0*t14*t12)*(t23*t+12.0/7.0*t25*t23+6.0/7.0*t*t27+4.0/35.0*t27*t25);  in Bn()
3348       t25 = t16*t16;  in Bn()
3351 7429.0*t11*t16*t13+225.0/14858.0*t2*t25+5.0/7429.0*s*t25*t7+t25*t9/104006;  in Bn()
3364       t25 = t17*t17;  in Bn()
3367 *t9*t17*t11+360.0/4199.0*t3*t17*t14+45.0/8398.0*t*t25+5.0/46189.0*t25*t7);  in Bn()
3425       t25 = t21*t21;  in Bn()
3428 t15*t21*t18+5.0/22.0*t*t25+t25*t18/77);  in Bn()
3455       t25 = t23*t23;  in Bn()
3458 *t21+6.0/7.0*t*t25+4.0/35.0*t25*t23);  in Bn()
3470       t25 = s+r-1.0;  in Bn()
3471       t27 = t25*t25;  in Bn()
3474 t15*t13/14535)*(t24+6.0/5.0*t*t25+3.0/10.0*t27);  in Bn()
3501       t25 = t17*t17;  in Bn()
3504 t17*t11+12.0/323.0*t3*t17*t14+9.0/4522.0*s*t25+t25*t7/29393);  in Bn()
3516       t25 = t17*t17;  in Bn()
3519 +42.0/221.0*t4*t17*t12+36.0/2431.0*t*t17*t15+9.0/24310.0*t25);  in Bn()
3573       t25 = t21*t21;  in Bn()
3576 t21*t16+10.0/21.0*t*t21*t19+5.0/126.0*t25);  in Bn()
3601       t25 = t23*t23;  in Bn()
3604 +t15*t10/3876)*(t22+6.0/5.0*t*t23+3.0/10.0*t25);  in Bn()
3629       t25 = t17*t17;  in Bn()
3632 t17*t9+28.0/323.0*t4*t17*t12+24.0/4199.0*s*t17*t15+t25/8398);  in Bn()