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