pythiaeRHIC/pythia/pyxxga.f

0001
0002
0003 C*********************************************************************
0004
0005 C...PYXXGA
0006 C...Calculates chi0_i -> chi0_j + gamma.
0007
0008       FUNCTION PYXXGA(C0,XM1,XM2,XMTR,XMTL)
0009
0010 C...Double precision and integer declarations.
0011       IMPLICIT DOUBLE PRECISION(A-H, O-Z)
0012       IMPLICIT INTEGER(I-N)
0013       INTEGER PYK,PYCHGE,PYCOMP
0014
0015 C...Local variables.
0016       DOUBLE PRECISION PYXXGA,C0,XM1,XM2,XMTR,XMTL
0017       DOUBLE PRECISION F1,F2
0018
0019       F1=(1D0+XMTR/(1D0-XMTR)*LOG(XMTR))/(1D0-XMTR)
0020       F2=(1D0+XMTL/(1D0-XMTL)*LOG(XMTL))/(1D0-XMTL)
0021       PYXXGA=C0*((XM1**2-XM2**2)/XM1)**3
0022       PYXXGA=PYXXGA*(2D0/3D0*(F1+F2)-13D0/12D0)**2
0023
0024       RETURN
0025       END