pyname.f

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

 
C*********************************************************************
 
C...PYNAME
C...Gives the particle/parton name as a character string.
 
      SUBROUTINE pyname(KF,CHAU)
 
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)
      common/pydat2/kchg(500,4),pmas(500,4),parf(2000),vckm(4,4)
      common/pydat4/chaf(500,2)
      CHARACTER chaf*16
      SAVE /pydat1/,/pydat2/,/pydat4/
C...Local character variable.
      CHARACTER chau*16
 
C...Read out code with distinction particle/antiparticle.
      chau=' '
      kc=pycomp(kf)
      IF(kc.NE.0) chau=chaf(kc,(3-isign(1,kf))/2)
 
 
      RETURN
      END