Skip to content

DIS: IC in F3charm in NC #28

@felixhekhorn

Description

@felixhekhorn
  • we believe the IC contributions for F3charm in the NC case are not present
  • it is discussed in the documentation but not implemented in the code:
    SC2mNC(igrid,ixi,3,0,beta,alpha) = ( 2d0 - eta ) * fL
    SCLmNC(igrid,ixi,3,0,beta,alpha) = 4d0 * ( 1d0 - eta )
    1 / ( 2d0 - eta ) / factL * fL
    *
    * NLO
    *
    if(ipt.ge.1)then
    *
    bound = alpha-inter_degree(igrid)
    if(alpha.lt.inter_degree(igrid)) bound = 0
    *
    c = max(xg(igrid,beta),
    1 xg(igrid,beta)/xg(igrid,alpha+1)) / eta
    d = min(eta,xg(igrid,beta)/xg(igrid,bound)) / eta
    *
    if(c.ge.1d0) cycle
    *
    walpha = alpha
    wbeta = beta
    *
    k = 3
    wl = 1
    *
    sf = 1
    C2RS = fact2 * eta * dgauss(integrandsICm,c,d,eps)
    C2L = fact2 * eta * c21ICL(c)
    *
    sf = 2
    CLRS = eta * dgauss(integrandsICm,c,d,eps)
    CLL = eta * cL1ICL(c)
    *
    if(MassScheme(1:5).eq."FONLL")then
    sf = 2
    * Gluon
    k = 1
    gDIC = dgauss(integrandsICm,c,d,eps)
    * Put these terms in the LO gluon slot (e.g. SC2mNC(igrid,ixi,1,0,beta,alpha))
    * which is empty.
    SC2mNC(igrid,ixi,1,0,beta,alpha) =
    1 - ( 2d0 - eta ) * lnF * gDIC
    SCLmNC(igrid,ixi,1,0,beta,alpha) =
    1 - 4d0 * ( 1d0 - eta ) / ( 2d0 - eta ) / factL
    2 * lnF * gDIC
    * Non-singlet
    k = 3
    wl = 2
    nsDIC = dgauss(integrandsICm,c,d,eps)
    *
    C2RS = C2RS - ( 2d0 - eta ) * nsDIC
    C2L = C2L - ( 2d0 - eta ) * DICc(xi,c)
    *
    CLRS = CLRS - 4d0 * ( 1d0 - eta ) / ( 2d0 - eta )
    1 * nsDIC
    CLL = CLL - 4d0 * ( 1d0 - eta ) / ( 2d0 - eta )
    1 * DICc(xi,c)
    endif
    *
    SC2mNC(igrid,ixi,3,1,beta,alpha) = C2RS + C2L * fL
    SCLmNC(igrid,ixi,3,1,beta,alpha) = CLRS + CLL * fL

    if(IntrinsicCharm)then
    if(Nf_FF.lt.4)then
    do pt=0,ipt_max_IC
    CLnsp(4) = CLnsp(4) + as(pt)
    1 * ( c0(4)
    2 * SCLm0NC(jgrid,ixi(4),
    3 3,pt,alpha,beta)
    4 + c1(4)
    5 * SCLm0NC(jgrid,ixi(4)+1,
    6 3,pt,alpha,beta) )
    C2nsp(4) = C2nsp(4) + as(pt)
    1 * ( c0(4)
    2 * SC2m0NC(jgrid,ixi(4),
    3 3,pt,alpha,beta)
    4 + c1(4)
    5 * SC2m0NC(jgrid,ixi(4)+1,
    6 3,pt,alpha,beta) )
    enddo
    endif
    endif

Metadata

Metadata

Assignees

No one assigned

    Labels

    No labels
    No labels

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions