pythiaeRHIC/pythia/pyx2xh.f

0001
0002 C*********************************************************************
0003
0004 C...PYX2XH
0005 C...Calculates the decay rate for ino -> ino + H.
0006
0007       FUNCTION PYX2XH(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 PYX2XH,XM1,XM2,XM3
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       PYX2XH=C1/8D0/XMI3*SQRT(XL)
0025      &*(GX2*(XMI2+XMJ2-XMV2)+
0026      &4D0*GLR*XM1*XM2)
0027
0028       RETURN
0029       END