pyh2xx.f

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

 
C*********************************************************************
 
C...PYH2XX
C...Calculates the decay rate for a Higgs to an ino pair.
 
      FUNCTION pyh2xx(C1,XM1,XM2,XM3,GX2,GLR)
 
C...Double precision and integer declarations.
      IMPLICIT DOUBLE PRECISION(a-h, o-z)
      IMPLICIT INTEGER(i-n)
      INTEGER pyk,pychge,pycomp
C...Commonblocks.
      common/pydat1/mstu(200),paru(200),mstj(200),parj(200)
      SAVE /pydat1/
 
C...Local variables.
      DOUBLE PRECISION pyh2xx,xm1,xm2,xm3,gl,gr
      DOUBLE PRECISION xl,pylamf,c1
      DOUBLE PRECISION xmi2,xmj2,xmk2,xmi3
 
      xmi2=xm1**2
      xmi3=abs(xm1**3)
      xmj2=xm2**2
      xmk2=xm3**2
      xl=pylamf(xmi2,xmj2,xmk2)
      pyh2xx=c1/4d0/xmi3*sqrt(xl)
     &*(gx2*(xmi2-xmj2-xmk2)-
     &4d0*glr*xm3*xm2)
      IF(pyh2xx.LT.0d0) pyh2xx=0d0
 
      RETURN
      END