pychge.f

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

 
C*********************************************************************
 
C...PYCHGE
C...Gives three times the charge for a particle/parton.
 
      FUNCTION pychge(KF)
 
C...Double precision and integer declarations.
      IMPLICIT DOUBLE PRECISION(a-h, o-z)
      IMPLICIT INTEGER(i-n)
      INTEGER pyk,pychge,pycomp
C...Commonblocks.
      common/pydat2/kchg(500,4),pmas(500,4),parf(2000),vckm(4,4)
      SAVE /pydat2/
 
C...Read out charge and change sign for antiparticle.
      pychge=0
      kc=pycomp(kf)
      IF(kc.NE.0) pychge=kchg(kc,1)*isign(1,kf)
 
      RETURN
      END