21    double t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t16,t17,t18;  in Bn()  local
402       t15 = t11*t11;  in Bn()
404 21.0*t*t11*t9+5.0/126.0*t15);  in Bn()
424       t15 = t13*t13;  in Bn()
426 6.0/5.0*t*t13+3.0/10.0*t15);  in Bn()
686       t15 = t*t;  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()
749       t15 = t13*t13;  in Bn()
751 t11*t+12.0/7.0*t13*t11+6.0/7.0*t*t15+4.0/35.0*t15*t13);  in Bn()
760       t15 = s+r-1.0;  in Bn()
761       t17 = t15*t15;  in Bn()
763 /273)*(t14+6.0/5.0*t*t15+3.0/10.0*t17);  in Bn()
821       t15 = t13*t13;  in Bn()
823 143.0*t7*t5)*(t12+6.0/5.0*t*t13+3.0/10.0*t15);  in Bn()
1017       t15 = t12*t12;  in Bn()
1018       t19 = t15*t15;  in Bn()
1020 11.0*t12*t10+30.0/11.0*t9*t*t15+40.0/33.0*t9*t15*t12+5.0/22.0*t*t19+t19*t12/77)  in Bn()
1031       t15 = s+r-1.0;  in Bn()
1032       t17 = t15*t15;  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()
1044       t15 = t*t;  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()
1107       t15 = t10*t10;  in Bn()
1109 /26.0*t5*t10+350.0/143.0*t4*t*t10*t8+105.0/143.0*t4*t15+14.0/143.0*t*t15*t8+7.0  in Bn()
1110 /1716.0*t15*t10);  in Bn()
1199       t15 = t11*t11;  in Bn()
1201 t8+30.0/11.0*t5*t*t11+40.0/33.0*t5*t11*t8+5.0/22.0*t*t15+t15*t8/77);  in Bn()
1234       t15 = t*t;  in Bn()
1238 s*t6*t8+t12/273)*(t15+6.0/5.0*t*t16+3.0/10.0*t18);  in Bn()
1276       t15 = t11*t11;  in Bn()
1278 20.0/9.0*t6*t*t9+5.0/3.0*t6*t11+10.0/21.0*t*t11*t9+5.0/126.0*t15);  in Bn()
1464       t15 = t9*t9;  in Bn()
1465       t23 = t15*t15;  in Bn()
1467 2205.0/323.0*t2*t*t15+882.0/323.0*t2*t15*t5+210.0/323.0*t7*t15*t9+360.0/4199.0*  in Bn()
1468 t1*t15*t12+45.0/8398.0*t*t23+5.0/46189.0*t23*t5;  in Bn()
1478       t15 = t10*t10;  in Bn()
1479       t23 = t15*t15;  in Bn()
1481 +588.0/85.0*t3*t*t13+63.0/17.0*t3*t15+252.0/221.0*t5*t15*t7+42.0/221.0*t2*t15*  in Bn()
1482 t10+36.0/2431.0*t*t15*t13+9.0/24310.0*t23);  in Bn()
1506       t15 = t13*t13;  in Bn()
1507       t20 = t15*t15;  in Bn()
1509 13.0*t10*t*t13+105.0/26.0*t15*t10+350.0/143.0*t9*t*t15*t13+105.0/143.0*t9*t20+  in Bn()
1510 14.0/143.0*t*t20*t13+7.0/1716.0*t20*t15);  in Bn()
1520       t15 = s+r-1.0;  in Bn()
1521       t18 = t15*t15;  in Bn()
1524 t13*t+30.0/11.0*t13*t15+30.0/11.0*t12*t*t18+40.0/33.0*t12*t18*t15+5.0/22.0*t*  in Bn()
1525 t22+t22*t15/77);  in Bn()
1533       t15 = t*t;  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()
1592       t15 = t9*t9;  in Bn()
1593       t23 = t15*t15;  in Bn()
1595 19.0*t2*s*t15+504.0/323.0*t2*t15*t5+105.0/323.0*t7*t15*t9+12.0/323.0*t1*t15*t12  in Bn()
1606       t15 = t10*t10;  in Bn()
1607       t23 = t15*t15;  in Bn()
1609 *t3*t*t13+63.0/17.0*t3*t15+252.0/221.0*t5*t15*t7+42.0/221.0*t2*t15*t10+36.0/  in Bn()
1610 2431.0*t*t13*t15+9.0/24310.0*t23);  in Bn()
1657       t15 = t14*t14;  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()
1711       t15 = t10*t10;  in Bn()
1712       t23 = t15*t15;  in Bn()
1714 323.0*t3*s*t13+735.0/323.0*t3*t15+196.0/323.0*t5*t15*t7+28.0/323.0*t2*t15*t10+  in Bn()
1715 24.0/4199.0*s*t15*t13+t23/8398);  in Bn()
1725       t15 = t11*t11;  in Bn()
1727 t11+56.0/13.0*t5*t13+70.0/39.0*t4*t15+56.0/143.0*t3*t15*t8+28.0/715.0*t*t15*t11  in Bn()
1728 +8.0/6435.0*t15*t13);  in Bn()
1749       t15 = t12*t12;  in Bn()
1750       t19 = t15*t15;  in Bn()
1752 30.0/11.0*t10*t12+30.0/11.0*t9*t*t15+40.0/33.0*t9*t15*t12+5.0/22.0*t*t19+t19*  in Bn()
1762       t15 = s+r-1.0;  in Bn()
1763       t17 = t15*t15;  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()
1776       t15 = t*t;  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()
1815       t15 = t11*t11;  in Bn()
1817 *t11+49.0/17.0*t5*t13+35.0/34.0*t4*t15+42.0/221.0*t3*t15*t8+7.0/442.0*s*t15*t11  in Bn()
1818 +t15*t13/2431);  in Bn()
1826       t15 = t10*t10;  in Bn()
1828 t8+105.0/26.0*t5*t10+350.0/143.0*t4*t*t10*t8+105.0/143.0*t4*t15+14.0/143.0*t*  in Bn()
1829 t15*t8+7.0/1716.0*t15*t10);  in Bn()
1850       t15 = t13*t13;  in Bn()
1851       t19 = t15*t15;  in Bn()
1853 *(t11+20.0/9.0*t10*t*t13+5.0/3.0*t15*t10+10.0/21.0*t*t15*t13+5.0/126.0*t19);  in Bn()
1861       t15 = s+r-1.0;  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()
1865 t15);  in Bn()
1897       t15 = t10*t10;  in Bn()
1899 +3.0*t5*t10+20.0/13.0*t4*s*t10*t8+5.0/13.0*t4*t15+6.0/143.0*s*t15*t8+t15*t10  in Bn()
1909       t15 = t11*t11;  in Bn()
1911 30.0/11.0*t6*t8+30.0/11.0*t5*t*t11+40.0/33.0*t5*t11*t8+5.0/22.0*t*t15+t15*t8/77  in Bn()
1934       t15 = t13*t13;  in Bn()
1936 13.0*s*t6+t8/26)*(t11*t+12.0/7.0*t11*t13+6.0/7.0*t*t15+4.0/35.0*t15*t13);  in Bn()
1945       t15 = s+r-1.0;  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()
1970       t15 = t11*t11;  in Bn()
1972 30.0/13.0*t6*t8+25.0/13.0*t5*s*t11+100.0/143.0*t5*t11*t8+15.0/143.0*s*t15+2.0/  in Bn()
1973 429.0*t15*t8);  in Bn()
1982       t15 = t11*t11;  in Bn()
1985 t15);  in Bn()
2005       t15 = t13*t13;  in Bn()
2007 -6.0/33649.0)*(t6+6.0/11.0*s*t7+3.0/55.0*t9)*(t12+6.0/5.0*t*t13+3.0/10.0*t15);  in Bn()
2026       t15 = t11*t11;  in Bn()
2028 -6.0/33649.0)*(t7+20.0/11.0*t6*s*t9+12.0/11.0*t6*t11+8.0/33.0*s*t11*t9+t15/66);  in Bn()
2132       t15 = t8*t8;  in Bn()
2133       t24 = t15*t15;  in Bn()
2135 220.0/19.0*t2*t1*t15+1848.0/323.0*t2*t*t15*t6+1155.0/646.0*t2*t15*t8+110.0/  in Bn()
2136 323.0*t10*t15*t12+165.0/4522.0*t1*t24+55.0/29393.0*t*t24*t6+11.0/352716.0*t24*  in Bn()
2206       t15 = t*t;  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()
2213 t21+40.0/33.0*t15*t21*t18+5.0/22.0*t*t25+t25*t18/77);  in Bn()
2270       t15 = t9*t9;  in Bn()
2271       t23 = t15*t15;  in Bn()
2273 756.0/253.0*t2*s*t15+4536.0/4807.0*t2*t15*t5+840.0/4807.0*t7*t15*t9+1440.0/  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()
2285       t15 = t8*t8;  in Bn()
2286       t24 = t15*t15;  in Bn()
2288 180.0/23.0*t2*t1*t15+1512.0/437.0*t2*s*t15*t6+420.0/437.0*t2*t15*t8+1200.0/  in Bn()
2289 7429.0*t10*t15*t12+225.0/14858.0*t1*t24+5.0/7429.0*s*t24*t6+t24*t8/104006;  in Bn()
2312       t15 = t12*t9;  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()
2340       t15 = s+r-1.0;  in Bn()
2341       t17 = t15*t15;  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()
2354       t15 = t14*t14;  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()
2413       t15 = t10*t10;  in Bn()
2414       t23 = t15*t15;  in Bn()
2416 *s*t13+28.0/19.0*t3*t15+112.0/323.0*t5*t15*t7+14.0/323.0*t2*t15*t10+4.0/1615.0*  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()
2455       t15 = t13*t10;  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()
2469       t15 = t13*t13;  in Bn()
2470       t20 = t15*t15;  in Bn()
2472 13.0*t10*t*t13+105.0/26.0*t15*t10+350.0/143.0*t9*t*t15*t13+105.0/143.0*t9*t20+  in Bn()
2473 14.0/143.0*t*t20*t13+7.0/1716.0*t20*t15);  in Bn()
2482       t15 = s+r-1.0;  in Bn()
2483       t18 = t15*t15;  in Bn()
2486 969.0*t7*t5)*(t13*t+30.0/11.0*t15*t13+30.0/11.0*t12*t*t18+40.0/33.0*t12*t18*t15  in Bn()
2487 +5.0/22.0*t*t22+t22*t15/77);  in Bn()
2496       t15 = t*t;  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()
2541       t15 = t11*t11;  in Bn()
2543 *t11+1960.0/969.0*t5*t13+1225.0/1938.0*t4*t15+98.0/969.0*t3*t15*t8+7.0/969.0*s*  in Bn()
2544 t15*t11+2.0/12597.0*t15*t13)*(t+2.0/3.0*s+2.0/3.0*r-2.0/3.0);  in Bn()
2647       t15 = t10*t10;  in Bn()
2649 315.0/136.0*t5*t10+35.0/34.0*t4*s*t10*t8+15.0/68.0*t4*t15+9.0/442.0*s*t15*t8+  in Bn()
2650 t15*t10/1768)*(t+2.0/3.0*s+2.0/3.0*r-2.0/3.0);  in Bn()
2738       t15 = t11*t11;  in Bn()
2740 7.0*t5*s*t11+40.0/91.0*t5*t11*t8+5.0/91.0*s*t15+2.0/1001.0*t15*t8)*(t+2.0/3.0*s  in Bn()
2797       t15 = t*t;  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()
2811       t15 = t11*t11;  in Bn()
2813 20.0/13.0*t6*s*t9+10.0/13.0*t6*t11+20.0/143.0*s*t11*t9+t15/143)*(t+2.0/3.0*s+  in Bn()
2997       t15 = t10*t10;  in Bn()
2998       t25 = t15*t15;  in Bn()
3000 2970.0/161.0*t3*t2*t15+4752.0/437.0*t3*t1*t15*t7+1848.0/437.0*t3*t*t15*t10+  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()
3078       t15 = t*t;  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()
3085 *t19+105.0/143.0*t15*t26+14.0/143.0*t*t26*t19+7.0/1716.0*t26*t21);  in Bn()
3144       t15 = t9*t9;  in Bn()
3145       t23 = t15*t15;  in Bn()
3150 /1265.0*t2*s*t15+756.0/1265.0*t2*t15*t5+126.0/1265.0*t7*t15*t9+216.0/24035.0*t1  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()
3162       t15 = t8*t8;  in Bn()
3163       t24 = t15*t15;  in Bn()
3165 23.0*t2*t1*t15+252.0/115.0*t2*s*t15*t6+63.0/115.0*t2*t15*t8+36.0/437.0*t10*t15*  in Bn()
3177       t15 = t10*t10;  in Bn()
3178       t25 = t15*t15;  in Bn()
3180 297.0/23.0*t3*t2*t15+792.0/115.0*t3*t1*t15*t7+1386.0/575.0*t3*s*t15*t10+1188.0/  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()
3207       t15 = t12*t8;  in Bn()
3211 19.0*t5*t10*t12+3360.0/323.0*t5*t4*t15+2205.0/323.0*t5*t*t18+882.0/323.0*t5*t18  in Bn()
3212 *t8+210.0/323.0*t10*t18*t12+360.0/4199.0*t4*t18*t15+45.0/8398.0*t*t26+5.0/  in Bn()
3254       t15 = t14*t14;  in Bn()
3259 t7*t5+t11/1771)*(t14*t15+42.0/13.0*t15*t*t18+105.0/26.0*t15*t20+350.0/143.0*t14  in Bn()
3315       t15 = t10*t10;  in Bn()
3316       t23 = t15*t15;  in Bn()
3321 253.0*t3*s*t13+252.0/253.0*t3*t15+1008.0/4807.0*t5*t15*t7+112.0/4807.0*t2*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()
3421       t15 = t*t;  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()
3428 t15*t21*t18+5.0/22.0*t*t25+t25*t18/77);  in Bn()
3468       t15 = t11*t11;  in Bn()
3473 28.0/19.0*t5*t13+70.0/171.0*t4*t15+56.0/969.0*t3*t15*t8+7.0/1938.0*s*t15*t11+  in Bn()
3474 t15*t13/14535)*(t24+6.0/5.0*t*t25+3.0/10.0*t27);  in Bn()
3514       t15 = t12*t9;  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()
3598       t15 = t10*t10;  in Bn()
3603 35.0/19.0*t5*t10+700.0/969.0*t4*s*t10*t8+175.0/1292.0*t4*t15+7.0/646.0*s*t15*t8  in Bn()
3604 +t15*t10/3876)*(t22+6.0/5.0*t*t23+3.0/10.0*t25);  in Bn()
3627       t15 = t12*t9;  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()
3642       t15 = t13*t10;  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()
3682       t15 = t14*t14;  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()
3712       t15 = t11*t11;  in Bn()
3717 /17.0*t6*t8+75.0/68.0*t5*s*t11+5.0/17.0*t5*t11*t8+15.0/476.0*s*t15+3.0/3094.0*  in Bn()
3718 t15*t8)*(t20+6.0/5.0*t*t21+3.0/10.0*t23);  in Bn()
3740       t15 = t13*t10;  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()
3778       t15 = s+r-1.0;  in Bn()
3779       t17 = t15*t15;  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()
3783 t15+5.0/126.0*t21);  in Bn()
3791       t15 = t*t;  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()
3805       t15 = t11*t11;  in Bn()
3810 t7+4.0/3.0*t6*s*t9+4.0/7.0*t6*t11+8.0/91.0*s*t11*t9+t15/273)*(t18+6.0/5.0*t*t19  in Bn()
3868       t15 = s+r-1.0;  in Bn()
3869       t17 = t15*t15;  in Bn()
3871 4485.0*r+7.0/296010.0)*(t7+6.0/13.0*s*t8+t10/26)*(t13*t+12.0/7.0*t13*t15+6.0/  in Bn()
3872 7.0*t*t17+4.0/35.0*t17*t15);  in Bn()
3943       t15 = s+r-1.0;  in Bn()
3944       t17 = t15*t15;  in Bn()
3947 t11)*(t14+6.0/5.0*t*t15+3.0/10.0*t17);  in Bn()