21    double t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t16,t17,t18;  in Bn()  local
739       t17 = t13*t13;  in Bn()
741 t13*t8+10.0/21.0*t*t13*t11+5.0/126.0*t17);  in Bn()
761       t17 = t15*t15;  in Bn()
763 /273)*(t14+6.0/5.0*t*t15+3.0/10.0*t17);  in Bn()
1005       t17 = t12*t12;  in Bn()
1007 t12+350.0/143.0*t6*t*t12*t10+105.0/143.0*t6*t17+14.0/143.0*t*t17*t10+7.0/1716.0  in Bn()
1008 *t17*t12);  in Bn()
1032       t17 = t15*t15;  in Bn()
1033       t21 = t17*t17;  in Bn()
1035 *t10)*(t13+20.0/9.0*t12*t*t15+5.0/3.0*t17*t12+10.0/21.0*t*t17*t15+5.0/126.0*t21  in Bn()
1045       t17 = s+r-1.0;  in Bn()
1046       t19 = t17*t17;  in Bn()
1048 1292.0*s*t11+t11*t4/1938)*(t15*t+12.0/7.0*t17*t15+6.0/7.0*t*t19+4.0/35.0*t19*  in Bn()
1049 t17);  in Bn()
1154       t17 = t*t;  in Bn()
1158 *t5+15.0/476.0*s*t12+3.0/3094.0*t12*t5)*(t17+6.0/5.0*t*t18+3.0/10.0*t20);  in Bn()
1644       t17 = t14*t14;  in Bn()
1645       t21 = t17*t17;  in Bn()
1647 t12*t+30.0/11.0*t14*t12+30.0/11.0*t11*t*t17+40.0/33.0*t11*t17*t14+5.0/22.0*t*  in Bn()
1658       t17 = s+r-1.0;  in Bn()
1659       t19 = t17*t17;  in Bn()
1662 t5+5.0/3876.0*t11)*(t15+20.0/9.0*t14*t*t17+5.0/3.0*t19*t14+10.0/21.0*t*t19*t17+  in Bn()
1671       t17 = t*t;  in Bn()
1675 *t8*t5+25.0/1292.0*s*t12+t12*t5/1938)*(t17*t+12.0/7.0*t19*t17+6.0/7.0*t*t21+4.0  in Bn()
1763       t17 = t15*t15;  in Bn()
1764       t21 = t17*t17;  in Bn()
1766 /170)*(t13+20.0/9.0*t12*t*t15+5.0/3.0*t12*t17+10.0/21.0*t*t17*t15+5.0/126.0*t21  in Bn()
1777       t17 = s+r-1.0;  in Bn()
1778       t19 = t17*t17;  in Bn()
1780 t8*t6/17+t12/476)*(t15*t+12.0/7.0*t17*t15+6.0/7.0*t*t19+4.0/35.0*t19*t17);  in Bn()
1862       t17 = t15*t15;  in Bn()
1864 /35.0*s*t8+4.0/455.0*t8*t6)*(t13*t+12.0/7.0*t15*t13+6.0/7.0*t*t17+4.0/35.0*t17*  in Bn()
1875       t17 = s+r-1.0;  in Bn()
1876       t19 = t17*t17;  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()
1946       t17 = t15*t15;  in Bn()
1948 12.0/13.0*t5*t7+3.0/13.0*s*t9+2.0/143.0*t9*t7)*(t14+6.0/5.0*t*t15+3.0/10.0*t17)  in Bn()
2163       t17 = t14*t11;  in Bn()
2167 t7*t6*t14+588.0/85.0*t7*t*t17+63.0/17.0*t7*t19+252.0/221.0*t9*t19*t11+42.0/  in Bn()
2168 221.0*t6*t19*t14+36.0/2431.0*t*t19*t17+9.0/24310.0*t27);  in Bn()
2178       t17 = t14*t14;  in Bn()
2179       t19 = t17*t14;  in Bn()
2180       t21 = t17*t17;  in Bn()
2182 56.0/15.0*t11*t9*t14+28.0/5.0*t11*t*t17+56.0/13.0*t19*t11+70.0/39.0*t10*t21+  in Bn()
2183 56.0/143.0*t9*t21*t14+28.0/715.0*t*t21*t17+8.0/6435.0*t21*t19);  in Bn()
2313       t17 = t12*t12;  in Bn()
2314       t25 = t17*t17;  in Bn()
2316 17.0*t5*t4*t12+588.0/85.0*t5*t*t15+63.0/17.0*t5*t17+252.0/221.0*t7*t17*t9+42.0/  in Bn()
2317 221.0*t4*t17*t12+36.0/2431.0*t*t17*t15+9.0/24310.0*t25);  in Bn()
2341       t17 = t15*t15;  in Bn()
2342       t22 = t17*t17;  in Bn()
2344 t11*t12+42.0/13.0*t12*t*t15+105.0/26.0*t17*t12+350.0/143.0*t11*t*t17*t15+105.0/  in Bn()
2345 143.0*t11*t22+14.0/143.0*t*t22*t15+7.0/1716.0*t22*t17);  in Bn()
2355       t17 = s+r-1.0;  in Bn()
2356       t20 = t17*t17;  in Bn()
2359 t11/1197)*(t15*t+30.0/11.0*t17*t15+30.0/11.0*t14*t*t20+40.0/33.0*t14*t20*t17+  in Bn()
2360 5.0/22.0*t*t24+t24*t17/77);  in Bn()
2368       t17 = t*t;  in Bn()
2369       t18 = t17*t17;  in Bn()
2374 t5+5.0/399.0*s*t12+2.0/6783.0*t12*t5)*(t18+20.0/9.0*t17*t*t20+5.0/3.0*t22*t17+  in Bn()
2456       t17 = t13*t13;  in Bn()
2458 t7*t5*t10+28.0/5.0*t7*t*t13+56.0/13.0*t15*t7+70.0/39.0*t6*t17+56.0/143.0*t5*t17  in Bn()
2459 *t10+28.0/715.0*t*t17*t13+8.0/6435.0*t17*t15);  in Bn()
2580       t17 = t12*t12;  in Bn()
2583 *t6*t17+14.0/143.0*t*t17*t10+7.0/1716.0*t17*t12);  in Bn()
2684       t17 = t13*t13;  in Bn()
2687 *t17+t17*t10/77);  in Bn()
2725       t17 = t*t;  in Bn()
2729 4.0/7.0*t5*t10+8.0/91.0*s*t8*t10+t14/273)*(t17+6.0/5.0*t*t18+3.0/10.0*t20);  in Bn()
2774       t17 = t13*t13;  in Bn()
2777 5.0/126.0*t17);  in Bn()
3030       t17 = t14*t10;  in Bn()
3034 t14+3360.0/323.0*t7*t6*t17+2205.0/323.0*t7*t*t20+882.0/323.0*t7*t20*t10+210.0/  in Bn()
3035 323.0*t12*t20*t14+360.0/4199.0*t6*t20*t17+45.0/8398.0*t*t28+5.0/46189.0*t28*t10  in Bn()
3047       t17 = t14*t14;  in Bn()
3048       t20 = t17*t14;  in Bn()
3049       t22 = t17*t17;  in Bn()
3052 t12*t14+126.0/17.0*t10*t9*t17+588.0/85.0*t10*t*t20+63.0/17.0*t10*t22+252.0/  in Bn()
3053 221.0*t12*t22*t14+42.0/221.0*t9*t22*t17+36.0/2431.0*t*t22*t20+9.0/24310.0*t30);  in Bn()
3064       t17 = s+r-1.0;  in Bn()
3065       t20 = t17*t17;  in Bn()
3066       t22 = t20*t17;  in Bn()
3069 56.0/15.0*t14*t12*t17+28.0/5.0*t14*t*t20+56.0/13.0*t22*t14+70.0/39.0*t13*t24+  in Bn()
3070 56.0/143.0*t12*t24*t17+28.0/715.0*t*t24*t20+8.0/6435.0*t24*t22);  in Bn()
3268       t17 = t*t;  in Bn()
3269       t18 = t17*t17;  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()
3363       t17 = t11*t11;  in Bn()
3364       t25 = t17*t17;  in Bn()
3366 +3360.0/323.0*t4*t3*t14+2205.0/323.0*t4*t*t17+882.0/323.0*t4*t17*t7+210.0/323.0  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()
3393       t17 = t14*t14;  in Bn()
3394       t19 = t17*t14;  in Bn()
3395       t21 = t17*t17;  in Bn()
3397 *t11*t9*t14+28.0/5.0*t11*t*t17+56.0/13.0*t11*t19+70.0/39.0*t10*t21+56.0/143.0*  in Bn()
3398 t9*t21*t14+28.0/715.0*t*t21*t17+8.0/6435.0*t21*t19);  in Bn()
3500       t17 = t11*t11;  in Bn()
3501       t25 = t17*t17;  in Bn()
3503 144.0/19.0*t4*t3*t14+84.0/19.0*t4*s*t17+504.0/323.0*t4*t17*t7+105.0/323.0*t9*  in Bn()
3504 t17*t11+12.0/323.0*t3*t17*t14+9.0/4522.0*s*t25+t25*t7/29393);  in Bn()
3515       t17 = t12*t12;  in Bn()
3516       t25 = t17*t17;  in Bn()
3518 126.0/17.0*t5*t4*t12+588.0/85.0*t5*t*t15+63.0/17.0*t5*t17+252.0/221.0*t7*t17*t9  in Bn()
3519 +42.0/221.0*t4*t17*t12+36.0/2431.0*t*t17*t15+9.0/24310.0*t25);  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()
3628       t17 = t12*t12;  in Bn()
3629       t25 = t17*t17;  in Bn()
3631 112.0/19.0*t5*t4*t12+1568.0/323.0*t5*s*t15+735.0/323.0*t5*t17+196.0/323.0*t7*  in Bn()
3632 t17*t9+28.0/323.0*t4*t17*t12+24.0/4199.0*s*t17*t15+t25/8398);  in Bn()
3643       t17 = t13*t13;  in Bn()
3645 56.0/15.0*t5*t7*t10+28.0/5.0*t7*t*t13+56.0/13.0*t7*t15+70.0/39.0*t6*t17+56.0/  in Bn()
3646 143.0*t5*t17*t10+28.0/715.0*t*t17*t13+8.0/6435.0*t17*t15);  in Bn()
3669       t17 = t14*t14;  in Bn()
3670       t21 = t17*t17;  in Bn()
3672 17.0*s*t6+3.0/136.0*t8)*(t12*t+30.0/11.0*t12*t14+30.0/11.0*t11*t*t17+40.0/33.0*  in Bn()
3673 t11*t17*t14+5.0/22.0*t*t21+t21*t14/77);  in Bn()
3683       t17 = s+r-1.0;  in Bn()
3684       t19 = t17*t17;  in Bn()
3687 /17.0*t5*t7+9.0/68.0*s*t9+t9*t7/170)*(t15+20.0/9.0*t14*t*t17+5.0/3.0*t14*t19+  in Bn()
3688 10.0/21.0*t*t19*t17+5.0/126.0*t23);  in Bn()
3698       t17 = t*t;  in Bn()
3702 17.0*t8*t5*s+15.0/34.0*t5*t10+s*t10*t8/17+t14/476)*(t17*t+12.0/7.0*t19*t17+6.0/  in Bn()
3741       t17 = t13*t13;  in Bn()
3743 56.0/17.0*t7*t5*t10+147.0/34.0*t7*s*t13+49.0/17.0*t7*t15+35.0/34.0*t6*t17+42.0/  in Bn()
3744 221.0*t5*t17*t10+7.0/442.0*s*t17*t13+t17*t15/2431);  in Bn()
3753       t17 = t12*t12;  in Bn()
3756 *t6*t17+14.0/143.0*t*t17*t10+7.0/1716.0*t17*t12);  in Bn()
3779       t17 = t15*t15;  in Bn()
3780       t21 = t17*t17;  in Bn()
3782 t6+2.0/5.0*s*t7+t9/35)*(t13+20.0/9.0*t12*t*t15+5.0/3.0*t17*t12+10.0/21.0*t*t17*  in Bn()
3792       t17 = s+r-1.0;  in Bn()
3793       t19 = t17*t17;  in Bn()
3795 s*t6+4.0/5.0*t6*t8+6.0/35.0*s*t10+4.0/455.0*t10*t8)*(t15*t+12.0/7.0*t17*t15+6.0  in Bn()
3796 /7.0*t*t19+4.0/35.0*t19*t17);  in Bn()
3832       t17 = t12*t12;  in Bn()
3834 t7*t6+14.0/5.0*t7*s*t10+3.0*t7*t12+20.0/13.0*t6*s*t12*t10+5.0/13.0*t6*t17+6.0/  in Bn()
3835 143.0*s*t17*t10+t17*t12/715);  in Bn()
3844       t17 = t13*t13;  in Bn()
3847 t13*t10+5.0/22.0*t*t17+t17*t10/77);  in Bn()
3869       t17 = t15*t15;  in Bn()
3872 7.0*t*t17+4.0/35.0*t17*t15);  in Bn()
3881       t17 = s+r-1.0;  in Bn()
3882       t19 = t17*t17;  in Bn()
3885 t16+6.0/5.0*t*t17+3.0/10.0*t19);  in Bn()
3906       t17 = t13*t13;  in Bn()
3909 *t13*t10+15.0/143.0*s*t17+2.0/429.0*t17*t10);  in Bn()
3919       t17 = t13*t13;  in Bn()
3922 *t8*t13+10.0/21.0*t*t13*t11+5.0/126.0*t17);  in Bn()
3944       t17 = t15*t15;  in Bn()
3947 t11)*(t14+6.0/5.0*t*t15+3.0/10.0*t17);  in Bn()
3968       t17 = t13*t13;  in Bn()
3971 11.0*t8*t13+8.0/33.0*s*t13*t11+t17/66);  in Bn()