21    double t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t16,t17,t18;  in Bn()  local
652       t16 = t12*t12;  in Bn()
654 t*t12+40.0/33.0*t6*t12*t9+5.0/22.0*t*t16+t16*t9/77);  in Bn()
676       t16 = t14*t14;  in Bn()
678 12.0/7.0*t14*t12+6.0/7.0*t*t16+4.0/35.0*t16*t14);  in Bn()
687       t16 = s+r-1.0;  in Bn()
688       t18 = t16*t16;  in Bn()
690 476.0*s*t11+3.0/3094.0*t11*t4)*(t15+6.0/5.0*t*t16+3.0/10.0*t18);  in Bn()
1131       t16 = t14*t14;  in Bn()
1132       t20 = t16*t16;  in Bn()
1134 20.0/9.0*t11*t*t14+5.0/3.0*t11*t16+10.0/21.0*t*t16*t14+5.0/126.0*t20);  in Bn()
1143       t16 = s+r-1.0;  in Bn()
1144       t18 = t16*t16;  in Bn()
1146 /476)*(t14*t+12.0/7.0*t16*t14+6.0/7.0*t*t18+4.0/35.0*t18*t16);  in Bn()
1223       t16 = t14*t14;  in Bn()
1225 *t7*t5)*(t12*t+12.0/7.0*t14*t12+6.0/7.0*t*t16+4.0/35.0*t16*t14);  in Bn()
1235       t16 = s+r-1.0;  in Bn()
1236       t18 = t16*t16;  in Bn()
1238 s*t6*t8+t12/273)*(t15+6.0/5.0*t*t16+3.0/10.0*t18);  in Bn()
1298       t16 = t14*t14;  in Bn()
1300 13.0*s*t8+2.0/143.0*t8*t6)*(t13+6.0/5.0*t*t14+3.0/10.0*t16);  in Bn()
1493       t16 = t14*t11;  in Bn()
1496 t14+56.0/13.0*t8*t16+70.0/39.0*t7*t18+56.0/143.0*t6*t18*t11+28.0/715.0*t*t18*  in Bn()
1497 t14+8.0/6435.0*t18*t16);  in Bn()
1534       t16 = t15*t15;  in Bn()
1539 s*t11+2.0/6783.0*t11*t4)*(t16+20.0/9.0*t15*t*t18+5.0/3.0*t20*t15+10.0/21.0*t*  in Bn()
1619       t16 = t12*t12;  in Bn()
1621 /5.0*t6*t*t12+56.0/13.0*t6*t14+70.0/39.0*t5*t16+56.0/143.0*t4*t16*t9+28.0/715.0  in Bn()
1622 *t*t16*t12+8.0/6435.0*t16*t14);  in Bn()
1736       t16 = t11*t11;  in Bn()
1738 t6*t*t9+105.0/26.0*t6*t11+350.0/143.0*t5*t*t11*t9+105.0/143.0*t5*t16+14.0/143.0  in Bn()
1739 *t*t16*t9+7.0/1716.0*t16*t11);  in Bn()
1837       t16 = t12*t12;  in Bn()
1839 *(t7*t+30.0/11.0*t9*t7+30.0/11.0*t6*t*t12+40.0/33.0*t6*t12*t9+5.0/22.0*t*t16+  in Bn()
1840 t16*t9/77);  in Bn()
1874       t16 = t*t;  in Bn()
1878 /7.0*t4*t9+8.0/91.0*s*t9*t7+t13/273)*(t16+6.0/5.0*t*t17+3.0/10.0*t19);  in Bn()
1921       t16 = t12*t12;  in Bn()
1924 5.0/126.0*t16);  in Bn()
2147       t16 = t10*t10;  in Bn()
2148       t24 = t16*t16;  in Bn()
2150 3360.0/323.0*t3*t2*t13+2205.0/323.0*t3*t*t16+882.0/323.0*t3*t16*t6+210.0/323.0*  in Bn()
2151 t8*t16*t10+360.0/4199.0*t2*t16*t13+45.0/8398.0*t*t24+5.0/46189.0*t24*t6);  in Bn()
2193       t16 = s+r-1.0;  in Bn()
2194       t18 = t16*t16;  in Bn()
2197 )*(t12*t13+42.0/13.0*t13*t*t16+105.0/26.0*t13*t18+350.0/143.0*t12*t*t18*t16+  in Bn()
2198 105.0/143.0*t12*t23+14.0/143.0*t*t23*t16+7.0/1716.0*t23*t18);  in Bn()
2207       t16 = t15*t15;  in Bn()
2212 15.0/1771.0*s*t11+6.0/33649.0*t11*t4)*(t16*t+30.0/11.0*t18*t16+30.0/11.0*t15*t*  in Bn()
2299       t16 = t10*t10;  in Bn()
2300       t24 = t16*t16;  in Bn()
2302 323.0*t3*t2*t13+2205.0/323.0*t3*t*t16+882.0/323.0*t3*t16*t6+210.0/323.0*t8*t16*  in Bn()
2303 t10+360.0/4199.0*t2*t16*t13+45.0/8398.0*t*t24+5.0/46189.0*t24*t6);  in Bn()
2327       t16 = t13*t13;  in Bn()
2328       t18 = t16*t13;  in Bn()
2329       t20 = t16*t16;  in Bn()
2331 28.0/5.0*t10*t*t16+56.0/13.0*t10*t18+70.0/39.0*t9*t20+56.0/143.0*t8*t20*t13+  in Bn()
2332 28.0/715.0*t*t20*t16+8.0/6435.0*t20*t18);  in Bn()
2427       t16 = t10*t10;  in Bn()
2428       t24 = t16*t16;  in Bn()
2430 t2*t13+84.0/19.0*t3*s*t16+504.0/323.0*t3*t16*t6+105.0/323.0*t8*t16*t10+12.0/  in Bn()
2431 323.0*t2*t16*t13+9.0/4522.0*s*t24+t24*t6/29393);  in Bn()
2442       t16 = t11*t11;  in Bn()
2443       t24 = t16*t16;  in Bn()
2445 t11+588.0/85.0*t4*t*t14+63.0/17.0*t4*t16+252.0/221.0*t6*t16*t8+42.0/221.0*t3*  in Bn()
2446 t16*t11+36.0/2431.0*t*t16*t14+9.0/24310.0*t24);  in Bn()
2497       t16 = t15*t15;  in Bn()
2502 40.0/969.0*s*t8*t6+5.0/3876.0*t12)*(t16+20.0/9.0*t15*t*t18+5.0/3.0*t15*t20+10.0  in Bn()
2555       t16 = t11*t11;  in Bn()
2556       t24 = t16*t16;  in Bn()
2558 t11+1568.0/323.0*t4*s*t14+735.0/323.0*t4*t16+196.0/323.0*t6*t16*t8+28.0/323.0*  in Bn()
2559 t3*t16*t11+24.0/4199.0*s*t16*t14+t24/8398);  in Bn()
2569       t16 = t12*t12;  in Bn()
2571 28.0/5.0*t6*t*t12+56.0/13.0*t6*t14+70.0/39.0*t5*t16+56.0/143.0*t4*t16*t9+28.0/  in Bn()
2572 715.0*t*t16*t12+8.0/6435.0*t16*t14);  in Bn()
2593       t16 = t13*t13;  in Bn()
2594       t20 = t16*t16;  in Bn()
2596 136.0*t7)*(t11*t+30.0/11.0*t11*t13+30.0/11.0*t10*t*t16+40.0/33.0*t10*t16*t13+  in Bn()
2606       t16 = s+r-1.0;  in Bn()
2607       t18 = t16*t16;  in Bn()
2610 68.0*s*t8+t8*t6/170)*(t14+20.0/9.0*t13*t*t16+5.0/3.0*t13*t18+10.0/21.0*t*t18*  in Bn()
2611 t16+5.0/126.0*t22);  in Bn()
2620       t16 = t*t;  in Bn()
2624 /34.0*t4*t9+s*t9*t7/17+t13/476)*(t16*t+12.0/7.0*t18*t16+6.0/7.0*t*t20+4.0/35.0*  in Bn()
2660       t16 = t12*t12;  in Bn()
2662 147.0/34.0*t6*s*t12+49.0/17.0*t6*t14+35.0/34.0*t5*t16+42.0/221.0*t4*t16*t9+7.0/  in Bn()
2663 442.0*s*t16*t12+t16*t14/2431);  in Bn()
2672       t16 = t11*t11;  in Bn()
2674 *t9+105.0/26.0*t6*t11+350.0/143.0*t5*t*t11*t9+105.0/143.0*t5*t16+14.0/143.0*t*  in Bn()
2675 t16*t9+7.0/1716.0*t16*t11);  in Bn()
2698       t16 = t14*t14;  in Bn()
2699       t20 = t16*t16;  in Bn()
2701 /35)*(t12+20.0/9.0*t11*t*t14+5.0/3.0*t16*t11+10.0/21.0*t*t16*t14+5.0/126.0*t20)  in Bn()
2711       t16 = s+r-1.0;  in Bn()
2712       t18 = t16*t16;  in Bn()
2714 6.0/35.0*s*t9+4.0/455.0*t9*t7)*(t14*t+12.0/7.0*t16*t14+6.0/7.0*t*t18+4.0/35.0*  in Bn()
2715 t18*t16);  in Bn()
2750       t16 = t11*t11;  in Bn()
2752 t9+3.0*t6*t11+20.0/13.0*t5*s*t11*t9+5.0/13.0*t5*t16+6.0/143.0*s*t16*t9+t16*t11  in Bn()
2762       t16 = t12*t12;  in Bn()
2764 30.0/11.0*t7*t9+30.0/11.0*t6*t*t12+40.0/33.0*t6*t12*t9+5.0/22.0*t*t16+t16*t9/77  in Bn()
2787       t16 = t14*t14;  in Bn()
2789 /13.0*s*t7+t9/26)*(t12*t+12.0/7.0*t12*t14+6.0/7.0*t*t16+4.0/35.0*t16*t14);  in Bn()
2798       t16 = s+r-1.0;  in Bn()
2799       t18 = t16*t16;  in Bn()
2801 12.0/13.0*t6*t8+3.0/13.0*s*t10+2.0/143.0*t10*t8)*(t15+6.0/5.0*t*t16+3.0/10.0*  in Bn()
2823       t16 = t12*t12;  in Bn()
2825 30.0/13.0*t7*t9+25.0/13.0*t6*s*t12+100.0/143.0*t6*t12*t9+15.0/143.0*s*t16+2.0/  in Bn()
2826 429.0*t16*t9);  in Bn()
2835       t16 = t12*t12;  in Bn()
2838 5.0/126.0*t16);  in Bn()
2858       t16 = t14*t14;  in Bn()
2861 10.0*t16);  in Bn()
2880       t16 = t12*t12;  in Bn()
2883 t10+t16/66);  in Bn()
3012       t16 = t9*t9;  in Bn()
3013       t25 = t16*t16;  in Bn()
3015 220.0/19.0*t3*t2*t16+1848.0/323.0*t3*t*t16*t7+1155.0/646.0*t3*t16*t9+110.0/  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()
3079       t16 = t15*t15;  in Bn()
3084 *t4/8855)*(t16*t15+42.0/13.0*t16*t*t19+105.0/26.0*t16*t21+350.0/143.0*t15*t*t21  in Bn()
3192       t16 = t9*t9;  in Bn()
3193       t25 = t16*t16;  in Bn()
3195 220.0/19.0*t3*t2*t16+1848.0/323.0*t3*t*t16*t7+1155.0/646.0*t3*t16*t9+110.0/  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()
3224       t16 = t13*t13;  in Bn()
3225       t19 = t16*t13;  in Bn()
3226       t21 = t16*t16;  in Bn()
3229 t13+126.0/17.0*t9*t8*t16+588.0/85.0*t9*t*t19+63.0/17.0*t9*t21+252.0/221.0*t11*  in Bn()
3230 t21*t13+42.0/221.0*t8*t21*t16+36.0/2431.0*t*t21*t19+9.0/24310.0*t29);  in Bn()
3239       t16 = s+r-1.0;  in Bn()
3240       t19 = t16*t16;  in Bn()
3241       t21 = t19*t16;  in Bn()
3244 )*(t12*t13+56.0/15.0*t11*t16*t13+28.0/5.0*t13*t*t19+56.0/13.0*t21*t13+70.0/39.0  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()
3332       t16 = t10*t10;  in Bn()
3333       t24 = t16*t16;  in Bn()
3335 253.0*t3*t2*t13+756.0/253.0*t3*s*t16+4536.0/4807.0*t3*t16*t6+840.0/4807.0*t8*  in Bn()
3336 t16*t10+1440.0/81719.0*t2*t16*t13+135.0/163438.0*s*t24+t24*t6/81719)*(t+2.0/3.0  in Bn()
3347       t16 = t9*t9;  in Bn()
3348       t25 = t16*t16;  in Bn()
3350 180.0/23.0*t3*t2*t16+1512.0/437.0*t3*s*t16*t7+420.0/437.0*t3*t16*t9+1200.0/  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()
3377       t16 = t13*t10;  in Bn()
3381 t8*t10+126.0/17.0*t6*t5*t13+588.0/85.0*t6*t*t16+63.0/17.0*t6*t18+252.0/221.0*t8  in Bn()
3382 *t18*t10+42.0/221.0*t5*t18*t13+36.0/2431.0*t*t18*t16+9.0/24310.0*t26);  in Bn()
3407       t16 = s+r-1.0;  in Bn()
3408       t18 = t16*t16;  in Bn()
3411 665.0*t5*t7)*(t12*t13+42.0/13.0*t13*t*t16+105.0/26.0*t18*t13+350.0/143.0*t12*t*  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()
3422       t16 = t15*t15;  in Bn()
3427 133.0*s*t6*t8+t12/1197)*(t16*t+30.0/11.0*t18*t16+30.0/11.0*t15*t*t21+40.0/33.0*  in Bn()
3485       t16 = t11*t11;  in Bn()
3486       t24 = t16*t16;  in Bn()
3488 336.0/95.0*t4*s*t14+28.0/19.0*t4*t16+112.0/323.0*t6*t16*t8+14.0/323.0*t3*t16*  in Bn()
3489 t11+4.0/1615.0*s*t16*t14+t24/22610)*(t+2.0/3.0*s+2.0/3.0*r-2.0/3.0);  in Bn()
3528       t16 = t14*t11;  in Bn()
3531 *t8+56.0/15.0*t8*t6*t11+28.0/5.0*t8*t*t14+56.0/13.0*t16*t8+70.0/39.0*t7*t18+  in Bn()
3532 56.0/143.0*t6*t18*t11+28.0/715.0*t*t18*t14+8.0/6435.0*t18*t16);  in Bn()
3542       t16 = t14*t14;  in Bn()
3543       t21 = t16*t16;  in Bn()
3545 t10*t11+42.0/13.0*t11*t*t14+105.0/26.0*t16*t11+350.0/143.0*t10*t*t16*t14+105.0/  in Bn()
3546 143.0*t10*t21+14.0/143.0*t*t21*t14+7.0/1716.0*t21*t16);  in Bn()
3555       t16 = s+r-1.0;  in Bn()
3556       t19 = t16*t16;  in Bn()
3559 19.0*s*t8+4.0/969.0*t8*t6)*(t14*t+30.0/11.0*t16*t14+30.0/11.0*t13*t*t19+40.0/  in Bn()
3560 33.0*t13*t19*t16+5.0/22.0*t*t23+t23*t16/77);  in Bn()
3569       t16 = t*t;  in Bn()
3570       t17 = t16*t16;  in Bn()
3575 57.0*t4*t9+40.0/969.0*s*t9*t7+5.0/3876.0*t13)*(t17+20.0/9.0*t16*t*t19+5.0/3.0*  in Bn()
3576 t21*t16+10.0/21.0*t*t21*t19+5.0/126.0*t25);  in Bn()
3614       t16 = t12*t12;  in Bn()
3616 196.0/57.0*t6*s*t12+1960.0/969.0*t6*t14+1225.0/1938.0*t5*t16+98.0/969.0*t4*t16*  in Bn()
3617 t9+7.0/969.0*s*t16*t12+2.0/12597.0*t16*t14)*(t+2.0/3.0*s+2.0/3.0*r-2.0/3.0);  in Bn()
3727       t16 = t11*t11;  in Bn()
3729 42.0/17.0*t6*s*t9+315.0/136.0*t6*t11+35.0/34.0*t5*s*t11*t9+15.0/68.0*t5*t16+9.0  in Bn()
3730 /442.0*s*t16*t9+t16*t11/1768)*(t+2.0/3.0*s+2.0/3.0*r-2.0/3.0);  in Bn()
3820       t16 = t12*t12;  in Bn()
3822 t7*s+2.0*t7*t9+10.0/7.0*t6*s*t12+40.0/91.0*t6*t12*t9+5.0/91.0*s*t16+2.0/1001.0*  in Bn()
3823 t16*t9)*(t+2.0/3.0*s+2.0/3.0*r-2.0/3.0);  in Bn()
3880       t16 = t*t;  in Bn()
3885 t16+6.0/5.0*t*t17+3.0/10.0*t19);  in Bn()
3894       t16 = t12*t12;  in Bn()
3897 *t10+t16/143)*(t+2.0/3.0*s+2.0/3.0*r-2.0/3.0);  in Bn()