Index: docs/HB5_Expt/ATLAS_1806.07355/exp_interpol.dat =================================================================== --- docs/HB5_Expt/ATLAS_1806.07355/exp_interpol.dat (revision 0) +++ docs/HB5_Expt/ATLAS_1806.07355/exp_interpol.dat (revision 588) @@ -0,0 +1,41 @@ + 20.00 2.181077 + 21.00 1.999796 + 22.00 1.818515 + 23.00 1.637235 + 24.00 1.455954 + 25.00 1.322730 + 26.00 1.189505 + 27.00 1.056281 + 28.00 0.9649266 + 29.00 0.8735726 + 30.00 0.7822186 + 31.00 0.7308320 + 32.00 0.6794454 + 33.00 0.6651713 + 34.00 0.6508972 + 35.00 0.6566069 + 36.00 0.6623165 + 37.00 0.6751631 + 38.00 0.6880098 + 39.00 0.7008564 + 40.00 0.7137031 + 41.00 0.7165579 + 42.00 0.7194127 + 43.00 0.7222675 + 44.00 0.7251223 + 45.00 0.7279772 + 46.00 0.7308320 + 47.00 0.7336868 + 48.00 0.7365416 + 49.00 0.7393964 + 50.00 0.7422512 + 51.00 0.7422512 + 52.00 0.7422512 + 53.00 0.7422512 + 54.00 0.7422512 + 55.00 0.7422512 + 56.00 0.7422512 + 57.00 0.7422512 + 58.00 0.7422512 + 59.00 0.7422512 + 60.00 0.7422512 Index: docs/HB5_Expt/ATLAS_1806.07355/data.dat =================================================================== --- docs/HB5_Expt/ATLAS_1806.07355/data.dat (revision 0) +++ docs/HB5_Expt/ATLAS_1806.07355/data.dat (revision 588) @@ -0,0 +1,46 @@ +# ATLAS, arXiv:1806.07355, June 2018, Fig. 9c +# 7355_Atlas_VH-aa-bbbb_13TeV_36.1fb-1.txt +# Limit is set on sigma(VH) x BR(H->aa->4b) in pb +# Ma obs exp + + 20.00 2.998 2.181 + 21.00 2.739 2.000 + 22.00 2.480 1.819 + 23.00 2.221 1.637 + 24.00 2.029 1.456 + 25.00 1.837 1.323 + 26.00 1.644 1.190 + 27.00 1.499 1.056 + 28.00 1.353 0.9649 + 29.00 1.250 0.8736 + 30.00 1.148 0.7822 + 31.00 1.096 0.7308 + 32.00 1.045 0.6794 + 33.00 1.048 0.6652 + 34.00 1.051 0.6509 + 35.00 1.089 0.6566 + 36.00 1.127 0.6623 + 37.00 1.165 0.6752 + 38.00 1.202 0.6880 + 39.00 1.239 0.7009 + 40.00 1.256 0.7137 + 41.00 1.258 0.7166 + 42.00 1.260 0.7194 + 43.00 1.261 0.7223 + 44.00 1.263 0.7251 + 45.00 1.265 0.7280 + 46.00 1.266 0.7308 + 47.00 1.268 0.7337 + 48.00 1.270 0.7365 + 49.00 1.272 0.7394 + 50.00 1.273 0.7423 + 51.00 1.275 0.7423 + 52.00 1.277 0.7423 + 53.00 1.278 0.7423 + 54.00 1.280 0.7423 + 55.00 1.282 0.7423 + 56.00 1.284 0.7423 + 57.00 1.285 0.7423 + 58.00 1.287 0.7423 + 59.00 1.289 0.7423 + 60.00 1.290 0.7423 Index: docs/HB5_Expt/ATLAS_1806.07355/exp.dat =================================================================== --- docs/HB5_Expt/ATLAS_1806.07355/exp.dat (revision 0) +++ docs/HB5_Expt/ATLAS_1806.07355/exp.dat (revision 588) @@ -0,0 +1,10 @@ +20.0 2.181076672104404 +24.01468788249694 1.455954323001631 +27.00122399020808 1.0562805872756922 +30.012239902080786 0.7822185970636211 +31.995104039167686 0.6794453507340936 +34.00244798041616 0.6508972267536697 +36.00979192166463 0.6623164763458398 +40.0 0.7137030995106031 +50.012239902080786 0.742251223491027 +60.00000000000001 0.742251223491027 Index: docs/HB5_Expt/ATLAS_1806.07355/fig_09c.png =================================================================== Cannot display: file marked as a binary type. svn:mime-type = application/octet-stream Index: docs/HB5_Expt/ATLAS_1806.07355/fig_09c.png =================================================================== --- docs/HB5_Expt/ATLAS_1806.07355/fig_09c.png (revision 587) +++ docs/HB5_Expt/ATLAS_1806.07355/fig_09c.png (revision 588) Property changes on: docs/HB5_Expt/ATLAS_1806.07355/fig_09c.png ___________________________________________________________________ Added: svn:mime-type ## -0,0 +1 ## +application/octet-stream \ No newline at end of property Index: docs/HB5_Expt/ATLAS_1806.07355/obs_interpol.dat =================================================================== --- docs/HB5_Expt/ATLAS_1806.07355/obs_interpol.dat (revision 0) +++ docs/HB5_Expt/ATLAS_1806.07355/obs_interpol.dat (revision 588) @@ -0,0 +1,41 @@ + 20.00 2.997553 + 21.00 2.738717 + 22.00 2.479880 + 23.00 2.221044 + 24.00 2.028820 + 25.00 1.836596 + 26.00 1.644372 + 27.00 1.498777 + 28.00 1.353181 + 29.00 1.250408 + 30.00 1.147635 + 31.00 1.096248 + 32.00 1.044861 + 33.00 1.047716 + 34.00 1.050571 + 35.00 1.088635 + 36.00 1.126699 + 37.00 1.164763 + 38.00 1.201876 + 39.00 1.238989 + 40.00 1.256117 + 41.00 1.257830 + 42.00 1.259543 + 43.00 1.261256 + 44.00 1.262969 + 45.00 1.264682 + 46.00 1.266395 + 47.00 1.268108 + 48.00 1.269821 + 49.00 1.271533 + 50.00 1.273246 + 51.00 1.274959 + 52.00 1.276672 + 53.00 1.278385 + 54.00 1.280098 + 55.00 1.281811 + 56.00 1.283524 + 57.00 1.285237 + 58.00 1.286949 + 59.00 1.288662 + 60.00 1.290375 Index: docs/HB5_Expt/ATLAS_1806.07355/obs.dat =================================================================== --- docs/HB5_Expt/ATLAS_1806.07355/obs.dat (revision 0) +++ docs/HB5_Expt/ATLAS_1806.07355/obs.dat (revision 588) @@ -0,0 +1,11 @@ +20.0 2.9975530179445347 +23.011015911872704 2.2210440456769973 +25.997552019583843 1.6443719412724302 +28.004895960832314 1.3531810766721035 +29.96328029375765 1.1476345840130495 +32.01958384332925 1.044861337683523 +34.00244798041616 1.0505709624796076 +37.01346389228886 1.1647634584013042 +39.02080783353733 1.2389885807504069 +40.024479804161565 1.2561174551386616 +59.975520195838435 1.290375203915171 Index: trunk/HiggsBounds-5/S95tables.f90 =================================================================== --- trunk/HiggsBounds-5/S95tables.f90 (revision 587) +++ trunk/HiggsBounds-5/S95tables.f90 (revision 588) @@ -1,5256 +1,5267 @@ ! 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=201 + ntable1=202 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(17013,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(6682) fact(j)=t%lhc13%XS_vbf_ratio(j)*t%lhc13%XS_vbf_SM(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(7355) + do ii=1,npart + fact_tmp = 0.0D0 + if(abs(t%particle(Hneut)%M(ii)-125.0D0).lt.(10.0D0+t%particle(Hneut)%dMh(ii))) then + fact_tmp = t%lhc13%XS_hjZ_ratio(j) * t%lhc13%XS_HZ_SM(j) + t%lhc13%XS_hjW_ratio(j) * t%lhc13%XS_HW_SM(j) + fact(j) = fact(j) + fact_tmp * t%BR_hkhjhi(ii,j,j) * t%BR_hjbb(j) * t%BR_hjbb(j) + 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,539) 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(2018025) ! Data given in fb (fiducial cross section, multiply here with acceptance functions) fact(j)= 1000.0D0 * ( & (0.574D0 - 2.051 * exp(-0.0311*mass(j))) * t%lhc13%XS_hj_ratio(j)*t%lhc13%XS_H_SM(j) + & (0.663D0 - 1.054 * exp(-0.0182*mass(j))) * t%lhc13%XS_vbf_ratio(j)*t%lhc13%XS_vbf_SM(j) + & (0.547D0 - 1.223 * exp(-0.0222*mass(j))) * t%lhc13%XS_hjZ_ratio(j)*t%lhc13%XS_HZ_SM(j) + & (0.547D0 - 1.223 * exp(-0.0222*mass(j))) * t%lhc13%XS_hjW_ratio(j)*t%lhc13%XS_HW_SM(j) + & (0.663D0 - 1.054 * exp(-0.0182*mass(j))) * t%lhc13%XS_tthj_ratio(j)*t%lhc13%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,17030,4873,8567,336) 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(17013,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,6682) case(13018) case(2013011,3244) case(2011112) case(6583,14006,14037,14031,2018025) case(2011135) case(1508329,2015080) - case(17020321,17020322,17020323,539) + case(17020321,17020322,17020323,539,7355) case(6224,6225,6226) case(04670,046701,046702,17030,4873,8567,336) 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,8567) 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,336) 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(17013,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,2018025) 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,6682) 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(7355) + descrip=' (p p)-> V H (H near 125 GeV) -> h'//j//'h'//j//' -> b b b b ' //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,539) 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,336,0038911,0038912,0038913,0038914,17030,4873,8567) !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(17013) nc = 5; call initialise_channel_rat_SM channel_rat(1,:) = (/ t%lhc13%XS_hj_ratio(j) , div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(2,:) = (/ t%lhc13%XS_vbf_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(3,:) = (/ t%lhc13%XS_hjZ_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(4,:) = (/ t%lhc13%XS_hjW_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_rat(5,:) = (/ t%lhc13%XS_tthj_ratio(j), div(t%BR_hjgaga(j),t%BR_Hgaga_SM(j),0.0D0,1.0D0) /) channel_SM(1,:) = (/ t%lhc13%XS_H_SM(j) , t%BR_Hgaga_SM(j) /) channel_SM(2,:) = (/ t%lhc13%XS_vbf_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(3,:) = (/ t%lhc13%XS_HZ_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(4,:) = (/ t%lhc13%XS_HW_SM(j), t%BR_Hgaga_SM(j) /) channel_SM(5,:) = (/ t%lhc13%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(539) ! This only checks the relative proportions of the four main production modes nc = 4; call initialise_channel_rat_SM channel_rat(1,:) = (/ t%lhc13%XS_hj_ratio(j) , 1.0D0 /) channel_rat(2,:) = (/ t%lhc13%XS_vbf_ratio(j), 1.0D0 /) channel_rat(3,:) = (/ t%lhc13%XS_hjZ_ratio(j), 1.0D0 /) channel_rat(4,:) = (/ t%lhc13%XS_hjW_ratio(j), 1.0D0 /) channel_SM(1,:) = (/ t%lhc13%XS_H_SM(j) , 1.0D0 /) channel_SM(2,:) = (/ t%lhc13%XS_vbf_SM(j), 1.0D0 /) channel_SM(3,:) = (/ t%lhc13%XS_HZ_SM(j), 1.0D0 /) channel_SM(4,:) = (/ t%lhc13%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(8567) ! 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_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) * t%BR_hjgaga(jj) * t%BR_hjWW(jj) * 2.0D0 ! symmetry factor of 2 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(336) ! 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.(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) * t%BR_hjbb(jj) * t%BR_hjtautau(jj) * 2.0D0 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/7355_Atlas_VH-aa-bbbb_13TeV_36.1fb-1.txt =================================================================== --- trunk/HiggsBounds-5/Expt_tables/ATLtables/7355_Atlas_VH-aa-bbbb_13TeV_36.1fb-1.txt (revision 0) +++ trunk/HiggsBounds-5/Expt_tables/ATLtables/7355_Atlas_VH-aa-bbbb_13TeV_36.1fb-1.txt (revision 588) @@ -0,0 +1,46 @@ +# ATLAS, arXiv:1806.07355, June 2018, Fig. 9c +# 7355_Atlas_VH-aa-bbbb_13TeV_36.1fb-1.txt +# Limit is set on sigma(VH) x BR(H->aa->4b) in pb +# Ma obs exp + + 20.00 2.998 2.181 + 21.00 2.739 2.000 + 22.00 2.480 1.819 + 23.00 2.221 1.637 + 24.00 2.029 1.456 + 25.00 1.837 1.323 + 26.00 1.644 1.190 + 27.00 1.499 1.056 + 28.00 1.353 0.9649 + 29.00 1.250 0.8736 + 30.00 1.148 0.7822 + 31.00 1.096 0.7308 + 32.00 1.045 0.6794 + 33.00 1.048 0.6652 + 34.00 1.051 0.6509 + 35.00 1.089 0.6566 + 36.00 1.127 0.6623 + 37.00 1.165 0.6752 + 38.00 1.202 0.6880 + 39.00 1.239 0.7009 + 40.00 1.256 0.7137 + 41.00 1.258 0.7166 + 42.00 1.260 0.7194 + 43.00 1.261 0.7223 + 44.00 1.263 0.7251 + 45.00 1.265 0.7280 + 46.00 1.266 0.7308 + 47.00 1.268 0.7337 + 48.00 1.270 0.7365 + 49.00 1.272 0.7394 + 50.00 1.273 0.7423 + 51.00 1.275 0.7423 + 52.00 1.277 0.7423 + 53.00 1.278 0.7423 + 54.00 1.280 0.7423 + 55.00 1.282 0.7423 + 56.00 1.284 0.7423 + 57.00 1.285 0.7423 + 58.00 1.287 0.7423 + 59.00 1.289 0.7423 + 60.00 1.290 0.7423 Index: trunk/HiggsBounds-5/S95tables_type1.F90 =================================================================== --- trunk/HiggsBounds-5/S95tables_type1.F90 (revision 587) +++ trunk/HiggsBounds-5/S95tables_type1.F90 (revision 588) @@ -1,5510 +1,5527 @@ ! 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' x=x+1 S95_t1(x)%id=6682 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='[hep-ex] arXiv:1809.06682 (ATLAS)' S95_t1(x)%energy=13.0D0 S95_t1(x)%SMlike=0 S95_t1(x)%lumi=36.1D0 S95_t1(x)%xmin=75.0D0 S95_t1(x)%xmax=3000.0D0 S95_t1(x)%sep=5.0D0 S95_t1(x)%deltax=5.0D0 filename(x)='6682_Atlas_VBF_h-invisible_13TeV_36.1fb-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=8567 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='[hep-ex] arXiv:1807.08567 (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=500.0D0 S95_t1(x)%sep=1.0D0 S95_t1(x)%deltax=10.0D0 filename(x)='8567_Atlas_X-HH-WWgaga_13TeV_36.1fb-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=336 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='[hep-ex] arXiv:1808.00336 (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=5.0D0 S95_t1(x)%deltax=10.0D0 filename(x)='336_Atlas_X-HH-bbtautau_13TeV_36.1fb-1' x=x+1 S95_t1(x)%id=2016049 S95_t1(x)%particle_x=Hneut - S95_t1(x)%expt='ATLAS' + S95_t1(x)%expt='ATL' 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=7355 + S95_t1(x)%particle_x=Hneut + S95_t1(x)%expt='ATL' + S95_t1(x)%label='[hep-ex] arXiv:1806.07355 (ATLAS)' + S95_t1(x)%energy=13.0D0 + S95_t1(x)%lumi=36.1D0 + S95_t1(x)%SMlike=0 + S95_t1(x)%xmin=20.0D0 + S95_t1(x)%xmax=60.0D0 + S95_t1(x)%sep=1.0D0 + S95_t1(x)%deltax=0.0D0 + filename(x)='7355_Atlas_VH-aa-bbbb_13TeV_36.1fb-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=539 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='[hep-ex] arXiv:1807.00539 (ATLAS)' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=36.1D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=20.0D0 S95_t1(x)%xmax=60.0D0 S95_t1(x)%sep=0.5D0 S95_t1(x)%deltax=0.0D0 filename(x)='539_Atlas_H-aa-bbmumu_13TeV_36.1fb-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=17013 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='CMS' S95_t1(x)%label='CMS-PAS-HIG-17-013' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=35.9D0 S95_t1(x)%SMlike=1 S95_t1(x)%xmin=80.0D0 S95_t1(x)%xmax=110.0D0 S95_t1(x)%sep=0.1D0 S95_t1(x)%deltax=0.0D0 filename(x)='17013_CMS_H-gaga_lowmass_8TeV_20fb-1_and_13TeV_36fb-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=2018025 S95_t1(x)%particle_x=Hneut S95_t1(x)%expt='ATL' S95_t1(x)%label='ATLAS-CONF-2018-025' S95_t1(x)%energy=13.0D0 S95_t1(x)%lumi=80.0D0 S95_t1(x)%SMlike=0 S95_t1(x)%xmin=65.0D0 S95_t1(x)%xmax=110.0D0 S95_t1(x)%sep=0.1D0 S95_t1(x)%deltax=0.0D0 filename(x)='2018025_Atlas_h-gaga_13TeV_80fb-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 !************************************************************