![]() |
HepPDT Reference DocumentationHepPDT |
00001 subroutine list_pythia 00002 C 00003 C list jetset particle definitions 00004 C 00005 #include "pydat1.inc" 00006 00007 INTEGER LNHOUT 00008 C 00009 lnhout=22 00010 MSTU(11)=LNHOUT 00011 OPEN(UNIT=LNHOUT,FILE='examListPythia.lpt',STATUS='NEW') 00012 C 00013 C... 00014 call pylist(11) 00015 C...enable pylist(12) if you need a new pythia decay table 00016 C call pylist(12) 00017 C 00018 C 00019 c...close output file 00020 CLOSE(UNIT=LNHOUT) 00021 return 00022 END 00023 00024 subroutine getkf(kc,kf) 00025 #include "pydat2.inc" 00026 integer kf,kc 00027 kf = KCHG(KC,4) 00028 return 00029 END 00030 00031 subroutine getpyname(kf,idef,chap) 00032 #include "pydat2.inc" 00033 integer kf 00034 character*16 chap 00035 integer idef 00036 idef = 1 00037 CALL PYNAME(KF,CHAP) 00038 if(CHAP.EQ.' ') idef=0 00039 return 00040 END 00041 00042