pythiaeRHIC/pythia/pyx2xg.f

0001
0002 C*********************************************************************
0003
0004 C...PYX2XG
0005 C...Calculates the decay rate for ino -> ino + gauge boson.
0006
0007       FUNCTION PYX2XG(C1,XM1,XM2,XM3,GX2,GLR)
0008
0009 C...Double precision and integer declarations.
0010       IMPLICIT DOUBLE PRECISION(A-H, O-Z)
0011       IMPLICIT INTEGER(I-N)
0012       INTEGER PYK,PYCHGE,PYCOMP
0013
0014 C...Local variables.
0015       DOUBLE PRECISION PYX2XG,XM1,XM2,XM3,GX2,GLR
0016       DOUBLE PRECISION XL,PYLAMF,C1
0017       DOUBLE PRECISION XMI2,XMJ2,XMV2,XMI3
0018
0019       XMI2=XM1**2
0020       XMI3=ABS(XM1**3)
0021       XMJ2=XM2**2
0022       XMV2=XM3**2
0023       XL=PYLAMF(XMI2,XMJ2,XMV2)
0024       PYX2XG=C1/8D0/XMI3*SQRT(XL)
0025      &*(GX2*(XL+3D0*XMV2*(XMI2+XMJ2-XMV2))-
0026      &12D0*GLR*XM1*XM2*XMV2)
0027
0028       RETURN
0029       END