pythiaeRHIC/pythia/pyname.f

0001
0002 C*********************************************************************
0003
0004 C...PYNAME
0005 C...Gives the particle/parton name as a character string.
0006
0007       SUBROUTINE PYNAME(KF,CHAU)
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       COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4)
0016       COMMON/PYDAT4/CHAF(500,2)
0017       CHARACTER CHAF*16
0018       SAVE /PYDAT1/,/PYDAT2/,/PYDAT4/
0019 C...Local character variable.
0020       CHARACTER CHAU*16
0021
0022 C...Read out code with distinction particle/antiparticle.
0023       CHAU=' '
0024       KC=PYCOMP(KF)
0025       IF(KC.NE.0) CHAU=CHAF(KC,(3-ISIGN(1,KF))/2)
0026
0027
0028       RETURN
0029       END