pyxxga.f

Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file pyxxga.f

 
 
C*********************************************************************
 
C...PYXXGA
C...Calculates chi0_i -> chi0_j + gamma.
 
      FUNCTION pyxxga(C0,XM1,XM2,XMTR,XMTL)
 
C...Double precision and integer declarations.
      IMPLICIT DOUBLE PRECISION(a-h, o-z)
      IMPLICIT INTEGER(i-n)
      INTEGER pyk,pychge,pycomp
 
C...Local variables.
      DOUBLE PRECISION pyxxga,c0,xm1,xm2,xmtr,xmtl
      DOUBLE PRECISION f1,f2
 
      f1=(1d0+xmtr/(1d0-xmtr)*log(xmtr))/(1d0-xmtr)
      f2=(1d0+xmtl/(1d0-xmtl)*log(xmtl))/(1d0-xmtl)
      pyxxga=c0*((xm1**2-xm2**2)/xm1)**3
      pyxxga=pyxxga*(2d0/3d0*(f1+f2)-13d0/12d0)**2
 
      RETURN
      END