22    double t19,t20,t21,t22,t23,t24,t25,t26,t27,t28,t29,t30,t31,t32,t33,t34;  in Bn()  local
1465       t23 = t15*t15;  in Bn()
1468 t1*t15*t12+45.0/8398.0*t*t23+5.0/46189.0*t23*t5;  in Bn()
1479       t23 = t15*t15;  in Bn()
1482 t10+36.0/2431.0*t*t15*t13+9.0/24310.0*t23);  in Bn()
1593       t23 = t15*t15;  in Bn()
1596 +9.0/4522.0*s*t23+t23*t5/29393;  in Bn()
1607       t23 = t15*t15;  in Bn()
1610 2431.0*t*t13*t15+9.0/24310.0*t23);  in Bn()
1660       t23 = t19*t19;  in Bn()
1663 5.0/126.0*t23);  in Bn()
1686       t23 = t21*t21;  in Bn()
1689 t21+3.0/10.0*t23);  in Bn()
1712       t23 = t15*t15;  in Bn()
1715 24.0/4199.0*s*t15*t13+t23/8398);  in Bn()
2195       t23 = t18*t18;  in Bn()
2198 105.0/143.0*t12*t23+14.0/143.0*t*t23*t16+7.0/1716.0*t23*t18);  in Bn()
2224       t23 = t21*t21;  in Bn()
2225       t27 = t23*t23;  in Bn()
2228 5.0/3.0*t23*t18+10.0/21.0*t*t23*t21+5.0/126.0*t27);  in Bn()
2239       t23 = s+r-1.0;  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()
2271       t23 = t15*t15;  in Bn()
2274 81719.0*t1*t15*t12+135.0/163438.0*s*t23+t23*t5/81719)*(t+2.0/3.0*s+2.0/3.0*r  in Bn()
2398       t23 = t*t;  in Bn()
2403 *(t23+6.0/5.0*t*t24+3.0/10.0*t26);  in Bn()
2414       t23 = t15*t15;  in Bn()
2417 s*t15*t13+t23/22610)*(t+2.0/3.0*s+2.0/3.0*r-2.0/3.0);  in Bn()
3145       t23 = t15*t15;  in Bn()
3151 *t15*t12+9.0/24035.0*s*t23+2.0/408595.0*t23*t5)*(t27+6.0/5.0*t*t28+3.0/10.0*t30  in Bn()
3242       t23 = t19*t19;  in Bn()
3245 *t12*t23+56.0/143.0*t11*t23*t16+28.0/715.0*t*t23*t19+8.0/6435.0*t23*t21);  in Bn()
3271       t23 = t20*t20;  in Bn()
3272       t27 = t23*t23;  in Bn()
3275 11.0*t17*t*t23+40.0/33.0*t17*t23*t20+5.0/22.0*t*t27+t27*t20/77);  in Bn()
3285       t23 = s+r-1.0;  in Bn()
3286       t25 = t23*t23;  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()
3300       t23 = t*t;  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()
3316       t23 = t15*t15;  in Bn()
3322 t10+96.0/81719.0*s*t15*t13+3.0/163438.0*t23)*(t26+6.0/5.0*t*t27+3.0/10.0*t29);  in Bn()
3409       t23 = t18*t18;  in Bn()
3412 t18*t16+105.0/143.0*t12*t23+14.0/143.0*t*t23*t16+7.0/1716.0*t23*t18);  in Bn()
3440       t23 = t21*t21;  in Bn()
3441       t27 = t23*t23;  in Bn()
3444 3.0*t23*t18+10.0/21.0*t*t23*t21+5.0/126.0*t27);  in Bn()
3454       t23 = s+r-1.0;  in Bn()
3455       t25 = t23*t23;  in Bn()
3457 *t3*s*t9*t7+5.0/57.0*t3*t14+2.0/323.0*s*t14*t7+t14*t9/7752)*(t21*t+12.0/7.0*t23  in Bn()
3458 *t21+6.0/7.0*t*t25+4.0/35.0*t25*t23);  in Bn()
3557       t23 = t19*t19;  in Bn()
3560 33.0*t13*t19*t16+5.0/22.0*t*t23+t23*t16/77);  in Bn()
3587       t23 = t21*t21;  in Bn()
3590 7.0*t21*t19+6.0/7.0*t*t23+4.0/35.0*t23*t21);  in Bn()
3600       t23 = s+r-1.0;  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()
3685       t23 = t19*t19;  in Bn()
3688 10.0/21.0*t*t19*t17+5.0/126.0*t23);  in Bn()
3715       t23 = t21*t21;  in Bn()
3718 t15*t8)*(t20+6.0/5.0*t*t21+3.0/10.0*t23);  in Bn()