sPhenix code displayed by LXR |
|
|
|
|||
File indexing completed on 2025-08-05 08:21:09
0001 0002 C********************************************************************* 0003 0004 C...PYCHGE 0005 C...Gives three times the charge for a particle/parton. 0006 0007 FUNCTION PYCHGE(KF) 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/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) 0015 SAVE /PYDAT2/ 0016 0017 C...Read out charge and change sign for antiparticle. 0018 PYCHGE=0 0019 KC=PYCOMP(KF) 0020 IF(KC.NE.0) PYCHGE=KCHG(KC,1)*ISIGN(1,KF) 0021 0022 RETURN 0023 END
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.3.7 LXR engine. The LXR team |
|