pythiaeRHIC/pythia/pyh2xx.f

0001
0002 C*********************************************************************
0003
0004 C...PYH2XX
0005 C...Calculates the decay rate for a Higgs to an ino pair.
0006
0007       FUNCTION PYH2XX(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 C...Commonblocks.
0014       COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
0015       SAVE /PYDAT1/
0016
0017 C...Local variables.
0018       DOUBLE PRECISION PYH2XX,XM1,XM2,XM3,GL,GR
0019       DOUBLE PRECISION XL,PYLAMF,C1
0020       DOUBLE PRECISION XMI2,XMJ2,XMK2,XMI3
0021
0022       XMI2=XM1**2
0023       XMI3=ABS(XM1**3)
0024       XMJ2=XM2**2
0025       XMK2=XM3**2
0026       XL=PYLAMF(XMI2,XMJ2,XMK2)
0027       PYH2XX=C1/4D0/XMI3*SQRT(XL)
0028      &*(GX2*(XMI2-XMJ2-XMK2)-
0029      &4D0*GLR*XM3*XM2)
0030       IF(PYH2XX.LT.0D0) PYH2XX=0D0
0031
0032       RETURN
0033       END