************************************************************************ * * initIntegralsDISRes.f: * * This routine initializes the integrals of small-x resummed coefficient * functions and interpolation functions on the grid in alphas. * ************************************************************************ subroutine initIntegralsDISRes * implicit none * include "../commons/Smallx.h" include "../commons/grid.h" include "../commons/gridAlpha.h" ** * Variables * integer alpha,beta,tau * * Initialize integrals * call HELLLogOrder(LogAcc) if(IsExt(igrid))then do tau=0,na do alpha=0,nin(igrid)-1 do beta=alpha,nin(igrid)-1 call RSLintegralsDISRes(alpha,beta,tau) enddo enddo enddo else do tau=0,na do alpha=0,nin(igrid)-1 call RSLintegralsDISRes(0,alpha,tau) enddo enddo endif * return end