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.
451 lines
24 KiB
451 lines
24 KiB
!
|
|
! SPDX-License-Identifier: GPL-3.0-or-later
|
|
! Copyright (C) 2019-2022, respective authors of MCFM.
|
|
!
|
|
subroutine GLYI2(z,I2)
|
|
c Elaborated using the form results of 1403.6451v2
|
|
implicit none
|
|
include 'types.f'
|
|
include 'constants.f'
|
|
include 'nfl.f'
|
|
include 'zeta.f'
|
|
include 'transitionlabels.f'
|
|
include 'distributions.f'
|
|
c dmin=-2,dmax=1,rglr=-2,delt=-1,plus=0,lpls=1
|
|
c -2=finite,-1=delta=-1,0=L0(z),1=L1(z)
|
|
real(dp):: I2(0:6,dmin:dmax,0:4)
|
|
c I2, index one transition flavor
|
|
c I2, index2,distribution type
|
|
c I2, index3,power of Lb
|
|
real(dp):: tp0(0:6,dmin:dmax),mp0(0:6,dmin:dmax)
|
|
real(dp):: z,mz,Li2,Li3,lnz,omz,opz,lnomz,lnopz,
|
|
& Li2z,Li2mz,Li2omz,Li3z,Li3mz,Li3omz,Li3zonopz
|
|
|
|
c initialize to zero
|
|
I2(:,:,:)=0
|
|
omz=1._dp-z
|
|
opz=1._dp+z
|
|
lnomz=log(omz); lnopz=log(opz); lnz=log(z)
|
|
Li2z=Li2(z); Li2mz=Li2(-z); Li2omz=Li2(omz)
|
|
Li3z=Li3(z); Li3mz=Li3(-z); Li3omz=Li3(omz)
|
|
Li3zonopz=Li3(z/opz)
|
|
|
|
call tildep0(+z,tp0)
|
|
mz=-z
|
|
call tildep0(mz,mp0)
|
|
|
|
cgg
|
|
I2(gg,rglr,2)=I2(gg,rglr,2) + CA**2 * ( 24.D0 - 88.D0/3.D0*z**(-1)
|
|
& + 16*z**(-1)*lnomz - 32*lnomz - 8*lnz*omz**(-1) - 16*lnz -
|
|
& 24*z + 16*z*lnomz - 16*z*lnz + 88.D0/3.D0*z**2 - 16*z**2*
|
|
& lnomz )
|
|
I2(gg,rglr,2) = I2(gg,rglr,2) + CF*TF * ( 16.D0/3.D0*z**(-1)*nfl
|
|
& + 4*nfl + 8*nfl*lnz - 4*z*nfl + 8*z*nfl*lnz - 16.D0/3.D0*
|
|
& z**2*nfl )
|
|
I2(gg,rglr,1)=I2(gg,rglr,1) + CA*TF * ( 104.D0/9.D0*z**(-1)*nfl
|
|
& - 8*nfl + 16.D0/3.D0*nfl*lnz + 8*z*nfl + 16.D0/3.D0*z*nfl*
|
|
& lnz - 104.D0/9.D0*z**2*nfl )
|
|
I2(gg,rglr,1) = I2(gg,rglr,1) + CA**2 * ( - 54.D0 + 268.D0/9.D0*
|
|
& z**(-1) + 100.D0/3.D0*lnz + 16*lnz*lnomz*omz**(-1) - 4*lnz**2
|
|
& *omz**(-1) - 16*lnz**2 + 54*z - 44.D0/3.D0*z*lnz - 16*z*
|
|
& lnz**2 - 268.D0/9.D0*z**2 + 176.D0/3.D0*z**2*lnz )
|
|
I2(gg,rglr,1) = I2(gg,rglr,1) + CF*TF * ( - 16.D0/3.D0*z**(-1)*
|
|
& nfl + 56*nfl + 24*nfl*lnz + 8*nfl*lnz**2 - 40*z*nfl + 24*z*
|
|
& nfl*lnz + 8*z*nfl*lnz**2 - 32.D0/3.D0*z**2*nfl )
|
|
I2(gg,rglr,0)=I2(gg,rglr,0) + CA*TF * ( 260.D0/27.D0*z**(-1)*nfl
|
|
& - 8*nfl + 52.D0/9.D0*nfl*lnz + 4.D0/3.D0*nfl*lnz**2 + 8*z*
|
|
& nfl - 4.D0/3.D0*z*nfl*lnomz + 40.D0/9.D0*z*nfl*lnz + 4.D0/3.D0
|
|
& *z*nfl*lnz**2 - 332.D0/27.D0*z**2*nfl )
|
|
I2(gg,rglr,0) = I2(gg,rglr,0) + CA**2 * ( 232.D0/3.D0 - 784.D0/9.D
|
|
& 0*z**(-1) - 88.D0/3.D0*z**(-1)*Li2z - 88.D0/3.D0*z**(-1)*lnz*
|
|
& lnomz + 88.D0/3.D0*z**(-1)*zeta2 - 24*Li3z*omz**(-1) + 32*
|
|
& Li2z - 701.D0/9.D0*lnz + 16*lnz*Li2z*omz**(-1) + 32*lnz*lnomz
|
|
& + 4*lnz*lnomz**2*omz**(-1) + 25.D0/3.D0*lnz**2 + 4*lnz**2*
|
|
& lnomz*omz**(-1) - 2.D0/3.D0*lnz**3*omz**(-1) - 8.D0/3.D0*
|
|
& lnz**3 + 24*zeta3*omz**(-1) - 32*zeta2 - 248.D0/3.D0*z - 32*z
|
|
& *Li2z + 2.D0/3.D0*z*lnomz - 149.D0/9.D0*z*lnz - 32*z*lnz*
|
|
& lnomz - 11.D0/3.D0*z*lnz**2 - 8.D0/3.D0*z*lnz**3 + 32*z*zeta2
|
|
& + 844.D0/9.D0*z**2 + 88.D0/3.D0*z**2*Li2z - 536.D0/9.D0*z**2
|
|
& *lnz + 88.D0/3.D0*z**2*lnz*lnomz + 44.D0/3.D0*z**2*lnz**2 -
|
|
& 88.D0/3.D0*z**2*zeta2 )
|
|
I2(gg,rglr,0) = I2(gg,rglr,0) + CF*TF * ( - 8.D0/3.D0*z**(-1)*
|
|
& nfl + 64*nfl + 24*nfl*lnz + 6*nfl*lnz**2 + 4.D0/3.D0*nfl*
|
|
& lnz**3 - 64*z*nfl + 24*z*nfl*lnz + 2*z*nfl*lnz**2 + 4.D0/3.D0
|
|
& *z*nfl*lnz**3 + 8.D0/3.D0*z**2*nfl )
|
|
|
|
I2(gg,rglr,3)=I2(gg,rglr,3) + tp0(gg,rglr)*CA**2 * ( - 4.D0 )
|
|
I2(gg,rglr,2)=I2(gg,rglr,2) + tp0(gg,rglr)*CA*TF * ( 8.D0/3.D0*
|
|
& nfl )
|
|
I2(gg,rglr,2) = I2(gg,rglr,2) + tp0(gg,rglr)*CA**2 * ( - 22.D0/3.
|
|
& D0 - 8*lnz )
|
|
I2(gg,rglr,1)=I2(gg,rglr,1) + tp0(gg,rglr)*CA*TF * ( 80.D0/9.D0*
|
|
& nfl )
|
|
I2(gg,rglr,1) = I2(gg,rglr,1) + tp0(gg,rglr)*CA**2 * ( - 268.D0/
|
|
& 9.D0 + 16*lnz*lnomz - 4*lnz**2 + 12*zeta2 )
|
|
I2(gg,rglr,0)=I2(gg,rglr,0) + tp0(gg,rglr)*CA*TF * ( 224.D0/27.D0
|
|
& *nfl )
|
|
I2(gg,rglr,0) = I2(gg,rglr,0) + tp0(gg,rglr)*CA**2 * ( - 808.D0/
|
|
& 27.D0 - 24*Li3z + 16*lnz*Li2z + 4*lnz*lnomz**2 + 4*lnz**2*
|
|
& lnomz - 2.D0/3.D0*lnz**3 + 52*zeta3 )
|
|
|
|
I2(gg,rglr,1)=I2(gg,rglr,1) + mp0(gg,rglr)*CA**2 * ( 16*Li2mz +
|
|
& 16*lnz*lnopz - 4*lnz**2 + 8*zeta2 )
|
|
I2(gg,rglr,0)=I2(gg,rglr,0) + mp0(gg,rglr)*CA**2 * ( - 16*
|
|
& Li3zonopz + 8*Li3mz + 16*Li3z + 8.D0/3.D0*lnopz**3 - 8*lnz*
|
|
& Li2mz - 8*lnz*Li2z - 8*lnz*lnopz**2 + 4*lnz**2*lnopz - 2.D0/3.
|
|
& D0*lnz**3 + 4*zeta3 - 8*zeta2*lnopz )
|
|
|
|
I2(gg,delt,4)=I2(gg,delt,4) + CA**2 * ( 1.D0/2.D0 )
|
|
I2(gg,delt,3)=I2(gg,delt,3) + CA*TF * ( - 4.D0/9.D0*nfl )
|
|
I2(gg,delt,3) = I2(gg,delt,3) + CA**2 * ( 11.D0/9.D0 )
|
|
I2(gg,delt,2)=I2(gg,delt,2) + CA*TF * ( - 20.D0/9.D0*nfl )
|
|
I2(gg,delt,2) = I2(gg,delt,2) + CA**2 * ( 67.D0/9.D0 - 11*zeta2 )
|
|
I2(gg,delt,1)=I2(gg,delt,1) + CA*TF * ( - 112.D0/27.D0*nfl + 8.D0
|
|
& /3.D0*zeta2*nfl )
|
|
I2(gg,delt,1) = I2(gg,delt,1) + CA**2 * ( 404.D0/27.D0 - 14*zeta3
|
|
& - 22.D0/3.D0*zeta2 )
|
|
I2(gg,delt,0)=I2(gg,delt,0) + CA*TF * ( - 328.D0/81.D0*nfl + 28.D
|
|
& 0/9.D0*zeta3*nfl + 10.D0/3.D0*zeta2*nfl )
|
|
I2(gg,delt,0) = I2(gg,delt,0) + CA**2 * ( 1214.D0/81.D0 + 25.D0/4.
|
|
& D0*zeta4 - 77.D0/9.D0*zeta3 - 67.D0/6.D0*zeta2 )
|
|
|
|
I2(gg,plus,3)=I2(gg,plus,3) + CA**2 * ( - 4 )
|
|
I2(gg,plus,2)=I2(gg,plus,2) + CA*TF * ( 8.D0/3.D0*nfl )
|
|
I2(gg,plus,2) = I2(gg,plus,2) + CA**2 * ( - 22.D0/3.D0 )
|
|
I2(gg,plus,1)=I2(gg,plus,1) + CA*TF * ( 80.D0/9.D0*nfl )
|
|
I2(gg,plus,1) = I2(gg,plus,1) + CA**2 * ( - 268.D0/9.D0 + 12*
|
|
& zeta2 )
|
|
I2(gg,plus,0)=I2(gg,plus,0) + CA*TF * ( 224.D0/27.D0*nfl )
|
|
I2(gg,plus,0) = I2(gg,plus,0) + CA**2 * ( - 808.D0/27.D0 + 28*
|
|
& zeta3 )
|
|
|
|
I2(gg,lpls,2)=I2(gg,lpls,2) + CA**2 * ( 16.D0 )
|
|
|
|
cqq
|
|
I2(qq,rglr,2)=I2(qq,rglr,2) + CF*TF*( 2.D0 + 8.D0/3.D0*z**(-1) + 4
|
|
& *lnz - 2*z + 4*z*lnz - 8.D0/3.D0*z**2 )
|
|
I2(qq,rglr,2) = I2(qq,rglr,2) + CF**2 * ( - 2.D0 - 8*lnomz + 2*lnz
|
|
& + 2*z - 8*z*lnomz + 2*z*lnz )
|
|
I2(qq,rglr,1)=I2(qq,rglr,1) + CF*TF *(16.D0 - 104.D0/9.D0*z**(-1)
|
|
& - 4*lnz + 4*lnz**2 + 8.D0/3.D0*nfl - 24*z - 12*z*lnz + 4*z*
|
|
& lnz**2 - 8.D0/3.D0*z*nfl + 176.D0/9.D0*z**2 - 32.D0/3.D0*z**2
|
|
& *lnz )
|
|
I2(qq,rglr,1) = I2(qq,rglr,1) + CF*CA * ( - 58.D0/3.D0 - 4*lnz
|
|
& + 58.D0/3.D0*z - 4*z*lnz )
|
|
I2(qq,rglr,1) = I2(qq,rglr,1) + CF**2 * ( 28.D0 - 8*lnomz + 10*lnz
|
|
& + 2*lnz**2 - 28*z + 8*z*lnomz + 10*z*lnz + 2*z*lnz**2 )
|
|
I2(qq,rglr,0)=I2(qq,rglr,0) + CF*TF * ( - 70.D0/3.D0 + 344.D0/27.
|
|
& D0*z**(-1) + 16.D0/3.D0*z**(-1)*Li2z + 16.D0/3.D0*z**(-1)*lnz
|
|
& *lnomz - 16.D0/3.D0*z**(-1)*zeta2 - 8*Li2z + 28.D0/3.D0*lnz
|
|
& - 8*lnz*lnomz - lnz**2 + 2.D0/3.D0*lnz**3 - 4.D0/3.D0*nfl +
|
|
& 8*zeta2 + 62.D0/3.D0*z + 8*z*Li2z - 40.D0/3.D0*z*lnz + 8*z*
|
|
& lnz*lnomz - z*lnz**2 + 2.D0/3.D0*z*lnz**3 + 4.D0/3.D0*z*nfl
|
|
& - 8*z*zeta2 - 272.D0/27.D0*z**2 - 16.D0/3.D0*z**2*Li2z + 128.
|
|
& D0/9.D0*z**2*lnz - 16.D0/3.D0*z**2*lnz*lnomz - 8.D0/3.D0*z**2
|
|
& *lnz**2 + 16.D0/3.D0*z**2*zeta2 )
|
|
I2(qq,rglr,0) = I2(qq,rglr,0) + CF*CA * ( 44.D0/3.D0 + 4*Li2z + 2
|
|
& *lnz + 4*lnz*lnomz - 6*zeta2 - 44.D0/3.D0*z - 4*z*Li2z + 2*z*
|
|
& lnomz + 10*z*lnz - 4*z*lnz*lnomz - 2*z*lnz**2 + 6*z*zeta2 )
|
|
I2(qq,rglr,0) = I2(qq,rglr,0) + CF**2 *(-22.D0 - 8*Li2z + 2*lnz
|
|
& - 12*lnz*lnomz + 3.D0/2.D0*lnz**2 + 1.D0/3.D0*lnz**3 + 6*
|
|
& zeta2 + 22*z + 8*z*Li2z - 2*z*lnomz - 24*z*lnz + 12*z*lnz*
|
|
& lnomz + 7.D0/2.D0*z*lnz**2 + 1.D0/3.D0*z*lnz**3 - 6*z*zeta2 )
|
|
|
|
I2(qq,rglr,3)=I2(qq,rglr,3) + tp0(qq,rglr)*CF**2 * ( - 2 )
|
|
I2(qq,rglr,2)=I2(qq,rglr,2) + CF**2 * ( - 8*lnz*omz**(-1) )
|
|
I2(qq,rglr,2) = I2(qq,rglr,2) + tp0(qq,rglr)*CF*TF * ( 4.D0/3.D0*
|
|
& nfl )
|
|
I2(qq,rglr,2) = I2(qq,rglr,2) + tp0(qq,rglr)*CF*CA * ( - 11.D0/3.
|
|
& D0 )
|
|
I2(qq,rglr,2) = I2(qq,rglr,2) + tp0(qq,rglr)*CF**2 * ( - 4*lnz )
|
|
I2(qq,rglr,1)=I2(qq,rglr,1) + CF*TF * ( 16.D0/3.D0*nfl*lnz*
|
|
& omz**(-1) )
|
|
I2(qq,rglr,1) = I2(qq,rglr,1) + CF*CA * ( - 44.D0/3.D0*lnz*
|
|
& omz**(-1) - 4*lnz**2*omz**(-1) )
|
|
I2(qq,rglr,1) = I2(qq,rglr,1) + CF**2 * ( 12*lnz*omz**(-1) + 16*
|
|
& lnz*lnomz*omz**(-1) )
|
|
I2(qq,rglr,1) = I2(qq,rglr,1) + tp0(qq,rglr)*CF*TF * ( 40.D0/9.D0
|
|
& *nfl + 8.D0/3.D0*nfl*lnz )
|
|
I2(qq,rglr,1) = I2(qq,rglr,1) + tp0(qq,rglr)*CF*CA * ( - 134.D0/
|
|
& 9.D0 - 22.D0/3.D0*lnz - 2*lnz**2 + 4*zeta2 )
|
|
I2(qq,rglr,1) = I2(qq,rglr,1) + tp0(qq,rglr)*CF**2 * ( 6*lnz + 8*
|
|
& lnz*lnomz + 2*zeta2 )
|
|
I2(qq,rglr,0)=I2(qq,rglr,0) + CF*TF * ( 40.D0/9.D0*nfl*lnz*
|
|
& omz**(-1) + 4.D0/3.D0*nfl*lnz**2*omz**(-1) )
|
|
I2(qq,rglr,0) = I2(qq,rglr,0) + CF*CA * ( - 8*Li3omz*omz**(-1)
|
|
& + 16*Li3z*omz**(-1) + 8*lnomz*Li2omz*omz**(-1) - 152.D0/9.D0
|
|
& *lnz*omz**(-1) - 8*lnz*Li2z*omz**(-1) - 11.D0/3.D0*lnz**2*
|
|
& omz**(-1) - 2.D0/3.D0*lnz**3*omz**(-1) - 16*zeta3*omz**(-1) )
|
|
I2(qq,rglr,0) = I2(qq,rglr,0) + CF**2 * ( 8*Li3omz*omz**(-1) - 40
|
|
& *Li3z*omz**(-1) - 8*lnomz*Li2omz*omz**(-1) + 16*lnz*omz**(-1)
|
|
& + 24*lnz*Li2z*omz**(-1) + 4*lnz*lnomz**2*omz**(-1) + 3*
|
|
& lnz**2*omz**(-1) + 4*lnz**2*lnomz*omz**(-1) + 40*zeta3*
|
|
& omz**(-1) )
|
|
I2(qq,rglr,0) = I2(qq,rglr,0) + tp0(qq,rglr)*CF*TF * ( 112.D0/27.D
|
|
& 0*nfl + 20.D0/9.D0*nfl*lnz + 2.D0/3.D0*nfl*lnz**2 )
|
|
I2(qq,rglr,0) = I2(qq,rglr,0) + tp0(qq,rglr)*CF*CA * ( - 404.D0/
|
|
& 27.D0 - 4*Li3omz + 8*Li3z + 4*lnomz*Li2omz - 76.D0/9.D0*lnz
|
|
& - 4*lnz*Li2z - 11.D0/6.D0*lnz**2 - 1.D0/3.D0*lnz**3 + 6*
|
|
& zeta3 )
|
|
I2(qq,rglr,0) = I2(qq,rglr,0) + tp0(qq,rglr)*CF**2 * ( 4*Li3omz
|
|
& - 20*Li3z - 4*lnomz*Li2omz + 8*lnz + 12*lnz*Li2z + 2*lnz*
|
|
& lnomz**2 + 3.D0/2.D0*lnz**2 + 2*lnz**2*lnomz + 20*zeta3 )
|
|
|
|
I2(qq,delt,4)=I2(qq,delt,4) + CF**2 * ( 1.D0/2.D0 )
|
|
I2(qq,delt,3)=I2(qq,delt,3) + CF*TF * ( - 4.D0/9.D0*nfl )
|
|
I2(qq,delt,3) = I2(qq,delt,3) + CF*CA * ( 11.D0/9.D0 )
|
|
I2(qq,delt,2)=I2(qq,delt,2) + CF*TF * ( - 20.D0/9.D0*nfl )
|
|
I2(qq,delt,2) = I2(qq,delt,2) + CF*CA * ( 67.D0/9.D0 - 2*zeta2 )
|
|
I2(qq,delt,2) = I2(qq,delt,2) + CF**2 * ( - 9*zeta2 )
|
|
I2(qq,delt,1)=I2(qq,delt,1) + CF*TF * ( - 112.D0/27.D0*nfl + 8.D0
|
|
& /3.D0*zeta2*nfl )
|
|
I2(qq,delt,1) = I2(qq,delt,1) + CF*CA * ( 404.D0/27.D0 - 14*zeta3
|
|
& - 22.D0/3.D0*zeta2 )
|
|
I2(qq,delt,0)=I2(qq,delt,0) + CF*TF * ( - 328.D0/81.D0*nfl + 28.D
|
|
& 0/9.D0*zeta3*nfl + 10.D0/3.D0*zeta2*nfl )
|
|
I2(qq,delt,0) = I2(qq,delt,0) + CF*CA * ( 1214.D0/81.D0 + 5*zeta4
|
|
& - 77.D0/9.D0*zeta3 - 67.D0/6.D0*zeta2 )
|
|
I2(qq,delt,0) = I2(qq,delt,0) + CF**2 * ( 5.D0/4.D0*zeta4 )
|
|
|
|
I2(qq,plus,3)=I2(qq,plus,3) + CF**2 * ( - 4 )
|
|
I2(qq,plus,2)=I2(qq,plus,2) + CF*TF * ( 8.D0/3.D0*nfl )
|
|
I2(qq,plus,2) = I2(qq,plus,2) + CF*CA * ( - 22.D0/3.D0 )
|
|
I2(qq,plus,1)=I2(qq,plus,1) + CF*TF * ( 80.D0/9.D0*nfl )
|
|
I2(qq,plus,1) = I2(qq,plus,1) + CF*CA * ( - 268.D0/9.D0 + 8*
|
|
& zeta2 )
|
|
I2(qq,plus,1) = I2(qq,plus,1) + CF**2 * ( 4*zeta2 )
|
|
I2(qq,plus,0)=I2(qq,plus,0) + CF*TF * ( 224.D0/27.D0*nfl )
|
|
I2(qq,plus,0) = I2(qq,plus,0) + CF*CA * ( - 808.D0/27.D0 + 28*
|
|
& zeta3 )
|
|
|
|
I2(qq,lpls,2)=I2(qq,lpls,2) + CF**2 * ( 16 )
|
|
|
|
cqg
|
|
I2(qg,rglr,2)=I2(qg,rglr,2) + CA*TF * ( 37.D0/3.D0 + 8.D0/3.D0*
|
|
& z**(-1) + 4*lnz - 14.D0/3.D0*z + 16*z*lnz )
|
|
I2(qg,rglr,2) = I2(qg,rglr,2) + CF*TF * (1.D0 + 2*lnz + 4*z - 4*z*
|
|
& lnz )
|
|
I2(qg,rglr,1)=I2(qg,rglr,1) + CA*TF * ( - 88.D0/9.D0 - 104.D0/9.D
|
|
& 0*z**(-1) + 76.D0/3.D0*lnz + 4*lnz**2 - 76.D0/9.D0*z - 176.D0/
|
|
& 3.D0*z*lnz + 8*z*lnz**2 + 16*z*zeta2 )
|
|
I2(qg,rglr,1) = I2(qg,rglr,1) + CF*TF *(8.D0-8*lnomz + 6*lnz + 2
|
|
& *lnz**2 + 10*z - 4*z*lnz**2 )
|
|
I2(qg,rglr,0)=I2(qg,rglr,0) + CA*TF * ( - 332.D0/27.D0 + 344.D0/
|
|
& 27.D0*z**(-1) + 16.D0/3.D0*z**(-1)*Li2z + 16.D0/3.D0*z**(-1)*
|
|
& lnz*lnomz - 16.D0/3.D0*z**(-1)*zeta2 - 4*Li2mz + 20.D0/3.D0*
|
|
& Li2z + 4*lnomz - 2*lnomz**2 - 52.D0/9.D0*lnz - 4*lnz*lnopz +
|
|
& 20.D0/3.D0*lnz*lnomz + 19.D0/3.D0*lnz**2 + 2.D0/3.D0*lnz**3
|
|
& - 20.D0/3.D0*zeta2 + 178.D0/27.D0*z + 32*z*Li3z + 8.D0/3.D0*
|
|
& z*Li2z - 2*z*lnomz + 152.D0/9.D0*z*lnz - 16*z*lnz*Li2z + 8.D0/
|
|
& 3.D0*z*lnz*lnomz - 32.D0/3.D0*z*lnz**2 + 4.D0/3.D0*z*lnz**3
|
|
& + 8*z*zeta3 + 16.D0/3.D0*z*zeta2 )
|
|
I2(qg,rglr,0) = I2(qg,rglr,0) + CF*TF * (23.D0 - 4*lnomz + 2*
|
|
& lnomz**2 + 12*lnz - 4*lnz*lnomz + 5.D0/2.D0*lnz**2 + 1.D0/3.D0
|
|
& *lnz**3 - 6*zeta2 + 3*z + 2*z*lnomz + 7*z*lnz + 2*z*lnz**2 -
|
|
& 2.D0/3.D0*z*lnz**3 )
|
|
|
|
I2(qg,rglr,3)=I2(qg,rglr,3) + tp0(qg,rglr)*CF*TF * ( - 2 )
|
|
I2(qg,rglr,2)=I2(qg,rglr,2) + tp0(qg,rglr)*CA*TF * ( - 31.D0/3.D0
|
|
& + 4*lnomz )
|
|
I2(qg,rglr,2) = I2(qg,rglr,2) + tp0(qg,rglr)*CF*TF * (-8.D0 + 4*
|
|
& lnomz - 4*lnz )
|
|
I2(qg,rglr,1)=I2(qg,rglr,1) + tp0(qg,rglr)*CA*TF * ( 232.D0/9.D0
|
|
& + 4*lnomz**2 - 88.D0/3.D0*lnz )
|
|
I2(qg,rglr,1) = I2(qg,rglr,1) + tp0(qg,rglr)*CF*TF *(-28.D0 + 8*
|
|
& lnomz - 4*lnomz**2 - 8*lnz + 8*lnz*lnomz - 4*lnz**2 + 10*
|
|
& zeta2 )
|
|
I2(qg,rglr,0)=I2(qg,rglr,0) + tp0(qg,rglr)*CA*TF * ( - 298.D0/27.
|
|
& D0 + 4*Li3omz - 44.D0/3.D0*Li2z - 4*lnomz - 4*lnomz*Li2omz +
|
|
& 2*lnomz**2 + 2.D0/3.D0*lnomz**3 + 136.D0/9.D0*lnz - 44.D0/3.D0
|
|
& *lnz*lnomz - 22.D0/3.D0*lnz**2 - 4*zeta3 + 44.D0/3.D0*zeta2 )
|
|
I2(qg,rglr,0) = I2(qg,rglr,0) + tp0(qg,rglr)*CF*TF *(-36.D0 - 4*
|
|
& Li3omz - 4*Li3z + 4*lnomz + 4*lnomz*Li2omz - 2*lnomz**2 - 2.D0
|
|
& /3.D0*lnomz**3 - 4*lnz + 4*lnz*Li2z + 4*lnz*lnomz + 2*lnz*
|
|
& lnomz**2 - 2*lnz**2 + 2*lnz**2*lnomz - 2.D0/3.D0*lnz**3 + 32*
|
|
& zeta3 + 6*zeta2 )
|
|
|
|
I2(qg,plus,3)=I2(qg,plus,3) + tp0(qg,plus)*CF*TF * ( - 2.D0 )
|
|
I2(qg,plus,2)=I2(qg,plus,2) + tp0(qg,plus)*CA*TF * ( - 31.D0/3.D0
|
|
& + 4*lnomz )
|
|
I2(qg,plus,2) = I2(qg,plus,2) + tp0(qg,plus)*CF*TF * (-8.D0 + 4*
|
|
& lnomz - 4*lnz )
|
|
I2(qg,plus,1)=I2(qg,plus,1) + tp0(qg,plus)*CA*TF * ( 232.D0/9.D0
|
|
& + 4*lnomz**2 - 88.D0/3.D0*lnz )
|
|
I2(qg,plus,1) = I2(qg,plus,1) + tp0(qg,plus)*CF*TF *(-28.D0 + 8*
|
|
& lnomz - 4*lnomz**2 - 8*lnz + 8*lnz*lnomz - 4*lnz**2 + 10*
|
|
& zeta2 )
|
|
I2(qg,plus,0)=I2(qg,plus,0) + tp0(qg,plus)*CA*TF * ( - 298.D0/27.
|
|
& D0 + 4*Li3omz - 44.D0/3.D0*Li2z - 4*lnomz - 4*lnomz*Li2omz +
|
|
& 2*lnomz**2 + 2.D0/3.D0*lnomz**3 + 136.D0/9.D0*lnz - 44.D0/3.D0
|
|
& *lnz*lnomz - 22.D0/3.D0*lnz**2 - 4*zeta3 + 44.D0/3.D0*zeta2 )
|
|
I2(qg,plus,0) = I2(qg,plus,0) + tp0(qg,plus)*CF*TF *(-36.D0 - 4*
|
|
& Li3omz - 4*Li3z + 4*lnomz + 4*lnomz*Li2omz - 2*lnomz**2 - 2.D0
|
|
& /3.D0*lnomz**3 - 4*lnz + 4*lnz*Li2z + 4*lnz*lnomz + 2*lnz*
|
|
& lnomz**2 - 2*lnz**2 + 2*lnz**2*lnomz - 2.D0/3.D0*lnz**3 + 32*
|
|
& zeta3 + 6*zeta2 )
|
|
|
|
I2(qg,rglr,1)=I2(qg,rglr,1) + mp0(qg,rglr)*CA*TF * ( 8*Li2mz + 8*
|
|
& lnz*lnopz )
|
|
I2(qg,rglr,0)=I2(qg,rglr,0) + mp0(qg,rglr)*CA*TF * ( - 8*
|
|
& Li3zonopz + 4*Li3mz + 4*Li2mz + 4.D0/3.D0*lnopz**3 - 4*lnz*
|
|
& Li2mz + 4*lnz*lnopz - 4*lnz*lnopz**2 + 2*lnz**2*lnopz - 4*
|
|
& zeta2*lnopz )
|
|
|
|
|
|
|
|
cgq
|
|
I2(gq,rglr,2)=I2(gq,rglr,2) + CF*CA * ( - 14.D0/3.D0 - 16*lnz +
|
|
& 43.D0/3.D0*z - 4*z*lnz + 8.D0/3.D0*z**2 )
|
|
I2(gq,rglr,2) = I2(gq,rglr,2) + CF**2*(4.D0 + 4*lnz - z - 2*z*lnz
|
|
& )
|
|
I2(gq,rglr,1)=I2(gq,rglr,1) + CF*CA * ( - 112.D0/9.D0 + 48*lnz
|
|
& - 8*lnz**2 - 16*zeta2 + 2.D0/9.D0*z - 8*z*lnomz + 20*z*lnz
|
|
& - 4*z*lnz**2 - 176.D0/9.D0*z**2 + 32.D0/3.D0*z**2*lnz )
|
|
I2(gq,rglr,1) = I2(gq,rglr,1) + CF**2*(6.D0 - 8*lnz + 4*lnz**2 +
|
|
& 12*z - 10*z*lnz - 2*z*lnz**2 )
|
|
I2(gq,rglr,0)=I2(gq,rglr,0) + CF*TF * ( - 40.D0/9.D0*z*nfl - 8.D0
|
|
& /3.D0*z*nfl*lnomz )
|
|
I2(gq,rglr,0) = I2(gq,rglr,0) + CF*CA * ( 4.D0/27.D0 - 32*Li3z +
|
|
& 8.D0/3.D0*Li2z - 166.D0/3.D0*lnz + 16*lnz*Li2z + 8.D0/3.D0*
|
|
& lnz*lnomz + 12*lnz**2 - 4.D0/3.D0*lnz**3 - 8*zeta3 - 8.D0/3.D0
|
|
& *zeta2 + 508.D0/27.D0*z + 4*z*Li2mz + 20.D0/3.D0*z*Li2z + 22.D
|
|
& 0/3.D0*z*lnomz + 2*z*lnomz**2 + 4.D0/3.D0*z*lnz + 4*z*lnz*
|
|
& lnopz + 8.D0/3.D0*z*lnz*lnomz + 3*z*lnz**2 - 2.D0/3.D0*z*
|
|
& lnz**3 - 26.D0/3.D0*z*zeta2 + 608.D0/27.D0*z**2 + 16.D0/3.D0*
|
|
& z**2*Li2z - 176.D0/9.D0*z**2*lnz + 16.D0/3.D0*z**2*lnz*lnomz
|
|
& + 8.D0/3.D0*z**2*lnz**2 - 16.D0/3.D0*z**2*zeta2 )
|
|
I2(gq,rglr,0) = I2(gq,rglr,0) + CF**2 * (10.D0 - 15*lnz - 2*lnz**2
|
|
& + 2.D0/3.D0*lnz**3 - z - 6*z*lnomz - 2*z*lnomz**2 + 5*z*lnz
|
|
& - 3.D0/2.D0*z*lnz**2 - 1.D0/3.D0*z*lnz**3 )
|
|
|
|
I2(gq,rglr,3)=I2(gq,rglr,3) + tp0(gq,rglr)*CF*CA * ( - 2.D0 )
|
|
I2(gq,rglr,2)=I2(gq,rglr,2) + tp0(gq,rglr)*CF*TF * ( 8.D0/3.D0*
|
|
& nfl )
|
|
I2(gq,rglr,2) = I2(gq,rglr,2) + tp0(gq,rglr)*CF*CA * ( - 53.D0/3.
|
|
& D0 + 4*lnomz - 4*lnz )
|
|
I2(gq,rglr,2) = I2(gq,rglr,2) + tp0(gq,rglr)*CF**2 * ( 4*lnomz )
|
|
I2(gq,rglr,1)=I2(gq,rglr,1) + tp0(gq,rglr)*CF*TF * ( 80.D0/9.D0*
|
|
& nfl + 16.D0/3.D0*nfl*lnomz )
|
|
I2(gq,rglr,1) = I2(gq,rglr,1) + tp0(gq,rglr)*CF*CA *(-2.D0 - 44.D
|
|
& 0/3.D0*lnomz - 4*lnomz**2 + 8*lnz*lnomz + 2*zeta2 )
|
|
I2(gq,rglr,1) = I2(gq,rglr,1) + tp0(gq,rglr)*CF**2 * ( 12*lnomz
|
|
& + 4*lnomz**2 )
|
|
I2(gq,rglr,0)=I2(gq,rglr,0) + tp0(gq,rglr)*CF*TF * ( 224.D0/27.D0
|
|
& *nfl + 40.D0/9.D0*nfl*lnomz + 4.D0/3.D0*nfl*lnomz**2 )
|
|
I2(gq,rglr,0) = I2(gq,rglr,0) + tp0(gq,rglr)*CF*CA * ( - 1580.D0/
|
|
& 27.D0 - 20*Li3z - 44.D0/3.D0*Li2z - 152.D0/9.D0*lnomz - 11.D0/
|
|
& 3.D0*lnomz**2 - 2.D0/3.D0*lnomz**3 + 12*lnz*Li2z - 44.D0/3.D0
|
|
& *lnz*lnomz + 2*lnz*lnomz**2 + 2*lnz**2*lnomz + 24*zeta3 + 44.D
|
|
& 0/3.D0*zeta2 )
|
|
I2(gq,rglr,0) = I2(gq,rglr,0) + tp0(gq,rglr)*CF**2 * ( 16*lnomz
|
|
& + 3*lnomz**2 + 2.D0/3.D0*lnomz**3 )
|
|
|
|
I2(gq,plus,3)=I2(gq,plus,3) + tp0(gq,plus)*CF*TF * ( 8.D0/3.D0*
|
|
& nfl )
|
|
I2(gq,plus,3) = I2(gq,plus,3) + tp0(gq,plus)*CF*CA * ( - 53.D0/3.
|
|
& D0 + 4*lnomz - 4*lnz )
|
|
I2(gq,plus,3) = I2(gq,plus,3) + tp0(gq,plus)*CF**2 * ( 4*lnomz )
|
|
I2(gq,plus,2)=I2(gq,plus,2) + tp0(gq,plus)*CF*TF * ( 8.D0/3.D0*
|
|
& nfl )
|
|
I2(gq,plus,2) = I2(gq,plus,2) + tp0(gq,plus)*CF*CA * ( - 53.D0/3.
|
|
& D0 + 4*lnomz - 4*lnz )
|
|
I2(gq,plus,2) = I2(gq,plus,2) + tp0(gq,plus)*CF**2 * ( 4*lnomz )
|
|
I2(gq,plus,1)=I2(gq,plus,1) + tp0(gq,plus)*CF*TF * ( 80.D0/9.D0*
|
|
& nfl + 16.D0/3.D0*nfl*lnomz )
|
|
I2(gq,plus,1) = I2(gq,plus,1) + tp0(gq,plus)*CF*CA *(-2.D0 - 44.D
|
|
& 0/3.D0*lnomz - 4*lnomz**2 + 8*lnz*lnomz + 2*zeta2 )
|
|
I2(gq,plus,1) = I2(gq,plus,1) + tp0(gq,plus)*CF**2 * ( 12*lnomz
|
|
& + 4*lnomz**2 )
|
|
I2(gq,plus,0)=I2(gq,plus,0) + tp0(gq,plus)*CF*TF * ( 224.D0/27.D0
|
|
& *nfl + 40.D0/9.D0*nfl*lnomz + 4.D0/3.D0*nfl*lnomz**2 )
|
|
I2(gq,plus,0) = I2(gq,plus,0) + tp0(gq,plus)*CF*CA * ( - 1580.D0/
|
|
& 27.D0 - 20*Li3z - 44.D0/3.D0*Li2z - 152.D0/9.D0*lnomz - 11.D0/
|
|
& 3.D0*lnomz**2 - 2.D0/3.D0*lnomz**3 + 12*lnz*Li2z - 44.D0/3.D0
|
|
& *lnz*lnomz + 2*lnz*lnomz**2 + 2*lnz**2*lnomz + 24*zeta3 + 44.D
|
|
& 0/3.D0*zeta2 )
|
|
I2(gq,plus,0) = I2(gq,plus,0) + tp0(gq,plus)*CF**2 * ( 16*lnomz
|
|
& + 3*lnomz**2 + 2.D0/3.D0*lnomz**3 )
|
|
|
|
I2(gq,rglr,1)=I2(gq,rglr,1) + mp0(gq,rglr)*CF*CA * ( 8*Li2mz + 8*
|
|
& lnz*lnopz )
|
|
I2(gq,rglr,0)=I2(gq,rglr,0) + mp0(gq,rglr)*CF*CA * ( - 8*
|
|
& Li3zonopz + 4*Li3mz + 4.D0/3.D0*lnopz**3 - 4*lnz*Li2mz - 4*
|
|
& lnz*lnopz**2 + 2*lnz**2*lnopz - 4*zeta2*lnopz )
|
|
|
|
|
|
cqbq
|
|
I2(qbq,rglr,2)=I2(qbq,rglr,2) + CF*TF * (2.D0 +8.D0/3.D0*z**(-1)
|
|
& + 4*lnz - 2*z + 4*z*lnz - 8.D0/3.D0*z**2 )
|
|
I2(qbq,rglr,1)=I2(qbq,rglr,1) + CF*TF * ( 16.D0 - 104.D0/9.D0*
|
|
& z**(-1) - 4*lnz + 4*lnz**2 - 24*z - 12*z*lnz + 4*z*lnz**2 +
|
|
& 176.D0/9.D0*z**2 - 32.D0/3.D0*z**2*lnz )
|
|
I2(qbq,rglr,1) = I2(qbq,rglr,1) + CF*CA*(8.D0 + 4*lnz - 8*z + 4*z
|
|
& *lnz )
|
|
I2(qbq,rglr,1) = I2(qbq,rglr,1) + CF**2 *(-16.D0 - 8*lnz + 16*z
|
|
& - 8*z*lnz )
|
|
I2(qbq,rglr,0)=I2(qbq,rglr,0) + CF*TF * ( - 70.D0/3.D0 + 344.D0/
|
|
& 27.D0*z**(-1) + 16.D0/3.D0*z**(-1)*Li2z + 16.D0/3.D0*z**(-1)*
|
|
& lnz*lnomz - 16.D0/3.D0*z**(-1)*zeta2 - 8*Li2z + 28.D0/3.D0*
|
|
& lnz - 8*lnz*lnomz - lnz**2 + 2.D0/3.D0*lnz**3 + 8*zeta2 + 62.D
|
|
& 0/3.D0*z + 8*z*Li2z - 40.D0/3.D0*z*lnz + 8*z*lnz*lnomz - z*
|
|
& lnz**2 + 2.D0/3.D0*z*lnz**3 - 8*z*zeta2 - 272.D0/27.D0*z**2
|
|
& - 16.D0/3.D0*z**2*Li2z + 128.D0/9.D0*z**2*lnz - 16.D0/3.D0*
|
|
& z**2*lnz*lnomz - 8.D0/3.D0*z**2*lnz**2 + 16.D0/3.D0*z**2*
|
|
& zeta2 )
|
|
I2(qbq,rglr,0) = I2(qbq,rglr,0) + CF*CA * (-15.D0 + 4*Li2mz - 4*
|
|
& Li2z - 3*lnz + 4*lnz*lnopz - 4*lnz*lnomz + 6*zeta2 + 15*z + 4
|
|
& *z*Li2mz + 4*z*Li2z - 11*z*lnz + 4*z*lnz*lnopz + 4*z*lnz*
|
|
& lnomz - 2*z*zeta2 )
|
|
I2(qbq,rglr,0) = I2(qbq,rglr,0) + CF**2*(30.D0 - 8*Li2mz + 8*Li2z
|
|
& + 6*lnz - 8*lnz*lnopz + 8*lnz*lnomz - 12*zeta2 - 30*z - 8*z*
|
|
& Li2mz - 8*z*Li2z + 22*z*lnz - 8*z*lnz*lnopz - 8*z*lnz*lnomz
|
|
& + 4*z*zeta2 )
|
|
|
|
I2(qbq,rglr,1)=I2(qbq,rglr,1) + mp0(qq,rglr)*CF*CA * ( - 8*Li2mz
|
|
& - 8*lnz*lnopz + 2*lnz**2 - 4*zeta2 )
|
|
I2(qbq,rglr,1) = I2(qbq,rglr,1) + mp0(qq,rglr)*CF**2 * ( 16*Li2mz
|
|
& + 16*lnz*lnopz - 4*lnz**2 + 8*zeta2 )
|
|
I2(qbq,rglr,0)=I2(qbq,rglr,0) + mp0(qq,rglr)*CF*CA * ( 8*
|
|
& Li3zonopz - 4*Li3mz - 8*Li3z - 4.D0/3.D0*lnopz**3 + 4*lnz*
|
|
& Li2mz + 4*lnz*Li2z + 4*lnz*lnopz**2 - 2*lnz**2*lnopz + 1.D0/3.
|
|
& D0*lnz**3 - 2*zeta3 + 4*zeta2*lnopz )
|
|
I2(qbq,rglr,0) = I2(qbq,rglr,0) + mp0(qq,rglr)*CF**2 * ( - 16*
|
|
& Li3zonopz + 8*Li3mz + 16*Li3z + 8.D0/3.D0*lnopz**3 - 8*lnz*
|
|
& Li2mz - 8*lnz*Li2z - 8*lnz*lnopz**2 + 4*lnz**2*lnopz - 2.D0/3.
|
|
& D0*lnz**3 + 4*zeta3 - 8*zeta2*lnopz )
|
|
|
|
cqpq
|
|
I2(qpq,rglr,2)=I2(qpq,rglr,2) + CF*TF * ( 2.D0 + 8.D0/3.D0*z**(-1)
|
|
& + 4*lnz - 2*z + 4*z*lnz - 8.D0/3.D0*z**2 )
|
|
I2(qpq,rglr,1)=I2(qpq,rglr,1) + CF*TF * ( 16.D0 - 104.D0/9.D0*
|
|
& z**(-1) - 4*lnz + 4*lnz**2 - 24*z - 12*z*lnz + 4*z*lnz**2 +
|
|
& 176.D0/9.D0*z**2 - 32.D0/3.D0*z**2*lnz )
|
|
I2(qpq,rglr,0)=I2(qpq,rglr,0) + CF*TF * ( - 70.D0/3.D0 + 344.D0/
|
|
& 27.D0*z**(-1) + 16.D0/3.D0*z**(-1)*Li2z + 16.D0/3.D0*z**(-1)*
|
|
& lnz*lnomz - 16.D0/3.D0*z**(-1)*zeta2 - 8*Li2z + 28.D0/3.D0*
|
|
& lnz - 8*lnz*lnomz - lnz**2 + 2.D0/3.D0*lnz**3 + 8*zeta2 + 62.D
|
|
& 0/3.D0*z + 8*z*Li2z - 40.D0/3.D0*z*lnz + 8*z*lnz*lnomz - z*
|
|
& lnz**2 + 2.D0/3.D0*z*lnz**3 - 8*z*zeta2 - 272.D0/27.D0*z**2
|
|
& - 16.D0/3.D0*z**2*Li2z + 128.D0/9.D0*z**2*lnz - 16.D0/3.D0*
|
|
& z**2*lnz*lnomz - 8.D0/3.D0*z**2*lnz**2 + 16.D0/3.D0*z**2*
|
|
& zeta2 )
|
|
|
|
|
|
cqbpq
|
|
I2(qbpq,rglr,2)=I2(qbpq,rglr,2)+CF*TF*(2.D0+ 8.D0/3.D0*z**(-1)
|
|
& + 4*lnz - 2*z + 4*z*lnz - 8.D0/3.D0*z**2 )
|
|
I2(qbpq,rglr,1)=I2(qbpq,rglr,1) + CF*TF * ( 16.D0 - 104.D0/9.D0*
|
|
& z**(-1) - 4*lnz + 4*lnz**2 - 24*z - 12*z*lnz + 4*z*lnz**2 +
|
|
& 176.D0/9.D0*z**2 - 32.D0/3.D0*z**2*lnz )
|
|
I2(qbpq,rglr,0)=I2(qbpq,rglr,0) + CF*TF * ( - 70.D0/3.D0 + 344.D0
|
|
& /27.D0*z**(-1) + 16.D0/3.D0*z**(-1)*Li2z + 16.D0/3.D0*z**(-1)
|
|
& *lnz*lnomz - 16.D0/3.D0*z**(-1)*zeta2 - 8*Li2z + 28.D0/3.D0*
|
|
& lnz - 8*lnz*lnomz - lnz**2 + 2.D0/3.D0*lnz**3 + 8*zeta2 + 62.D
|
|
& 0/3.D0*z + 8*z*Li2z - 40.D0/3.D0*z*lnz + 8*z*lnz*lnomz - z*
|
|
& lnz**2 + 2.D0/3.D0*z*lnz**3 - 8*z*zeta2 - 272.D0/27.D0*z**2
|
|
& - 16.D0/3.D0*z**2*Li2z + 128.D0/9.D0*z**2*lnz - 16.D0/3.D0*
|
|
& z**2*lnz*lnomz - 8.D0/3.D0*z**2*lnz**2 + 16.D0/3.D0*z**2*
|
|
& zeta2 )
|
|
|
|
return
|
|
end
|