pyx2xh.f

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

 
C*********************************************************************
 
C...PYX2XH
C...Calculates the decay rate for ino -> ino + H.
 
      FUNCTION pyx2xh(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...Local variables.
      DOUBLE PRECISION pyx2xh,xm1,xm2,xm3
      DOUBLE PRECISION xl,pylamf,c1
      DOUBLE PRECISION xmi2,xmj2,xmv2,xmi3
 
      xmi2=xm1**2
      xmi3=abs(xm1**3)
      xmj2=xm2**2
      xmv2=xm3**2
      xl=pylamf(xmi2,xmj2,xmv2)
      pyx2xh=c1/8d0/xmi3*sqrt(xl)
     &*(gx2*(xmi2+xmj2-xmv2)+
     &4d0*glr*xm1*xm2)
 
      RETURN
      END