HepPDT Reference Documentation

HepPDT

examListPythiaInterface.F

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       

Generated on Fri Dec 4 14:05:23 2009 for HepPDT by  doxygen 1.4.7