You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
47 lines
1.3 KiB
47 lines
1.3 KiB
!
|
|
! SPDX-License-Identifier: GPL-3.0-or-later
|
|
! Copyright (C) 2019-2022, respective authors of MCFM.
|
|
!
|
|
|
|
subroutine qqb_dm_monojet_v_PSamps(p,i1,i2,i3,i4,i5,qgqb)
|
|
implicit none
|
|
include 'types.f'
|
|
|
|
c----- combined colour and Born intefered amplitudes as a function of quark line helicity
|
|
c------ default is q(i1)+g(i2)+qb(i3)+x(i4)+x(i5)
|
|
include 'constants.f'
|
|
include 'mxpart.f'
|
|
include 'qcdcouple.f'
|
|
real(dp):: qgqb(2)
|
|
integer:: i1,i2,i3,i4,i5
|
|
real(dp):: p(mxpart,4)
|
|
integer:: h1,h2,h3,h4
|
|
complex(dp):: amp_tree(2,2,2,2),amp_lc(2,2,2,2),
|
|
& amp_slc(2,2,2,2)
|
|
|
|
c------ tree
|
|
call qqb_dm_monojet_PSamps(p,i1,i2,i3,i4,i5,amp_tree)
|
|
c------ leading colour
|
|
call qqb_dm_monojet_lc_PSamps(p,i1,i2,i3,i4,i5,amp_lc)
|
|
c------ subleading colour (swap i2 and i3)
|
|
call qqb_dm_monojet_slc_PSamps(p,i1,i3,i2,i4,i5,amp_slc)
|
|
qgqb(:)=0d0
|
|
do h1=1,2
|
|
do h2=1,2
|
|
do h3=1,2
|
|
do h4=1,2
|
|
qgqb(h1)=qgqb(h1)
|
|
& +ason2pi*Dble(conjg(amp_tree(h1,h2,h3,h4))*
|
|
& (amp_lc(h1,h2,h3,h4)
|
|
& -amp_slc(h1,h2,h3,h4)/xnsq))
|
|
enddo
|
|
enddo
|
|
enddo
|
|
enddo
|
|
|
|
|
|
|
|
return
|
|
end
|
|
|
|
|