Index: docs/HB5_Expt/ATLAS_1807.04873/exp.dat =================================================================== --- docs/HB5_Expt/ATLAS_1807.04873/exp.dat (revision 0) +++ docs/HB5_Expt/ATLAS_1807.04873/exp.dat (revision 586) @@ -0,0 +1,26 @@ +260.0 0.8378335949764524 +269.25550923168555 0.888697017268446 +280.7147111375819 0.8971742543171116 +289.52948183442527 0.8943485086342231 +309.803454437165 0.8138147566718996 +330.0774270399047 0.7318681318681319 +340.65515187611675 0.7021978021978024 +349.9106611078023 0.6908948194662481 +360.0476474091721 0.6640502354788071 +379.8808814770697 0.6032967032967034 +390.01786777843955 0.5764521193092622 +400.1548540798094 0.5609105180533753 +409.8511018463371 0.5298273155416013 +439.82132221560454 0.4747252747252748 +470.6730196545563 0.41538461538461546 +479.0470518165575 0.3984301412872844 +490.50625372245383 0.38006279434850887 +500.2025014889815 0.41397174254317126 +560.1429422275164 0.2868131868131869 +599.8094103633115 0.26420722135007857 +660.1905896366885 0.21193092621664067 +700.2977963073258 0.19638932496075356 +760.6789755807029 0.1850863422291995 +840.8933889219775 0.17095761381475683 +920.2263251935676 0.16106750392464697 +1000.4407385348422 0.15400313971742552 Index: docs/HB5_Expt/ATLAS_1807.04873/obs_interpol.dat =================================================================== --- docs/HB5_Expt/ATLAS_1807.04873/obs_interpol.dat (revision 0) +++ docs/HB5_Expt/ATLAS_1807.04873/obs_interpol.dat (revision 586) @@ -0,0 +1,75 @@ + 260.00 1.143014 + 270.00 0.7841444 + 280.00 0.7516484 + 290.00 0.9989011 + 300.00 0.9720565 + 310.00 0.8576138 + 320.00 0.4930926 + 330.00 0.4351648 + 340.00 0.4634223 + 350.00 0.5058085 + 360.00 0.4930926 + 370.00 0.4973312 + 380.00 0.4973312 + 390.00 0.6018838 + 400.00 0.6626374 + 410.00 0.6626374 + 420.00 0.6230769 + 430.00 0.6273155 + 440.00 0.5693878 + 450.00 0.4648352 + 460.00 0.4718995 + 470.00 0.5609105 + 480.00 0.6075353 + 490.00 0.6089482 + 500.00 0.4450549 + 510.00 0.4083203 + 520.00 0.3715856 + 530.00 0.3178964 + 540.00 0.2642072 + 550.00 0.2606750 + 560.00 0.2571429 + 570.00 0.2564364 + 580.00 0.2557300 + 590.00 0.2416013 + 600.00 0.2274725 + 610.00 0.2295918 + 620.00 0.2317111 + 630.00 0.2197017 + 640.00 0.2076923 + 650.00 0.2020408 + 660.00 0.1963893 + 670.00 0.2069859 + 680.00 0.2175824 + 690.00 0.2062794 + 700.00 0.1949765 + 710.00 0.2041601 + 720.00 0.2133438 + 730.00 0.2041601 + 740.00 0.1949765 + 750.00 0.1843799 + 760.00 0.1737834 + 770.00 0.1660126 + 780.00 0.1582418 + 790.00 0.1617739 + 800.00 0.1653061 + 810.00 0.1723705 + 820.00 0.1794349 + 830.00 0.1822606 + 840.00 0.1850863 + 850.00 0.1801413 + 860.00 0.1751962 + 870.00 0.1794349 + 880.00 0.1836735 + 890.00 0.1857928 + 900.00 0.1879121 + 910.00 0.1872057 + 920.00 0.1864992 + 930.00 0.1801413 + 940.00 0.1737834 + 950.00 0.1624804 + 960.00 0.1511774 + 970.00 0.1419937 + 980.00 0.1328100 + 990.00 0.1278650 + 1000.00 0.1229199 Index: docs/HB5_Expt/ATLAS_1807.04873/obs.dat =================================================================== --- docs/HB5_Expt/ATLAS_1807.04873/obs.dat (revision 0) +++ docs/HB5_Expt/ATLAS_1807.04873/obs.dat (revision 586) @@ -0,0 +1,50 @@ +260.0 1.1430141287284146 +269.6962477665277 0.78414442700157 +279.8332340678976 0.7516483516483519 +289.52948183442527 0.998901098901099 +299.6664681357951 0.972056514913658 +309.3627159023228 0.8576138147566721 +319.94044073853485 0.4930926216640503 +329.6366885050626 0.4351648351648354 +339.33293627159026 0.46342229199372076 +349.9106611078023 0.5058084772370488 +359.60690887433 0.4930926216640503 +369.74389517569983 0.49733124018838315 +379.4401429422275 0.49733124018838315 +389.57712924359737 0.6018838304552592 +400.1548540798094 0.6626373626373627 +410.29184038117927 0.6626373626373627 +419.98808814770695 0.6230769230769233 +429.6843359142347 0.6273155416012561 +440.2620607504467 0.569387755102041 +449.9583085169744 0.46483516483516496 +459.6545562835021 0.4718995290423864 +470.2322811197141 0.5609105180533753 +479.0470518165575 0.6075353218210362 +489.6247766527695 0.6089481946624806 +500.2025014889815 0.44505494505494525 +520.0357355568791 0.3715855572998432 +539.8689696247766 0.26420722135007857 +559.7022036926742 0.25714285714285734 +579.5354377605718 0.2557299843014129 +599.8094103633115 0.22747252747252755 +620.5241215008934 0.23171114599686038 +639.4758784991066 0.20769230769230784 +660.1905896366885 0.19638932496075356 +680.023823704586 0.2175824175824177 +700.2977963073258 0.19497645211930936 +720.1310303752234 0.21334379905808487 +739.964264443121 0.19497645211930936 +760.6789755807029 0.17378335949764523 +780.0714711137582 0.15824175824175835 +799.9047051816558 0.1653061224489798 +820.1786777843954 0.17943485086342248 +840.011911852293 0.1850863422291995 +860.7266229898748 0.17519623233908965 +880.1191185229304 0.1836734693877553 +900.8338296605123 0.18791208791208813 +920.6670637284099 0.1864992150706437 +940.9410363311495 0.17378335949764523 +959.8927933293628 0.15117739403453712 +979.7260273972602 0.1328100470957616 +1000.4407385348422 0.12291993720565153 Index: docs/HB5_Expt/ATLAS_1807.04873/fig_07.png =================================================================== Cannot display: file marked as a binary type. svn:mime-type = application/octet-stream Index: docs/HB5_Expt/ATLAS_1807.04873/fig_07.png =================================================================== --- docs/HB5_Expt/ATLAS_1807.04873/fig_07.png (revision 585) +++ docs/HB5_Expt/ATLAS_1807.04873/fig_07.png (revision 586) Property changes on: docs/HB5_Expt/ATLAS_1807.04873/fig_07.png ___________________________________________________________________ Added: svn:mime-type ## -0,0 +1 ## +application/octet-stream \ No newline at end of property Index: docs/HB5_Expt/ATLAS_1807.04873/exp_interpol.dat =================================================================== --- docs/HB5_Expt/ATLAS_1807.04873/exp_interpol.dat (revision 0) +++ docs/HB5_Expt/ATLAS_1807.04873/exp_interpol.dat (revision 586) @@ -0,0 +1,75 @@ + 260.00 0.8378336 + 270.00 0.8886970 + 280.00 0.8971743 + 290.00 0.8943485 + 300.00 0.8540816 + 310.00 0.8138148 + 320.00 0.7728414 + 330.00 0.7318681 + 340.00 0.7021978 + 350.00 0.6908948 + 360.00 0.6640502 + 370.00 0.6336735 + 380.00 0.6032967 + 390.00 0.5764521 + 400.00 0.5609105 + 410.00 0.5298273 + 420.00 0.5114600 + 430.00 0.4930926 + 440.00 0.4747253 + 450.00 0.4549451 + 460.00 0.4351648 + 470.00 0.4153846 + 480.00 0.3984301 + 490.00 0.3800628 + 500.00 0.4139717 + 510.00 0.3927786 + 520.00 0.3715856 + 530.00 0.3503925 + 540.00 0.3291994 + 550.00 0.3080063 + 560.00 0.2868132 + 570.00 0.2811617 + 580.00 0.2755102 + 590.00 0.2698587 + 600.00 0.2642072 + 610.00 0.2554945 + 620.00 0.2467818 + 630.00 0.2380691 + 640.00 0.2293564 + 650.00 0.2206436 + 660.00 0.2119309 + 670.00 0.2080455 + 680.00 0.2041601 + 690.00 0.2002747 + 700.00 0.1963893 + 710.00 0.1945055 + 720.00 0.1926217 + 730.00 0.1907378 + 740.00 0.1888540 + 750.00 0.1869702 + 760.00 0.1850863 + 770.00 0.1833203 + 780.00 0.1815542 + 790.00 0.1797881 + 800.00 0.1780220 + 810.00 0.1762559 + 820.00 0.1744898 + 830.00 0.1727237 + 840.00 0.1709576 + 850.00 0.1697214 + 860.00 0.1684851 + 870.00 0.1672488 + 880.00 0.1660126 + 890.00 0.1647763 + 900.00 0.1635400 + 910.00 0.1623038 + 920.00 0.1610675 + 930.00 0.1601845 + 940.00 0.1593014 + 950.00 0.1584184 + 960.00 0.1575353 + 970.00 0.1566523 + 980.00 0.1557692 + 990.00 0.1548862 + 1000.00 0.1540031 Index: docs/HB5_Expt/ATLAS_1807.04873/data.dat =================================================================== --- docs/HB5_Expt/ATLAS_1807.04873/data.dat (revision 0) +++ docs/HB5_Expt/ATLAS_1807.04873/data.dat (revision 586) @@ -0,0 +1,80 @@ +# ATLAS, arXiv: 1807.04873, July 2018, taken from Fig. 7 +# 4873_Atlas_X-HH-gagabb_13TeV_36.1fb-1.txt +# +# MX obs exp [on sigma_X x BR(X->HH) in pb] + + 260.0 1.143 0.8378 + 270.0 0.7841 0.8887 + 280.0 0.7516 0.8972 + 290.0 0.9989 0.8943 + 300.0 0.9721 0.8541 + 310.0 0.8576 0.8138 + 320.0 0.4931 0.7728 + 330.0 0.4352 0.7319 + 340.0 0.4634 0.7022 + 350.0 0.5058 0.6909 + 360.0 0.4931 0.6641 + 370.0 0.4973 0.6337 + 380.0 0.4973 0.6033 + 390.0 0.6019 0.5765 + 400.0 0.6626 0.5609 + 410.0 0.6626 0.5298 + 420.0 0.6231 0.5115 + 430.0 0.6273 0.4931 + 440.0 0.5694 0.4747 + 450.0 0.4648 0.4549 + 460.0 0.4719 0.4352 + 470.0 0.5609 0.4154 + 480.0 0.6075 0.3984 + 490.0 0.6089 0.3801 + 500.0 0.4451 0.4140 + 510.0 0.4083 0.3928 + 520.0 0.3716 0.3716 + 530.0 0.3179 0.3504 + 540.0 0.2642 0.3292 + 550.0 0.2607 0.3080 + 560.0 0.2571 0.2868 + 570.0 0.2564 0.2812 + 580.0 0.2557 0.2755 + 590.0 0.2416 0.2699 + 600.0 0.2275 0.2642 + 610.0 0.2296 0.2555 + 620.0 0.2317 0.2468 + 630.0 0.2197 0.2381 + 640.0 0.2077 0.2294 + 650.0 0.2020 0.2206 + 660.0 0.1964 0.2119 + 670.0 0.2070 0.2080 + 680.0 0.2176 0.2042 + 690.0 0.2063 0.2003 + 700.0 0.1950 0.1964 + 710.0 0.2042 0.1945 + 720.0 0.2133 0.1926 + 730.0 0.2042 0.1907 + 740.0 0.1950 0.1889 + 750.0 0.1844 0.1870 + 760.0 0.1738 0.1851 + 770.0 0.1660 0.1833 + 780.0 0.1582 0.1816 + 790.0 0.1618 0.1798 + 800.0 0.1653 0.1780 + 810.0 0.1724 0.1763 + 820.0 0.1794 0.1745 + 830.0 0.1823 0.1727 + 840.0 0.1851 0.1710 + 850.0 0.1801 0.1697 + 860.0 0.1752 0.1685 + 870.0 0.1794 0.1672 + 880.0 0.1837 0.1660 + 890.0 0.1858 0.1648 + 900.0 0.1879 0.1635 + 910.0 0.1872 0.1623 + 920.0 0.1865 0.1611 + 930.0 0.1801 0.1602 + 940.0 0.1738 0.1593 + 950.0 0.1625 0.1584 + 960.0 0.1512 0.1575 + 970.0 0.1420 0.1567 + 980.0 0.1328 0.1558 + 990.0 0.1279 0.1549 + 1000. 0.1229 0.1540 Index: docs/HB5_Expt/CMS-17-030/exp_interpol.dat =================================================================== --- docs/HB5_Expt/CMS-17-030/exp_interpol.dat (revision 0) +++ docs/HB5_Expt/CMS-17-030/exp_interpol.dat (revision 586) @@ -0,0 +1,274 @@ + 270.00 752.6941 + 280.00 800.9552 + 290.00 793.8758 + 300.00 759.4063 + 310.00 695.1203 + 320.00 630.8344 + 330.00 566.5484 + 340.00 519.8448 + 350.00 473.1412 + 360.00 426.4377 + 370.00 398.6603 + 380.00 370.8829 + 390.00 343.1055 + 400.00 315.3281 + 410.00 301.4476 + 420.00 287.5672 + 430.00 273.6867 + 440.00 259.8062 + 450.00 245.9257 + 460.00 230.3174 + 470.00 214.7091 + 480.00 199.1008 + 490.00 183.4926 + 500.00 167.8843 + 510.00 162.4217 + 520.00 156.9591 + 530.00 151.4965 + 540.00 146.0339 + 550.00 140.5713 + 560.00 130.0191 + 570.00 119.4669 + 580.00 108.9148 + 590.00 98.36259 + 600.00 87.81041 + 610.00 83.94507 + 620.00 80.07973 + 630.00 76.21439 + 640.00 72.34904 + 650.00 68.48370 + 660.00 66.99072 + 670.00 65.49773 + 680.00 64.00475 + 690.00 62.51176 + 700.00 61.01878 + 710.00 59.78550 + 720.00 58.55222 + 730.00 57.31894 + 740.00 56.08566 + 750.00 54.85238 + 760.00 53.48453 + 770.00 52.11669 + 780.00 50.74885 + 790.00 49.38101 + 800.00 48.01317 + 810.00 46.89052 + 820.00 45.76786 + 830.00 44.64521 + 840.00 43.52256 + 850.00 42.39991 + 860.00 41.27726 + 870.00 40.15460 + 880.00 39.03195 + 890.00 37.90930 + 900.00 36.78665 + 910.00 36.68996 + 920.00 36.59328 + 930.00 36.49660 + 940.00 36.39991 + 950.00 36.30323 + 960.00 36.20654 + 970.00 36.10986 + 980.00 36.01317 + 990.00 35.91649 + 1000.00 35.81980 + 1010.00 35.29566 + 1020.00 34.77151 + 1030.00 34.24736 + 1040.00 33.72321 + 1050.00 33.19906 + 1060.00 32.67491 + 1070.00 32.15076 + 1080.00 31.62661 + 1090.00 31.10246 + 1100.00 30.57831 + 1110.00 30.05416 + 1120.00 29.53001 + 1130.00 29.00586 + 1140.00 28.48171 + 1150.00 27.95756 + 1160.00 27.43341 + 1170.00 26.90926 + 1180.00 26.38511 + 1190.00 25.86096 + 1200.00 25.33682 + 1210.00 24.82697 + 1220.00 24.31712 + 1230.00 23.80728 + 1240.00 23.29743 + 1250.00 22.78759 + 1260.00 22.27774 + 1270.00 21.76790 + 1280.00 21.25805 + 1290.00 20.74820 + 1300.00 20.23836 + 1310.00 19.72851 + 1320.00 19.21867 + 1330.00 18.70882 + 1340.00 18.19898 + 1350.00 17.68913 + 1360.00 17.17929 + 1370.00 16.66944 + 1380.00 16.15959 + 1390.00 15.64975 + 1400.00 15.13990 + 1410.00 15.00942 + 1420.00 14.87893 + 1430.00 14.74844 + 1440.00 14.61795 + 1450.00 14.48747 + 1460.00 14.35698 + 1470.00 14.22649 + 1480.00 14.09601 + 1490.00 13.96552 + 1500.00 13.83503 + 1510.00 13.70455 + 1520.00 13.57406 + 1530.00 13.44357 + 1540.00 13.31309 + 1550.00 13.18260 + 1560.00 13.05211 + 1570.00 12.92162 + 1580.00 12.79114 + 1590.00 12.66065 + 1600.00 12.53016 + 1610.00 12.39968 + 1620.00 12.26919 + 1630.00 12.13870 + 1640.00 12.00822 + 1650.00 11.87773 + 1660.00 11.74724 + 1670.00 11.61675 + 1680.00 11.48627 + 1690.00 11.35578 + 1700.00 11.22529 + 1710.00 11.09481 + 1720.00 10.96432 + 1730.00 10.83383 + 1740.00 10.70335 + 1750.00 10.57286 + 1760.00 10.44237 + 1770.00 10.31188 + 1780.00 10.18140 + 1790.00 10.05091 + 1800.00 9.920424 + 1810.00 9.789937 + 1820.00 9.659450 + 1830.00 9.528963 + 1840.00 9.398476 + 1850.00 9.267989 + 1860.00 9.137502 + 1870.00 9.007015 + 1880.00 8.876528 + 1890.00 8.746041 + 1900.00 8.615554 + 1910.00 8.485067 + 1920.00 8.354580 + 1930.00 8.224093 + 1940.00 8.093606 + 1950.00 7.963119 + 1960.00 7.832632 + 1970.00 7.702145 + 1980.00 7.571658 + 1990.00 7.441171 + 2000.00 7.182021 + 2010.00 7.148100 + 2020.00 7.114178 + 2030.00 7.080257 + 2040.00 7.046335 + 2050.00 7.012414 + 2060.00 6.978492 + 2070.00 6.944570 + 2080.00 6.910649 + 2090.00 6.876727 + 2100.00 6.842806 + 2110.00 6.808884 + 2120.00 6.774963 + 2130.00 6.741041 + 2140.00 6.707120 + 2150.00 6.673198 + 2160.00 6.639277 + 2170.00 6.605355 + 2180.00 6.571434 + 2190.00 6.537512 + 2200.00 6.503591 + 2210.00 6.469669 + 2220.00 6.435748 + 2230.00 6.401826 + 2240.00 6.367904 + 2250.00 6.333983 + 2260.00 6.300061 + 2270.00 6.266140 + 2280.00 6.232218 + 2290.00 6.198297 + 2300.00 6.164375 + 2310.00 6.130454 + 2320.00 6.096532 + 2330.00 6.062611 + 2340.00 6.028689 + 2350.00 5.994768 + 2360.00 5.960846 + 2370.00 5.926925 + 2380.00 5.893003 + 2390.00 5.859082 + 2400.00 5.825160 + 2410.00 5.791238 + 2420.00 5.757317 + 2430.00 5.723395 + 2440.00 5.689474 + 2450.00 5.655552 + 2460.00 5.621631 + 2470.00 5.587709 + 2480.00 5.553788 + 2490.00 5.519866 + 2500.00 5.485945 + 2510.00 5.452023 + 2520.00 5.418102 + 2530.00 5.384180 + 2540.00 5.350259 + 2550.00 5.316337 + 2560.00 5.282416 + 2570.00 5.248494 + 2580.00 5.214572 + 2590.00 5.180651 + 2600.00 5.146729 + 2610.00 5.112808 + 2620.00 5.078886 + 2630.00 5.044965 + 2640.00 5.011043 + 2650.00 4.977122 + 2660.00 4.943200 + 2670.00 4.909279 + 2680.00 4.875357 + 2690.00 4.841436 + 2700.00 4.807514 + 2710.00 4.773593 + 2720.00 4.739671 + 2730.00 4.705750 + 2740.00 4.671828 + 2750.00 4.637907 + 2760.00 4.603985 + 2770.00 4.570063 + 2780.00 4.536142 + 2790.00 4.502220 + 2800.00 4.468299 + 2810.00 4.434377 + 2820.00 4.400456 + 2830.00 4.366534 + 2840.00 4.332613 + 2850.00 4.298691 + 2860.00 4.264770 + 2870.00 4.230848 + 2880.00 4.196927 + 2890.00 4.163005 + 2900.00 4.129084 + 2910.00 4.095162 + 2920.00 4.061241 + 2930.00 4.027319 + 2940.00 3.993397 + 2950.00 3.959476 + 2960.00 3.925554 + 2970.00 3.891633 + 2980.00 3.857711 + 2990.00 3.823790 + 3000.00 3.79 Index: docs/HB5_Expt/CMS-17-030/data.dat =================================================================== --- docs/HB5_Expt/CMS-17-030/data.dat (revision 0) +++ docs/HB5_Expt/CMS-17-030/data.dat (revision 586) @@ -0,0 +1,279 @@ +# CMS-PAS-HIG-17-030, July 2018, data taken from Fig. 3 +# combines gaga, tautau, bb and VV final states, assuming SM Higgs BRs. +# 17030_CMS_pp-X-HH_comb_13TeV_35.9fb-1.txt +# MX obs exp (in fb) + + 270.0 1294. 752.7 + 280.0 1630. 801.0 + 290.0 1428. 793.9 + 300.0 1227. 759.4 + 310.0 1076. 695.1 + 320.0 925.7 630.8 + 330.0 775.2 566.5 + 340.0 624.8 519.8 + 350.0 474.4 473.1 + 360.0 442.0 426.4 + 370.0 409.6 398.7 + 380.0 377.3 370.9 + 390.0 344.9 343.1 + 400.0 312.5 315.3 + 410.0 323.4 301.4 + 420.0 334.2 287.6 + 430.0 345.0 273.7 + 440.0 355.9 259.8 + 450.0 366.7 245.9 + 460.0 314.9 230.3 + 470.0 263.1 214.7 + 480.0 211.3 199.1 + 490.0 159.5 183.5 + 500.0 107.7 167.9 + 510.0 116.9 162.4 + 520.0 126.1 157.0 + 530.0 135.3 151.5 + 540.0 144.4 146.0 + 550.0 153.6 140.6 + 560.0 142.4 130.0 + 570.0 131.2 119.5 + 580.0 120.1 108.9 + 590.0 108.9 98.36 + 600.0 97.68 87.81 + 610.0 92.59 83.95 + 620.0 87.50 80.08 + 630.0 82.41 76.21 + 640.0 77.32 72.35 + 650.0 72.23 68.48 + 660.0 72.04 66.99 + 670.0 71.85 65.50 + 680.0 71.66 64.00 + 690.0 71.47 62.51 + 700.0 71.28 61.02 + 710.0 71.09 59.79 + 720.0 70.90 58.55 + 730.0 70.71 57.32 + 740.0 70.52 56.09 + 750.0 70.33 54.85 + 760.0 69.17 53.48 + 770.0 68.01 52.12 + 780.0 66.85 50.75 + 790.0 65.69 49.38 + 800.0 64.53 48.01 + 810.0 63.37 46.89 + 820.0 62.22 45.77 + 830.0 61.06 44.65 + 840.0 59.90 43.52 + 850.0 58.74 42.40 + 860.0 57.58 41.28 + 870.0 56.42 40.15 + 880.0 55.26 39.03 + 890.0 54.10 37.91 + 900.0 52.94 36.79 + 910.0 51.10 36.69 + 920.0 49.26 36.59 + 930.0 47.43 36.50 + 940.0 45.59 36.40 + 950.0 43.75 36.30 + 960.0 41.92 36.21 + 970.0 40.08 36.11 + 980.0 38.24 36.01 + 990.0 36.41 35.92 + 1000. 34.57 35.82 + 1010. 34.40 35.30 + 1020. 34.22 34.77 + 1030. 34.05 34.25 + 1040. 33.87 33.72 + 1050. 33.70 33.20 + 1060. 33.52 32.67 + 1070. 33.35 32.15 + 1080. 33.17 31.63 + 1090. 33.00 31.10 + 1100. 32.82 30.58 + 1110. 32.65 30.05 + 1120. 32.47 29.53 + 1130. 32.30 29.01 + 1140. 32.12 28.48 + 1150. 31.95 27.96 + 1160. 31.78 27.43 + 1170. 31.60 26.91 + 1180. 31.43 26.39 + 1190. 31.25 25.86 + 1200. 31.08 25.34 + 1210. 30.23 24.83 + 1220. 29.39 24.32 + 1230. 28.55 23.81 + 1240. 27.71 23.30 + 1250. 26.86 22.79 + 1260. 26.02 22.28 + 1270. 25.18 21.77 + 1280. 24.34 21.26 + 1290. 23.49 20.75 + 1300. 22.65 20.24 + 1310. 21.81 19.73 + 1320. 20.97 19.22 + 1330. 20.12 18.71 + 1340. 19.28 18.20 + 1350. 18.44 17.69 + 1360. 17.60 17.18 + 1370. 16.75 16.67 + 1380. 15.91 16.16 + 1390. 15.07 15.65 + 1400. 14.23 15.14 + 1410. 14.09 15.01 + 1420. 13.94 14.88 + 1430. 13.80 14.75 + 1440. 13.66 14.62 + 1450. 13.52 14.49 + 1460. 13.38 14.36 + 1470. 13.24 14.23 + 1480. 13.09 14.10 + 1490. 12.95 13.97 + 1500. 12.81 13.84 + 1510. 12.67 13.70 + 1520. 12.53 13.57 + 1530. 12.39 13.44 + 1540. 12.25 13.31 + 1550. 12.10 13.18 + 1560. 11.96 13.05 + 1570. 11.82 12.92 + 1580. 11.68 12.79 + 1590. 11.54 12.66 + 1600. 11.40 12.53 + 1610. 11.23 12.40 + 1620. 11.06 12.27 + 1630. 10.88 12.14 + 1640. 10.71 12.01 + 1650. 10.54 11.88 + 1660. 10.37 11.75 + 1670. 10.20 11.62 + 1680. 10.03 11.49 + 1690. 9.863 11.36 + 1700. 9.693 11.23 + 1710. 9.522 11.09 + 1720. 9.352 10.96 + 1730. 9.182 10.83 + 1740. 9.011 10.70 + 1750. 8.841 10.57 + 1760. 8.671 10.44 + 1770. 8.500 10.31 + 1780. 8.330 10.18 + 1790. 8.160 10.05 + 1800. 7.989 9.920 + 1810. 8.067 9.790 + 1820. 8.145 9.659 + 1830. 8.223 9.529 + 1840. 8.301 9.398 + 1850. 8.379 9.268 + 1860. 8.457 9.138 + 1870. 8.535 9.007 + 1880. 8.613 8.877 + 1890. 8.691 8.746 + 1900. 8.769 8.616 + 1910. 8.847 8.485 + 1920. 8.925 8.355 + 1930. 9.003 8.224 + 1940. 9.081 8.094 + 1950. 9.159 7.963 + 1960. 9.237 7.833 + 1970. 9.315 7.702 + 1980. 9.393 7.572 + 1990. 9.471 7.441 + 2000. 9.549 7.182 + 2010. 9.627 7.148 + 2020. 9.536 7.114 + 2030. 9.445 7.080 + 2040. 9.354 7.046 + 2050. 9.263 7.012 + 2060. 9.172 6.978 + 2070. 9.081 6.945 + 2080. 8.990 6.911 + 2090. 8.899 6.877 + 2100. 8.808 6.843 + 2110. 8.718 6.809 + 2120. 8.627 6.775 + 2130. 8.536 6.741 + 2140. 8.445 6.707 + 2150. 8.354 6.673 + 2160. 8.263 6.639 + 2170. 8.172 6.605 + 2180. 8.081 6.571 + 2190. 7.990 6.538 + 2200. 7.899 6.504 + 2210. 7.808 6.470 + 2220. 7.717 6.436 + 2230. 7.626 6.402 + 2240. 7.535 6.368 + 2250. 7.444 6.334 + 2260. 7.354 6.300 + 2270. 7.263 6.266 + 2280. 7.172 6.232 + 2290. 7.081 6.198 + 2300. 6.990 6.164 + 2310. 6.899 6.130 + 2320. 6.808 6.097 + 2330. 6.717 6.063 + 2340. 6.626 6.029 + 2350. 6.535 5.995 + 2360. 6.444 5.961 + 2370. 6.353 5.927 + 2380. 6.262 5.893 + 2390. 6.171 5.859 + 2400. 6.080 5.825 + 2410. 5.990 5.791 + 2420. 5.899 5.757 + 2430. 5.808 5.723 + 2440. 5.717 5.689 + 2450. 5.626 5.656 + 2460. 5.535 5.622 + 2470. 5.444 5.588 + 2480. 5.353 5.554 + 2490. 5.262 5.520 + 2500. 5.171 5.486 + 2510. 5.136 5.452 + 2520. 5.101 5.418 + 2530. 5.065 5.384 + 2540. 5.030 5.350 + 2550. 4.995 5.316 + 2560. 4.959 5.282 + 2570. 4.924 5.248 + 2580. 4.889 5.215 + 2590. 4.854 5.181 + 2600. 4.818 5.147 + 2610. 4.783 5.113 + 2620. 4.748 5.079 + 2630. 4.712 5.045 + 2640. 4.677 5.011 + 2650. 4.642 4.977 + 2660. 4.607 4.943 + 2670. 4.571 4.909 + 2680. 4.536 4.875 + 2690. 4.501 4.841 + 2700. 4.465 4.808 + 2710. 4.430 4.774 + 2720. 4.395 4.740 + 2730. 4.360 4.706 + 2740. 4.324 4.672 + 2750. 4.289 4.638 + 2760. 4.254 4.604 + 2770. 4.218 4.570 + 2780. 4.183 4.536 + 2790. 4.148 4.502 + 2800. 4.113 4.468 + 2810. 4.077 4.434 + 2820. 4.042 4.400 + 2830. 4.007 4.367 + 2840. 3.972 4.333 + 2850. 3.936 4.299 + 2860. 3.901 4.265 + 2870. 3.866 4.231 + 2880. 3.830 4.197 + 2890. 3.795 4.163 + 2900. 3.760 4.129 + 2910. 3.725 4.095 + 2920. 3.689 4.061 + 2930. 3.654 4.027 + 2940. 3.619 3.993 + 2950. 3.583 3.959 + 2960. 3.548 3.926 + 2970. 3.513 3.892 + 2980. 3.478 3.858 + 2990. 3.442 3.824 + 3000. 3.407 3.790 Index: docs/HB5_Expt/CMS-17-030/CMS-PAS-HIG-17-030_Figure_003.png =================================================================== Cannot display: file marked as a binary type. svn:mime-type = application/octet-stream Index: docs/HB5_Expt/CMS-17-030/CMS-PAS-HIG-17-030_Figure_003.png =================================================================== --- docs/HB5_Expt/CMS-17-030/CMS-PAS-HIG-17-030_Figure_003.png (revision 585) +++ docs/HB5_Expt/CMS-17-030/CMS-PAS-HIG-17-030_Figure_003.png (revision 586) Property changes on: docs/HB5_Expt/CMS-17-030/CMS-PAS-HIG-17-030_Figure_003.png ___________________________________________________________________ Added: svn:mime-type ## -0,0 +1 ## +application/octet-stream \ No newline at end of property Index: docs/HB5_Expt/CMS-17-030/exp.dat =================================================================== --- docs/HB5_Expt/CMS-17-030/exp.dat (revision 0) +++ docs/HB5_Expt/CMS-17-030/exp.dat (revision 586) @@ -0,0 +1,22 @@ +270.0109298250392 752.6941039193064 +280.2365915763095 800.9551794442459 +290.2494991068412 793.8757621683621 +300.0000000000001 759.406282192878 +329.8958559458689 566.5484140748882 +359.7866308336488 426.4376508590026 +399.74674106723967 315.3281286752756 +449.6825220967944 245.92569834283594 +499.6270214559587 167.8842835317604 +549.4162796563287 140.57128437299633 +600.4357554263488 87.81041443400673 +649.4523067573114 68.48370166714591 +699.5749646584603 61.018776890987674 +750.4599718772054 54.85237555781508 +800.0741215064309 48.01316875408143 +900.0182161907157 36.7866488092541 +999.9797601977511 35.819804563357486 +1199.264496077964 25.336815328322977 +1400.1660746068806 15.139902654994717 +2001.4120090846543 7.310684218032001 +2001.4120090846543 7.182021192082123 +2993.8110963336912 3.8237898001935187 Index: docs/HB5_Expt/CMS-17-030/obs_interpol.dat =================================================================== --- docs/HB5_Expt/CMS-17-030/obs_interpol.dat (revision 0) +++ docs/HB5_Expt/CMS-17-030/obs_interpol.dat (revision 586) @@ -0,0 +1,274 @@ + 270.00 1293.643 + 280.00 1629.528 + 290.00 1428.032 + 300.00 1226.536 + 310.00 1076.105 + 320.00 925.6726 + 330.00 775.2407 + 340.00 624.8089 + 350.00 474.3770 + 360.00 442.0098 + 370.00 409.6426 + 380.00 377.2754 + 390.00 344.9082 + 400.00 312.5410 + 410.00 323.3725 + 420.00 334.2040 + 430.00 345.0355 + 440.00 355.8670 + 450.00 366.6985 + 460.00 314.8993 + 470.00 263.1002 + 480.00 211.3010 + 490.00 159.5018 + 500.00 107.7027 + 510.00 116.8865 + 520.00 126.0704 + 530.00 135.2542 + 540.00 144.4381 + 550.00 153.6220 + 560.00 142.4340 + 570.00 131.2459 + 580.00 120.0579 + 590.00 108.8699 + 600.00 97.68190 + 610.00 92.59164 + 620.00 87.50138 + 630.00 82.41112 + 640.00 77.32086 + 650.00 72.23061 + 660.00 72.04077 + 670.00 71.85093 + 680.00 71.66109 + 690.00 71.47125 + 700.00 71.28141 + 710.00 71.09157 + 720.00 70.90173 + 730.00 70.71189 + 740.00 70.52205 + 750.00 70.33221 + 760.00 69.17263 + 770.00 68.01306 + 780.00 66.85349 + 790.00 65.69392 + 800.00 64.53435 + 810.00 63.37478 + 820.00 62.21521 + 830.00 61.05564 + 840.00 59.89606 + 850.00 58.73649 + 860.00 57.57692 + 870.00 56.41735 + 880.00 55.25778 + 890.00 54.09821 + 900.00 52.93864 + 910.00 51.10178 + 920.00 49.26493 + 930.00 47.42807 + 940.00 45.59122 + 950.00 43.75436 + 960.00 41.91751 + 970.00 40.08065 + 980.00 38.24380 + 990.00 36.40695 + 1000.00 34.57009 + 1010.00 34.39541 + 1020.00 34.22073 + 1030.00 34.04606 + 1040.00 33.87138 + 1050.00 33.69670 + 1060.00 33.52202 + 1070.00 33.34734 + 1080.00 33.17267 + 1090.00 32.99799 + 1100.00 32.82331 + 1110.00 32.64863 + 1120.00 32.47395 + 1130.00 32.29927 + 1140.00 32.12460 + 1150.00 31.94992 + 1160.00 31.77524 + 1170.00 31.60056 + 1180.00 31.42588 + 1190.00 31.25120 + 1200.00 31.07653 + 1210.00 30.23408 + 1220.00 29.39164 + 1230.00 28.54920 + 1240.00 27.70675 + 1250.00 26.86431 + 1260.00 26.02187 + 1270.00 25.17942 + 1280.00 24.33698 + 1290.00 23.49454 + 1300.00 22.65209 + 1310.00 21.80965 + 1320.00 20.96720 + 1330.00 20.12476 + 1340.00 19.28232 + 1350.00 18.43987 + 1360.00 17.59743 + 1370.00 16.75499 + 1380.00 15.91254 + 1390.00 15.07010 + 1400.00 14.22766 + 1410.00 14.08606 + 1420.00 13.94446 + 1430.00 13.80287 + 1440.00 13.66127 + 1450.00 13.51967 + 1460.00 13.37807 + 1470.00 13.23648 + 1480.00 13.09488 + 1490.00 12.95328 + 1500.00 12.81169 + 1510.00 12.67009 + 1520.00 12.52849 + 1530.00 12.38689 + 1540.00 12.24530 + 1550.00 12.10370 + 1560.00 11.96210 + 1570.00 11.82051 + 1580.00 11.67891 + 1590.00 11.53731 + 1600.00 11.39572 + 1610.00 11.22540 + 1620.00 11.05508 + 1630.00 10.88477 + 1640.00 10.71445 + 1650.00 10.54414 + 1660.00 10.37382 + 1670.00 10.20351 + 1680.00 10.03319 + 1690.00 9.862878 + 1700.00 9.692563 + 1710.00 9.522248 + 1720.00 9.351933 + 1730.00 9.181617 + 1740.00 9.011302 + 1750.00 8.840987 + 1760.00 8.670672 + 1770.00 8.500356 + 1780.00 8.330041 + 1790.00 8.159726 + 1800.00 7.989411 + 1810.00 8.067383 + 1820.00 8.145356 + 1830.00 8.223329 + 1840.00 8.301302 + 1850.00 8.379275 + 1860.00 8.457248 + 1870.00 8.535221 + 1880.00 8.613194 + 1890.00 8.691167 + 1900.00 8.769140 + 1910.00 8.847113 + 1920.00 8.925086 + 1930.00 9.003059 + 1940.00 9.081031 + 1950.00 9.159004 + 1960.00 9.236977 + 1970.00 9.314950 + 1980.00 9.392923 + 1990.00 9.470896 + 2000.00 9.548869 + 2010.00 9.626842 + 2020.00 9.535909 + 2030.00 9.444977 + 2040.00 9.354044 + 2050.00 9.263112 + 2060.00 9.172179 + 2070.00 9.081247 + 2080.00 8.990314 + 2090.00 8.899381 + 2100.00 8.808449 + 2110.00 8.717516 + 2120.00 8.626584 + 2130.00 8.535651 + 2140.00 8.444719 + 2150.00 8.353786 + 2160.00 8.262854 + 2170.00 8.171921 + 2180.00 8.080988 + 2190.00 7.990056 + 2200.00 7.899123 + 2210.00 7.808191 + 2220.00 7.717258 + 2230.00 7.626326 + 2240.00 7.535393 + 2250.00 7.444460 + 2260.00 7.353528 + 2270.00 7.262595 + 2280.00 7.171663 + 2290.00 7.080730 + 2300.00 6.989798 + 2310.00 6.898865 + 2320.00 6.807933 + 2330.00 6.717000 + 2340.00 6.626067 + 2350.00 6.535135 + 2360.00 6.444202 + 2370.00 6.353270 + 2380.00 6.262337 + 2390.00 6.171405 + 2400.00 6.080472 + 2410.00 5.989540 + 2420.00 5.898607 + 2430.00 5.807674 + 2440.00 5.716742 + 2450.00 5.625809 + 2460.00 5.534877 + 2470.00 5.443944 + 2480.00 5.353012 + 2490.00 5.262079 + 2500.00 5.171146 + 2510.00 5.135863 + 2520.00 5.100580 + 2530.00 5.065297 + 2540.00 5.030014 + 2550.00 4.994730 + 2560.00 4.959447 + 2570.00 4.924164 + 2580.00 4.888881 + 2590.00 4.853597 + 2600.00 4.818314 + 2610.00 4.783031 + 2620.00 4.747748 + 2630.00 4.712465 + 2640.00 4.677181 + 2650.00 4.641898 + 2660.00 4.606615 + 2670.00 4.571332 + 2680.00 4.536049 + 2690.00 4.500765 + 2700.00 4.465482 + 2710.00 4.430199 + 2720.00 4.394916 + 2730.00 4.359632 + 2740.00 4.324349 + 2750.00 4.289066 + 2760.00 4.253783 + 2770.00 4.218500 + 2780.00 4.183216 + 2790.00 4.147933 + 2800.00 4.112650 + 2810.00 4.077367 + 2820.00 4.042083 + 2830.00 4.006800 + 2840.00 3.971517 + 2850.00 3.936234 + 2860.00 3.900951 + 2870.00 3.865667 + 2880.00 3.830384 + 2890.00 3.795101 + 2900.00 3.759818 + 2910.00 3.724534 + 2920.00 3.689251 + 2930.00 3.653968 + 2940.00 3.618685 + 2950.00 3.583402 + 2960.00 3.548118 + 2970.00 3.512835 + 2980.00 3.477552 + 2990.00 3.442269 + 3000.00 3.406985 Index: docs/HB5_Expt/CMS-17-030/obs.dat =================================================================== --- docs/HB5_Expt/CMS-17-030/obs.dat (revision 0) +++ docs/HB5_Expt/CMS-17-030/obs.dat (revision 586) @@ -0,0 +1,20 @@ +270.0109298250392 1293.643085650556 +279.6584724866295 1629.5283812635203 +300.0000000000001 1226.5364047462247 +350.25619765763247 474.37697293996433 +399.74674106723967 312.5410321447746 +449.6825220967944 366.69849528195476 +499.6270214559587 107.70267001916265 +550.5520508583454 153.62196900866698 +599.1970757436355 97.68189677412118 +646.7754722118947 72.23060546644689 +745.8250223219011 70.33220625006346 +900.0182161907157 52.93863696005941 +999.9797601977511 34.57009127637854 +1196.7904519324131 31.076526380520328 +1403.060543454025 14.227656871179565 +1598.0069132827061 11.395715462326788 +1797.627610858266 7.98941056407113 +2005.5493930819225 9.626841901967815 +2501.482609052598 5.171146470895206 +3000.000000000001 3.406985472690595 Index: trunk/HiggsSignals-2/io.f90 =================================================================== --- trunk/HiggsSignals-2/io.f90 (revision 585) +++ trunk/HiggsSignals-2/io.f90 (revision 586) @@ -1,1116 +1,1116 @@ !-------------------------------------------------------------------- ! This file is part of HiggsSignals (TS 03/03/2013) !-------------------------------------------------------------------- module io !-------------------------------------------------------------------- use usefulbits, only : Hneut,Hplus,Chineut,Chiplus use input, only : count_columns, getfilelength, stem_array, required, f_orig implicit none contains !-------------------------------------------------------------------- subroutine setup_input_for_hs !-------------------------------------------------------------------- ! * if inputmethod='datfile' finds np,Exptdata ! * if inputmethod='datfile', finds infile1 (prefix for input/output filenames) ! * sets ndat (number of parameter points considered) ! * sets n_additional (number of additional data values for each parameter point) ! * allocates theo, g2, partR !-------------------------------------------------------------------- use usefulbits, only : np,ndat,n_additional,theo,effC,g2,partR, & & inputmethod,whichinput, & & debug,infile1,infile2, & & allocate_hadroncolliderextras_parts,allocate_dataset_parts, & & allocate_couplratio_parts,allocate_sqcouplratio_parts,fill_pdesc use input, only : getshortcommandline,check_number_of_particles, fill_stem_array, & & file_name_msg use theory_BRfunctions implicit none !-----------------------------------internal integer :: f,ios,cc,g character(LEN=50) :: stem !------------------------------------------- call fill_pdesc select case(inputmethod) case('datfile') call getbasiccommandline_for_hs!get whichanalyses,whichinput,numbers of particles call getshortcommandline(infile1,infile2)! get infile1 case('subrout') !np(Hneut),np(Hplus) are already set call check_number_of_particles ! call check_whichanalyses !haven't yet set whichanalyses,whichinput infile1='' case default stop'incorrect value for inputmethod' end select !getting ndat and n_additional... select case(inputmethod) case('datfile') f=f_orig n_additional=0 select case(whichinput) case('part','effC','hadr') call fill_stem_array g=1 stem=stem_array(g) f=f_orig+g open(f,file=trim(infile1)//trim(stem)//'.dat',status='old',action='read',iostat=ios) if(ios.ne.0)then call file_name_msg(f) write(*,*)'Check that was specified correctly' write(*,*)'and that file exists.' call flush(6) stop'Problem opening file: see standard output for more info' endif ndat=getfilelength(f) ! number of data sets (i.e. lines) in input if((ndat.le.0))stop 'error getting ndat' close(f) g=ubound(stem_array,dim=1) stem=stem_array(g) f=f_orig+g !the last element in stem_array should be 'additional' if(trim(stem_array(g)).ne.'additional')stop'Error in subroutine setup_input (a)' required(g)=.False. open(f,file=trim(infile1)//trim(stem)//'.dat',status='old',action='read',iostat=ios) if(ios.eq.0)then cc=count_columns(f) if(cc.gt.1)then if(getfilelength(f).eq.ndat)then n_additional=cc-1 required(g)=.True. endif endif endif close(f) case('SLHA') ndat=1 ; n_additional=0 case default stop'error in subroutine setup_input_for_hs (1a)' end select case('website','subrout') ndat=1 ; n_additional=0 case default stop'error in subroutine setup_input_for_hs (1b)' end select !...finished getting ndat and n_additional if(debug)then write(*,*)'np(Hneut)=',np(Hneut) write(*,*)'ndat=',ndat write(*,*)'n_additional=',n_additional endif allocate(theo(ndat)) call allocate_dataset_parts(theo,n_additional) ! - Outdated: allocate(g2(ndat)) call allocate_sqcouplratio_parts(g2) ! - allocate(effC(ndat)) call allocate_couplratio_parts(effC) allocate(partR(ndat)) call allocate_hadroncolliderextras_parts(partR) end subroutine setup_input_for_hs !-------------------------------------------------------------------- subroutine getbasiccommandline_for_hs !-------------------------------------------------------------------- ! finds whichanalyses,whichinput,np from command line !-------------------------------------------------------------------- !nb iargc and getarg are non-standard use usefulbits, only : np,pdesc,whichinput,inputmethod use usefulbits_hs, only : Exptdir, runmode, pdf use input, only : check_number_of_particles, check_whichinput, nargs_datfile implicit none !-----------------------------------internal character(LEN=100) :: temp character(LEN=5) :: nHtemp, pdftemp integer :: i,x integer :: number_args logical :: wrong_args !------------------------------------------- number_args = IARGC() !Exptdir, runmode, pdf, whichinput, np(Hneut), np(Hplus) , prefix nargs_datfile = 4+ 2 +1 np(Chineut)=0 np(Chiplus)=0 wrong_args= (number_args .ne. nargs_datfile) if( wrong_args )then write(*,*) "Incorrect number of parameters given on command line" call command_line_how2_for_hs stop "Error: command line entered incorrectly (see standard output for more info)" endif ! Read arguments into text strings. i=1 temp="" call GETARG(i,temp) Exptdir = "" Exptdir = trim(temp) i=i+1 temp="" call GETARG(i,temp) runmode = "" runmode = trim(temp) i=i+1 temp="" call GETARG(i,temp) pdftemp = "" pdftemp = trim(temp) i=i+1 if(verify(pdftemp," 1234567890").gt.0)then ! checks that the string nHtemp just contains the characters " 1234567890" ! the function verify is standard in fortran 95 write(*,*)'Incorrect pdf: not a number.' write(*,*)'(you entered pdf="'//trim(adjustl(pdftemp))//'")' call command_line_how2_for_hs stop "Error: command line entered incorrectly (see standard output for more info)" endif read(pdftemp,*) pdf temp="" call GETARG(i,temp) whichinput = "" whichinput = trim(temp) i=i+1 do x=1,2 temp="" call GETARG(i,temp) nHtemp = "" nHtemp = trim(temp) i=i+1 if(verify(nHtemp," 1234567890").gt.0)then ! checks that the string nHtemp just contains the characters " 1234567890" ! the function verify is standard in fortran 95 write(*,*)'Incorrect n'//trim(adjustl(pdesc(x)%short))//': not a number.' write(*,*)'(you entered n'//trim(adjustl(pdesc(x)%short))//& & '="'//trim(adjustl(nHtemp))//'")' write(*,*)'n'//trim(adjustl(pdesc(x)%short))//' is the number of '//& & trim(adjustl(pdesc(x)%long))//'s' call command_line_how2_for_hs stop "Error: command line entered incorrectly (see standard output for more info)" endif read(nHtemp,*) np(x) enddo call check_number_of_particles call check_whichinput end subroutine getbasiccommandline_for_hs !-------------------------------------------------------------------- subroutine command_line_how2_for_hs !-------------------------------------------------------------------- use usefulbits, only : np,inputmethod write(*,*)'The correct syntax for the command line is:' write(*,*)' ./HiggsSignals ',& & ' ' write(*,*)'e.g.' write(*,*)' ./HiggsSignals latestresults peak 2 part 3 1 example_data/mhmodplus/mhmod+_' write(*,*)'See HiggsSignals manual for more details.' call flush(6) end subroutine command_line_how2_for_hs !-------------------------------------------------------------------- subroutine do_output_for_hs ! Writes output to file or screen, depending on whether ! inputmethod='datfile' or inputmethod='website' !-------------------------------------------------------------------- use usefulbits, only : theo,ndat,inputmethod,np,fullHBres, & & n_additional, file_id_common, file_id_common2, & !input & whichanalyses,whichinput,pr,listprocesses,infile1 use usefulbits_hs, only : analyses, StrCompress, pdf, runmode, HSres, HSvers, Exptdir,& & Nparam ! use extra_bits_for_web ! use S95tables ! use extra_bits_for_SLHA implicit none !-----------------------------------internal integer :: i,j,ii,jj,x,n,n_sum,kk - character(LEN=1) :: nHchar + character(LEN=2) :: nHchar character(LEN=3) :: addchar,tempchar character(LEN=8) :: createdate character(LEN=10) :: createtime character(LEN=19) :: createdateandtime character(LEN=100) :: format43 character(LEN=500) :: columndescription type(listprocesses) :: proc character(LEN=200):: descrip double precision, allocatable :: Mhall(:,:) character(LEN=100) :: formatspec character(LEN=13) :: pdf_desc(3) = (/'box ','gaussian ','box+gaussian'/) !------------------------------------------- select case(inputmethod) case('datfile') select case(whichinput) case('SLHA') call HiggsSignals_outputSLHAdata(infile1) case('effC','part','hadr') if((np(Hneut)>0).or.(np(Hplus)>0))then allocate(Mhall(ndat,np(Hneut)+np(Hplus))) do jj=1,ndat ii=0 if(np(Hneut)>0)then do i=1,np(Hneut) Mhall(jj,i)=theo(jj)%particle(Hneut)%M(i) enddo ii=np(Hneut) endif if(np(Hplus)>0)then do i=1,np(Hplus) Mhall(jj,ii+i)=theo(jj)%particle(Hplus)%M(i) enddo endif enddo else stop'error in subroutine do_output(1)' endif format43='(1I14,' - write(nHchar,'(I1)')np(Hneut) + write(nHchar,'(I2)')np(Hneut) if(np(Hneut)>0)format43=trim(adjustl(format43))//nHchar//'G16.6,' - write(nHchar,'(I1)')np(Hplus) + write(nHchar,'(I2)')np(Hplus) if(np(Hplus)>0)format43=trim(adjustl(format43))//nHchar//'G16.6,' format43=trim(adjustl(format43))//'3G16.6,3I6,1G16.6' write(addchar,'(I3)')n_additional if(n_additional>0)format43=trim(adjustl(format43))//','//trim(adjustl(addchar))//'G16.6' format43=trim(adjustl(format43))//')' open(file_id_common,file=trim(infile1)//"HiggsSignals_results.dat") if(runmode.eq.'peak'.or.runmode.eq.'both') then open(file_id_common2,file=trim(infile1)//"peakobservables.dat") endif call date_and_time(createdate,createtime) createdateandtime=createdate(7:8)//'.' & & //createdate(5:6)//'.' & & //createdate(1:4)//' at '& & //createtime(1:2)//':' & & //createtime(3:4) write(file_id_common,*)'# generated with HiggsSignals version '//& & trim(adjustl(HSvers))//' on '//createdateandtime write(file_id_common,*)'# settings: '//adjustl(trim(Exptdir))//', '//whichinput//', '& & //runmode//', '//adjustl(trim(pdf_desc(pdf))) write(file_id_common,*)'#' write(file_id_common,*)'# column abbreviations' write(file_id_common,*)'# n : line id of input' if(np(Hneut)>0)write(file_id_common,*)'# Mh(i) : ',& & 'Neutral Higgs boson masses in GeV' if(np(Hplus)>0)write(file_id_common,*)'# Mhplus(i) : ',& & 'Charged Higgs boson masses in GeV' write(file_id_common,*)'# csq(mu) : Chi^2 from the signal strengths observables' write(file_id_common,*)'# csq(mh) : Chi^2 from the Higgs mass observables' write(file_id_common,*)'# csq(tot) : total Chi^2' write(file_id_common,*)'# nobs(mu) : number of signal strength observables' write(file_id_common,*)'# nobs(mh) : number of Higgs mass observables' write(file_id_common,*)'# nobs(tot) : total number of observables' write(file_id_common,"(A,I3)")'# Pvalue : Probability, given csq(tot) and ndf=nobs(tot)-',Nparam if(n_additional>0)then write(file_id_common,*)'# additional : ',& & 'optional additional data stored in additional.dat (e.g. tan beta)' endif write(file_id_common,*)'#' if(runmode.eq.'peak'.or.runmode.eq.'both') then formatspec='(I3,8X,I10,3X,F6.2,1X,4F9.4,7X,A3,6X,F6.2,5X,F6.2,3X,I3,3X,A40,5X,A)' write(file_id_common2,*) "# List of peak observables used from " & & //trim(adjustl(Exptdir))//":" write(file_id_common2,*)'#' write(file_id_common2,*)'# Number : HS internal numbering of analysis' write(file_id_common2,*)'# Analysis-ID : identity number of analysis' write(file_id_common2,*)'# mh_obs : Mass position of peak observable',& & ' (hypothetical Higgs mass where signal strength was measured)' write(file_id_common2,*)'# mu_obs : Observed (best-fit) signal strength value' write(file_id_common2,*)'# dmu_low : Lower 1s (cyan band) signal strength value' write(file_id_common2,*)'# dmu_high : Upper 1s (cyan band) signal strength value' write(file_id_common2,*)'# dmh_exp : Experimental mass uncertainty of analysis' write(file_id_common2,*)'# collaboration : ',& & 'Exp. collaboration which published the data' write(file_id_common2,*)'# energy : ',& & 'center-of-mass energy of the experiment (TeV)' write(file_id_common2,*)'# luminosity : ',& & 'integrated luminosity used for the measurement (fb-1)' write(file_id_common2,*)'# mass-chi2 : ',& & 'Mass measurement entering the Chi^2 (1/0=yes/no)' write(file_id_common2,*)'# description : Higgs process of analysis' write(file_id_common2,*)'# reference : ',& & 'Experimental publication of the data/analysis' write(file_id_common2,*)'#' write(file_id_common2,*)'# Number Analysis-ID mh_obs mu_obs dmu_low dmu_high ',& & " dmh_exp collaboration energy luminosity mass-chi2 ", & & " description reference" write(file_id_common2,*) "#" kk=0 do i=lbound(analyses,dim=1),ubound(analyses,dim=1) do j=lbound(analyses(i)%peaks,dim=1),ubound(analyses(i)%peaks,dim=1) kk=kk+1 write(file_id_common2,formatspec)kk,analyses(i)%id,analyses(i)%peaks(j)%mpeak,& & analyses(i)%peaks(j)%mu, analyses(i)%peaks(j)%dmulow,analyses(i)%peaks(j)%dmuup, & & analyses(i)%table%deltam,analyses(i)%table%collaboration, analyses(i)%table%energy,& & analyses(i)%table%lumi, analyses(i)%table%mhchisq, & & trim(strcompress(analyses(i)%table%desc)), analyses(i)%table%label enddo enddo close(file_id_common2) endif columndescription='#cols: n' if(np(Hneut)>0)then do i=1,np(Hneut) write(tempchar,'(I3)')i columndescription=trim(columndescription)//' Mh('//& & trim(adjustl(tempchar))//') ' enddo endif if(np(Hplus)>0)then do i=1,np(Hplus) write(tempchar,'(I3)')i columndescription=trim(columndescription)//' Mhplus('// & & trim(adjustl(tempchar))//') ' enddo endif columndescription=trim(columndescription)//' csq(mu) csq(mh) '//& & ' csq(tot) nobs(mu) nobs(mh) nobs(tot) Pvalue' if(n_additional>0)then do i=1,n_additional write(tempchar,'(I3)')i columndescription=trim(columndescription)//' additional('// & & trim(adjustl(tempchar))//') ' enddo endif write(file_id_common,*)trim(columndescription) write(file_id_common,*)'#' if(n_additional>0)then do jj=1,ndat write(file_id_common,fmt=trim(format43))jj,(Mhall(jj,i),i=1,np(Hneut)+np(Hplus)), & & HSres(jj)%Chisq_mu,HSres(jj)%Chisq_mh,HSres(jj)%Chisq, & & HSres(jj)%nobs_mpred+HSres(jj)%nobs_peak_mu,HSres(jj)%nobs_peak_mh, & & HSres(jj)%nobs,HSres(jj)%Pvalue,(theo(jj)%additional(i),i=1,n_additional) enddo else do jj=1,ndat write(file_id_common,fmt=trim(format43))jj,(Mhall(jj,i),i=1,np(Hneut)+np(Hplus)), & & HSres(jj)%Chisq_mu,HSres(jj)%Chisq_mh,HSres(jj)%Chisq, & & HSres(jj)%nobs_mpred+HSres(jj)%nobs_peak_mu,HSres(jj)%nobs_peak_mh, & & HSres(jj)%nobs,HSres(jj)%Pvalue enddo endif close(file_id_common) deallocate(Mhall) case default stop'error in subroutine do_output (*2)' end select ! case('website') ! do jj=1,ndat !-----NOTE: Need to change weboutput in extra_bits_for_web for the new all-Higgses mode!!! ! call weboutput(res(jj)) ! enddo case('subrout') select case(whichinput) case('SLHA') call HiggsSignals_outputSLHAdata(infile1) case default stop'error in subroutine do_output(c)' end select case default stop'error in subroutine do_output (*1)' end select end subroutine do_output_for_hs !-------------------------------------------------------------------- subroutine setup_output_for_hs !-Allocates the HBresults array. !-------------------------------------------------------------------- use usefulbits, only : ndat !input use usefulbits_hs, only : HSres !input implicit none allocate(HSres(ndat)) end subroutine setup_output_for_hs !-------------------------------------------------------------------- subroutine get_ID_of_peakobservable(ii, ID) use usefulbits_hs, only : HSres implicit none integer, intent(in) :: ii integer, intent(out) :: ID if(ii.gt.size(HSres(1)%obsID,dim=1).or.ii.le.0) then write(*,*) 'WARNING in get_peakinfo_from_HSresults: Peak observable ', & & ii,' unkwown! Returning zero.' ID = 0 else ID = HSres(1)%obsID(ii) endif end subroutine get_ID_of_peakobservable !-------------------------------------------------------------------- subroutine get_peakinfo(obsID, muobs, dmuup, dmulow, mpeak, dm) !-------------------------------------------------------------------- use usefulbits_hs, only : obs implicit none integer, intent(in) :: obsID double precision, intent(out) :: muobs, dmuup, dmulow, mpeak, dm integer :: pos, ii pos = -1 do ii=lbound(obs,dim=1),ubound(obs,dim=1) if(obs(ii)%id.eq.obsID) then pos = ii exit endif enddo if(pos.ne.-1) then mpeak = obs(pos)%peak%mpeak dm = obs(pos)%peak%dm muobs = obs(pos)%peak%mu dmuup = obs(pos)%peak%dmuup dmulow = obs(pos)%peak%dmulow else write(*,*) "WARNING in get_peakinfo: ID unknown." endif end subroutine get_peakinfo !-------------------------------------------------------------------- subroutine get_more_peakinfo(obsID, mhchisq) !-------------------------------------------------------------------- use usefulbits_hs, only : obs implicit none integer, intent(in) :: obsID integer, intent(out) :: mhchisq integer :: pos, ii pos = -1 do ii=lbound(obs,dim=1),ubound(obs,dim=1) if(obs(ii)%id.eq.obsID) then pos = ii exit endif enddo if(pos.ne.-1) then mhchisq = obs(pos)%table%mhchisq else write(*,*) "WARNING in get_peakinfo: ID unknown." endif end subroutine get_more_peakinfo !-------------------------------------------------------------------- subroutine get_peak_channels(obsID, Nc, pIDs, dIDs, efficiencies) !-------------------------------------------------------------------- use usefulbits_hs, only : obs implicit none integer, intent(in) :: obsID integer, intent(out) :: Nc integer, allocatable, intent(out) :: pIDs(:), dIDs(:) double precision, allocatable, intent(out) :: efficiencies(:) integer :: pos, ii pos = -1 do ii=lbound(obs,dim=1),ubound(obs,dim=1) if(obs(ii)%id.eq.obsID) then pos = ii exit endif enddo if(pos.ne.-1) then Nc = obs(pos)%table%Nc allocate(pIDs(Nc),dIDs(Nc),efficiencies(Nc)) pIDs = obs(pos)%table%channel_p_id dIDs = obs(pos)%table%channel_d_id efficiencies = obs(pos)%table%channel_eff else write(*,*) "WARNING in get_peakinfo: ID unknown." endif end subroutine get_peak_channels !-------------------------------------------------------------------- subroutine get_peakinfo_from_HSresults(obsID, mupred, domH, nHcomb) !-------------------------------------------------------------------- use usefulbits_hs, only : HSres implicit none integer, intent(in) :: obsID double precision, intent(out) :: mupred integer, intent(out) :: domH, nHcomb integer :: pos, ii pos = -1 do ii=lbound(HSres(1)%nH,dim=1),ubound(HSres(1)%nH,dim=1) if(obsID.eq.HSres(1)%obsID(ii)) then pos = ii exit endif enddo if(pos.ne.-1) then mupred = HSres(1)%mupred(ii) domH = HSres(1)%domH(ii) nHcomb = HSres(1)%nH(ii) else write(*,*) 'WARNING in get_peakinfo_from_HSresults: Peak observable ', & & obsID,' unkwown! Returning zeros.' mupred = 0.0D0 domH = 0 nHcomb = 0 endif end subroutine get_peakinfo_from_HSresults !-------------------------------------------------------------------- subroutine get_number_of_observables(ntotal, npeakmu, npeakmh, nmpred, nanalyses) !-------------------------------------------------------------------- use usefulbits_hs, only : HSres implicit none integer, intent(out) :: ntotal, npeakmu, npeakmh, nmpred, nanalyses ntotal = HSres(1)%nobs npeakmu = HSres(1)%nobs_peak_mu npeakmh = HSres(1)%nobs_peak_mh nmpred = HSres(1)%nobs_mpred nanalyses = HSres(1)%nanalysis end subroutine get_number_of_observables !-------------------------------------------------------------------- subroutine HiggsSignals_SLHA_output(detailed) !-------------------------------------------------------------------- use usefulbits, only : whichinput,just_after_run use usefulbits_hs, only : SLHAdetailed integer, intent(in) :: detailed if(detailed.eq.0) SLHAdetailed = .False. !use output, only : do_output !!!integer, intent(in) :: i if(.not.just_after_run)then stop'subroutine run_HiggsSignals should be called'//& ' before subroutine HiggsSignals_SLHA_output' endif select case(whichinput) case('SLHA') call do_HiggsSignals_output case default stop'The subroutine HiggsSignals_SLHA_output should'//& ' only be used if an input SLHA file is given.' end select end subroutine HiggsSignals_SLHA_output !-------------------------------------------------------------------- subroutine do_HiggsSignals_output !-------------------------------------------------------------------- use usefulbits, only : inputmethod,whichanalyses,whichinput,infile1 implicit none select case(inputmethod) case('datfile') select case(whichinput) case('SLHA') call HiggsSignals_outputSLHAdata(infile1) case default stop'error in subroutine do_output (*2)' end select case('subrout') select case(whichinput) case('SLHA') call HiggsSignals_outputSLHAdata(infile1) case default stop'error in subroutine do_output(c)' end select case default stop'error in subroutine do_output (*1)' end select end subroutine do_HiggsSignals_output !-------------------------------------------------------------------- subroutine HiggsSignals_create_SLHA_output_default(detailed) ! Wrapper subroutine of HiggsSignals_create_SLHA_output with a fixed ! name of output file ("HS-output.slha"). !-------------------------------------------------------------------- implicit none integer, intent(in) :: detailed call HiggsSignals_create_SLHA_output("HS-output.slha", detailed) end subroutine HiggsSignals_create_SLHA_output_default !-------------------------------------------------------------------- subroutine HiggsSignals_create_SLHA_output(infile, detailed) !-------------------------------------------------------------------- use usefulbits, only : just_after_run, file_id_common use usefulbits_hs, only : SLHAdetailed, newSLHAfile implicit none character(len=*),intent(in) :: infile integer, intent(in) :: detailed integer :: ios character(len=80) :: infile_80 if(detailed.eq.0) SLHAdetailed = .False. write(infile_80,*) infile if(trim(adjustl(infile_80)).ne.trim(adjustl(infile))) then write(*,*) "WARNING: SLHA output file name is too long (> 80 elements)!" endif if(.not.just_after_run)then stop'subroutine run_HiggsSignals should be called'//& ' before subroutine HiggsSignals_SLHA_output' endif open(unit=file_id_common,file=trim(adjustl(infile_80)),status='new',iostat=ios) if(ios.ne.0) then write(*,*) 'Problem creating the SLHA file: $'//trim(adjustl(infile))//'$' write(*,*) 'This file may already exist. SLHA output writing is skipped.' else close(file_id_common) newSLHAfile=.True. call HiggsSignals_outputSLHAdata(infile_80) newSLHAfile=.False. endif end subroutine HiggsSignals_create_SLHA_output !************************************************************ subroutine HiggsSignals_outputSLHAdata(infile) !************************************************************ use usefulbits, only : whichanalyses,file_id_common use extra_bits_for_SLHA, only : h use usefulbits_hs, only : HSvers, HSres, runmode, pdf, analyses, Exptdir, SLHAdetailed,& & newSLHAfile use SLHA_manip ! n.b.: needed for readSLHAfile, writeSLHAfile_except, finishwithSLHA implicit none !--------------------------------------input character(len=80),intent(in) :: infile !-----------------------------------internal integer :: i,j,ios,a integer :: k_out, Nh character(LEN=200):: descrip, formatstring !------------------------------------------- open(file_id_common,file=trim(adjustl(infile)),status='old',iostat=ios) if(ios.ne.0)then write(*,*)'problem opening the SLHA file: $'//trim(adjustl(infile))//'$' else k_out=file_id_common if(.not.newSLHAfile) then call readSLHAfile(file_id_common,.True.) rewind(file_id_common) call writeSLHAfile_except(k_out,'HiggsSignalsResults','HiggsSignalsPeakObservables',& & 'HiggsSignalsMassCenteredObservables') endif write(k_out,'(a)')'BLOCK HiggsSignalsResults' write(k_out,'(3X,I2,17X,A2,A,A2,15X,A)') 0,'||',trim(adjustl(HSvers)),'||', & & '# HiggsSignals version' write(k_out,'(3X,I2,9X,A2,A,A2,15X,A)')1,'||',trim(adjustl(Exptdir)),'||', & & '# experimental data set' select case(runmode) case('peak') write(k_out,'(3X,I2,25X,I1,15X,A)') 2,1, & & '# Chi-squared method ("peak"(1) or "mass"(2)-centered or "both"(3))' case('mass') write(k_out,'(3X,I2,25X,I1,15X,A)') 2,2, & & '# Chi-squared method ("peak"(1) or "mass"(2)-centered or "both"(3))' case('both') write(k_out,'(3X,I2,25X,I1,15X,A)') 2,3, & & '# Chi-squared method ("peak"(1) or "mass"(2)-centered or "both"(3))' end select write(k_out,'(3X,I2,11X,I15,15X,A)') 3,pdf, & & '# Parametrization of Higgs mass uncertainty (1:box, 2:gaussian, 3:box+gaussian)' write(k_out,'(3X,I2,11X,I15,15X,A)') 4,HSres(1)%nobs_peak_mu, & & '# Number of signal strength peak observables' write(k_out,'(3X,I2,11X,I15,15X,A)') 5,HSres(1)%nobs_STXS_rates, & & '# Number of simplified template cross section (STXS) signal rate observables' write(k_out,'(3X,I2,11X,I15,15X,A)') 6,HSres(1)%nobs_LHCRun1_mu, & & '# Number of LHC Run-1 signal rate observables' write(k_out,'(3X,I2,11X,I15,15X,A)') 7,HSres(1)%nobs_peak_mh + & & HSres(1)%nobs_LHCRun1_mh + HSres(1)%nobs_STXS_mh, & & '# Number of Higgs mass observables' ! write(k_out,'(3X,I2,11X,I15,15X,A)') 7,HSres(1)%nobs_mpred, & ! & '# Number of mass-centered observables' write(k_out,'(3X,I2,11X,I15,15X,A)') 8,HSres(1)%nobs, & & '# Number of observables (total)' write(k_out,'(3X,I2,11X,F15.8,15X,A)') 9,HSres(1)%Chisq_peak_mu, & & '# chi^2 (signal strength) from peak observables' write(k_out,'(3X,I2,11X,F15.8,15X,A)') 10,HSres(1)%Chisq_STXS_rates, & & '# chi^2 (signal strength) from STXS observables' write(k_out,'(3X,I2,11X,F15.8,15X,A)') 11,HSres(1)%Chisq_LHCRun1_mu, & & '# chi^2 (signal strength) from LHC Run-1 observables' write(k_out,'(3X,I2,11X,F15.8,15X,A)') 12,HSres(1)%Chisq_peak_mh, & & '# chi^2 (Higgs mass) from peak observables' write(k_out,'(3X,I2,11X,F15.8,15X,A)') 13,HSres(1)%Chisq_STXS_mh, & & '# chi^2 (Higgs mass) from STXS observables' write(k_out,'(3X,I2,11X,F15.8,15X,A)') 14,HSres(1)%Chisq_LHCRun1_mh, & & '# chi^2 (Higgs mass) from LHC Run-1 observables' ! write(k_out,'(3X,I2,11X,F15.8,15X,A)') 10,HSres(1)%Chisq_mpred, & ! & '# chi^2 from mass-centered observables' write(k_out,'(3X,I2,11X,F15.8,15X,A)') 15,HSres(1)%Chisq_mu, & & '# chi^2 (signal strength) (total)' write(k_out,'(3X,I2,11X,F15.8,15X,A)') 16,HSres(1)%Chisq_mh, & & '# chi^2 (Higgs mass) (total)' write(k_out,'(3X,I2,11X,F15.8,15X,A)') 17,HSres(1)%Chisq, '# chi^2 (total)' write(k_out,'(3X,I2,11X,F15.8,15X,A)') 18,HSres(1)%Pvalue_peak, & & '# Probability for peak observables' write(k_out,'(3X,I2,11X,F15.8,15X,A)') 19,HSres(1)%Pvalue_LHCRun1, & & '# Probability for LHC-Run1 observables' write(k_out,'(3X,I2,11X,F15.8,15X,A)') 20,HSres(1)%Pvalue_STXS, & & '# Probability for STXS observables' write(k_out,'(3X,I2,11X,F15.8,15X,A)') 21,HSres(1)%Pvalue, & & '# Probability (total chi^2, total number observables)' if(SLHAdetailed) then select case(runmode) case('peak') call writeSLHAblock_HiggsSignalsPeakObservables(k_out) case('mass') call writeSLHAblock_HiggsSignalsMassCenteredObservables(k_out) case('both') call writeSLHAblock_HiggsSignalsPeakObservables(k_out) call writeSLHAblock_HiggsSignalsMassCenteredObservables(k_out) case default end select endif SLHAdetailed=.True. close(file_id_common) if(k_out.ne.file_id_common)close(k_out) if(.not.newSLHAfile) then call finishwithSLHA endif endif end subroutine HiggsSignals_outputSLHAdata !-------------------------------------------------------------------- subroutine writeSLHAblock_HiggsSignalsPeakObservables(k_out) use usefulbits_hs, only : analyses, StrCompress use extra_bits_for_SLHA, only : h implicit none integer, intent(in) :: k_out integer :: i,j,a, Nh character(LEN=200):: formatstring write(k_out,'(a)')'BLOCK HiggsSignalsPeakObservables' write(k_out,'(A6,3X,A4,25X,A5,3X,A)')'# OBS','FLAG','VALUE','# DESCRIPTION' a=0 do i=lbound(analyses,dim=1),ubound(analyses,dim=1) do j=lbound(analyses(i)%peaks,dim=1),ubound(analyses(i)%peaks,dim=1) a=a+1 Nh = size(analyses(i)%peaks(j)%Higgs_comb) write(k_out,'(3X,I3,4X,I2,1X,I30,3X,A)')a,1,analyses(i)%table%id,'# Analysis ID' write(k_out,'(3X,I3,4X,I2,5X,A2,A,A2,8X,A)')a,2,'||',trim(analyses(i)%table%label), & & '||','# Reference to publication' write(k_out,'(3X,I3,4X,I2,5X,A2,A,A2,6X,A)')a,3,'||', & & trim(strcompress(analyses(i)%table%desc)),'||','# Description (Search channel)' write(k_out,'(3X,I3,4X,I2,23X,F8.2,3X,A)')a,4,analyses(i)%table%energy, & & '# Center-of-mass energy' write(k_out,'(3X,I3,4X,I2,23X,F8.2,3X,A)')a,5,analyses(i)%table%lumi, & & '# Luminosity' write(k_out,'(3X,I3,4X,I2,23X,F8.2,3X,A)')a,6,analyses(i)%table%dlumi*100.0D0, & & '# Luminosity uncertainty (in %)' write(k_out,'(3X,I3,4X,I2,23X,F8.2,3X,A)')a,7,analyses(i)%table%deltam, & & '# Mass resolution (GeV)' write(k_out,'(3X,I3,4X,I2,23X,F8.2,3X,A)')a,8,analyses(i)%peaks(j)%mpeak, & & '# Mass value at peak position (in GeV)' write(k_out,'(3X,I3,4X,I2,23X,F8.4,3X,A)')a,9,analyses(i)%peaks(j)%mu, & & '# Observed signal strength modifier (mu)' write(k_out,'(3X,I3,4X,I2,23X,F8.4,3X,A)')a,10,analyses(i)%peaks(j)%dmulow, & & '# Lower 68%C.L. uncertainty on observed mu' write(k_out,'(3X,I3,4X,I2,23X,F8.4,3X,A)')a,11,analyses(i)%peaks(j)%dmuup, & & '# Upper 68%C.L. uncertainty on observed mu' ! write(k_out,'(3X,I3,4X,I2,23X,F8.4,3X,A)')a,12,analyses(i)%peaks(j)%dmulow0sq, & !& '# Intrinsic squared lower 68%C.L. cyan band value on observed mu (corrected by HS)' ! write(k_out,'(3X,I3,4X,I2,23X,F8.4,3X,A)')a,13,analyses(i)%peaks(j)%dmuup0sq, & !& '# Intrinsic squared upper 68%C.L. cyan band value on observed mu (corrected by HS)' ! write(formatstring,'(A13,I2,A2,I2,A8)') '(3X,I3,4X,I2,',31-1*Nh,'X,',Nh,'I1,3X,A)' ! write(k_out,formatstring) a,12,analyses(i)%peaks(j)%Higgs_comb, & !& '# Higgs combination (= indices of Higgs bosons which have been used)' write(formatstring,'(A13,I2,A3,I1,A1,I1,A6)') & & '(3X,I3,4X,I2,',31-1*Nh,'X,I',Nh,'.',Nh,',3X,A)' write(k_out,formatstring) a,12, & & convert_Higgscomb_to_bin(analyses(i)%peaks(j)%Higgs_comb), & & '# Assigned Higgs combination' !-------TODO: List the pdg numbers here of these combinations! write(k_out,'(3X,I3,4X,I2,23X,I8,3X,A)')a,13,analyses(i)%peaks(j)%domH,& & '# Index of dominant Higgs boson' if(analyses(i)%peaks(j)%domH.eq.0) then write(k_out,'(3X,I3,4X,I2,23X,A8,3X,A)')a,14,'NaN', & & '# pdg number of dominant Higgs boson' write(k_out,'(3X,I3,4X,I2,23X,A8,3X,A)')a,15,'NaN', & & '# Mass of the dominant Higgs boson' write(k_out,'(3X,I3,4X,I2,23X,A8,3X,A)')a,16,'NaN', & & '# Signal strength modifier of the dominant Higgs boson' else write(k_out,'(3X,I3,4X,I2,23X,I8,3X,A)')a,14,h(analyses(i)%peaks(j)%domH), & & '# pdg number of dominant Higgs boson' write(k_out,'(3X,I3,4X,I2,23X,F8.4,3X,A)')a,15, & & analyses(i)%peaks(j)%Higgses(analyses(i)%peaks(j)%domH)%m, & & '# Mass of dominant Higgs boson' write(k_out,'(3X,I3,4X,I2,23X,F8.4,3X,A)')a,16, & & analyses(i)%peaks(j)%Higgses(analyses(i)%peaks(j)%domH)%mu, & & '# Signal strength modifier of dominant Higgs boson' endif write(k_out,'(3X,I3,4X,I2,23X,F8.4,3X,A)')a,17,analyses(i)%peaks(j)%total_mu,& & '# Total predicted signal strength modifier mu' write(k_out,'(3X,I3,4X,I2,23X,F8.4,3X,A)')a,18,analyses(i)%peaks(j)%chisq_mu,& & '# Chi-squared value (mu-part)' write(k_out,'(3X,I3,4X,I2,23X,F8.4,3X,A)')a,19,analyses(i)%peaks(j)%chisq_mh,& & '# Chi-squared value (mh-part)' write(k_out,'(3X,I3,4X,I2,23X,F8.4,3X,A)')a,20,analyses(i)%peaks(j)%chisq_tot,& & '# Chi-squared value (total)' write(k_out,'(3X,I3,4X,I2,23X,F8.4,3X,A)')a,21,analyses(i)%peaks(j)%chisq_max,& & '# Chi-squared value for no predicted signal (mu=0)' enddo enddo end subroutine writeSLHAblock_HiggsSignalsPeakObservables !-------------------------------------------------------------------- subroutine writeSLHAblock_HiggsSignalsMassCenteredObservables(k_out) !-------------------------------------------------------------------- use usefulbits_hs, only : analyses, StrCompress use usefulbits, only : np, Hneut ! use extra_bits_for_SLHA, only : h implicit none integer, intent(in) :: k_out integer :: i,j,a, Nh character(LEN=200):: formatstring Nh = np(Hneut) write(k_out,'(a)')'BLOCK HiggsSignalsMassCenteredObservables' write(k_out,'(A6,3X,A4,25X,A5,3X,A)')'# OBS','FLAG','VALUE','# DESCRIPTION' a=0 do i=lbound(analyses,dim=1),ubound(analyses,dim=1) do j=lbound(analyses(i)%mpred%mp_Higgses,dim=1), & & ubound(analyses(i)%mpred%mp_Higgses,dim=1) a=a+1 write(k_out,'(3X,I3,4X,I2,1X,I30,3X,A)')a,1,analyses(i)%table%id,'# Analysis ID' write(k_out,'(3X,I3,4X,I2,5X,A2,A,A2,8X,A)')a,2,'||',trim(analyses(i)%table%label), & & '||','# Reference to publication' write(k_out,'(3X,I3,4X,I2,5X,A2,A,A2,6X,A)')a,3,'||', & & trim(strcompress(analyses(i)%table%desc)),'||','# Description (Search channel)' write(k_out,'(3X,I3,4X,I2,23X,F8.2,3X,A)')a,4,analyses(i)%table%energy, & & '# Center-of-mass energy' write(k_out,'(3X,I3,4X,I2,23X,F8.2,3X,A)')a,5,analyses(i)%table%lumi, & & '# Luminosity' write(k_out,'(3X,I3,4X,I2,23X,F8.2,3X,A)')a,6,analyses(i)%table%dlumi*100.0D0, & & '# Luminosity uncertainty (in %)' write(k_out,'(3X,I3,4X,I2,23X,F8.2,3X,A)')a,7,analyses(i)%table%deltam, & & '# Mass resolution (GeV)' write(k_out,'(3X,I3,4X,I2,23X,F8.2,3X,A)')a,8,analyses(i)%mpred%mp_Higgses(j)%m, & '# Mass of tested Higgs boson (GeV)' write(k_out,'(3X,I3,4X,I2,23X,F8.2,3X,A)')a,9,analyses(i)%mpred%mp_Higgses(j)%dm, & & '# Mass uncertainty of tested Higgs boson (GeV)' write(k_out,'(3X,I3,4X,I2,23X,F8.4,3X,A)')a,10,analyses(i)%mpred%mp_Higgses(j)%mu, & & '# Signal strength of tested Higgs boson' write(k_out,'(3X,I3,4X,I2,23X,I8,3X,A)')a,11, & & size(analyses(i)%mpred%mp_Higgses(j)%Higgses,dim=1), & & '# Number of combined Higgs bosons' write(formatstring,'(A13,I2,A3,I1,A1,I1,A6)') & & '(3X,I3,4X,I2,',31-1*Nh,'X,I',Nh,'.',Nh,',3X,A)' write(k_out,formatstring) a,12, & & convert_Higgscombint_to_bin(analyses(i)%mpred%mp_Higgses(j)%Higgscomb), & & '# Combined Higgs boson code' write(k_out,'(3X,I3,4X,I2,23X,F8.2,3X,A)')a,13, & & analyses(i)%mpred%mp_Higgses(j)%m_obs,'# Observed mass value (GeV)' write(k_out,'(3X,I3,4X,I2,23X,F8.4,3X,A)')a,14, & & analyses(i)%mpred%mp_Higgses(j)%mu_obs, & & '# Observed signal strength (from experiment)' write(k_out,'(3X,I3,4X,I2,23X,F8.4,3X,A)')a,15, & & analyses(i)%mpred%mp_Higgses(j)%dmu_low_obs, & & '# Lower 68%C.L. uncertainty of observed signal strength' write(k_out,'(3X,I3,4X,I2,23X,F8.4,3X,A)')a,16, & & analyses(i)%mpred%mp_Higgses(j)%dmu_up_obs, & & '# Upper 68%C.L. uncertainty of observed signal strength' ! write(k_out,'(3X,I3,4X,I2,23X,F8.4,3X,A)')a,16, & !& analyses(i)%mpred%mp_Higgses(j)%dmu_low0_obs, & !& '# Intrinsic lower 68%C.L. cyan band value of observed mu (corrected by HS)' ! write(k_out,'(3X,I3,4X,I2,23X,F8.4,3X,A)')a,17, & !& analyses(i)%mpred%mp_Higgses(j)%dmu_up0_obs, & !& '# Intrinsic upper 68%C.L. cyan band value of observed mu (corrected by HS)' write(k_out,'(3X,I3,4X,I2,23X,F8.4,3X,A)')a,17,analyses(i)%mpred%mp_Higgses(j)%chisq,& & '# Chi-squared value' enddo enddo end subroutine writeSLHAblock_HiggsSignalsMassCenteredObservables !-------------------------------------------------------------------- function convert_Higgscomb_to_bin(Higgscomb) !-------------------------------------------------------------------- implicit none integer, dimension(:), intent(in) :: Higgscomb integer :: convert_Higgscomb_to_bin integer :: i, j integer :: decnum decnum=0 do i=lbound(Higgscomb,dim=1),ubound(Higgscomb,dim=1) if(Higgscomb(i).eq.0) decnum=decnum+0 if(Higgscomb(i).eq.1) decnum=decnum+1 if(Higgscomb(i).eq.2) decnum=decnum+2 if(Higgscomb(i).eq.3) decnum=decnum+4 if(Higgscomb(i).eq.4) decnum=decnum+8 if(Higgscomb(i).eq.5) decnum=decnum+16 if(Higgscomb(i).eq.6) decnum=decnum+32 if(Higgscomb(i).eq.7) decnum=decnum+64 if(Higgscomb(i).eq.8) decnum=decnum+128 if(Higgscomb(i).eq.9) decnum=decnum+256 enddo convert_Higgscomb_to_bin = convert_dec_to_bin(decnum) end function convert_Higgscomb_to_bin !-------------------------------------------------------------------- function convert_Higgscombint_to_bin(Higgscomb) !-------------------------------------------------------------------- implicit none integer, intent(in) :: Higgscomb integer :: convert_Higgscombint_to_bin integer :: i, j integer :: decnum, Higgscombtmp Higgscombtmp = Higgscomb decnum=0 do while(Higgscombtmp > 0) i=MOD(Higgscombtmp,10) if(i.eq.0) decnum=decnum+0 if(i.eq.1) decnum=decnum+1 if(i.eq.2) decnum=decnum+2 if(i.eq.3) decnum=decnum+4 if(i.eq.4) decnum=decnum+8 if(i.eq.5) decnum=decnum+16 if(i.eq.6) decnum=decnum+32 if(i.eq.7) decnum=decnum+64 if(i.eq.8) decnum=decnum+128 if(i.eq.9) decnum=decnum+256 Higgscombtmp=(Higgscombtmp-i)/10 enddo convert_Higgscombint_to_bin = convert_dec_to_bin(decnum) end function convert_Higgscombint_to_bin !------------------------------------------------------------ subroutine read_matrix_from_file(length, filename, m, status) !------------------------------------------------------------ use usefulbits, only : file_id_common3 implicit none ! use store_pathname_hs, only : pathname_HS ! use usefulbits_hs, only : delta_rate integer, intent(in) :: length character(LEN=*), intent(in) :: filename double precision, dimension(:,:), intent(inout) :: m logical, intent(out) :: status integer :: n, ios double precision, dimension(length) :: dblline status=.False. if((size(m,dim=1).ne.length).or.(size(m,dim=2).ne.length)) then write(*,*) 'Problem in subroutine read_matrix_from_file!' else open(file_id_common3, file=filename,form='formatted') n=0 do read(file_id_common3,*, iostat=ios) dblline if(ios.ne.0) exit n=n+1 m(n,:)=dblline(:) enddo if(n.ne.length) then write(*,*) 'Problem with reading in the matrix from ',filename else status=.True. endif endif close(file_id_common3) end subroutine read_matrix_from_file !-------------------------------------------------------------------- function convert_dec_to_bin(dec) !-------------------------------------------------------------------- ! implicit none integer, intent(in) :: dec integer :: convert_dec_to_bin integer :: bineq integer :: power integer :: temp bineq = 0 power = 0 temp = dec do while(temp > 0) bineq = bineq + (MOD(temp, 2) * (MOD(temp, 2) * (10 ** power))) power = power + 1 temp = temp / 2 enddo convert_dec_to_bin = bineq end function convert_dec_to_bin !-------------------------------------------------------------------- end module io !-------------------------------------------------------------------- \ No newline at end of file Index: trunk/HiggsSignals-2/example_programs/HBandHSwithFH.F =================================================================== --- trunk/HiggsSignals-2/example_programs/HBandHSwithFH.F (revision 585) +++ trunk/HiggsSignals-2/example_programs/HBandHSwithFH.F (revision 586) @@ -1,788 +1,896 @@ !-------------------------------------------------------------------- program HBandHSwithFH !-------------------------------------------------------------------- ! This example program is part of HiggsSignals (TS 06/03/2013). ! ! The program runs FeynHiggs (FH version > 2.9.4 required) to evaluate ! the partonic input of HiggsBounds/HiggsSignals for a example MSSM point. ! Then, we run HiggsBounds and HiggsSignals. ! ! Note: You have to set the correct FeynHiggs path in the configure file. ! Then, this example program can be compiled by running ! ! make HBandHSwithFH ! ! in the HiggsSignals main directory. !-------------------------------------------------------------------- use usefulbits_hs, only : HSres use STXS, only : print_STXS implicit none integer error c used by FHHiggsCorr double precision MHiggs(4) double complex SAeff, DeltaSAeff, UHiggs(3,3), ZHiggs(3,3) c used by FHSelectUZ: integer uzint, uzext, mfeff c used by FHCouplings: #include "FHCouplings.h" double complex couplings(ncouplings), couplingsms(ncouplingsms) double precision gammas(ngammas), gammasms(ngammasms) integer fast c used by FHHiggsProd: double precision sqrts, prodxs(nprodxs) c used by FHGetPara: integer nmfv c This is for FH 2.14.x double precision MSf(2,5,3), MASf(6,5), MCha(2), MNeu(4) double complex USf(2,2,5,3), UASf(6,6,5) double complex UCha(2,2), VCha(2,2), ZNeu(4,4) double complex DeltaMB double precision MGl, MHp double precision MHtree(4), SAtree double precision AlfasMT Cdouble precision MHiggs(4) Cdouble complex SAeff, DeltaSAeff, UHiggs(3,3), ZHiggs(3,3) c used by FHRetrieveSMPara: double precision invAlfa0,invAlfaMZ, AlfasMZ, GF double precision ME, MU, MD, MM, MC, MS, ML, MB double precision MW, MZ, GammaW, GammaZ double precision CKMlambda, CKMA, CKMrhobar, CKMetabar double precision RMUE, RAt, RM2 c used by initialize_HiggsBounds integer nHiggsneut,nHiggsplus parameter (nHiggsneut = 3) parameter (nHiggsplus = 1) character(LEN=5) whichanalyses c used by HiggsBounds_neutral_input_part double precision Mh(3),GammaTotal_hj(3) integer CP_value(3) double precision CS_hj_ratio(4,3), & CS_gg_hj_ratio(4,3),CS_bb_hj_ratio(4,3), & CS_hjW_ratio(4,3),CS_hjZ_ratio(4,3), & CS_vbf_ratio(4,3),CS_tthj_ratio(4,3), & CS_thj_tchan_ratio(4,3),CS_thj_schan_ratio(4,3), & CS_hjhi(4,3,3) double precision CS_ee_hjZ_ratio(3),CS_ee_bbhj_ratio(3), & CS_ee_tautauhj_ratio(3),CS_ee_hjhi_ratio(3,3) double precision BR_hjss(3),BR_hjcc(3), & BR_hjbb(3),BR_hjmumu(3),BR_hjtautau(3), & BR_hjWW(3),BR_hjZZ(3),BR_hjZga(3), & BR_hjgaga(3),BR_hjgg(3),BR_hjtt(3), & BR_hjinvisible(3),BR_hkhjhi(3,3,3),BR_hjhiZ(3,3), & BR_hjemu(3),BR_hjetau(3),BR_hjmutau(3),BR_hjHpiW(3,1) c used by HiggsBounds_charged_input double precision Mhplus(1),GammaTotal_Hpj(1), & CS_ee_HpjHmj_ratio(1), & BR_tWpb(1),BR_tHpjb(1), & BR_Hpjcs(1),BR_Hpjcb(1),BR_Hpjtaunu(1), & BR_Hpjtb(1),BR_HpjWZ(1),BR_HpjhiW(1,3),CS_Hpjtb(4) c used in HiggsBounds double precision dmhneut_hb(nHiggsneut) double precision dmhch_hb(nHiggsplus) c used in HiggsSignals (can be different) double precision dmhneut_hs(nHiggsneut) double precision obsratio_tmp,predratio_tmp integer HBresult_tmp,chan_tmp,ncombined_tmp c return values of run_HiggsBounds integer HBresult,chan,ncombined double precision obsratio -c used by set_rate_uncertainties in HiggsSignals - double precision dCS(5),dBR(5) - double precision dggh, dbbh - -c return values of run_HiggsSignals - double precision Chisq_mu, Chisq_mh, Chisq, Pvalue - integer nobs - + c run options in HiggsSignals - integer pdf, output_level, mass_centered_method,runmode + integer pdf, output_level,runmode double precision :: dmhneut(3) double precision :: dmhch(1) c HiggsSignals output - + double precision Chisq_mu, Chisq_mh, Chisq, Pvalue + integer nobs double precision Chisq_LHCRun1_mu,Chisq_LHCRun1_mh double precision Chisq_LHCRun1, Pvalue_LHCRun1 integer nobs_LHCRun1 double precision Chisq_STXS_rates, Chisq_STXS_mh double precision Chisq_STXS, Pvalue_STXS integer nobs_STXS integer ntotal, npeakmu, npeakmh, nmpred, nanalyses c misc: integer i,j,k,as,t, collider double precision norm,CW2,Pi double precision & g2hjbb(3),g2hjWW(3),g2hjZZ(3), & g2hjgg(3),g2hjhiZ_nHbynH(3,3) double precision g2hjbb_s(3),g2hjbb_p(3) double precision g2hjtautau_s(3),g2hjtautau_p(3) integer sneutrino_lspcandidate_number logical invisible_lsp double precision lspcandidate_mass Pi = 3.1415926535897932384626433832795029D0 !--------------------------------------- Run Options ------------------------------------! c The string 'whichanalyses' determines which subset of experimental c results are used. In this example, we've used the option 'LandH', c which instructs HiggsBounds to use tables of results c from LEP, Tevatron and LHC (i.e. the full set of c results supplied with HiggsBounds). whichanalyses='LandH' c Choose a Higgs mass parametrization for HiggsSignals c (1: box, 2:gaussian, 3:box+gaussian) pdf = 2 c Choose the output level of HiggsSignals c (0: silent, 1: screen output, 2: even more output,...) output_level = 0 c Set the HiggsSignals runmode (1: peak-centered, 2: mass-centered, 3: both) Chi^2 method(s) runmode = 1 - dmhneut = (/3.0D0, 0.0D0, 0.0D0/) + dmhneut = (/3.0D0, 3.0D0, 0.0D0/) dmhch = (/0.D0/) !---------------------------- HiggsBounds and HiggsSignals ------------------------------! c c If you would like to perform scans over variables, the subroutines c initialize_HiggsBounds, initialize_HiggsSignals (and finish_HiggsBounds, c finish HiggsSignals) should be called outside the do-loops in order to save time. c !---- Initialize HiggsBounds and specify the dataset it should use ----! call initialize_HiggsBounds(nHiggsneut,nHiggsplus,whichanalyses) !---- Initialize HiggsSignals and pass the name of the experimental analysis folder ----! call initialize_HiggsSignals(nHiggsneut,nHiggsplus,"LHC13") call HiggsBounds_set_mass_uncertainties(dmhneut,dmhch) call HiggsSignals_neutral_input_MassUncertainty(dmhneut) !------------------------------ HiggsSignals options ------------------------------------! !---- Set the output level ----! call setup_output_level(output_level) !---- Set the Higgs mass parametrization ----! call setup_pdf(pdf) C call setup_assignmentrange_massobservables(3.0D0) !---------------------------------- Run FeynHiggs ---------------------------------------! c the subroutines setFlags, setPara, setSLHA c are also contained in this file call setFlags * either use setPara to set the parameters directly * or use setSLHA to read them from an SLHA file - call setPara +! call setPara + call setPara_HH c call setSLHA("tmp.slha") call FHGetPara(error, nmfv, MSf, USf,MASf, UASf, & MCha, UCha, VCha, MNeu, ZNeu, DeltaMB, MGl, & MHtree, SAtree, AlfasMT) if( error .ne. 0 ) stop call FHHiggsCorr(error, MHiggs, SAeff, UHiggs, ZHiggs) if( error .ne. 0 ) stop c NOTE: we are setting uzint=uzext C mfeff=1 C uzint=2 C uzext=2 C call FHSelectUZ(error, uzint, uzext, mfeff) C if( error .ne. 0 ) stop fast=1 call FHCouplings(error, & couplings, couplingsms, gammas, gammasms, fast) if( error .ne. 0 ) stop call FHRetrieveSMPara(error, & invAlfa0, invAlfaMZ, AlfasMZ, GF, & ME, MU, MD, MM, MC, MS, ML, MB, & MW, MZ, GammaW, GammaZ, & CKMlambda, CKMA, CKMrhobar, CKMetabar) !--------------- Turn FeynHiggs results into HiggsBounds/Signals input ------------------! c Set variables needed by HiggsBounds (using results from FeynHiggs). c See HiggsBounds documentation for definition of variables used c as arguments to HiggsBounds_neutral_input_part and run_HiggsBounds c and FeynHiggs documentation for all other variables. c Note: It is slightly more accurate to use the subroutine HiggsBounds_neutral_input_part c rather than the subroutine HiggsBounds_neutral_input_effC because the SM branching ratios c used internally in HiggsBounds (from HDecay) are not identical to the SM branching c ratios used in FeynHiggs do i=1,3 Mh(i)=MHiggs(i) GammaTotal_hj(i) = GammaTot(i) BR_hjss(i) = BR(H0FF(i,4,2,2)) BR_hjcc(i) = BR(H0FF(i,3,2,2)) BR_hjbb(i) = BR(H0FF(i,4,3,3)) BR_hjmumu(i) = BR(H0FF(i,2,2,2)) BR_hjtautau(i) = BR(H0FF(i,2,3,3)) BR_hjtt(i) = BR(H0FF(i,3,3,3)) BR_hjWW(i) = BR(H0VV(i,4)) BR_hjgaga(i) = BR(H0VV(i,1)) BR_hjZga(i) = BR(H0VV(i,2)) BR_hjZZ(i) = BR(H0VV(i,3)) BR_hjgg(i) = BR(H0VV(i,5)) BR_hjHpiW(i,1) = 0.0D0 BR_hjemu(i) = BR(H0FF(i,2,1,2)) BR_hjetau(i) = BR(H0FF(i,2,1,3)) BR_hjmutau(i) = BR(H0FF(i,2,2,3)) if(GammaSM(H0FF(i,4,3,3)).le.0.0D0)then g2hjbb(i)=0.0D0 else g2hjbb(i)=Gamma(H0FF(i,4,3,3)) & /GammaSM(H0FF(i,4,3,3)) endif g2hjbb_s(i)=(abs(RCoupling(H0FF(i,4,3,3)) & /RCouplingSM(H0FF(i,4,3,3))+ & LCoupling(H0FF(i,4,3,3)) & /LCouplingSM(H0FF(i,4,3,3)))/2.0D0)**2.0D0 g2hjbb_p(i)=(abs(RCoupling(H0FF(i,4,3,3)) & /RCouplingSM(H0FF(i,4,3,3))- & LCoupling(H0FF(i,4,3,3)) & /LCouplingSM(H0FF(i,4,3,3)))/2.0D0)**2.0D0 g2hjtautau_s(i)=(abs(RCoupling(H0FF(i,2,3,3)) & /RCouplingSM(H0FF(i,2,3,3))+ & LCoupling(H0FF(i,2,3,3)) & /LCouplingSM(H0FF(i,2,3,3)))/2.0D0)**2.0D0 g2hjtautau_p(i)=(abs(RCoupling(H0FF(i,2,3,3)) & /RCouplingSM(H0FF(i,2,3,3))- & LCoupling(H0FF(i,2,3,3)) & /LCouplingSM(H0FF(i,2,3,3)))/2.0D0)**2.0D0 if( g2hjbb_p(i).lt.1.0D-10)then CP_value(i) = 1 elseif( g2hjbb_s(i).lt.1.0D-10)then CP_value(i) = -1 else CP_value(i) = 0 endif CS_ee_bbhj_ratio(i) = g2hjbb_s(i)+g2hjbb_p(i) CS_ee_tautauhj_ratio(i) = g2hjtautau_s(i)+g2hjtautau_p(i) g2hjWW(i)= dble( Coupling(H0VV(i,4)) & / CouplingSM(H0VV(i,4)) )**2.0D0 & + dimag( Coupling(H0VV(i,4)) & / CouplingSM(H0VV(i,4)) )**2.0D0 g2hjZZ(i)= dble( Coupling(H0VV(i,3)) & / CouplingSM(H0VV(i,3)) )**2.0D0 & + dimag( Coupling(H0VV(i,3)) & / CouplingSM(H0VV(i,3)) )**2.0D0 CS_ee_hjZ_ratio(i) = g2hjZZ(i) enddo norm=GF*sqrt(2.0D0)*MZ**2.0D0 do j=1,3 do i=1,3 g2hjhiZ_nHbynH(j,i)= ( & dble( Coupling(H0HV(j,i)) )**2.0D0 & + dimag( Coupling(H0HV(j,i)) )**2.0D0 & ) & /norm CS_ee_hjhi_ratio(j,i) = g2hjhiZ_nHbynH(j,i) BR_hjhiZ(j,i) = BR(H0HV(j,i)) do k=1,3 BR_hkhjhi(k,j,i) = BR(H0HH(k,j,i)) enddo enddo enddo c higgs->neutralino1 neutralino1 contributes the invisible Higgs decay width c when neutralino1 or sneutrino is the LSP do i=1,3 sneutrino_lspcandidate_number=0 invisible_lsp=.True. c first determine whether lightest sneutrino is lighter than the lightest neutralino c c sneutrino_lspcandidate_number=0 indicates that lightest neutralino is c lighter than all the sneutrinos lspcandidate_mass=MNeu(1) do as=1,3 if( MASf(as,1) .lt. lspcandidate_mass )then lspcandidate_mass=MASf(as,1) sneutrino_lspcandidate_number=as endif enddo if( MCha(1) .lt. lspcandidate_mass )then invisible_lsp=.False. elseif( MGl .lt. lspcandidate_mass )then invisible_lsp=.False. else do as=1,6 do t=2,4 if( MASf(as,t) .lt. lspcandidate_mass )then invisible_lsp=.False. endif enddo enddo endif if(invisible_lsp)then if(sneutrino_lspcandidate_number.eq.0)then BR_hjinvisible(i) = BR(H0NeuNeu(i,1,1)) else BR_hjinvisible(i) = BR(H0SfSf(i,1,1,1,as)) endif else BR_hjinvisible(i) = 0.0D0 endif enddo do j=1,4 select case(j) case(1) collider = 2 sqrts = 2.0D0 case(2) collider = 7 sqrts = 7.0D0 case(3) collider = 8 sqrts = 8.0D0 case(4) collider = 13 sqrts = 13.0D0 end select call FHHiggsProd(error, sqrts, prodxs) if( error .ne. 0 ) stop do i=1,3 CS_gg_hj_ratio(j,i) = ggh(i)/gghSM(i) CS_bb_hj_ratio(j,i) = bbh(i)/bbhSM(i) CS_hj_ratio(j,i) = (ggh(i)+bbh(i))/ & (gghSM(i)+bbhSM(i)) CS_vbf_ratio(j,i) = qqh(i)/qqhSM(i) CS_hjW_ratio(j,i) = Wh(i)/WhSM(i) CS_hjZ_ratio(j,i) = Zh(i)/ZhSM(i) CS_tthj_ratio(j,i) = tth(i)/tthSM(i) CS_thj_tchan_ratio(j,i) = tth(i)/tthSM(i) ! Use tth cross section here CS_thj_schan_ratio(j,i) = tth(i)/tthSM(i) ! Use tth cross section here enddo CS_Hpjtb(j) = tHm enddo * * * * * * * * * * * * * * * * * * * * * c Charged Higgs input Mhplus(1) = MHiggs(4) GammaTotal_Hpj(1) = GammaTot(4) CS_ee_HpjHmj_ratio(1) = 1.0D0 BR_tWpb(1) = BR( tBF(1) ) BR_tHpjb(1) = BR( tBF(2) ) BR_Hpjcs(1) = BR( HpFF(2,2,2) ) BR_Hpjcb(1) = BR( HpFF(2,2,3) ) BR_Hpjtaunu(1) = BR( HpFF(1,3,3) ) BR_Hpjtb(1) = BR( HpFF(2,3,3) ) BR_HpjWZ(1) = 0.0D0 do i=1,3 BR_HpjhiW(1,i) = BR( HpHV(i) ) enddo print*,' ' print*,'The Higgs boson masses are (h, H, A, H+):' print*,Mh,Mhplus !--------------------------------- Run HiggsBounds --------------------------------------! call HiggsBounds_neutral_input_properties(Mh, & GammaTotal_hj,CP_value) call HiggsBounds_neutral_input_SMBR(BR_hjss,BR_hjcc, & BR_hjbb,BR_hjtt,BR_hjmumu,BR_hjtautau,BR_hjWW, & BR_hjZZ,BR_hjZga,BR_hjgaga,BR_hjgg) call HiggsBounds_neutral_input_nonSMBR(BR_hjinvisible, & BR_hkhjhi,BR_hjhiZ, BR_hjemu,BR_hjetau,BR_hjmutau,BR_hjHpiW) call HiggsBounds_neutral_input_LEP(CS_ee_hjZ_ratio, & CS_ee_bbhj_ratio, CS_ee_tautauhj_ratio,CS_ee_hjhi_ratio) do i=1,4 select case(i) case(1) collider = 2 case(2) collider = 7 case(3) collider = 8 case(4) collider = 13 end select call HiggsBounds_neutral_input_hadr(collider,CS_hj_ratio(i,:), & CS_gg_hj_ratio(i,:),CS_bb_hj_ratio(i,:),CS_hjW_ratio(i,:), & CS_hjZ_ratio(i,:),CS_vbf_ratio(i,:),CS_tthj_ratio(i,:), & CS_thj_tchan_ratio(i,:),CS_thj_schan_ratio(i,:),CS_hjhi(i,:,:)) ! Only H+tb production can be calculated by FeynHiggs at the moment, set ! the other cross sections to zero (no experimental limits anyways, except on ! VBF->H+, which is zero in the MSSM.) call HiggsBounds_charged_input_hadr(collider, CS_Hpjtb(i), 0.0D0, & 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0) enddo call HiggsBounds_charged_input(Mhplus,GammaTotal_Hpj, & CS_ee_HpjHmj_ratio, BR_tWpb,BR_tHpjb,BR_Hpjcs,BR_Hpjcb, & BR_Hpjtaunu,BR_Hpjtb,BR_HpjWZ,BR_HpjhiW) * * * * * * * * * * * * * * * * * * * * * c call to run_HiggsBounds call run_HiggsBounds( HBresult,chan,obsratio,ncombined) write(*,*) ' ' write(*,*) '************* HiggsBounds Results **************' write(*,*) ' ' write(*,*) 'Is this parameter point excluded by LEP, Tevatron' write(*,*) 'or LHC data?' write(*,*) HBresult, ', where' write(*,*) ' 0 = yes, it is excluded' write(*,*) ' 1 = no, it has not been excluded' write(*,*) ' -1 = invalid parameter set' write(*,*) ' ' write(*,*) 'The process with the highest statistical sensitivity' write(*,*) 'is' write(*,*) chan,'(see Key.dat)' write(*,*) 'This process has a theoretical rate vs. limit of' write(*,*) obsratio write(*,*) ' ' write(*,*) 'The number of Higgs which have contributed to the' write(*,*) 'theoretical rate of this process was' write(*,*) ncombined write(*,*) ' ' call HiggsBounds_get_most_sensitive_channels_per_Higgs(1, & 1,HBresult_tmp,chan_tmp,obsratio_tmp,predratio_tmp, & ncombined_tmp) write(*,*) 'Detailed information about the most sensitive ', &'channels (per Higgs):' write(*,*) ' ' write(*,*) ' Higgs boson HBresult channel obsratio ', & ' predratio ncombined' write(*,'(A10,2I10,2F15.5,1I5)') ' h ',HBresult_tmp,chan_tmp, & obsratio_tmp,predratio_tmp, ncombined_tmp call HiggsBounds_get_most_sensitive_channels_per_Higgs(2, & 1,HBresult_tmp,chan_tmp,obsratio_tmp,predratio_tmp, & ncombined_tmp) write(*,'(A10,2I10,2F15.5,1I5)') ' H ',HBresult_tmp,chan_tmp, & obsratio_tmp, predratio_tmp, ncombined_tmp call HiggsBounds_get_most_sensitive_channels_per_Higgs(3, & 1,HBresult_tmp,chan_tmp,obsratio_tmp,predratio_tmp, & ncombined_tmp) write(*,'(A10,2I10,2F15.5,1I5)') ' A ',HBresult_tmp,chan_tmp, & obsratio_tmp, predratio_tmp, ncombined_tmp write(*,*) 'See HiggsBounds documentation for more information.' write(*,*) '****************************************************' write(*,*) ' ' !--------------------------------- Run HiggsSignals -------------------------------------! c Set the theory mass uncertainties. This will affect the Chi^2 contribution c from the mass measurements as well as the Higgs-to-peaks assignment in c HiggsSignals . C dmhneut_hs = (/2.D0, 0.D0, 0.D0/) C call HiggsSignals_neutral_input_MassUncertainty(dmhneut_hs) c Set the MSSM rate uncertainties: !---dCS and dBR hold the model's rate uncertainties. Can be changed by user !---with subroutine setup_rate_uncertainties. First, set to SM values. C dCS = (/ 0.147D0, 0.028D0, 0.037D0, 0.051D0, 0.12D0 /) C dBR = (/ 0.054D0, 0.048D0, 0.048D0, 0.061D0, 0.028D0 /) c Now, we set relative uncertainties for the processes gg->H and bb->H c and interpolate from the effective couplings/CS-ratios (of the lightest Higgs) c the uncertainty of single Higgs production, dCS(1). C dggh = 0.147D0 C dbbh = 0.200D0 C call get_singleH_uncertainty(dCS(1),dggh,dbbh,CS_gg_hj_ratio(1), C & g2hjbb_s(1)+g2hjbb_p(1),Mh(1)) C print*,"Interpolated singleH uncertainty (in %): ",dCS(1) C call setup_rate_uncertainties(dCS, dBR) !---- Run HiggsSignals ----! call run_HiggsSignals(runmode,Chisq_mu,Chisq_mh, & Chisq,nobs,Pvalue) call run_HiggsSignals_LHC_Run1_combination(Chisq_LHCRun1_mu, & Chisq_LHCRun1_mh, Chisq_LHCRun1, nobs_LHCRun1, Pvalue_LHCRun1) call run_HiggsSignals_STXS(Chisq_STXS_rates, Chisq_STXS_mh, & Chisq_STXS, nobs_STXS, Pvalue_STXS) call complete_HS_results() C call print_STXS() write(*,*) ' ' write(*,*) '************* HiggsSignals Results **************' write(*,*) ' ' write(*,'(A40,1F10.5,A, 1I4)') & "Chi^2 (signal strength obs.)/nobs = ", & Chisq_mu, " / ", HSres(1)%nobs_peak_mu write(*,'(A40,1F10.5,A, 1I4)') & "Chi^2 (STXS obs.)/nobs = ", & Chisq_STXS, " / ", HSres(1)%nobs_STXS_rates write(*,'(A40,1F10.5,A, 1I4)') & "Chi^2 (LHC-Run1 rate obs.)/nobs = ", & Chisq_LHCRun1_mu, " / ", HSres(1)%nobs_LHCRun1_mu write(*,'(A40,1F10.5,A, 1I4)') & "Chi^2 (mass obs.)/nobs = ", & Chisq_mh + Chisq_LHCRun1_mh + Chisq_STXS_mh, " / ", & HSres(1)%nobs_mh write(*,*) ' ' write(*,*) 'The total chi^2 is ', HSres(1)%Chisq write(*,*) 'The number of observables is ',HSres(1)%nobs C write(*,*) ' ' C write(*,*) 'In the case that the number of observables is equal' C write(*,*) 'to the number of degrees of freedom, this corresponds' C write(*,*) 'to a probability of' C write(*,*) Pvalue write(*,*) ' ' write(*,*) 'See HiggsSignals documentation for more information.' write(*,*) '****************************************************' write(*,*) ' ' !---------------------- Finish HiggsBounds and HiggsSignals -----------------------------! c deallocates arrays used by HiggsBounds: call finish_HiggsBounds call finish_HiggsSignals end ************************************************************************ subroutine setFlags implicit none integer mssmpart, fieldren, tanbren, higgsmix, p2approx integer looplevel, loglevel, runningMT, botResum, tlCplxApprox c Using default (recommended) values of all FH flags parameter (mssmpart = 4) parameter (fieldren = 0) parameter (tanbren = 0) parameter (higgsmix = 2) parameter (p2approx = 4) parameter (looplevel = 2) parameter (loglevel = 3) parameter (runningMT = 1) parameter (botResum = 1) - parameter (tlCplxApprox = 0) - +Cparameter (tlCplxApprox = 0) + parameter (tlCplxApprox = 1) integer error c Since FH 2.14: call FHSetFlags(error, mssmpart, higgsmix, p2approx, looplevel, & loglevel, runningMT, botResum, tlCplxApprox) if( error .ne. 0 ) stop end ************************************************************************ subroutine setPara implicit none double precision invAlfa0, invAlfaMZ, AlfasMZ, GF double precision ME, MU, MD, MM, MC, MS, ML, MB, MZ, MW double precision GammaW, GammaZ double precision CKMlambda, CKMA, CKMrhobar, CKMetabar parameter (invAlfa0 = -1) parameter (invAlfaMZ = -1) parameter (AlfasMZ = -1) parameter (GammaW = -1) parameter (GammaZ = -1) parameter (GF = -1) parameter (ME = -1) parameter (MU = -1) parameter (MD = -1) parameter (MM = -1) parameter (MC = -1) parameter (MS = -1) parameter (ML = -1) parameter (MB = -1) parameter (MW = -1) parameter (MZ = -1) parameter (CKMlambda = -1) parameter (CKMA = -1) parameter (CKMrhobar = -1) parameter (CKMetabar = -1) double precision MT, TB, MA0, MHp parameter (MT = 173.2) parameter (TB = 10.) parameter (MA0 = 500) parameter (MHp = -1) double precision MSusy double precision M3SL, M2SL, M1SL double precision M3SE, M2SE, M1SE double precision M3SQ, M2SQ, M1SQ double precision M3SU, M2SU, M1SU double precision M3SD, M2SD, M1SD parameter (MSusy = 2000) parameter (M3SL = MSusy) parameter (M2SL = M3SL) parameter (M1SL = M2SL) parameter (M3SE = MSusy) parameter (M2SE = M3SE) parameter (M1SE = M2SE) parameter (M3SQ = MSusy) parameter (M2SQ = M3SQ) parameter (M1SQ = M2SQ) parameter (M3SU = MSusy) parameter (M2SU = M3SU) parameter (M1SU = M2SU) parameter (M3SD = MSusy) parameter (M2SD = M3SD) parameter (M1SD = M2SD) double complex Atau, At, Ab double complex Amu, Ac, As double complex Ae, Au, Ad parameter (At = 2500) parameter (Ab = At) parameter (Atau = At) parameter (Ac = At) parameter (As = Ab) parameter (Amu = Atau) parameter (Au = Ac) parameter (Ad = As) parameter (Ae = Amu) double complex MUE, M_1, M_2, M_3 parameter (MUE = 200) parameter (M_1 = 100) parameter (M_2 = 200) parameter (M_3 = 800) double precision Qtau, Qt, Qb parameter (Qtau = 0) parameter (Qt = 0) parameter (Qb = 0) double precision scalefactor parameter (scalefactor = 1) integer error call FHSetSMPara(error, & invAlfa0, invAlfaMZ, AlfasMZ, GF, & ME, MU, MD, MM, MC, MS, ML, MB, & MW, MZ, GammaW, GammaZ, & CKMlambda, CKMA, CKMrhobar, CKMetabar) if( error .ne. 0 ) stop call FHSetPara(error, scalefactor, & MT, TB, MA0, MHp, & M3SL, M3SE, M3SQ, M3SU, M3SD, & M2SL, M2SE, M2SQ, M2SU, M2SD, & M1SL, M1SE, M1SQ, M1SU, M1SD, & MUE, & Atau, At, Ab, & Amu, Ac, As, & Ae, Au, Ad, & M_1, M_2, M_3, & Qtau, Qt, Qb) if( error .ne. 0 ) stop end ************************************************************************ + + subroutine setPara_HH + implicit none + + double precision invAlfa0, invAlfaMZ, AlfasMZ, GF + double precision ME, MU, MD, MM, MC, MS, ML, MB, MZ, MW + double precision GammaW, GammaZ + double precision CKMlambda, CKMA, CKMrhobar, CKMetabar + + parameter (invAlfa0 = -1) + parameter (invAlfaMZ = -1) + parameter (AlfasMZ = -1) + parameter (GammaW = -1) + parameter (GammaZ = -1) + parameter (GF = -1) + parameter (ME = -1) + parameter (MU = -1) + parameter (MD = -1) + parameter (MM = -1) + parameter (MC = -1) + parameter (MS = -1) + parameter (ML = -1) + parameter (MB = -1) + parameter (MW = -1) + parameter (MZ = -1) + parameter (CKMlambda = -1) + parameter (CKMA = -1) + parameter (CKMrhobar = -1) + parameter (CKMetabar = -1) + + double precision MT, TB, MA0, MHp + parameter (MT = 172.5) + parameter (TB = 5.3) + parameter (MA0 = -1) + parameter (MHp = 170) + + double precision MSusy + double precision M3SL, M2SL, M1SL + double precision M3SE, M2SE, M1SE + double precision M3SQ, M2SQ, M1SQ + double precision M3SU, M2SU, M1SU + double precision M3SD, M2SD, M1SD + parameter (MSusy = 2000) + parameter (M3SL = MSusy) + parameter (M2SL = M3SL) + parameter (M1SL = M2SL) + parameter (M3SE = MSusy) + parameter (M2SE = M3SE) + parameter (M1SE = M2SE) + parameter (M3SQ = 710.) + parameter (M2SQ = MSusy) + parameter (M1SQ = M2SQ) + parameter (M3SU = M3SQ) + parameter (M2SU = MSusy) + parameter (M1SU = M2SU) + parameter (M3SD = M3SQ) + parameter (M2SD = MSusy) + parameter (M1SD = M2SD) + + double complex Atau, At, Ab + double complex Amu, Ac, As + double complex Ae, Au, Ad + parameter (At = 461.5) + parameter (Ab = At) + parameter (Atau = At) + parameter (Ac = At) + parameter (As = Ab) + parameter (Amu = Atau) + parameter (Au = Ac) + parameter (Ad = As) + parameter (Ae = Amu) + + double complex MUE, M_1, M_2, M_3 + parameter (MUE = 5870) + parameter (M_1 = 635) + parameter (M_2 = 1000) + parameter (M_3 = 2500) + + double precision Qtau, Qt, Qb + parameter (Qtau = 0) + parameter (Qt = 0) + parameter (Qb = 0) + + double precision scalefactor + parameter (scalefactor = 1) + + integer error + + call FHSetSMPara(error, + & invAlfa0, invAlfaMZ, AlfasMZ, GF, + & ME, MU, MD, MM, MC, MS, ML, MB, + & MW, MZ, GammaW, GammaZ, + & CKMlambda, CKMA, CKMrhobar, CKMetabar) + + if( error .ne. 0 ) stop + + call FHSetPara(error, scalefactor, + & MT, TB, MA0, MHp, + & M3SL, M3SE, M3SQ, M3SU, M3SD, + & M2SL, M2SE, M2SQ, M2SU, M2SD, + & M1SL, M1SE, M1SQ, M1SU, M1SD, + & MUE, + & Atau, At, Ab, + & Amu, Ac, As, + & Ae, Au, Ad, + & M_1, M_2, M_3, + & Qtau, Qt, Qb) + if( error .ne. 0 ) stop + end + + +************************************************************************ + subroutine setSLHA(filename) implicit none character*(*) filename #include "SLHA.h" integer error double complex slhadata(nslhadata) call SLHARead(error, slhadata, filename, 1) if( error .ne. 0 ) stop call FHSetSLHA(error, slhadata) if( error .ne. 0 ) stop end !************************************************************** subroutine get_singleH_uncertainty(dCS,dggh,dbbh,g2hgg,g2hbb,mh) use theory_colliderSfunctions implicit none double precision dCS double precision dggh, dbbh, g2hgg, g2hbb, mh double precision vsmall vsmall=1.0D-10 if(g2hgg.le.vsmall.and.g2hbb.le.vsmall) then dCS = 0.0D0 else dCS=(g2hgg*LHC8_rH_gg(mh)*dggh+ & g2hbb*LHC8_rH_bb(mh)*dbbh)/ & (g2hgg*LHC8_rH_gg(mh)+g2hbb*LHC8_rH_bb(mh)) endif end !************************************************************** Index: trunk/HiggsSignals-2/example_programs/HSwithSLHA.f90 =================================================================== --- trunk/HiggsSignals-2/example_programs/HSwithSLHA.f90 (revision 585) +++ trunk/HiggsSignals-2/example_programs/HSwithSLHA.f90 (revision 586) @@ -1,189 +1,191 @@ !-------------------------------------------------------------------------------------- program HSwithSLHA !-------------------------------------------------------------------------------------- ! This example program is part of HiggsSignals (TS 29/01/2013). ! ! In this example we demonstrate how HiggsSignals can be run on SLHA files. The SLHA ! file has to contain the two HiggsBounds SLHA input blocks ! HiggsBoundsInputHiggsCouplingsBosons ! HiggsBoundsInputHiggsCouplingsFermions ! (see HiggsBounds (version 3 or more) manual for more details) ! ! Run with ! ./HSwithSLHA npoints ! where npoints is the number of parameter points you would like to ! look at and each parameter point has a corresponding SLHA file ! e.g. the corresponding SLHA for the 5th point should be found at ! .5 ! ! Output: ! The HiggsSignals SLHA output blocks will be added to each SLHA file. ! The results are summarized in an additional file -fromHS ! ! We furthermore demonstrate how to get the signal rates directly from HiggsSignals ! after a successful run. !-------------------------------------------------------------------------------------- use io, only : HiggsSignals_SLHA_output, get_peakinfo_from_HSresults use pc_chisq, only : print_cov_mu_to_file, print_peaks_to_file implicit none integer :: nH,nHplus,nobs_peak, nobs_STXS, nobs_LHCRun1 double precision :: Pvalue_peak, Chisq_peak, Chisq_peak_mu, Chisq_peak_mh double precision :: Pvalue_STXS, Chisq_STXS, Chisq_STXS_rates, Chisq_STXS_mh double precision :: Pvalue_LHCRun1, Chisq_LHCRun1, Chisq_LHCRun1_mu, Chisq_LHCRun1_mh double precision :: R_H_WW, R_H_ZZ, R_H_gaga, R_H_tautau, R_H_bb, R_VH_bb, & & totalrate, ggf_rate, hgaga_rate, gghgg_rate double precision, allocatable :: dMh(:), masses(:), dmasses(:) integer :: i,npoints integer,parameter :: fileid=78, fileid2=79 character(len=8) :: istring character(len=300) :: inputfilename,outputfilename character(len=300) :: stem character(LEN=300) :: temp, tmpstring integer :: number_args, ios !-------------------------------------------------------------------------------------- nH=3 nHplus=1 allocate(dMh(nH),masses(nH),dmasses(nH)) ! These are default values. In SLHA mode, these values are read in from the Block "DMASS". dMh = (/ 2.0D0, 2.0D0, 0.0D0 /) !----------------------------------- preprocessing --------------------------------------! number_args = IARGC() if( number_args .ne. 2)then stop "Incorrect number of arguments given to HSwithSLHA" endif ! Read arguments into text strings. i=1 temp="" call GETARG(i,temp) read(temp,*) npoints i=i+1 temp="" call GETARG(i,temp) stem = "" stem = trim(temp) !------------------------------ HiggsSignals options ------------------------------------! !---- Initialize HiggsSignals and pass the name of the experimental analysis folder ----! call initialize_HiggsSignals(nH,nHplus,"LHC13") !---- Set the output level (0: silent, 1: screen output, 2: even more output,...) ----! call setup_output_level(1) !---- Set the Higgs mass parametrization (1: box, 2:gaussian, 3:box+gaussian) ----! call setup_pdf(2) + !---- Set number of free model parameters (used for p-value calculation only) ----! + call setup_nparam(0) !---- Set the assignment range for the peak-centered method (optional) ----! ! call setup_assignmentrange_massobservables(2.0D0) !---- If the mass-centered chi^2 method is used, can specify the dm_theory treatment ----! ! 1: mass variation, 2: smearing of mu-plot with mass pdf ! call setup_mcmethod_dm_theory(1) !---- Use symmetric rate errors? (0: original(default), 1: averaged-symmetrical) ----! ! call setup_symmetricerrors(0) !---- Are SM rate uncertainties included in signal strength measurements? ----! ! (0: no, 1: yes(default) ) ! call setup_thu_observables(1) !---- Allow anti-correlated signal strength measurements? (0: no, 1: yes(default) ) ----! ! call setup_anticorrelations_in_mu(1) !---- outputfilename=trim(adjustl(stem))//'-fromHS' open(fileid, file=trim(outputfilename)) do i=1,npoints if(i.gt.99999999)stop'need to increase the size of istring in HSwithSLHA' write(istring,'(I8)')i inputfilename=trim(adjustl(stem))//'.'//trim(adjustl(istring)) !--Test if input file exists and is non-empty open(fileid2, file=inputfilename, form='formatted') read(fileid2,'(A)',iostat=ios) tmpstring if(ios.eq.0) then close(fileid2) !-------------------------------- HiggsSignals run --------------------------------------! !---- Feed HiggsSignals with the the model input using HiggsBounds subroutine ----! call HiggsBounds_input_SLHA(inputfilename) !---- Checking the Higgs mass uncertainty ----! ! The theoretical Higgs mass uncertainties are read in from the SLHA Block "DMASS" ! in the call of the subroutine HiggsBounds_input_SLHA. If the block "DMASS" is absent, ! they are set to zero. If the user wants to change the values obtained from the SLHA ! file, he/she can call the subroutine ! HiggsSignals_neutral_input_MassUncertainty ! AFTER reading in the SLHA file. ! Here, we only print out the values which have been stored already in ! HiggsBounds/HiggsSignals. If their sum is <= zero, the Block DMASS was probably absent ! and we set the default values as specified above. ! call get_neutral_Higgs_masses(masses, dmasses) write(*,*) "Neutral Higgs boson mass spectrum (from SLHA): " write(*,'(2X,A,F8.2,A,F4.2)') "mass(h0) = ",masses(1)," +- ",dmasses(1) write(*,'(2X,A,F8.2,A,F4.2)') "mass(H0) = ",masses(2)," +- ",dmasses(2) write(*,'(2X,A,F8.2,A,F4.2)') "mass(A0) = ",masses(3)," +- ",dmasses(3) if(sum(dmasses).le.0.0D0) then write(*,*) "BLOCK DMASS not found, changing mass uncertainies to ", dMh call HiggsSignals_neutral_input_MassUncertainty(dMh) endif !---- Run HiggsSignals on peak observables (13 TeV) call run_HiggsSignals(1,Chisq_peak_mu,Chisq_peak_mh,Chisq_peak,nobs_peak,Pvalue_peak) !---- Run HiggsSignals on STXS observables (13 TeV) call run_HiggsSignals_STXS(Chisq_STXS_rates,Chisq_STXS_mh,Chisq_STXS,nobs_STXS,Pvalue_STXS) !---- Run HiggsSignals on LHC Run 1 observables (7/8 TeV) call run_HiggsSignals_LHC_Run1_combination(Chisq_LHCRun1_mu,Chisq_LHCRun1_mh,& & Chisq_LHCRun1, nobs_LHCRun1, Pvalue_LHCRun1) call complete_HS_results() !----------------------------- HiggsSignals output --------------------------------------! !---- Attach HiggsSignals SLHA blocks to SLHA file ----! ! integer argument gives level of details: ! 0 : writes only HiggsSignalsResults block ! else : writes all blocks call HiggsSignals_SLHA_output(0) !---- Now, some examples of how to read out the signal rates. Note, that these subroutines ! have to be called after run_HiggsSignals ! !---- Get signal-rate ratios (without efficiencies) for lightest Higgs boson and LHC13----! call get_Rvalues(1, 4, R_H_WW, R_H_ZZ, R_H_gaga, R_H_tautau, R_H_bb, R_VH_bb) !---- Get the total signal rate (without efficiencies) ----! ! call get_rates(1,3,25,(/11,12,13,14,15,21,22,23,24,25,31,32,33,34,35, & ! & 41,42,43,44,45,51,52,53,54,55/),totalrate) call get_rates_str(1,4,25,(/"1.1","1.2","1.3","1.4","1.5","2.1","2.2","2.3","2.4","2.5",& & "3.1","3.2","3.3","3.4","3.5","4.1","4.2","4.3","4.4","4.5","5.1","5.2","5.3","5.4",& & "5.5"/),totalrate) !---- Get the gluon gluon fusion rate (without efficiencies) ----! ! call get_rates(1,3,1,(/10/),ggf_rate) call get_rates_str(1,4,1,(/"1.0"/),ggf_rate) !---- Get the H -> gamma gamma rate (without efficiencies) ----! ! call get_rates(1,3,1,(/01/),hgaga_rate) call get_rates_str(1,4,1,(/"0.1"/),hgaga_rate) ! NEW SINCE HiggsSignals-1.1.0: more decay modes accessible via get_rates: ! Decay mode ID (Final state): 6 (Zgamma), 7 (cc), 8 (mumu), 9 (gg) !---- Get the gg->H->gg (without efficiencies) ----! ! call get_rates(1,3,1,(/19/),gghgg_rate) call get_rates_str(1,4,1,(/"1.9"/),gghgg_rate) write(*,'(A,F10.4)') "R_H_WW = ", R_H_WW write(*,'(A,F10.4)') "R_H_ZZ = ", R_H_ZZ write(*,'(A,F10.4)') "R_H_gaga = ", R_H_gaga write(*,'(A,F10.4)') "R_H_tautau = ", R_H_tautau write(*,'(A,F10.4)') "R_H_bb = ", R_H_bb write(*,'(A,F10.4)') "R_VH_bb = ", R_VH_bb write(*,'(A,F10.4)') "totalrate = ", totalrate write(*,'(A,F10.4)') "ggf_rate = ", ggf_rate write(*,'(A,F10.4)') "h->gaga = ", hgaga_rate write(*,'(A,F10.4)') "gg->h->gg = ", gghgg_rate !--This will collect the main HiggsSignals results together into one file write(fileid,*) i,Chisq_peak_mu+Chisq_STXS_rates+Chisq_LHCRun1_mu,& & Chisq_peak_mh+Chisq_STXS_mh+Chisq_LHCRun1_mh,& & nobs_peak+nobs_STXS+nobs_LHCRun1 else close(fileid2) call system("rm -f "//inputfilename) endif enddo close(fileid) ! call print_peaks_to_file ! call print_cov_mu_to_file call finish_HiggsSignals end program HSwithSLHA \ No newline at end of file Index: trunk/HiggsSignals-2/example_programs/HSwithToys.f90 =================================================================== --- trunk/HiggsSignals-2/example_programs/HSwithToys.f90 (revision 585) +++ trunk/HiggsSignals-2/example_programs/HSwithToys.f90 (revision 586) @@ -1,208 +1,216 @@ !-------------------------------------------------------------------------------------- program HSwithToys ! ! This example program is part of HiggsSignals (TS 25/01/2013). !-------------------------------------------------------------------------------------- ! This example program shows how HiggsSignals (HS) can be run on toy experiments. We ! first run HS with SM input with a Higgs mass of 126 GeV. From the result of this ! run we can obtain the predicted signal strength modifiers for each peak observable ! directly from HiggsSignals. As a demonstration, these are then set as observed (toy) ! signal rates of the various observables. We then re-run HiggsSignals on the new ! observables on the same model, i.e. observed and predicted signal rates are equal, ! thus the resulting chi^2 should be zero. !-------------------------------------------------------------------------------------- use theory_colliderSfunctions use usefulbits, only : vsmall use usefulbits_hs,only : analyses use pc_chisq, only : print_peaks_to_LaTeX,print_cov_mu_to_file use io, only : get_peakinfo_from_HSresults, get_number_of_observables,& & get_ID_of_peakobservable, HiggsSignals_create_SLHA_output,& & HiggsSignals_create_SLHA_output_default implicit none integer :: nH,nHplus,ndf, ii, jj, kk double precision :: Chisq, Chisq_mu, Chisq_mh, Pvalue ! double precision, allocatable :: dMh(:) ! double precision :: dCS(5),dBR(5),dggh, dbbh double precision :: SMGamma_h, dMh double precision :: Mh,GammaTotal,ghjss_s,ghjss_p,ghjcc_s,ghjcc_p, & & ghjbb_s,ghjbb_p,ghjtt_s,ghjtt_p, & & ghjmumu_s,ghjmumu_p,ghjtautau_s,ghjtautau_p, & & ghjWW,ghjZZ,ghjZga,ghjgaga,ghjgg, & & ghjhiZ - double precision :: mupred + double precision :: mupred, scale integer :: domH, nHcomb integer :: ntotal, npeakmu, npeakmh, nmpred, nanalyses, ID integer :: i,npoints character(len=8) :: istring character(len=300) :: inputfilename,outputfilename character(len=300) :: stem character(LEN=300) :: temp integer :: number_args, stat double precision :: SMCS_lhc13_gg_H,SMCS_lhc13_bb_H,SMCS_lhc13_vbf_H,& & SMCS_lhc13_HW, SMCS_lhc13_HZ, SMCS_lhc13_ttH,SMBR_Hbb,SMBR_Hmumu,SMBR_Htautau,& & SMBR_HWW,SMBR_HZZ double precision :: Chisq_peak_mu, Chisq_peak_mh, Chisq_peak, Pvalue_peak double precision :: Chisq_STXS_rates, Chisq_STXS_mh, Chisq_STXS, Pvalue_STXS double precision :: Chisq_LHCRun1_mu, Chisq_LHCRun1_mh, Chisq_LHCRun1, Pvalue_LHCRun1 integer :: nobs_STXS, nobs_peak, nobs_LHCRun1 nH=1 nHplus=0 Mh = 125.09D0 dMh = 0.0D0 !-------------------------- HiggsSignals ------------------------------! !---- Initialize HiggsSignals and pass the name of the experimental analysis folder ----! call initialize_HiggsSignals(nH,nHplus,"LHC13") ! call initialize_HiggsSignals(nH,nHplus,"latestresults-1.4.0-LHCinclusive") ! call setup_thu_observables(1) !---- Set the Higgs mass parametrization (1: box, 2:gaussian, 3:box+gaussian) ----! call setup_pdf(2) !---- Set the output level (0: silent, 1: screen output, 2: even more output,...) ----! - call setup_output_level(3) + call setup_output_level(0) !---- Pass the Higgs mass uncertainty to HiggsSignals ----! call HiggsSignals_neutral_input_MassUncertainty(dMh) !---- Use symmetric rate errors? (0: original(default), 1: averaged-symmetrical) ----! ! call setup_symmetricerrors(0) !---- Allow anti-correlated signal strength measurements? (0: no, 1: yes(default) ) ----! ! call setup_anticorrelations_in_mu(1) !---- Setup a wider assignment range ----! -! call setup_assignmentrange_massobservables(4.0D0) + call setup_assignmentrange_massobservables(1.0D0) ! call setup_assignmentrange_LHCRun1(10.0D0) write(*,*) 'gg->H = ', SMCS_lhc13_gg_H(Mh) write(*,*) 'bb->H = ', SMCS_lhc13_bb_H(Mh) write(*,*) 'pp->H = ', SMCS_lhc13_gg_H(Mh)+SMCS_lhc13_bb_H(Mh) write(*,*) 'pp->Hqq = ', SMCS_lhc13_vbf_H(Mh) write(*,*) 'pp->HW = ', SMCS_lhc13_HW(Mh) write(*,*) 'pp->HZ = ', SMCS_lhc13_HZ(Mh) write(*,*) 'pp->Htt = ', SMCS_lhc13_ttH(Mh) write(*,*) 'BR(H->bb) = ', SMBR_Hbb(Mh) write(*,*) 'BR(H->mumu) = ', SMBR_Hmumu(Mh) write(*,*) 'BR(H->tautau) = ', SMBR_Htautau(Mh) write(*,*) 'BR(H->WW) = ', SMBR_HWW(Mh) write(*,*) 'BR(H->ZZ) = ', SMBR_HZZ(Mh) !----HiggsBounds/Signals effective couplings input. ! These have to be inserted for the model which we want to test, i.e. we would have ! to write an interface to set via arguments in the executables call, or reading ! in a text file, etc. !----For now, we set them by hand to the SM values (for demonstration): - ghjss_s=1d0 + do i=1,101 + scale = 0.9D0 + (i-1)*0.002D0 +! scale = 1.0D0 + ghjss_s=scale ghjss_p=0d0 - ghjcc_s=1d0 + ghjcc_s=scale ghjcc_p=0d0 - ghjbb_s=1d0 + ghjbb_s=scale ghjbb_p=0d0 - ghjtt_s=1d0 + ghjtt_s=scale ghjtt_p=0d0 - ghjmumu_s=1d0 + ghjmumu_s=scale ghjmumu_p=0d0 - ghjtautau_s=1d0 + ghjtautau_s=scale ghjtautau_p=0d0 - ghjWW=1d0 - ghjZZ=1d0 - ghjZga=1d0 - ghjgaga=1d0 - ghjgg=1d0 + ghjWW=scale + ghjZZ=scale + ghjZga=scale + ghjgaga=scale + ghjgg=scale ghjhiZ=0d0 - GammaTotal=SMGamma_h(Mh) + GammaTotal=scale**2.0D0*SMGamma_h(Mh) call HiggsBounds_neutral_input_properties(Mh,GammaTotal) call HiggsBounds_neutral_input_effC( & & ghjss_s,ghjss_p,ghjcc_s,ghjcc_p, & & ghjbb_s,ghjbb_p,ghjtt_s,ghjtt_p, & & ghjmumu_s,ghjmumu_p, & & ghjtautau_s,ghjtautau_p, & & ghjWW,ghjZZ,ghjZga, & & ghjgaga,ghjgg,ghjhiZ) !-Run HS on the original experimental data in order to evaluate the model predictions call run_HiggsSignals(1, Chisq_peak_mu, Chisq_peak_mh, Chisq_peak, nobs_peak, & & Pvalue_peak) call run_HiggsSignals_LHC_Run1_combination(Chisq_LHCRun1_mu, Chisq_LHCRun1_mh, & & Chisq_LHCRun1, nobs_LHCRun1, Pvalue_LHCRun1) call run_HiggsSignals_STXS(Chisq_STXS_rates, Chisq_STXS_mh, Chisq_STXS,& & nobs_STXS, Pvalue_STXS) call complete_HS_results() - write(*,*) "#--------------------------------------------------#" - write(*,*) " Results for SM Higgs boson (M=",Mh,") with original data:" - write(*,*) "#--------------------------------------------------#" - write(*,*) " Chi^2_mu (peak, STXS, LHC-run1):" , Chisq_peak_mu, Chisq_STXS_rates, Chisq_LHCRun1_mu - write(*,*) " Chi^2_mh (peak, STXS, LHC-run1):" , Chisq_peak_mh, Chisq_STXS_mh, Chisq_LHCRun1_mh - write(*,*) " Nobs (peak, STXS, LHC-run1)", nobs_peak, nobs_STXS, nobs_LHCRun1 - write(*,*) "#--------------------------------------------------#" +! write(*,*) "#--------------------------------------------------#" +! write(*,*) " Results for SM Higgs boson (M=",Mh,") with original data:" +! write(*,*) "#--------------------------------------------------#" +! write(*,*) " Chi^2_mu (peak, STXS, LHC-run1):" , Chisq_peak_mu, Chisq_STXS_rates, Chisq_LHCRun1_mu +! write(*,*) " Chi^2_mh (peak, STXS, LHC-run1):" , Chisq_peak_mh, Chisq_STXS_mh, Chisq_LHCRun1_mh +! write(*,*) " Nobs (peak, STXS, LHC-run1)", nobs_peak, nobs_STXS, nobs_LHCRun1 +! write(*,*) "#--------------------------------------------------#" + + write(*,*) scale, Chisq_peak_mu+ Chisq_STXS_rates+ Chisq_LHCRun1_mu !-Print out the observables to a LaTeX table ! call print_peaks_to_LaTeX ! call print_cov_mu_to_file !-- Now, we modify the peak observables by toy-values (in this example, toy values are the SM predictions!) + enddo + write(*,*) "Setting Toy measurements (here: use SM predictions as toy measurements)" + !-Get the number of the peak-observables (Don't care about ntotal, npeakmh, nmpred, nanalyses) call get_number_of_observables(ntotal, npeakmu, npeakmh, nmpred, nanalyses) !-We now want to set the measurements to those values predicted by the model. !-The mass measurement for each peak observable will be set to Mh here. !-Loop over the number of peak observables do kk=1,npeakmu !--Get for each peak observable its unique ID: call get_ID_of_peakobservable(kk, ID) !--Get the predicted signal strength modifier (mupred) for this peak observable: call get_peakinfo_from_HSresults(ID, mupred, domH, nHcomb) !--Assign this value as (toy) measurement for this peak observable: call assign_toyvalues_to_peak(ID, mupred, Mh) enddo call setup_output_level(0) !-Do a print-out to the screen !-Set the HiggsSignals input (again!) call HiggsBounds_neutral_input_effC( & & ghjss_s,ghjss_p,ghjcc_s,ghjcc_p, & & ghjbb_s,ghjbb_p,ghjtt_s,ghjtt_p, & & ghjmumu_s,ghjmumu_p, & & ghjtautau_s,ghjtautau_p, & & ghjWW,ghjZZ,ghjZga, & & ghjgaga,ghjgg,ghjhiZ) !-Now, we run on the toy observables with the same input, i.e. model predictions and !-measurements are equal and thus the chi^2 should be zero. call run_HiggsSignals(1, Chisq_peak_mu, Chisq_peak_mh, Chisq_peak, nobs_peak, & & Pvalue_peak) call run_HiggsSignals_LHC_Run1_combination(Chisq_LHCRun1_mu, Chisq_LHCRun1_mh, & & Chisq_LHCRun1, nobs_LHCRun1, Pvalue_LHCRun1) call run_HiggsSignals_STXS(Chisq_STXS_rates, Chisq_STXS_mh, Chisq_STXS,& & nobs_STXS, Pvalue_STXS) call complete_HS_results() !-Create a new SLHA file with the HiggsSignals output blocks. !-The second argument controls how much is written ! (0: only the BLOCK 'HiggsSignalsResults', 1: full HiggsSignals SLHA output) !-The new file must not exist: ! (note: this system call does not work with ifort) call system('rm -f results/HSwithToys.slha',status=stat) call HiggsSignals_create_SLHA_output("results/HSwithToys.slha",0) !-Alternatively, we could use ! call HiggsSignals_create_SLHA_output_default(0) !-where the filename is set to "HS-output.slha". call finish_HiggsSignals end program HSwithToys !-------------------------------------------------------------------------------------- Index: trunk/HiggsSignals-2/configure =================================================================== --- trunk/HiggsSignals-2/configure (revision 585) +++ trunk/HiggsSignals-2/configure (revision 586) @@ -1,78 +1,78 @@ #! /bin/sh #configure script for HiggsSignals #last modified 16.07.12 TS # this tells the fortran program where to look to read in tables of experimental data chmod u+x ./create_store_pathname_HS.bat ./create_store_pathname_HS.bat > store_pathname_HS.f90 echo 'running configure script...' 1>&2 echo ' * * * ' echo 'Reminder: You must enter manually the correct path to HiggsBounds in the ' echo 'configure script. Also, you may need/wish to change the fortran compiler used. ' echo 'The default is gfortran.' echo ' * * * ' #---------------------------- cat - makefile.in > makefile << _EOF_ # --- variables defined by configure --- # If you want to edit these variables, change ./configure, not ./makefile #---------------------------- # Put you favourite compiler and compiler options in here: F90C = gfortran F77C = gfortran F90FLAGS = -fbounds-check # F90FLAGS = -fbounds-check -Wall -W -fcheck=all # F90FLAGS = -O2 -fimplicit-none -Wall -Wline-truncation -Wcharacter-truncation -Wsurprising -Waliasing -Wimplicit-interface -Wunused-parameter -fwhole-file -fcheck=all -std=f2008 -pedantic -fbacktrace HBLIBS =-L/Users/timstefaniak/Work/HiggsBounds/trunk/HiggsBounds-5 HBINCLUDE =-I/Users/timstefaniak/Work/HiggsBounds/trunk/HiggsBounds-5 -FHLIBS = -L/Users/timstefaniak/Work/Codes/FeynHiggs-2.14.0/x86_64-Darwin/lib -lFH -FHINCLUDE = -I/Users/timstefaniak/Work/Codes/FeynHiggs-2.14.0/x86_64-Darwin/include +FHLIBS = -L/Users/timstefaniak/Work/Codes/FeynHiggs-2.14.3/x86_64-Darwin/lib -lFH +FHINCLUDE = -I/Users/timstefaniak/Work/Codes/FeynHiggs-2.14.3/x86_64-Darwin/include #other useful gfortran flags: # -pg can then use gprof ./programname to look at how efficient program is # -fopenmp switches on parallel processing (see HiggsBounds.F90) # -O3 sets a high level of optimisation #F90C = gfortran #F77C = gfortran #F90FLAGS = -fbounds-check -Wall -W -fixed-line-length-none #F90C = g95 #F77C = g95 #F90FLAGS = -fbounds-check -ffree-line-length-huge #F90C = pgf90 #F77C = pgf90 #F90FLAGS = -C -Ktrap=fp -Mbounds #F90C = f95 #F77C = f95 #F90FLAGS = -C #F90C = ifort #F77C = ifort #F90FLAGS = #if using the NAG compiler, you need the compiler flag -DNAGf90Fortran #because the subroutines flush,iargc,getarg need to use modules #caution: the use of the NAG compiler is unsupported HSLIBS = -L./ -lHS EXE = HiggsSignals #----------------------------- _EOF_ echo 'finished configure script' 1>&2 Index: trunk/HiggsSignals-2/example_data/SLHA/MSSMexample.fh.1 =================================================================== --- trunk/HiggsSignals-2/example_data/SLHA/MSSMexample.fh.1 (revision 585) +++ trunk/HiggsSignals-2/example_data/SLHA/MSSMexample.fh.1 (revision 586) @@ -1,481 +1,481 @@ BLOCK SPINFO 1 FeynHiggs 2 2.14.3 2 built on Aug 01, 2018 BLOCK MODSEL 1 0 # Model 2 1 # GridPts 3 0 # Content 4 0 # RPV 5 0 # CPV 6 0 # FV BLOCK SMINPUTS 1 1.28952896E+02 # invAlfaMZ 2 1.16637002E-05 # GF 3 1.18000000E-01 # AlfasMZ 4 9.11876000E+01 # MZ 5 4.17999983E+00 # Mb 6 1.72500000E+02 # Mt 7 1.77703000E+00 # Mtau 11 5.10998902E-04 # Me 13 1.05658357E-01 # Mmu 21 6.00000000E-03 # Md 22 3.00000000E-03 # Mu 23 9.50000000E-02 # Ms 24 1.28600000E+00 # Mc BLOCK MINPAR 3 2.00000000E+01 # TB BLOCK EXTPAR 0 0.00000000E+00 # Q 1 1.80000000E+02 # M1 2 3.00000000E+02 # M2 3 2.50000000E+03 # M3 11 2.85000000E+03 # At 12 2.85000000E+03 # Ab 13 8.00000000E+02 # Atau 23 1.00000000E+03 # MUE 25 2.00000000E+01 # TB 26 1.00000000E+03 # MA0 27 1.00322567E+03 # MHp 31 2.00000000E+03 # MSL(1) 32 2.00000000E+03 # MSL(2) 33 3.50000000E+02 # MSL(3) 34 2.00000000E+03 # MSE(1) 35 2.00000000E+03 # MSE(2) 36 3.50000000E+02 # MSE(3) 41 2.00000000E+03 # MSQ(1) 42 2.00000000E+03 # MSQ(2) 43 1.50000000E+03 # MSQ(3) 44 2.00000000E+03 # MSU(1) 45 2.00000000E+03 # MSU(2) 46 1.50000000E+03 # MSU(3) 47 2.00000000E+03 # MSD(1) 48 2.00000000E+03 # MSD(2) 49 1.50000000E+03 # MSD(3) BLOCK MASS 1000012 1.99896552E+03 # MSf(1,1,1) 1000011 2.00057313E+03 # MSf(1,2,1) 2000011 2.00046095E+03 # MSf(2,2,1) 1000002 1.99927301E+03 # MSf(1,3,1) 2000002 1.99969262E+03 # MSf(2,3,1) 1000001 2.00088111E+03 # MSf(1,4,1) 2000001 2.00015290E+03 # MSf(2,4,1) 1000014 1.99896552E+03 # MSf(1,1,2) 1000013 2.00097334E+03 # MSf(1,2,2) 2000013 2.00006064E+03 # MSf(2,2,2) 1000004 1.99855848E+03 # MSf(1,3,2) 2000004 2.00040758E+03 # MSf(2,3,2) 1000003 2.00103927E+03 # MSf(1,4,2) 2000003 1.99999468E+03 # MSf(2,4,2) 1000016 3.44039455E+02 # MSf(1,1,3) 1000015 3.00752176E+02 # MSf(1,2,3) 2000015 3.98360763E+02 # MSf(2,2,3) 1000006 1.33965932E+03 # MSf(1,3,3) 2000006 1.66153199E+03 # MSf(2,3,3) 1000005 1.48076973E+03 # MSf(1,4,3) 2000005 1.52035582E+03 # MSf(2,4,3) 25 1.25446331E+02 # Mh0 35 9.99859026E+02 # MHH 36 1.00000000E+03 # MA0 37 1.00352099E+03 # MHp 1000022 1.79456889E+02 # MNeu(1) 1000023 2.97205684E+02 # MNeu(2) 1000025 -1.00294285E+03 # MNeu(3) 1000035 1.00628028E+03 # MNeu(4) 1000024 2.97193887E+02 # MCha(1) 1000037 1.00727320E+03 # MCha(2) 1000021 2.50000000E+03 # MGl BLOCK DMASS 0 1.72500000E+02 # Q 25 1.98374186E+00 # Delta Mh0 35 3.20482021E-02 # Delta MHH 36 0.00000000E+00 # Delta MA0 37 5.13172661E-02 # Delta MHp BLOCK NMIX 1 1 9.98876349E-01 # ZNeu(1,1) 1 2 -8.40320482E-03 # ZNeu(1,2) 1 3 4.54802158E-02 # ZNeu(1,3) 1 4 -1.03429432E-02 # ZNeu(1,4) 2 1 1.27116592E-02 # ZNeu(2,1) 2 2 9.95548058E-01 # ZNeu(2,2) 2 3 -8.83657886E-02 # ZNeu(2,3) 2 4 3.02318502E-02 # ZNeu(2,4) 3 1 2.44324084E-02 # ZNeu(3,1) 3 2 -4.14182340E-02 # ZNeu(3,2) 3 3 -7.05140858E-01 # ZNeu(3,3) 3 4 -7.07434773E-01 # ZNeu(3,4) 4 1 -3.85682707E-02 # ZNeu(4,1) 4 2 8.42495085E-02 # ZNeu(4,2) 4 3 7.02067951E-01 # ZNeu(4,3) 4 4 -7.06056019E-01 # ZNeu(4,4) BLOCK UMIX 1 1 9.92105591E-01 # UCha(1,1) 1 2 -1.25405328E-01 # UCha(1,2) 2 1 1.25405328E-01 # UCha(2,1) 2 2 9.92105591E-01 # UCha(2,2) BLOCK VMIX 1 1 9.99077591E-01 # VCha(1,1) 1 2 -4.29414463E-02 # VCha(1,2) 2 1 4.29414463E-02 # VCha(2,1) 2 2 9.99077591E-01 # VCha(2,2) BLOCK STAUMIX 1 1 7.04779339E-01 # USf(1,1) 1 2 7.09426587E-01 # USf(1,2) 2 1 7.09426587E-01 # USf(2,1) 2 2 -7.04779339E-01 # USf(2,2) BLOCK STOPMIX 1 1 7.07720635E-01 # USf(1,1) 1 2 -7.06492394E-01 # USf(1,2) 2 1 7.06492394E-01 # USf(2,1) 2 2 7.07720635E-01 # USf(2,2) BLOCK SBOTMIX 1 1 6.98400871E-01 # USf(1,1) 1 2 7.15706800E-01 # USf(1,2) 2 1 7.15706800E-01 # USf(2,1) 2 2 -6.98400871E-01 # USf(2,2) BLOCK ALPHA -5.11239780E-02 # Alpha BLOCK DALPHA 7.94658769E-05 # Delta Alpha BLOCK HMIX Q= -0.99900000E+03 1 1.00000000E+03 # MUE 2 2.00000000E+01 # TB BLOCK MSOFT Q= 0.00000000E+00 1 1.80000000E+02 # M1 2 3.00000000E+02 # M2 3 2.50000000E+03 # M3 31 2.00000000E+03 # MSL(1) 32 2.00000000E+03 # MSL(2) 33 3.50000000E+02 # MSL(3) 34 2.00000000E+03 # MSE(1) 35 2.00000000E+03 # MSE(2) 36 3.50000000E+02 # MSE(3) 41 2.00000000E+03 # MSQ(1) 42 2.00000000E+03 # MSQ(2) 43 1.50000000E+03 # MSQ(3) 44 2.00000000E+03 # MSU(1) 45 2.00000000E+03 # MSU(2) 46 1.50000000E+03 # MSU(3) 47 2.00000000E+03 # MSD(1) 48 2.00000000E+03 # MSD(2) 49 1.50000000E+03 # MSD(3) BLOCK AE Q= 0.00000000E+00 1 1 2.85000000E+03 # Af(1,1) 2 2 2.85000000E+03 # Af(2,2) 3 3 8.00000000E+02 # Af(3,3) BLOCK AU Q= 0.00000000E+00 1 1 2.85000000E+03 # Af(1,1) 2 2 2.85000000E+03 # Af(2,2) 3 3 2.85000000E+03 # Af(3,3) BLOCK AD Q= 0.00000000E+00 1 1 2.85000000E+03 # Af(1,1) 2 2 2.85000000E+03 # Af(2,2) 3 3 2.85000000E+03 # Af(3,3) BLOCK YE Q= 0.00000000E+00 1 1 5.87736719E-05 # Yf(1,1) 2 2 1.21525302E-02 # Yf(2,2) 3 3 2.04389046E-01 # Yf(3,3) BLOCK YU Q= 0.00000000E+00 1 1 1.72525826E-05 # Yf(1,1) 2 2 7.39560709E-03 # Yf(2,2) 3 3 9.92023502E-01 # Yf(3,3) BLOCK YD Q= 0.00000000E+00 1 1 6.35951590E-04 # Yf(1,1) 2 2 1.00679551E-02 # Yf(2,2) 3 3 3.98258811E-01 # Yf(3,3) BLOCK VCKMIN 1 2.25300000E-01 # lambda 2 8.08000000E-01 # A 3 1.32000000E-01 # rhobar 4 3.41000000E-01 # etabar BLOCK MSL2 Q= 0.00000000E+00 1 1 4.00000000E+06 # MSL2(1,1) 2 2 4.00000000E+06 # MSL2(2,2) 3 3 1.22500000E+05 # MSL2(3,3) BLOCK MSE2 Q= 0.00000000E+00 1 1 4.00000000E+06 # MSE2(1,1) 2 2 4.00000000E+06 # MSE2(2,2) 3 3 1.22500000E+05 # MSE2(3,3) BLOCK MSQ2 Q= 0.00000000E+00 1 1 4.00000000E+06 # MSQ2(1,1) 2 2 4.00000000E+06 # MSQ2(2,2) 3 3 2.25000000E+06 # MSQ2(3,3) BLOCK MSU2 Q= 0.00000000E+00 1 1 4.00000000E+06 # MSU2(1,1) 2 2 4.00000000E+06 # MSU2(2,2) 3 3 2.25000000E+06 # MSU2(3,3) BLOCK MSD2 Q= 0.00000000E+00 1 1 4.00000000E+06 # MSD2(1,1) 2 2 4.00000000E+06 # MSD2(2,2) 3 3 2.25000000E+06 # MSD2(3,3) BLOCK TE Q= 0.00000000E+00 1 1 1.67504965E-01 # Tf(1,1) 2 2 3.46347112E+01 # Tf(2,2) 3 3 1.63511237E+02 # Tf(3,3) BLOCK TU Q= 0.00000000E+00 1 1 4.91698605E-02 # Tf(1,1) 2 2 2.10774802E+01 # Tf(2,2) 3 3 2.82726698E+03 # Tf(3,3) BLOCK TD Q= 0.00000000E+00 1 1 1.81246203E+00 # Tf(1,1) 2 2 2.86936721E+01 # Tf(2,2) 3 3 1.13503761E+03 # Tf(3,3) BLOCK SELMIX 1 1 9.99809281E-01 # UASf(1,1) 1 4 -1.95295227E-02 # UASf(1,4) 2 2 7.49270774E-01 # UASf(2,2) 2 5 -6.62263775E-01 # UASf(2,5) 3 3 7.04779339E-01 # UASf(3,3) 3 6 7.09426587E-01 # UASf(3,6) 4 1 1.95295227E-02 # UASf(4,1) 4 4 9.99809281E-01 # UASf(4,4) 5 2 6.62263775E-01 # UASf(5,2) 5 5 7.49270774E-01 # UASf(5,5) 6 3 7.09426587E-01 # UASf(6,3) 6 6 -7.04779339E-01 # UASf(6,6) BLOCK USQMIX 1 1 9.99987470E-01 # UASf(1,1) 1 4 -5.00595551E-03 # UASf(1,4) 2 2 7.83236011E-01 # UASf(2,2) 2 5 -6.21724498E-01 # UASf(2,5) 3 3 7.07720635E-01 # UASf(3,3) 3 6 -7.06492394E-01 # UASf(3,6) 4 1 5.00595551E-03 # UASf(4,1) 4 4 9.99987470E-01 # UASf(4,4) 5 2 6.21724498E-01 # UASf(5,2) 5 5 7.83236011E-01 # UASf(5,5) 6 3 7.06492394E-01 # UASf(6,3) 6 6 7.07720635E-01 # UASf(6,6) BLOCK DSQMIX 1 1 9.99469672E-01 # UASf(1,1) 1 4 -3.25633860E-02 # UASf(1,4) 2 2 9.20773138E-01 # UASf(2,2) 2 5 -3.90098486E-01 # UASf(2,5) 3 3 6.98400871E-01 # UASf(3,3) 3 6 7.15706800E-01 # UASf(3,6) 4 1 3.25633860E-02 # UASf(4,1) 4 4 9.99469672E-01 # UASf(4,4) 5 2 3.90098486E-01 # UASf(5,2) 5 5 9.20773138E-01 # UASf(5,5) 6 3 7.15706800E-01 # UASf(6,3) 6 6 -6.98400871E-01 # UASf(6,6) BLOCK CVHMIX 1 1 9.99999944E-01 # UH(1,1) 1 2 3.33494451E-04 # UH(1,2) 1 3 0.00000000E+00 # UH(1,3) 2 1 -3.33494451E-04 # UH(2,1) 2 2 9.99999944E-01 # UH(2,2) 2 3 0.00000000E+00 # UH(2,3) 3 1 0.00000000E+00 # UH(3,1) 3 2 0.00000000E+00 # UH(3,2) 3 3 1.00000000E+00 # UH(3,3) BLOCK PRECOBS 1 3.70801438E-02 # DeltaR 2 5.73493744E-05 # DeltaRho 3 8.03580769E+01 # MWMSSM 4 8.03532994E+01 # MWSM 5 2.31519688E-01 # SW2effMSSM 6 2.31537613E-01 # SW2effSM 11 1.55628199E-10 # gminus2mu 21 0.00000000E+00 # EDMeTh 22 0.00000000E+00 # EDMn 23 0.00000000E+00 # EDMHg 31 4.42059407E-04 # bsgammaMSSM 32 3.92583816E-04 # bsgammaSM 33 2.09482130E+01 # DeltaMsMSSM 34 2.08767455E+01 # DeltaMsSM 35 6.06876785E-08 # BsmumuMSSM 36 3.35592960E-09 # BsmumuSM DECAY 25 4.03250828E-03 # Gamma(h0) 2.31128319E-03 2 22 22 # BR(h0 -> photon photon) 1.50311516E-03 2 22 23 # BR(h0 -> photon Z) 2.81285945E-02 2 23 23 # BR(h0 -> Z Z) 2.30327715E-01 2 -24 24 # BR(h0 -> W W) 6.91739636E-02 2 21 21 # BR(h0 -> gluon gluon) 5.16700736E-09 2 -11 11 # BR(h0 -> Electron electron) 2.29837940E-04 2 -13 13 # BR(h0 -> Muon muon) 6.63595508E-02 2 -15 15 # BR(h0 -> Tau tau) 2.04401275E-07 2 -2 2 # BR(h0 -> Up up) 2.86468550E-02 2 -4 4 # BR(h0 -> Charm charm) 8.63906818E-07 2 -1 1 # BR(h0 -> Down down) 2.16956394E-04 2 -3 3 # BR(h0 -> Strange strange) 5.73101055E-01 2 -5 5 # BR(h0 -> Bottom bottom) DECAY 35 4.84215254E+00 # Gamma(HH) 7.01532225E-07 2 22 22 # BR(HH -> photon photon) 1.48943143E-06 2 22 23 # BR(HH -> photon Z) 5.88610434E-05 2 23 23 # BR(HH -> Z Z) 7.90218210E-05 2 -24 24 # BR(HH -> W W) 2.90176556E-05 2 21 21 # BR(HH -> gluon gluon) 1.26713589E-08 2 -11 11 # BR(HH -> Electron electron) 5.63997808E-04 2 -13 13 # BR(HH -> Muon muon) 1.69514757E-01 2 -15 15 # BR(HH -> Tau tau) 1.60333008E-12 2 -2 2 # BR(HH -> Up up) 2.24577074E-07 2 -4 4 # BR(HH -> Charm charm) 1.20781980E-02 2 -6 6 # BR(HH -> Top top) 1.28529222E-06 2 -1 1 # BR(HH -> Down down) 3.22736531E-04 2 -3 3 # BR(HH -> Strange strange) 7.07323382E-01 2 -5 5 # BR(HH -> Bottom bottom) 1.32833438E-02 2 -1000024 1000024 # BR(HH -> Chargino1 chargino1) 8.17648278E-04 2 1000022 1000022 # BR(HH -> neutralino1 neutralino1) 4.77219537E-03 2 1000022 1000023 # BR(HH -> neutralino1 neutralino2) 6.45783335E-03 2 1000023 1000023 # BR(HH -> neutralino2 neutralino2) 9.13887154E-04 2 25 25 # BR(HH -> h0 h0) 4.68826918E-02 2 -1000015 1000015 # BR(HH -> Stau1 stau1) 1.09393449E-06 2 -1000015 2000015 # BR(HH -> Stau1 stau2) 1.09393449E-06 2 -2000015 1000015 # BR(HH -> Stau2 stau1) 3.68631158E-02 2 -2000015 2000015 # BR(HH -> Stau2 stau2) DECAY 36 4.86015881E+00 # Gamma(A0) 9.57405804E-07 2 22 22 # BR(A0 -> photon photon) 2.82671580E-06 2 22 23 # BR(A0 -> photon Z) 1.28712044E-04 2 21 21 # BR(A0 -> gluon gluon) 1.24418936E-08 2 -11 11 # BR(A0 -> Electron electron) 5.53785038E-04 2 -13 13 # BR(A0 -> Muon muon) 1.66442344E-01 2 -15 15 # BR(A0 -> Tau tau) 1.53459338E-12 2 -2 2 # BR(A0 -> Up up) 2.14918378E-07 2 -4 4 # BR(A0 -> Charm charm) 1.32833979E-02 2 -6 6 # BR(A0 -> Top top) 1.26199784E-06 2 -1 1 # BR(A0 -> Down down) 3.16887390E-04 2 -3 3 # BR(A0 -> Strange strange) 6.94548917E-01 2 -5 5 # BR(A0 -> Bottom bottom) 2.19326967E-02 2 -1000024 1000024 # BR(A0 -> Chargino1 chargino1) 9.79429746E-04 2 1000022 1000022 # BR(A0 -> neutralino1 neutralino1) 6.43193791E-03 2 1000022 1000023 # BR(A0 -> neutralino1 neutralino2) 1.06677808E-02 2 1000023 1000023 # BR(A0 -> neutralino2 neutralino2) 8.51998309E-05 2 23 25 # BR(A0 -> Z h0) 6.37923825E-37 2 25 25 # BR(A0 -> h0 h0) 4.23118188E-02 2 -1000015 2000015 # BR(A0 -> Stau1 stau2) 4.23118188E-02 2 -2000015 1000015 # BR(A0 -> Stau2 stau1) DECAY 37 4.64425412E+00 # Gamma(Hp) 1.42932534E-08 2 -11 12 # BR(Hp -> Electron nu_e) 6.11081106E-04 2 -13 14 # BR(Hp -> Muon nu_mu) 1.72853411E-01 2 -15 16 # BR(Hp -> Tau nu_tau) 1.29523838E-06 2 -1 2 # BR(Hp -> Down up) 1.49763113E-05 2 -3 2 # BR(Hp -> Strange up) 7.73575675E-06 2 -5 2 # BR(Hp -> Bottom up) 7.48090776E-08 2 -1 4 # BR(Hp -> Down charm) 3.24402846E-04 2 -3 4 # BR(Hp -> Strange charm) 1.08328003E-03 2 -5 4 # BR(Hp -> Bottom charm) 1.48273253E-06 2 -1 6 # BR(Hp -> Down top) 3.27765366E-05 2 -3 6 # BR(Hp -> Strange top) 7.24519543E-01 2 -5 6 # BR(Hp -> Bottom top) 1.14825567E-02 2 1000022 1000024 # BR(Hp -> neutralino1 chargino1) 1.73930211E-06 2 1000023 1000024 # BR(Hp -> neutralino2 chargino1) 9.06810606E-05 2 24 25 # BR(Hp -> W h0) 1.92294506E-10 2 24 35 # BR(Hp -> W HH) 1.58042563E-10 2 24 36 # BR(Hp -> W A0) 4.59711000E-02 2 -1000015 1000016 # BR(Hp -> Stau1 snu_tau1) 4.30038481E-02 2 -2000015 1000016 # BR(Hp -> Stau2 snu_tau1) DECAY 6 1.35305515E+00 # Gamma(top) 1.00000000E+00 2 5 24 # BR(top -> bottom W) # Block HiggsCouplingsBosons # For exact definitions of NormEffCoup see HiggsBounds manual 0.999999 3 25 24 24 # higgs-W-W effective coupling, normalised to SM 0.116558E-02 3 35 24 24 # higgs-W-W effective coupling, normalised to SM 0.00000 3 36 24 24 # higgs-W-W effective coupling, normalised to SM 0.999999 3 25 23 23 # higgs-Z-Z effective coupling, normalised to SM 0.116558E-02 3 35 23 23 # higgs-Z-Z effective coupling, normalised to SM 0.00000 3 36 23 23 # higgs-Z-Z effective coupling, normalised to SM 0.952977 3 25 21 21 # higgs-gluon-gluon effective coupling, normalised to SM 0.501981E-01 3 35 21 21 # higgs-gluon-gluon effective coupling, normalised to SM 0.113261 3 36 21 21 # higgs-gluon-gluon effective coupling, normalised to SM 0.00000 3 25 25 23 # higgs-higgs-Z effective coupling, normalised 0.00000 3 35 25 23 # higgs-higgs-Z effective coupling, normalised 0.00000 3 35 35 23 # higgs-higgs-Z effective coupling, normalised 0.145434E-03 3 36 25 23 # higgs-higgs-Z effective coupling, normalised 0.124773 3 36 35 23 # higgs-higgs-Z effective coupling, normalised 0.00000 3 36 36 23 # higgs-higgs-Z effective coupling, normalised # Block HiggsCouplingsFermions # For exact definitions of NormEffCoup see HiggsBounds manual # ScalarNormEffCoup PseudoSNormEffCoup NP IP1 IP2 IP3 # Scalar, Pseudoscalar Normalised Effective Coupling 1.0193000674322237 1.7565995677947101E-029 3 25 5 5 # higgs-b-b eff. coupling, normalised to SM 16.557714685947133 1.5070568169751837E-026 3 35 5 5 # higgs-b-b eff. coupling, normalised to SM 1.5070578407059939E-026 16.558891516303152 3 36 5 5 # higgs-b-b eff. coupling, normalised to SM 0.99994104160649944 0.0000000000000000 3 25 6 6 # higgs-top-top eff. coupling, normalised to SM 5.1165548085686831E-002 0.0000000000000000 3 35 6 6 # higgs-top-top eff. coupling, normalised to SM 0.0000000000000000 5.0000000000000003E-002 3 36 6 6 # higgs-top-top eff. coupling, normalised to SM 1.0233109617137364 0.0000000000000000 3 25 15 15 # higgs-tau-tau eff. coupling, normalised to SM 19.998820832129994 0.0000000000000000 3 35 15 15 # higgs-tau-tau eff. coupling, normalised to SM 0.0000000000000000 20.000000000000000 3 36 15 15 # higgs-tau-tau eff. coupling, normalised to SM # Block ChargedHiggsLHC8 5 6 37 0.239848E-03 # t-b-Hp production (in pb) 4 5 37 0.00000 # c-b-Hp production (in pb) 2 5 37 0.00000 # u-b-Hp production (in pb) 3 4 37 0.00000 # c-s-Hp production (in pb) 1 4 37 0.00000 # c-d-Hp production (in pb) 1 2 37 0.00000 # u-d-Hp production (in pb) 2 3 37 0.00000 # u-s-Hp production (in pb) 0 24 37 0.00000 # W-Hp production (in pb) 0 23 37 0.00000 # Z-Hp production (in pb) 1 1 37 0.00000 # Hp VBF production (in pb) 0 -37 37 0.00000 # Hp-Hm production (in pb) 0 25 37 0.00000 # h0-Hp production (in pb) 0 35 37 0.00000 # h0-Hp production (in pb) 0 36 37 0.00000 # h0-Hp production (in pb) # Block ChargedHiggsLHC13 5 6 37 0.147262E-02 # t-b-Hp production (in pb) 4 5 37 0.00000 # c-b-Hp production (in pb) 2 5 37 0.00000 # u-b-Hp production (in pb) 3 4 37 0.00000 # c-s-Hp production (in pb) 1 4 37 0.00000 # c-d-Hp production (in pb) 1 2 37 0.00000 # u-d-Hp production (in pb) 2 3 37 0.00000 # u-s-Hp production (in pb) 0 24 37 0.00000 # W-Hp production (in pb) 0 23 37 0.00000 # Z-Hp production (in pb) 1 1 37 0.00000 # Hp VBF production (in pb) 0 -37 37 0.00000 # Hp-Hm production (in pb) 0 25 37 0.00000 # h0-Hp production (in pb) 0 35 37 0.00000 # h0-Hp production (in pb) 0 36 37 0.00000 # h0-Hp production (in pb) Block HiggsBoundsResults # results from HiggsBounds http://projects.hepforge.org/higgsbounds # HBresult : scenario allowed flag (1: allowed, 0: excluded, -1: unphysical) # chan id number: most sensitive channel (see below). chan=0 if no channel applies # obsratio : ratio [sig x BR]_model/[sig x BR]_limit (<1: allowed, >1: excluded) # ncomb : number of Higgs bosons combined in most sensitive channel # Note that the HB channel id number varies depending on the HB version and setting "whichanalyses" # 0 5.2.0beta ||LandH|| # version of HB used to produce these results,the HB setting "whichanalyses" # #CHANNEL info: ranked from highest statistical sensitivity 1 1 293 # channel id number 1 2 1 # HBresult 1 3 0.51718961186868451 # obsratio 1 4 1 # ncombined 1 5 ||(p p)->h1 ->Z Z-> l l l l (low mass) where h1 is SM-like (CMS-PAS-HIG-13-002)|| # text description of channel 2 1 275 # channel id number 2 2 1 # HBresult 2 3 0.43504503554179880 # obsratio 2 4 1 # ncombined 2 5 ||(p p)->h1 ->Z Z-> l l l l where h1 is SM-like (ATLAS-CONF-2013-013)|| # text description of channel 3 1 227 # channel id number 3 2 1 # HBresult 3 3 0.74017055298088097 # obsratio 3 4 1 # ncombined 3 5 ||(p p)->h1 +...->W W +... where h1 is SM-like (CMS-PAS-HIG-13-003)|| # text description of channel # BLOCK HiggsSignalsResults - 0 ||2.2.0beta|| # HiggsSignals version + 0 ||2.2.1beta|| # HiggsSignals version 1 ||LHC13|| # experimental data set 2 1 # Chi-squared method ("peak"(1) or "mass"(2)-centered or "both"(3)) 3 2 # Parametrization of Higgs mass uncertainty (1:box, 2:gaussian, 3:box+gaussian) 4 56 # Number of signal strength peak observables 5 24 # Number of simplified template cross section (STXS) signal rate observables 6 20 # Number of LHC Run-1 signal rate observables 7 2 # Number of Higgs mass observables 8 102 # Number of observables (total) - 9 45.42847706 # chi^2 (signal strength) from peak observables - 10 28.97009881 # chi^2 (signal strength) from STXS observables - 11 21.77184515 # chi^2 (signal strength) from LHC Run-1 observables - 12 0.00851296 # chi^2 (Higgs mass) from peak observables + 9 44.88793798 # chi^2 (signal strength) from peak observables + 10 28.97008344 # chi^2 (signal strength) from STXS observables + 11 21.77184464 # chi^2 (signal strength) from LHC Run-1 observables + 12 0.00865033 # chi^2 (Higgs mass) from peak observables 13 0.00000000 # chi^2 (Higgs mass) from STXS observables - 14 0.03129234 # chi^2 (Higgs mass) from LHC Run-1 observables - 15 96.17042102 # chi^2 (signal strength) (total) - 16 0.03980529 # chi^2 (Higgs mass) (total) - 17 96.21022631 # chi^2 (total) - 18 0.86492217 # Probability for peak observables - 19 0.41092949 # Probability for LHC-Run1 observables - 20 0.22125823 # Probability for STXS observables - 21 0.64295835 # Probability (total chi^2, total number observables) + 14 0.03179993 # chi^2 (Higgs mass) from LHC Run-1 observables + 15 95.62986606 # chi^2 (signal strength) (total) + 16 0.04045026 # chi^2 (Higgs mass) (total) + 17 95.67031632 # chi^2 (total) + 18 0.87735055 # Probability for peak observables + 19 0.41089989 # Probability for LHC-Run1 observables + 20 0.22125881 # Probability for STXS observables + 21 0.65753211 # Probability (total chi^2, total number observables) Index: trunk/HiggsBounds-5/AllAnalyses =================================================================== Cannot display: file marked as a binary type. svn:mime-type = application/octet-stream Index: trunk/HiggsBounds-5/S95tables.f90 =================================================================== --- trunk/HiggsBounds-5/S95tables.f90 (revision 585) +++ trunk/HiggsBounds-5/S95tables.f90 (revision 586) @@ -1,5140 +1,5182 @@ ! This file is part of HiggsBounds ! -KW !****************************************************************** module S95tables !****************************************************************** use S95tables_type1 use S95tables_type2 use usefulbits, only: Hneut,Hplus implicit none private public :: & & S95_t1,S95_t2, & & setup_S95tables,deallocate_S95tables, & & calcfact,outputproc, & & check_against_bound, & & convolve_chisq_with_gaussian, & & S95_t1_or_S95_t2_idfromelementnumber, & & f_from_t2,f_from_t3,f_from_slices_t2, & & WhichColliderString,get_collider_element_number, & & inrange, deallocate_Exptranges integer :: ntable1,ntable2 !----------------------------------------------------------------------------------- ! delta_M*_* determine how close in mass particles should be before their masses are combined ! nb. delta*_* is only used for tables of type 1 at the moment ! for some analyses, S95_t1(x)%deltax has already been set in S95tables_type1.f90 ! for analyses where S95_t1(x)%deltax is *not* has already set: ! we set ! LEP neutral Higgs tables to have deltax=delta_Mh_LEP ! Tevatron neutral Higgs tables to have deltax=delta_Mh_TEV ! LHC neutral Higgs tables to have deltax=delta_Mh_LHC ! LEP charged Higgs tables to have deltax=delta_Mhplus_LEP ! Tevatron charged Higgs tables to have deltax=delta_Mhplus_TEV ! LHC charged Higgs tables to have deltax=delta_Mhplus_LHC ! other LEP tables to have deltax=delta_M_LEP_default ! other Tevatron tables to have deltax=delta_M_TEV_default ! other LHC tables to have deltax=delta_M_LHC_default ! setting delta_M*_LHC and/or delta_M*_TEV and/or delta_M*_LEP to zero turns this feature off ! DO NOT CHANGE THESE VALUES BEFORE READING THE MANUAL ! even when it is appropriate to add the cross sections, we would recommend using ! delta_Mh_LEP<=2.0D0, delta_Mh_TEV<=10.0, delta_Mh_LHC<=10.0 double precision, parameter :: delta_Mh_LEP=0.0D0 double precision, parameter :: delta_Mh_TEV=10.0D0 double precision, parameter :: delta_Mh_LHC=10.0D0 double precision, parameter :: delta_Mhplus_LEP=0.0D0 double precision, parameter :: delta_Mhplus_TEV=0.0D0 double precision, parameter :: delta_Mhplus_LHC=0.0D0 double precision, parameter :: delta_M_LEP_default=0.0D0 !where delta_M_LEP/TEV/LHC is not specified double precision, parameter :: delta_M_TEV_default=0.0D0 !these values will be used double precision, parameter :: delta_M_LHC_default=0.0D0 ! !double precision, parameter :: delta_Mh_LEP=15.0D0 !crazy values - for debugging only !double precision, parameter :: delta_Mh_TEV=15.0D0 !crazy(ish) values - for debugging only !double precision, parameter :: delta_Mh_LHC=15.0D0 !crazy(ish) values - for debugging only !----------------------------------------------------------------------------------- ! Use the SM expected channel contributions to weight the channels in the likeness test logical :: use_weight = .True. ! eps determines how strict the Standard Model test is double precision, parameter :: eps=2.0D-2 !double precision, parameter :: eps=1.0D3 !crazy value - for debugging only !----------------------------------------------------------------------------------- !table type 1----------------------------- type(table1),allocatable :: S95_t1(:) !------------------------------------------ !table type 2------------------------------ type(table2),allocatable :: S95_t2(:) !------------------------------------------ character(LEN=5),parameter :: colliders(5) = (/'LEP ','TEV ','LHC7 ','LHC8 ','LHC13'/) !------------------------------------------- double precision, allocatable :: Exptrange_Mhmin_forSMdecays(:), Exptrange_Mhmax_forSMdecays(:) double precision, allocatable :: Exptrange_Mhmin_forSMXS(:), Exptrange_Mhmax_forSMXS(:) contains !********************************************************** subroutine setup_S95tables ! Allocates and calls subroutines to fill S95_t1, S95_t2 ! (which store the experimental data) ! Sets delta_M_TEV,delta_M_LEP,delta_M_LHC which govern how close Higgs ! need to be in mass before HiggsBounds combines their cross sections !********************************************************** use usefulbits, only : debug,np,not_a_particle use theory_BRfunctions, only : BRSMt1Mhmax,BRSMt1Mhmin use theory_XS_SM_functions, only : tevXS_SM_functions_xmin, tevXS_SM_functions_xmax, & & lhc7XS_SM_functions_xmin,lhc7XS_SM_functions_xmax, & & lhc8XS_SM_functions_xmin,lhc8XS_SM_functions_xmax, & & lhc13XS_SM_functions_xmin,lhc13XS_SM_functions_xmax implicit none !-----------------------------------internal integer :: i,c double precision, allocatable :: max_expt_delta_Mh(:) double precision, allocatable :: Expttables_Mhmin_forSMXS(:),Expttables_Mhmax_forSMXS(:) double precision, allocatable :: Expttables_Mhmin_forSMdecays(:),Expttables_Mhmax_forSMdecays(:) double precision, allocatable :: delta_x_default(:,:) ! these numbers have to be changed appropriately every time a table is added ! or taken away: - ntable1=193 + ntable1=195 ntable2=37 ! table type 2 involves 2 variables allocate(S95_t1(ntable1)) allocate(S95_t2(ntable2)) call initializetables_type1_blank(S95_t1) call initializetables_type2_blank(S95_t2) call initializetables1(S95_t1) call initializetables2(S95_t2) allocate( Expttables_Mhmin_forSMXS( size(colliders,dim=1) ) ) allocate( Expttables_Mhmax_forSMXS( size(colliders,dim=1) ) ) allocate( Exptrange_Mhmin_forSMXS( size(colliders,dim=1) ) ) allocate( Exptrange_Mhmax_forSMXS( size(colliders,dim=1) ) ) allocate( Expttables_Mhmin_forSMdecays( size(colliders,dim=1) ) ) allocate( Expttables_Mhmax_forSMdecays( size(colliders,dim=1) ) ) allocate( Exptrange_Mhmin_forSMdecays( size(colliders,dim=1) ) ) allocate( Exptrange_Mhmax_forSMdecays( size(colliders,dim=1) ) ) allocate( max_expt_delta_Mh( size(colliders,dim=1) ) ) ! will pick up on any typos in S95_t1%expt do i=lbound(S95_t1,dim=1),ubound(S95_t1,dim=1) if(WhichColliderElement(S95_t1(i)%expt, S95_t1(i)%energy).eq.0)then write(*,*)'~'//trim(adjustl(S95_t1(i)%expt))//'~ is not a valid experiment name' stop 'error in setup_S95tables (a)' endif enddo ! will pick up on any typos in S95_t2%expt do i=lbound(S95_t2,dim=1),ubound(S95_t2,dim=1) if(WhichColliderElement(S95_t2(i)%expt, S95_t2(i)%energy).eq.0)then write(*,*)'~'//trim(adjustl(S95_t2(i)%expt))//'~ is not a valid experiment name' stop 'error in setup_S95tables (b)' endif enddo ! checks that none of the id's are repeated in S95_t1 do i=lbound(S95_t1,dim=1),ubound(S95_t1,dim=1) if( count(S95_t1%id.eq.S95_t1(i)%id) & +count(S95_t2%id.eq.S95_t1(i)%id).ne.1)then write(*,*)'the id',S95_t1(i)%id,'is repeated' stop 'error in setup_S95tables (c1)' endif enddo ! checks that none of the id's are repeated in S95_t2 do i=lbound(S95_t2,dim=1),ubound(S95_t2,dim=1) if( count(S95_t1%id.eq.S95_t2(i)%id)& +count(S95_t2%id.eq.S95_t2(i)%id).ne.1)then write(*,*)'the id',S95_t2(i)%id,'is repeated' stop 'error in setup_S95tables (c2)' endif enddo !check to make sure that S95_t1(i)%particle_x are all particles do i=lbound(S95_t1,dim=1),ubound(S95_t1,dim=1) if(S95_t1(i)%particle_x.eq.not_a_particle)then write(*,*)S95_t1(i)%id,'particle_x=not_a_particle.' stop 'error in setup_S95tables (d1)' endif enddo !check to make sure that S95_t2(i)%particle_x2 are all particles do i=lbound(S95_t2,dim=1),ubound(S95_t2,dim=1) if(S95_t2(i)%particle_x2.eq.not_a_particle)then write(*,*)S95_t2(i)%id,'particle_x2=not_a_particle.' stop 'error in setup_S95tables (d2)' endif enddo ! looks for the min and max values of Mh (neutral Higgs) in each type of tables ! will be used in input.f90 to work out which SM para need to be calculated ! initial (impossible) values Expttables_Mhmin_forSMXS=1.0D6 Expttables_Mhmax_forSMXS=0.0D0 do i=lbound(S95_t1,dim=1),ubound(S95_t1,dim=1) if(S95_t1(i)%particle_x.eq.Hneut)then do c=1,ubound(colliders,dim=1) if(WhichColliderElement(S95_t1(i)%expt, S95_t1(i)%energy).eq.c)then if(S95_t1(i)%xmax.gt.Expttables_Mhmax_forSMXS(c))Expttables_Mhmax_forSMXS(c)=S95_t1(i)%xmax if(S95_t1(i)%xmin.lt.Expttables_Mhmin_forSMXS(c))Expttables_Mhmin_forSMXS(c)=S95_t1(i)%xmin endif enddo endif enddo do i=lbound(S95_t2,dim=1),ubound(S95_t2,dim=1) if(S95_t2(i)%particle_x2.eq.Hneut)then do c=1,ubound(colliders,dim=1) if(WhichColliderElement(S95_t2(i)%expt, S95_t2(i)%energy).eq.c)then if(S95_t2(i)%xmax2.gt.Expttables_Mhmax_forSMdecays(c))Expttables_Mhmax_forSMdecays(c)=S95_t2(i)%xmax2 if(S95_t2(i)%xmin2.lt.Expttables_Mhmin_forSMdecays(c))Expttables_Mhmin_forSMdecays(c)=S95_t2(i)%xmin2 endif enddo endif enddo Expttables_Mhmin_forSMdecays=Expttables_Mhmin_forSMXS Expttables_Mhmax_forSMdecays=Expttables_Mhmax_forSMXS do i=lbound(S95_t2,dim=1),ubound(S95_t2,dim=1) if(S95_t2(i)%particle_x1.eq.Hneut)then do c=1,ubound(colliders,dim=1) if(WhichColliderElement(S95_t2(i)%expt, S95_t2(i)%energy).eq.c)then if(S95_t2(i)%xmax1.gt.Expttables_Mhmax_forSMdecays(c))Expttables_Mhmax_forSMdecays(c)=S95_t2(i)%xmax1 if(S95_t2(i)%xmin1.lt.Expttables_Mhmin_forSMdecays(c))Expttables_Mhmin_forSMdecays(c)=S95_t2(i)%xmin1 ! Needs_M2_gt_2M1 is true only for processes involving hj->hihi. ! Therefore, SM production cross sections will not be needed for hi. if(.not.S95_t2(i)%needs_M2_gt_2M1)then if(S95_t2(i)%xmax1.gt.Expttables_Mhmax_forSMXS(c))Expttables_Mhmax_forSMXS(c)=S95_t2(i)%xmax1 if(S95_t2(i)%xmin1.lt.Expttables_Mhmin_forSMXS(c))Expttables_Mhmin_forSMXS(c)=S95_t2(i)%xmin1 else if(S95_t2(i)%xmax2.gt.Expttables_Mhmax_forSMXS(c))Expttables_Mhmax_forSMXS(c)=S95_t2(i)%xmax2 if(S95_t2(i)%xmin2.lt.Expttables_Mhmin_forSMXS(c))Expttables_Mhmin_forSMXS(c)=S95_t2(i)%xmin2 endif endif enddo endif enddo ! now we set delta_x if(delta_M_LEP_default.gt.2.1d0) write(*,*)'WARNING: delta_M_LEP_default.gt.2.1d0' if(delta_M_TEV_default.gt.10.1d0)write(*,*)'WARNING: delta_M_TEV_default.gt.10.1d0' if(delta_M_LHC_default.gt.10.1d0)write(*,*)'WARNING: delta_M_LHC_default.gt.10.1d0' if(delta_Mh_LEP .gt.2.1d0) write(*,*)'WARNING: delta_Mh_LEP.gt.2.1d0' if(delta_Mh_TEV .gt.10.1d0)write(*,*)'WARNING: delta_Mh_TEV.gt.10.1d0' if(delta_Mh_LHC .gt.10.1d0)write(*,*)'WARNING: delta_Mh_LHC.gt.10.1d0' if(delta_Mhplus_LEP .gt.2.1d0) write(*,*)'WARNING: delta_Mhplus_LEP.gt.2.1d0' if(delta_Mhplus_TEV .gt.10.1d0)write(*,*)'WARNING: delta_Mhplus_TEV.gt.10.1d0' if(delta_Mhplus_LHC .gt.10.1d0)write(*,*)'WARNING: delta_Mhplus_LHC.gt.10.1d0' allocate( delta_x_default(size(np,dim=1),size(colliders,dim=1)) ) ! fill delta_x_default do c=1,ubound(colliders,dim=1) if(c.eq.get_collider_element_number('LEP '))then ! for some reason, gfortran didn't like having a case statement here delta_x_default(:,c) =delta_M_LEP_default delta_x_default(Hneut,c)=delta_Mh_LEP delta_x_default(Hplus,c)=delta_Mhplus_LEP elseif(c.eq.get_collider_element_number('TEV '))then delta_x_default(:,c) =delta_M_TEV_default delta_x_default(Hneut,c)=delta_Mh_TEV delta_x_default(Hplus,c)=delta_Mhplus_TEV elseif(c.eq.get_collider_element_number('LHC7 '))then delta_x_default(:,c) =delta_M_LHC_default delta_x_default(Hneut,c)=delta_Mh_LHC delta_x_default(Hplus,c)=delta_Mhplus_LHC elseif(c.eq.get_collider_element_number('LHC8 '))then delta_x_default(:,c) =delta_M_LHC_default delta_x_default(Hneut,c)=delta_Mh_LHC delta_x_default(Hplus,c)=delta_Mhplus_LHC elseif(c.eq.get_collider_element_number('LHC13'))then delta_x_default(:,c) =delta_M_LHC_default delta_x_default(Hneut,c)=delta_Mh_LHC delta_x_default(Hplus,c)=delta_Mhplus_LHC else stop 'error in subroutine setup_S95tables' endif enddo do i=lbound(S95_t1,dim=1),ubound(S95_t1,dim=1) if(S95_t1(i)%deltax.lt.-0.5D0)then !i.e. deltax has not been set yet S95_t1(i)%deltax = delta_x_default(S95_t1(i)%particle_x,WhichColliderElement(S95_t1(i)%expt, S95_t1(i)%energy)) endif enddo do i=lbound(S95_t2,dim=1),ubound(S95_t2,dim=1) if(S95_t2(i)%deltax.lt.-0.5D0)then !i.e. deltax has not been set yet S95_t2(i)%deltax = delta_x_default(S95_t2(i)%particle_x2,WhichColliderElement(S95_t2(i)%expt, S95_t2(i)%energy)) endif enddo ! finds the maximum delta_Mh for the each set of tables ! will be used in theo_SM.f90 to work out which SM para need to be calculated max_expt_delta_Mh= -1.0D0 do i=lbound(S95_t1,dim=1),ubound(S95_t1,dim=1) do c=1,ubound(colliders,dim=1) if(WhichColliderElement(S95_t1(i)%expt, S95_t1(i)%energy).eq.c)then if( S95_t1(i)%particle_x.eq.Hneut)then if(S95_t1(i)%deltax .gt.max_expt_delta_Mh(c))then max_expt_delta_Mh(c)=S95_t1(i)%deltax endif endif endif enddo enddo do i=lbound(S95_t2,dim=1),ubound(S95_t2,dim=1) do c=1,ubound(colliders,dim=1) if(WhichColliderElement(S95_t2(i)%expt, S95_t2(i)%energy).eq.c)then if( S95_t2(i)%particle_x2.eq.Hneut)then !note, this means only cross sections for different particle_x2 will be combined if(S95_t2(i)%deltax .gt.max_expt_delta_Mh(c))then max_expt_delta_Mh(c)=S95_t2(i)%deltax endif endif endif enddo enddo if(debug)write(*,*)'max_expt_delta_Mh',max_expt_delta_Mh ! Exptrange_Mhmin_forSMXS = max(Expttables_Mhmin_forSMXS - max_expt_delta_Mh,0.0D0) ! Exptrange_Mhmax_forSMXS = Expttables_Mhmax_forSMXS + max_expt_delta_Mh ! ! Exptrange_Mhmin_forSMdecays = max(Expttables_Mhmin_forSMdecays - max_expt_delta_Mh,0.0D0) ! Exptrange_Mhmax_forSMdecays = Expttables_Mhmax_forSMdecays + max_expt_delta_Mh Exptrange_Mhmin_forSMXS = max(Expttables_Mhmin_forSMXS,0.0D0) Exptrange_Mhmax_forSMXS = Expttables_Mhmax_forSMXS Exptrange_Mhmin_forSMdecays = max(Expttables_Mhmin_forSMdecays,0.0D0) Exptrange_Mhmax_forSMdecays = Expttables_Mhmax_forSMdecays !we need tevXS_SM_functions to have a big enough range to cover the tables if(Exptrange_Mhmax_forSMXS(get_collider_element_number('TEV ')).gt.tevXS_SM_functions_xmax)then stop 'need to extend upper range of tevXS_SM_functions or reduce delta_M_TEV' endif if(Exptrange_Mhmin_forSMXS(get_collider_element_number('TEV ')).lt.tevXS_SM_functions_xmin)then write(*,*)Exptrange_Mhmin_forSMXS(get_collider_element_number('TEV ')),tevXS_SM_functions_xmin ! TS 24/03/2017: Commented out the following (because some new analyses for low mass Higgses ! do not need these functions (decay from heavier Higgs) ! stop 'need to extend lower range of tevXS_SM_functions' endif !we need lhc7XS_SM_functions to have a big enough range to cover the tables if(Exptrange_Mhmax_forSMXS(get_collider_element_number('LHC7 ')).gt.lhc7XS_SM_functions_xmax)then stop 'need to extend upper range of lhc7XS_SM_functions or reduce delta_M_LHC' endif if(Exptrange_Mhmin_forSMXS(get_collider_element_number('LHC7 ')).lt.lhc7XS_SM_functions_xmin)then ! TS 24/03/2017: Commented out the following (because some new analyses for low mass Higgses ! do not need these functions (decay from heavier Higgs) ! stop 'need to extend lower range of lhc7XS_SM_functions' endif !we need lhc8XS_SM_functions to have a big enough range to cover the tables if(Exptrange_Mhmax_forSMXS(get_collider_element_number('LHC8 ')).gt.lhc8XS_SM_functions_xmax)then stop 'need to extend upper range of lhc8XS_SM_functions or reduce delta_M_LHC' endif if(Exptrange_Mhmin_forSMXS(get_collider_element_number('LHC8 ')).lt.lhc8XS_SM_functions_xmin)then ! write(*,*) Exptrange_Mhmin_forSMXS(get_collider_element_number('LHC8 ')) ! TS 24/03/2017: Commented out the following (because some new analyses for low mass Higgses ! do not need these functions (decay from heavier Higgs) ! stop 'need to extend lower range of lhc8XS_SM_functions' endif !we need lhc8XS_SM_functions to have a big enough range to cover the tables if(Exptrange_Mhmax_forSMXS(get_collider_element_number('LHC13')).gt.lhc13XS_SM_functions_xmax)then stop 'need to extend upper range of lhc13XS_SM_functions or reduce delta_M_LHC' endif if(Exptrange_Mhmin_forSMXS(get_collider_element_number('LHC13')).lt.lhc13XS_SM_functions_xmin)then write(*,*) Exptrange_Mhmin_forSMXS(get_collider_element_number('LHC13')) ! TS 24/03/2017: Commented out the following (because some new analyses for low mass Higgses ! do not need these functions (decay from heavier Higgs) ! stop 'need to extend lower range of lhc13XS_SM_functions' endif ! we need the branching ratios for all the colliders if( maxval(Exptrange_Mhmax_forSMdecays).gt.BRSMt1Mhmax)then ! write(*,*) "hello : ", BRSMt1Mhmax, maxval(Exptrange_Mhmax_forSMdecays) stop 'need to extend upper range of BRfunctions or reduce delta_M_(LEP/TEV)' elseif(minval(Exptrange_Mhmin_forSMdecays).lt.BRSMt1Mhmin)then write(*,*)'hello',minval(Exptrange_Mhmin_forSMdecays),BRSMt1Mhmin stop 'need to extend lower range of BRfunctions' endif deallocate(Expttables_Mhmin_forSMXS) deallocate(Expttables_Mhmax_forSMXS) deallocate(Expttables_Mhmin_forSMdecays) deallocate(Expttables_Mhmax_forSMdecays) deallocate(max_expt_delta_Mh) deallocate(delta_x_default) end subroutine setup_S95tables !********************************************************** function inrange(mass,str) ! mass is the neutral Higgs mass to be checked ! str indicates which range it should be checked against: ! str should be either 'SMBR' or one of the elements of the array 'colliders' ! ! The function returns .True. if the mass is in the appropriate range. ! If str='SMBR', this range is ! minval(Exptrange_Mhmin_forSMdecays) to maxval(Exptrange_Mhmax_forSMdecays) ! otherwise this range is ! Exptrange_Mhmin_forSMXS(x) to Exptrange_Mhmax_forSMXS(x) ! where x is the element of the array 'colliders' character(len=*),intent(in) :: str double precision,intent(in) :: mass logical :: inrange integer :: x, i !-TS(05/07/2012) Added a check whether the ranges are allocated (which happens in !-subroutine setup_S95tables. If not, they are allocated and given default values. !-This is needed for HiggsSignals. if(.not.allocated(Exptrange_Mhmin_forSMXS)) then allocate(Exptrange_Mhmin_forSMXS(size(colliders,dim=1))) allocate(Exptrange_Mhmax_forSMXS(size(colliders,dim=1))) do i=1, size(colliders) if(i.eq.get_collider_element_number('LEP ')) then Exptrange_Mhmin_forSMXS(i)=1.0D0 Exptrange_Mhmax_forSMXS(i)=180.0D0 else if(i.eq.get_collider_element_number('TEV ')) then Exptrange_Mhmin_forSMXS(i)=80.0D0 Exptrange_Mhmax_forSMXS(i)=350.0D0 else if(i.eq.get_collider_element_number('LHC7 ')) then Exptrange_Mhmin_forSMXS(i)=90.0D0 Exptrange_Mhmax_forSMXS(i)=1000.0D0 else if(i.eq.get_collider_element_number('LHC8 ')) then Exptrange_Mhmin_forSMXS(i)=90.0D0 Exptrange_Mhmax_forSMXS(i)=1000.0D0 else if(i.eq.get_collider_element_number('LHC13')) then Exptrange_Mhmin_forSMXS(i)=90.0D0 Exptrange_Mhmax_forSMXS(i)=3000.0D0 else stop 'Error in subroutine inrange. str for XS unknown.' endif enddo endif if(.not.allocated(Exptrange_Mhmin_forSMdecays)) then allocate( Exptrange_Mhmin_forSMdecays(size(colliders,dim=1))) allocate( Exptrange_Mhmax_forSMdecays(size(colliders,dim=1))) do i=1, size(colliders) if(i.eq.get_collider_element_number('LEP ')) then Exptrange_Mhmin_forSMdecays(i)=1.0D0 Exptrange_Mhmax_forSMdecays(i)=180.0D0 else if(i.eq.get_collider_element_number('TEV ')) then Exptrange_Mhmin_forSMdecays(i)=0.2D0 Exptrange_Mhmax_forSMdecays(i)=350.0D0 else if(i.eq.get_collider_element_number('LHC7 ')) then Exptrange_Mhmin_forSMdecays(i)=90.0D0 Exptrange_Mhmax_forSMdecays(i)=1000.0D0 else if(i.eq.get_collider_element_number('LHC8 ')) then Exptrange_Mhmin_forSMdecays(i)=90.0D0 Exptrange_Mhmax_forSMdecays(i)=1000.0D0 else if(i.eq.get_collider_element_number('LHC13')) then Exptrange_Mhmin_forSMdecays(i)=90.0D0 Exptrange_Mhmax_forSMdecays(i)=1000.0D0 else stop 'Error in subroutine inrange. str for decay unknown.' endif enddo endif if(str.eq.'SMBR')then if( (mass.gt.minval(Exptrange_Mhmin_forSMdecays)) & .and.(mass.lt.maxval(Exptrange_Mhmax_forSMdecays)) )then inrange=.True. else inrange=.False. endif else x=get_collider_element_number(str) ! write(*,*) 'debugging inrange:' ! write(*,*) x, mass, Exptrange_Mhmin_forSMXS(x), Exptrange_Mhmax_forSMXS(x) if( (mass.gt.Exptrange_Mhmin_forSMXS(x)) & .and.(mass.lt.Exptrange_Mhmax_forSMXS(x)) )then inrange=.True. else inrange=.False. endif endif end function inrange !********************************************************** function get_collider_element_number(collidername) ! this will return the position of the element with the value 'collidername' in the array 'colliders' !********************************************************** character(len=*),intent(in) :: collidername integer :: x,y integer :: get_collider_element_number y=0 ! print *, collidername do x=lbound(colliders,dim=1),ubound(colliders,dim=1) if(index(colliders(x),collidername).gt.0)then get_collider_element_number=x y=y+1 endif enddo if(y.ne.1)stop 'problem in function get_collider_element_number' end function get_collider_element_number !****************************************************************** function WhichColliderElement(expt,energy) ! this will return the position of the element corresponding to 'expt' in the array 'colliders' !****************************************************************** use usefulbits, only : small character(LEN=3),intent(in) :: expt integer :: WhichColliderElement double precision :: energy if( expt.eq.'LEP' )then WhichColliderElement=get_collider_element_number('LEP ') elseif( (expt.eq.'CDF').or.(expt.eq.' D0').or.(expt.eq.'TCB') )then WhichColliderElement=get_collider_element_number('TEV ') elseif( (expt.eq.'ATL').or.(expt.eq.'CMS') )then if(energy-7.0D0.le.small) then WhichColliderElement=get_collider_element_number('LHC7 ') else if(energy-8.0D0.le.small) then WhichColliderElement=get_collider_element_number('LHC8 ') else if(energy-13.0D0.le.small) then WhichColliderElement=get_collider_element_number('LHC13') else stop 'WhichColliderElement: Collider Energy not correctly specified.' endif else WhichColliderElement=0 endif end function WhichColliderElement !****************************************************************** function WhichColliderString(expt, energy) ! this will return the contents of the element corresponding to 'expt' in the array 'colliders' !****************************************************************** character(LEN=3),intent(in) :: expt character(LEN=5) :: WhichColliderString double precision :: energy ! write(*,*) 'WhichColliderString = ',colliders(WhichColliderElement(expt, energy)) WhichColliderString=colliders(WhichColliderElement(expt, energy)) end function WhichColliderString !****************************************************************** subroutine calcfact(proc,t,cfact,axis_i,axis_j,nc) !****************************************************************** !for table type1, calls calcfact_t1 !for table type2, calls calcfact_t2 !****************************************************************** use usefulbits, only : dataset,listprocesses !internal implicit none !--------------------------------------input type(dataset) :: t type(listprocesses) :: proc !-----------------------------------output double precision :: cfact,axis_j,axis_i integer :: nc !------------------------------------------- select case(proc%ttype) case(1) call calcfact_t1(proc%tlist,proc%findj,t,cfact,axis_i,nc) axis_j=axis_i case(2) call calcfact_t2(proc%tlist,proc%findj,proc%findi,t,cfact,axis_i,axis_j,nc) case default ! ### OS ### cfact = -1D0 return stop 'wrong input to function calcfact in module channels' end select end subroutine calcfact !****************************************************************** subroutine outputproc(proc,k,descrip,specific) !****************************************************************** !for table type1, calls outputproc_t1 !for table type2, calls outputproc_t2 !if neither table applies, writes message !k is where output goes !specific=1 if the specific process should be printed !e.g. ee->h1Z->bbZ !whereas specific==0 if the generic process should be printed !e.g. ee->hiZ->bbZ !****************************************************************** use usefulbits, only : listprocesses !input use likelihoods, only : outputproc_llh implicit none !--------------------------------------input integer,intent(in) :: k,specific integer :: i,j type(listprocesses),intent(in) :: proc character(LEN=200):: descrip !------------------------------------------- select case(specific) case(0) i=0 j=0 case(1) i=proc%findi j=proc%findj case default end select select case(proc%ttype) case(0) descrip='none of the processes apply' case(1) call outputproc_t1(proc%tlist,i,k,descrip) case(2) call outputproc_t2(proc%tlist,i,j,k,descrip) case(9) call outputproc_llh(proc,k,descrip) case default stop 'wrong input to subroutine outputproc in module channels' end select end subroutine outputproc !****************************************************************** subroutine check_against_bound(proc,fact,axis_i,axis_j,ratio,predobs) !****************************************************************** !for table type1, calls interpolate_tabletype1 !for table type2, calls interpolate_tabletype2 !****************************************************************** use usefulbits, only : dataset,listprocesses !internal use interpolate implicit none !--------------------------------------input integer :: predobs double precision :: fact,axis_i,axis_j type(listprocesses) :: proc !-------------------------------------output double precision :: ratio !-----------------------------------internal double precision :: Mi,Mj,interpol !------------------------------------------- interpol=-1.0D0 Mi=axis_i Mj=axis_j if(fact.gt.0.0D0)then select case(proc%ttype) case(1) call interpolate_tabletype1(Mi,S95_t1(proc%tlist),predobs,interpol) case(2) call interpolate_tabletype2(Mi,Mj,S95_t2(proc%tlist),predobs,interpol) case default ! ### OS ### ratio = -1d0 return write(*,*)'wrong input to subroutine check_against_bound in module channels' stop end select endif !--TESTING! ! if(predobs.eq.1) write(*,*) 'Interpolated value = ', interpol if(interpol.ge.0)then ratio=fact/interpol else ratio= -1.0D0 endif end subroutine check_against_bound !********************************************************** subroutine calcfact_t1(c,jj,t,cfact_t1,M_av,nc) !********************************************************** ! calculates fact for table type 1 ! Takes in to account how Standard Model-like parameter point is ! and whether there are any Higgs with slightly higher masses which ! can be combined with his result ! note: numerator and denominator are worked out separately !********************************************************** use usefulbits, only : dataset, np, div, vvsmall, vsmall use theory_BRfunctions use theory_XS_SM_functions implicit none !--------------------------------------input type(dataset) :: t integer :: c,jj !-----------------------------------output double precision :: cfact_t1,M_av integer :: nc !------------------------------------------- integer :: f,j,ii,iii double precision :: M_tot double precision :: BR_Hbb_SM_av,BR_HWW_SM_av,BR_Htautau_SM_av double precision :: tev_XS_HW_SM_av,tev_XS_HZ_SM_av double precision :: tev_XS_H_SM_av double precision :: tev_XS_Hb_SM_av double precision :: tev_XS_ttH_SM_av double precision :: lhc7_XS_H_SM_av double precision :: lhc7_XS_VBF_SM_av double precision :: BR_Zll,BR_Znunu,BR_Wlnu,BR_Ztautau double precision :: BR_Whad,BR_Zhad double precision :: fact_tmp double precision,allocatable :: mass(:),fact(:) integer,allocatable :: model_like(:) integer :: npart !number of particles !source: PDG (Yao et al. J Phys G 33 (2006)) BR_Zll=3.363D-2+3.366D-2 !BR_Zll = sum(l=e,mu), BR(Z ->l+ l-) BR_Znunu=20D-2 !BR_Znunu = BR(Z ->nu_l nu_l-bar) ('invisible') BR_Wlnu=10.75D-2+10.57D-2 !BR_Wlnu = sum(l=e,mu), !BR(W+ ->l+ nu_l) = BR(W- ->l- + nu_l-bar) BR_Whad=67.6D-2 BR_Zhad=69.91D-2 BR_Ztautau=3.370D-2 npart=np( S95_t1(c)%particle_x ) allocate(mass(npart),fact(npart),model_like(npart)) mass(:)=t%particle( S95_t1(c)%particle_x )%M(:) fact= 0.0D0 cfact_t1=0.0D0 model_like=0 !now calculate numerator of 'fact' do j=1,npart if( (abs(mass(jj)-mass(j)).le.S95_t1(c)%deltax) & & .and.( mass(jj).le.mass(j) ) )then select case(S95_t1(c)%id) !these can be compacted, but not doing it yet... doing it at the !same time as revamping the model_likeness test case(142) fact(j)=t%lep%XS_hjZ_ratio(j) *t%BR_hjbb(j) !notice that this is not absolute XS case(143) fact(j)=t%lep%XS_hjZ_ratio(j) *t%BR_hjtautau(j) !notice that this is not absolute XS case(300) fact(j)=t%lep%XS_hjZ_ratio(j) !notice that this is not absolute XS case(400,401,402,403) fact(j)=t%lep%XS_hjZ_ratio(j) *t%BR_hjinvisible(j) !notice that this is not absolute XS case(500) fact(j)=t%lep%XS_hjZ_ratio(j) *t%BR_hjgaga(j) !notice that this is not absolute XS case(600,601) fact(j)=t%lep%XS_hjZ_ratio(j) &!notice that this is not absolute XS & *(t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)) case(711,713) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(721,723,741,743) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(731,733) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(801,811,821) fact(j)=t%lep%XS_HpjHmj_ratio(j)*(t%BR_Hpjcs(j)+t%BR_Hpjcb(j))**2.0D0 !notice that this is not absolute XS case(802) fact(j)=t%lep%XS_HpjHmj_ratio(j)*(t%BR_Hpjcs(j)+t%BR_Hpjcb(j))*2.0D0*t%BR_Hpjtaunu(j) !notice that this is not absolute XS case(803,813) fact(j)=t%lep%XS_HpjHmj_ratio(j)*t%BR_Hpjtaunu(j)**2.0D0 !notice that this is not absolute XS case(8742,4493,9475,5482,5570,5876,1024,9889,3534,6089,10235,3047,10799,3564,6166,6296) fact(j)=t%tev%XS_hjZ_ratio(j) *t%tev%XS_HZ_SM(j) *t%BR_hjbb(j) case(8958,5489,5624,9236,3930,6039,3216,10433,6221,10600) fact(j)=t%tev%XS_hj_ratio(j)*t%tev%XS_H_SM(j) *t%BR_hjWW(j) case(3331) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) fact(j)=fact(j)*t%tev%XS_H_SM(j)*t%BR_HWW_SM(j)!to get the normalisation right case(5757) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(8957,5472,9219,9463,9596,5828,1970,3493,5972,3155,5613,9868,10068,6092,10217,10239,10796,0874,6220) fact(j)=t%tev%XS_hjW_ratio(j) *t%tev%XS_HW_SM(j) *t%BR_hjbb(j) case(5485,7307,5873) fact(j)=t%tev%XS_hjW_ratio(j) *t%tev%XS_HW_SM(j) *t%BR_hjWW(j) case(9071,2491,5740,5980,1014,3363,4555) fact(j)=t%tev%XS_hj_ratio(j) *t%tev%XS_H_SM(j) *t%BR_hjtautau(j) case(8961,0598) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(9284,5503,5726,10105) fact(j)=t%tev%XS_hjb_ratio(j) *t%tev%XS_Hb_SM(j) *t%BR_hjbb(j)/0.9D0/2.0D0 case(6083) fact(j)=t%tev%XS_hjb_ratio(j) *t%tev%XS_Hb_SM(j) *t%BR_hjtautau(j)/0.1D0/2.0D0 case(1514,5601,5737) fact(j)=( t%tev%XS_hjZ_ratio(j) * t%tev%XS_HZ_SM(j) & & + t%tev%XS_hjW_ratio(j) * t%tev%XS_HW_SM(j) & & + t%tev%XS_hj_ratio(j) * t%tev%XS_H_SM(j) & & + t%tev%XS_vbf_ratio(j) * t%tev%XS_vbf_SM(j) & & ) & & * t%BR_hjgaga(j) case(5858,6177,6295,1887,10065,10485,4960) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(7081,9166,9483,5586,9642,1266,0432,9891,5285,3935,6087,6170,10212,6223,6299,10583,10798,10596) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(2012015) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(10010,10607,6436) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(9248,10133,10439) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(4800) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(5845) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(6171) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(9290) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(5984,9714,6006,4481,6095,10432,6179,6302,10599) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(3556,1931) fact(j)=t%tev%XS_hjb_ratio(j) *t%tev%XS_Hb_c2_SM(j) *t%BR_hjbb(j) case(4782) fact(j)=t%tev%XS_hjb_ratio(j) *t%tev%XS_Hb_c1_SM(j) *t%BR_hjbb(j) case(9465,5871,9022,0710,9887,4162,10102,4468) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) !case(9023) ! call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(9674) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(9897,9999) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(0024,5985,0968,5974,4885) fact(j)=t%tev%XS_hjb_ratio(j) *t%tev%XS_Hb_c3_SM(j) *t%BR_hjtautau(j) case(5739,10574) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) fact(j)=fact(j)*t%tev%XS_ttH_SM(j)*t%BR_Hbb_SM(j)!to get the normalisation right case(2012135,12025) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(0611) fact(j)=t%tev%XS_hj_ratio(j)*t%tev%XS_H_SM(j) *t%BR_hjZga(j) case(1269,1270,2011094,13035,160311) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(1811) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(1812,2011138,2011151,2760,2013090,2014050,14020,8353,7712,11002,11008,79152) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(6008,9998) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(6082,6182,6219,6276,10573) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(6096,10606,10806,10884) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(6183,3233) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(6229) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(6286,6301,6304,6305,6309) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(6091,1268) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(2011048,11004,11015,11013,11028,11006,11017,110271,110272,14161,14162,5064,2012017,2011150,2011131) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(2011162,1415,2012092,20130131) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(059301) fact(j)=t%lhc8%XS_hj_ratio(j)*t%lhc8%XS_H_SM(j)*t%BR_hjZZ(j) case(059302) fact(j)=t%lhc8%XS_vbf_ratio(j)*t%lhc8%XS_vbf_SM(j)*t%BR_hjZZ(j) case(20130132) fact(j)=1000.d0*t%lhc8%XS_hj_ratio(j)*t%lhc8%XS_H_SM(j)*t%BR_hjZZ(j)*BR_Zll**2 case(20130133) fact(j)=1000.d0*(t%lhc8%XS_hjZ_ratio(j) * t%lhc8%XS_HZ_SM(j) & & + t%lhc8%XS_hjW_ratio(j) * t%lhc8%XS_HW_SM(j) & & + t%lhc8%XS_vbf_ratio(j) * t%lhc8%XS_vbf_SM(j)) & & * t%BR_hjZZ(j)*BR_Zll**2 case(11025,1997,12041,130021,130022,009361) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) ! write(*,*) "Analysis(130021) fact(",j,")=",fact(j) case(2011026,11005,11016,11026,3478,3357,2011148,2012016) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(110212) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(2011025,2011085,2011161,5895,1414,2012091,2012168,1487,12001,12015,13001,11010,11030,11021) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(13006, 13075515,2013009,3051) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(11031,12044,13012) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(13011) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(11034,12039,13009,2012078,12006,12051) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(2011005,3615,2012018,12046) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(2748, 1408, 2012019) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(7214) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(10500) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(11003,11014,2577,11024,1489,12042,13003,13027) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(2011020,2011021) fact(j)=t%lhc7%XS_hj_ratio(j)*t%lhc7%XS_H_SM(j) *t%BR_hjmumu(j) case(5429,2011052,2011111,2011134) fact(j)=t%lhc7%XS_hj_ratio(j)*t%lhc7%XS_H_SM(j) *t%BR_hjWW(j) case(2012012,2012158,2013030) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(10002,5003,2011132,2012094,110201,110292) fact(j)=t%lhc7%XS_hj_ratio(j)*t%lhc7%XS_H_SM(j) *t%BR_hjtautau(j) case(20140492) ! fact(j)=t%lhc8%XS_gg_hj_ratio(j)*t%lhc8%XS_gg_H_SM(j)*t%BR_hjtautau(j) fact(j)=t%lhc8%channelrates(j,6,4)*t%lhc8%XS_gg_H_SM(j) case(2014049) ! fact(j)=t%lhc8%XS_bb_hj_ratio(j)*t%lhc8%XS_bb_H_SM(j)*t%BR_hjtautau(j) fact(j)=t%lhc8%channelrates(j,7,4)*t%lhc8%XS_bb_H_SM(j) case(20160851,160371,20170501) ! fact(j)=t%lhc13%XS_gg_hj_ratio(j)*t%lhc13%XS_gg_H_SM(j)*t%BR_hjtautau(j) ! write(*,*) "debug: ",j,t%lhc13%channelrates(j,6,4) fact(j)=t%lhc13%channelrates(j,6,4)*t%lhc13%XS_gg_H_SM(j) case(20160852,160372,20170502) ! write(*,*) "debug: ",j,t%lhc13%channelrates(j,7,4) ! fact(j)=t%lhc13%XS_bb_hj_ratio(j)*t%lhc13%XS_bb_H_SM(j)*t%BR_hjtautau(j) fact(j)=t%lhc13%channelrates(j,7,4)*t%lhc13%XS_bb_H_SM(j) case(12050,13021) fact(j)=t%lhc8%XS_hj_ratio(j)*t%lhc8%XS_H_SM(j) *t%BR_hjtautau(j) case(11009,11020,2011133,2012014,2012160) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(110291,12043) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(2013010,7663) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(11011,2011163,11022,11032,1488,12008,12045,2011157) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(2011103,2012161,11012) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(13022) fact(j)=t%lhc8%XS_vbf_ratio(j)*div(t%BR_hjWW(j),t%BR_HWW_SM(j) ,0.0D0,1.0D0) case(13013,13441) fact(j)=t%lhc8%XS_vbf_ratio(j)*t%BR_hjinvisible(j) case(13018,13442) fact(j)=t%lhc8%XS_hjZ_ratio(j)*t%BR_hjinvisible(j) case(13443) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(2013011,3244) ! Limit is on sigma(HZ)*BR(H->inv)*(BR(Z->ll)+BR(Z->tautau) ! Data given in fb - (multiply by 1000) fact(j)=1000.D0*t%lhc8%XS_hjZ_ratio(j)*t%lhc8%XS_HZ_SM(j) & & *t%BR_hjinvisible(j) !*(BR_Zll+BR_Ztautau) ! print *, 1000.D0*t%lhc8%XS_hjZ_ratio(j)*t%lhc8%XS_HZ_SM(j)*(BR_Zll+BR_Ztautau), fact(j) case(1508329,2015080) fact(j) = t%lhc8%XS_bb_hj_ratio(j)*t%lhc8%XS_bb_H_SM(j)*t%BR_hjbb(j) case(6583) ! Data given in fb - (multiply by 1000) ! (TS 2016/10/13: Added conservatively estimated signal efficiency factor of ~0.56) fact(j)=0.56D0*1000.0D0*( & t%lhc8%XS_hj_ratio(j)*t%lhc8%XS_H_SM(j) + & t%lhc8%XS_vbf_ratio(j)*t%lhc8%XS_vbf_SM(j) + & t%lhc8%XS_hjZ_ratio(j)*t%lhc8%XS_HZ_SM(j) + & t%lhc8%XS_hjW_ratio(j)*t%lhc8%XS_HW_SM(j) + & t%lhc8%XS_tthj_ratio(j)*t%lhc8%XS_ttH_SM(j) ) * t%BR_hjgaga(j) case(14011) do ii=1,npart if(abs(t%particle(Hneut)%M(ii)-125.0D0).lt.10.0D0) then fact(j)=fact(j)+1000.0D0 * t%lhc8%XS_hj_ratio(j) * t%lhc8%XS_H_SM(j) & & * t%BR_hjhiZ(j,ii) * BR_Zll * t%BR_hjbb(ii) endif enddo case(17006) ! Data given in fb - (multiply by 1000). ! Limit on leptonic (e,mu,tau) decays of VV -> lnulnu ! BR(W->lnu) = 0.3257 ! BR(Z->ll) = 0.10099 ! BR(Z->nunu) = 0.2000 do ii=1,npart if(abs(t%particle(Hneut)%M(ii)-125.0D0).lt.10.0D0) then fact(j)=fact(j)+ 1000.0D0 * t%lhc13%XS_gg_hj_ratio(j) * t%lhc13%XS_gg_H_SM(j) & & * t%BR_hkhjhi(j,ii,ii) * t%BR_hjbb(ii) * & & (t%BR_hjWW(ii) * 0.3257D0**2 + t%BR_hjZZ(ii) * 0.10099D0 * 0.2D0 *2.0D0) endif enddo case(1506534) do ii=1,npart if(abs(t%particle(Hneut)%M(ii)-125.0D0).lt.10.0D0) then fact(j)=fact(j)+ t%lhc8%XS_gg_hj_ratio(ii) * t%lhc8%XS_gg_H_SM(ii) & & * t%BR_hkhjhi(ii,j,j) * t%BR_hjtautau(j)**2.0D0 endif enddo case(5051) do ii=1,npart if(abs(t%particle(Hneut)%M(ii)-125.0D0).lt.2.5D0) then fact(j)=fact(j)+ t%lhc8%XS_gg_hj_ratio(ii) * t%BR_hkhjhi(ii,j,j)*t%BR_hjgaga(j)**2.0D0 endif enddo case(17020321) do ii=1,npart fact_tmp = 0.0D0 if(abs(t%particle(Hneut)%M(ii)-125.0D0).lt.(25.0D0+t%particle(Hneut)%dMh(ii))) then call model_likeness(ii,S95_t1(c)%id,t,model_like(ii),fact_tmp) fact(j) = fact(j) + fact_tmp * t%BR_hkhjhi(ii,j,j) * t%BR_hjtautau(j)**2.0D0 endif enddo case(17020322) do ii=1,npart ! Multiply by 2.0 because limit is set on BR(H->hh->mumubb) fact_tmp = 0.0D0 if(abs(t%particle(Hneut)%M(ii)-125.0D0).lt.(25.0D0+t%particle(Hneut)%dMh(ii))) then call model_likeness(ii,S95_t1(c)%id,t,model_like(ii),fact_tmp) fact(j) = fact(j) + fact_tmp * t%BR_hkhjhi(ii,j,j) * 2.0D0 * t%BR_hjmumu(j) * t%BR_hjbb(j) endif enddo case(17020323) do ii=1,npart ! Multiply by 2.0 because limit is set on BR(H->hh->mumutautau) fact_tmp = 0.0D0 if(abs(t%particle(Hneut)%M(ii)-125.0D0).lt.(25.0D0+t%particle(Hneut)%dMh(ii))) then call model_likeness(ii,S95_t1(c)%id,t,model_like(ii),fact_tmp) fact(j) = fact(j) + fact_tmp * t%BR_hkhjhi(ii,j,j) * 2.0D0 * t%BR_hjmumu(j) * t%BR_hjtautau(j) endif enddo case(011812) ! Limit given in fb, multiply by 1000. do ii=1,npart if(abs(t%particle(Hneut)%M(ii)-125.0D0).lt.10.0D0) then fact(j)=fact(j)+1000.0D0 * t%lhc8%XS_hj_ratio(j) * t%lhc8%XS_H_SM(j) & & * t%BR_hjhiZ(j,ii) * BR_Zll * t%BR_hjtautau(ii) endif enddo case(011811) ! Limit given in pb do ii=1,npart do iii=1,npart ! No symmetry factor (1/2) because limit is set on BR(H->hh->bbtautau) if(abs(t%particle(Hneut)%M(ii)-125.0D0).lt.10.0D0.and.abs(t%particle(Hneut)%M(iii)-125.0D0).lt.10.0D0) then fact(j)=fact(j)+ t%lhc8%XS_hj_ratio(j) * t%lhc8%XS_H_SM(j) & & * t%BR_hkhjhi(j,ii,iii) * ( t%BR_hjtautau(ii) * t%BR_hjbb(iii) + & & t%BR_hjtautau(iii) * t%BR_hjbb(ii) ) endif enddo enddo case(16029) ! Limit given in pb do ii=1,npart do iii=1,npart ! No symmetry factor (1/2) because limit is set on BR(H->hh->bbtautau) if(abs(t%particle(Hneut)%M(ii)-125.0D0).lt.10.0D0.and.abs(t%particle(Hneut)%M(iii)-125.0D0).lt.10.0D0) then fact(j)=fact(j)+ t%lhc13%XS_hj_ratio(j) * t%lhc13%XS_H_SM(j) & & * t%BR_hkhjhi(j,ii,iii) * ( t%BR_hjtautau(ii) * t%BR_hjbb(iii) + & & t%BR_hjtautau(iii) * t%BR_hjbb(ii) ) endif enddo enddo case(17002) ! Limit given in fb do ii=1,npart do iii=1,npart ! No symmetry factor (1/2) because limit is set on BR(H->hh->bbtautau) if(abs(t%particle(Hneut)%M(ii)-125.0D0).lt.10.0D0.and.abs(t%particle(Hneut)%M(iii)-125.0D0).lt.10.0D0) then fact(j)=fact(j)+ 1000.0D0 * t%lhc13%XS_hj_ratio(j) * t%lhc13%XS_H_SM(j) & & * t%BR_hkhjhi(j,ii,iii) * ( t%BR_hjtautau(ii) * t%BR_hjbb(iii) + & & t%BR_hjtautau(iii) * t%BR_hjbb(ii) ) endif enddo enddo case(2016071) ! Limit given in pb do ii=1,npart do iii=1,npart ! No symmetry factor (1/2) because limit is set on BR(H->hh->WWgaga) if(abs(t%particle(Hneut)%M(ii)-125.0D0).lt.2.5D0.and.abs(t%particle(Hneut)%M(iii)-125.0D0).lt.2.5D0) then fact(j)=fact(j)+ t%lhc13%XS_hj_ratio(j) * t%lhc13%XS_H_SM(j) & & * t%BR_hkhjhi(j,ii,iii) * ( t%BR_hjWW(ii) * t%BR_hjgaga(iii) + & & t%BR_hjWW(iii) * t%BR_hjgaga(ii) ) endif enddo enddo case(16002,2016049) ! Limit given in fb, multiply by 1000. do ii=1,npart do iii=1,npart if(abs(t%particle(Hneut)%M(ii)-125.0D0).lt.10.0D0.and.abs(t%particle(Hneut)%M(iii)-125.0D0).lt.10.0D0) then fact(j)=fact(j)+ 1000.0D0 * t%lhc13%XS_hj_ratio(j) * t%lhc13%XS_H_SM(j) & & * t%BR_hkhjhi(j,ii,iii) * t%BR_hjbb(iii) * t%BR_hjbb(ii) endif enddo enddo case(14013) ! Limit given in fb, multiply by 1000. do ii=1,npart do iii=1,npart if(abs(t%particle(Hneut)%M(ii)-125.0D0).lt.10.0D0.and.abs(t%particle(Hneut)%M(iii)-125.0D0).lt.10.0D0) then fact(j)=fact(j)+ 1000.0D0 * t%lhc8%XS_hj_ratio(j) * t%lhc8%XS_H_SM(j) & & * t%BR_hkhjhi(j,ii,iii) * t%BR_hjbb(iii) * t%BR_hjbb(ii) endif enddo enddo case(044781) ! Limit given in pb (Z->ll unfolded) do ii=1,npart if(abs(t%particle(Hneut)%M(ii)-125.0D0).lt.10.0D0) then fact(j)=fact(j) + t%lhc8%XS_gg_hj_ratio(j) * t%lhc8%XS_gg_H_SM(j) & & * t%BR_hjhiZ(j,ii) * t%BR_hjtautau(ii) endif enddo case(044782) ! Limit given in pb (Z->ll unfolded) do ii=1,npart if(abs(t%particle(Hneut)%M(ii)-125.0D0).lt.10.0D0) then fact(j)=fact(j) + t%lhc8%XS_gg_hj_ratio(j) * t%lhc8%XS_gg_H_SM(j) & & * t%BR_hjhiZ(j,ii) * t%BR_hjbb(ii) endif enddo case(20160151) ! Limit given in pb (Z->ll unfolded) do ii=1,npart if(abs(t%particle(Hneut)%M(ii)-125.0D0).lt.10.0D0) then fact(j)=fact(j) + t%lhc13%XS_gg_hj_ratio(j) * t%lhc13%XS_gg_H_SM(j) & & * t%BR_hjhiZ(j,ii) * t%BR_hjbb(ii) endif enddo case(20160152) ! Limit given in pb (Z->ll unfolded) do ii=1,npart if(abs(t%particle(Hneut)%M(ii)-125.0D0).lt.10.0D0) then fact(j)=fact(j) + t%lhc13%XS_bb_hj_ratio(j) * t%lhc13%XS_bb_H_SM(j) & & * t%BR_hjhiZ(j,ii) * t%BR_hjbb(ii) endif enddo case(14006,14037) ! Data given in pb fact(j)= ( & t%lhc8%XS_hj_ratio(j)*t%lhc8%XS_H_SM(j) + & t%lhc8%XS_vbf_ratio(j)*t%lhc8%XS_vbf_SM(j) + & t%lhc8%XS_hjZ_ratio(j)*t%lhc8%XS_HZ_SM(j) + & t%lhc8%XS_hjW_ratio(j)*t%lhc8%XS_HW_SM(j) + & t%lhc8%XS_tthj_ratio(j)*t%lhc8%XS_ttH_SM(j) ) * t%BR_hjgaga(j) case(14031) fact(j)=1000.0D0* t%lhc8%XS_hj_ratio(j)*t%lhc8%XS_H_SM(j) * & t%BR_hjZga(j)*BR_Zll case(20160821,20160822,063861) fact(j)=t%lhc13%XS_hj_ratio(j)*t%lhc13%XS_H_SM(j)*t%BR_hjZZ(j) case(20160823) fact(j)=t%lhc13%XS_vbf_ratio(j)*t%lhc13%XS_vbf_SM(j)*t%BR_hjZZ(j) case(20160792) ! Data given in fb fact(j)=1000.0D0*t%lhc13%XS_hj_ratio(j)*t%lhc13%XS_H_SM(j)*t%BR_hjZZ(j)*BR_Zll**2 case(20160793) ! Data given in fb fact(j)=1000.0D0*t%lhc13%XS_vbf_ratio(j)*t%lhc13%XS_vbf_SM(j)*t%BR_hjZZ(j)*BR_Zll**2 case(20160741,2016062) fact(j)=t%lhc13%XS_hj_ratio(j)*t%lhc13%XS_H_SM(j)*t%BR_hjWW(j) case(20160742) fact(j)=t%lhc13%XS_vbf_ratio(j)*t%lhc13%XS_vbf_SM(j)*t%BR_hjWW(j) case(2011112) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(2011135) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(6224,6225,6226) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) - case(04670,046701,046702) + case(04670,046701,046702,17030,4873) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(0038911,0038912,0038913,0038914) call model_likeness(j,S95_t1(c)%id,t,model_like(j),fact(j)) case(160312,2016088,79151) ! Data given in pb (factor 2 because both signs of the charged Higgs are considered in the limit) fact(j)= 2.0D0 * t%lhc13%XS_Hpjtb(j) * t%BR_Hpjtaunu(j) case(1504233) ! Data given in fb (factor 2 because both signs of the charged Higgs are considered in the limit) fact(j)= 2.0D0 * 1000.0D0*t%lhc8%XS_vbf_Hpj(j) * t%BR_HpjWZ(j) case(2016089) ! Data given in pb (factor 2 because both signs of the charged Higgs are considered in the limit) fact(j)= 2.0D0 * t%lhc13%XS_Hpjtb(j) * t%BR_Hpjtb(j) ! Daniel's attempts case(2016025) fact(j) = t%lhc13%XS_hj_ratio(j) * t%lhc13%XS_H_SM(j) * t%BR_hjbb(j) case(2016044) fact(j) = 1000.0D0*t%lhc13%XS_hj_ratio(j) * t%lhc13%XS_H_SM(j) * t%BR_hjZga(j) case(201608391) do ii=1,npart if(abs(t%particle(Hneut)%M(ii)-125.0D0).lt.10.0D0) then fact(j)=fact(j) + t%lhc13%XS_hjW_ratio(ii) *t%lhc13%XS_HW_SM(ii) * t%BR_hkhjhi(ii,j,j) & & * t%BR_hjbb(j) * t%BR_hjbb(j) endif enddo case(16030) fact(j) = t%BR_tHpjb(j) * t%BR_Hpjcs(j) case(2016004) ! Limit given in pb do ii=1,npart do iii=1,npart ! Multiply fact by symmetry factor, 1/2. if(abs(t%particle(Hneut)%M(ii)-125.0D0).lt.2.5D0.and.abs(t%particle(Hneut)%M(iii)-125.0D0).lt.2.5D0) then fact(j)=fact(j)+ 0.5D0 * t%lhc13%XS_gg_hj_ratio(j)*t%lhc13%XS_gg_H_SM(j) & & * t%BR_hkhjhi(j,ii,iii) * & & ( t%BR_hjbb(ii)/t%BR_Hbb_SM(ii) * t%BR_hjgaga(iii)/t%BR_Hgaga_SM(iii) + & & t%BR_hjbb(iii)/t%BR_Hbb_SM(iii) * t%BR_hjgaga(ii)/t%BR_Hgaga_SM(ii) ) endif enddo enddo ! case(2016004) ! do ii=1,npart ! if(abs(t%particle(Hneut)%M(ii)-125.0D0).lt.10.0D0.and.t%BR_Hbb_SM(ii).gt.0D0.and.t%BR_Hgaga_SM(ii).gt.0D0) then ! fact(j) + t%lhc13%XS_gg_hj_ratio(j)*t%lhc13%XS_gg_H_SM(j) * t%BR_hkhjhi(j,ii,ii) & ! & * t%BR_hjbb(ii)/t%BR_Hbb_SM(ii) * t%BR_hjgaga(ii)/t%BR_Hgaga_SM(ii) ! endif ! enddo case(1604833) if(abs(t%BR_hjWW(j)/t%BR_hjZZ(j) / (t%BR_HWW_SM(j)/t%BR_HZZ_SM(j))-1.0D0).lt.0.05) then fact(j) = t%lhc13%XS_gg_hj_ratio(j)*t%lhc13%XS_gg_H_SM(j) * (t%BR_hjWW(j) + t%BR_hjZZ(j)) else fact(j) = 0.0D0 endif case(16034) fact(j) = (t%lhc13%XS_hj_ratio(j) * t%lhc13%XS_H_SM(j) + & & t%lhc13%XS_vbf_ratio(j) * t%lhc13%XS_vbf_SM(j) ) * t%BR_hjZZ(j) case(2016056) fact(j) = 1000.0D0*t%lhc13%XS_gg_hj_ratio(j) * t%lhc13%XS_gg_H_SM(j) * t%BR_hjZZ(j) case(15009) fact(j)= 1000.*t%lhc8%XS_bb_hj_ratio(j)*t%lhc8%XS_bb_H_SM(j)*t%BR_hjmumu(j) case(20160551) fact(j) = 1000.0D0*t%lhc13%XS_hj_ratio(j) * t%lhc13%XS_H_SM(j) * t%BR_hjZZ(j) case(20160552) fact(j) = 1000.0D0*t%lhc13%XS_hj_ratio(j) * t%lhc13%XS_H_SM(j) * t%BR_hjWW(j) case default stop 'wrong input to function calcfact_t1 in module S95tables' end select endif enddo if(fact(jj).le.vvsmall)then!A !Higgs jj doesn't contribute - wait until another call of this subroutine before !looking at nearby masses M_av = mass(jj) nc=0 cfact_t1=0.0D0 else!A !find M_av (only using higgs which have non-zero fact): f=0 M_tot=0.0D0 do j=1,npart if( fact(j).gt.vvsmall )then f=f+1 M_tot=M_tot+mass(j) endif enddo nc=f !f will always be > 0 because we've already made sure that fact(jj)>0.0D0 M_av = M_tot/dble(nc) if((WhichColliderString(S95_t1(c)%expt,S95_t1(c)%energy).eq.'LEP'))then!B cfact_t1=sum(fact) elseif(S95_t1(c)%particle_x .ne. Hneut)then!B cfact_t1=sum(fact) else!B ! HB-5 new ---> if(cfact_t1.gt.vvsmall.and.M_av.gt.S95_t1(c)%xmax) then M_av = S95_t1(c)%xmax write(*,*) "WARNING: Evaluating limit of ",trim(adjustl(S95_t1(c)%label))," at upper mass range." else if(cfact_t1.gt.vvsmall.and.M_av.lt.S95_t1(c)%xmin) then M_av = S95_t1(c)%xmin write(*,*) "WARNING: Evaluating limit of ",trim(adjustl(S95_t1(c)%label))," at lower mass range." endif ! <--- if(f.eq.1)then !have already calculated these in theo_manip to save time BR_Hbb_SM_av = t%BR_Hbb_SM(jj) BR_HWW_SM_av = t%BR_HWW_SM(jj) BR_Htautau_SM_av = t%BR_Htautau_SM(jj) tev_XS_HW_SM_av = t%tev%XS_HW_SM(jj) tev_XS_HZ_SM_av = t%tev%XS_HZ_SM(jj) tev_XS_H_SM_av = t%tev%XS_H_SM(jj) tev_XS_Hb_SM_av = t%tev%XS_Hb_SM(jj) tev_XS_ttH_SM_av = t%tev%XS_ttH_SM(jj) lhc7_XS_H_SM_av = t%lhc7%XS_H_SM(jj) lhc7_XS_VBF_SM_av= t%lhc7%XS_vbf_SM(jj) else BR_Hbb_SM_av = BRSM_Hbb(M_av) BR_HWW_SM_av = BRSM_HWW(M_av) BR_Htautau_SM_av = BRSM_Htautau(M_av) tev_XS_HW_SM_av = XS_tev_HW_SM(M_av) tev_XS_HZ_SM_av = XS_tev_HZ_SM(M_av) tev_XS_H_SM_av = XS_tev_gg_H_SM(M_av)+XS_tev_bb_H_SM(M_av) tev_XS_Hb_SM_av = XS_tev_bg_Hb_SM(M_av) tev_XS_ttH_SM_av = XS_tev_ttH_SM(M_av) lhc7_XS_H_SM_av = XS_lhc7_gg_H_SM(M_av)+XS_lhc7_bb_H_SM(M_av) lhc7_XS_VBF_SM_av= XS_lhc7_vbf_SM(M_av) endif ! now include denominator of 'fact' select case(S95_t1(c)%id) case(8742,5482,5570,4493,9475,5876,1024,9889,3534,6089,10235,3047,10799,3564,6166,6296) do j=1,npart fact(j)= div( fact(j) , tev_XS_HZ_SM_av * BR_Hbb_SM_av ,0.0D0,0.0D0) enddo case(8958,5489,5624,9236,3930) do j=1,npart fact(j)= div( fact(j) , tev_XS_H_SM_av * BR_HWW_SM_av ,0.0D0,0.0D0) enddo case(8957,5472,9219,9463,9596,5828,1970,3493,5972,3155,5613,9868,10068,6092,10217,10239,10796,0874,6220) do j=1,npart fact(j)= div( fact(j) , tev_XS_HW_SM_av * BR_Hbb_SM_av ,0.0D0,0.0D0) enddo case(5503,9284,5726,10105) do j=1,npart fact(j)= div( fact(j) , tev_XS_Hb_SM_av ,0.0D0,0.0D0) enddo case(6083) do j=1,npart fact(j)= div( fact(j) , tev_XS_Hb_SM_av ,0.0D0,0.0D0) enddo case(7307,5873) do j=1,npart fact(j)= div( fact(j) , tev_XS_HW_SM_av * BR_HWW_SM_av ,0.0D0,0.0D0) enddo case(8961,0598,10010,9290,9674,9897,9999,10607,6436) case(7081,9166,9483,5586,9642,1266,0432,9891,5285,3935,6087,6170,10212,6223,6299,10583,10798,10596) case(2012015) case(9248,5845,4800,5858,6177,6295,1887,10065,10485,10133,10439,4960) case(9465,5871,9022,9023,0710,9887) case(6171) case(6183,3233) case(6229) case(6304) case(5984,9714,4162,10102,6006,4481,4468,5757,6095,10432,6179,6302,10599) case(5739,10574) do j=1,npart fact(j)= div( fact(j) , tev_XS_ttH_SM_av * BR_Hbb_SM_av ,0.0D0,0.0D0) enddo case(2012135,12025) case(6008,9998) case(6082,6182,6219,6276,10573) case(6096,10606,10806,10884) case(6091,1268) case(5485,9071,2491,5601,1514,3556,5740,4555,0024,5980,1014,5985, & & 0611,3363,6039,3216,0968,5974,1931,4885,6221) case(3331) case(6286,6301,6305,6309) case(10600) case(10433) do j=1,npart fact(j)=div(fact(j) , tev_XS_H_SM_av * BR_HWW_SM_av ,0.0D0,0.0D0) enddo case(2011048,11004,11015,11013,11028,11006,11017,110271,110272,14161,14162,5064,2012017,2011150,2011131) case(2011162,1415,2012092,20130131) case(11025,1997,12041,130021,130022,009361,16034) case(2011026,11005,11016,11026,3478,3357,2011148,2012016) case(110212) case(2011025,2011085,2011161,5895,1414,2012091,2012168,1487,12001,12015,13001,11010,11030,11021) case(13006, 13075515,2013009,3051) case(11031,12044,13012) case(13011) case(11034,12039,13009,2012078,12006,12051) case(2011005,3615,2012018,12046) case(2748, 1408, 2012019) case(7214) case(4782) case(5429,2011052,2011111,2011134) do j=1,npart fact(j)= div( fact(j) , lhc7_XS_H_SM_av * BR_HWW_SM_av ,0.0D0,0.0D0) enddo case(2012012,2012158,2013030) case(10002,5003,2011132,2012094,2014049,20140492,110201,110292,12050,13021) case(059301,059302) case(20130132,20130133) case(11009,11020,2011133,2012014,2012160) case(110291,12043) case(2013010,7663) case(11002,11008) case(11003,11014,2577,11024,1489,12042,13003,13027) case(2011020,2011021) case(10500) case(11011,2011163,11022,11032,1488,12008,12045,2011157) case(2011103,2012161,11012) case(13022) case(13013) case(13441,13442,13443) case(13018) case(2013011,3244) case(2011112) case(6583,14006,14037,14031) case(2011135) case(1508329,2015080) case(17020321,17020322,17020323) case(6224,6225,6226) - case(04670,046701,046702) + case(04670,046701,046702,17030,4873) case(0038911,0038912,0038913,0038914) case(160312,2016088,2016089,14011,011811,16029,17002,14013,2016071,16002,011812,20160851,20160852,20170501,20170502,79151) case(1504233,1506534,5051) case(160371,160372,044781,044782,20160151,20160152,17006) case(20160741,20160742,2016062,20160821,20160822,20160823,20160792,20160793,2016049,063861) case(2016025,2016044,201608391,2016004,1604833,2016056,20160551,20160552,15009) case(16030) case default stop 'error calculating denom. in calcfact_t1' end select cfact_t1=sum(fact) endif!B endif!A deallocate(mass) deallocate(fact) deallocate(model_like) end subroutine calcfact_t1 !********************************************************** subroutine calcfact_t2(c,jj,ii,t,cfact_t2,axis_i,axis_j,nc) !********************************************************** !calculates fact for table type 2 !********************************************************** use usefulbits, only : dataset,np,vsmall,not_a_particle,extrapolatewidth implicit none !--------------------------------------input type(dataset) :: t integer :: c,jj,ii !-----------------------------------output double precision :: cfact_t2,axis_i,axis_j integer :: nc !------------------------------------------- integer :: f,i,j,npart2,npart1 double precision :: fact,eps2,crosssection,Mi_av,Mj_av,masstot,BR_Zll,acceptance double precision,allocatable :: massj(:),massi(:) BR_Zll=3.363D-2+3.366D-2 !BR_Zll = sum(l=e,mu), BR(Z ->l+ l-) eps2=0.02D0 npart2=np( S95_t2(c)%particle_x2 ) allocate(massj(npart2)) massj(:)=t%particle( S95_t2(c)%particle_x2 )%M(:) if(S95_t2(c)%particle_x1.eq.not_a_particle)then npart1=1 allocate(massi(npart1)) massi(:)=-1.0D0 else npart1=np( S95_t2(c)%particle_x1 ) allocate(massi(npart1)) massi(:)=t%particle( S95_t2(c)%particle_x1 )%M(:) endif Mj_av=massj(jj) Mi_av=massi(ii) fact= 0.0D0 cfact_t2=0.0D0 masstot=0.0D0 j=jj i=ii f=1 select case(S95_t2(c)%id) case(150) fact=test_appl(t%lep%XS_hjZ_ratio(j)*t%BR_hjhihi(j,i)*t%BR_hjbb(i)**2.0D0)!table 15 hep-ex/0602042 XS ratio case(160) fact=test_appl(t%lep%XS_hjZ_ratio(j)*t%BR_hjhihi(j,i)*t%BR_hjtautau(i)**2.0D0)!table 16 hep-ex/0602042 XS ratio case(180) fact=test_appl(t%lep%XS_hjhi_ratio(j,i)*t%BR_hjbb(j)*t%BR_hjbb(i))!table 18 hep-ex/0602042 XS ratio case(190) fact=test_appl(t%lep%XS_hjhi_ratio(j,i)*t%BR_hjtautau(j)*t%BR_hjtautau(i))!table 19 hep-ex/0602042 XS ratio case(200) fact=test_appl(t%lep%XS_hjhi_ratio(j,i)*t%BR_hjhihi(j,i)*t%BR_hjbb(i)**3.0D0)!table 20 hep-ex/0602042 XS ratio case(210) fact=test_appl(t%lep%XS_hjhi_ratio(j,i)*t%BR_hjhihi(j,i)*t%BR_hjtautau(i)**3.0D0)!table 21 hep-ex/0602042 XS ratio case(220) fact=test_appl(t%lep%XS_hjZ_ratio(j)*t%BR_hjhihi(j,i)*t%BR_hjbb(i)*t%BR_hjtautau(i))!table 22 hep-ex/0602042 XS ratio case(230) fact=test_appl(t%lep%XS_hjhi_ratio(j,i)*t%BR_hjbb(j)*t%BR_hjtautau(i))!table 23 hep-ex/0602042 XS ratio case(240) fact=test_appl(t%lep%XS_hjhi_ratio(j,i)*t%BR_hjtautau(j)*t%BR_hjbb(i))!table 24 hep-ex/0602042 XS ratio case(905) fact=test_appl(t%lep%XS_CpjCmj(j)*t%BR_CjqqNi(j,i)**2.0D0)!fig 5 hep-ex/0401026 absolute XS in fb case(906) fact=test_appl(t%lep%XS_CpjCmj(j)*t%BR_CjqqNi(j,i)*t%BR_CjlnuNi(j,i))!fig 6 hep-ex/0401026 absolute XS in fb case(907) fact=test_appl( t%lep%XS_CpjCmj(j)*t%BR_CjlnuNi(j,i)**2.0D0)!fig 7 hep-ex/0401026 absolute XS in fb case(908) fact=test_appl(t%lep%XS_CpjCmj(j)) !fig 8 hep-ex/0401026 absolute XS in fb case(909) fact=test_appl( t%lep%XS_NjNi(j,i)*t%BR_NjqqNi(j,i)) !fig 9 hep-ex/0401026 absolute XS in fb case(910) fact=test_appl(t%lep%XS_NjNi(j,i))!fig 10 hep-ex/0401026 absolute XS in fb case(6065) fact=test_appl(t%lep%XS_HpjHmj_ratio(j)*(t%BR_Hpjcs(j)+t%BR_Hpjcb(j)+t%BR_Hpjtaunu(j))) case(02671) fact=test_appl(t%lep%XS_HpjHmj_ratio(j)*(t%BR_HpjhiW(j,i)*t%BR_hjbb(i))**2.0D0) case(02672) fact=test_appl( 4.0D0 * t%lep%XS_HpjHmj_ratio(j)*t%BR_HpjhiW(j,i) * & & t%BR_Hpjtaunu(j)*t%BR_hjbb(i)**2.0D0) !Multiplied by 4 (see LEP paper) case(3381) fact=test_appl(t%tev%XS_hj_ratio(j) * t%tev%XS_H_SM(j) * t%BR_hjhihi(j,i) * & & t%BR_hjmumu(i)**2.0D0 )! arXiv:0905.3381 table I, absolute XS in fb case(3382) fact=test_appl(t%tev%XS_hj_ratio(j) * t%tev%XS_H_SM(j) * t%BR_hjhihi(j,i) * & & 2.0D0 * t%BR_hjtautau(i) * t%BR_hjmumu(i) )! arXiv:0905.3381 table II (also using fig 3b), absolute XS in fb case(5053) fact=test_appl(t%lhc8%XS_hj_ratio(j)*t%lhc8%XS_H_SM(j) * t%BR_hjhihi(j,i)) case(13032) ! Limit given in fb, multiply by 1000. fact=test_appl(1000.0D0*t%lhc8%XS_hj_ratio(j)*t%lhc8%XS_H_SM(j)*t%BR_hjhihi(j,i) ) ! case(011811) ! ! Limit given in pb ! fact=test_appl(t%lhc8%XS_hj_ratio(j)*t%lhc8%XS_H_SM(j)*t%BR_hjhihi(j,i) * & ! & t%BR_hjtautau(i) * t%BR_hjbb(i) ) ! case(011812) ! ! Limit given in fb, multiply by 1000. ! fact=test_appl(1000.0D0*t%lhc8%XS_hj_ratio(j)*t%lhc8%XS_H_SM(j)*t%BR_hjhiZ(j,i) * & ! & t%BR_hjtautau(i) * BR_Zll ) ! case(044781) ! ! Limit given in pb (Z->ll unfolded) ! fact=test_appl(t%lhc8%XS_gg_hj_ratio(j)*t%lhc8%XS_gg_H_SM(j)*t%BR_hjhiZ(j,i) * & ! & t%BR_hjtautau(i)) ! case(044782) ! ! Limit given in pb (Z->ll unfolded) ! fact=test_appl(t%lhc8%XS_gg_hj_ratio(j)*t%lhc8%XS_gg_H_SM(j)*t%BR_hjhiZ(j,i) * & ! & t%BR_hjbb(i) ) ! case(20160151) ! ! Limit given in pb (Z->ll unfolded) ! fact=test_appl(t%lhc13%XS_gg_hj_ratio(j)*t%lhc13%XS_gg_H_SM(j)*t%BR_hjhiZ(j,i) * & ! & t%BR_hjbb(i) ) ! case(20160152) ! ! Limit given in pb (Z->ll unfolded) ! fact=test_appl(t%lhc13%XS_bb_hj_ratio(j)*t%lhc13%XS_bb_H_SM(j)*t%BR_hjhiZ(j,i) * & ! & t%BR_hjbb(i) ) case(06896) ! Limit given in fb, multiply by 1000. fact=test_appl(1000.0D0*t%lhc8%XS_hj_ratio(j)*t%lhc8%XS_H_SM(j)*t%BR_hjhihi(j,i) * & & t%BR_hjgaga(i) * t%BR_hjbb(i) ) case(16032) ! Limit given in fb, multiply by 1000. fact=test_appl(1000.0D0*t%lhc13%XS_hj_ratio(j)*t%lhc13%XS_H_SM(j)*t%BR_hjhihi(j,i) * & & t%BR_hjgaga(i) * t%BR_hjbb(i) ) ! case(14013) ! ! Limit given in fb, multiply by 1000. ! fact=test_appl(1000.0D0*t%lhc8%XS_hj_ratio(j)*t%lhc8%XS_H_SM(j)*t%BR_hjhihi(j,i) * & ! & t%BR_hjbb(i) * t%BR_hjbb(i) ) case(16002) ! Limit given in fb, multiply by 1000. fact=test_appl(1000.0D0*t%lhc13%XS_hj_ratio(j)*t%lhc13%XS_H_SM(j)*t%BR_hjhihi(j,i) * & & t%BR_hjbb(i) * t%BR_hjbb(i) ) case(150011) ! Limit given in fb, multiply by 1000. fact=test_appl(1000.0D0*t%lhc8%XS_hj_ratio(j)*t%lhc8%XS_H_SM(j)*t%BR_hjhiZ(j,i) * & & t%BR_hjtautau(i) * BR_Zll ) case(150012) ! Limit given in fb, multiply by 1000. fact=test_appl(1000.0D0*t%lhc8%XS_hj_ratio(j)*t%lhc8%XS_H_SM(j)*t%BR_hjhiZ(j,i) * & & t%BR_hjbb(i) * BR_Zll ) case(16010) ! Limit given in fb, multiply by 1000. fact=test_appl(1000.0D0*t%lhc13%XS_hj_ratio(j)*t%lhc13%XS_H_SM(j)*t%BR_hjhiZ(j,i) * & & t%BR_hjbb(i) * BR_Zll ) case(14022) fact=test_appl( t%BR_hjhihi(j,i) * t%BR_hjtautau(i) * t%BR_hjtautau(i) ) case(150600424) fact=test_appl(1000.0D0*t%lhc8%XS_hj_ratio(j)*t%lhc8%XS_H_SM(j) * & & t%BR_hkhjhi(j,i,i)*t%BR_hjmumu(i)**2.0D0 ) case(16035) fact=test_appl(1000.0D0*t%lhc13%XS_hj_ratio(j)*t%lhc13%XS_H_SM(j) * & & t%BR_hkhjhi(j,i,i)*t%BR_hjmumu(i)**2.0D0 ) case(6227) f=0 do j=1,npart2 if( (abs(massj(jj)-massj(j)).le.S95_t2(c)%deltax) & & .and.( massj(jj).le.massj(j) ) )then crosssection=test_appl( t%tev%XS_hjb_ratio(j)*t%tev%XS_Hb_c4_SM(j) ) if(crosssection.gt.vsmall)then f=f+1 fact=fact+crosssection masstot=massj(j)+masstot endif endif enddo if(f.ne.0)then Mj_av=masstot/dble(f) endif case(02301) fact = ( & t%lhc8%XS_hj_ratio(j)*t%lhc8%XS_H_SM(j) + & t%lhc8%XS_vbf_ratio(j)*t%lhc8%XS_vbf_SM(j) + & t%lhc8%XS_hjZ_ratio(j)*t%lhc8%XS_HZ_SM(j) + & t%lhc8%XS_hjW_ratio(j)*t%lhc8%XS_HW_SM(j) + & t%lhc8%XS_tthj_ratio(j)*t%lhc8%XS_ttH_SM(j) ) * t%BR_hjgaga(j) case(2016059) ! Data given in fb - (multiply by 1000) ! ( Acceptance factor linearly increasing between 200 and 700 GeV, then constant) acceptance = 0.61D0 if(Mj_av.le.700.0D0) then acceptance = ((Mj_av-200.0D0)*0.61D0+(700.0D0-Mj_av)*0.54D0)/500.0D0 endif fact =acceptance*1000.0D0*( & t%lhc13%XS_hj_ratio(j)*t%lhc13%XS_H_SM(j) + & t%lhc13%XS_vbf_ratio(j)*t%lhc13%XS_vbf_SM(j) + & t%lhc13%XS_hjZ_ratio(j)*t%lhc13%XS_HZ_SM(j) + & t%lhc13%XS_hjW_ratio(j)*t%lhc13%XS_HW_SM(j) + & t%lhc13%XS_tthj_ratio(j)*t%lhc13%XS_ttH_SM(j) ) * t%BR_hjgaga(j) case(003892) fact = ( & t%lhc8%XS_hj_ratio(j)*t%lhc8%XS_H_SM(j) + & t%lhc8%XS_vbf_ratio(j)*t%lhc8%XS_vbf_SM(j)) * t%BR_hjWW(j) case(20160791,160331) fact = 1000.0D0 * t%lhc13%XS_hj_ratio(j)*t%lhc13%XS_H_SM(j) * t%BR_hjZZ(j) * BR_Zll**2.0D0 case(160332) fact = 1000.0D0 * t%lhc13%XS_vbf_ratio(j)*t%lhc13%XS_VBF_SM(j) * t%BR_hjZZ(j) * BR_Zll**2.0D0 case(01123) ! Limit given in pb fact = t%lhc13%XS_hj_ratio(j)*t%lhc13%XS_H_SM(j) * t%BR_hjWW(j) case(170121,06386) ! Limit given in pb fact = t%lhc13%XS_hj_ratio(j)*t%lhc13%XS_H_SM(j) * t%BR_hjZZ(j) case default stop 'wrong input to function calcfact_t2 in module S95tables' end select if(S95_t2(c)%particle_x1.eq.not_a_particle)then select case(S95_t2(c)%id) case(6227) axis_i=t%BR_hjtautau(jj) case(02301,2016059,20160791,06386) axis_i=t%particle( S95_t2(c)%particle_x2 )%GammaTot(j) / & & t%particle( S95_t2(c)%particle_x2 )%M(j) case(01123) ! in percent axis_i=t%particle( S95_t2(c)%particle_x2 )%GammaTot(j) / & & t%particle( S95_t2(c)%particle_x2 )%M(j) * 100.0D0 case(003892) axis_i=t%particle( S95_t2(c)%particle_x2 )%GammaTot(j) / & & t%GammaTot_SM(j) case(160331,160332,170121) axis_i=t%particle( S95_t2(c)%particle_x2 )%GammaTot(j) case(6065) axis_i=t%BR_Hpjtaunu(j) case default stop 'Problem in subroutine calcfact_t2 (y1)' end select select case(S95_t2(c)%id) case(02301,2016059,20160791,06386,01123,003892,160331,160332,170121) if(extrapolatewidth) then if(axis_i.gt.S95_t2(c)%xmax1) then axis_i = S95_t2(c)%xmax1 endif endif case default continue end select else axis_i=Mi_av endif if(S95_t2(c)%particle_x2.eq.not_a_particle)then select case(S95_t2(c)%id) case default stop 'Problem in subroutine calcfact_t2 (y2)' end select else axis_j=Mj_av endif cfact_t2=cfact_t2+fact nc=f deallocate(massi) deallocate(massj) contains !******************************************************** function test_appl(x) !******************************************************** use usefulbits, only : div implicit none !--------------------------------------input double precision :: x !-----------------------------------function double precision :: test_appl !------------------------------------------- double precision, allocatable :: XS_ratio(:), ds(:) double precision :: s integer :: k select case(S95_t2(c)%id) case(150,160,180,190,200,210,220,230,240,3381,3382,13032,06896,14013,& & 16002,150011,150012,16032,16029,011811,011812,044781,044782,20160151,& & 20160152,16010,17002,150600424,16035) if(S95_t2(c)%needs_M2_gt_2M1.and.(massj(j).lt.2.0D0*massi(i)))then test_appl=0.0D0 elseif(massj(j).lt.massi(i))then test_appl=0.0D0 else test_appl=x endif case(02671,02672) if(massj(j).lt.massi(i)+3.0D0) then test_appl=0.0D0 else test_appl=x endif case(6065) if( (t%BR_Hpjtaunu(j) + t%BR_Hpjcs(j) + t%BR_Hpjcb(j)).gt.1.0D0 ) then test_appl=0.0D0 write(*,*) 'WARNING: Sum of charged Higgs branching ratios (cs,cb,taunu) > 1.' else test_appl=x endif case(14022) ! SM likeness test of the heavier Higgs boson allocate(XS_ratio(4),ds(4)) XS_ratio=(/ div( t%lhc8%XS_hj_ratio(j),t%lhc8%XS_H_SM(j),0.0D0,1.0D9), & div( t%lhc8%XS_vbf_ratio(j),t%lhc8%XS_vbf_SM(j),0.0D0,1.0D9), & div( t%lhc8%XS_hjW_ratio(j),t%lhc8%XS_HW_SM(j),0.0D0,1.0D9), & div( t%lhc8%XS_hjZ_ratio(j),t%lhc8%XS_HZ_SM(j),0.0D0,1.0D9) /) s=sum(XS_ratio)/4. do k=1,4 ds(k)= div((XS_ratio(k)-s), s, 0.0D0, 1.0D9) enddo if(S95_t2(c)%needs_M2_gt_2M1.and.(massj(j).lt.2.0D0*massi(i)))then test_appl=0.0D0 elseif(massj(j).lt.massi(i))then test_appl=0.0D0 elseif(maxval(ds).gt.0.1D0) then ! SM likeness test of the heavier Higgs boson test_appl=0.0D0 else test_appl=s*x endif case(5053) if(S95_t2(c)%needs_M2_gt_2M1.and.(massj(j).lt.2.0D0*massi(i)))then test_appl=0.0D0 !----Check for sufficiently SM-like BRs to gaga and bb of lighter Higgs elseif(abs(t%BR_hjgaga(i)-t%BR_Hgaga_SM(i)).gt.0.05*t%BR_Hgaga_SM(i)) then test_appl=0.0D0 elseif(abs(t%BR_hjbb(i)-t%BR_Hbb_SM(i)).gt.0.05*t%BR_Hbb_SM(i)) then test_appl=0.0D0 else test_appl=x endif case(905,906,907,909) if(abs(minval(massi)-massi(i)).gt.vsmall)then !checking that lightest neutralino in process is lightest neutralino in model test_appl=0.0D0 elseif(massj(j).lt.massi(i))then test_appl=0.0D0 else test_appl=x endif case(908) if( abs(t%BR_CjWNi(j,i)-1.0D0) .gt. eps2 )then test_appl=0.0D0 elseif(abs(minval(massi)-massi(i)).gt.vsmall)then !checking that lightest neutralino in process is lightest neutralino in model test_appl=0.0D0 elseif(massj(j).lt.massi(i))then test_appl=0.0D0 else test_appl=x endif case(910) if( abs(t%BR_NjZNi(j,i)-1.0D0) .gt. eps2 )then test_appl=0.0D0 elseif(abs(minval(massi)-massi(i)).gt.vsmall)then !checking that lightest neutralino in process is lightest neutralino in model test_appl=0.0D0 elseif(massj(j).lt.massi(i))then test_appl=0.0D0 else test_appl=x endif case(6227) if( ( t%BR_hjtautau(j)+t%BR_hjbb(j) ).le.0.98D0)then test_appl=0.0D0 else test_appl=x endif case default stop 'error in function test_appl' end select end function test_appl end subroutine calcfact_t2 !******************************************************** subroutine outputproc_t1(tlistn,jj,k,descrip) !******************************************************** ! uses information about the process to output a description ! for processes using table type 1 ! note: at the moment, np(x) (and so ii and jj) needs to be 1 digit long i.e. nH<10 !******************************************************** implicit none !--------------------------------------input integer :: tlistn integer :: jj,k !-----------------------------------internal character(LEN=2) :: j character(LEN=45) :: label character(LEN=200):: descrip !------------------------------------------- if(jj.ne.0)then write(j,'(I2)')jj j=adjustl(j) else j='j' endif if(k.eq.21)then label='' !no need to lable each line in Key.dat else label='('//trim(S95_t1(tlistn)%label)//')' endif descrip='' select case(S95_t1(tlistn)%id) case(142) descrip=' (e e)->(h'//j//')Z->(b b-bar)Z ' //label case(143) descrip=' (e e)->(h'//j//')Z->(tau tau)Z ' //label case(300) descrip=' (e e)->(h'//j//')Z->(...)Z ' //label case(400,401,402,403) descrip=' (e e)->(h'//j//')Z->(invisible)Z ' //label case(500) descrip=' (e e)->(h'//j//')Z->(gamma gamma)Z ' //label case(600,601) descrip=' (e e)->(h'//j//')Z->(2 jets)Z ' //label case(711) descrip=' (e e)->b b-bar(h'//j//')->b b-bar(b b-bar) where h'//j//' is CP even ' //label case(713) descrip=' (e e)->b b-bar(h'//j//')->b b-bar(b b-bar) where h'//j//' is CP odd ' //label case(721,741) descrip=' (e e)->b b-bar(h'//j//')->b b-bar(tau tau) where h'//j//' is CP even ' //label case(723,743) descrip=' (e e)->b b-bar(h'//j//')->b b-bar(tau tau) where h'//j//' is CP odd ' //label case(731) descrip=' (e e)->tau tau(h'//j//')->tau tau(tau tau) where h'//j//' is CP even ' //label case(733) descrip=' (e e)->tau tau(h'//j//')->tau tau(tau tau) where h'//j//' is CP odd ' //label case(801,811,821) descrip=' (e e)->(H'//j//'+)(H'//j//'-)->4 quarks ' //label case(802) descrip=' (e e)->(H'//j//'+)(H'//j//'-)->(2 quarks) tau nu ' //label case(803,813) descrip=' (e e)->(H'//j//'+)(H'//j//'-)->tau nu tau nu' //label case(5482,5570,8742,4493,9475,5876,1024,9889,3534,6089,10235,3047,10799,3564,6166,6296) descrip=' (p p-bar)->Z(h'//j//')->l l (b b-bar) ' //label case(9236,3930,8958,6039,3216,10433,6221,10600) descrip=' (p p-bar)->h'//j//'->W W ' //label case(9219,9463,5472,8957,9596,5828,1970,3493,5972,3155,5613,9868,10068,6092,10217,10239,10796,0874,6220,6309) descrip=' (p p-bar)->W(h'//j//')->l nu (b b-bar) ' //label case(5489) descrip=' (p p-bar)->h'//j//'->W W->e mu ' //label case(5624) descrip=' (p p-bar)->h'//j//'->W W->l l ' //label case(3331) descrip=' (p p-bar)->h'//j//'->V V ' //label case(5757) descrip=' (p p-bar)->h'//j//'/VBF->W W->l l where h'//j//' is SM-like ' //label case(5485,5873) descrip=' (p p-bar)->W(h'//j//')->W W W->l l nu nu ' //label case(9071,2491,5740,5980,1014,3363,4555) descrip=' (p p-bar)->h'//j//'->tau tau ' //label case(8961,9465,9290,9713,9674,0598,9897,9998,9999,6008,6096,6183,3233,6229,6304,10606,10806,10884) descrip=' (p p-bar)->h'//j//'+... where h'//j//' is SM-like ' //label case(9284,5503,5726,3556,10105,1931,4782) descrip=' (p p-bar)->h'//j//'(b/b-bar)->(b b-bar) (b/b-bar) ' //label case(6224,6225,6226) descrip=' (p p-bar)->h'//j//'(b/b-bar)->(b b-bar) (b/b-bar) or (tau tau) (b/b-bar) ' //label case(7307) descrip=' (p p-bar)->W(h'//j//')->W W W ' //label case(6301) descrip=' (p p-bar)->V h'//j//'->V W W ' //label case(5601,5737,1514) descrip=' (p p-bar)->h'//j//'+...->gamma gamma+... ' //label case(5858,6177,6295,1887,10065,10485,4960) descrip=' (p p-bar)->h'//j//'+...->gamma gamma+... where h'//j//' is SM-like ' //label case(7081,9166,9483,5586,9642,1266,0432,9891,5285,3935,6087,6170,10212,6223,6299,10583,10798) descrip=' (p p-bar)->V h'//j//'-> (b b-bar) +missing Et where h'//j//' is SM-like ' //label case(10596) descrip=' (p p-bar)->V h'//j//'-> (b b-bar) l nu where h'//j//' is SM-like ' //label case(6091,1268) descrip=' (p p-bar)->V h'//j//'-> ll + X where h'//j//' is SM-like ' //label case(10010) descrip=' (p p-bar)->V (h'//j//')/VBF-> (b b-bar) q q where h'//j//' is SM-like ' //label case(10607) descrip=' (p p-bar)->V (h'//j//')/VBF-> (b b-bar)+... where h'//j//' is SM-like ' //label case(6436) descrip=' (p p-bar)->V (h'//j//')-> (b b-bar)+...' //label case(9248,10133,10439,6305,6286) descrip=' (p p-bar)->h'//j//'+...->tau tau +... where h'//j//' is SM-like ' //label case(4800,5845,6171) descrip=' (p p-bar)->h'//j//'+...->tau tau (2 jets) where h'//j//' is SM-like ' //label case(5871) descrip=' (p p-bar)->h'//j//'+...->W W +... ->l l nu nu +... where h'//j//' is SM-like ' //label case(6082) descrip=' (p p-bar)->h'//j//'+...->V V +... ->e mu missing Et +... where h'//j//' is SM-like ' //label case(6182,6219) descrip=' (p p-bar)->h'//j//'+...->V V +... ->l l missing Et +... where h'//j//' is SM-like ' //label case(6276) descrip=' (p p-bar)->h'//j//'+...->V V +... ->l l l missing Et +... where h'//j//' is SM-like ' //label case(10573) descrip=' (p p-bar)->h'//j//'+...->V V +... ->l l l l +... where h'//j//' is SM-like ' //label case(5984,9714,6006,9022,9023,0710,9887,4162,10102,4481,4468,6095,10432,6179,6302,10599) descrip=' (p p-bar)->h'//j//'+...->W W +... where h'//j//' is SM-like ' //label case(0024,5985,0968,5974,6083,4885) descrip=' (p p-bar)->h'//j//'(b/b-bar)->(tau tau) (b/b-bar) ' //label case(5739,10574) descrip=' (p p-bar)->t t-bar h'//j//'->t t-bar b b-bar ' //label case(2012135,12025) descrip=' (p p)->t t-bar h'//j//'->t t-bar b b-bar ' //label case(0611) descrip=' (p p-bar)->h'//j//'->Z gamma ' //label case(10500) descrip=' (p p-bar)->V h'//j//'-> V tau tau ' //label case(1811) descrip=' t->(H'//j//'+)b->(2 quarks) b ' //label case(1812,2011138,2011151,2760,2013090,2014050,14020,8353,7712,11002,11008,160311,79152) descrip=' t->(H'//j//'+)b->tau nu b ' //label case(1269,1270,2011094,13035) descrip=' t->(H'//j//'+)b->(c s) b' //label case(16030) descrip=' t->(H'//j//'+)b->(c b) b' //label case(11006,11017,110271,110272,14161,14162,5064,2012017,2011150) descrip=' (p p)->h'//j//'/VBF->Z Z-> l l q q where h'//j//' is SM-like ' //label case(2011048,11004,11015,2011131) descrip=' (p p)->h'//j//'/VBF->Z Z-> l l l l where h'//j//' is SM-like ' //label case(2011162,1415,2012092) descrip=' (p p)->h'//j//'/VBF/V h'//j//'->Z Z-> l l l l where h'//j//' is SM-like ' //label case(11025,1997,12041) descrip=' (p p)->h'//j//'/VBF/V/tt h'//j//'->Z Z-> l l l l where h'//j//' is SM-like ' //label case(20130131) descrip=' (p p)->h'//j//'->Z Z-> l l l l where h'//j//' is SM-like ' //label case(20130132) descrip=' (p p)->h'//j//'/ggF h->Z Z-> l l l l ' //label case(20130133) descrip=' (p p)->h'//j//'/VBF/V h->Z Z-> l l l l ' //label case(04670) descrip=' (p p)->h'//j//'->h(SM,125)h(SM,125)-> bb/tautau/WW/gaga (combination) ' //label case(046701) descrip=' (p p)->h'//j//'->h(SM,125)h(SM,125)-> gaga WW ' //label + case(4873) + descrip=' (p p)->h'//j//'->h(SM,125)h(SM,125)-> gaga bb ' //label case(046702) descrip=' (p p)->h'//j//'->h(SM,125)h(SM,125)-> bb tautau ' //label + case(17030) + descrip=' (p p)->h'//j//'->h(SM,125)h(SM,125)-> bb/tautau/WW/ZZ/gaga (combination) ' //label case(059301) descrip=' (p p)->h'//j//'->Z Z ' //label case(059302) descrip=' (p p)->h'//j//'(VBF)->Z Z ' //label case(130021) descrip=' (p p)->h'//j//'->Z Z-> l l l l (low mass) where h'//j//' is SM-like ' //label case(130022) descrip=' (p p)->h'//j//'->Z Z-> l l l l (high mass) where h'//j//' is SM-like ' //label case(16034) descrip=' (p p)->h'//j//'/VBF->Z Z-> l l q q, with single-Higgs/VBF ratio profiled ' //label case(009361) descrip=' (p p)->h'//j//'->V V where h'//j//' is SM-like ' //label case(11005,11016,11026,3478) descrip=' (p p)->h'//j//'/VBF->V V-> l l nu nu where h'//j//' is SM-like ' //label case(3357,2011148,2012016) descrip=' (p p)->h'//j//'->V V-> l l nu nu where h'//j//' is SM-like ' //label case(11013,11028) descrip=' (p p)->h'//j//'/VBF->V V-> l l tau tau where h'//j//' is SM-like ' //label case(2011026) descrip=' (p p)->h'//j//'/VBF->V V where h'//j//' is SM-like ' //label case(5429,2011052,2011111,2011134) descrip=' (p p)->h'//j//'->W W ' //label case(063861) descrip=' (g g)->h'//j//' -> Z Z -> 4l+2l2nu (employs NWA)' //label case(20160821) descrip=' (g g)->h'//j//' -> Z Z -> llnunu (employs NWA)' //label case(20160822) descrip=' (g g)->h'//j//' -> Z Z -> llqq (employs NWA)' //label case(20160792) descrip=' (g g)->h'//j//' -> Z Z -> 4l (low-mass range, employs NWA)' //label case(20160823) descrip=' (p p)->h'//j//'(VBF) -> Z Z -> llqq (employs NWA)' //label case(2016062) descrip=' (p p)->h'//j//' -> W W -> lnuqq (employs NWA)' //label case(20160741) descrip=' (p p)->h'//j//' -> W W -> lnulnu (employs NWA)' //label case(20160742) descrip=' (p p)->h'//j//'(VBF) -> W W -> lnulnu (employs NWA)' //label case(20160793) descrip=' (p p)->h'//j//'(VBF) -> Z Z -> 4l (employs NWA)' //label case(0038911) descrip=' (p p)->h'//j//'->W W (employs NWA)' //label case(0038912) descrip=' (p p)->VBF, h'//j//'->W W (employs NWA)' //label case(0038913) descrip=' (p p)->h'//j//'->W W (assumes SM Higgs width, employs CPS)' //label case(0038914) descrip=' (p p)->VBF, h'//j//'->W W (assumes SM Higgs width, employs CPS)' //label case(11034,12039,13009,2012078) descrip=' (p p)->W(h'//j//')->W W W where h'//j//' is SM-like ' //label case(12006) descrip=' (p p)->W(h'//j//')->W tau tau ' //label case(12051) descrip=' (p p)->V(h'//j//')->V tau tau ' //label case(2012012,2012158,2013030) descrip=' (p p)->h'//j//'->W W where h'//j//' is SM-like ' //label case(110212) descrip=' (p p)->V h'//j//'/VBF->gamma gamma ' //label case(2011025,2011085,2011161,5895,1414,2012091,2012168,1487,12001,12015,13001,11010,11030,11021) descrip=' (p p)->h'//j//'+...->gamma gamma+... where h'//j//' is SM-like ' //label case(6583,14006,14037) descrip=' (p p)->h'//j//'/VBF/Wh'//j//'/Zh'//j//'/tth'//j//'->gamma gamma ' //label case(14031) descrip=' (p p)->h'//j//'->Z gamma -> l l gamma ' //label case(13006, 13075515,2013009,3051) descrip=' (p p)->h'//j//'+...->gamma Z+... where h'//j//' is SM-like ' //label case(11031,12044,13012) descrip=' (p p)->V h'//j//'->b b where h'//j//' is SM-like ' //label case(13011) descrip=' (p p)->h'//j//'/VBF->bb+... where h'//j//' is SM-like ' //label case(2011020,2011021) descrip=' (p p)->h'//j//'->mu mu (lower mass range) ' //label case(2011005,3615,2012018) descrip=' (p p)->h'//j//'/VBF->W W where h'//j//' is SM-like ' //label case(12046) descrip=' (p p)->h'//j//'->W W-> l nu q q where h'//j//' is SM-like ' //label case(11003,11014,2577,11024,1489,12042,13003,13027) descrip=' (p p)->h'//j//'+...->W W +... where h'//j//' is SM-like ' //label case(2748,1408,11011,2011163,11022,11032,1488,12008,12045,2011157,2011112,2011135,2012019) descrip=' (p p)->h'//j//'+... where h'//j//' is SM-like ' //label case(7214) descrip=' (p p)->h'//j//'+... where h'//j//' is SM-like ' //label case(10002,5003,2011132,2012094,110201,110292,12050,13021) descrip=' (p p)->h'//j//'->tau tau ' //label case(2014049,20160852,160372,20170502) descrip=' (p p)->bbh'//j//'->tau tau ' //label case(20140492,20160851,160371,20170501) descrip=' (p p)->ggh'//j//'->tau tau ' //label case(11009,11020,2011133,2012014) descrip=' (p p)->h'//j//'/VBF->tau tau +... where h'//j//' is SM-like ' //label case(2012160,12043) descrip=' (p p)->h'//j//'->tau tau +... where h'//j//' is SM-like ' //label case(2013010,7663) descrip=' (p p)->h'//j//'->mu mu +... where h'//j//' is SM-like ' //label case(2012015) descrip=' (p p)->V h'//j//'-> (b b-bar) + X where h'//j//' is SM-like ' //label case(110291) descrip=' (p p)->h'//j//'/VBF/V h'//j//'/tt h'//j//'->tau tau +... where h'//j//' is SM-like ' //label case(2011103,2012161,11012) descrip=' (p p)->V(h'//j//')->V (b b-bar) ' //label case(13022) descrip=' (p p)->h'//j//'(VBF)->WW ' //label case(13013,13441) descrip=' (p p)->h'//j//'(VBF)->V (invisible) ' //label case(13018,13442) descrip=' (p p)->Zh'//j//'->Z (invisible) ' //label case(13443) descrip=' (p p)->h'//j//'(VBF)/Zh'//j//', h'//j//'->(invisible) ' //label case(2013011,3244) descrip=' (p p)->Vh'//j//'->V (invisible) ' //label case(160312,2016088,79151) descrip=' (p p) -> (H'//j//'+) t b -> (tau nu) t b '//label case(1504233) descrip=' (p p) -> (H'//j//'+) (VBF) -> W Z '//label case(2016089) descrip=' (p p) -> (H'//j//'+) t b -> (t b) t b '//label case(2016071) descrip=' (p p) -> h'//j//' -> h h -> W W gamma gamma, where h lies around 125 (+- 2.5 GeV) '//label case(14013,16002,2016049) descrip=' (p p) -> h'//j//' -> h h -> b b b b, where h lies around 125 (+- 10 GeV) '//label case(011811,16029,17002) descrip=' (p p) -> h'//j//' -> h h -> b b tau tau, where h lies around 125 (+- 10 GeV) '//label case(14011,044782) descrip=' (p p) -> h'//j//' -> Z h -> l l b b, where h lies around 125 (+- 10 GeV) '//label case(011812,044781) descrip=' (p p) -> h'//j//' -> Z h -> l l tau tau, where h lies around 125 (+- 10 GeV) '//label case(20160151) descrip=' (g g) -> h'//j//' -> Z h -> l l b b, where h lies around 125 (+- 10 GeV) '//label case(20160152) descrip=' (b b) -> h'//j//' -> Z h -> l l b b, where h lies around 125 (+- 10 GeV) '//label case(1508329,2015080) descrip=' (p p)->bbh'//j//'->b b ' //label case(2016025) descrip=' (p p)->h'//j//'->b b ' //label case(2016044) descrip=' (p p)->h'//j//'->Z gamma ' //label case(201608391) descrip=' (p p) -> W h -> W a a -> W b b b b, where h lies around 125 (+- 10 GeV) '//label case(15009) descrip=' (p p)->b b h'//j//'->b b mu mu ' //label case(2016004) descrip=' (p p)->h'//j//'->h h -> b b gamma gamma, where h lies around 125 (+- 2.5 GeV) ' //label case(17006) descrip=' (p p)->h'//j//'->h h -> b b l l nu nu, where h lies around 125 (+- 10 GeV) ' //label case(1604833) descrip=' (p p)->h'//j//'->V V (V=W,Z) ' //label case(2016056) descrip=' (p p)->h'//j//'->Z Z-> l l nu nu ' //label case(20160551) descrip=' (p p)->h'//j//'->Z Z-> q q q q (boosted jets, using RS graviton limit) ' //label case(20160552) descrip=' (p p)->h'//j//'->W W-> q q q q (boosted jets, using RS graviton limit) ' //label case(17020321,1506534) descrip=' (p p)-> H_{SM-like} near 125 GeV -> h'//j//'h'//j//' -> tau tau tau tau ' //label case(5051) descrip=' (p p)-> H_{SM-like} near 125 GeV -> h'//j//'h'//j//' -> gamma gamma gamma gamma ' //label case(17020322) descrip=' (p p)-> H_{SM-like} near 125 GeV -> h'//j//'h'//j//' -> mu mu b b ' //label case(17020323) descrip=' (p p)-> H_{SM-like} near 125 GeV -> h'//j//'h'//j//' -> mu mu tau tau ' //label case default stop 'wrong input to function outputproc_t1 in module S95tables (1)' end select ! New description string based on data file input ! Added by OS 2012-03-12 if(S95_t1(tlistn)%desc.NE.'') then descrip = trim(S95_t1(tlistn)%desc) // ', h='//j if (S95_t1(tlistn)%SMlike.EQ.1) then descrip = trim(descrip)//' where h is SM-like' endif descrip = trim(descrip)//' '//label endif end subroutine outputproc_t1 !******************************************************** subroutine outputproc_t2(tlistn,ii,jj,k,descrip) !******************************************************** ! uses information about the process to output a description ! for processes using table type 1 ! note: at the moment, np(x) (and so ii and jj) needs to be 1 digit long i.e. np(x)<10 !******************************************************** implicit none !--------------------------------------input integer :: tlistn integer :: ii,jj,k !-----------------------------------internal character(LEN=2) :: j,i character(LEN=45) :: label character(LEN=200):: descrip !------------------------------------------- if((ii.ne.0).and.(jj.ne.0))then write(i,'(I2)')ii i=adjustl(i) write(j,'(I2)')jj j=adjustl(j) else i='i' j='j' endif if(k.eq.21)then label='' !no need to lable each line in Key.dat else label='('//trim(S95_t2(tlistn)%label)//')' endif select case(S95_t2(tlistn)%id) case(150) descrip=' (ee)->(h'//j//'->h'//i//' h'//i//')Z->(b b b b)Z ' //label case(160) descrip=' (ee)->(h'//j//'->h'//i//' h'//i//')Z->(tau tau tau tau)Z ' //label case(180) descrip=' (ee)->(h'//j//' h'//i//')->(b b b b) ' //label case(190) descrip=' (ee)->(h'//j//' h'//i//')->(tau tau tau tau) ' //label case(200) descrip=' (ee)->(h'//j//'->h'//i//' h'//i//')h'//i//'->(b b b b)b b '//label case(210) descrip=' (ee)->(h'//j//'->h'//i//' h'//i//')h'//i//'->(tau tau tau tau)tau tau '//label case(220) descrip=' (ee)->(h'//j//'->h'//i//' h'//i//')Z->(b b)(tau tau)Z ' //label case(230) descrip=' (ee)->(h'//j//'->b b)(h'//i//'->tau tau) ' //label case(240) descrip=' (ee)->(h'//j//'->tau tau)(h'//i//'->b b) ' //label case(905) descrip=' (ee)->(C'//j//'+)(C'//j//'-)-> (q q N'//i//') (q q N'//i//') ' //label case(906) descrip=' (ee)->(C'//j//'+)(C'//j//'-)-> q q l nu N'//i//' N'//i//' ' //label case(907) descrip=' (ee)->(C'//j//'+)(C'//j//'-)-> (l nu N'//i//') (l nu N'//i//') ' //label case(908) descrip=' (ee)->(C'//j//'+)(C'//j//'-) with all C'//j//' decaying to W + N'//i//' ' //label case(909) descrip=' (ee)->(N'//j//') N'//i//'-> (q q N'//i//') N'//i//' ' //label case(910) descrip=' (ee)->N'//j//' N'//i//' with all N'//j//' decaying to Z + N'//i//' ' //label case(6065) descrip=' (ee)->(H'//j//'+)(H'//j//'-), with H^(+/-) -> 2 quarks or tau nu (combination)' //label case(02671) descrip=' (ee)->(H'//j//'+)(H'//j//'-)-> (h'//i//'W)(h'//i//'W), with h'//i//'-> bb' //label case(02672) descrip=' (ee)->(H'//j//'+)(H'//j//'-)-> (h'//i//'W)(tau nu), with h'//i//'-> bb' //label case(3381) descrip=' (p p-bar)->h'//j//'->h'//i//' h'//i//'->mu mu mu mu ' //label case(3382) descrip=' (p p-bar)->h'//j//'->h'//i//' h'//i//'->tau tau mu mu ' //label case(5053) descrip=' (p p)->h'//j//'->h'//i//' h'//i//'->gamma gamma b b, where h'//i//' is SM-like around 125 GeV '//label case(13032,06896,16032) descrip=' (p p)->h'//j//'->h'//i//' h'//i//'->gamma gamma b b, where h'//i//' lies around 125 GeV '//label case(011811) descrip=' (p p)->h'//j//'->h'//i//' h'//i//'->b b tau tau, where h'//i//' lies around 125 GeV '//label case(14013,16002) descrip=' (p p)->h'//j//'->h'//i//' h'//i//'->b b b b, where h'//i//' lies around 125 GeV '//label case(14022) descrip=' (p p)->h'//j//'->h'//i//' h'//i//'->tau tau tau tau, where h'//j//' lies around 125 GeV and is SM-like '//label case(011812,150011) descrip=' (p p)->h'//j//' -> h'//i//'Z -> (tau tau)(l l) '//label case(150012,16010) descrip=' (p p)->h'//j//' -> h'//i//'Z -> (b b-bar)(l l) '//label case(044781) descrip=' (g g)->h'//j//' -> h'//i//'Z -> (tau tau)(l l) '//label case(044782,20160151) descrip=' (g g)->h'//j//' -> h'//i//'Z -> (b b-bar)(l l) '//label case(20160152) descrip=' (b b)->h'//j//' -> h'//i//'Z -> (b b-bar)(l l) '//label case(6227) descrip=' (p p-bar)->h'//j//'(b/b-bar)->(b b-bar) (b/b-bar) or (tau tau) (b/b-bar) ' //label case(02301,2016059) descrip=' (p p)->h'//j//'/VBF/Wh'//j//'/Zh'//j//'/tth'//j//'->gamma gamma (including widths effects) ' //label case(003892) descrip=' (p p)->h'//j//'/VBF->W W (including widths effects) ' //label case(01123) descrip=' (p p)->h'//j//'->W W (including widths effects) ' //label case(20160791,160331) descrip=' (g g)->h'//j//'->Z Z -> 4l (including widths effects) ' //label case(170121) descrip=' (p p)->h'//j//'->Z Z -> 4l,2l2q,2l2nu (including widths effects) ' //label case(06386) descrip=' (p p)->h'//j//'->Z Z -> 4l,2l2nu (including widths effects) ' //label case(160332) descrip=' (p p)->h'//j//' (VBF)->Z Z -> 4l (including widths effects) ' //label case(150600424,16035) descrip=' (p p)->h'//j//'->h'//i//'h'//i//'->mu mu mu mu ' //label case default stop 'wrong input to function outputproc_t2 in module S95tables (2)' end select end subroutine outputproc_t2 !****************************************************************** subroutine model_likeness(j,id,t,model_like,sigmaXbr) !***************************************************************** ! Tests how Standard Model-like a parameter point is ! 0 means Mi.ge.MSingleLim (treat as single channel) ! 1 passes the SM-like test and Mi.lt.MSingleLim ! -1 fails the SM-like test and Mi.lt.MSingleLim use usefulbits, only : dataset,div, vsmall, iselementofarray, np, Hneut use theory_BRfunctions use theory_XS_SM_functions implicit none !--------------------------------------input type(dataset) :: t integer :: id,j !-----------------------------------internal integer :: ns,nb,n,jj !--TS 14/03/2011: For revamped model-likeness test method double precision,allocatable :: channel_rat(:,:), channel_SM(:,:) double precision,allocatable :: XS_SM_temp(:), BR_SM_temp(:) double precision :: SMrate, weight, c, dcbyc_dble integer :: ic,nc,nc_rel !---- double precision,allocatable :: XS_rat(:), BR_rat(:) integer :: model_like,testSMratios double precision :: sigmaXbr integer :: is,ib double precision :: s,b double precision,allocatable :: dsbys(:),dbbyb(:),dcbyc(:) logical :: correct_properties double precision,parameter :: unset=-9.9999D6 correct_properties=.True. ns=-1 nb=-1 nc=-1 n=t1elementnumberfromid(S95_t1,id) select case(id) - case(711,713,721,723,731,733,741,743,5739,10574,6224,6225,6226,6276,6301,6309,04670,046701,046702,0038911,0038912,0038913,0038914) + case(711,713,721,723,731,733,741,743,5739,10574,6224,6225,6226,6276,6301,6309,& + & 04670,046701,046702,0038911,0038912,0038913,0038914,17030,4873) !these have a very simple model-likeness test, so we can have a non-zero deltax case default if(S95_t1(n)%deltax.gt.0.0D0)then write(*,*)'hello id=',id,'deltax=',S95_t1(n)%deltax stop 'error in subroutine model_likeness (1)' endif end select select case(id) case(8961,0598) ! ns = 3; nb = 2; call initialise_XS_rat_BR_rat nc = 6; call initialise_channel_rat_SM ! XS_rat(1) = t%tev%XS_hjW_ratio(j) ! XS_rat(2) = t%tev%XS_hj_ratio(j) ! XS_rat(3) = t%tev%XS_hjZ_ratio(j) ! BR_rat(1) = div(t%BR_hjbb(j) , t%BR_Hbb_SM(j) ,0.0D0,1.0D0) ! BR_rat(2) = div(t%BR_hjWW(j) , t%BR_HWW_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(6,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%tev%XS_H_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%tev%XS_HW_SM(j) , t%BR_HWW_SM(j) /) channel_SM(3,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_HWW_SM(j) /) channel_SM(4,:) = (/ t%tev%XS_H_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(5,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(6,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Hbb_SM(j) /) case(10010,10607) ! ns = 4; nb = 2; call initialise_XS_rat_BR_rat nc = 8; call initialise_channel_rat_SM ! XS_rat(1) = t%tev%XS_hjW_ratio(j) ! XS_rat(2) = t%tev%XS_vbf_ratio(j) ! XS_rat(3) = t%tev%XS_hjZ_ratio(j) ! XS_rat(4) = t%tev%XS_tthj_ratio(j) ! BR_rat(1) = div(t%BR_hjbb(j) , t%BR_Hbb_SM(j),0.0D0,1.0D0) ! BR_rat(2) = div(( t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j) ) & ! & , t%BR_Hjets_SM(j),0.0D0,1.0D0) channel_rat(1,:) = (/ t%tev%XS_hj_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%tev%XS_vbf_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%tev%XS_hjW_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%tev%XS_hjZ_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(6,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(7,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(8,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%tev%XS_H_SM(j) , t%BR_Hjets_SM(j) /) channel_SM(2,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Hjets_SM(j) /) channel_SM(3,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Hjets_SM(j) /) channel_SM(4,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Hjets_SM(j) /) channel_SM(5,:) = (/ t%tev%XS_H_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(6,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(7,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(8,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Hbb_SM(j) /) case(13443) nc = 2; call initialise_channel_rat_SM channel_rat(1,:) = (/ t%lhc8%XS_hjZ_ratio(j) , div(t%BR_hjinvisible(j),1.0D0,0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc8%XS_vbf_ratio(j) , div(t%BR_hjinvisible(j),1.0D0,0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc8%XS_HZ_SM(j) , 1.0D0 /) channel_SM(2,:) = (/ t%lhc8%XS_vbf_SM(j) , 1.0D0 /) case(6436) nc = 2; call initialise_channel_rat_SM channel_rat(1,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(2,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Hbb_SM(j) /) case(9290) ! ns = 4; nb = 4; call initialise_XS_rat_BR_rat nc = 16; call initialise_channel_rat_SM ! XS_rat(1) = t%tev%XS_hjW_ratio(j) ! XS_rat(2) = t%tev%XS_hj_ratio(j) ! XS_rat(3) = t%tev%XS_hjZ_ratio(j) ! XS_rat(4) = t%tev%XS_vbf_ratio(j) ! BR_rat(1) = div( t%BR_hjbb(j) , t%BR_Hbb_SM(j) ,0.0D0,1.0D0) ! BR_rat(2) = div( t%BR_hjWW(j) , t%BR_HWW_SM(j) ,0.0D0,1.0D0) ! BR_rat(3) = div(t%BR_hjtautau(j) , t%BR_Htautau_SM(j),0.0D0,1.0D0) ! BR_rat(4) = div( t%BR_hjgaga(j) , t%BR_Hgaga_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(6,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(7,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(8,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(9,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(10,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(11,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(12,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(13,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(14,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(15,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(16,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%tev%XS_H_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_HWW_SM(j) /) channel_SM(3,:) = (/ t%tev%XS_HW_SM(j) , t%BR_HWW_SM(j) /) channel_SM(4,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_HWW_SM(j) /) channel_SM(5,:) = (/ t%tev%XS_H_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(6,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(7,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(8,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(9,:) = (/ t%tev%XS_H_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(10,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(11,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(12,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(13,:) = (/ t%tev%XS_H_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(14,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(15,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(16,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Hgaga_SM(j) /) case(9674,9897,9999) ! ns = 4; nb = 3; call initialise_XS_rat_BR_rat nc = 12; call initialise_channel_rat_SM ! XS_rat(1) = t%tev%XS_hjW_ratio(j) ! XS_rat(2) = t%tev%XS_hj_ratio(j) ! XS_rat(3) = t%tev%XS_hjZ_ratio(j) ! XS_rat(4) = t%tev%XS_vbf_ratio(j) ! BR_rat(1) = div( t%BR_hjbb(j) , t%BR_Hbb_SM(j) ,0.0D0,1.0D0) ! BR_rat(2) = div( t%BR_hjWW(j) , t%BR_HWW_SM(j) ,0.0D0,1.0D0) ! BR_rat(3) = div(t%BR_hjtautau(j) , t%BR_Htautau_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(6,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(7,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(8,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(9,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(10,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(11,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(12,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%tev%XS_H_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_HWW_SM(j) /) channel_SM(3,:) = (/ t%tev%XS_HW_SM(j) , t%BR_HWW_SM(j) /) channel_SM(4,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_HWW_SM(j) /) channel_SM(5,:) = (/ t%tev%XS_H_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(6,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(7,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(8,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(9,:) = (/ t%tev%XS_H_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(10,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(11,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(12,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Hbb_SM(j) /) case(7081,9166,9483,5586,9642,1266,0432,9891,5285,3935,6087,6170,10212,6223,6299,10583,10798,10596) ! ns = 2; nb = 1; call initialise_XS_rat_BR_rat nc = 2; call initialise_channel_rat_SM ! XS_rat(1) = t%tev%XS_hjW_ratio(j) ! XS_rat(2) = t%tev%XS_hjZ_ratio(j) ! BR_rat(1) = div(t%BR_hjbb(j) , t%BR_Hbb_SM(j),0.0D0,1.0D0) channel_rat(1,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(2,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Hbb_SM(j) /) case(10500) ! ns = 2; nb = 1; call initialise_XS_rat_BR_rat nc = 2; call initialise_channel_rat_SM ! XS_rat(1) = t%tev%XS_hjW_ratio(j) ! XS_rat(2) = t%tev%XS_hjZ_ratio(j) ! BR_rat(1) = div(t%BR_hjtautau(j) , t%BR_Htautau_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(2,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Htautau_SM(j) /) case(9248,10133,10439) ! ns = 4; nb = 1; call initialise_XS_rat_BR_rat nc = 4; call initialise_channel_rat_SM ! XS_rat(1) = t%tev%XS_hjW_ratio(j) ! XS_rat(2) = t%tev%XS_hj_ratio(j) ! XS_rat(3) = t%tev%XS_hjZ_ratio(j) ! XS_rat(4) = t%tev%XS_vbf_ratio(j) ! BR_rat(1) = div(t%BR_hjtautau(j) , t%BR_Htautau_SM(j),0.0D0,1.0D0) channel_rat(1,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%tev%XS_H_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(2,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(3,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(4,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Htautau_SM(j) /) case(4800) ! ns = 4; nb = 3; call initialise_XS_rat_BR_rat nc = 12; call initialise_channel_rat_SM ! XS_rat(1) = t%tev%XS_hjW_ratio(j) ! XS_rat(2) = t%tev%XS_hj_ratio(j) ! XS_rat(3) = t%tev%XS_hjZ_ratio(j) ! XS_rat(4) = t%tev%XS_vbf_ratio(j) ! BR_rat(1) = div(t%BR_hjtautau(j) , t%BR_Htautau_SM(j) ,0.0D0,1.0D0) ! BR_rat(2) = div(t%BR_hjbb(j) , t%BR_Hbb_SM(j),0.0D0,1.0D0) ! BR_rat(3) = div(( t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j) ) & ! & , t%BR_Hjets_SM(j),0.0D0,1.0D0) channel_rat(1,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%tev%XS_hj_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_rat(6,:) = (/ t%tev%XS_vbf_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_rat(7,:) = (/ t%tev%XS_hjW_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_rat(8,:) = (/ t%tev%XS_hjZ_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_rat(9,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(10,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(11,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(12,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%tev%XS_H_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(2,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(3,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(4,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(5,:) = (/ t%tev%XS_H_SM(j) , t%BR_Hjets_SM(j) /) channel_SM(6,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Hjets_SM(j) /) channel_SM(7,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Hjets_SM(j) /) channel_SM(8,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Hjets_SM(j) /) channel_SM(9,:) = (/ t%tev%XS_H_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(10,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(11,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(12,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Hbb_SM(j) /) case(5845) ! ns = 4; nb = 2; call initialise_XS_rat_BR_rat nc = 8; call initialise_channel_rat_SM ! XS_rat(1) = t%tev%XS_hjW_ratio(j) ! XS_rat(2) = t%tev%XS_hj_ratio(j) ! XS_rat(3) = t%tev%XS_hjZ_ratio(j) ! XS_rat(4) = t%tev%XS_vbf_ratio(j) ! BR_rat(1) = div(t%BR_hjtautau(j) , t%BR_Htautau_SM(j) ,0.0D0,1.0D0) ! BR_rat(2) = div(( t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j) ) & ! & , t%BR_Hjets_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%tev%XS_hj_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_rat(6,:) = (/ t%tev%XS_vbf_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_rat(7,:) = (/ t%tev%XS_hjW_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_rat(8,:) = (/ t%tev%XS_hjZ_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%tev%XS_H_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(2,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(3,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(4,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(5,:) = (/ t%tev%XS_H_SM(j) , t%BR_Hjets_SM(j) /) channel_SM(6,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Hjets_SM(j) /) channel_SM(7,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Hjets_SM(j) /) channel_SM(8,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Hjets_SM(j) /) case(5858,6177,6295,1887,10065,10485,4960) ! ns = 4; nb = 1; call initialise_XS_rat_BR_rat nc = 4; call initialise_channel_rat_SM ! XS_rat(1) = t%tev%XS_hjW_ratio(j) ! XS_rat(2) = t%tev%XS_hj_ratio(j) ! XS_rat(3) = t%tev%XS_hjZ_ratio(j) ! XS_rat(4) = t%tev%XS_vbf_ratio(j) ! BR_rat(1) = div(t%BR_hjgaga(j) , t%BR_Hgaga_SM(j),0.0D0,1.0D0) channel_rat(1,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%tev%XS_H_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(2,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(3,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(4,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Hgaga_SM(j) /) case(9465,5871,9022,9023,0710,9887,5984,9714,4162,10102,6006,4481,4468,6095,10432,6179,6302,10599) ! ns = 4; nb = 1; call initialise_XS_rat_BR_rat nc = 4; call initialise_channel_rat_SM ! XS_rat(1) = t%tev%XS_hjW_ratio(j) ! XS_rat(2) = t%tev%XS_hj_ratio(j) ! XS_rat(3) = t%tev%XS_hjZ_ratio(j) ! XS_rat(4) = t%tev%XS_vbf_ratio(j) ! BR_rat(1) = div( t%BR_hjWW(j) , t%BR_HWW_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%tev%XS_H_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_HWW_SM(j) /) channel_SM(3,:) = (/ t%tev%XS_HW_SM(j) , t%BR_HWW_SM(j) /) channel_SM(4,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_HWW_SM(j) /) case(6082,6182,6219,10573,6276) ! ns = 4; nb = 2; call initialise_XS_rat_BR_rat nc = 8; call initialise_channel_rat_SM ! XS_rat(1) = t%tev%XS_hjW_ratio(j) ! XS_rat(2) = t%tev%XS_hj_ratio(j) ! XS_rat(3) = t%tev%XS_hjZ_ratio(j) ! XS_rat(4) = t%tev%XS_vbf_ratio(j) ! BR_rat(1) = div(t%BR_hjWW(j) , t%BR_HWW_SM(j) ,0.0D0,1.0D0) ! BR_rat(2) = div(t%BR_hjZZ(j) , t%BR_HZZ_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(6,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(7,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(8,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%tev%XS_H_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_HWW_SM(j) /) channel_SM(3,:) = (/ t%tev%XS_HW_SM(j) , t%BR_HWW_SM(j) /) channel_SM(4,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_HWW_SM(j) /) channel_SM(5,:) = (/ t%tev%XS_H_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(6,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(7,:) = (/ t%tev%XS_HW_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(8,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_HZZ_SM(j) /) case(3331) ! ns = 1; nb = 2; call initialise_XS_rat_BR_rat nc = 2; call initialise_channel_rat_SM ! XS_rat(1) = t%tev%XS_hj_ratio(j) ! BR_rat(1) = div( t%BR_hjWW(j) , t%BR_HWW_SM(j) ,0.0D0,1.0D0) ! BR_rat(2) = div( t%BR_hjZZ(j) , t%BR_HZZ_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%tev%XS_H_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%tev%XS_H_SM(j) , t%BR_HZZ_SM(j) /) case(6301) ! ns = 2; nb = 1; call initialise_XS_rat_BR_rat nc = 2; call initialise_channel_rat_SM ! XS_rat(1) = t%tev%XS_hjW_ratio(j) ! XS_rat(2) = t%tev%XS_hjZ_ratio(j) ! BR_rat(1) = div( t%BR_hjWW(j) , t%BR_HWW_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%tev%XS_HW_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_HWW_SM(j) /) case(6309) ! ns = 4; nb = 2; call initialise_XS_rat_BR_rat nc = 5; call initialise_channel_rat_SM channel_rat(1,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(2,:) = (/ t%tev%XS_H_SM(j) , t%BR_HWW_SM(j) /) channel_SM(3,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_HWW_SM(j) /) channel_SM(4,:) = (/ t%tev%XS_HW_SM(j) , t%BR_HWW_SM(j) /) channel_SM(5,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_HWW_SM(j) /) case(1268,6091) ! ns = 2; nb = 2; call initialise_XS_rat_BR_rat nc = 4; call initialise_channel_rat_SM ! XS_rat(1) = t%tev%XS_hjW_ratio(j) ! XS_rat(2) = t%tev%XS_hjZ_ratio(j) ! BR_rat(1) = div( t%BR_hjWW(j) , t%BR_HWW_SM(j) ,0.0D0,1.0D0) ! BR_rat(2) = div( t%BR_hjZZ(j) , t%BR_HZZ_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%tev%XS_HW_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_HWW_SM(j) /) channel_SM(3,:) = (/ t%tev%XS_HW_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(4,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_HZZ_SM(j) /) case(6008,9998) ! ns = 5; nb = 5; call initialise_XS_rat_BR_rat nc = 25; call initialise_channel_rat_SM ! XS_rat(1) = t%tev%XS_hjW_ratio(j) ! XS_rat(2) = t%tev%XS_hj_ratio(j) ! XS_rat(3) = t%tev%XS_hjZ_ratio(j) ! XS_rat(4) = t%tev%XS_vbf_ratio(j) ! XS_rat(5) = t%tev%XS_tthj_ratio(j) ! BR_rat(1) = div( t%BR_hjbb(j) , t%BR_Hbb_SM(j) ,0.0D0,1.0D0) ! BR_rat(2) = div( t%BR_hjWW(j) , t%BR_HWW_SM(j) ,0.0D0,1.0D0) ! BR_rat(3) = div(t%BR_hjtautau(j) , t%BR_Htautau_SM(j) ,0.0D0,1.0D0) ! BR_rat(4) = div(t%BR_hjgaga(j) , t%BR_Hgaga_SM(j) ,0.0D0,1.0D0) ! BR_rat(5) = div(( t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j) ) & ! & , t%BR_Hjets_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%tev%XS_tthj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(6,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(7,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(8,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(9,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(10,:) = (/ t%tev%XS_tthj_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(11,:) = (/ t%tev%XS_hj_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_rat(12,:) = (/ t%tev%XS_vbf_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_rat(13,:) = (/ t%tev%XS_hjW_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_rat(14,:) = (/ t%tev%XS_hjZ_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_rat(15,:) = (/ t%tev%XS_tthj_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_rat(16,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(17,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(18,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(19,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(20,:) = (/ t%tev%XS_tthj_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(21,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(22,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(23,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(24,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(25,:) = (/ t%tev%XS_tthj_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%tev%XS_H_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_HWW_SM(j) /) channel_SM(3,:) = (/ t%tev%XS_HW_SM(j) , t%BR_HWW_SM(j) /) channel_SM(4,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_HWW_SM(j) /) channel_SM(5,:) = (/ t%tev%XS_ttH_SM(j) , t%BR_HWW_SM(j) /) channel_SM(6,:) = (/ t%tev%XS_H_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(7,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(8,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(9,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(10,:) = (/ t%tev%XS_ttH_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(11,:) = (/ t%tev%XS_H_SM(j) , t%BR_Hjets_SM(j) /) channel_SM(12,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Hjets_SM(j) /) channel_SM(13,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Hjets_SM(j) /) channel_SM(14,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Hjets_SM(j) /) channel_SM(15,:) = (/ t%tev%XS_ttH_SM(j) , t%BR_Hjets_SM(j) /) channel_SM(16,:) = (/ t%tev%XS_H_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(17,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(18,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(19,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(20,:) = (/ t%tev%XS_ttH_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(21,:) = (/ t%tev%XS_H_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(22,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(23,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(24,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(25,:) = (/ t%tev%XS_ttH_SM(j) , t%BR_Hbb_SM(j) /) case(6183,3233) ! ns = 4; nb = 4; call initialise_XS_rat_BR_rat nc = 16; call initialise_channel_rat_SM ! XS_rat(1) = t%tev%XS_hjW_ratio(j) ! XS_rat(2) = t%tev%XS_hj_ratio(j) ! XS_rat(3) = t%tev%XS_hjZ_ratio(j) ! XS_rat(4) = t%tev%XS_vbf_ratio(j) ! BR_rat(1) = div(t%BR_hjWW(j) , t%BR_HWW_SM(j) ,0.0D0,1.0D0) ! BR_rat(2) = div( t%BR_hjZZ(j) , t%BR_HZZ_SM(j) ,0.0D0,1.0D0) ! BR_rat(3) = div(t%BR_hjtautau(j) , t%BR_Htautau_SM(j) ,0.0D0,1.0D0) ! BR_rat(4) = div(t%BR_hjgaga(j) , t%BR_Hgaga_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(6,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(7,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(8,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(9,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(10,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(11,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(12,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(13,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(14,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(15,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(16,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%tev%XS_H_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_HWW_SM(j) /) channel_SM(3,:) = (/ t%tev%XS_HW_SM(j) , t%BR_HWW_SM(j) /) channel_SM(4,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_HWW_SM(j) /) channel_SM(5,:) = (/ t%tev%XS_H_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(6,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(7,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(8,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(9,:) = (/ t%tev%XS_H_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(10,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(11,:) = (/ t%tev%XS_HW_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(12,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(13,:) = (/ t%tev%XS_H_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(14,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(15,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(16,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Hgaga_SM(j) /) case(6286) ! ns = 4; nb = 4; call initialise_XS_rat_BR_rat nc = 9; call initialise_channel_rat_SM channel_rat(1,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(6,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(7,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(8,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(9,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjmumu(j),t%BR_Hmumu_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%tev%XS_H_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(2,:) = (/ t%tev%XS_vbf_SM(j), t%BR_HZZ_SM(j) /) channel_SM(3,:) = (/ t%tev%XS_HW_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(4,:) = (/ t%tev%XS_HW_SM(j) , t%BR_HWW_SM(j) /) channel_SM(5,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(6,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(7,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_HWW_SM(j) /) channel_SM(8,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(9,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Hmumu_SM(j) /) case(6305) ! ns = 4; nb = 3; call initialise_XS_rat_BR_rat nc = 12; call initialise_channel_rat_SM ! XS_rat(1) = t%tev%XS_hjW_ratio(j) ! XS_rat(2) = t%tev%XS_hj_ratio(j) ! XS_rat(3) = t%tev%XS_hjZ_ratio(j) ! XS_rat(4) = t%tev%XS_vbf_ratio(j) ! BR_rat(1) = div(t%BR_hjWW(j) , t%BR_HWW_SM(j) ,0.0D0,1.0D0) ! BR_rat(2) = div( t%BR_hjZZ(j) , t%BR_HZZ_SM(j) ,0.0D0,1.0D0) ! BR_rat(3) = div(t%BR_hjtautau(j) , t%BR_Htautau_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(6,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(7,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(8,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(9,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(10,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(11,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(12,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%tev%XS_H_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_HWW_SM(j) /) channel_SM(3,:) = (/ t%tev%XS_HW_SM(j) , t%BR_HWW_SM(j) /) channel_SM(4,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_HWW_SM(j) /) channel_SM(5,:) = (/ t%tev%XS_H_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(6,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(7,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(8,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(9,:) = (/ t%tev%XS_H_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(10,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(11,:) = (/ t%tev%XS_HW_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(12,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_HZZ_SM(j) /) case(6096,10606,10806,10884) nc = 30; call initialise_channel_rat_SM channel_rat(1,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%tev%XS_tthj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(6,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(7,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(8,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(9,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(10,:) = (/ t%tev%XS_tthj_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(11,:) = (/ t%tev%XS_hj_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_rat(12,:) = (/ t%tev%XS_vbf_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_rat(13,:) = (/ t%tev%XS_hjW_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_rat(14,:) = (/ t%tev%XS_hjZ_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_rat(15,:) = (/ t%tev%XS_tthj_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_rat(16,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(17,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(18,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(19,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(20,:) = (/ t%tev%XS_tthj_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(21,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(22,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(23,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(24,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(25,:) = (/ t%tev%XS_tthj_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(26,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(27,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(28,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(29,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(30,:) = (/ t%tev%XS_tthj_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%tev%XS_H_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_HWW_SM(j) /) channel_SM(3,:) = (/ t%tev%XS_HW_SM(j) , t%BR_HWW_SM(j) /) channel_SM(4,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_HWW_SM(j) /) channel_SM(5,:) = (/ t%tev%XS_ttH_SM(j) , t%BR_HWW_SM(j) /) channel_SM(6,:) = (/ t%tev%XS_H_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(7,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(8,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(9,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(10,:) = (/ t%tev%XS_ttH_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(11,:) = (/ t%tev%XS_H_SM(j) , t%BR_Hjets_SM(j) /) channel_SM(12,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Hjets_SM(j) /) channel_SM(13,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Hjets_SM(j) /) channel_SM(14,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Hjets_SM(j) /) channel_SM(15,:) = (/ t%tev%XS_ttH_SM(j) , t%BR_Hjets_SM(j) /) channel_SM(16,:) = (/ t%tev%XS_H_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(17,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(18,:) = (/ t%tev%XS_HW_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(19,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(20,:) = (/ t%tev%XS_ttH_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(21,:) = (/ t%tev%XS_H_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(22,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(23,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(24,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(25,:) = (/ t%tev%XS_ttH_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(26,:) = (/ t%tev%XS_H_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(27,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(28,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(29,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(30,:) = (/ t%tev%XS_ttH_SM(j) , t%BR_Hbb_SM(j) /) case(6229) ! ns = 4; nb = 6; call initialise_XS_rat_BR_rat nc = 24; call initialise_channel_rat_SM ! XS_rat(1) = t%tev%XS_hjW_ratio(j) ! XS_rat(2) = t%tev%XS_hj_ratio(j) ! XS_rat(3) = t%tev%XS_hjZ_ratio(j) ! XS_rat(4) = t%tev%XS_vbf_ratio(j) ! BR_rat(1) = div( t%BR_hjbb(j) , t%BR_Hbb_SM(j) ,0.0D0,1.0D0) ! BR_rat(2) = div( t%BR_hjWW(j) , t%BR_HWW_SM(j) ,0.0D0,1.0D0) ! BR_rat(3) = div(t%BR_hjtautau(j) , t%BR_Htautau_SM(j) ,0.0D0,1.0D0) ! BR_rat(4) = div( t%BR_hjgaga(j) , t%BR_Hgaga_SM(j) ,0.0D0,1.0D0) ! BR_rat(5) = div(( t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j) ) & ! & , t%BR_Hjets_SM(j) ,0.0D0,1.0D0) ! BR_rat(6) = div( t%BR_hjZZ(j) , t%BR_HZZ_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(6,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(7,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(8,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(9,:) = (/ t%tev%XS_hj_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_rat(10,:) = (/ t%tev%XS_vbf_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_rat(11,:) = (/ t%tev%XS_hjW_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_rat(12,:) = (/ t%tev%XS_hjZ_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_rat(13,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(14,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(15,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(16,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(17,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(18,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(19,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(20,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(21,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(22,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(23,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(24,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%tev%XS_H_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_HWW_SM(j) /) channel_SM(3,:) = (/ t%tev%XS_HW_SM(j) , t%BR_HWW_SM(j) /) channel_SM(4,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_HWW_SM(j) /) channel_SM(5,:) = (/ t%tev%XS_H_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(6,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(7,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(8,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(9,:) = (/ t%tev%XS_H_SM(j) , t%BR_Hjets_SM(j) /) channel_SM(10,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Hjets_SM(j) /) channel_SM(11,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Hjets_SM(j) /) channel_SM(12,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Hjets_SM(j) /) channel_SM(13,:) = (/ t%tev%XS_H_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(14,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(15,:) = (/ t%tev%XS_HW_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(16,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(17,:) = (/ t%tev%XS_H_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(18,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(19,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(20,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(21,:) = (/ t%tev%XS_H_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(22,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(23,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(24,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Hbb_SM(j) /) case(6304) ! ns = 4; nb = 5; call initialise_XS_rat_BR_rat nc = 20; call initialise_channel_rat_SM channel_rat(1,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(6,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(7,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(8,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(9,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(10,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(11,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(12,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(13,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(14,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(15,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(16,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(17,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(18,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(19,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(20,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%tev%XS_H_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_HWW_SM(j) /) channel_SM(3,:) = (/ t%tev%XS_HW_SM(j) , t%BR_HWW_SM(j) /) channel_SM(4,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_HWW_SM(j) /) channel_SM(5,:) = (/ t%tev%XS_H_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(6,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(7,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(8,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(9,:) = (/ t%tev%XS_H_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(10,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(11,:) = (/ t%tev%XS_HW_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(12,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(13,:) = (/ t%tev%XS_H_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(14,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(15,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(16,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(17,:) = (/ t%tev%XS_H_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(18,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(19,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(20,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Hbb_SM(j) /) case(6171) ! ns = 4; nb = 3; call initialise_XS_rat_BR_rat nc = 12; call initialise_channel_rat_SM ! XS_rat(1) = t%tev%XS_hjW_ratio(j) ! XS_rat(2) = t%tev%XS_hj_ratio(j) ! XS_rat(3) = t%tev%XS_hjZ_ratio(j) ! XS_rat(4) = t%tev%XS_vbf_ratio(j) ! BR_rat(1) = div( t%BR_hjWW(j) , t%BR_HWW_SM(j) ,0.0D0,1.0D0) ! BR_rat(2) = div(t%BR_hjtautau(j) , t%BR_Htautau_SM(j),0.0D0,1.0D0) ! BR_rat(3) = div(( t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j) ) & ! & , t%BR_Hjets_SM(j),0.0D0,1.0D0) channel_rat(1,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%tev%XS_hj_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(6,:) = (/ t%tev%XS_vbf_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(7,:) = (/ t%tev%XS_hjW_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(8,:) = (/ t%tev%XS_hjZ_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(9,:) = (/ t%tev%XS_hj_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_rat(10,:) = (/ t%tev%XS_vbf_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_rat(11,:) = (/ t%tev%XS_hjW_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_rat(12,:) = (/ t%tev%XS_hjZ_ratio(j) , & & div((t%BR_hjss(j)+t%BR_hjcc(j)+t%BR_hjbb(j)+t%BR_hjgg(j)),t%BR_Hjets_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%tev%XS_H_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_HWW_SM(j) /) channel_SM(3,:) = (/ t%tev%XS_HW_SM(j) , t%BR_HWW_SM(j) /) channel_SM(4,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_HWW_SM(j) /) channel_SM(5,:) = (/ t%tev%XS_H_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(6,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(7,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(8,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(9,:) = (/ t%tev%XS_H_SM(j) , t%BR_Hjets_SM(j) /) channel_SM(10,:) = (/ t%tev%XS_vbf_SM(j) , t%BR_Hjets_SM(j) /) channel_SM(11,:) = (/ t%tev%XS_HW_SM(j) , t%BR_Hjets_SM(j) /) channel_SM(12,:) = (/ t%tev%XS_HZ_SM(j) , t%BR_Hjets_SM(j) /) !---------------------- LHC 7/8 TeV searches -------------------- case(5757,2011005,3615,2012018) ! ns = 2; nb = 1; call initialise_XS_rat_BR_rat nc = 2; call initialise_channel_rat_SM ! XS_rat(1) = t%tev%XS_hj_ratio(j) ! XS_rat(2) = t%tev%XS_vbf_ratio(j) ! BR_rat(1) = div( t%BR_hjWW(j) , t%BR_HWW_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_HWW_SM(j) /) case(12046) nc = 2; call initialise_channel_rat_SM channel_rat(1,:) = (/ t%lhc8%XS_hj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc8%XS_vbf_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc8%XS_H_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%lhc8%XS_vbf_SM(j), t%BR_HWW_SM(j) /) case(2011048,11004,11015,11013,11028,11006,11017,110271,110272,14161,14162,5064,2012017,2011150,2011131) ! ns = 2; nb = 1; call initialise_XS_rat_BR_rat nc = 2; call initialise_channel_rat_SM ! XS_rat(1) = t%lhc7%XS_hj_ratio(j) ! XS_rat(2) = t%lhc7%XS_vbf_ratio(j) ! BR_rat(1) = div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) channel_rat(1,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc7%XS_vbf_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(2,:) = (/ t%lhc7%XS_vbf_SM(j) , t%BR_HZZ_SM(j) /) case(11034,12039,13009,12006,2012078) ! ns = 1; nb = 2; call initialise_XS_rat_BR_rat nc = 2; call initialise_channel_rat_SM channel_rat(1,:) = (/ t%lhc7%XS_hjW_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc7%XS_hjW_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc7%XS_HW_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%lhc7%XS_HW_SM(j) , t%BR_Htautau_SM(j) /) case(12051) nc = 2; call initialise_channel_rat_SM channel_rat(1,:) = (/ t%lhc7%XS_hjW_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc7%XS_hjZ_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc7%XS_HW_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(2,:) = (/ t%lhc7%XS_HZ_SM(j) , t%BR_Htautau_SM(j) /) case(2012015) ! ns = 2; nb = 1; call initialise_XS_rat_BR_rat nc = 2; call initialise_channel_rat_SM ! XS_rat(1) = t%tev%XS_hjW_ratio(j) ! XS_rat(2) = t%tev%XS_hjZ_ratio(j) ! BR_rat(1) = div(t%BR_hjbb(j) , t%BR_Hbb_SM(j),0.0D0,1.0D0) channel_rat(1,:) = (/ t%lhc7%XS_hjW_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc7%XS_hjZ_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc7%XS_HW_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(2,:) = (/ t%lhc7%XS_HZ_SM(j) , t%BR_Hbb_SM(j) /) case(2011162,1415) ! ns = 4; nb = 1; call initialise_XS_rat_BR_rat nc = 4; call initialise_channel_rat_SM ! XS_rat(1) = t%lhc7%XS_hj_ratio(j) ! XS_rat(2) = t%lhc7%XS_vbf_ratio(j) ! XS_rat(3) = t%lhc7%XS_hjZ_ratio(j) ! XS_rat(4) = t%lhc7%XS_hjW_ratio(j) ! BR_rat(1) = div(t%BR_hjZZ(j) , t%BR_HZZ_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%lhc7%XS_hjZ_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%lhc7%XS_hjW_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(2,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_HZZ_SM(j) /) channel_SM(3,:) = (/ t%lhc7%XS_HZ_SM(j), t%BR_HZZ_SM(j) /) channel_SM(4,:) = (/ t%lhc7%XS_HW_SM(j), t%BR_HZZ_SM(j) /) case(2012092,20130131) nc = 4; call initialise_channel_rat_SM channel_rat(1,:) = (/ t%lhc8%XS_hj_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc8%XS_vbf_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%lhc8%XS_hjZ_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%lhc8%XS_hjW_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc8%XS_H_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(2,:) = (/ t%lhc8%XS_vbf_SM(j), t%BR_HZZ_SM(j) /) channel_SM(3,:) = (/ t%lhc8%XS_HZ_SM(j), t%BR_HZZ_SM(j) /) channel_SM(4,:) = (/ t%lhc8%XS_HW_SM(j), t%BR_HZZ_SM(j) /) case(11025,1997) ! ns = 5; nb = 1; call initialise_XS_rat_BR_rat nc = 5; call initialise_channel_rat_SM ! XS_rat(1) = t%lhc7%XS_hj_ratio(j) ! XS_rat(2) = t%lhc7%XS_vbf_ratio(j) ! XS_rat(3) = t%lhc7%XS_hjZ_ratio(j) ! XS_rat(4) = t%lhc7%XS_hjW_ratio(j) ! XS_rat(5) = t%lhc7%XS_tthj_ratio(j) ! BR_rat(1) = div(t%BR_hjZZ(j) , t%BR_HZZ_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%lhc7%XS_hjZ_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%lhc7%XS_hjW_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%lhc7%XS_tthj_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(2,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_HZZ_SM(j) /) channel_SM(3,:) = (/ t%lhc7%XS_HZ_SM(j), t%BR_HZZ_SM(j) /) channel_SM(4,:) = (/ t%lhc7%XS_HW_SM(j), t%BR_HZZ_SM(j) /) channel_SM(5,:) = (/ t%lhc7%XS_ttH_SM(j), t%BR_HZZ_SM(j) /) case(12041,130021,130022) nc = 5; call initialise_channel_rat_SM channel_rat(1,:) = (/ t%lhc8%XS_hj_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc8%XS_vbf_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%lhc8%XS_hjZ_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%lhc8%XS_hjW_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%lhc8%XS_tthj_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc8%XS_H_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(2,:) = (/ t%lhc8%XS_vbf_SM(j), t%BR_HZZ_SM(j) /) channel_SM(3,:) = (/ t%lhc8%XS_HZ_SM(j), t%BR_HZZ_SM(j) /) channel_SM(4,:) = (/ t%lhc8%XS_HW_SM(j), t%BR_HZZ_SM(j) /) channel_SM(5,:) = (/ t%lhc8%XS_ttH_SM(j), t%BR_HZZ_SM(j) /) case(2011026,11005,11016,11026,3478,3357,2011148,2012016) ! ns = 2; nb = 2; call initialise_XS_rat_BR_rat nc = 4; call initialise_channel_rat_SM ! XS_rat(1) = t%lhc7%XS_hj_ratio(j) ! XS_rat(2) = t%lhc7%XS_vbf_ratio(j) ! BR_rat(1) = div( t%BR_hjWW(j) , t%BR_HWW_SM(j) ,0.0D0,1.0D0) ! BR_rat(2) = div(t%BR_hjZZ(j) , t%BR_HZZ_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_HWW_SM(j) /) channel_SM(3,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(4,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_HZZ_SM(j) /) case(11003,11014,2577,11024,1489) ! ns = 5; nb = 2; call initialise_XS_rat_BR_rat nc = 10; call initialise_channel_rat_SM ! XS_rat(1) = t%lhc7%XS_hj_ratio(j) ! XS_rat(2) = t%lhc7%XS_vbf_ratio(j) ! XS_rat(3) = t%lhc7%XS_hjZ_ratio(j) ! XS_rat(4) = t%lhc7%XS_hjW_ratio(j) ! XS_rat(5) = t%lhc7%XS_tthj_ratio(j) ! BR_rat(1) = div( t%BR_hjWW(j) , t%BR_HWW_SM(j) ,0.0D0,1.0D0) ! BR_rat(2) = div( t%BR_hjZZ(j) , t%BR_HZZ_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%lhc7%XS_hjZ_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%lhc7%XS_hjW_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%lhc7%XS_tthj_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(6,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(7,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(8,:) = (/ t%lhc7%XS_hjZ_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(9,:) = (/ t%lhc7%XS_hjW_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(10,:) = (/ t%lhc7%XS_tthj_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_HWW_SM(j) /) channel_SM(3,:) = (/ t%lhc7%XS_HZ_SM(j), t%BR_HWW_SM(j) /) channel_SM(4,:) = (/ t%lhc7%XS_HW_SM(j), t%BR_HWW_SM(j) /) channel_SM(5,:) = (/ t%lhc7%XS_ttH_SM(j), t%BR_HWW_SM(j) /) channel_SM(6,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(7,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_HZZ_SM(j) /) channel_SM(8,:) = (/ t%lhc7%XS_HZ_SM(j), t%BR_HZZ_SM(j) /) channel_SM(9,:) = (/ t%lhc7%XS_HW_SM(j), t%BR_HZZ_SM(j) /) channel_SM(10,:) = (/ t%lhc7%XS_ttH_SM(j), t%BR_HZZ_SM(j) /) case(12042,13003,13027) nc = 4; call initialise_channel_rat_SM ! XS_rat(1) = t%lhc7%XS_hj_ratio(j) ! XS_rat(2) = t%lhc7%XS_vbf_ratio(j) ! XS_rat(3) = t%lhc7%XS_hjZ_ratio(j) ! XS_rat(4) = t%lhc7%XS_hjW_ratio(j) ! XS_rat(5) = t%lhc7%XS_tthj_ratio(j) ! BR_rat(1) = div( t%BR_hjWW(j) , t%BR_HWW_SM(j) ,0.0D0,1.0D0) ! BR_rat(2) = div( t%BR_hjZZ(j) , t%BR_HZZ_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%lhc7%XS_hjZ_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%lhc7%XS_hjW_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_HWW_SM(j) /) channel_SM(3,:) = (/ t%lhc7%XS_HZ_SM(j), t%BR_HWW_SM(j) /) channel_SM(4,:) = (/ t%lhc7%XS_HW_SM(j), t%BR_HWW_SM(j) /) case(2012014) ! ns = 5; nb = 1; call initialise_XS_rat_BR_rat nc = 5; call initialise_channel_rat_SM ! XS_rat(1) = t%lhc7%XS_hj_ratio(j) ! XS_rat(2) = t%lhc7%XS_vbf_ratio(j) ! XS_rat(3) = t%lhc7%XS_hjZ_ratio(j) ! XS_rat(4) = t%lhc7%XS_hjW_ratio(j) ! XS_rat(5) = t%lhc7%XS_tthj_ratio(j) ! BR_rat(1) = div( t%BR_hjWW(j) , t%BR_HWW_SM(j) ,0.0D0,1.0D0) ! BR_rat(2) = div( t%BR_hjZZ(j) , t%BR_HZZ_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%lhc7%XS_hjZ_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%lhc7%XS_hjW_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%lhc7%XS_tthj_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(2,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_Htautau_SM(j) /) channel_SM(3,:) = (/ t%lhc7%XS_HZ_SM(j), t%BR_Htautau_SM(j) /) channel_SM(4,:) = (/ t%lhc7%XS_HW_SM(j), t%BR_Htautau_SM(j) /) channel_SM(5,:) = (/ t%lhc7%XS_ttH_SM(j), t%BR_Htautau_SM(j) /) case(2012160) ! ns = 5; nb = 1; call initialise_XS_rat_BR_rat nc = 4; call initialise_channel_rat_SM ! XS_rat(1) = t%lhc7%XS_hj_ratio(j) ! XS_rat(2) = t%lhc7%XS_vbf_ratio(j) ! XS_rat(3) = t%lhc7%XS_hjZ_ratio(j) ! XS_rat(4) = t%lhc7%XS_hjW_ratio(j) ! XS_rat(5) = t%lhc7%XS_tthj_ratio(j) ! BR_rat(1) = div( t%BR_hjWW(j) , t%BR_HWW_SM(j) ,0.0D0,1.0D0) ! BR_rat(2) = div( t%BR_hjZZ(j) , t%BR_HZZ_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%lhc7%XS_hjZ_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%lhc7%XS_hjW_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(2,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_Htautau_SM(j) /) channel_SM(3,:) = (/ t%lhc7%XS_HZ_SM(j), t%BR_Htautau_SM(j) /) channel_SM(4,:) = (/ t%lhc7%XS_HW_SM(j), t%BR_Htautau_SM(j) /) case(11009,11020,2011133) ! ns = 2; nb = 1; call initialise_XS_rat_BR_rat nc = 2; call initialise_channel_rat_SM ! XS_rat(1) = t%lhc7%XS_hj_ratio(j) ! XS_rat(2) = t%lhc7%XS_vbf_ratio(j) ! BR_rat(1) = div( t%BR_hjtautau(j) , t%BR_Htautau_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(2,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_Htautau_SM(j) /) case(110291) ! ns = 5; nb = 1; call initialise_XS_rat_BR_rat nc = 5; call initialise_channel_rat_SM ! XS_rat(1) = t%lhc7%XS_hj_ratio(j) ! XS_rat(2) = t%lhc7%XS_vbf_ratio(j) ! XS_rat(3) = t%lhc7%XS_hjZ_ratio(j) ! XS_rat(4) = t%lhc7%XS_hjW_ratio(j) ! XS_rat(5) = t%lhc7%XS_tthj_ratio(j) ! BR_rat(1) = div( t%BR_hjtautau(j) , t%BR_Htautau_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%lhc7%XS_hjZ_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%lhc7%XS_hjW_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%lhc7%XS_tthj_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(2,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_Htautau_SM(j) /) channel_SM(3,:) = (/ t%lhc7%XS_HZ_SM(j), t%BR_Htautau_SM(j) /) channel_SM(4,:) = (/ t%lhc7%XS_HW_SM(j), t%BR_Htautau_SM(j) /) channel_SM(5,:) = (/ t%lhc7%XS_ttH_SM(j), t%BR_Htautau_SM(j) /) case(12043) nc = 4; call initialise_channel_rat_SM channel_rat(1,:) = (/ t%lhc8%XS_hj_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc8%XS_vbf_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%lhc8%XS_hjZ_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%lhc8%XS_hjW_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc8%XS_H_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(2,:) = (/ t%lhc8%XS_vbf_SM(j), t%BR_Htautau_SM(j) /) channel_SM(3,:) = (/ t%lhc8%XS_HZ_SM(j), t%BR_Htautau_SM(j) /) channel_SM(4,:) = (/ t%lhc8%XS_HW_SM(j), t%BR_Htautau_SM(j) /) case(2013010,7663) nc = 4; call initialise_channel_rat_SM channel_rat(1,:) = (/ t%lhc8%XS_hj_ratio(j) , div(t%BR_hjmumu(j),t%BR_Hmumu_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc8%XS_vbf_ratio(j), div(t%BR_hjmumu(j),t%BR_Hmumu_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%lhc8%XS_hjZ_ratio(j), div(t%BR_hjmumu(j),t%BR_Hmumu_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%lhc8%XS_hjW_ratio(j), div(t%BR_hjmumu(j),t%BR_Hmumu_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc8%XS_H_SM(j) , t%BR_Hmumu_SM(j) /) channel_SM(2,:) = (/ t%lhc8%XS_vbf_SM(j), t%BR_Hmumu_SM(j) /) channel_SM(3,:) = (/ t%lhc8%XS_HZ_SM(j), t%BR_Hmumu_SM(j) /) channel_SM(4,:) = (/ t%lhc8%XS_HW_SM(j), t%BR_Hmumu_SM(j) /) case(11031,2011103,11012) nc = 2; call initialise_channel_rat_SM channel_rat(1,:) = (/ t%lhc7%XS_hjZ_ratio(j), div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc7%XS_hjW_ratio(j), div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc7%XS_HZ_SM(j), t%BR_Hbb_SM(j) /) channel_SM(2,:) = (/ t%lhc7%XS_HW_SM(j), t%BR_Hbb_SM(j) /) case(12044,13012) nc = 2; call initialise_channel_rat_SM channel_rat(1,:) = (/ t%lhc8%XS_hjZ_ratio(j), div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc8%XS_hjW_ratio(j), div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc8%XS_HZ_SM(j), t%BR_Hbb_SM(j) /) channel_SM(2,:) = (/ t%lhc8%XS_HW_SM(j), t%BR_Hbb_SM(j) /) case(13011) nc = 2; call initialise_channel_rat_SM channel_rat(1,:) = (/ t%lhc8%XS_hj_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc8%XS_vbf_ratio(j), div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc8%XS_H_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(2,:) = (/ t%lhc8%XS_vbf_SM(j), t%BR_Hbb_SM(j) /) case(2012161) nc = 2; call initialise_channel_rat_SM channel_rat(1,:) = (/ t%lhc8%XS_hjZ_ratio(j), div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc8%XS_hjW_ratio(j), div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc8%XS_HZ_SM(j), t%BR_Hbb_SM(j) /) channel_SM(2,:) = (/ t%lhc8%XS_HW_SM(j), t%BR_Hbb_SM(j) /) case(11021) ! ns = 2; nb = 1; call initialise_XS_rat_BR_rat nc = 2; call initialise_channel_rat_SM ! XS_rat(1) = t%lhc7%XS_hj_ratio(j) ! XS_rat(2) = t%lhc7%XS_vbf_ratio(j) ! BR_rat(1) = div( t%BR_hjgaga(j) , t%BR_Hgaga_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(2,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_Hgaga_SM(j) /) case(110212) ! ns = 3; nb = 1; call initialise_XS_rat_BR_rat nc = 3; call initialise_channel_rat_SM ! XS_rat(1) = t%lhc7%XS_vbf_ratio(j) ! XS_rat(2) = t%lhc7%XS_hjZ_ratio(j) ! XS_rat(3) = t%lhc7%XS_hjW_ratio(j) ! BR_rat(1) = div( t%BR_hjgaga(j) , t%BR_Hgaga_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc7%XS_hjZ_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%lhc7%XS_hjW_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(2,:) = (/ t%lhc7%XS_HZ_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(3,:) = (/ t%lhc7%XS_HW_SM(j), t%BR_Hgaga_SM(j) /) case(2011025,2011085,2011161,5895,1414,1487,12001,11010,11030) ! ns = 5; nb = 1; call initialise_XS_rat_BR_rat nc = 5; call initialise_channel_rat_SM ! XS_rat(1) = t%lhc7%XS_hj_ratio(j) ! XS_rat(2) = t%lhc7%XS_vbf_ratio(j) ! XS_rat(3) = t%lhc7%XS_hjZ_ratio(j) ! XS_rat(4) = t%lhc7%XS_hjW_ratio(j) ! XS_rat(5) = t%lhc7%XS_tthj_ratio(j) ! BR_rat(1) = div( t%BR_hjgaga(j) , t%BR_Hgaga_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%lhc7%XS_hjZ_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%lhc7%XS_hjW_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%lhc7%XS_tthj_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(2,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(3,:) = (/ t%lhc7%XS_HZ_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(4,:) = (/ t%lhc7%XS_HW_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(5,:) = (/ t%lhc7%XS_ttH_SM(j), t%BR_Hgaga_SM(j) /) case(2012091,2012168) ! ns = 5; nb = 1; call initialise_XS_rat_BR_rat nc = 5; call initialise_channel_rat_SM channel_rat(1,:) = (/ t%lhc8%XS_hj_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc8%XS_vbf_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%lhc8%XS_hjZ_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%lhc8%XS_hjW_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%lhc8%XS_tthj_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc8%XS_H_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(2,:) = (/ t%lhc8%XS_vbf_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(3,:) = (/ t%lhc8%XS_HZ_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(4,:) = (/ t%lhc8%XS_HW_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(5,:) = (/ t%lhc8%XS_ttH_SM(j), t%BR_Hgaga_SM(j) /) case(12015,13001) nc = 5; call initialise_channel_rat_SM channel_rat(1,:) = (/ t%lhc8%XS_hj_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc8%XS_vbf_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%lhc8%XS_hjZ_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%lhc8%XS_hjW_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%lhc8%XS_tthj_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc8%XS_H_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(2,:) = (/ t%lhc8%XS_vbf_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(3,:) = (/ t%lhc8%XS_HZ_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(4,:) = (/ t%lhc8%XS_HW_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(5,:) = (/ t%lhc8%XS_ttH_SM(j), t%BR_Hgaga_SM(j) /) case(13006,13075515,2013009,3051) nc = 5; call initialise_channel_rat_SM ! XS_rat(1) = t%lhc7%XS_hj_ratio(j) ! XS_rat(2) = t%lhc7%XS_vbf_ratio(j) ! XS_rat(3) = t%lhc7%XS_hjZ_ratio(j) ! XS_rat(4) = t%lhc7%XS_hjW_ratio(j) ! XS_rat(5) = t%lhc7%XS_tthj_ratio(j) ! BR_rat(1) = div( t%BR_hjgaga(j) , t%BR_Hgaga_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%lhc8%XS_hj_ratio(j) , div(t%BR_hjZga(j),t%BR_HZga_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc8%XS_vbf_ratio(j), div(t%BR_hjZga(j),t%BR_HZga_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%lhc8%XS_hjZ_ratio(j), div(t%BR_hjZga(j),t%BR_HZga_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%lhc8%XS_hjW_ratio(j), div(t%BR_hjZga(j),t%BR_HZga_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%lhc8%XS_tthj_ratio(j), div(t%BR_hjZga(j),t%BR_HZga_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc8%XS_H_SM(j) , t%BR_HZga_SM(j) /) channel_SM(2,:) = (/ t%lhc8%XS_vbf_SM(j), t%BR_HZga_SM(j) /) channel_SM(3,:) = (/ t%lhc8%XS_HZ_SM(j), t%BR_HZga_SM(j) /) channel_SM(4,:) = (/ t%lhc8%XS_HW_SM(j), t%BR_HZga_SM(j) /) channel_SM(5,:) = (/ t%lhc8%XS_ttH_SM(j), t%BR_HZga_SM(j) /) case(2748, 1408) ! ns = 5; nb = 3; call initialise_XS_rat_BR_rat nc = 15; call initialise_channel_rat_SM ! XS_rat(1) = t%lhc7%XS_hjW_ratio(j) ! XS_rat(2) = t%lhc7%XS_hj_ratio(j) ! XS_rat(3) = t%lhc7%XS_hjZ_ratio(j) ! XS_rat(4) = t%lhc7%XS_vbf_ratio(j) ! XS_rat(5) = t%lhc7%XS_tthj_ratio(j) ! BR_rat(1) = div( t%BR_hjZZ(j) , t%BR_HZZ_SM(j) ,0.0D0,1.0D0) ! BR_rat(2) = div( t%BR_hjWW(j) , t%BR_HWW_SM(j) ,0.0D0,1.0D0) ! BR_rat(3) = div( t%BR_hjgaga(j) , t%BR_Hgaga_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%lhc7%XS_hjZ_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%lhc7%XS_hjW_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%lhc7%XS_tthj_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(6,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(7,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(8,:) = (/ t%lhc7%XS_hjZ_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(9,:) = (/ t%lhc7%XS_hjW_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(10,:) = (/ t%lhc7%XS_tthj_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(11,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(12,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(13,:) = (/ t%lhc7%XS_hjZ_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(14,:) = (/ t%lhc7%XS_hjW_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(15,:) = (/ t%lhc7%XS_tthj_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_HWW_SM(j) /) channel_SM(3,:) = (/ t%lhc7%XS_HZ_SM(j), t%BR_HWW_SM(j) /) channel_SM(4,:) = (/ t%lhc7%XS_HW_SM(j), t%BR_HWW_SM(j) /) channel_SM(5,:) = (/ t%lhc7%XS_ttH_SM(j), t%BR_HWW_SM(j) /) channel_SM(6,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(7,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_HZZ_SM(j) /) channel_SM(8,:) = (/ t%lhc7%XS_HZ_SM(j), t%BR_HZZ_SM(j) /) channel_SM(9,:) = (/ t%lhc7%XS_HW_SM(j), t%BR_HZZ_SM(j) /) channel_SM(10,:) = (/ t%lhc7%XS_ttH_SM(j), t%BR_HZZ_SM(j) /) channel_SM(11,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(12,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(13,:) = (/ t%lhc7%XS_HZ_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(14,:) = (/ t%lhc7%XS_HW_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(15,:) = (/ t%lhc7%XS_ttH_SM(j), t%BR_Hgaga_SM(j) /) case(11011,2011163) ! ns = 5; nb = 4; call initialise_XS_rat_BR_rat nc = 20; call initialise_channel_rat_SM ! XS_rat(1) = t%lhc7%XS_hjW_ratio(j) ! XS_rat(2) = t%lhc7%XS_hj_ratio(j) ! XS_rat(3) = t%lhc7%XS_hjZ_ratio(j) ! XS_rat(4) = t%lhc7%XS_vbf_ratio(j) ! XS_rat(5) = t%lhc7%XS_tthj_ratio(j) ! BR_rat(1) = div( t%BR_hjZZ(j) , t%BR_HZZ_SM(j) ,0.0D0,1.0D0) ! BR_rat(2) = div( t%BR_hjWW(j) , t%BR_HWW_SM(j) ,0.0D0,1.0D0) ! BR_rat(3) = div( t%BR_hjgaga(j) , t%BR_Hgaga_SM(j) ,0.0D0,1.0D0) ! BR_rat(4) = div(t%BR_hjtautau(j) , t%BR_Htautau_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%lhc7%XS_hjZ_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%lhc7%XS_hjW_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%lhc7%XS_tthj_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(6,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(7,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(8,:) = (/ t%lhc7%XS_hjZ_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(9,:) = (/ t%lhc7%XS_hjW_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(10,:) = (/ t%lhc7%XS_tthj_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(11,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(12,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(13,:) = (/ t%lhc7%XS_hjZ_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(14,:) = (/ t%lhc7%XS_hjW_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(15,:) = (/ t%lhc7%XS_tthj_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(16,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(17,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(18,:) = (/ t%lhc7%XS_hjZ_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(19,:) = (/ t%lhc7%XS_hjW_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(20,:) = (/ t%lhc7%XS_tthj_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_HWW_SM(j) /) channel_SM(3,:) = (/ t%lhc7%XS_HZ_SM(j), t%BR_HWW_SM(j) /) channel_SM(4,:) = (/ t%lhc7%XS_HW_SM(j), t%BR_HWW_SM(j) /) channel_SM(5,:) = (/ t%lhc7%XS_ttH_SM(j), t%BR_HWW_SM(j) /) channel_SM(6,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(7,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_HZZ_SM(j) /) channel_SM(8,:) = (/ t%lhc7%XS_HZ_SM(j), t%BR_HZZ_SM(j) /) channel_SM(9,:) = (/ t%lhc7%XS_HW_SM(j), t%BR_HZZ_SM(j) /) channel_SM(10,:) = (/ t%lhc7%XS_ttH_SM(j), t%BR_HZZ_SM(j) /) channel_SM(11,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(12,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(13,:) = (/ t%lhc7%XS_HZ_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(14,:) = (/ t%lhc7%XS_HW_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(15,:) = (/ t%lhc7%XS_ttH_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(16,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(17,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_Htautau_SM(j) /) channel_SM(18,:) = (/ t%lhc7%XS_HZ_SM(j), t%BR_Htautau_SM(j) /) channel_SM(19,:) = (/ t%lhc7%XS_HW_SM(j), t%BR_Htautau_SM(j) /) channel_SM(20,:) = (/ t%lhc7%XS_ttH_SM(j), t%BR_Htautau_SM(j) /) case(2012012) ! ns = 2; nb = 1; call initialise_XS_rat_BR_rat nc = 2; call initialise_channel_rat_SM channel_rat(1,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_HWW_SM(j) /) case(2012158,2013030) ! ns = 2; nb = 1; call initialise_XS_rat_BR_rat nc = 4; call initialise_channel_rat_SM channel_rat(1,:) = (/ t%lhc8%XS_hj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc8%XS_vbf_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%lhc8%XS_hjZ_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%lhc8%XS_hjW_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc8%XS_H_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%lhc8%XS_vbf_SM(j), t%BR_HWW_SM(j) /) channel_SM(3,:) = (/ t%lhc8%XS_HZ_SM(j), t%BR_HWW_SM(j) /) channel_SM(4,:) = (/ t%lhc8%XS_HW_SM(j), t%BR_HWW_SM(j) /) case(2012135,12025) nc = 1; call initialise_channel_rat_SM channel_rat(1,:) = (/ t%lhc7%XS_tthj_ratio(j), div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc7%XS_ttH_SM(j), t%BR_Hbb_SM(j) /) case(2011112) ! ns = 5; nb = 4; call initialise_XS_rat_BR_rat nc = 20; call initialise_channel_rat_SM ! XS_rat(1) = t%lhc7%XS_hjW_ratio(j) ! XS_rat(2) = t%lhc7%XS_hj_ratio(j) ! XS_rat(3) = t%lhc7%XS_hjZ_ratio(j) ! XS_rat(4) = t%lhc7%XS_vbf_ratio(j) ! XS_rat(5) = t%lhc7%XS_tthj_ratio(j) ! BR_rat(1) = div( t%BR_hjZZ(j) , t%BR_HZZ_SM(j) ,0.0D0,1.0D0) ! BR_rat(2) = div( t%BR_hjWW(j) , t%BR_HWW_SM(j) ,0.0D0,1.0D0) ! BR_rat(3) = div( t%BR_hjgaga(j) , t%BR_Hgaga_SM(j) ,0.0D0,1.0D0) ! BR_rat(4) = div( t%BR_hjbb(j) , t%BR_Hbb_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%lhc7%XS_hjZ_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%lhc7%XS_hjW_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%lhc7%XS_tthj_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(6,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(7,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(8,:) = (/ t%lhc7%XS_hjZ_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(9,:) = (/ t%lhc7%XS_hjW_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(10,:) = (/ t%lhc7%XS_tthj_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(11,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(12,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(13,:) = (/ t%lhc7%XS_hjZ_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(14,:) = (/ t%lhc7%XS_hjW_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(15,:) = (/ t%lhc7%XS_tthj_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(16,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(17,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(18,:) = (/ t%lhc7%XS_hjZ_ratio(j), div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(19,:) = (/ t%lhc7%XS_hjW_ratio(j), div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(20,:) = (/ t%lhc7%XS_tthj_ratio(j), div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_HWW_SM(j) /) channel_SM(3,:) = (/ t%lhc7%XS_HZ_SM(j), t%BR_HWW_SM(j) /) channel_SM(4,:) = (/ t%lhc7%XS_HW_SM(j), t%BR_HWW_SM(j) /) channel_SM(5,:) = (/ t%lhc7%XS_ttH_SM(j), t%BR_HWW_SM(j) /) channel_SM(6,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(7,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_HZZ_SM(j) /) channel_SM(8,:) = (/ t%lhc7%XS_HZ_SM(j), t%BR_HZZ_SM(j) /) channel_SM(9,:) = (/ t%lhc7%XS_HW_SM(j), t%BR_HZZ_SM(j) /) channel_SM(10,:) = (/ t%lhc7%XS_ttH_SM(j), t%BR_HZZ_SM(j) /) channel_SM(11,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(12,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(13,:) = (/ t%lhc7%XS_HZ_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(14,:) = (/ t%lhc7%XS_HW_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(15,:) = (/ t%lhc7%XS_ttH_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(16,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(17,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_Hbb_SM(j) /) channel_SM(18,:) = (/ t%lhc7%XS_HZ_SM(j), t%BR_Hbb_SM(j) /) channel_SM(19,:) = (/ t%lhc7%XS_HW_SM(j), t%BR_Hbb_SM(j) /) channel_SM(20,:) = (/ t%lhc7%XS_ttH_SM(j), t%BR_Hbb_SM(j) /) case(11022,11032,1488,12008,2011157,2012019,2011135) ! ns = 5; nb = 5; call initialise_XS_rat_BR_rat nc = 25; call initialise_channel_rat_SM ! XS_rat(1) = t%lhc7%XS_hj_ratio(j) ! XS_rat(2) = t%lhc7%XS_vbf_ratio(j) ! XS_rat(1) = t%lhc7%XS_hjW_ratio(j) ! XS_rat(3) = t%lhc7%XS_hjZ_ratio(j) ! XS_rat(5) = t%lhc7%XS_tthj_ratio(j) ! BR_rat(1) = div( t%BR_hjZZ(j) , t%BR_HZZ_SM(j) ,0.0D0,1.0D0) ! BR_rat(2) = div( t%BR_hjWW(j) , t%BR_HWW_SM(j) ,0.0D0,1.0D0) ! BR_rat(3) = div( t%BR_hjgaga(j) , t%BR_Hgaga_SM(j) ,0.0D0,1.0D0) ! BR_rat(4) = div(t%BR_hjtautau(j) , t%BR_Htautau_SM(j) ,0.0D0,1.0D0) ! BR_rat(5) = div( t%BR_hjbb(j) , t%BR_Hbb_SM(j) ,0.0D0,1.0D0) channel_rat(1,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%lhc7%XS_hjZ_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%lhc7%XS_hjW_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%lhc7%XS_tthj_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(6,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(7,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(8,:) = (/ t%lhc7%XS_hjZ_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(9,:) = (/ t%lhc7%XS_hjW_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(10,:) = (/ t%lhc7%XS_tthj_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(11,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(12,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(13,:) = (/ t%lhc7%XS_hjZ_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(14,:) = (/ t%lhc7%XS_hjW_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(15,:) = (/ t%lhc7%XS_tthj_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(16,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(17,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(18,:) = (/ t%lhc7%XS_hjZ_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(19,:) = (/ t%lhc7%XS_hjW_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(20,:) = (/ t%lhc7%XS_tthj_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(21,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(22,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(23,:) = (/ t%lhc7%XS_hjZ_ratio(j), div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(24,:) = (/ t%lhc7%XS_hjW_ratio(j), div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(25,:) = (/ t%lhc7%XS_tthj_ratio(j), div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_HWW_SM(j) /) channel_SM(3,:) = (/ t%lhc7%XS_HZ_SM(j), t%BR_HWW_SM(j) /) channel_SM(4,:) = (/ t%lhc7%XS_HW_SM(j), t%BR_HWW_SM(j) /) channel_SM(5,:) = (/ t%lhc7%XS_ttH_SM(j), t%BR_HWW_SM(j) /) channel_SM(6,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(7,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_HZZ_SM(j) /) channel_SM(8,:) = (/ t%lhc7%XS_HZ_SM(j), t%BR_HZZ_SM(j) /) channel_SM(9,:) = (/ t%lhc7%XS_HW_SM(j), t%BR_HZZ_SM(j) /) channel_SM(10,:) = (/ t%lhc7%XS_ttH_SM(j), t%BR_HZZ_SM(j) /) channel_SM(11,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(12,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(13,:) = (/ t%lhc7%XS_HZ_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(14,:) = (/ t%lhc7%XS_HW_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(15,:) = (/ t%lhc7%XS_ttH_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(16,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(17,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_Htautau_SM(j) /) channel_SM(18,:) = (/ t%lhc7%XS_HZ_SM(j), t%BR_Htautau_SM(j) /) channel_SM(19,:) = (/ t%lhc7%XS_HW_SM(j), t%BR_Htautau_SM(j) /) channel_SM(20,:) = (/ t%lhc7%XS_ttH_SM(j), t%BR_Htautau_SM(j) /) channel_SM(21,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(22,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_Hbb_SM(j) /) channel_SM(23,:) = (/ t%lhc7%XS_HZ_SM(j), t%BR_Hbb_SM(j) /) channel_SM(24,:) = (/ t%lhc7%XS_HW_SM(j), t%BR_Hbb_SM(j) /) channel_SM(25,:) = (/ t%lhc7%XS_ttH_SM(j), t%BR_Hbb_SM(j) /) case(12045) nc = 25; call initialise_channel_rat_SM channel_rat(1,:) = (/ t%lhc8%XS_hj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc8%XS_vbf_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%lhc8%XS_hjZ_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%lhc8%XS_hjW_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%lhc8%XS_tthj_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(6,:) = (/ t%lhc8%XS_hj_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(7,:) = (/ t%lhc8%XS_vbf_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(8,:) = (/ t%lhc8%XS_hjZ_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(9,:) = (/ t%lhc8%XS_hjW_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(10,:) = (/ t%lhc8%XS_tthj_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(11,:) = (/ t%lhc8%XS_hj_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(12,:) = (/ t%lhc8%XS_vbf_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(13,:) = (/ t%lhc8%XS_hjZ_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(14,:) = (/ t%lhc8%XS_hjW_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(15,:) = (/ t%lhc8%XS_tthj_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(16,:) = (/ t%lhc8%XS_hj_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(17,:) = (/ t%lhc8%XS_vbf_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(18,:) = (/ t%lhc8%XS_hjZ_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(19,:) = (/ t%lhc8%XS_hjW_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(20,:) = (/ t%lhc8%XS_tthj_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(21,:) = (/ t%lhc8%XS_hj_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(22,:) = (/ t%lhc8%XS_vbf_ratio(j), div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(23,:) = (/ t%lhc8%XS_hjZ_ratio(j), div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(24,:) = (/ t%lhc8%XS_hjW_ratio(j), div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(25,:) = (/ t%lhc8%XS_tthj_ratio(j), div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc8%XS_H_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%lhc8%XS_vbf_SM(j), t%BR_HWW_SM(j) /) channel_SM(3,:) = (/ t%lhc8%XS_HZ_SM(j), t%BR_HWW_SM(j) /) channel_SM(4,:) = (/ t%lhc8%XS_HW_SM(j), t%BR_HWW_SM(j) /) channel_SM(5,:) = (/ t%lhc8%XS_ttH_SM(j), t%BR_HWW_SM(j) /) channel_SM(6,:) = (/ t%lhc8%XS_H_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(7,:) = (/ t%lhc8%XS_vbf_SM(j), t%BR_HZZ_SM(j) /) channel_SM(8,:) = (/ t%lhc8%XS_HZ_SM(j), t%BR_HZZ_SM(j) /) channel_SM(9,:) = (/ t%lhc8%XS_HW_SM(j), t%BR_HZZ_SM(j) /) channel_SM(10,:) = (/ t%lhc8%XS_ttH_SM(j), t%BR_HZZ_SM(j) /) channel_SM(11,:) = (/ t%lhc8%XS_H_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(12,:) = (/ t%lhc8%XS_vbf_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(13,:) = (/ t%lhc8%XS_HZ_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(14,:) = (/ t%lhc8%XS_HW_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(15,:) = (/ t%lhc8%XS_ttH_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(16,:) = (/ t%lhc8%XS_H_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(17,:) = (/ t%lhc8%XS_vbf_SM(j), t%BR_Htautau_SM(j) /) channel_SM(18,:) = (/ t%lhc8%XS_HZ_SM(j), t%BR_Htautau_SM(j) /) channel_SM(19,:) = (/ t%lhc8%XS_HW_SM(j), t%BR_Htautau_SM(j) /) channel_SM(20,:) = (/ t%lhc8%XS_ttH_SM(j), t%BR_Htautau_SM(j) /) channel_SM(21,:) = (/ t%lhc8%XS_H_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(22,:) = (/ t%lhc8%XS_vbf_SM(j), t%BR_Hbb_SM(j) /) channel_SM(23,:) = (/ t%lhc8%XS_HZ_SM(j), t%BR_Hbb_SM(j) /) channel_SM(24,:) = (/ t%lhc8%XS_HW_SM(j), t%BR_Hbb_SM(j) /) channel_SM(25,:) = (/ t%lhc8%XS_ttH_SM(j), t%BR_Hbb_SM(j) /) case(009361) nc = 10; call initialise_channel_rat_SM channel_rat(1,:) = (/ t%lhc8%XS_hj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc8%XS_vbf_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%lhc8%XS_hjZ_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%lhc8%XS_hjW_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%lhc8%XS_tthj_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(6,:) = (/ t%lhc8%XS_hj_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(7,:) = (/ t%lhc8%XS_vbf_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(8,:) = (/ t%lhc8%XS_hjZ_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(9,:) = (/ t%lhc8%XS_hjW_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(10,:) = (/ t%lhc8%XS_tthj_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc8%XS_H_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%lhc8%XS_vbf_SM(j), t%BR_HWW_SM(j) /) channel_SM(3,:) = (/ t%lhc8%XS_HZ_SM(j), t%BR_HWW_SM(j) /) channel_SM(4,:) = (/ t%lhc8%XS_HW_SM(j), t%BR_HWW_SM(j) /) channel_SM(5,:) = (/ t%lhc8%XS_ttH_SM(j), t%BR_HWW_SM(j) /) channel_SM(6,:) = (/ t%lhc8%XS_H_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(7,:) = (/ t%lhc8%XS_vbf_SM(j), t%BR_HZZ_SM(j) /) channel_SM(8,:) = (/ t%lhc8%XS_HZ_SM(j), t%BR_HZZ_SM(j) /) channel_SM(9,:) = (/ t%lhc8%XS_HW_SM(j), t%BR_HZZ_SM(j) /) channel_SM(10,:) = (/ t%lhc8%XS_ttH_SM(j), t%BR_HZZ_SM(j) /) case(17020321,17020322,17020323) ! This only checks the relative proportions of the four main production modes nc = 4; call initialise_channel_rat_SM channel_rat(1,:) = (/ t%lhc8%XS_hj_ratio(j) , 1.0D0 /) channel_rat(2,:) = (/ t%lhc8%XS_vbf_ratio(j), 1.0D0 /) channel_rat(3,:) = (/ t%lhc8%XS_hjZ_ratio(j), 1.0D0 /) channel_rat(4,:) = (/ t%lhc8%XS_hjW_ratio(j), 1.0D0 /) channel_SM(1,:) = (/ t%lhc8%XS_H_SM(j) , 1.0D0 /) channel_SM(2,:) = (/ t%lhc8%XS_vbf_SM(j), 1.0D0 /) channel_SM(3,:) = (/ t%lhc8%XS_HZ_SM(j), 1.0D0 /) channel_SM(4,:) = (/ t%lhc8%XS_HW_SM(j), 1.0D0 /) case(7214) nc = 25; call initialise_channel_rat_SM channel_rat(1,:) = (/ t%lhc8%XS_hj_ratio(j) , div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc8%XS_vbf_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%lhc8%XS_hjZ_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%lhc8%XS_hjW_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%lhc8%XS_tthj_ratio(j), div(t%BR_hjWW(j),t%BR_HWW_SM(j),0.0D0,1.0D0) /) channel_rat(6,:) = (/ t%lhc8%XS_hj_ratio(j) , div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(7,:) = (/ t%lhc8%XS_vbf_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(8,:) = (/ t%lhc8%XS_hjZ_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(9,:) = (/ t%lhc8%XS_hjW_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(10,:) = (/ t%lhc8%XS_tthj_ratio(j), div(t%BR_hjZZ(j),t%BR_HZZ_SM(j),0.0D0,1.0D0) /) channel_rat(11,:) = (/ t%lhc8%XS_hj_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(12,:) = (/ t%lhc8%XS_vbf_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(13,:) = (/ t%lhc8%XS_hjZ_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(14,:) = (/ t%lhc8%XS_hjW_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(15,:) = (/ t%lhc8%XS_tthj_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(16,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(17,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(18,:) = (/ t%lhc7%XS_hjZ_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(19,:) = (/ t%lhc7%XS_hjW_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(20,:) = (/ t%lhc7%XS_tthj_ratio(j), div(t%BR_hjtautau(j),t%BR_Htautau_SM(j),0.0D0,1.0D0) /) channel_rat(21,:) = (/ t%lhc7%XS_hj_ratio(j) , div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(22,:) = (/ t%lhc7%XS_vbf_ratio(j), div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(23,:) = (/ t%lhc7%XS_hjZ_ratio(j), div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(24,:) = (/ t%lhc7%XS_hjW_ratio(j), div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_rat(25,:) = (/ t%lhc7%XS_tthj_ratio(j), div(t%BR_hjbb(j),t%BR_Hbb_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc8%XS_H_SM(j) , t%BR_HWW_SM(j) /) channel_SM(2,:) = (/ t%lhc8%XS_vbf_SM(j), t%BR_HWW_SM(j) /) channel_SM(3,:) = (/ t%lhc8%XS_HZ_SM(j), t%BR_HWW_SM(j) /) channel_SM(4,:) = (/ t%lhc8%XS_HW_SM(j), t%BR_HWW_SM(j) /) channel_SM(5,:) = (/ t%lhc8%XS_ttH_SM(j), t%BR_HWW_SM(j) /) channel_SM(6,:) = (/ t%lhc8%XS_H_SM(j) , t%BR_HZZ_SM(j) /) channel_SM(7,:) = (/ t%lhc8%XS_vbf_SM(j), t%BR_HZZ_SM(j) /) channel_SM(8,:) = (/ t%lhc8%XS_HZ_SM(j), t%BR_HZZ_SM(j) /) channel_SM(9,:) = (/ t%lhc8%XS_HW_SM(j), t%BR_HZZ_SM(j) /) channel_SM(10,:) = (/ t%lhc8%XS_ttH_SM(j), t%BR_HZZ_SM(j) /) channel_SM(11,:) = (/ t%lhc8%XS_H_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(12,:) = (/ t%lhc8%XS_vbf_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(13,:) = (/ t%lhc8%XS_HZ_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(14,:) = (/ t%lhc8%XS_HW_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(15,:) = (/ t%lhc8%XS_ttH_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(16,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_Htautau_SM(j) /) channel_SM(17,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_Htautau_SM(j) /) channel_SM(18,:) = (/ t%lhc7%XS_HZ_SM(j), t%BR_Htautau_SM(j) /) channel_SM(19,:) = (/ t%lhc7%XS_HW_SM(j), t%BR_Htautau_SM(j) /) channel_SM(20,:) = (/ t%lhc7%XS_ttH_SM(j), t%BR_Htautau_SM(j) /) channel_SM(21,:) = (/ t%lhc7%XS_H_SM(j) , t%BR_Hbb_SM(j) /) channel_SM(22,:) = (/ t%lhc7%XS_vbf_SM(j), t%BR_Hbb_SM(j) /) channel_SM(23,:) = (/ t%lhc7%XS_HZ_SM(j), t%BR_Hbb_SM(j) /) channel_SM(24,:) = (/ t%lhc7%XS_HW_SM(j), t%BR_Hbb_SM(j) /) channel_SM(25,:) = (/ t%lhc7%XS_ttH_SM(j), t%BR_Hbb_SM(j) /) case(5739,10574) ns = 1; nb = 1; call initialise_XS_rat_BR_rat XS_rat(1) = t%tev%XS_tthj_ratio(j) BR_rat(1) = div(t%BR_hjbb(j) , t%BR_Hbb_SM(j) ,0.0D0,1.0D0) if(t%CP_value(j).eq.1)then ! analysis only applies if higgs is CP even else correct_properties=.False. endif case(711) ns = 1; nb = 1; call initialise_XS_rat_BR_rat XS_rat(1) = t%lep%XS_bbhj_ratio(j) BR_rat(1) = t%BR_hjbb(j) !note *not* normalised to SM if(t%CP_value(j).eq.1)then ! analysis only applies if higgs is CP even else correct_properties=.False. endif case(713) ns = 1; nb = 1; call initialise_XS_rat_BR_rat XS_rat(1) = t%lep%XS_bbhj_ratio(j) BR_rat(1) = t%BR_hjbb(j)!note *not* normalised to SM if(t%CP_value(j).eq.-1)then ! analysis only applies if higgs is CP odd else correct_properties=.False. endif case(721) ns = 1; nb = 1; call initialise_XS_rat_BR_rat XS_rat(1) = t%lep%XS_bbhj_ratio(j) BR_rat(1) = t%BR_hjtautau(j)!note *not* normalised to SM if(t%CP_value(j).eq.1)then ! analysis only applies if higgs is CP even else correct_properties=.False. endif case(723) ns = 1; nb = 1; call initialise_XS_rat_BR_rat XS_rat(1) = t%lep%XS_bbhj_ratio(j) BR_rat(1) = t%BR_hjtautau(j)!note *not* normalised to SM if(t%CP_value(j).eq.-1)then ! analysis only applies if higgs is CP odd else correct_properties=.False. endif case(731) ns = 1; nb = 1; call initialise_XS_rat_BR_rat XS_rat(1) = t%lep%XS_tautauhj_ratio(j) BR_rat(1) = t%BR_hjtautau(j)!note *not* normalised to SM if(t%CP_value(j).eq.1)then ! analysis only applies if higgs is CP even else correct_properties=.False. endif case(733) ns = 1; nb = 1; call initialise_XS_rat_BR_rat XS_rat(1) = t%lep%XS_tautauhj_ratio(j) BR_rat(1) = t%BR_hjtautau(j)!note *not* normalised to SM if(t%CP_value(j).eq.-1)then ! analysis only applies if higgs is CP odd else correct_properties=.False. endif case(741) ns = 1; nb = 1; call initialise_XS_rat_BR_rat XS_rat(1) = t%lep%XS_bbhj_ratio(j) BR_rat(1) = t%BR_hjtautau(j)!note *not* normalised to SM if(t%CP_value(j).eq.1)then ! analysis only applies if higgs is CP even else correct_properties=.False. endif case(743) ns = 1; nb = 1; call initialise_XS_rat_BR_rat XS_rat(1) = t%lep%XS_bbhj_ratio(j) BR_rat(1) = t%BR_hjtautau(j)!note *not* normalised to SM if(t%CP_value(j).eq.-1)then ! analysis only applies if higgs is CP odd else correct_properties=.False. endif case(1811,2011094,13035) ns = 1; nb = 1; call initialise_XS_rat_BR_rat XS_rat(1) = t%BR_tHpjb(j) BR_rat(1) = t%BR_Hpjcs(j) if( (t%BR_tHpjb(j)+t%BR_tWpb ).le.0.98D0)then correct_properties=.False. elseif((t%BR_Hpjcs(j)+t%BR_Hpjtaunu(j)).le.0.98D0)then correct_properties=.False. endif case(1812,7712,8353,11002,11008,160311) ns = 1; nb = 1; call initialise_XS_rat_BR_rat XS_rat(1) = t%BR_tHpjb(j) BR_rat(1) = t%BR_Hpjtaunu(j) if( (t%BR_tHpjb(j)+t%BR_tWpb).le.0.98D0)then correct_properties=.False. elseif((t%BR_Hpjcs(j)+t%BR_Hpjtaunu(j)).le.0.98D0)then correct_properties=.False. endif case(2011138,2011151,2760,2013090,2014050,14020,79152) ns = 1; nb = 1; call initialise_XS_rat_BR_rat XS_rat(1) = t%BR_tHpjb(j) BR_rat(1) = t%BR_Hpjtaunu(j) if( (t%BR_tHpjb(j)+t%BR_tWpb).le.0.98D0)then correct_properties=.False. endif case(1269,1270) ns = 1; nb = 1; call initialise_XS_rat_BR_rat XS_rat(1) = t%BR_tHpjb(j) BR_rat(1) = t%BR_Hpjcs(j) if( (t%BR_tHpjb(j)+t%BR_tWpb ).le.0.98D0)then correct_properties=.False. elseif( t%BR_Hpjcs(j) .le.0.98D0)then correct_properties=.False. endif case(6224) ns = 1; nb = 1; call initialise_XS_rat_BR_rat XS_rat(1) = t%tev%XS_hjb_ratio(j)*t%tev%XS_Hb_c4_SM(j) BR_rat(1) = 1.0D0 if( ( t%BR_hjtautau(j)+t%BR_hjbb(j) ).le.0.98D0)then correct_properties=.False. elseif( t%BR_hjtautau(j) .le.0.06D0)then correct_properties=.False. endif case(6225) ns = 1; nb = 1; call initialise_XS_rat_BR_rat XS_rat(1) = t%tev%XS_hjb_ratio(j)*t%tev%XS_Hb_c4_SM(j) BR_rat(1) = 1.0D0 if( ( t%BR_hjtautau(j)+t%BR_hjbb(j) ).le.0.98D0)then correct_properties=.False. elseif( t%BR_hjtautau(j) .le.0.1D0)then correct_properties=.False. endif case(6226) ns = 1; nb = 1; call initialise_XS_rat_BR_rat XS_rat(1) = t%tev%XS_hjb_ratio(j)*t%tev%XS_Hb_c4_SM(j) BR_rat(1) = 1.0D0 if( ( t%BR_hjtautau(j)+t%BR_hjbb(j) ).le.0.98D0)then correct_properties=.False. elseif( t%BR_hjtautau(j) .le.0.14D0)then correct_properties=.False. endif case(04670) ! This is a H->h(SM)h(SM) search! ns = 1; nb =1; call initialise_XS_rat_BR_rat XS_rat(1) = t%lhc8%XS_hj_ratio(j)*t%lhc8%XS_H_SM(j) BR_rat(1) = 0.0D0 correct_properties=.False. do jj=1,np(Hneut) if(abs(t%particle(Hneut)%M(jj)-125.4).lt.(5.0D0+t%particle(Hneut)%dMh(jj))) then dcbyc_dble=maxval((/ div(abs(t%BR_hjgaga(jj)-t%BR_Hgaga_SM(jj)),t%BR_Hgaga_SM(jj),0.0D0,1.0D0),& & div(abs(t%BR_hjWW(jj)-t%BR_HWW_SM(jj)),t%BR_HWW_SM(jj),0.0D0,1.0D0), & & div(abs(t%BR_hjbb(jj)-t%BR_Hbb_SM(jj)),t%BR_Hbb_SM(jj),0.0D0,1.0D0), & & div(abs(t%BR_hjtautau(jj)-t%BR_Htautau_SM(jj)),t%BR_Htautau_SM(jj),0.0D0,1.0D0) /)) if(dcbyc_dble.lt.0.1D0) then correct_properties=.True. BR_rat(1) = BR_rat(1)+t%BR_hjhihi(j,jj) endif endif enddo + case(17030) ! This is a H->h(SM)h(SM) search! + ! n.b.: In principle, should also check for SM strength of h production modes, as this + ! is part of the assumed background! + ns = 1; nb =1; call initialise_XS_rat_BR_rat + XS_rat(1) = 1000.0D0 * t%lhc13%XS_hj_ratio(j)*t%lhc13%XS_H_SM(j) ! convert to fb + BR_rat(1) = 0.0D0 + correct_properties=.False. + do jj=1,np(Hneut) + if(abs(t%particle(Hneut)%M(jj)-125.0D0).lt.(5.0D0+t%particle(Hneut)%dMh(jj))) then + dcbyc_dble=maxval((/ div(abs(t%BR_hjgaga(jj)-t%BR_Hgaga_SM(jj)),t%BR_Hgaga_SM(jj),0.0D0,1.0D0),& + & div(abs(t%BR_hjWW(jj)-t%BR_HWW_SM(jj)),t%BR_HWW_SM(jj),0.0D0,1.0D0), & + & div(abs(t%BR_hjZZ(jj)-t%BR_HZZ_SM(jj)),t%BR_HZZ_SM(jj),0.0D0,1.0D0), & + & div(abs(t%BR_hjbb(jj)-t%BR_Hbb_SM(jj)),t%BR_Hbb_SM(jj),0.0D0,1.0D0), & + & div(abs(t%BR_hjtautau(jj)-t%BR_Htautau_SM(jj)),t%BR_Htautau_SM(jj),0.0D0,1.0D0) /)) + if(dcbyc_dble.lt.0.1D0) then + correct_properties=.True. + BR_rat(1) = BR_rat(1)+t%BR_hjhihi(j,jj) + endif + endif + enddo + case(046701) ! This is a H->h(SM)h(SM) search! ns = 1; nb =1; call initialise_XS_rat_BR_rat XS_rat(1) = t%lhc8%XS_hj_ratio(j)*t%lhc8%XS_H_SM(j) BR_rat(1) = 0.0D0 correct_properties=.False. do jj=1,np(Hneut) if(abs(t%particle(Hneut)%M(jj)-125.4).lt.(5.0D0+t%particle(Hneut)%dMh(jj))) then dcbyc_dble=maxval((/ div(abs(t%BR_hjgaga(jj)-t%BR_Hgaga_SM(jj)),t%BR_Hgaga_SM(jj),0.0D0,1.0D0),& & div(abs(t%BR_hjWW(jj)-t%BR_HWW_SM(jj)),t%BR_HWW_SM(jj),0.0D0,1.0D0) /)) if(dcbyc_dble.lt.0.1D0) then correct_properties=.True. BR_rat(1) = BR_rat(1)+t%BR_hjhihi(j,jj) endif endif enddo + case(4873) ! This is a H->h(SM)h(SM) search! + ns = 1; nb =1; call initialise_XS_rat_BR_rat + XS_rat(1) = t%lhc13%XS_hj_ratio(j)*t%lhc13%XS_H_SM(j) + BR_rat(1) = 0.0D0 + correct_properties=.False. + do jj=1,np(Hneut) + if(abs(t%particle(Hneut)%M(jj)-125.0).lt.(5.0D0+t%particle(Hneut)%dMh(jj))) then + dcbyc_dble=maxval((/ div(abs(t%BR_hjgaga(jj)-t%BR_Hgaga_SM(jj)),t%BR_Hgaga_SM(jj),0.0D0,1.0D0),& + & div(abs(t%BR_hjbb(jj)-t%BR_Hbb_SM(jj)),t%BR_Hbb_SM(jj),0.0D0,1.0D0) /)) + if(dcbyc_dble.lt.0.1D0) then + correct_properties=.True. + BR_rat(1) = BR_rat(1)+t%BR_hjhihi(j,jj) + endif + endif + enddo + case(046702) ! This is a H->h(SM)h(SM) search! ns = 1; nb =1; call initialise_XS_rat_BR_rat XS_rat(1) = t%lhc8%XS_hj_ratio(j)*t%lhc8%XS_H_SM(j) BR_rat(1) = 0.0D0 correct_properties=.False. do jj=1,np(Hneut) if(abs(t%particle(Hneut)%M(jj)-125.4).lt.(10.0D0+t%particle(Hneut)%dMh(jj))) then dcbyc_dble=maxval((/ div(abs(t%BR_hjbb(jj)-t%BR_Hbb_SM(jj)),t%BR_Hbb_SM(jj),0.0D0,1.0D0), & & div(abs(t%BR_hjtautau(jj)-t%BR_Htautau_SM(jj)),t%BR_Htautau_SM(jj),0.0D0,1.0D0) /)) if(dcbyc_dble.lt.0.1D0) then correct_properties=.True. BR_rat(1) = BR_rat(1)+t%BR_hjhihi(j,jj) endif endif enddo case(0038911) ! H-WW search with width-assumptions ns = 1; nb =1; call initialise_XS_rat_BR_rat XS_rat(1) = t%lhc8%XS_hj_ratio(j)*t%lhc8%XS_H_SM(j) BR_rat(1) = t%BR_hjWW(j) if(t%particle(Hneut)%GammaTot(j)<0.2D0*t%GammaTot_SM(j)) then ! NWA requirement correct_properties=.True. else correct_properties=.False. endif case(0038912) ! H-WW search with width-assumptions ns = 1; nb =1; call initialise_XS_rat_BR_rat XS_rat(1) = t%lhc8%XS_vbf_ratio(j)*t%lhc8%XS_vbf_SM(j) BR_rat(1) = t%BR_hjWW(j) if(t%particle(Hneut)%GammaTot(j)<0.2D0*t%GammaTot_SM(j)) then ! NWA requirement correct_properties=.True. else correct_properties=.False. endif case(0038913) ! H-WW search with width-assumptions ns = 1; nb =1; call initialise_XS_rat_BR_rat XS_rat(1) = t%lhc8%XS_hj_ratio(j)*t%lhc8%XS_H_SM(j) BR_rat(1) = t%BR_hjWW(j) if(t%particle(Hneut)%GammaTot(j)>0.8D0*t%GammaTot_SM(j)) then ! NWA requirement correct_properties=.True. else correct_properties=.False. endif case(0038914) ! H-WW search with width-assumptions ns = 1; nb =1; call initialise_XS_rat_BR_rat XS_rat(1) = t%lhc8%XS_vbf_ratio(j)*t%lhc8%XS_vbf_SM(j) BR_rat(1) = t%BR_hjWW(j) if(t%particle(Hneut)%GammaTot(j)>0.8D0*t%GammaTot_SM(j)) then ! NWA requirement correct_properties=.True. else correct_properties=.False. endif !case(801,802,803,811,813,821) !ns = 1; nb = 1; call initialise_XS_rat_BR_rat ! XS_rat(1) = !BR_rat(1) = !if((t%BR_Hpjcb(j)+t%BR_Hpjcs(j)+t%BR_Hpjtaunu(j)).gt.0.98D0)then !else ! correct_properties=.False. !endif case default write(*,*)'hello id=',id stop 'error in subroutine model_likeness (2)' end select !---------------------------------------------------------- !--New model likeness check (TS 23/03/2012) !---------------------------------------------------------- if(allocated(channel_rat)) then if(nc.ne.ubound(channel_rat,dim=1))stop 'error in subroutine model_likeness (3a)' if(nc.ne.ubound(channel_SM,dim=1))stop 'error in subroutine model_likeness (3a)' ! Check if the channels have been filled correctly do ic=1,nc if(abs(channel_rat(ic,1)-unset).lt.1.0D-3)stop 'error in subroutine model_likeness (4a)' if(abs(channel_rat(ic,2)-unset).lt.1.0D-3)stop 'error in subroutine model_likeness (4a)' if(abs(channel_SM(ic,1)-unset).lt.1.0D-3)stop 'error in subroutine model_likeness (4a)' if(abs(channel_SM(ic,2)-unset).lt.1.0D-3)stop 'error in subroutine model_likeness (4a)' enddo !---Eliminate irrelevant channels (=channels with very small SM prediction). !---Construct mean value of the ratio for the relevant channels nc_rel=0 do ic=1,nc if(channel_SM(ic,1).gt.vsmall.and.channel_SM(ic,2).gt.vsmall) then nc_rel=nc_rel+1 channel_SM(nc_rel,:)=channel_SM(ic,:) channel_rat(nc_rel,:)=channel_rat(ic,:) endif enddo if(nc_rel.gt.0) then nc=nc_rel call reallocate_channel_rat_SM endif !--Evaluate the total SM rate expected for the (relevant) channels SMrate=0. do ic=1,nc SMrate=SMrate+channel_SM(ic,1)*channel_SM(ic,2) enddo !--Evaluate the predicted signal strength modifier c of the model c=0. do ic=1,nc !----use a weighted average of the channel rate ratios if(use_weight) then weight = div(channel_SM(ic,1)*channel_SM(ic,2),SMrate,0.0D0,1.0D9) else weight = 1.0D0/nc endif c=c+weight*channel_rat(ic,1)*channel_rat(ic,2) enddo !--Evaluate the deviation of each channel rate ratio to the signal !--strength modifier c allocate(dcbyc(nc)) do ic=1,nc dcbyc(ic)= div((channel_rat(ic,1)*channel_rat(ic,2)-c),c,0.0D0,1.0D9) enddo !--Do the model likeness test testSMratios= 1 !passes the SM-like ratios test do ic=1,nc !----Again, evaluate the weight of the channel if(use_weight) then weight = div(channel_SM(ic,1)*channel_SM(ic,2),SMrate,0.0D0,1.0D9) else weight = 1.0D0 endif !----Check if the channel fulfills the model likeness criteria ! print *, ic, channel_rat(ic,1), channel_rat(ic,2), abs(dcbyc(ic)*weight), dcbyc(ic), weight, c if(abs(dcbyc(ic)*weight).gt.eps)then testSMratios= -1 !fails the SM-like ratios test ! write(*,*) "Analysis application ", id, "fail the SM likeness test!" endif enddo !--Write total ratio into s and b to return later. s=c b=1. deallocate(channel_rat) deallocate(channel_SM) deallocate(dcbyc) !-If channel_rat is not allocated, use old method: else if(ns.ne.ubound(XS_rat,dim=1))stop 'error in subroutine model_likeness (3a)' if(nb.ne.ubound(BR_rat,dim=1))stop 'error in subroutine model_likeness (3b)' do is=1,ns if(abs(XS_rat(is)-unset).lt.1.0D-3)stop 'error in subroutine model_likeness (4a)' enddo do ib=1,nb if(abs(BR_rat(ib)-unset).lt.1.0D-3)stop 'error in subroutine model_likeness (4b)' enddo s=sum(XS_rat)/ns b=sum(BR_rat)/nb allocate(dsbys(ns)) do is=1,ns dsbys(is)= div((XS_rat(is) -s),s, 0.0D0,1.0D9) enddo allocate(dbbyb(nb)) do ib=1,nb dbbyb(ib)= div((BR_rat(ib) -b),b, 0.0D0,1.0D9) enddo testSMratios= 1 !passes the SM-like ratios test do is=1,ns do ib=1,nb if(abs( dsbys(is)+dbbyb(ib)+dsbys(is)*dbbyb(ib) ).gt.eps )then testSMratios= -1 !fails the SM-like ratios test endif enddo enddo deallocate(dsbys) deallocate(dbbyb) deallocate(XS_rat) deallocate(BR_rat) endif if(testSMratios.lt.0)correct_properties=.False. if(correct_properties)then model_like= 1 !passes the model-likeness test sigmaXbr=s*b else model_like= -1 !fails the model-likeness test sigmaXbr=0.0D0 endif contains !---------------------------------------- subroutine initialise_XS_rat_BR_rat allocate(XS_rat(ns)) allocate(BR_rat(nb)) XS_rat=unset BR_rat=unset allocate(XS_SM_temp(ns)) allocate(BR_SM_temp(nb)) XS_SM_temp=unset BR_SM_temp=unset end subroutine initialise_XS_rat_BR_rat !---------------------------------------- subroutine initialise_channel_rat_SM allocate(channel_rat(nc,2)) allocate(channel_SM(nc,2)) channel_rat=unset channel_SM=unset end subroutine initialise_channel_rat_SM !---------------------------------------- subroutine reallocate_channel_rat_SM double precision, allocatable :: reallocate_array(:,:) allocate(reallocate_array(nc,2)) reallocate_array(1:nc,:) = channel_rat(1:nc,:) deallocate(channel_rat) allocate(channel_rat(nc,2)) channel_rat = reallocate_array reallocate_array(1:nc,:) = channel_SM(1:nc,:) deallocate(channel_SM) allocate(channel_SM(nc,2)) channel_SM = reallocate_array deallocate(reallocate_array) end subroutine reallocate_channel_rat_SM !---------------------------------------- end subroutine model_likeness !*********************************************************** subroutine fill_blank_ft1_dat(ft1,ft1_sep,vmasslower,vmasshigher,vmass_xmin,vmass_xmax,vmass_sep,valueoutsidetable) ! don't forget to deallocate f_t1%dat use usefulbits, only : small implicit none integer :: ilower,ihigher double precision, intent(in) :: ft1_sep,vmasslower,vmasshigher,vmass_xmin,vmass_xmax,vmass_sep,valueoutsidetable type(table1) :: ft1 if(abs(vmass_xmin-vmass_xmax).lt.small)stop 'problem in f_from_t3 (4)' ft1%sep=ft1_sep ! we want f_t1%xmin to be lower than x1lower if((vmasslower -vmass_xmin).ge.0.0D0)then ilower = int((vmasslower -vmass_xmin)/vmass_sep)+1 else !off lower edge of table ilower = int((vmasslower -vmass_xmin)/vmass_sep)+1-1 !-1 since int rounds up for negative numbers endif ihigher = int((vmasshigher-vmass_xmin)/vmass_sep)+2 ! we want f_t1%xmax to be higher than x1higher ft1%xmin = dble(ilower - 1)*vmass_sep + vmass_xmin ft1%xmax = dble(ihigher - 1)*vmass_sep + vmass_xmin ft1%nx=nint((ft1%xmax-ft1%xmin)/ft1%sep)+1 allocate(ft1%dat(ft1%nx,1)) ft1%dat(:,1)=valueoutsidetable end subroutine fill_blank_ft1_dat !*********************************************************** subroutine f_from_t1(t1,vmasslower,vmasshigher,sepmultfactor,datcomp, & & f_t1,valueoutsidetable) ! Fills the f_t1 array with the information from a t1 array ! ! Do not forget to deallocate f_t1%dat later on !*********************************************************** use interpolate use usefulbits, only : small implicit none !--------------------------------------input type(table1), intent(in) :: t1 double precision, intent(in) :: vmasslower,vmasshigher,valueoutsidetable double precision, intent(in) :: sepmultfactor integer, intent(in) :: datcomp !-----------------------------------output type(table1), intent(out) :: f_t1 !-----------------------------------internal integer :: i double precision :: interpol double precision :: vmass,vmass_xmin,vmass_xmax,vmass_sep !------------------------------------------- if(vmasslower.gt.vmasshigher)then stop 'problem in f_from_t1 (1)' endif f_t1%id = t1%id f_t1%deltax = t1%deltax vmass_xmin = t1%xmin vmass_xmax = t1%xmax vmass_sep = t1%sep f_t1%sep = t1%sep*sepmultfactor call fill_blank_ft1_dat(f_t1,f_t1%sep,vmasslower,vmasshigher,vmass_xmin,vmass_xmax,vmass_sep,valueoutsidetable) do i=1,ubound(f_t1%dat,dim=1) vmass = dble(i-1)*f_t1%sep + f_t1%xmin if( vmass.lt.vmass_xmin-small )then f_t1%dat(i,1)=valueoutsidetable elseif( vmass.gt.vmass_xmax+small )then f_t1%dat(i,1)=valueoutsidetable else call interpolate_tabletype1(vmass,t1,datcomp,interpol) f_t1%dat(i,1)=interpol endif enddo end subroutine f_from_t1 !*********************************************************** subroutine f_from_t2(t2,m1_at_ref_point_1,m2_at_ref_point_1,m1_at_ref_point_2,m2_at_ref_point_2, & & vmassm1orm2,vmasslower,vmasshigher,sepmultfactor,datcomp, & & f_t1,valueoutsidetable) ! Fills the f_t1 array with the information from a t2 array along a line ! m2 = line_grad*m1 + line_const ! ! Do not forget to deallocate f_t1%dat later on !*********************************************************** use interpolate use usefulbits, only : small implicit none !--------------------------------------input type(table2), intent(in) :: t2 double precision, intent(in) :: m1_at_ref_point_1,m2_at_ref_point_1,m1_at_ref_point_2,m2_at_ref_point_2 double precision, intent(in) :: vmasslower,vmasshigher,valueoutsidetable double precision, intent(in) :: sepmultfactor integer, intent(in) :: datcomp,vmassm1orm2 !-----------------------------------output type(table1), intent(out) :: f_t1 !-----------------------------------internal type(table1) :: t1 double precision :: line_grad,line_const integer :: i logical :: const_m1,const_m2 integer :: const_m1_i,const_m2_j logical :: on_m1_gridline,on_m2_gridline double precision :: interpol,mass1,mass2 double precision :: m1bit,m2bit double precision :: vmass,vmass_xmin,vmass_xmax,vmass_sep integer :: ftype_selection(1) !------------------------------------------- if(vmasslower.gt.vmasshigher)then stop 'problem in f_from_t2 (1)' endif if(abs(m1_at_ref_point_1-m1_at_ref_point_2).lt.small)then const_m1=.True. !line_grad is not needed !line_const is not needed else const_m1=.False. line_grad =(m2_at_ref_point_1-m2_at_ref_point_2)/(m1_at_ref_point_1-m1_at_ref_point_2) line_const=(m1_at_ref_point_1*m2_at_ref_point_2-m1_at_ref_point_2*m2_at_ref_point_1) & & /(m1_at_ref_point_1-m1_at_ref_point_2) endif if(abs(m2_at_ref_point_1-m2_at_ref_point_2).lt.small)then const_m2=.True. else const_m2=.False. endif f_t1%id = t2%id f_t1%deltax = t2%deltax select case(vmassm1orm2) case(1) if(const_m1)stop 'problem in f_from_t2 (3a)' vmass_xmin = t2%xmin1 vmass_xmax = t2%xmax1 vmass_sep = t2%sep1 f_t1%sep = t2%sep1*sepmultfactor case(2) if(const_m2)stop 'problem in f_from_t2 (3b)' vmass_xmin = t2%xmin2 vmass_xmax = t2%xmax2 vmass_sep = t2%sep2 f_t1%sep = t2%sep2*sepmultfactor case default stop 'problem in f_from_t2 (3)' end select call fill_blank_ft1_dat(f_t1,f_t1%sep,vmasslower,vmasshigher,vmass_xmin,vmass_xmax,vmass_sep,valueoutsidetable) on_m1_gridline=.False. if(const_m1)then const_m1_i=nint( (m1_at_ref_point_1-t2%xmin1) /t2%sep1)+1 m1bit= m1_at_ref_point_1 -(dble(const_m1_i-1)*t2%sep1+t2%xmin1)/t2%sep1 if(m1bit.lt.small)on_m1_gridline=.True. endif on_m2_gridline=.False. if(const_m2)then const_m2_j=nint( (m2_at_ref_point_1-t2%xmin2) /t2%sep2)+1 m2bit= m2_at_ref_point_1 -(dble(const_m2_j-1)*t2%sep2+t2%xmin2)/t2%sep2 if(m2bit.lt.small)on_m2_gridline=.True. endif ftype_selection(1)=datcomp if( on_m1_gridline )then call fill_t1_from_t2(t2,2,const_m1_i,ftype_selection,t1) call f_from_t1(t1,vmasslower,vmasshigher,sepmultfactor,datcomp, & & f_t1,valueoutsidetable) deallocate(t1%dat) elseif(on_m2_gridline )then call fill_t1_from_t2(t2,1,const_m2_j,ftype_selection,t1) call f_from_t1(t1,vmasslower,vmasshigher,sepmultfactor,datcomp, & & f_t1,valueoutsidetable) deallocate(t1%dat) else do i=1,ubound(f_t1%dat,dim=1) vmass = dble(i-1)*f_t1%sep + f_t1%xmin if(t2%nx2.eq.1)then mass1 = vmass mass2 = t2%xmin2 elseif(vmassm1orm2.eq.1)then mass1 = vmass mass2 = mass1*line_grad+line_const else mass2 = vmass if(const_m1)then mass1 = m1_at_ref_point_1 else mass1 = (mass2 - line_const)/line_grad endif endif if( vmass.lt.vmass_xmin-small )then f_t1%dat(i,1)=valueoutsidetable elseif( vmass.gt.vmass_xmax+small )then f_t1%dat(i,1)=valueoutsidetable elseif(( t2%needs_M2_gt_2M1 ).and.(2.0D0*mass1>mass2+small))then f_t1%dat(i,1)=valueoutsidetable elseif((.not.(t2%needs_M2_gt_2M1)).and.(mass1>mass2+small).and.(t2%nx2.gt.1))then f_t1%dat(i,1)=valueoutsidetable else call interpolate_tabletype2(mass1,mass2,t2,datcomp,interpol) f_t1%dat(i,1)=interpol endif enddo endif end subroutine f_from_t2 !****************************************************************** subroutine f_from_slices_t2(slices_t2,m1_at_ref_point_1,m2_at_ref_point_1,m1_at_ref_point_2,m2_at_ref_point_2,z, & & vmassm1orm2,vmasslower,vmasshigher,sepmultfactor,datcomp, & & f_t1,valueoutsidetable) !****************************************************************** ! fill the f_t1 array with the information from a t3 array at constant sf along a line ! m2 = line_grad*m1 + line_const ! do not forget to deallocate dat use S95tables_type3 use interpolate use usefulbits, only : small implicit none type(table2), intent(in) :: slices_t2(2) type(table1) :: f_t1 double precision, intent(in) :: m1_at_ref_point_1,m2_at_ref_point_1,m1_at_ref_point_2,m2_at_ref_point_2 double precision, intent(in) :: z,vmasslower,vmasshigher,valueoutsidetable double precision, intent(in) :: sepmultfactor double precision :: line_grad,line_const integer, intent(in) :: datcomp,vmassm1orm2 integer :: i logical :: const_m1,const_m2 double precision :: interpol,mass1,mass2 double precision :: vmass,vmass_xmin,vmass_xmax,vmass_sep double precision :: z_below,z_above if(vmasslower.gt.vmasshigher)then stop 'problem in f_from_slices_t2 (1)' endif if(abs(m1_at_ref_point_1-m1_at_ref_point_2).lt.small)then const_m1=.True. else const_m1=.False. endif if(abs(m2_at_ref_point_1-m2_at_ref_point_2).lt.small)then const_m2=.True. else const_m2=.False. endif ! check if mass is within z range of table: if( .not. ( (z .ge. slices_t2(1)%z-small).and.(z .le. slices_t2(2)%z+small) ) )then !#1! written in convoluted way to get the NaNs f_t1%id = slices_t2(1)%id f_t1%deltax = slices_t2(1)%deltax if((slices_t2(1)%nx2.eq.1).or.(vmassm1orm2.eq.1))then if(const_m1)stop 'problem in f_from_slices_t2 (1a)' vmass_xmin = slices_t2(1)%xmin1 vmass_sep = slices_t2(1)%sep1 f_t1%sep = slices_t2(1)%sep1*sepmultfactor else if(const_m2)stop 'problem in f_from_slices_t2 (1b)' vmass_xmin = slices_t2(1)%xmin2 vmass_sep = slices_t2(1)%sep2 f_t1%sep = slices_t2(1)%sep2*sepmultfactor endif call fill_blank_ft1_dat(f_t1,f_t1%sep,vmasslower,vmasshigher,vmass_xmin,vmass_xmax,vmass_sep,valueoutsidetable) else !#1 z_below=slices_t2(1)%z z_above=slices_t2(2)%z if(abs(z_below-z).lt.small)then !z is the same as z_below !#2 call f_from_t2(slices_t2(1),m1_at_ref_point_1,m2_at_ref_point_1,m1_at_ref_point_2,m2_at_ref_point_2, & & vmassm1orm2,vmasslower,vmasshigher,sepmultfactor,1, & & f_t1,valueoutsidetable) elseif(abs(z_above-z).lt.small)then !z is the same as z_above !#2 call f_from_t2(slices_t2(2),m1_at_ref_point_1,m2_at_ref_point_1,m1_at_ref_point_2,m2_at_ref_point_2, & & vmassm1orm2,vmasslower,vmasshigher,sepmultfactor,1, & & f_t1,valueoutsidetable) else!#2 if(const_m1)then !line_grad is not needed !line_const is not needed else line_grad =(m2_at_ref_point_1-m2_at_ref_point_2)/(m1_at_ref_point_1-m1_at_ref_point_2) line_const=(m1_at_ref_point_1*m2_at_ref_point_2-m1_at_ref_point_2*m2_at_ref_point_1) & & /(m1_at_ref_point_1-m1_at_ref_point_2) endif f_t1%id = slices_t2(1)%id f_t1%deltax = slices_t2(1)%deltax if((slices_t2(1)%nx2.eq.1).or.(vmassm1orm2.eq.1))then vmass_xmin = slices_t2(1)%xmin1 vmass_xmax = slices_t2(1)%xmax1 vmass_sep = slices_t2(1)%sep1 f_t1%sep = slices_t2(1)%sep1*sepmultfactor else if(const_m2)stop 'problem in f_from_slices_t2 (3b)' vmass_xmin = slices_t2(1)%xmin2 vmass_xmax = slices_t2(1)%xmax2 vmass_sep = slices_t2(1)%sep2 f_t1%sep = slices_t2(1)%sep2*sepmultfactor endif call fill_blank_ft1_dat(f_t1,f_t1%sep,vmasslower,vmasshigher,vmass_xmin,vmass_xmax,vmass_sep,valueoutsidetable) do i=1,ubound(f_t1%dat,dim=1) vmass = dble(i-1)*f_t1%sep + f_t1%xmin if(slices_t2(1)%nx2.eq.1)then mass1 = vmass mass2 = slices_t2(1)%xmin2 else select case(vmassm1orm2) case(1) mass1 = vmass mass2 = mass1*line_grad+line_const case(2) mass2 = vmass if(const_m1)then mass1 = m1_at_ref_point_1 else mass1 = (mass2 - line_const)/line_grad endif case default stop 'problem in f_from_slices_t2 (4b)' end select endif if( vmass.lt.vmass_xmin-small )then f_t1%dat(i,1)=valueoutsidetable elseif( vmass.gt.vmass_xmax+small )then f_t1%dat(i,1)=valueoutsidetable elseif((slices_t2(1)%nx2.gt.1).and.( slices_t2(1)%needs_M2_gt_2M1 ).and.(2.0D0*mass1>mass2+small))then f_t1%dat(i,1)=valueoutsidetable elseif((slices_t2(1)%nx2.gt.1).and.(.not.(slices_t2(1)%needs_M2_gt_2M1)).and.(mass1>mass2+small))then f_t1%dat(i,1)=valueoutsidetable else call interpolate_slices_t2(mass1,mass2,z,slices_t2,datcomp,interpol) f_t1%dat(i,1)=interpol endif enddo endif !#2 endif !#1 end subroutine f_from_slices_t2 !****************************************************************** subroutine f_from_t3(t3,m1_at_ref_point_1,m2_at_ref_point_1,m1_at_ref_point_2,m2_at_ref_point_2,z, & & vmassm1orm2,vmasslower,vmasshigher,sepmultfactor,datcomp, & & f_t1,valueoutsidetable) !****************************************************************** ! fill the f_t1 array with the information from a t3 array at constant sf along a line ! m2 = line_grad*m1 + line_const ! do not forget to deallocate dat use S95tables_type3 use interpolate use usefulbits, only : small implicit none type(table3), intent(in) :: t3 type(table2) :: slices_t2(2) type(table1) :: f_t1 double precision, intent(in) :: m1_at_ref_point_1,m2_at_ref_point_1,m1_at_ref_point_2,m2_at_ref_point_2 double precision, intent(in) :: z,vmasslower,vmasshigher,valueoutsidetable double precision, intent(in) :: sepmultfactor integer, intent(in) :: datcomp,vmassm1orm2 integer :: a logical :: const_m1,const_m2 double precision :: vmass_xmin,vmass_xmax,vmass_sep integer :: ilow,c_zi(2),ftype_selection(1) double precision :: z_below,z_above if(vmasslower.gt.vmasshigher)then stop 'problem in f_from_t3 (1)' endif if(abs(m1_at_ref_point_1-m1_at_ref_point_2).lt.small)then const_m1=.True. else const_m1=.False. endif if(abs(m2_at_ref_point_1-m2_at_ref_point_2).lt.small)then const_m2=.True. else const_m2=.False. endif ! check if mass is within z range of table: if( .not. ( (z .ge. t3%zmin-small).and.(z .le. t3%zmax+small) ) )then !#1! written in convoluted way to get the NaNs f_t1%id = t3%id f_t1%deltax = t3%deltax if((t3%nx2.eq.1).or.(vmassm1orm2.eq.1))then if(const_m1)stop 'problem in f_from_t3 (1a)' vmass_xmin = t3%xmin1 vmass_sep = t3%sep1 f_t1%sep = t3%sep1*sepmultfactor else if(const_m2)stop 'problem in f_from_t3 (1b)' vmass_xmin = t3%xmin2 vmass_sep = t3%sep2 f_t1%sep = t3%sep2*sepmultfactor endif call fill_blank_ft1_dat(f_t1,f_t1%sep,vmasslower,vmasshigher,vmass_xmin,vmass_xmax,vmass_sep,valueoutsidetable) else !#1 ilow=int((z-t3%zmin)/t3%zsep)+1 z_below=dble(ilow-1)*t3%zsep+t3%zmin z_above=z_below+t3%zsep if(abs(z_below-z).lt.small)then !z is the same as z_below !#2 c_zi= ilow elseif(abs(z_above-z).lt.small)then !z is the same as z_above !#2 c_zi= ilow+1 else !#2 c_zi(1)= ilow c_zi(2)= ilow+1 endif !#2 ftype_selection(1)=datcomp call fill_slices_t2_from_slices_of_t3(t3,c_zi,ftype_selection,slices_t2) call f_from_slices_t2(slices_t2,m1_at_ref_point_1,m2_at_ref_point_1,m1_at_ref_point_2,m2_at_ref_point_2,z, & & vmassm1orm2,vmasslower,vmasshigher,sepmultfactor,datcomp, & & f_t1,valueoutsidetable) do a=1,2 deallocate(slices_t2(a)%dat) enddo endif !#1 end subroutine f_from_t3 !************************************************************ subroutine convolve_chisq_with_gaussian(t1,datcomp,sigma,mass,result) !************************************************************ ! intergrate exp(-t1%dat(xi,1)/2)*exp(-(massx-mass)^2/(2*sigma^2))/sqrt(2*pi*sigma^2) w.r.t. x ! between xlower and xhigher ! then do -2.0D0*log to get result ! negative data points are invalid. They are set to zero. use usefulbits, only : vsmall,vvsmall,pi !internal use interpolate use S95tables_type1 implicit none type(table1),intent(in) :: t1 integer,intent(in) :: datcomp double precision,intent(in) :: sigma,mass double precision,intent(out) :: result !-----------------------------------internal integer :: i,ilow,ihigh,j,divisions,n,ntot double precision :: runningtotal,massx,datvalue,newsep double precision,allocatable :: newdat(:) double precision :: big_number_instead_of_infinity double precision :: dati,datiplus1 !------------------------------------------- if((datcomp.lt.lbound(t1%dat,dim=2)).or.(datcomp.gt.ubound(t1%dat,dim=2)))then stop 'wrong datcomp inputted to subroutine convolve_with_gaussian' elseif(t1%nx.le.1)then stop 'wrong t1%nx inputted to subroutine convolve_with_gaussian (2)' elseif(sigma.le.vsmall)then stop 'wrong sigma inputted to subroutine convolve_with_gaussian' elseif(abs(t1%sep).le.vsmall)then stop 'wrong t1%sep inputted to subroutine convolve_with_gaussian' endif big_number_instead_of_infinity=1.0D5 divisions=5 !do i=1,t1%nx ! if(t1%dat(i,datcomp).ge.big_number_instead_of_infinity)t1%dat(i,datcomp)=1.0D20 !enddo n=0 if(minval(t1%dat(:,datcomp)).lt.1.0D4)then ilow = lbound(t1%dat,dim=1) ihigh = ubound(t1%dat,dim=1) if(ilow.eq.ihigh)stop 'problem in subroutine convolve_with_gaussian' newsep=t1%sep/dble(divisions) ntot=divisions*(ihigh-ilow)+1 allocate(newdat(ntot)) newdat=0.0D0 do i=ilow,ihigh dati=t1%dat(i,datcomp) if(dati.ge.0.0D0)then n=n+1 massx=dble(i-1)*t1%sep+t1%xmin datvalue=dati newdat(n)=exp(-datvalue/2.0D0) & & *exp(-(massx-mass)**2.0D0/(2.0D0*sigma**2.0D0))/sqrt(2.0D0*pi*sigma**2.0D0) if(i.lt.ihigh)then datiplus1=t1%dat(i+1,datcomp) if(datiplus1.ge.0.0D0)then do j=2,divisions-1 n=n+1 massx=dble(i-1)*t1%sep+t1%xmin + dble(j-1)*newsep !do a=1,ihigh ! write(*,*)a,dble(a-1)*t1%sep+t1%xmin ,t1%dat(a,datcomp) !enddo datvalue=dati +((datiplus1-dati)/t1%sep)*dble(j-1)*newsep if(datvalue.lt.0.0D0)then !these are invalid point or places outside range of table datvalue=0.0D0 endif newdat(n)=exp(-datvalue/2.0D0) & & *exp(-(massx-mass)**2.0D0/(2.0D0*sigma**2.0D0))/sqrt(2.0D0*pi*sigma**2.0D0) enddo else do j=2,divisions-1 n=n+1 enddo endif else !negative data points are invalid do j=2,divisions-1 n=n+1 enddo endif !massx=dble(i-1)*t1%sep+t1%xmin !newdat(i)=exp(-t1%dat(i,datcomp)/2.0D0) & ! & *exp(-(massx-mass)**2.0D0/(2.0D0*sigma**2.0D0))/sqrt(2.0D0*pi*sigma**2.0D0) else do j=1,divisions-1 n=n+1 enddo endif enddo !intergrate with trapezium rule runningtotal=0.5D0*(newdat(1)+newdat(ntot)) if((ntot).gt.1)then do n=2,ntot-1 runningtotal=runningtotal+newdat(n) enddo endif deallocate(newdat) if(abs(runningtotal).le.vvsmall)then result= big_number_instead_of_infinity else result= -2.0D0*log(runningtotal*newsep) endif if(result.gt.22.4D0)then !corresponds to clsb=1.0D-6, which is the lowest clsb that ppchi2 can take as input result= big_number_instead_of_infinity endif else result= big_number_instead_of_infinity endif end subroutine convolve_chisq_with_gaussian !************************************************************ function S95_t1_or_S95_t2_idfromelementnumber(ttype,tlist) !************************************************************ implicit none integer :: S95_t1_or_S95_t2_idfromelementnumber integer,intent(in) ::tlist integer,intent(in) ::ttype select case(ttype) case(1) S95_t1_or_S95_t2_idfromelementnumber=S95_t1(tlist)%id case(2) S95_t1_or_S95_t2_idfromelementnumber=S95_t2(tlist)%id case(9) S95_t1_or_S95_t2_idfromelementnumber=3316 case default stop 'wrong input to function S95_t1_or_S95_t2_idfromelementnumber' end select end function S95_t1_or_S95_t2_idfromelementnumber !************************************************************ function S95_t1_or_S95_t2_elementnumberfromid(ttype,id) !************************************************************ use S95tables_type1, only :t1elementnumberfromid use S95tables_type2, only :t2elementnumberfromid implicit none integer,intent(in) ::id integer,intent(in) ::ttype integer :: S95_t1_or_S95_t2_elementnumberfromid select case(ttype) case(1) S95_t1_or_S95_t2_elementnumberfromid= t1elementnumberfromid(S95_t1,id) case(2) S95_t1_or_S95_t2_elementnumberfromid= t2elementnumberfromid(S95_t2,id) case default stop 'problem with function S95_t1_or_S95_t2_elementnumberfromid' end select end function S95_t1_or_S95_t2_elementnumberfromid !************************************************************ subroutine deallocate_S95tables !************************************************************ implicit none !-----------------------------------internal integer x !------------------------------------------- do x=lbound(S95_t1,dim=1),ubound(S95_t1,dim=1) deallocate(S95_t1(x)%dat) enddo do x=lbound(S95_t2,dim=1),ubound(S95_t2,dim=1) deallocate(S95_t2(x)%dat) enddo deallocate(S95_t1) deallocate(S95_t2) call deallocate_Exptranges end subroutine deallocate_S95tables !*********************************************************** subroutine deallocate_Exptranges !*********************************************************** implicit none if(allocated(Exptrange_Mhmin_forSMXS)) deallocate(Exptrange_Mhmin_forSMXS) if(allocated(Exptrange_Mhmax_forSMXS)) deallocate(Exptrange_Mhmax_forSMXS) if(allocated(Exptrange_Mhmin_forSMdecays)) deallocate(Exptrange_Mhmin_forSMdecays) if(allocated(Exptrange_Mhmax_forSMdecays)) deallocate(Exptrange_Mhmax_forSMdecays) end subroutine deallocate_Exptranges !*********************************************************** end module S95tables !************************************************************ Index: trunk/HiggsBounds-5/Expt_tables/ATLtables/4873_Atlas_X-HH-gagabb_13TeV_36.1fb-1.txt =================================================================== --- trunk/HiggsBounds-5/Expt_tables/ATLtables/4873_Atlas_X-HH-gagabb_13TeV_36.1fb-1.txt (revision 0) +++ trunk/HiggsBounds-5/Expt_tables/ATLtables/4873_Atlas_X-HH-gagabb_13TeV_36.1fb-1.txt (revision 586) @@ -0,0 +1,80 @@ +# ATLAS, arXiv: 1807.04873, July 2018, taken from Fig. 7 +# 4873_Atlas_X-HH-gagabb_13TeV_36.1fb-1.txt +# +# MX obs exp [on sigma_X x BR(X->HH) in pb] + + 260.0 1.143 0.8378 + 270.0 0.7841 0.8887 + 280.0 0.7516 0.8972 + 290.0 0.9989 0.8943 + 300.0 0.9721 0.8541 + 310.0 0.8576 0.8138 + 320.0 0.4931 0.7728 + 330.0 0.4352 0.7319 + 340.0 0.4634 0.7022 + 350.0 0.5058 0.6909 + 360.0 0.4931 0.6641 + 370.0 0.4973 0.6337 + 380.0 0.4973 0.6033 + 390.0 0.6019 0.5765 + 400.0 0.6626 0.5609 + 410.0 0.6626 0.5298 + 420.0 0.6231 0.5115 + 430.0 0.6273 0.4931 + 440.0 0.5694 0.4747 + 450.0 0.4648 0.4549 + 460.0 0.4719 0.4352 + 470.0 0.5609 0.4154 + 480.0 0.6075 0.3984 + 490.0 0.6089 0.3801 + 500.0 0.4451 0.4140 + 510.0 0.4083 0.3928 + 520.0 0.3716 0.3716 + 530.0 0.3179 0.3504 + 540.0 0.2642 0.3292 + 550.0 0.2607 0.3080 + 560.0 0.2571 0.2868 + 570.0 0.2564 0.2812 + 580.0 0.2557 0.2755 + 590.0 0.2416 0.2699 + 600.0 0.2275 0.2642 + 610.0 0.2296 0.2555 + 620.0 0.2317 0.2468 + 630.0 0.2197 0.2381 + 640.0 0.2077 0.2294 + 650.0 0.2020 0.2206 + 660.0 0.1964 0.2119 + 670.0 0.2070 0.2080 + 680.0 0.2176 0.2042 + 690.0 0.2063 0.2003 + 700.0 0.1950 0.1964 + 710.0 0.2042 0.1945 + 720.0 0.2133 0.1926 + 730.0 0.2042 0.1907 + 740.0 0.1950 0.1889 + 750.0 0.1844 0.1870 + 760.0 0.1738 0.1851 + 770.0 0.1660 0.1833 + 780.0 0.1582 0.1816 + 790.0 0.1618 0.1798 + 800.0 0.1653 0.1780 + 810.0 0.1724 0.1763 + 820.0 0.1794 0.1745 + 830.0 0.1823 0.1727 + 840.0 0.1851 0.1710 + 850.0 0.1801 0.1697 + 860.0 0.1752 0.1685 + 870.0 0.1794 0.1672 + 880.0 0.1837 0.1660 + 890.0 0.1858 0.1648 + 900.0 0.1879 0.1635 + 910.0 0.1872 0.1623 + 920.0 0.1865 0.1611 + 930.0 0.1801 0.1602 + 940.0 0.1738 0.1593 + 950.0 0.1625 0.1584 + 960.0 0.1512 0.1575 + 970.0 0.1420 0.1567 + 980.0 0.1328 0.1558 + 990.0 0.1279 0.1549 + 1000. 0.1229 0.1540 Index: trunk/HiggsBounds-5/Expt_tables/CMStables/17030_CMS_pp-X-HH_comb_13TeV_35.9fb-1.txt =================================================================== --- trunk/HiggsBounds-5/Expt_tables/CMStables/17030_CMS_pp-X-HH_comb_13TeV_35.9fb-1.txt (revision 0) +++ trunk/HiggsBounds-5/Expt_tables/CMStables/17030_CMS_pp-X-HH_comb_13TeV_35.9fb-1.txt (revision 586) @@ -0,0 +1,279 @@ +# CMS-PAS-HIG-17-030, July 2018, data taken from Fig. 3 +# combines gaga, tautau, bb and VV final states, assuming SM Higgs BRs. +# 17030_CMS_pp-X-HH_comb_13TeV_35.9fb-1.txt +# MX obs exp (in fb) + + 270.0 1294. 752.7 + 280.0 1630. 801.0 + 290.0 1428. 793.9 + 300.0 1227. 759.4 + 310.0 1076. 695.1 + 320.0 925.7 630.8 + 330.0 775.2 566.5 + 340.0 624.8 519.8 + 350.0 474.4 473.1 + 360.0 442.0 426.4 + 370.0 409.6 398.7 + 380.0 377.3 370.9 + 390.0 344.9 343.1 + 400.0 312.5 315.3 + 410.0 323.4 301.4 + 420.0 334.2 287.6 + 430.0 345.0 273.7 + 440.0 355.9 259.8 + 450.0 366.7 245.9 + 460.0 314.9 230.3 + 470.0 263.1 214.7 + 480.0 211.3 199.1 + 490.0 159.5 183.5 + 500.0 107.7 167.9 + 510.0 116.9 162.4 + 520.0 126.1 157.0 + 530.0 135.3 151.5 + 540.0 144.4 146.0 + 550.0 153.6 140.6 + 560.0 142.4 130.0 + 570.0 131.2 119.5 + 580.0 120.1 108.9 + 590.0 108.9 98.36 + 600.0 97.68 87.81 + 610.0 92.59 83.95 + 620.0 87.50 80.08 + 630.0 82.41 76.21 + 640.0 77.32 72.35 + 650.0 72.23 68.48 + 660.0 72.04 66.99 + 670.0 71.85 65.50 + 680.0 71.66 64.00 + 690.0 71.47 62.51 + 700.0 71.28 61.02 + 710.0 71.09 59.79 + 720.0 70.90 58.55 + 730.0 70.71 57.32 + 740.0 70.52 56.09 + 750.0 70.33 54.85 + 760.0 69.17 53.48 + 770.0 68.01 52.12 + 780.0 66.85 50.75 + 790.0 65.69 49.38 + 800.0 64.53 48.01 + 810.0 63.37 46.89 + 820.0 62.22 45.77 + 830.0 61.06 44.65 + 840.0 59.90 43.52 + 850.0 58.74 42.40 + 860.0 57.58 41.28 + 870.0 56.42 40.15 + 880.0 55.26 39.03 + 890.0 54.10 37.91 + 900.0 52.94 36.79 + 910.0 51.10 36.69 + 920.0 49.26 36.59 + 930.0 47.43 36.50 + 940.0 45.59 36.40 + 950.0 43.75 36.30 + 960.0 41.92 36.21 + 970.0 40.08 36.11 + 980.0 38.24 36.01 + 990.0 36.41 35.92 + 1000. 34.57 35.82 + 1010. 34.40 35.30 + 1020. 34.22 34.77 + 1030. 34.05 34.25 + 1040. 33.87 33.72 + 1050. 33.70 33.20 + 1060. 33.52 32.67 + 1070. 33.35 32.15 + 1080. 33.17 31.63 + 1090. 33.00 31.10 + 1100. 32.82 30.58 + 1110. 32.65 30.05 + 1120. 32.47 29.53 + 1130. 32.30 29.01 + 1140. 32.12 28.48 + 1150. 31.95 27.96 + 1160. 31.78 27.43 + 1170. 31.60 26.91 + 1180. 31.43 26.39 + 1190. 31.25 25.86 + 1200. 31.08 25.34 + 1210. 30.23 24.83 + 1220. 29.39 24.32 + 1230. 28.55 23.81 + 1240. 27.71 23.30 + 1250. 26.86 22.79 + 1260. 26.02 22.28 + 1270. 25.18 21.77 + 1280. 24.34 21.26 + 1290. 23.49 20.75 + 1300. 22.65 20.24 + 1310. 21.81 19.73 + 1320. 20.97 19.22 + 1330. 20.12 18.71 + 1340. 19.28 18.20 + 1350. 18.44 17.69 + 1360. 17.60 17.18 + 1370. 16.75 16.67 + 1380. 15.91 16.16 + 1390. 15.07 15.65 + 1400. 14.23 15.14 + 1410. 14.09 15.01 + 1420. 13.94 14.88 + 1430. 13.80 14.75 + 1440. 13.66 14.62 + 1450. 13.52 14.49 + 1460. 13.38 14.36 + 1470. 13.24 14.23 + 1480. 13.09 14.10 + 1490. 12.95 13.97 + 1500. 12.81 13.84 + 1510. 12.67 13.70 + 1520. 12.53 13.57 + 1530. 12.39 13.44 + 1540. 12.25 13.31 + 1550. 12.10 13.18 + 1560. 11.96 13.05 + 1570. 11.82 12.92 + 1580. 11.68 12.79 + 1590. 11.54 12.66 + 1600. 11.40 12.53 + 1610. 11.23 12.40 + 1620. 11.06 12.27 + 1630. 10.88 12.14 + 1640. 10.71 12.01 + 1650. 10.54 11.88 + 1660. 10.37 11.75 + 1670. 10.20 11.62 + 1680. 10.03 11.49 + 1690. 9.863 11.36 + 1700. 9.693 11.23 + 1710. 9.522 11.09 + 1720. 9.352 10.96 + 1730. 9.182 10.83 + 1740. 9.011 10.70 + 1750. 8.841 10.57 + 1760. 8.671 10.44 + 1770. 8.500 10.31 + 1780. 8.330 10.18 + 1790. 8.160 10.05 + 1800. 7.989 9.920 + 1810. 8.067 9.790 + 1820. 8.145 9.659 + 1830. 8.223 9.529 + 1840. 8.301 9.398 + 1850. 8.379 9.268 + 1860. 8.457 9.138 + 1870. 8.535 9.007 + 1880. 8.613 8.877 + 1890. 8.691 8.746 + 1900. 8.769 8.616 + 1910. 8.847 8.485 + 1920. 8.925 8.355 + 1930. 9.003 8.224 + 1940. 9.081 8.094 + 1950. 9.159 7.963 + 1960. 9.237 7.833 + 1970. 9.315 7.702 + 1980. 9.393 7.572 + 1990. 9.471 7.441 + 2000. 9.549 7.182 + 2010. 9.627 7.148 + 2020. 9.536 7.114 + 2030. 9.445 7.080 + 2040. 9.354 7.046 + 2050. 9.263 7.012 + 2060. 9.172 6.978 + 2070. 9.081 6.945 + 2080. 8.990 6.911 + 2090. 8.899 6.877 + 2100. 8.808 6.843 + 2110. 8.718 6.809 + 2120. 8.627 6.775 + 2130. 8.536 6.741 + 2140. 8.445 6.707 + 2150. 8.354 6.673 + 2160. 8.263 6.639 + 2170. 8.172 6.605 + 2180. 8.081 6.571 + 2190. 7.990 6.538 + 2200. 7.899 6.504 + 2210. 7.808 6.470 + 2220. 7.717 6.436 + 2230. 7.626 6.402 + 2240. 7.535 6.368 + 2250. 7.444 6.334 + 2260. 7.354 6.300 + 2270. 7.263 6.266 + 2280. 7.172 6.232 + 2290. 7.081 6.198 + 2300. 6.990 6.164 + 2310. 6.899 6.130 + 2320. 6.808 6.097 + 2330. 6.717 6.063 + 2340. 6.626 6.029 + 2350. 6.535 5.995 + 2360. 6.444 5.961 + 2370. 6.353 5.927 + 2380. 6.262 5.893 + 2390. 6.171 5.859 + 2400. 6.080 5.825 + 2410. 5.990 5.791 + 2420. 5.899 5.757 + 2430. 5.808 5.723 + 2440. 5.717 5.689 + 2450. 5.626 5.656 + 2460. 5.535 5.622 + 2470. 5.444 5.588 + 2480. 5.353 5.554 + 2490. 5.262 5.520 + 2500. 5.171 5.486 + 2510. 5.136 5.452 + 2520. 5.101 5.418 + 2530. 5.065 5.384 + 2540. 5.030 5.350 + 2550. 4.995 5.316 + 2560. 4.959 5.282 + 2570. 4.924 5.248 + 2580. 4.889 5.215 + 2590. 4.854 5.181 + 2600. 4.818 5.147 + 2610. 4.783 5.113 + 2620. 4.748 5.079 + 2630. 4.712 5.045 + 2640. 4.677 5.011 + 2650. 4.642 4.977 + 2660. 4.607 4.943 + 2670. 4.571 4.909 + 2680. 4.536 4.875 + 2690. 4.501 4.841 + 2700. 4.465 4.808 + 2710. 4.430 4.774 + 2720. 4.395 4.740 + 2730. 4.360 4.706 + 2740. 4.324 4.672 + 2750. 4.289 4.638 + 2760. 4.254 4.604 + 2770. 4.218 4.570 + 2780. 4.183 4.536 + 2790. 4.148 4.502 + 2800. 4.113 4.468 + 2810. 4.077 4.434 + 2820. 4.042 4.400 + 2830. 4.007 4.367 + 2840. 3.972 4.333 + 2850. 3.936 4.299 + 2860. 3.901 4.265 + 2870. 3.866 4.231 + 2880. 3.830 4.197 + 2890. 3.795 4.163 + 2900. 3.760 4.129 + 2910. 3.725 4.095 + 2920. 3.689 4.061 + 2930. 3.654 4.027 + 2940. 3.619 3.993 + 2950. 3.583 3.959 + 2960. 3.548 3.926 + 2970. 3.513 3.892 + 2980. 3.478 3.858 + 2990. 3.442 3.824 + 3000. 3.407 3.790 Index: trunk/HiggsBounds-5/S95tables_type1.F90 =================================================================== --- trunk/HiggsBounds-5/S95tables_type1.F90 (revision 585) +++ trunk/HiggsBounds-5/S95tables_type1.F90 (revision 586) @@ -1,5394 +1,5424 @@ ! This file is part of HiggsBounds ! -KW !****************************************************************** module S95tables_type1 !****************************************************************** implicit none !table type 1----------------------------- type table1 integer :: id,nx,particle_x !see usefulbits.f90 for key to particle codes n.b. they're NOT pdg character(LEN=45) :: label character(LEN=100) :: desc character(LEN=3) :: expt double precision :: lumi, energy double precision :: xmax,xmin,sep,deltax integer :: SMlike integer :: llh double precision, allocatable :: dat(:,:) !in dat(a,b), a=row, b=1,2 for obs,pred end type !------------------------------------------ integer,parameter :: file_id_1=10 !same as file_id_common in usefulbits.f90 contains !************************************************************ subroutine initializetables_type1_blank(tablet1) !*********************************************************** ! still leaves dat unallocated integer:: i type(table1) :: tablet1(:) do i=lbound(tablet1,dim=1),ubound(tablet1,dim=1) tablet1(i)%id = -1 tablet1(i)%nx = -1 tablet1(i)%particle_x = -1 tablet1(i)%label = '' tablet1(i)%desc = '' tablet1(i)%expt = '' tablet1(i)%lumi = -1.0D0 tablet1(i)%energy = -1.0D0 tablet1(i)%xmax = -1.0D0 tablet1(i)%xmin = -1.0D0 tablet1(i)%sep = -1.0D0 tablet1(i)%deltax = -1.0D0 tablet1(i)%SMlike = 0 tablet1(i)%llh = 0 enddo end subroutine initializetables_type1_blank !************************************************************ subroutine copy_type1(tablet1_orig,tablet1_copy) !*********************************************************** ! note tablet1_1,tablet1_2 are not arrays ! still leaves dat uncopied type(table1) :: tablet1_orig type(table1) :: tablet1_copy tablet1_copy%id = tablet1_orig%id tablet1_copy%nx = tablet1_orig%nx tablet1_copy%particle_x = tablet1_orig%particle_x tablet1_copy%label = tablet1_orig%label tablet1_copy%expt = tablet1_orig%expt tablet1_copy%xmax = tablet1_orig%xmax tablet1_copy%xmin = tablet1_orig%xmin tablet1_copy%sep = tablet1_orig%sep tablet1_copy%deltax = tablet1_orig%deltax end subroutine copy_type1 !*********************************************************** function t1elementnumberfromid(t1,id) !--------------------------------------input type(table1), intent(in) :: t1(:) integer, intent(in) :: id !-----------------------------------function integer :: t1elementnumberfromid !-----------------------------------internal integer :: n,x !------------------------------------------- n=0 do x=lbound(t1,dim=1),ubound(t1,dim=1) if(t1(x)%id.eq.id)then n=n+1 t1elementnumberfromid=x endif enddo if(n.ne.1)stop 'problem in function t3elementnumberfromid 1' end function t1elementnumberfromid !************************************************************ subroutine initializetables1(S95_t1) !*********************************************************** ! fills S95_t1 !*********************************************************** use store_pathname use usefulbits, only: Hneut,Hplus,file_id_common2 implicit none !--------------------------------------input type(table1) :: S95_t1(:) !-----------------------------------internal logical :: newtables integer :: x,xbeg,xend character(len=100),allocatable :: filename(:) character(LEN=pathname_length+150) :: fullfilename integer :: col integer :: ios !------------------------------------------- xbeg=lbound(S95_t1,dim=1) xend=ubound(S95_t1,dim=1) allocate(filename(xbeg:xend)) x=xbeg-1 !instead, could read in the values of xmin,xmax,sep from the !files, but it's kinda nice having them all here to refer to newtables=.True. ! i.e. use the recommended LEP single Higgs tables if(newtables)then x=x+1 S95_t1(x)%id=142 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='LEP' S95_t1(x)%label='hep-ex/0602042, table 14b (LEP)' ! table 14b S95_t1(x)%energy=0.208D0 S95_t1(x)%xmin=12.0D0 S95_t1(x)%xmax=120.0D0 S95_t1(x)%sep=0.5D0 filename(x)='lep210_hbb' x=x+1 S95_t1(x)%id=143 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='LEP' S95_t1(x)%label='hep-ex/0602042, table 14c (LEP)' ! table 14c S95_t1(x)%energy=0.208D0 S95_t1(x)%xmin=4.0D0 S95_t1(x)%xmax=120.0D0 S95_t1(x)%sep=0.5D0 filename(x)='lep210_htt_interpol' else write(*,*)'WARNING: using old LEP tables' x=x+1 S95_t1(x)%id=142 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='LEP' S95_t1(x)%label='LEP table 14b' ! table 14b S95_t1(x)%energy=0.208D0 S95_t1(x)%xmin=1.0D0 S95_t1(x)%xmax=140.0D0 S95_t1(x)%sep=0.1D0 filename(x)='old-s95_h2z_bbz' x=x+1 S95_t1(x)%id=143 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='LEP' S95_t1(x)%label='LEP table 14c' ! table 14c S95_t1(x)%energy=0.208D0 S95_t1(x)%xmin=1.0D0 S95_t1(x)%xmax=140.0D0 S95_t1(x)%sep=0.1D0 filename(x)='old-s95_h2z_ttz' endif x=x+1 S95_t1(x)%id=300 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='LEP' S95_t1(x)%label='hep-ex/0206022 (OPAL)' S95_t1(x)%energy=0.208D0 S95_t1(x)%xmin=1.0D0 S95_t1(x)%xmax=100.0D0 S95_t1(x)%sep=1.0D0 filename(x)='lep_decaymodeindep' x=x+1 S95_t1(x)%id=400 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='LEP' S95_t1(x)%label='hep-ex/0107032v1 (LEP)' S95_t1(x)%energy=0.208D0 S95_t1(x)%xmin=90.0D0 S95_t1(x)%xmax=118.0D0 S95_t1(x)%sep=1.0D0 filename(x)='LEP_h-invisible' x=x+1 S95_t1(x)%id=500 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='LEP' S95_t1(x)%label='LHWG Note 2002-02' S95_t1(x)%energy=0.208D0 S95_t1(x)%xmin=20.0D0 S95_t1(x)%xmax=116.0D0 S95_t1(x)%sep=2.0D0 filename(x)='LEP_h-gammagamma' x=x+1 S95_t1(x)%id=600 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='LEP' S95_t1(x)%label='LHWG (unpublished)'!uses hep-ex/0510022,hep-ex/0205055,hep-ex/0312042,hep-ex/0408097 S95_t1(x)%energy=0.208D0 S95_t1(x)%xmin=20.0D0 S95_t1(x)%xmax=128.6D0 S95_t1(x)%sep=0.1D0 filename(x)='LEP_h-2jets' x=x+1 S95_t1(x)%id=601 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='LEP' S95_t1(x)%label='hep-ex/0107034 (LHWG)'!uses hep-ex/0510022,hep-ex/0205055,hep-ex/0312042,hep-ex/0408097 S95_t1(x)%energy=0.208D0 S95_t1(x)%xmin=60.0D0 S95_t1(x)%xmax=114.5D0 S95_t1(x)%sep=0.1D0 filename(x)='LEP_h-2jets_0107034' x=x+1 S95_t1(x)%id=711 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='LEP' S95_t1(x)%label='hep-ex/0410017 (DELPHI)' S95_t1(x)%energy=0.208D0 S95_t1(x)%xmin=12.0D0 S95_t1(x)%xmax=50.0D0 S95_t1(x)%sep=1.0D0 filename(x)='Delphi_yuk_h_bbbb' x=x+1 S95_t1(x)%id=713 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='LEP' S95_t1(x)%label='hep-ex/0410017 (DELPHI)' S95_t1(x)%energy=0.208D0 S95_t1(x)%xmin=12.0D0 S95_t1(x)%xmax=50.0D0 S95_t1(x)%sep=1.0D0 filename(x)='Delphi_yuk_a_bbbb' x=x+1 S95_t1(x)%id=721 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='LEP' S95_t1(x)%label='hep-ex/0410017 (DELPHI)' S95_t1(x)%energy=0.208D0 S95_t1(x)%xmin=4.0D0 S95_t1(x)%xmax=50.0D0 S95_t1(x)%sep=1.0D0 filename(x)='Delphi_yuk_h_bbtautau' x=x+1 S95_t1(x)%id=741 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='LEP' S95_t1(x)%label='hep-ex/0111010 (OPAL)' S95_t1(x)%energy=0.208D0 S95_t1(x)%xmin=4.0D0 S95_t1(x)%xmax=12.0D0 S95_t1(x)%sep=1.0D0 filename(x)='OPAL_yuk_h_bbtautau' x=x+1 S95_t1(x)%id=723 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='LEP' S95_t1(x)%label='hep-ex/0410017 (DELPHI)' S95_t1(x)%energy=0.208D0 S95_t1(x)%xmin=4.0D0 S95_t1(x)%xmax=50.0D0 S95_t1(x)%sep=1.0D0 filename(x)='Delphi_yuk_a_bbtautau' x=x+1 S95_t1(x)%id=743 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='LEP' S95_t1(x)%label='hep-ex/0111010 (OPAL)' S95_t1(x)%energy=0.208D0 S95_t1(x)%xmin=4.0D0 S95_t1(x)%xmax=12.0D0 S95_t1(x)%sep=1.0D0 filename(x)='OPAL_yuk_a_bbtautau' x=x+1 S95_t1(x)%id=731 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='LEP' S95_t1(x)%label='hep-ex/0410017 (DELPHI)' S95_t1(x)%energy=0.208D0 S95_t1(x)%xmin=4.0D0 S95_t1(x)%xmax=27.0D0 S95_t1(x)%sep=1.0D0 filename(x)='Delphi_yuk_h_tautautautau' x=x+1 S95_t1(x)%id=733 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='LEP' S95_t1(x)%label='hep-ex/0410017 (DELPHI)' S95_t1(x)%energy=0.208D0 S95_t1(x)%xmin=4.0D0 S95_t1(x)%xmax=26.0D0 S95_t1(x)%sep=1.0D0 filename(x)='Delphi_yuk_a_tautautautau' x=x+1 S95_t1(x)%id=402 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='LEP' S95_t1(x)%label='hep-ex/0401022 (Delphi)' S95_t1(x)%energy=0.208D0 S95_t1(x)%xmin=40.0D0 S95_t1(x)%xmax=114.0D0 S95_t1(x)%sep=2.0D0 filename(x)='Delphi_h-invisible' x=x+1 S95_t1(x)%id=403 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='LEP' S95_t1(x)%label='hep-ex/0501033 (L3)' S95_t1(x)%energy=0.208D0 S95_t1(x)%xmin=50.0D0 S95_t1(x)%xmax=110.0D0 S95_t1(x)%sep=5.0D0 filename(x)='L3_h-invisible' x=x+1 S95_t1(x)%id=401 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='LEP' S95_t1(x)%label='[hep-ex] arXiv:0707.0373 (OPAL)' S95_t1(x)%energy=0.208D0 S95_t1(x)%xmin=5.0D0 S95_t1(x)%xmax=115.0D0 S95_t1(x)%sep=5.0D0 filename(x)='OPAL_h-invisible' !x=x+1 !S95_t1(x)%id=803 !S95_t1(x)%particle_x=Hplus !S95_t1(x)%expt='LEP' !S95_t1(x)%label='[hep-ex] arxiv:0812.0267 (OPAL)' !S95_t1(x)%xmin=50.0D0 !S95_t1(x)%xmax=93.0D0 !S95_t1(x)%sep=1.0D0 !filename(x)='OPAL_HpHm_taunutaunu' !x=x+1 !S95_t1(x)%id=802 !S95_t1(x)%particle_x=Hplus !S95_t1(x)%expt='LEP' !S95_t1(x)%label='[hep-ex] arxiv:0812.0267 (OPAL)' !S95_t1(x)%xmin=50.0D0 !S95_t1(x)%xmax=93.0D0 !S95_t1(x)%sep=1.0D0 !filename(x)='OPAL_HpHm_qqtaunu' !x=x+1 !S95_t1(x)%id=801 !S95_t1(x)%particle_x=Hplus !S95_t1(x)%expt='LEP' !S95_t1(x)%label='[hep-ex] arxiv:0812.0267 (OPAL)' !S95_t1(x)%xmin=50.0D0 !S95_t1(x)%xmax=93.0D0 !S95_t1(x)%sep=1.0D0 !filename(x)='OPAL_HpHm_qqqq' x=x+1 S95_t1(x)%id=821 S95_t1(x)%particle_x=Hplus S95_t1(x)%expt='LEP' S95_t1(x)%label='hep-ex/0107031 (LHWG)' S95_t1(x)%energy=0.208D0 S95_t1(x)%xmin=60.0D0 S95_t1(x)%xmax=90.0D0 S95_t1(x)%sep=1.0D0 filename(x)='LEP_HpHm_qqqq' x=x+1 S95_t1(x)%id=811 S95_t1(x)%particle_x=Hplus S95_t1(x)%expt='LEP' S95_t1(x)%label='hep-ex/0404012 (Delphi)' S95_t1(x)%energy=0.208D0 S95_t1(x)%xmin=52.0D0 S95_t1(x)%xmax=94.0D0 S95_t1(x)%sep=2.0D0 filename(x)='Delphi_HpHm_qqqq' x=x+1 S95_t1(x)%id=813 S95_t1(x)%particle_x=Hplus S95_t1(x)%expt='LEP' S95_t1(x)%label='hep-ex/0404012 (Delphi)' S95_t1(x)%energy=0.208D0 S95_t1(x)%xmin=52.0D0 S95_t1(x)%xmax=94.0D0 S95_t1(x)%sep=2.0D0 filename(x)='Delphi_HpHm_taunutaunu' !----------------------- Z H -> l l b b ------------------------- ! x=x+1 ! S95_t1(x)%id=10235 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CDF' ! S95_t1(x)%label='CDF Note 10235' ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=5.7D0 ! S95_t1(x)%xmin=100.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=5.0D0 ! filename(x)='CDF_ZH_llbb_5.7fb_10235' ! ! x=x+1 ! S95_t1(x)%id=3047 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CDF' ! S95_t1(x)%label='[hep-ex] arXiv:1009.3047 (CDF)' ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=4.1D0 ! S95_t1(x)%xmin=100.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=5.0D0 ! filename(x)='CDF_ZH_llbb_4.1fb_3047' x=x+1 S95_t1(x)%id=10799 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CDF' S95_t1(x)%label='CDF Note 10799' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=9.45D0 S95_t1(x)%xmin=90.0D0 S95_t1(x)%xmax=150.0D0 S95_t1(x)%sep=5.0D0 filename(x)='CDF_ZH_llbb_9.45fb_10799' ! x=x+1 ! S95_t1(x)%id=6166 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='D0 Note 6166' ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=8.6D0 ! S95_t1(x)%xmin=100.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=5.0D0 ! filename(x)='D0_ZH_llbb_8.6fb_6166' x=x+1 S95_t1(x)%id=6296 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt=' D0' S95_t1(x)%label='D0 Note 6296' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=9.7D0 S95_t1(x)%xmin=100.0D0 S95_t1(x)%xmax=150.0D0 S95_t1(x)%sep=5.0D0 filename(x)='D0_ZH_llbb_9.7fb_6296' !x=x+1 !S95_t1(x)%id=6089 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt=' D0' !S95_t1(x)%label='D0 Note 6089' !S95_t1(x)%xmin=100.0D0 !S95_t1(x)%xmax=150.0D0 !S95_t1(x)%sep=5.0D0 !filename(x)='D0_ZH_llbb_6.2fb_6089' x=x+1 S95_t1(x)%id=3564 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt=' D0' S95_t1(x)%label='[hep-ex] arXiv:1008.3564 (D0)' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=4.2D0 S95_t1(x)%xmin=100.0D0 S95_t1(x)%xmax=150.0D0 S95_t1(x)%sep=5.0D0 filename(x)='D0_ZH_llbb_4.2fb_3564' !x=x+1 !S95_t1(x)%id=10212 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='CDF Note 10212' !S95_t1(x)%xmin=100.0D0 !S95_t1(x)%xmax=150.0D0 !S95_t1(x)%sep=5.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='CDF_VH_Metbb_5.7fb_10212' ! x=x+1 ! S95_t1(x)%id=6087 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='D0 Note 6087' ! S95_t1(x)%xmin=100.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='D0_VH_bb_6.4fb_6087' ! x=x+1 ! S95_t1(x)%id=2012015 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='ATL' ! S95_t1(x)%label='ATLAS-CONF-2012-015' ! S95_t1(x)%energy=7.0D0 ! S95_t1(x)%lumi=4.7D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=130.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='2012015_Atlas_VH_bb_ll_lnu_nunu_4.7fb-1' !----------------------- V H -> b b Etmiss ------------------------- ! x=x+1 ! S95_t1(x)%id=10583 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CDF' ! S95_t1(x)%label='CDF Note 10583' ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=7.8D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=100.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='CDF_VH_Metbb_7.8fb_10583' ! x=x+1 ! S95_t1(x)%id=6223 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='D0 Note 6223' ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=8.4D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=100.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='D0_VH_bb_8.4fb_6223' ! x=x+1 ! S95_t1(x)%id=3935 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CDF' ! S95_t1(x)%label='[hep-ex] arXiv:0911.3935v4 (CDF)' ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=2.1D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='CDF_VH_Metbb_2.1fb_3935_interpol' ! ! x=x+1 ! S95_t1(x)%id=5285 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='[hep-ex] arXiv:0912.5285 (D0)' ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=5.2D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=100.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='D0_VH_bb_5.2fb_5285' !x=x+1 !S95_t1(x)%id=6092 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt=' D0' !S95_t1(x)%label='D0 Note 6092'!this is what the note says, but the website says 6082 !S95_t1(x)%xmin=100.0D0 !S95_t1(x)%xmax=150.0D0 !S95_t1(x)%sep=5.0D0 !filename(x)='D0_WH_lnubb_5.3fb_6092' ! x=x+1 ! S95_t1(x)%id=10596 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CDF' ! S95_t1(x)%label='CDF Note 10596' ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=7.5D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=100.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='CDF_VH_lnubb_7.5fb_10596' ! x=x+1 ! S95_t1(x)%id=2011103 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='ATL' ! S95_t1(x)%label='ATLAS-CONF-2011-103' ! S95_t1(x)%energy=7.0D0 ! S95_t1(x)%lumi=1.04D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=130.0D0 ! S95_t1(x)%sep=1.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='2011103_Atlas_VH_Vbb_1.04fb-1' x=x+1 S95_t1(x)%id=10798 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CDF' S95_t1(x)%label='CDF Note 10798' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=9.45D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=90.0D0 S95_t1(x)%xmax=150.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='CDF_VH_Metbb_9.45fb_10798' x=x+1 S95_t1(x)%id=6299 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt=' D0' S95_t1(x)%label='D0 Note 6299' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=9.5D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=100.0D0 S95_t1(x)%xmax=150.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='D0_VH_bb_9.5fb_6299' x=x+1 S95_t1(x)%id=2012161 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2012-161' S95_t1(x)%energy=7.0D0 S95_t1(x)%lumi=17.7D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=130.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='2012161_Atlas_VH-Vbb_17.7fb-1' ! x=x+1 ! S95_t1(x)%id=11031 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-031' ! S95_t1(x)%energy=7.0D0 ! S95_t1(x)%lumi=4.7D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=135.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='11031_CMS_VH-bb_BDT_4.7fb-1' ! x=x+1 ! S95_t1(x)%id=12044 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-12-044' ! S95_t1(x)%energy=8.0D0 ! S95_t1(x)%lumi=17.1D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=135.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='12044_CMS_VH_Vbb_17.1fb-1' ! x=x+1 S95_t1(x)%id=13012 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG-13-012' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=24.D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=135.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='13012_CMS_VH_bb_24fb-1' !----------------------- VBF(H), H -> b b ------------------------- x=x+1 S95_t1(x)%id=13011 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG-13-011' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=19.D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=115.0D0 S95_t1(x)%xmax=135.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='13011_CMS_VBF_bb_19fb-1' !----------------------- W H -> b b ------------------------- ! x=x+1 ! S95_t1(x)%id=6220 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='D0 Note 6220' ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=8.5D0 ! S95_t1(x)%xmin=100.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=5.0D0 ! filename(x)='D0_WH_lnubb_8.5fb_6220' x=x+1 S95_t1(x)%id=6309 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt=' D0' S95_t1(x)%label='D0 Note 6309' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=9.6D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=100.0D0 S95_t1(x)%xmax=150.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='D0_WH_lnubb_9.7_6309' ! x=x+1 ! S95_t1(x)%id=10239 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CDF' ! S95_t1(x)%label='CDF Note 10239' ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=5.7D0 ! S95_t1(x)%xmin=100.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=5.0D0 ! filename(x)='CDF_WH_lnubb_5.7fb_10239' x=x+1 S95_t1(x)%id=10796 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CDF' S95_t1(x)%label='CDF Note 10796' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=9.45D0 S95_t1(x)%xmin=90.0D0 S95_t1(x)%xmax=150.0D0 S95_t1(x)%sep=5.0D0 filename(x)='CDF_WH_lnubb_9.45fb_10796' x=x+1 S95_t1(x)%id=0874 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt=' D0' S95_t1(x)%label='[hep-ex] arXiv:1012.0874 (D0)' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=5.3D0 S95_t1(x)%xmin=100.0D0 S95_t1(x)%xmax=150.0D0 S95_t1(x)%sep=5.0D0 filename(x)='D0_WH_lnubb_5.3fb_0874' x=x+1 S95_t1(x)%id=5613 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CDF' S95_t1(x)%label='[hep-ex] arXiv:0906.5613 (CDF)' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=2.7D0 S95_t1(x)%xmin=100.0D0 S95_t1(x)%xmax=150.0D0 S95_t1(x)%sep=5.0D0 filename(x)='CDF_WH_lnubb_2.7fb_5613' !----------------------- V H, H -> invisible ------------------------- ! x=x+1 ! S95_t1(x)%id=2013011 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='ATL' ! S95_t1(x)%label='ATLAS-CONF-2013-011' ! S95_t1(x)%energy=8.0D0 ! S95_t1(x)%lumi=17.7D0 ! S95_t1(x)%xmin=115.0D0 ! S95_t1(x)%xmax=300.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='2013011_Atlas_H-inv_17.7fb-1' x=x+1 S95_t1(x)%id=3244 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='[hep-ex] arXiv:1402.3244 (ATLAS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=24.8D0 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=400.0D0 S95_t1(x)%sep=0.1D0 S95_t1(x)%deltax=0.0D0 filename(x)='3244_Atlas_H-inv_24.8fb-1' ! x=x+1 ! S95_t1(x)%id=13018 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-13-018' ! S95_t1(x)%energy=8.0D0 ! S95_t1(x)%lumi=24.7D0 ! S95_t1(x)%xmin=105.0D0 ! S95_t1(x)%xmax=145.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='13018_CMS_ZH-inv_24.7fb-1' x=x+1 S95_t1(x)%id=13442 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='[hep-ex] arXiv:1404.1344 (CMS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=24.60 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=105.0D0 S95_t1(x)%xmax=145.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='1344_CMS_ZH-invisible_24.6fb-1' !----------------------- VBF, H -> invisible ------------------------- ! x=x+1 ! S95_t1(x)%id=13013 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-13-013' ! S95_t1(x)%energy=8.0D0 ! S95_t1(x)%lumi=19.6D0 ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=400.0D0 ! S95_t1(x)%sep=10.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='13013_CMS_VBF-inv_19.6fb-1' x=x+1 S95_t1(x)%id=13441 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='[hep-ex] arXiv:1404.1344 (CMS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=19.5D0 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=400.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='1344_CMS_VBF-invisible_19.5fb-1' x=x+1 S95_t1(x)%id=13443 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='[hep-ex] arXiv:1404.1344 (CMS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%SMlike=1 S95_t1(x)%lumi=24.60 S95_t1(x)%xmin=115.0D0 S95_t1(x)%xmax=145.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='1344_CMS_ZH_VBF-invisible_24.6fb-1' !----------------------- H -> W W ------------------------- x=x+1 S95_t1(x)%id=5757 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt=' D0' S95_t1(x)%label='D0 Note 5757' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=3.0D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=115.0D0 S95_t1(x)%xmax=200.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='D0_ppH_WW_ll_3.0fb_5757' x=x+1 S95_t1(x)%id=3930 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CDF' S95_t1(x)%label='[hep-ex] arXiv:0809.3930 (CDF)' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=3.0D0 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=200.0D0 S95_t1(x)%sep=10.0D0 filename(x)='CDF_ggH_WW_3.0fb_3930' ! x=x+1 ! S95_t1(x)%id=3216 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='TCB' ! S95_t1(x)%label='[hep-ex] arXiv:1005.3216 (TEVNPHWG)' ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=5.4D0 ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=300.0D0 ! S95_t1(x)%sep=5.0D0 ! filename(x)='CDF_D0_combined_gg-H-WW_4.8-5.4fb_3216_bayesian_interpol' !x=x+1 !S95_t1(x)%id=10102 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='CDF Note 10102' !S95_t1(x)%xmin=110.0D0 !S95_t1(x)%xmax=200.0D0 !S95_t1(x)%sep=5.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='CDF_H-WW_5.3fb_10102' ! x=x+1 ! S95_t1(x)%id=6221 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='D0 Note 6219' !this note has two results in it, both can not have the id 6219 ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=8.1D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=115.0D0 ! S95_t1(x)%xmax=300.0D0 ! S95_t1(x)%sep=5.0D0 ! filename(x)='D0_H-WW_8.1fb_6221_interpol' x=x+1 S95_t1(x)%id=6276 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt=' D0' S95_t1(x)%label='D0 Note 6276' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=9.7D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=100.0D0 S95_t1(x)%xmax=200.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='D0_H-VV_9.7fb_6276' x=x+1 S95_t1(x)%id=6301 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt=' D0' S95_t1(x)%label='D0 Note 6301' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=9.7D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=115.0D0 S95_t1(x)%xmax=200.0D0 S95_t1(x)%sep=5.0D0 filename(x)='D0_VH_VWW_9.7fb_6301' x=x+1 S95_t1(x)%id=10600 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CDF' S95_t1(x)%label='CDF Note 10599' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=8.2D0 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=300.0D0 S95_t1(x)%sep=5.0D0 filename(x)='CDF_ggH-WW_8.2fb_10600_interpol' x=x+1 S95_t1(x)%id=10599 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CDF' S95_t1(x)%label='CDF Note 10599' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=8.2D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=200.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='CDF_H-WW_8.2fb_10599' x=x+1 S95_t1(x)%id=4468 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CDF' S95_t1(x)%label='[hep-ex] arXiv:1001.4468 (CDF)' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=4.8D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=200.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='CDF_H-WW_4.8fb_4468_interpol' ! x=x+1 ! S95_t1(x)%id=5871 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='D0 Note 5871' ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=4.2D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=115.0D0 ! S95_t1(x)%xmax=200.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='D0_H-WW_llnunu_4.2fb_5871' !x=x+1 !S95_t1(x)%id=6082 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt=' D0' !S95_t1(x)%label='D0 Note 6082' !S95_t1(x)%xmin=115.0D0 !S95_t1(x)%xmax=200.0D0 !S95_t1(x)%sep=5.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='D0_H-VV_6.7fb_6082' ! x=x+1 ! S95_t1(x)%id=6219 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='D0 Note 6219' ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=8.1D0 ! S95_t1(x)%xmin=115.0D0 ! S95_t1(x)%xmax=200.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='D0_H-VV_8.1fb_6219' ! x=x+1 ! S95_t1(x)%id=6179 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='D0 Note 6179' ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=7.3D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=115.0D0 ! S95_t1(x)%xmax=200.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='D0_H-WW-mutau_7.3fb_6179' x=x+1 S95_t1(x)%id=6302 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt=' D0' S95_t1(x)%label='D0 Note 6302' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=9.7D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=115.0D0 S95_t1(x)%xmax=200.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='D0_H-WW_9.7fb_6302' x=x+1 S95_t1(x)%id=6183 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt=' D0' S95_t1(x)%label='D0 Note 6183' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=8.2D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=130.0D0 S95_t1(x)%xmax=200.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='D0_SM_combined_6183' x=x+1 S95_t1(x)%id=4481 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt=' D0' S95_t1(x)%label='[hep-ex] arXiv:1001.4481 (D0)' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=5.4D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=115.0D0 S95_t1(x)%xmax=200.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='D0_H-WW_5.4fb_4481' ! x=x+1 ! S95_t1(x)%id=4162 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='TCB' ! S95_t1(x)%label='[hep-ex] arXiv:1001.4162 (TEVNPHWG)' ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=5.4D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=130.0D0 ! S95_t1(x)%xmax=200.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='CDF_D0_SM_combined_H-WW_4.8-5.4fb_4162' x=x+1 S95_t1(x)%id=3331 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='TCB' S95_t1(x)%label='[hep-ex] arXiv:1108.3331 (TEVNPHWG)'!CDF note 10608, D0 Note 6230 S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=8.2D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=300.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='CDF_D0_combined_gg-H-WW_8.2fb_3331_bayesian_interpol' ! x=x+1 ! S95_t1(x)%id=2011134 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='ATL' ! S95_t1(x)%label='ATLAS-CONF-2011-134' ! S95_t1(x)%energy=7.0D0 ! S95_t1(x)%lumi=1.7D0 ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=300.0D0 ! S95_t1(x)%sep=1.0D0 ! filename(x)='2011134_Atlas_H-WW-lnulnu_1.7fb-1_interpol' x=x+1 S95_t1(x)%id=2012012 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2012-012' S95_t1(x)%energy=7.0D0 S95_t1(x)%lumi=4.7D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=600.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='2012012_Atlas_H-WW-lnulnu_4.7fb-1' ! x=x+1 ! S95_t1(x)%id=2012158 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='ATL' ! S95_t1(x)%label='ATLAS-CONF-2012-158' ! S95_t1(x)%energy=8.0D0 ! S95_t1(x)%lumi=13.0D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=115.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=1.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='2012158_Atlas_H-WW-enumunu_13fb-1' x=x+1 S95_t1(x)%id=2013030 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2013-030' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=25.0D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=200.0D0 S95_t1(x)%sep=1.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='2013030_Atlas_H-WW-lnulnu_25fb-1' ! x=x+1 ! S95_t1(x)%id=5429 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='[hep-ex] arXiv: 1102.5429(CMS)' ! S95_t1(x)%energy=7.0D0 ! S95_t1(x)%lumi=0.036D0 ! S95_t1(x)%xmin=130.0D0 ! S95_t1(x)%xmax=400.0D0 ! S95_t1(x)%sep=10.0D0 ! filename(x)='5429_CMS_H-WW_36pb-1_rat_interpol' x=x+1 S95_t1(x)%id=2577 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='[hep-ex] arxiv:1112.2577' S95_t1(x)%desc='pp->h + X->W W* + X ->l l nu nu' S95_t1(x)%energy=7.D0 S95_t1(x)%lumi=2.05D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=300.0D0 S95_t1(x)%sep=1.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='2577_Atlas_H-WW-lnulnu_2.05fb-1' ! x=x+1 ! S95_t1(x)%id=1489 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='[hep-ex] arxiv:1202.1489 (CMS)' ! S95_t1(x)%energy=7.0D0 ! S95_t1(x)%lumi=4.6D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=5D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='11024_CMS_H-WW-lnulnu_4.6fb-1_interpol' ! x=x+1 ! S95_t1(x)%id=12042 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-12-042' ! S95_t1(x)%energy=8.0D0 ! S95_t1(x)%lumi=16.0D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=1D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='12042_CMS_H-WW-lnulnu_16.0fb-1' x=x+1 S95_t1(x)%id=13003 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG-13-003' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=25.0D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=600.0D0 S95_t1(x)%sep=5D0 S95_t1(x)%deltax=0.0D0 filename(x)='13003_CMS_H-WW-lnulnu_25fb-1' x=x+1 S95_t1(x)%id=13027 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG-13-027' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=24.3D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=170.0D0 S95_t1(x)%xmax=600.0D0 S95_t1(x)%sep=10.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='13027_CMS_H-WW-lnujj_24.3fb-1' x=x+1 S95_t1(x)%id=13022 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG-13-022' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=25.4D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=600.0D0 S95_t1(x)%sep=5D0 S95_t1(x)%deltax=0.0D0 filename(x)='13022_CMS_VBF-WW_25.4fb-1' x=x+1 S95_t1(x)%id=2016062 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATLAS' S95_t1(x)%label='ATLAS-CONF-2016-062' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=13.2D0 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=500.0D0 S95_t1(x)%xmax=3000.0D0 S95_t1(x)%sep=50.0D0 S95_t1(x)%deltax=10.0D0 filename(x)='2016062_Atlas_gg-H-WW-lnuqq_13.2fb-1' !--------------- H -> VV -> l nu l nu ---------------- x=x+1 S95_t1(x)%id=3357 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='[hep-ex] arXiv:1109.3357 (ATLAS)' S95_t1(x)%energy=7.0D0 S95_t1(x)%lumi=1.04D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=200.0D0 S95_t1(x)%xmax=600.0D0 S95_t1(x)%sep=20.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='3357_Atlas_H-ZZ-llnunu_1.04fb-1' ! x=x+1 ! S95_t1(x)%id=2011148 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='ATL' ! S95_t1(x)%label='ATLAS-CONF-2011-148' ! S95_t1(x)%energy=7.0D0 ! S95_t1(x)%lumi=2.05D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=200.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=20.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='2011148_Atlas_H-ZZ-lnulnu_2.05fb-1' x=x+1 S95_t1(x)%id=2012016 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2012-016' S95_t1(x)%energy=7.0D0 S95_t1(x)%lumi=4.7D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=200.0D0 S95_t1(x)%xmax=600.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='2012016_Atlas_H-ZZ-llnunu_4.7fb-1' x=x+1 S95_t1(x)%id=3478 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='[hep-ex] arxiv:1202.3478 (CMS)' S95_t1(x)%energy=7.0D0 S95_t1(x)%lumi=4.6D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=250.0D0 S95_t1(x)%xmax=590.0D0 S95_t1(x)%sep=1.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='11026_CMS_H-ZZ-llnunu_4.6fb-1' !----------------------- H -> W W ----------------------------- ! x=x+1 ! S95_t1(x)%id=2011052 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='ATL' ! S95_t1(x)%label='ATLAS-CONF-2011-052' ! S95_t1(x)%energy=7.0D0 ! S95_t1(x)%lumi=0.035D0 ! S95_t1(x)%xmin=220.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=20.0D0 ! filename(x)='2011052_Atlas_H-WW_35pb-1' ! x=x+1 ! S95_t1(x)%id=3615 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='ATL' ! S95_t1(x)%label='[hep-ex] arXiv:1109.3615 (ATLAS)' ! S95_t1(x)%energy=7.0D0 ! S95_t1(x)%lumi=0.035D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=240.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=20.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='3615_Atlas_H-WW-lnuqq_1.04fb-1' ! ! x=x+1 ! S95_t1(x)%id=2012018 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='ATL' ! S95_t1(x)%label='ATLAS-CONF-2012-018' ! S95_t1(x)%energy=7.0D0 ! S95_t1(x)%lumi=4.7D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=300.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=10.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='2012018_Atlas_H-WW-lnuqq_4.7fb-1' x=x+1 S95_t1(x)%id=12046 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG-12-046' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=17D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=170.0D0 S95_t1(x)%xmax=580.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='12046_CMS_H-WW-lnuqq_17fb-1' x=x+1 S95_t1(x)%id=20160741 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2016-074' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=13.2D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=300.0D0 S95_t1(x)%xmax=3000.0D0 S95_t1(x)%sep=50.0D0 S95_t1(x)%deltax=10.0D0 filename(x)='2016074_Atlas_gg-H-WW-lnulnu_13.2fb-1' x=x+1 S95_t1(x)%id=20160742 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2016-074' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=13.2D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=300.0D0 S95_t1(x)%xmax=3000.0D0 S95_t1(x)%sep=50.0D0 S95_t1(x)%deltax=10.0D0 filename(x)='2016074_Atlas_vbf-H-WW-lnulnu_13.2fb-1' !------------------------- H -> Z Z -------------------------- x=x+1 S95_t1(x)%id=5064 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='[hep-ex] arXiv:1108.5064 (ATLAS)' S95_t1(x)%energy=7.0D0 S95_t1(x)%lumi=1.04D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=200.0D0 S95_t1(x)%xmax=600.0D0 S95_t1(x)%sep=10.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='5064_Atlas_H-ZZ-llqq_1.04fb-1' x=x+1 S95_t1(x)%id=2012017 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2012-017' S95_t1(x)%energy=7.0D0 S95_t1(x)%lumi=4.7D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=200.0D0 S95_t1(x)%xmax=600.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='2012017_Atlas_H-ZZ-llqq_4.7fb-1' x=x+1 S95_t1(x)%id=14161 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='[hep-ex] arXiv:1202.1416 (CMS)' S95_t1(x)%energy=7.0D0 S95_t1(x)%lumi=4.6D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=130.0D0 S95_t1(x)%xmax=164.0D0 S95_t1(x)%sep=1.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='110271_CMS_H-ZZ-llqq_4.6fb-1' x=x+1 S95_t1(x)%id=14162 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='[hep-ex] arXiv:1202.1416 (CMS)' S95_t1(x)%energy=7.0D0 S95_t1(x)%lumi=4.6D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=200.0D0 S95_t1(x)%xmax=600.0D0 S95_t1(x)%sep=1.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='110272_CMS_H-ZZ-llqq_4.6fb-1' x=x+1 S95_t1(x)%id=1415 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='[hep-ex] arXiv:1202.1415 (ATLAS)' S95_t1(x)%energy=7.0D0 S95_t1(x)%lumi=4.8D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=600.0D0 S95_t1(x)%sep=1.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='1415_Atlas_H-ZZ-4l_4.8fb-1' x=x+1 S95_t1(x)%id=2012092 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2012-092' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=10.6D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=600.0D0 S95_t1(x)%sep=1.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='2012092_Atlas_H-ZZ-4l_10.6fb-1' x=x+1 S95_t1(x)%id=20130131 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2013-013' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=25.0D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=180.0D0 S95_t1(x)%sep=1.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='2013013-1_Atlas_H-ZZ-4l_incl_25fb-1' x=x+1 S95_t1(x)%id=20130132 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2013-013' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=21.0D0 S95_t1(x)%xmin=200.0D0 S95_t1(x)%xmax=1000.0D0 S95_t1(x)%sep=5.0D0 filename(x)='2013013-2_Atlas_H-ZZ-4l_ggF_21fb-1' x=x+1 S95_t1(x)%id=20130133 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2013-013' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=21.0D0 S95_t1(x)%xmin=200.0D0 S95_t1(x)%xmax=1000.0D0 S95_t1(x)%sep=5.0D0 filename(x)='2013013-3_Atlas_H-ZZ-4l_VBFVH_21fb-1' x=x+1 S95_t1(x)%id=20160792 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2016-079' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=14.8D0 S95_t1(x)%xmin=200.0D0 S95_t1(x)%xmax=400.0D0 S95_t1(x)%sep=1.0D0 filename(x)='20160792_gg-H-ZZ-4l_14.8fb-1_lowmass' x=x+1 S95_t1(x)%id=20160793 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2016-079' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=14.8D0 S95_t1(x)%xmin=200.0D0 S95_t1(x)%xmax=1000.0D0 S95_t1(x)%sep=1.0D0 filename(x)='20160793_VBF-H-ZZ-4l_14.8fb-1' x=x+1 S95_t1(x)%id=1997 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='[hep-ex] arxiv:1202.1997 (CMS)' S95_t1(x)%energy=7.0D0 S95_t1(x)%lumi=4.7D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=600.0D0 S95_t1(x)%sep=1.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='11025_CMS_H-ZZ-4l_4.7fb-1' ! x=x+1 ! S95_t1(x)%id=12041 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-12-041' ! S95_t1(x)%energy=8.0D0 ! S95_t1(x)%lumi=17.3D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=1.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='12041_CMS_H-ZZ-4l_17.3fb-1' x=x+1 S95_t1(x)%id=130021 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG-13-002' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=25.0D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=150.0D0 S95_t1(x)%sep=1.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='13002-1_CMS_H-ZZ-4l_lowm_25fb-1' x=x+1 S95_t1(x)%id=130022 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG-13-002' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=25.0D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=150.0D0 S95_t1(x)%xmax=1000.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='13002-2_CMS_H-ZZ-4l_highm_25fb-1' x=x+1 S95_t1(x)%id=009361 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='[hep-ex] arXiv:1504.00936 (CMS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=24.8D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=145.0D0 S95_t1(x)%xmax=1000.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='009361_CMS_H-VV_5.1fb-1_19.7fb-1' x=x+1 S95_t1(x)%id=063861 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='arXiv:1712.06386 (ATLAS)' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=36.1D0 S95_t1(x)%xmin=200.0D0 S95_t1(x)%xmax=400.0D0 S95_t1(x)%sep=1.0D0 filename(x)='063861_ATLAS_gg-H-ZZ-4l+2l2nu_NWA_36.1fb-1' x=x+1 S95_t1(x)%id=20160821 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2016-082' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=13.2D0 S95_t1(x)%xmin=500.0D0 S95_t1(x)%xmax=3000.0D0 S95_t1(x)%sep=1.0D0 filename(x)='20160821_Atlas_gg-H-ZZ-llnunu_13.2fb-1' x=x+1 S95_t1(x)%id=20160822 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2016-082' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=13.2D0 S95_t1(x)%xmin=300.0D0 S95_t1(x)%xmax=3000.0D0 S95_t1(x)%sep=1.0D0 filename(x)='20160822_Atlas_gg-H-ZZ-llqq_13.2fb-1' x=x+1 S95_t1(x)%id=20160823 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2016-082' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=13.2D0 S95_t1(x)%xmin=300.0D0 S95_t1(x)%xmax=3000.0D0 S95_t1(x)%sep=1.0D0 filename(x)='20160823_Atlas_qq-Hqq-ZZ-llqq_13.2fb-1' x=x+1 S95_t1(x)%id=16034 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG-16-034' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=12.9D0 S95_t1(x)%xmin=550.0D0 S95_t1(x)%xmax=2000.0D0 S95_t1(x)%sep=10.0D0 filename(x)='16034_CMS_H-ZZ-llqq_12.9fb-1' !------------------------- SM combined ----------------------- ! x=x+1 ! S95_t1(x)%id=8961 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='TCB' ! S95_t1(x)%label='[hep-ex] arXiv:0712.2383v1(TEVNPHWG)' !CDF Note 8961, D0 Note 5536 ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=1.9D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=200.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='CDF_D0_SM_combined_1.0-1.9fb_8961-5536_interpol' x=x+1 S95_t1(x)%id=10439 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CDF' S95_t1(x)%label='CDF Note 10439' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=6.0D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=100.0D0 S95_t1(x)%xmax=150.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='CDF_H-tautau_6.0fb_10439' !x=x+1 !S95_t1(x)%id=10133 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='CDF Note 10133' !S95_t1(x)%xmin=100.0D0 !S95_t1(x)%xmax=150.0D0 !S95_t1(x)%sep=5.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='CDF_H-tautau_2.3fb_10133' ! x=x+1 ! S95_t1(x)%id=4800 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='[hep-ex] arXiv:0903.4800 (D0)' ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=1.0D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=105.0D0 ! S95_t1(x)%xmax=145.0D0 ! S95_t1(x)%sep=10.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='D0_SM_tautau_1.0fb_4800' ! x=x+1 S95_t1(x)%id=5845 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt=' D0' S95_t1(x)%label='D0 Note 5845' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=4.9D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=105.0D0 S95_t1(x)%xmax=145.0D0 S95_t1(x)%sep=10.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='D0_tautauqq_4.9fb_5845' ! x=x+1 ! S95_t1(x)%id=9290 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='TCB' ! S95_t1(x)%label='[hep-ex] arXiv:0804.3423(TEVNPHWG)' !CDF Note 9290, D0 Note 5645 ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=2.4D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=200.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='CDF_D0_SM_combined_1.0-2.4fb_9290-5645_interpol' ! x=x+1 ! S95_t1(x)%id=9465 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='TCB' ! S95_t1(x)%label='[hep-ex] arXiv:0808.0534(TEVNPHWG)' !CDF Note 9465, D0 Note 5754 ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=3.0D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=155.0D0 ! S95_t1(x)%xmax=200.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! !filename(x)='CDF_D0_SM_combined_3.0fb_9465-5754_CLs' ! filename(x)='CDF_D0_SM_combined_3.0fb_9465-5754_bayesian' ! x=x+1 ! S95_t1(x)%id=0598 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='[hep-ex] arXiv:0712.0598v1 (D0)' ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=0.44D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=100.0D0 ! S95_t1(x)%xmax=200.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='D0_SM_combined_0598_interpol' x=x+1 S95_t1(x)%id=9999 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CDF' S95_t1(x)%label='CDF Note 9999' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=4.8D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=100.0D0 S95_t1(x)%xmax=200.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='CDF_SM_combined_2.0-4.8fb_9999_interpol' ! x=x+1 ! S95_t1(x)%id=6008 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='D0 Note 6008' ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=5.4D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=100.0D0 ! S95_t1(x)%xmax=200.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='D0_SM_combined_6008' x=x+1 S95_t1(x)%id=6305 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt=' D0' S95_t1(x)%label='D0 Note 6305' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=7.3D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=105.0D0 S95_t1(x)%xmax=200.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='D0_H-tautau_7.3fb_6305' ! x=x+1 ! S95_t1(x)%id=9998 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='TCB' ! S95_t1(x)%label='[hep-ex] arXiv:0911.3930 (TEVNPHWG)'!CDF Note 9998, D0 Note 5983 ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=5.4D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=100.0D0 ! S95_t1(x)%xmax=200.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='CDF_D0_SM_combined_2.1-5.4fb_9998-5983_bayesian' ! x=x+1 ! S95_t1(x)%id=6096 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='TCB' ! S95_t1(x)%label='[hep-ex] arXiv:1007.4587 (TEVNPHWG)' !CDF Note 10241, D0 Note 6096 ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=6.7D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=100.0D0 ! S95_t1(x)%xmax=200.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='CDF_D0_SM_combined_2.1-6.7fb_10241-6096_bayesian' x=x+1 S95_t1(x)%id=10010 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CDF' S95_t1(x)%label='CDF Note 10010' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=4D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=100.0D0 S95_t1(x)%xmax=150.0D0 S95_t1(x)%sep=10.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='CDF_hadr_4fb_10010' x=x+1 S95_t1(x)%id=6171 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt=' D0' S95_t1(x)%label='D0 Note 6171' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=4.3D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=105.0D0 S95_t1(x)%xmax=200.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='D0_H-tautaujj-4.3fb_6171' ! x=x+1 ! S95_t1(x)%id=6229 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='D0 Note 6229' ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=8.6D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=100.0D0 ! S95_t1(x)%xmax=200.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='D0_SM_combined_6229' x=x+1 S95_t1(x)%id=6304 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt=' D0' S95_t1(x)%label='D0 Note 6304' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=9.7D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=100.0D0 S95_t1(x)%xmax=200.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='D0_SM_combined_6304' x=x+1 S95_t1(x)%id=10500 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CDF' S95_t1(x)%label='CDF Note 10500' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=6.2D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=100.0D0 S95_t1(x)%xmax=150.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='CDF_VH_tautau_6.2fb_10500' x=x+1 S95_t1(x)%id=10573 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CDF' S95_t1(x)%label='CDF Note 10573' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=8.2D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=120.0D0 S95_t1(x)%xmax=300.0D0 S95_t1(x)%sep=10.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='CDF_H-WW_8.2fb_10573' x=x+1 S95_t1(x)%id=6286 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt=' D0' S95_t1(x)%label='D0 Note 6286' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=7.0D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=100.0D0 S95_t1(x)%xmax=200.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='D0_tautaumu_7.0fb_6286' ! x=x+1 ! S95_t1(x)%id=3233 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='TCB' ! S95_t1(x)%label='[hep-ex] arXiv:1103.3233v2 (TEVNPHWG)' !CDF Note 10432, D0 Note 6183 ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=8.2D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=130.0D0 ! S95_t1(x)%xmax=200.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! !filename(x)='CDF_D0_SM_combined_4.3-8.2fb_3233_CLs' ! filename(x)='CDF_D0_SM_combined_4.3-8.2fb_3233_bayesian' ! ! x=x+1 ! S95_t1(x)%id=10606 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='TCB' ! S95_t1(x)%label='[hep-ex] arXiv:1107.5518 (TEVNPHWG)' !CDF Note 10606, D0 Note 6226 ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=8.6D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=100.0D0 ! S95_t1(x)%xmax=200.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='CDF_D0_SM_combined_8.6fb_10606' x=x+1 S95_t1(x)%id=10884 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='TCB' S95_t1(x)%label='[hep-ex] arXiv:1207.0449 (TEVNPHWG)' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=10.D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=100.0D0 S95_t1(x)%xmax=200.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='10884_CDF_D0_SM_combined_10fb-1' ! x=x+1 ! S95_t1(x)%id=10607 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='TCB' ! S95_t1(x)%label='[hep-ex] arXiv:1107.5518 (TEVNPHWG)' !CDF Note 10606, D0 Note 6226 ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=8.6D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=100.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='CDF_D0_combined_h-bb_8.6fb_10607' x=x+1 S95_t1(x)%id=6436 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='TCB' S95_t1(x)%label='[hep-ex] arXiv:1207.6436 (TEVNPHWG)' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=9.7D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=100.0D0 S95_t1(x)%xmax=150.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='1207.6436_CDF_D0_combined_h-bb_9.7fb-1' ! x=x+1 ! S95_t1(x)%id=2011112 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='ATL' ! S95_t1(x)%label='ATLAS-CONF-2011-112' ! S95_t1(x)%energy=7.0D0 ! S95_t1(x)%lumi=1.21D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=1.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='2011112_Atlas_SMcombined_1.04-1.21fb-1_interpol' ! ! x=x+1 ! S95_t1(x)%id=2011135 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='ATL' ! S95_t1(x)%label='ATLAS-CONF-2011-135' ! S95_t1(x)%energy=7.0D0 ! S95_t1(x)%lumi=2.3D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=1.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='2011135_Atlas_SMcombined_1-2.3fb-1_interpol' ! ! x=x+1 ! S95_t1(x)%id=2011163 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='ATL' ! S95_t1(x)%label='ATLAS-CONF-2011-163' ! S95_t1(x)%energy=7.0D0 ! S95_t1(x)%lumi=4.9D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=0.5D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='2011163_Atlas_SMcombined_4.9fb-1' ! x=x+1 S95_t1(x)%id=1408 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='(hep-ex) arxiv:1202.1408 (ATLAS)' S95_t1(x)%energy=7.0D0 S95_t1(x)%lumi=4.9D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=600.0D0 S95_t1(x)%sep=1.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='1408_Atlas_SMcombined_4.9fb-1' x=x+1 S95_t1(x)%id=2012019 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2012-019' S95_t1(x)%desc='(p p)->h+...' S95_t1(x)%energy=7.0D0 S95_t1(x)%lumi=4.9D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=600.0D0 S95_t1(x)%sep=1.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='2012019_Atlas_SMcombined_4.9fb-1' x=x+1 S95_t1(x)%id=7214 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='(hep-ex) arXiv:1207.7214 (ATLAS)' S95_t1(x)%desc='(p p)->h+...' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=10.5D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=600.0D0 S95_t1(x)%sep=0.1D0 S95_t1(x)%deltax=0.0D0 filename(x)='7214_Atlas_SMcombined_10.5fb-1' x=x+1 S95_t1(x)%id=2011157 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2011-157, CMS-PAS-HIG-11-023' S95_t1(x)%energy=7.0D0 S95_t1(x)%lumi=2.3D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=600.0D0 S95_t1(x)%sep=1.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='2011157_Atlas_CMS_SMcombined_2.7fb-1' ! x=x+1 ! S95_t1(x)%id=11011 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-011' ! S95_t1(x)%energy=7.0D0 ! S95_t1(x)%lumi=1.1D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=10.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='11011_CMS_SMcomb_1.1fb-1_interpol' x=x+1 S95_t1(x)%id=1488 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='[hep-ex] arxiv:1202.1488 (CMS)' S95_t1(x)%energy=7.D0 S95_t1(x)%lumi=4.8D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=600.0D0 S95_t1(x)%sep=1.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='1488_CMS_SMcombined_4.8fb-1' ! x=x+1 ! S95_t1(x)%id=12008 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-12-008' ! S95_t1(x)%desc='(p p)->h+...' ! S95_t1(x)%energy=7.D0 ! S95_t1(x)%lumi=4.8D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=1.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='12008_CMS_SMcombined_4.8fb-1' x=x+1 S95_t1(x)%id=12045 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG-12-045' S95_t1(x)%desc='(p p)->h+...' S95_t1(x)%energy=8.D0 S95_t1(x)%lumi=17.3D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=600.0D0 S95_t1(x)%sep=1.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='12045_CMS_SMcombined_17.3fb-1' !----------------- b H -> 3 b jets ------------------- ! x=x+1 ! S95_t1(x)%id=10105 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CDF' ! S95_t1(x)%label='CDF Note 10105' ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=2.2D0 ! S95_t1(x)%xmin=90.0D0 ! S95_t1(x)%xmax=210.0D0 ! S95_t1(x)%sep=10.0D0 ! filename(x)='CDF_bbH_bb_2.2fb_10105' ! x=x+1 ! S95_t1(x)%id=5726 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='D0 Note 5726' ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=2.6D0 ! S95_t1(x)%xmin=90.0D0 ! S95_t1(x)%xmax=220.0D0 ! S95_t1(x)%sep=10.0D0 ! filename(x)='D0_bbH_bb_2.6fb_5726_sq_interpol' x=x+1 S95_t1(x)%id=1931 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt=' D0' S95_t1(x)%label='[hep-ex] arXiv:1011.1931 (D0)' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=5.2D0 S95_t1(x)%xmin=90.0D0 S95_t1(x)%xmax=300.0D0 S95_t1(x)%sep=10.0D0 filename(x)='D0_bbH_bb_5.2fb_1931' x=x+1 S95_t1(x)%id=4782 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CDF' S95_t1(x)%label='arXiv:1106.4782 (CDF)' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=2.6D0 S95_t1(x)%xmin=90.0D0 S95_t1(x)%xmax=350.0D0 S95_t1(x)%sep=10.0D0 filename(x)='CDF_bbH_bb_2.6fb_4782' ! x=x+1 ! S95_t1(x)%id=12033 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-12-033' ! S95_t1(x)%energy=7.0D0 ! S95_t1(x)%lumi=4.8D0 ! S95_t1(x)%xmin=90.0D0 ! S95_t1(x)%xmax=350.0D0 ! S95_t1(x)%sep=10.0D0 ! filename(x)='12033_CMS_bbH-bbbb_4.8fb-1' x=x+1 S95_t1(x)%id=1508329 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='arXiv:1506.08329 (CMS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=19.7D0 S95_t1(x)%xmin=100.0D0 S95_t1(x)%xmax=900.0D0 S95_t1(x)%sep=10.0D0 filename(x)='1508329_CMS_Hb-bbb_19.7fb-1' x=x+1 S95_t1(x)%id=2015080 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='CERN-THESIS-2015-080 (ATLAS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=19.5D0 S95_t1(x)%xmin=450.0D0 S95_t1(x)%xmax=800.0D0 S95_t1(x)%sep=50.0D0 filename(x)='2015080_Atlas_hb-bbb_19.5fb-1' !-------------------- H -> tau tau ------------------------- x=x+1 S95_t1(x)%id=4555 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt=' D0' S95_t1(x)%label='[hep-ex] arXiv:1106.4555 (D0)' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=5.4D0 S95_t1(x)%xmin=90.0D0 S95_t1(x)%xmax=300.0D0 S95_t1(x)%sep=10.0D0 filename(x)='D0_H-tautau_5.4fb_4555_interpol' ! x=x+1 ! S95_t1(x)%id=2491 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='[hep-ex] arXiv:0805.2491 (D0)' ! S95_t1(x)%xmin=90.0D0 ! S95_t1(x)%xmax=300.0D0 ! S95_t1(x)%sep=10.0D0 ! filename(x)='D0_ppH_tautau_1fb_2491_interpol' x=x+1 S95_t1(x)%id=1014 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CDF' S95_t1(x)%label='[hep-ex] arXiv:0906.1014 (CDF)' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=1.8D0 S95_t1(x)%xmin=90.0D0 S95_t1(x)%xmax=250.0D0 S95_t1(x)%sep=10.0D0 filename(x)='CDF_H-tautau_1.8fb_1014_interpol' ! x=x+1 ! S95_t1(x)%id=5740 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='D0 Note 5740' ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=2.2D0 ! S95_t1(x)%xmin=90.0D0 ! S95_t1(x)%xmax=300.0D0 ! S95_t1(x)%sep=10.0D0 ! filename(x)='D0_H-tautau_2.2fb_5740_interpol' x=x+1 S95_t1(x)%id=3363 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='TCB' S95_t1(x)%label='[hep-ex] arXiv:1003.3363 (TEVNPHWG)' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=2.2D0 S95_t1(x)%xmin=90.0D0 S95_t1(x)%xmax=200.0D0 S95_t1(x)%sep=10.0D0 filename(x)='CDF_D0_combinedH-tautau_2.2fb_3363_CLs' ! x=x+1 ! S95_t1(x)%id=2011133 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='ATL' ! S95_t1(x)%label='ATLAS-CONF-2011-133' ! S95_t1(x)%energy=7.0D0 ! S95_t1(x)%lumi=1.06D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=140.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='2011133_Atlas_H-tautau-ll4nu_1.06fb-1' ! x=x+1 ! S95_t1(x)%id=2012014 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='ATL' ! S95_t1(x)%label='ATLAS-CONF-2012-014' ! S95_t1(x)%energy=7.0D0 ! S95_t1(x)%lumi=4.7D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=100.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='2012014_Atlas_H-tautau_4.7fb-1' x=x+1 S95_t1(x)%id=2012160 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2012-160' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=17.6D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=100.0D0 S95_t1(x)%xmax=150.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='2012160_Atlas_H-tautau_17.6fb-1' ! x=x+1 ! S95_t1(x)%id=5003 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='ATL' ! S95_t1(x)%label='[hep-ex] arXiv:1107.5003 (ATLAS)'!CERN-PH-EP-2011-104 ! S95_t1(x)%energy=7.0D0 ! S95_t1(x)%lumi=0.036D0 ! S95_t1(x)%xmin=90.0D0 ! S95_t1(x)%xmax=300.0D0 ! S95_t1(x)%sep=10.0D0 ! filename(x)='5003_Atlas_ggh_h-tautau_36pb-1' ! x=x+1 ! S95_t1(x)%id=2011132 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='ATL' ! S95_t1(x)%label='ATLAS-CONF-2011-132' ! S95_t1(x)%energy=7.0D0 ! S95_t1(x)%lumi=1.06D0 ! S95_t1(x)%xmin=90.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=10.0D0 ! filename(x)='2011132_Atlas_conserv_h-tautau_1.06fb-1_interpol' ! x=x+1 ! S95_t1(x)%id=2012094 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='ATL' ! S95_t1(x)%label='ATLAS-CONF-2012-094' ! S95_t1(x)%energy=7.0D0 ! S95_t1(x)%lumi=4.7D0 ! S95_t1(x)%xmin=90.0D0 ! S95_t1(x)%xmax=500.0D0 ! S95_t1(x)%sep=10.0D0 ! filename(x)='2012094_Atlas_H-tautau_4.7fb-1' ! Analysis is disabled when using CMS tau tau likelihood x=x+1 S95_t1(x)%id=2014049 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2014-049, arXiv:1409.6064' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=20.3D0 S95_t1(x)%xmin=90.0D0 S95_t1(x)%xmax=1000.0D0 S95_t1(x)%llh=1 S95_t1(x)%sep=10.0D0 S95_t1(x)%deltax=20.0D0 filename(x)='2014049_Atlas_bbh_h-tautau_20.3fb-1' ! Analysis is disabled when using CMS tau tau likelihood x=x+1 S95_t1(x)%id=20140492 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2014-049, arXiv:1409.6064' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=20.3D0 S95_t1(x)%xmin=90.0D0 S95_t1(x)%xmax=1000.0D0 S95_t1(x)%llh=1 S95_t1(x)%sep=10.0D0 S95_t1(x)%deltax=20.0D0 filename(x)='20140492_Atlas_ggh_h-tautau_20.3fb-1' ! Analysis is disabled when using CMS tau tau likelihood ! x=x+1 ! S95_t1(x)%id=20160851 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='ATL' ! S95_t1(x)%label='ATLAS-CONF-2016-085' ! S95_t1(x)%energy=13.0D0 ! S95_t1(x)%lumi=13.3D0 ! S95_t1(x)%xmin=200.0D0 ! S95_t1(x)%xmax=1200.0D0 ! S95_t1(x)%llh=1 ! S95_t1(x)%sep=20.0D0 ! S95_t1(x)%deltax=20.0D0 ! filename(x)='20160851_Atlas_ggh_h_tautau_13.3fb-1' ! Analysis is disabled when using CMS tau tau likelihood ! x=x+1 ! S95_t1(x)%id=20160852 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='ATL' ! S95_t1(x)%label='ATLAS-CONF-2016-085' ! S95_t1(x)%energy=13.0D0 ! S95_t1(x)%lumi=13.3D0 ! S95_t1(x)%xmin=200.0D0 ! S95_t1(x)%xmax=1200.0D0 ! S95_t1(x)%llh=1 ! S95_t1(x)%sep=20.0D0 ! S95_t1(x)%deltax=20.0D0 ! filename(x)='20160852_Atlas_bbh_h_tautau_13.3fb-1' ! Analysis is disabled when using CMS tau tau likelihood ! x=x+1 ! S95_t1(x)%id=160371 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-16-037' ! S95_t1(x)%energy=13.0D0 ! S95_t1(x)%lumi=12.9D0 ! S95_t1(x)%xmin=90.0D0 ! S95_t1(x)%xmax=3000.0D0 ! S95_t1(x)%llh=1 ! S95_t1(x)%sep=10.0D0 ! S95_t1(x)%deltax=20.0D0 ! filename(x)='160371_CMS_ggh_h_tautau_12.9fb-1' ! Analysis is disabled when using CMS tau tau likelihood ! x=x+1 ! S95_t1(x)%id=160372 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-16-037' ! S95_t1(x)%energy=13.0D0 ! S95_t1(x)%lumi=12.9D0 ! S95_t1(x)%xmin=90.0D0 ! S95_t1(x)%xmax=3000.0D0 ! S95_t1(x)%llh=1 ! S95_t1(x)%sep=10.0D0 ! S95_t1(x)%deltax=20.0D0 ! filename(x)='160372_CMS_bbh_h_tautau_12.9fb-1' ! Analysis is disabled when using CMS tau tau likelihood ! x=x+1 ! S95_t1(x)%id=20170501 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='ATL' ! S95_t1(x)%label='ATLAS-CONF-2017-050' ! S95_t1(x)%energy=13.0D0 ! S95_t1(x)%lumi=36.1D0 ! S95_t1(x)%xmin=200.0D0 ! S95_t1(x)%xmax=2250.0D0 ! S95_t1(x)%llh=1 ! S95_t1(x)%sep=10.0D0 ! S95_t1(x)%deltax=20.0D0 ! filename(x)='20170501_Atlas_gg-H-tautau_36.1fb-1' ! x=x+1 ! S95_t1(x)%id=20170502 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='ATL' ! S95_t1(x)%label='ATLAS-CONF-2017-050' ! S95_t1(x)%energy=13.0D0 ! S95_t1(x)%lumi=36.1D0 ! S95_t1(x)%xmin=200.0D0 ! S95_t1(x)%xmax=2250.0D0 ! S95_t1(x)%llh=1 ! S95_t1(x)%sep=10.0D0 ! S95_t1(x)%deltax=20.0D0 ! filename(x)='20170502_Atlas_bb-H-tautau_36.1fb-1' ! x=x+1 ! S95_t1(x)%id=110291 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-029' ! S95_t1(x)%energy=7.0D0 ! S95_t1(x)%lumi=4.6D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=145.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='11029_CMS_H-tautau_4.6fb-1_SM' x=x+1 S95_t1(x)%id=12043 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG-12-043' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=17.D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=145.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='12043_CMS_H_tautau_17fb-1' ! x=x+1 ! S95_t1(x)%id=10002 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='[hep-ex] arXiv: 1104:1619(CMS)'!CMS-PAS-HIG-10-002 ! S95_t1(x)%energy=7.0D0 ! S95_t1(x)%lumi=0.036D0 ! S95_t1(x)%xmin=90.0D0 ! S95_t1(x)%xmax=500.0D0 ! S95_t1(x)%sep=10.0D0 ! filename(x)='10002_CMS_H-tautau_36pb-1_interpol' ! x=x+1 ! S95_t1(x)%id=110292 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='[hep-ex] arXiv: 1202.4083 (CMS)' ! S95_t1(x)%energy=7.0D0 ! S95_t1(x)%lumi=4.6D0 ! S95_t1(x)%xmin=90.0D0 ! S95_t1(x)%xmax=500.0D0 ! S95_t1(x)%sep=10.0D0 ! filename(x)='11029_CMS_H-tautau_4.6fb-1_MSSM_interpol' ! ! x=x+1 ! S95_t1(x)%id=12050 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-12-050' ! S95_t1(x)%energy=8.0D0 ! S95_t1(x)%lumi=17.D0 ! S95_t1(x)%xmin=90.0D0 ! S95_t1(x)%xmax=800.0D0 ! S95_t1(x)%sep=1.0D0 ! filename(x)='12050_CMS_H-tautau_17fb-1' ! Still in testing phase! ! x=x+1 ! S95_t1(x)%id=13021 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-13-021' ! S95_t1(x)%energy=8.0D0 ! S95_t1(x)%lumi=25.6D0 ! S95_t1(x)%xmin=90.0D0 ! S95_t1(x)%xmax=1000.0D0 ! S95_t1(x)%sep=10.0D0 ! filename(x)='13021_CMS_H-tautau_25.6fb-1_MSSM_ggH' !-------------------- Higgs to Higgs decays ------------------------- ! ! Requires hi -> hj Z branching ratio in input! ! x=x+1 S95_t1(x)%id=14011 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG-14-011, arXiv:1504.04710 (CMS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=19.7D0 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=225.0D0 S95_t1(x)%xmax=600.0D0 S95_t1(x)%sep=0.1D0 S95_t1(x)%deltax=10.0D0 filename(x)='14011_CMS_A-Zh-llbb_19.7fb-1' ! x=x+1 S95_t1(x)%id=04670 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='[hep-ex] arXiv:1509.04670 (ATLAS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=20.3D0 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=260.0D0 S95_t1(x)%xmax=1000.0D0 S95_t1(x)%sep=0.1D0 S95_t1(x)%deltax=10.0D0 filename(x)='04670_Atlas_H-hh-combined_20.3fb-1' x=x+1 S95_t1(x)%id=046701 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='[hep-ex] arXiv:1509.04670 (ATLAS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=20.3D0 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=260.0D0 S95_t1(x)%xmax=500.0D0 S95_t1(x)%sep=10.0D0 S95_t1(x)%deltax=10.0D0 filename(x)='04670_Atlas_H-hh-gagaWW_20.3fb-1' + x=x+1 + S95_t1(x)%id=4873 + S95_t1(x)%particle_x=Hneut + S95_t1(x)%expt='ATL' + S95_t1(x)%label='[hep-ex] arXiv:1807.04873 (ATLAS)' + S95_t1(x)%energy=13.0D0 + S95_t1(x)%lumi=36.1D0 + S95_t1(x)%SMlike=0 + S95_t1(x)%xmin=260.0D0 + S95_t1(x)%xmax=1000.0D0 + S95_t1(x)%sep=10.0D0 + S95_t1(x)%deltax=10.0D0 + filename(x)='4873_Atlas_X-HH-gagabb_13TeV_36.1fb-1' + + x=x+1 S95_t1(x)%id=2016071 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2016-071' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=13.3D0 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=260.0D0 S95_t1(x)%xmax=500.0D0 S95_t1(x)%sep=10.0D0 S95_t1(x)%deltax=10.0D0 filename(x)='2016071_Atlas_gg-H-hh-WWgaga_13.3fb-1' x=x+1 S95_t1(x)%id=046702 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='[hep-ex] arXiv:1509.04670 (ATLAS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=20.3D0 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=260.0D0 S95_t1(x)%xmax=1000.0D0 S95_t1(x)%sep=10.0D0 S95_t1(x)%deltax=10.0D0 filename(x)='04670_Atlas_H-hh-bbtautau_20.3fb-1' x=x+1 S95_t1(x)%id=2016049 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATLAS' S95_t1(x)%label='ATLAS-CONF-2016-049' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=13.3D0 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=300.0D0 S95_t1(x)%xmax=3000.0D0 S95_t1(x)%sep=50.0D0 S95_t1(x)%deltax=10.0D0 filename(x)='2016049_Atlas_H-hh-bbbb_13.3fb-1' x=x+1 S95_t1(x)%id=011811 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='[hep-ex] arXiv:1510.01181 (CMS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=19.7D0 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=260.0D0 S95_t1(x)%xmax=350.0D0 S95_t1(x)%sep=10.0D0 S95_t1(x)%deltax=10.0D0 filename(x)='140341_CMS_H-hh-bbtautau_19.7fb-1' x=x+1 S95_t1(x)%id=17020321 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='[hep-ex] arXiv:1701.02032 (CMS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=19.7D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=5.0D0 S95_t1(x)%xmax=15.0D0 S95_t1(x)%sep=1.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='170102032_CMS_HSM-aa-tautau_19.7fb-1' x=x+1 S95_t1(x)%id=17020322 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='[hep-ex] arXiv:1701.02032 (CMS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=19.7D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=25.0D0 S95_t1(x)%xmax=62.5D0 S95_t1(x)%sep=0.5D0 S95_t1(x)%deltax=0.0D0 filename(x)='170102032_CMS_HSM-aa-mumubb_19.7fb-1' x=x+1 S95_t1(x)%id=17020323 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='[hep-ex] arXiv:1701.02032 (CMS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=19.7D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=15.0D0 S95_t1(x)%xmax=62.5D0 S95_t1(x)%sep=0.5D0 S95_t1(x)%deltax=0.0D0 filename(x)='170102032_CMS_HSM-aa-mumutautau_19.7fb-1' x=x+1 S95_t1(x)%id=5051 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='[hep-ex] arXiv:1509.05051 (ATLAS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=20.3D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=10.0D0 S95_t1(x)%xmax=61.75D0 S95_t1(x)%sep=0.05D0 S95_t1(x)%deltax=0.0D0 filename(x)='5051_Atlas_gg-H-aa-gagagaga_20.3fb-1' x=x+1 S95_t1(x)%id=1506534 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='[hep-ex] arXiv:1510.06534 (CMS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=19.7D0 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=4.0D0 S95_t1(x)%xmax=8.0D0 S95_t1(x)%sep=1.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='1506534_CMS_gg-H-hh-tautautautau_19.7fb-1' x=x+1 S95_t1(x)%id=17006 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG 17-006' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=36.0D0 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=260.0D0 S95_t1(x)%xmax=900.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='17006_CMS_H-hh-bbVV-bblnulnu_36fb-1' x=x+1 S95_t1(x)%id=011812 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='[hep-ex] arXiv:1510.01181 (CMS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=19.7D0 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=220.0D0 S95_t1(x)%xmax=350.0D0 S95_t1(x)%sep=10.0D0 S95_t1(x)%deltax=10.0D0 filename(x)='140342_CMS_A-hZ-tautaull_19.7fb-1' x=x+1 S95_t1(x)%id=044781 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATLAS' S95_t1(x)%label='[hep-ex] arXiv:1502.04478 (ATLAS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=20.3D0 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=220.0D0 S95_t1(x)%xmax=1000.0D0 S95_t1(x)%sep=10.0D0 S95_t1(x)%deltax=10.0D0 filename(x)='044781_ATLAS_gg-A-hZ-tautaull_20.3fb-1' x=x+1 S95_t1(x)%id=044782 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATLAS' S95_t1(x)%label='[hep-ex] arXiv:1502.04478 (ATLAS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=20.3D0 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=220.0D0 S95_t1(x)%xmax=1000.0D0 S95_t1(x)%sep=10.0D0 S95_t1(x)%deltax=10.0D0 filename(x)='044782_ATLAS_gg-A-hZ-bbll_20.3fb-1' x=x+1 S95_t1(x)%id=20160151 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATLAS' S95_t1(x)%label='ATLAS-CONF-2016-015' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=3.2D0 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=220.0D0 S95_t1(x)%xmax=2000.0D0 S95_t1(x)%sep=10.0D0 S95_t1(x)%deltax=10.0D0 filename(x)='20160151_ATLAS_gg-A-hZ-bbll_3.2fb-1' x=x+1 S95_t1(x)%id=20160152 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATLAS' S95_t1(x)%label='ATLAS-CONF-2016-015' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=3.2D0 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=220.0D0 S95_t1(x)%xmax=2000.0D0 S95_t1(x)%sep=10.0D0 S95_t1(x)%deltax=10.0D0 filename(x)='20160152_ATLAS_bb-A-hZ-bbll_3.2fb-1' x=x+1 S95_t1(x)%id=16002 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG-16-002' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=2.3D0 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=260.0D0 S95_t1(x)%xmax=1200.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=10.0D0 filename(x)='16002_CMS_H-hh-bbbb_2.3fb-1' ! x=x+1 ! S95_t1(x)%id=16029 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-16-029' ! S95_t1(x)%energy=13.0D0 ! S95_t1(x)%lumi=12.9D0 ! S95_t1(x)%SMlike=0 ! S95_t1(x)%xmin=250.0D0 ! S95_t1(x)%xmax=900.0D0 ! S95_t1(x)%sep=10.0D0 ! S95_t1(x)%deltax=10.0D0 ! filename(x)='16029_CMS_H-hh-bbtautau_12.9fb-1' x=x+1 S95_t1(x)%id=17002 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG-17-002' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=35.9D0 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=250.0D0 S95_t1(x)%xmax=900.0D0 S95_t1(x)%sep=10.0D0 S95_t1(x)%deltax=10.0D0 filename(x)='17002_CMS_H-hh-tautaubb_35.9fb-1' x=x+1 S95_t1(x)%id=14013 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG-14-013,arXiv:1503.04114 (CMS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=17.9D0 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=270.0D0 S95_t1(x)%xmax=1097.0D0 S95_t1(x)%sep=1.0D0 S95_t1(x)%deltax=10.0D0 filename(x)='14013_H-hh-bbbb_17.9fb-1' + x=x+1 + S95_t1(x)%id=17030 + S95_t1(x)%particle_x=Hneut + S95_t1(x)%expt='CMS' + S95_t1(x)%label='CMS-PAS-HIG-17-030' + S95_t1(x)%energy=13.0D0 + S95_t1(x)%lumi=35.9D0 + S95_t1(x)%SMlike=0 + S95_t1(x)%xmin=270.0D0 + S95_t1(x)%xmax=3000.0D0 + S95_t1(x)%sep=10.0D0 + S95_t1(x)%deltax=10.0D0 + filename(x)='17030_CMS_pp-X-HH_comb_13TeV_35.9fb-1' + + !-------------------- H -> mu mu ------------------------- x=x+1 S95_t1(x)%id=2013010 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2013-010' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=21D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=150.0D0 S95_t1(x)%sep=1.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='2013010_Atlas_H-mumu_21fb-1' x=x+1 S95_t1(x)%id=7663 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='[hep-ex] arXiv:1406.7663 (ATLAS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=24.8D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=120.0D0 S95_t1(x)%xmax=150.0D0 S95_t1(x)%sep=1.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='7663_Atlas_H-mumu_24.8fb-1' !------------------------ H W -> W W W -------------------------- x=x+1 S95_t1(x)%id=5873 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt=' D0' S95_t1(x)%label='D0 Note 5873' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=3.6D0 S95_t1(x)%xmin=120.0D0 S95_t1(x)%xmax=200.0D0 S95_t1(x)%sep=20.0D0 filename(x)='D0_WH_WWW_llnunu_3.6fb_5873' x=x+1 S95_t1(x)%id=7307 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CDF' S95_t1(x)%label='CDF Note 7307 vs 3' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=2.7D0 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=200.0D0 S95_t1(x)%sep=10.0D0 filename(x)='CDF_WH_WWW_2.7fb_7307vs3.0' !filename(x)='CDF_WH_WWW_1.9fb_7307' x=x+1 S95_t1(x)%id=1268 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt=' D0' S95_t1(x)%label='[hep-ex] arXiv:1107.1268 (D0)' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=5.3D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=115.0D0 S95_t1(x)%xmax=200.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='D0_VH_ll_5.3fb_1268' ! x=x+1 ! S95_t1(x)%id=11034 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-034' ! S95_t1(x)%energy=7.0D0 ! S95_t1(x)%lumi=4.6D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=115.0D0 ! S95_t1(x)%xmax=200.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='11034_CMS_WH-WWW_4.6fb-1_interpol' ! x=x+1 ! S95_t1(x)%id=12039 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-12-039' ! S95_t1(x)%energy=8.0D0 ! S95_t1(x)%lumi=10.D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=200.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='12039_CMS_WH-WWW_10fb-1' x=x+1 S95_t1(x)%id=13009 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG-13-009' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=25.D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=200.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='13009_CMS_WH-WWW_25fb-1' x=x+1 S95_t1(x)%id=12006 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG-12-006' S95_t1(x)%energy=7.0D0 S95_t1(x)%lumi=4.7D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=100.0D0 S95_t1(x)%xmax=140.0D0 S95_t1(x)%sep=10.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='12006_CMS_WH-Wtautau_4.7fb-1' x=x+1 S95_t1(x)%id=12051 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG-12-051' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=17.D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=145.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='12051_CMS_VH_Vtautau_17fb-1' x=x+1 S95_t1(x)%id=2012078 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2012-078' S95_t1(x)%energy=7.0D0 S95_t1(x)%lumi=4.7D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=100.0D0 S95_t1(x)%xmax=300.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='2012078_Atlas_WH_WWW_4.7fb-1' !-------------------- H -> gamma gamma -------------------- ! x=x+1 ! S95_t1(x)%id=6177 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='D0 Note 6177' ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=8.2D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=100.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=2.5D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='D0_gaga_8.2fb_6177' x=x+1 S95_t1(x)%id=6295 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt=' D0' S95_t1(x)%label='D0 Note 6295' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=9.7D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=100.0D0 S95_t1(x)%xmax=150.0D0 S95_t1(x)%sep=2.5D0 S95_t1(x)%deltax=0.0D0 filename(x)='D0_gaga_9.7fb_6295' x=x+1 S95_t1(x)%id=1887 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt=' D0' S95_t1(x)%label='[hep-ex] arXiv:0901.1887 (D0)' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=2.7D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=100.0D0 S95_t1(x)%xmax=150.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='D0_Hgaga_2.7fb_1887' x=x+1 S95_t1(x)%id=10485 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CDF' S95_t1(x)%label='CDF Note 10485' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=7.0D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=100.0D0 S95_t1(x)%xmax=150.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='CDF_SM_Hgaga_7.0fb_10485' x=x+1 S95_t1(x)%id=4960 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='TCB' S95_t1(x)%label='[hep-ex] arXiv:1107.4960 (TEVNPHWG)'!CDF Note 10510, D0 Note 6203 S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=8.2D0 S95_t1(x)%xmin=100.0D0 S95_t1(x)%xmax=150.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='CDF_D0_combined_SM_Hgaga_8.2fb_4960' x=x+1 S95_t1(x)%id=1414 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='[hep-ex] arXiv:1202.1414 (ATLAS)' S95_t1(x)%energy=7.0D0 S95_t1(x)%lumi=4.9D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=150.0D0 S95_t1(x)%sep=1.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='1414_Atlas_H-gaga_4.9fb-1' ! x=x+1 ! S95_t1(x)%id=2012091 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='ATL' ! S95_t1(x)%label='ATLAS-CONF-2012-091' ! S95_t1(x)%energy=8.0D0 ! S95_t1(x)%lumi=10.8D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=0.5D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='2012091_Atlas_H-gaga_10.8fb-1' x=x+1 S95_t1(x)%id=2012168 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2012-168' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=17.8D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=150.0D0 S95_t1(x)%sep=0.5D0 S95_t1(x)%deltax=0.0D0 filename(x)='2012168_Atlas_H-gaga_17.8fb-1' x=x+1 S95_t1(x)%id=6583 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='[hep-ex] arXiv:1407.6583' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=20.3D0 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=65.0D0 S95_t1(x)%xmax=600.0D0 S95_t1(x)%sep=0.1D0 S95_t1(x)%deltax=0.0D0 filename(x)='6583_Atlas_H-gaga_20.3fb-1' x=x+1 S95_t1(x)%id=059301 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='[hep-ex] arXiv:1507.05930 (ATLAS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=20.3D0 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=140.0D0 S95_t1(x)%xmax=1000.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='05930_Atlas_gg-H-ZZ-20.3fb-1' x=x+1 S95_t1(x)%id=059302 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='[hep-ex] arXiv:1507.05930 (ATLAS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=20.3D0 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=140.0D0 S95_t1(x)%xmax=1000.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='05930_Atlas_VBF-H-ZZ-20.3fb-1' x=x+1 S95_t1(x)%id=0038911 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='[hep-ex] arXiv:1509.00389 (ATLAS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=20.3D0 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=300.0D0 S95_t1(x)%xmax=1000.0D0 S95_t1(x)%sep=100.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='0038911_Atlas_ggH-WW-NWA_20.3fb-1' x=x+1 S95_t1(x)%id=0038912 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='[hep-ex] arXiv:1509.00389 (ATLAS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=20.3D0 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=300.0D0 S95_t1(x)%xmax=1000.0D0 S95_t1(x)%sep=100.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='0038912_Atlas_VBF-WW-NWA_20.3fb-1' x=x+1 S95_t1(x)%id=0038913 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='[hep-ex] arXiv:1509.00389 (ATLAS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=20.3D0 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=300.0D0 S95_t1(x)%xmax=1000.0D0 S95_t1(x)%sep=20.0D0 S95_t1(x)%deltax=20.0D0 filename(x)='0038913_Atlas_ggH-WW-CPS_20.3fb-1' x=x+1 S95_t1(x)%id=0038914 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='[hep-ex] arXiv:1509.00389 (ATLAS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=20.3D0 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=300.0D0 S95_t1(x)%xmax=1000.0D0 S95_t1(x)%sep=20.0D0 S95_t1(x)%deltax=20.0D0 filename(x)='0038914_Atlas_VBF-WW-CPS_20.3fb-1' ! x=x+1 ! S95_t1(x)%id=1487 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='[hep-ex] arXiv:1202.1487 (CMS)' ! S95_t1(x)%energy=7.0D0 ! S95_t1(x)%lumi=4.8D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=0.5D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='1487_CMS_H-gaga_4.8fb-1' ! x=x+1 ! S95_t1(x)%id=12001 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-12-001' ! S95_t1(x)%energy=7.0D0 ! S95_t1(x)%lumi=4.76D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=0.5D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='12001_CMS_H-gaga_BDT_4.8fb-1' ! x=x+1 ! S95_t1(x)%id=12015 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-12-015' ! S95_t1(x)%energy=8.0D0 ! S95_t1(x)%lumi=9.9D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=0.5D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='12015_CMS_H-gaga_9.9fb-1' ! x=x+1 S95_t1(x)%id=13001 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG-13-001' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=25.D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=150.0D0 S95_t1(x)%sep=0.5D0 S95_t1(x)%deltax=0.0D0 filename(x)='13001_CMS_H-gaga_MVA_25fb-1' x=x+1 S95_t1(x)%id=14037 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG-14-037' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=19.7D0 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=80.0D0 S95_t1(x)%xmax=110.0D0 S95_t1(x)%sep=0.5D0 S95_t1(x)%deltax=0.0D0 filename(x)='14037_CMS_H-gaga_19.7fb-1' x=x+1 S95_t1(x)%id=14031 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG-14-031' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=19.7D0 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=200.0D0 S95_t1(x)%xmax=500.0D0 S95_t1(x)%sep=1.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='14031_CMS_H-Zgamma-19.7fb-1' ! x=x+1 ! S95_t1(x)%id=14006 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-14-006' ! S95_t1(x)%energy=8.0D0 ! S95_t1(x)%lumi=19.7D0 ! S95_t1(x)%SMlike=0 ! S95_t1(x)%xmin=150.0D0 ! S95_t1(x)%xmax=847.6D0 ! S95_t1(x)%sep=0.1D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='14006_CMS_H-gaga_19.7fb-1' ! !-------------------- H -> gamma Z -------------------- ! x=x+1 ! S95_t1(x)%id=13006 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-13-006' ! S95_t1(x)%energy=8.0D0 ! S95_t1(x)%lumi=25.D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=120.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=1.D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='13006_CMS_H-gaZ_25fb-1' x=x+1 S95_t1(x)%id=13075515 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='[hep-ex] arXiv:1307.5515 (CMS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=24.6D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=120.0D0 S95_t1(x)%xmax=160.0D0 S95_t1(x)%sep=0.1D0 S95_t1(x)%deltax=0.0D0 filename(x)='13075515_CMS_H-Zgamma_24.6fb-1' ! x=x+1 ! S95_t1(x)%id=2013009 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='ATL' ! S95_t1(x)%label='ATLAS-CONF-2013-009' ! S95_t1(x)%energy=8.0D0 ! S95_t1(x)%lumi=25.D0 ! S95_t1(x)%SMlike=1 ! S95_t1(x)%xmin=120.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=1.D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='2013009_Atlas_H-gaZ_25fb-1' x=x+1 S95_t1(x)%id=3051 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='[hep-ex] arXiv:1402.3051 (ATLAS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=24.8D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=120.0D0 S95_t1(x)%xmax=150.0D0 S95_t1(x)%sep=0.1D0 S95_t1(x)%deltax=0.0D0 filename(x)='3051_Atlas_H-Zga_24.8fb-1' !--------------------- b H -> b tau tau --------------------------- x=x+1 S95_t1(x)%id=4885 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt=' D0' S95_t1(x)%label='[hep-ex] arXiv:1106.4885 (D0)' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=7.3D0 S95_t1(x)%xmin=90.0D0 S95_t1(x)%xmax=320.0D0 S95_t1(x)%sep=10.0D0 filename(x)='D0_Hb_tautaub_7.3fb_4885' ! x=x+1 ! S95_t1(x)%id=5985 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='D0 Note 5985' ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=2.7D0 ! S95_t1(x)%xmin=90.0D0 ! S95_t1(x)%xmax=320.0D0 ! S95_t1(x)%sep=10.0D0 ! filename(x)='D0_bH_btautau_2.7fb_5985' ! x=x+1 ! S95_t1(x)%id=5974 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='D0 Note 5974' ! S95_t1(x)%energy=1.96D0 ! S95_t1(x)%lumi=3.7D0 ! S95_t1(x)%xmin=90.0D0 ! S95_t1(x)%xmax=300.0D0 ! S95_t1(x)%sep=10.0D0 ! filename(x)='D0_Hb_tautaub_3.7fb_5974' x=x+1 S95_t1(x)%id=6083 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt=' D0' S95_t1(x)%label='D0 Note 6083' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=4.3D0 S95_t1(x)%xmin=90.0D0 S95_t1(x)%xmax=200.0D0 S95_t1(x)%sep=10.0D0 filename(x)='D0_Hb_tautaub_4.3fb_6083' !-------------------- t t H -> t t b b -------------------- x=x+1 S95_t1(x)%id=5739 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt=' D0' S95_t1(x)%label='D0 Note 5739' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=2.1D0 S95_t1(x)%xmin=105.0D0 S95_t1(x)%xmax=155.0D0 S95_t1(x)%sep=10.0D0 filename(x)='D0_ttH_ttbb_2.1fb_5739' x=x+1 S95_t1(x)%id=10574 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CDF' S95_t1(x)%label='CDF Note 10574' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=7.5D0 S95_t1(x)%xmin=100.0D0 S95_t1(x)%xmax=170.0D0 S95_t1(x)%sep=5.0D0 filename(x)='CDF_ttH_ttbb_7.5fb_10574_interpol' x=x+1 S95_t1(x)%id=2012135 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2012-135' S95_t1(x)%energy=7D0 S95_t1(x)%lumi=4.7D0 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=140.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='2012135_Atlas_ttH_Hbb_4.7fb-1' x=x+1 S95_t1(x)%id=12025 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG-12-025' S95_t1(x)%energy=7D0 S95_t1(x)%lumi=5.D0 S95_t1(x)%xmin=110.0D0 S95_t1(x)%xmax=140.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='12025_CMS_ttH-ttbb_5fb-1' !-------------------- H -> Z gamma -------------------------- x=x+1 S95_t1(x)%id=0611 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt=' D0' S95_t1(x)%label='[hep-ex] arXiv:0806.0611 (D0)' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=1.1D0 S95_t1(x)%xmin=120.0D0 S95_t1(x)%xmax=320.0D0 S95_t1(x)%sep=20.0D0 filename(x)='D0_H-Zgamma_1.0-1.1fb_0611' !x=x+1 !S95_t1(x)%id=6091 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt=' D0' !S95_t1(x)%label='D0 Note 6091' !S95_t1(x)%xmin=115.0D0 !S95_t1(x)%xmax=200.0D0 !S95_t1(x)%sep=5.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='D0_VH_ll_5.4fb_6091' !x=x+1 !S95_t1(x)%id=5858 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt=' D0' !S95_t1(x)%label='D0 Note 5858' !S95_t1(x)%xmin=100.0D0 !S95_t1(x)%xmax=150.0D0 !S95_t1(x)%sep=2.5D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='D0_gaga_4.2fb_5858' !x=x+1 !S95_t1(x)%id=10065 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='CDF Note 10065' !S95_t1(x)%xmin=100.0D0 !S95_t1(x)%xmax=150.0D0 !S95_t1(x)%sep=10.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='CDF_SM_Hgaga_5.4fb_10065' ! x=x+1 ! S95_t1(x)%id=0968 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='[hep-ex] arXiv:0912.0968 (D0)' ! S95_t1(x)%xmin=90.0D0 ! S95_t1(x)%xmax=320.0D0 ! S95_t1(x)%sep=10.0D0 ! filename(x)='D0_Hb_tautaub_2.7fb_0968' !---------------- Daniel's attempts -------------- x=x+1 S95_t1(x)%id=2016025 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-HIG-16-025' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=2.69D0 S95_t1(x)%xmin=550.0D0 S95_t1(x)%xmax=1200.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=10.0D0 filename(x)='2016025_CMS_H-bb_2.69fb-1' x=x+1 S95_t1(x)%id=201608391 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATLAS' S95_t1(x)%label='ATLAS-1606-08391' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=3.2D0 S95_t1(x)%xmin=20.0D0 S95_t1(x)%xmax=60.0D0 S95_t1(x)%sep=0.5D0 S95_t1(x)%deltax=10.0D0 filename(x)='160608391_Atlas_HW_Waa_Wbbbb_3.2fb-1' x=x+1 S95_t1(x)%id=2016044 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATLAS' S95_t1(x)%label='ATLAS-CONF-2016-044' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=13.3D0 S95_t1(x)%xmin=250.0D0 S95_t1(x)%xmax=2500.0D0 S95_t1(x)%sep=2D0 S95_t1(x)%deltax=10.0D0 filename(x)='2016044_Atlas_H_ZA_13.3fb-1' x=x+1 S95_t1(x)%id=2016004 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATLAS' S95_t1(x)%label='ATLAS-CONF-2016-004' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=3.2D0 S95_t1(x)%xmin=275.0D0 S95_t1(x)%xmax=400.0D0 S95_t1(x)%sep=1D0 S95_t1(x)%deltax=10.0D0 filename(x)='2016004_Atlas_H-hh-bbgaga_3.2fb-1' x=x+1 S95_t1(x)%id=1604833 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATLAS' S95_t1(x)%label='ATLAS-1606-04833' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=3.2D0 S95_t1(x)%xmin=500.0D0 S95_t1(x)%xmax=3000.0D0 S95_t1(x)%sep=10D0 S95_t1(x)%deltax=10.0D0 filename(x)='1604833_Atlas_H-VV_3.2fb-1' x=x+1 S95_t1(x)%id=2016056 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATLAS' S95_t1(x)%label='ATLAS-CONF-2016-056' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=13.3D0 S95_t1(x)%xmin=300.0D0 S95_t1(x)%xmax=1000.0D0 S95_t1(x)%sep=5D0 S95_t1(x)%deltax=10.0D0 filename(x)='2016056_Atlas_H-ZZ-llnunu_13.3fb-1' x=x+1 S95_t1(x)%id=20160551 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATLAS' S95_t1(x)%label='ATLAS-CONF-2016-055' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=15.5D0 S95_t1(x)%xmin=1200.0D0 S95_t1(x)%xmax=3000.0D0 S95_t1(x)%sep=100D0 S95_t1(x)%deltax=10.0D0 filename(x)='20160551_Atlas_pp-H-ZZ-qqqq_15.5fb-1' x=x+1 S95_t1(x)%id=20160552 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATLAS' S95_t1(x)%label='ATLAS-CONF-2016-055' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=15.5D0 S95_t1(x)%xmin=1200.0D0 S95_t1(x)%xmax=3000.0D0 S95_t1(x)%sep=100D0 S95_t1(x)%deltax=10.0D0 filename(x)='20160552_Atlas_pp-H-WW-qqqq_15.5fb-1' x=x+1 S95_t1(x)%id=15009 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG-2015-009' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=19.7D0 S95_t1(x)%xmin=25.0D0 S95_t1(x)%xmax=60.0D0 S95_t1(x)%sep=0.1D0 S95_t1(x)%deltax=1.0D0 filename(x)='15009_CMS_bbA_mumu_19.7fb-1' !---------------- charged Higgs ------------------ x=x+1 S95_t1(x)%id=1811 S95_t1(x)%particle_x=Hplus S95_t1(x)%expt=' D0' S95_t1(x)%label='[hep-ex] arXiv:0908.1811 (D0)' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=1.0D0 S95_t1(x)%xmin=80.0D0 S95_t1(x)%xmax=155.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='D0_Hp_qq_1.0fb_1811_interpol' x=x+1 S95_t1(x)%id=1269 S95_t1(x)%particle_x=Hplus S95_t1(x)%expt='CDF' S95_t1(x)%label='[hep-ex] arXiv:0907.1269 (CDF) lower mass' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=2.2D0 S95_t1(x)%xmin=60.0D0 S95_t1(x)%xmax=70.0D0 S95_t1(x)%sep=10.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='CDF_t-Hplusb_1269_lowmass' x=x+1 S95_t1(x)%id=1270 S95_t1(x)%particle_x=Hplus S95_t1(x)%expt='CDF' S95_t1(x)%label='[hep-ex] arXiv:0907.1269 (CDF) higher mass' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=2.2D0 S95_t1(x)%xmin=90.0D0 S95_t1(x)%xmax=150.0D0 S95_t1(x)%sep=10.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='CDF_t-Hplusb_1269_highmass' x=x+1 S95_t1(x)%id=7712 S95_t1(x)%particle_x=Hplus S95_t1(x)%expt='CDF' S95_t1(x)%label='CDF Note 7712' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=0.192D0 S95_t1(x)%xmin=80.0D0 S95_t1(x)%xmax=160.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='CDF_t-Hplusb_tauonicHM_192pb_7712' x=x+1 S95_t1(x)%id=8353 S95_t1(x)%particle_x=Hplus S95_t1(x)%expt='CDF' S95_t1(x)%label='CDF Note 8353' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=0.335D0 S95_t1(x)%xmin=80.0D0 S95_t1(x)%xmax=120.0D0 S95_t1(x)%sep=10.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='CDF_t-Hplusb_8353' x=x+1 S95_t1(x)%id=1812 S95_t1(x)%particle_x=Hplus S95_t1(x)%expt=' D0' S95_t1(x)%label='[hep-ex] arXiv:0908.1811 (D0)' S95_t1(x)%energy=1.96D0 S95_t1(x)%lumi=1.0D0 S95_t1(x)%xmin=80.0D0 S95_t1(x)%xmax=155.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='D0_Hp_taunu_1.0fb_1811_interpol' x=x+1 S95_t1(x)%id=2011094 S95_t1(x)%particle_x=Hplus S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2011-094' S95_t1(x)%energy=7.0D0 S95_t1(x)%lumi=0.035D0 S95_t1(x)%xmin=90.0D0 S95_t1(x)%xmax=130.0D0 S95_t1(x)%sep=20.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='2011094_Atlas_Hplus-cs_35pb-1' ! x=x+1 ! S95_t1(x)%id=2011138 ! S95_t1(x)%particle_x=Hplus ! S95_t1(x)%expt='ATL' ! S95_t1(x)%label='ATLAS-CONF-2011-138' ! S95_t1(x)%energy=7.0D0 ! S95_t1(x)%lumi=1.03D0 ! S95_t1(x)%xmin=90.0D0 ! S95_t1(x)%xmax=160.0D0 ! S95_t1(x)%sep=10.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='2011138_Atlas_Hp-taunu_1.03fb-1' ! x=x+1 ! S95_t1(x)%id=2011151 ! S95_t1(x)%particle_x=Hplus ! S95_t1(x)%expt='ATL' ! S95_t1(x)%label='ATLAS-CONF-2011-151' ! S95_t1(x)%energy=7.0D0 ! S95_t1(x)%lumi=1.03D0 ! S95_t1(x)%xmin=90.0D0 ! S95_t1(x)%xmax=160.0D0 ! S95_t1(x)%sep=10.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='2011151_Atlas_chargedH-taunu_1.03fb-1' x=x+1 S95_t1(x)%id=2760 S95_t1(x)%particle_x=Hplus S95_t1(x)%expt='ATL' S95_t1(x)%label='[hep-ex] arXiv:1204.2760 (ATLAS)' S95_t1(x)%energy=7.0D0 S95_t1(x)%lumi=4.6D0 S95_t1(x)%xmin=90.0D0 S95_t1(x)%xmax=160.0D0 S95_t1(x)%sep=10.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='2760_Atlas_Hp_taunu_4.6fb-1' ! x=x+1 ! S95_t1(x)%id=2013090 ! S95_t1(x)%particle_x=Hplus ! S95_t1(x)%expt='ATL' ! S95_t1(x)%label='ATLAS-CONF-2013-090' ! S95_t1(x)%energy=8.0D0 ! S95_t1(x)%lumi=19.5D0 ! S95_t1(x)%xmin=90.0D0 ! S95_t1(x)%xmax=160.0D0 ! S95_t1(x)%sep=10.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='2013090_Atlas_Hp_taunu_19.6fb-1' x=x+1 S95_t1(x)%id=2014050 S95_t1(x)%particle_x=Hplus S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2014-050' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=19.5D0 S95_t1(x)%xmin=80.0D0 S95_t1(x)%xmax=160.0D0 S95_t1(x)%sep=10.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='2014050_Atlas_Hp_taunu_19.5fb-1' x=x+1 S95_t1(x)%id=79151 S95_t1(x)%particle_x=Hplus S95_t1(x)%expt='ATL' S95_t1(x)%label='[hep-ex] arXiv:1807.07915 (ATLAS)' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=36.1D0 S95_t1(x)%xmin=90.0D0 S95_t1(x)%xmax=2000.0D0 S95_t1(x)%sep=10.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='079151_Atlas_tbHp-taunu_36fb-1' x=x+1 S95_t1(x)%id=79152 S95_t1(x)%particle_x=Hplus S95_t1(x)%expt='ATL' S95_t1(x)%label='[hep-ex] arXiv:1807.07915 (ATLAS)' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=36.1D0 S95_t1(x)%xmin=90.0D0 S95_t1(x)%xmax=160.0D0 S95_t1(x)%sep=10.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='079152_Atlas_t-Hpb-taunu_36fb-1' ! x=x+1 ! S95_t1(x)%id=11008 ! S95_t1(x)%particle_x=Hplus ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-008' ! S95_t1(x)%energy=7.0D0 ! S95_t1(x)%lumi=1.1D0 ! S95_t1(x)%xmin=80.0D0 ! S95_t1(x)%xmax=160.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='11008_CMS_Hplus-taunu_1.1fb-1_interpol' x=x+1 S95_t1(x)%id=14020 S95_t1(x)%particle_x=Hplus S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG-14-020' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=19.7D0 S95_t1(x)%xmin=80.0D0 S95_t1(x)%xmax=160.0D0 S95_t1(x)%sep=10.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='14020_CMS_Hp_taunu_19.7fb-1' x=x+1 S95_t1(x)%id=13035 S95_t1(x)%particle_x=Hplus S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG-13-035' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=19.7D0 S95_t1(x)%xmin=90.0D0 S95_t1(x)%xmax=160.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='13035_CMS_chargedH-cs_19.7fb-1' x=x+1 S95_t1(x)%id=16030 S95_t1(x)%particle_x=Hplus S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG-16-030' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=19.7D0 S95_t1(x)%xmin=90.0D0 S95_t1(x)%xmax=150.0D0 S95_t1(x)%sep=10.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='16030_CMS_t_Hplusb_cb_19.7fb-1' ! HB-5 x=x+1 S95_t1(x)%id=1504233 S95_t1(x)%particle_x=Hplus S95_t1(x)%expt='ATLAS' S95_t1(x)%label='arXiv:1503.04233 [hep-ex] (ATLAS)' S95_t1(x)%energy=8.0D0 S95_t1(x)%lumi=20.3D0 S95_t1(x)%xmin=200.0D0 S95_t1(x)%xmax=1000.0D0 S95_t1(x)%sep=20.0D0 S95_t1(x)%deltax=10.0D0 filename(x)='1504233_Atlas_Hplus_VBF-WZ_20.3fb-1' x=x+1 S95_t1(x)%id=160312 S95_t1(x)%particle_x=Hplus S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG-16-031' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=12.9D0 S95_t1(x)%xmin=180.0D0 S95_t1(x)%xmax=3000.0D0 S95_t1(x)%sep=10.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='16031_CMS_Hptb_taunu_12.9fb-1' x=x+1 S95_t1(x)%id=160311 S95_t1(x)%particle_x=Hplus S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG-16-031' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=12.9D0 S95_t1(x)%xmin=80.0D0 S95_t1(x)%xmax=160.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='160311_CMS_t_Hplusb_taunu_12.9fb-1' x=x+1 S95_t1(x)%id=2016088 S95_t1(x)%particle_x=Hplus S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2016-088' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=14.7D0 S95_t1(x)%xmin=200.0D0 S95_t1(x)%xmax=2000.0D0 S95_t1(x)%sep=25.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='2016088_Atlas_Hptb-taunutb_14.7fb-1' x=x+1 S95_t1(x)%id=2016089 S95_t1(x)%particle_x=Hplus S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2016-089' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=13.2D0 S95_t1(x)%xmin=300.0D0 S95_t1(x)%xmax=1000.0D0 S95_t1(x)%sep=50.0D0 S95_t1(x)%deltax=0.0D0 filename(x)='2016089_Atlas_Hptb-tbtb_13.2fb-1' !---------------------------------------------- !&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& ! superseded !x=x+1 !superseded by arXiv:1011.1931 !S95_t1(x)%id=3556 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt=' D0' !S95_t1(x)%label='[hep-ex] arXiv:0805.3556 (D0)' !S95_t1(x)%xmin=90.0D0 !S95_t1(x)%xmax=220.0D0 !S95_t1(x)%sep=10.0D0 !filename(x)='D0_bbH_bb_1.0fb_3556_interpol' !x=x+1 !superseded by arXiv:1009.3047 !S95_t1(x)%id=3534 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='[hep-ex] arXiv:0908.3534 (CDF)' !S95_t1(x)%xmin=100.0D0 !S95_t1(x)%xmax=150.0D0 !S95_t1(x)%sep=5.0D0 !filename(x)='CDF_ZH_llbb_2.7fb_3534' !x=x+1 !superseded by CDF 10239 !S95_t1(x)%id=10217 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='CDF Note 10217' !S95_t1(x)%xmin=100.0D0 !S95_t1(x)%xmax=150.0D0 !S95_t1(x)%sep=5.0D0 !filename(x)='CDF_WH_lnubb_5.6fb_10217' !x=x+1 !superseded by CDF Note 10133 !S95_t1(x)%id=9248 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='CDF Note 9248' !S95_t1(x)%xmin=110.0D0 !S95_t1(x)%xmax=150.0D0 !S95_t1(x)%sep=5.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='CDF_SMcomb_tautau_2.0fb_9248_interpol' !x=x+1 !superseded by arXiv:1012.0874 !S95_t1(x)%id=1970 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt=' D0' !S95_t1(x)%label='[hep-ex] arXiv:0808.1970 (D0)' !S95_t1(x)%xmin=100.0D0 !S95_t1(x)%xmax=150.0D0 !S95_t1(x)%sep=5.0D0 !filename(x)='D0_WH_lnubb_1.05fb_1970' !x=x+1 !S95_t1(x)%id=6095 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt=' D0' !S95_t1(x)%label='D0 Note 6095' !S95_t1(x)%xmin=115.0D0 !S95_t1(x)%xmax=200.0D0 !S95_t1(x)%sep=5.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='D0_H-WW_lljj_5.4fb_6095' !x=x+1 !S95_t1(x)%id=5972 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt=' D0' !S95_t1(x)%label='D0 Note 5972' !S95_t1(x)%xmin=100.0D0 !S95_t1(x)%xmax=150.0D0 !S95_t1(x)%sep=5.0D0 !filename(x)='D0_WH_lnubb_5.0fb_5972' !x=x+1 !S95_t1(x)%id=10068 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='CDF Note 10068' !S95_t1(x)%xmin=100.0D0 !S95_t1(x)%xmax=150.0D0 !S95_t1(x)%sep=5.0D0 !filename(x)='CDF_WH_lnubb_4.8fb_10068' !x=x+1 !S95_t1(x)%id=5586 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt=' D0' !S95_t1(x)%label='D0 Note 5586' !S95_t1(x)%xmin=105.0D0 !S95_t1(x)%xmax=145.0D0 !S95_t1(x)%sep=10.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='D0_ZH_nunubb_2.1fb_5586' !x=x+1 !S95_t1(x)%id=9891 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='CDF Note 9891' !S95_t1(x)%xmin=100.0D0 !S95_t1(x)%xmax=150.0D0 !S95_t1(x)%sep=5.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='CDF_VH_Metbb_3.6fb_9891' !x=x+1 !S95_t1(x)%id=5876 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt=' D0' !S95_t1(x)%label='D0 Note 5876' !S95_t1(x)%xmin=100.0D0 !S95_t1(x)%xmax=150.0D0 !S95_t1(x)%sep=5.0D0 !filename(x)='D0_ZH_llbb_4.2fb_5876' !x=x+1 !S95_t1(x)%id=9889 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='CDF Note 9889' !S95_t1(x)%xmin=100.0D0 !S95_t1(x)%xmax=150.0D0 !S95_t1(x)%sep=5.0D0 !filename(x)='CDF_ZH_llbb_4.1fb_9889' !x=x+1 !S95_t1(x)%id=9284 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='CDF Note 9284' !S95_t1(x)%xmin=90.0D0 !S95_t1(x)%xmax=210.0D0 !S95_t1(x)%sep=10.0D0 !filename(x)='CDF_bbH_bb_1.9fb_9284' !x=x+1 !S95_t1(x)%id=9868 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='CDF Note 9868' !S95_t1(x)%xmin=100.0D0 !S95_t1(x)%xmax=150.0D0 !S95_t1(x)%sep=5.0D0 !filename(x)='CDF_WH_lnubb_4.3fb_9868' !http://www-cdf.fnal.gov/physics/new/hdg/results/whlnubb_090814/WH4.3fb.html !x=x+1 !S95_t1(x)%id=9887 !superseded by arXiv:1001.4468 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='CDF Note 9887' !S95_t1(x)%xmin=110.0D0 !S95_t1(x)%xmax=200.0D0 !S95_t1(x)%sep=5.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='CDF_H-WW_4.8fb_9887_interpol' !x=x+1 !S95_t1(x)%id=0024 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt=' D0' !S95_t1(x)%label='[hep-ex] arXiv:0811.0024v1 (D0)' !S95_t1(x)%xmin=90.0D0 !S95_t1(x)%xmax=150.0D0 !S95_t1(x)%sep=10.0D0 !filename(x)='D0_bH_btautau_328pb_0024' !x=x+1 !S95_t1(x)%id=1266 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt=' D0' !S95_t1(x)%label='[hep-ex] arXiv:0808.1266 (D0)' !S95_t1(x)%xmin=105.0D0 !S95_t1(x)%xmax=135.0D0 !S95_t1(x)%sep=10.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='D0_VH_bb_0.93fb_1266' !x=x+1 !S95_t1(x)%id=0432 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='[hep-ex] arXiv:0802.0432 (CDF)' !S95_t1(x)%xmin=110.0D0 !S95_t1(x)%xmax=140.0D0 !S95_t1(x)%sep=5.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='CDF_VH_Metbb_1fb_0432' !x=x+1 !S95_t1(x)%id=9674 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='CDF Note 9674' !S95_t1(x)%xmin=100.0D0 !S95_t1(x)%xmax=200.0D0 !S95_t1(x)%sep=5.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='CDF_SM_combined_2.0-3.0fb_9674_interpol' !x=x+1 !S95_t1(x)%id=5980 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='TCB' !S95_t1(x)%label='D0 Note 5980, CDF Note 9888' !S95_t1(x)%xmin=100.0D0 !S95_t1(x)%xmax=200.0D0 !S95_t1(x)%sep=10.0D0 !filename(x)='CDF_D0_combinedH-tautau_2.2fb_5980' !x=x+1 !S95_t1(x)%id=9714 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='TCB' !S95_t1(x)%label='arXiv:0903.4001 (TEVNPHWG), MH>=155GeV'!CDF Note 9713, D0 Note 5889 !S95_t1(x)%xmin=155.0D0 !S95_t1(x)%xmax=200.0D0 !S95_t1(x)%sep=5.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='CDF_D0_SM_combined_4.2fb_9713-5889_bayesian_highmassonly' !x=x+1 !S95_t1(x)%id=9897 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='CDF Note 9897' !S95_t1(x)%xmin=100.0D0 !S95_t1(x)%xmax=200.0D0 !S95_t1(x)%sep=5.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='CDF_SM_combined_2.0-4.8fb_9897_interpol' !x=x+1 !S95_t1(x)%id=8742 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='CDF Note 8742' ! table from CDF note 8742 !S95_t1(x)%xmin=100.0D0 !S95_t1(x)%xmax=150.0D0 !S95_t1(x)%sep=5.0D0 !filename(x)='CDF_ZH_llbb_1fb_8742_interpol' ! x=x+1 ! S95_t1(x)%id=7081 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CDF' ! S95_t1(x)%label='arxiv 070810 (CDF)' ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='CDF_ZH_nunubb_1.7fb_070810_interpol' ! ! x=x+1 ! ! S95_t1(x)%id=8958 ! ! S95_t1(x)%particle_x=Hneut ! ! S95_t1(x)%expt='CDF' ! ! S95_t1(x)%label='CDF Note 8958' ! ! S95_t1(x)%xmin=110.0D0 ! ! S95_t1(x)%xmax=200.0D0 ! ! S95_t1(x)%sep=10.0D0 ! ! filename(x)='CDF_ggH_WW_1.9fb_8958' ! x=x+1 ! S95_t1(x)%id=8957 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CDF' ! S95_t1(x)%label='CDF Note 8957' ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=5.0D0 ! filename(x)='CDF_WH_lnubb_1.7fb_8957_interpol' ! x=x+1 ! S95_t1(x)%id=5489 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='D0 Note 5489' ! S95_t1(x)%xmin=120.0D0 ! S95_t1(x)%xmax=200.0D0 ! S95_t1(x)%sep=20.0D0 ! filename(x)='D0_ppH_WW_emu_0.6fb_5489' !x=x+1 !S95_t1(x)%id=5537 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt=' D0' !S95_t1(x)%label='D0 Note 5537' !S95_t1(x)%xmin=120.0D0 !S95_t1(x)%xmax=200.0D0 !S95_t1(x)%sep=20.0D0 !filename(x)='D0_ppH_WW_ll_1.7fb_5537' ! x=x+1 ! S95_t1(x)%id=5482 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='D0 Note 5482' ! S95_t1(x)%xmin=105.0D0 ! S95_t1(x)%xmax=145.0D0 ! S95_t1(x)%sep=10.0D0 ! filename(x)='D0_ZH_llbb_1.1fb_5482' ! x=x+1 ! S95_t1(x)%id=5624 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='D0 Note 5624' ! S95_t1(x)%xmin=115.0D0 ! S95_t1(x)%xmax=200.0D0 ! S95_t1(x)%sep=5.0D0 ! filename(x)='D0_ppH_WW_ll_2.3fb_5624' !x=x+1 !S95_t1(x)%id=5472 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt=' D0' !S95_t1(x)%label='D0 Note 5472' !S95_t1(x)%xmin=105.0D0 !S95_t1(x)%xmax=145.0D0 !S95_t1(x)%sep=10.0D0 !!filename(x)='D0_WH_lnubb_1.7fb_5472' !filename(x)='D0_WH_lnubb_1.7fb_5472_Fig.6a' !x=x+1 !S95_t1(x)%id=5502 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt=' D0' !S95_t1(x)%label='D0 Note 5502' !S95_t1(x)%xmin=120.0D0 !S95_t1(x)%xmax=200.0D0 !S95_t1(x)%sep=20.0D0 !filename(x)='D0_ppH_WW_ee_0.6fb_5502' !x=x+1 !S95_t1(x)%id=5332 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt=' D0' !S95_t1(x)%label='D0 Note 5332' !S95_t1(x)%xmin=120.0D0 !S95_t1(x)%xmax=180.0D0 !S95_t1(x)%sep=20.0D0 !filename(x)='D0_ppH_WW_mutau_1fb_5332' !x=x+1 !S95_t1(x)%id=5485 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt=' D0' !S95_t1(x)%label='D0 Note 5485' !S95_t1(x)%xmin=120.0D0 !S95_t1(x)%xmax=200.0D0 !S95_t1(x)%sep=20.0D0 !filename(x)='D0_WH_WWW_llnunu_1fb_5485' !x=x+1 !S95_t1(x)%id=9071 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='CDF Note 9071' !S95_t1(x)%xmin=90.0D0 !S95_t1(x)%xmax=250.0D0 !S95_t1(x)%sep=10.0D0 !filename(x)='CDF_ppH_tautau_1.8fb_9071_interpol' !x=x+1 !S95_t1(x)%id=5331 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt=' D0' !S95_t1(x)%label='D0 Note 5331' !S95_t1(x)%xmin=90.0D0 !S95_t1(x)%xmax=200.0D0 !S95_t1(x)%sep=10.0D0 !filename(x)='D0_ppH_tautau_1fb_5331_interpol' ! x=x+1 ! S95_t1(x)%id=5503 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='D0 Note 5503' ! S95_t1(x)%xmin=100.0D0 ! S95_t1(x)%xmax=170.0D0 ! S95_t1(x)%sep=10.0D0 ! filename(x)='D0_bbH_bb_0.9fb_5503_interpol' !x=x+1 !S95_t1(x)%id=8954 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='CDF Note 8954' !S95_t1(x)%xmin=90.0D0 !S95_t1(x)%xmax=210.0D0 !S95_t1(x)%sep=10.0D0 !filename(x)='CDF_bbH_bb_1fb_8954' ! x=x+1 ! S95_t1(x)%id=9236 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CDF' ! S95_t1(x)%label='CDF Note 9236' ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=200.0D0 ! S95_t1(x)%sep=10.0D0 ! filename(x)='CDF_ggH_WW_2.4fb_9236' ! x=x+1 ! S95_t1(x)%id=9219 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CDF' ! S95_t1(x)%label='CDF Note 9219' ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=5.0D0 ! filename(x)='CDF_WH_lnubb_1.9fb_9219' ! x=x+1 ! S95_t1(x)%id=5601 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='D0 Note 5601' ! S95_t1(x)%xmin=100.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=10.0D0 ! filename(x)='D0_Hgaga_2.27fb_5601' !taken out until we sort out a fermiophobic-ness test !x=x+1 !S95_t1(x)%id=1514 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt=' D0' !S95_t1(x)%label='[hep-ex] arXiv:0803.1514v1 (D0)' !S95_t1(x)%xmin=70.0D0 !S95_t1(x)%xmax=150.0D0 !S95_t1(x)%sep=10.0D0 !filename(x)='D0_gaga_1.1fb_1514' ! x=x+1 ! S95_t1(x)%id=9166 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CDF' ! S95_t1(x)%label='CDF Note 9166' ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='CDF_VH_Metbb_1.97fb_9166_interpol' !x=x+1 !S95_t1(x)%id=9463 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='CDF Note 9463' !S95_t1(x)%xmin=100.0D0 !S95_t1(x)%xmax=150.0D0 !S95_t1(x)%sep=5.0D0 !filename(x)='CDF_WH_lnubb_2.7fb_9463' !x=x+1 !S95_t1(x)%id=5570 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt=' D0' !S95_t1(x)%label='D0 Note 5570' !S95_t1(x)%xmin=100.0D0 !S95_t1(x)%xmax=150.0D0 !S95_t1(x)%sep=5.0D0 !filename(x)='D0_ZH_llbb_2.3fb_5570' !x=x+1 !S95_t1(x)%id=4493 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='[hep-ex] arXiv:0807.4493 (CDF)' !S95_t1(x)%xmin=110.0D0 !S95_t1(x)%xmax=150.0D0 !S95_t1(x)%sep=5.0D0 !filename(x)='CDF_ZH_llbb_1fb_4493_interpol' !x=x+1 !S95_t1(x)%id=9475 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='CDF Note 9475' !S95_t1(x)%xmin=100.0D0 !S95_t1(x)%xmax=150.0D0 !S95_t1(x)%sep=5.0D0 !filename(x)='CDF_ZH_llbb_2.4fb_9475' !x=x+1 !S95_t1(x)%id=5737 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt=' D0' !S95_t1(x)%label='D0 Note 5737' !S95_t1(x)%xmin=100.0D0 !S95_t1(x)%xmax=150.0D0 !S95_t1(x)%sep=5.0D0 !filename(x)='D0_gaga_2.68fb_5737' !x=x+1 !S95_t1(x)%id=9483 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='CDF note 9483' !S95_t1(x)%xmin=105.0D0 !S95_t1(x)%xmax=150.0D0 !S95_t1(x)%sep=5.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='CDF_VH_Metbb_2.1fb_9483' !x=x+1 !S95_t1(x)%id=9500 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='CDF Note 9500' !S95_t1(x)%xmin=110.0D0 !S95_t1(x)%xmax=200.0D0 !S95_t1(x)%sep=5.0D0 !filename(x)='CDF_ggH_WW_3.0fb_9500_interpol' !x=x+1 !S95_t1(x)%id=9713 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='TCB' !S95_t1(x)%label='CDF Note 9713, D0 Note 5889' !S95_t1(x)%xmin=100.0D0 !S95_t1(x)%xmax=200.0D0 !S95_t1(x)%sep=5.0D0 !filename(x)='CDF_D0_SM_combined_4.2fb_9713-5889_bayesian' ! x=x+1 ! S95_t1(x)%id=1024 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CDF' ! S95_t1(x)%label='CDF Note XXXX, zhllbb_081024' ! S95_t1(x)%xmin=100.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=5.0D0 ! filename(x)='CDF_ZH_llbb_2.7fb_1024' !x=x+1 !S95_t1(x)%id=9596 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='CDF Note 9596' !S95_t1(x)%xmin=100.0D0 !S95_t1(x)%xmax=150.0D0 !S95_t1(x)%sep=5.0D0 !filename(x)='CDF_WH_lnubb_2.7fb_9596' ! x=x+1 ! S95_t1(x)%id=5828 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='D0 Note 5828' ! S95_t1(x)%xmin=100.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=5.0D0 ! filename(x)='D0_WH_lnubb_2.7fb_5828' !x=x+1 !S95_t1(x)%id=9642 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='CDF Note 9642' !S95_t1(x)%xmin=105.0D0 !S95_t1(x)%xmax=150.0D0 !S95_t1(x)%sep=5.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='CDF_VH_Metbb_2.1fb_9642' ! x=x+1 ! S95_t1(x)%id=9022 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CDF' ! S95_t1(x)%label='CDF Note 9764,"old" ggH XS' ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=200.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='CDF_H-WW_3.6fb_9022_interpol' !NEW! not yet in OB's code !x=x+1 !S95_t1(x)%id=9023 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='CDF Note 9764,"new" ggH XS' !S95_t1(x)%xmin=110.0D0 !S95_t1(x)%xmax=200.0D0 !S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 !filename(x)='CDF_H-WW_3.6fb_9023_interpol' ! x=x+1 ! S95_t1(x)%id=3493 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CDF' ! S95_t1(x)%label='[hep-ex] arXiv:0803.3493v1 (CDF)' ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=5.0D0 ! filename(x)='CDF_WH_lnubb_1fb_3493_interpol' !x=x+1 !S95_t1(x)%id=0710 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='CDF Note XXXX,hwwmenn_090710' !S95_t1(x)%xmin=110.0D0 !S95_t1(x)%xmax=200.0D0 !S95_t1(x)%sep=5.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='CDF_H-WW_4.8fb_0710_interpol' !x=x+1 !S95_t1(x)%id=5984 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt=' D0' !S95_t1(x)%label='D0 Note 5984,high mass' !S95_t1(x)%xmin=155.0D0 !S95_t1(x)%xmax=200.0D0 !S95_t1(x)%sep=5.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='D0_SM_combined_5984_highmassonly' !x=x+1 !S95_t1(x)%id=3155 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='[hep-ex] arXiv:0905.3155 (CDF)' !S95_t1(x)%xmin=110.0D0 !S95_t1(x)%xmax=150.0D0 !S95_t1(x)%sep=5.0D0 !filename(x)='CDF_WH_lnubb_1.9fb_3155_interpol' ! x=x+1 ! S95_t1(x)%id=9997 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='TCB' ! S95_t1(x)%label='arXiv:0911.3930 (TEVNPHWG), MH>=160GeV'!CDF Note 9998, D0 Note 5983 ! S95_t1(x)%xmin=160.0D0 ! S95_t1(x)%xmax=200.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='CDF_D0_SM_combined_2.1-5.4fb_9998-5983_bayesian_highmassonly' !x=x+1 !S95_t1(x)%id=6039 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='TCB' !S95_t1(x)%label='CDF Note 10101, D0 Note 6039' !S95_t1(x)%xmin=110.0D0 !S95_t1(x)%xmax=260.0D0 !S95_t1(x)%sep=5.0D0 !filename(x)='CDF_D0_combined_gg-H-WW_4.8-5.4fb_6039_bayesian_interpol' !x=x+1 !S95_t1(x)%id=6006 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt=' D0' !S95_t1(x)%label='D0 Note 6006' !S95_t1(x)%xmin=115.0D0 !S95_t1(x)%xmax=200.0D0 !S95_t1(x)%sep=5.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='D0_H-WW_ll_5.4fb_6006' !x=x+1 !S95_t1(x)%id=2011026 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='ATL' !S95_t1(x)%label='ATLAS-CONF-2011-026' !S95_t1(x)%xmin=200.0D0 !S95_t1(x)%xmax=600.0D0 !S95_t1(x)%sep=20.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='2011026_Atlas_H-VV_35pb-1' !x=x+1 !superseded by 2011085 !S95_t1(x)%id=2011025 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='ATL' !S95_t1(x)%label='ATLAS-CONF-2011-025' !S95_t1(x)%xmin=110.0D0 !S95_t1(x)%xmax=140.0D0 !S95_t1(x)%sep=5.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='2011025_Atlas_H-gaga_37.6pb-1_interpol' !x=x+1 !S95_t1(x)%id=2011005 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='ATL' !S95_t1(x)%label='ATLAS-CONF-2011-005' !S95_t1(x)%xmin=120.0D0 !S95_t1(x)%xmax=200.0D0 !S95_t1(x)%sep=5.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='2011005_Atlas_H-WW_35pb-1_interpol' !x=x+1 !S95_t1(x)%id=10433 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='CDF Note 10432' !S95_t1(x)%xmin=110.0D0 !S95_t1(x)%xmax=300.0D0 !S95_t1(x)%sep=5.0D0 !filename(x)='CDF_ggH-WW_7.1fb_10433_SMnormalized' !x=x+1 !S95_t1(x)%id=10432 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='CDF' !S95_t1(x)%label='CDF Note 10432' !S95_t1(x)%xmin=110.0D0 !S95_t1(x)%xmax=200.0D0 !S95_t1(x)%sep=5.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='CDF_H-WW_7.1fb_10432' ! x=x+1 ! S95_t1(x)%id=6170 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='D0 Note 6170' ! S95_t1(x)%xmin=100.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='D0_ZH_bb_6.2fb_6170' ! x=x+1 ! S95_t1(x)%id=6182 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='D0 Note 6182' ! S95_t1(x)%xmin=115.0D0 ! S95_t1(x)%xmax=200.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='D0_H-VV_8.1fb_6182' !x=x+1 superseded by 2011131 !S95_t1(x)%id=2011048 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='ATL' !S95_t1(x)%label='ATLAS-CONF-2011-048' !S95_t1(x)%xmin=120.0D0 !S95_t1(x)%xmax=600.0D0 !S95_t1(x)%sep=5.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='2011048_Atlas_H-ZZ-4l_40pb-1_interpol' !x=x+1 !S95_t1(x)%id=2011085 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='ATL' !S95_t1(x)%label='ATLAS-CONF-2011-085' !S95_t1(x)%xmin=110.0D0 !S95_t1(x)%xmax=140.0D0 !S95_t1(x)%sep=1.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='2011085_Atlas_H-gaga_209pb-1' ! x=x+1 ! S95_t1(x)%id=2748 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='ATL' ! S95_t1(x)%label='[hep-ex] arXiv:1106.2748 (ATLAS)' ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='2748_Atlas_SMcombined_40pb-1' !x=x+1 !S95_t1(x)%id=11002 !S95_t1(x)%particle_x=Hplus !S95_t1(x)%expt='CMS' !S95_t1(x)%label='CMS-PAS-HIG-11-002' !S95_t1(x)%xmin=80.0D0 !S95_t1(x)%xmax=160.0D0 !S95_t1(x)%sep=5.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='11002_CMS_t-Hplusb_36pb-1' !x=x+1 !S95_t1(x)%id=2011020 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='ATL' !S95_t1(x)%label='ATLAS-CONF-2011-020, lower masses' !S95_t1(x)%xmin=6.1D0 !S95_t1(x)%xmax=9.0D0 !S95_t1(x)%sep=0.1D0 !filename(x)='2011020_Atlas_H-mumu_lowerMa_35pb-1' !x=x+1 !S95_t1(x)%id=2011021 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='ATL' !S95_t1(x)%label='ATLAS-CONF-2011-020, higher masses' !S95_t1(x)%xmin=11.0D0 !S95_t1(x)%xmax=11.9D0 !S95_t1(x)%sep=0.1D0 !filename(x)='2011021_Atlas_H-mumu_higherMa_35pb-1' ! x=x+1 ! S95_t1(x)%id=11003 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-003' ! S95_t1(x)%xmin=115.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='11003_CMS_H-WW_1.1fb-1_interpol' ! x=x+1 ! S95_t1(x)%id=11004 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-004' ! S95_t1(x)%xmin=120.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=10.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='11004_CMS_H-ZZ-llll_1.13fb-1' ! x=x+1 ! S95_t1(x)%id=11005 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-005' ! S95_t1(x)%xmin=250.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=10.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='11005_CMS_H-ZZ-llnunu_1.1fb-1' ! x=x+1 ! S95_t1(x)%id=11006 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-006' ! S95_t1(x)%xmin=230.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='11006_CMS_H-ZZ-llqq_1fb-1' ! x=x+1 ! S95_t1(x)%id=11009 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-009' ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=140.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='11009_CMS_SM_H-tautau_1.1fb-1' ! x=x+1 ! S95_t1(x)%id=11010 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-010' ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=140.0D0 ! S95_t1(x)%sep=1.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='11010_CMS_H-gammagamma_1.09fb-1' !x=x+1 !S95_t1(x)%id=2011111 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='ATL' !S95_t1(x)%label='ATLAS-CONF-2011-111' !S95_t1(x)%xmin=110.0D0 !S95_t1(x)%xmax=240.0D0 !S95_t1(x)%sep=5.0D0 !filename(x)='2011111_Atlas_H-WW_1.04fb-1_interpol' !x=x+1 !S95_t1(x)%id=2011131 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='ATL' !S95_t1(x)%label='ATLAS-CONF-2011-131' !S95_t1(x)%xmin=110.0D0 !S95_t1(x)%xmax=600.0D0 !S95_t1(x)%sep=2.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='2011131_Atlas_H-ZZ_1.1fb-1_interpol' ! x=x+1 ! S95_t1(x)%id=11012 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-012' ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=135.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='11012_CMS_H-bb_1.1fb-1' ! x=x+1 ! S95_t1(x)%id=11013 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-013' ! S95_t1(x)%xmin=180.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=10.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='11013_CMS_H-ZZ-lltautau_1.1fb-1' ! x=x+1 ! S95_t1(x)%id=11014 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-014' ! S95_t1(x)%xmin=115.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='11014_CMS_H-WW_1.55fb-1_interpol' ! x=x+1 ! S95_t1(x)%id=11015 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-015' ! S95_t1(x)%xmin=115.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='11015_CMS_H-ZZ-4l_1.66fb-1_interpol' ! x=x+1 ! S95_t1(x)%id=11016 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-016' ! S95_t1(x)%xmin=250.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='11016_CMS_H-ZZ-llnunu_1.6fb-1_interpol' ! x=x+1 ! S95_t1(x)%id=11017 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-017' ! S95_t1(x)%xmin=225.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='11017_CMS_H-ZZ-llqq_1.6fb-1_interpol' ! x=x+1 ! S95_t1(x)%id=11020 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-020' ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=145.0D0 ! S95_t1(x)%sep=5.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='11020_CMS_H-tautau_1.6fb-1_SM' ! x=x+1 ! S95_t1(x)%id=11021 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-021' ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=1.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='11021_CMS_SM_H-gaga_1.66fb-1' !n.b.: Need fermiophobic-ness check for this analysis ! x=x+1 ! S95_t1(x)%id=110212 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-021' ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=1.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='110212_CMS_Fermiophob_H-gaga_1.66fb-1' ! x=x+1 ! S95_t1(x)%id=11022 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-022' ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=1.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='11022_CMS_SMcombined_1.1-1.7fb-1' ! x=x+1 ! S95_t1(x)%id=5895 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='ATL' ! S95_t1(x)%label='[hep-ex] arXiv:1108.5895 (ATLAS)' ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=1.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='5895_Atlas_H-gaga_1.08fb-1' ! x=x+1 ! S95_t1(x)%id=110201 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-020' ! S95_t1(x)%xmin=90.0D0 ! S95_t1(x)%xmax=500.0D0 ! S95_t1(x)%sep=10.0D0 ! filename(x)='11020_CMS_H-tautau_1.6fb-1_MSSM_interpol' !x=x+1 !S95_t1(x)%id=2011161 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='ATL' !S95_t1(x)%label='ATLAS-CONF-2011-161' !S95_t1(x)%xmin=110.0D0 !S95_t1(x)%xmax=150.0D0 !S95_t1(x)%sep=1.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='2011161_Atlas_H-gaga_4.9fb-1' ! x=x+1 ! S95_t1(x)%id=2011162 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='ATL' ! S95_t1(x)%label='ATLAS-CONF-2011-162' ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=1.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='2011162_Atlas_H-ZZ-4l_4.8fb-1' ! x=x+1 ! S95_t1(x)%id=11024 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-024' ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=5D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='11024_CMS_H-WW-lnulnu_4.6fb-1_interpol' ! x=x+1 ! S95_t1(x)%id=11025 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-025' ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=1.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='11025_CMS_H-ZZ-4l_4.7fb-1' ! x=x+1 ! S95_t1(x)%id=11026 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-026' ! S95_t1(x)%xmin=250.0D0 ! S95_t1(x)%xmax=590.0D0 ! S95_t1(x)%sep=1.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='11026_CMS_H-ZZ-llnunu_4.6fb-1' ! x=x+1 ! S95_t1(x)%id=110271 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-027' ! S95_t1(x)%xmin=130.0D0 ! S95_t1(x)%xmax=164.0D0 ! S95_t1(x)%sep=1.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='110271_CMS_H-ZZ-llqq_4.6fb-1' ! x=x+1 ! S95_t1(x)%id=110272 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-027' ! S95_t1(x)%xmin=200.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=1.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='110272_CMS_H-ZZ-llqq_4.6fb-1' ! x=x+1 ! S95_t1(x)%id=11028 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-028' ! S95_t1(x)%xmin=190.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=1.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='11028_CMS_H-ZZ-lltautau_4.7fb-1' ! x=x+1 ! S95_t1(x)%id=11030 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-030' ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=150.0D0 ! S95_t1(x)%sep=0.5D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='11030_CMS_H-gaga_4.8fb-1' ! x=x+1 ! S95_t1(x)%id=11032 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt='CMS' ! S95_t1(x)%label='CMS-PAS-HIG-11-032' ! S95_t1(x)%xmin=110.0D0 ! S95_t1(x)%xmax=600.0D0 ! S95_t1(x)%sep=1.0D0 ! S95_t1(x)%deltax=0.0D0 ! filename(x)='11032_CMS_SMcombined_4.7fb-1' !x=x+1 !S95_t1(x)%id=2011150 !S95_t1(x)%particle_x=Hneut !S95_t1(x)%expt='ATL' !S95_t1(x)%label='ATLAS-CONF-2011-150' !S95_t1(x)%xmin=200.0D0 !S95_t1(x)%xmax=600.0D0 !S95_t1(x)%sep=20.0D0 !S95_t1(x)%deltax=0.0D0 !filename(x)='2011150_Atlas_H-ZZ-llqq_2.05fb-1' ! x=x+1 ! S95_t1(x)%id=6224 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='D0 Note 6227, Br(h->tautau)>6%' ! S95_t1(x)%xmin=90.0D0 ! S95_t1(x)%xmax=300.0D0 ! S95_t1(x)%sep=10.0D0 ! filename(x)='D0_h-bb_h-tautau_comb_Br0.06_5.2-7.3fb_6224' ! ! x=x+1 ! S95_t1(x)%id=6225 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='D0 Note 6227, Br(h->tautau)>10%' ! S95_t1(x)%xmin=90.0D0 ! S95_t1(x)%xmax=300.0D0 ! S95_t1(x)%sep=10.0D0 ! filename(x)='D0_h-bb_h-tautau_comb_Br0.10_5.2-7.3fb_6225' ! ! x=x+1 ! S95_t1(x)%id=6226 ! S95_t1(x)%particle_x=Hneut ! S95_t1(x)%expt=' D0' ! S95_t1(x)%label='D0 Note 6227, Br(h->tautau)>14%' ! S95_t1(x)%xmin=90.0D0 ! S95_t1(x)%xmax=300.0D0 ! S95_t1(x)%sep=10.0D0 ! filename(x)='D0_h-bb_h-tautau_comb_Br0.14_5.2-7.3fb_6226' ! checks we've filled the whole array if(x.ne.xend)then stop 'error in initializetables1 (a)' endif ! do loop to read in S95 tables col=3 do x=xbeg,xend S95_t1(x)%nx=nint((S95_t1(x)%xmax-S95_t1(x)%xmin)/S95_t1(x)%sep)+1 allocate(S95_t1(x)%dat(S95_t1(x)%nx,col-1)) enddo open(file_id_common2,file = trim(adjustl(pathname))//'Expt_tables/' // & & 'S95_t1.binary',form='unformatted') read(file_id_common2,iostat=ios)S95_t1(xbeg)%dat if(ios.eq.0)then do x=xbeg+1,xend read(file_id_common2)S95_t1(x)%dat enddo else rewind(file_id_common2) do x=xbeg,xend fullfilename=trim(adjustl(pathname))//'Expt_tables/' & & //trim(adjustl(S95_t1(x)%expt))//'tables/' & & //trim(filename(x))//'.txt' call read_tabletype1(S95_t1(x),5,col,fullfilename) #ifndef WEBVERSION write(file_id_common2)S95_t1(x)%dat #endif enddo endif close(file_id_common2) deallocate(filename) end subroutine initializetables1 !************************************************************ subroutine read_tabletype1(t1,skip,col,fullfilename) !************************************************************ !fills t1%dat !--------------------------------------input type(table1) :: t1 integer :: skip,col character(LEN=*) :: fullfilename !-----------------------------------internal integer :: i,n double precision :: xdummy,xdummy_store !------------------------------------------- t1%dat=0.0D0 open(file_id_1, file=(trim(fullfilename))) do i=1,skip read(file_id_1,*) !skip lines enddo xdummy_store = t1%xmin-t1%sep do i=1,t1%nx read(file_id_1,*)xdummy,(t1%dat(i,n),n=1,col-1) ! if(minval(t1%dat(i,:)).lt.0) then ! write(*,*) xdummy,minval(t1%dat(i,:)) ! endif ! checks that x are evenly spaced as expected if((abs(xdummy-xdummy_store-t1%sep).gt.1.0D-7) & & .or.(abs(xdummy-(t1%xmin+dble(i-1)*t1%sep)).gt.1.0D-7))then write(*,*)i,t1%id,xdummy,t1%xmin+dble(i-1)*t1%sep stop 'error in read_tabletype1 (a1)' endif xdummy_store=xdummy enddo if(abs(xdummy-t1%xmax).gt.1.0D-7)stop 'error in read_tabletype1 (a2)' close(file_id_1) end subroutine read_tabletype1 !************************************************************ end module S95tables_type1 !************************************************************