3 ! variables in Event generator
4 type(
ptcl):: Pjlab, ! projectile in lab.
5 * Pjtatr, ! projectile in target at rest
system 6 * Pjcms, ! projectile in cms
7 * Rpjlab, ! recoiled proj. in lab
8 * Rpjtatr, ! recoiled proj. in target at rest
system 9 * Rpjcms ! recoiled proj. in cms
11 type(
ptcl):: Tglab, ! target in lab.
12 * Tgpatr, ! target in projectile at rest
system 13 * Tgcms, ! target in cms
14 * Rtglab, ! recoiled target in lab
15 * Rtgpatr, ! recoiled target in proj. at rest
system 16 * Rtgcms ! recoiled target in cms
18 type(
ptcl):: Cmsp, ! cms particle formed by proj. and targe
20 * Missingp ! missing
mass particle (rest of
21 ! two recoiled leadings) in cms.
22 real*8 Efrs, ! effective roots
23 * Powerexp, ! pw2 in
x**pw2 exp(-
x)
dx exp. type Pt distri.
24 * Powerp, !
pw in
x/(
x +p0)**
pw dx power type Pt distri.
25 * Ptnorm, ! average Pt for normalization (pion
's at this E) 26 * Probpower, ! Probability of power type pt. 27 * Avncharged ! Average number of charge particles 29 real*8 InteErg(MaxIntMdls) ! energy bound for interaction model. 30 character*16 ModelList(MaxIntMdls) ! corresponding model name. 31 real*8 InteErg2(MaxIntMdls) ! energy bound for XsecModel 32 character*16 ModelList2(MaxIntMdls) ! and corresponding model name 35 character*16 ActiveMdl ! interaction model to be applied to the 36 integer::ActiveMdlNo ! ActiveMdel index 37 character*16 ActiveMdl2 ! interaction model to be applied to the 39 integer::ActiveMdlNo2 ! AtciveNdl2 index 41 integer Nnnb, ! # of nn~ 44 * Npic, ! # of pi+, pi- 46 * Nkch, ! # of k+, k- ( Nkaon = Nkch + Nk0) 48 * Nch, ! # of all charged secondaries 50 * NoOfMdls, ! # of interaction models being used. 51 * NoOfMdls2 ! # of Xsec models being used. 53 common /Zevhnv/ Pjlab, Pjtatr, Pjcms, Rpjlab, Rpjtatr, 54 * Rpjcms, Tglab, Tgpatr, Tgcms, Rtglab, 55 * Rtgpatr, Rtgcms, Cmsp, Missingp, 57 * Efrs, Powerexp, Powerp, Ptnorm, Probpower, 59 * Nnnb, Nkaon, Nddb, Npic, Nk0, Nkch, Npi0, 60 * Neta, NoOfMdls, NoOfMdls2, 61 * ActiveMdlNo, ActiveMdlNo2 62 common /Zevhnvc/ ModelList, ActiveMdl, ModelList2, ActiveMdl2 64 save /Zevhnv/, /Zevhnvc/ integer npitbl real *nx parameter(n=101, npitbl=46, nx=n-1) real *8 uconst
integer npitbl real *nx dx real dx
max ptcl codes in the system(except krare) integer kphoton
*Zfirst p fm *Zfirst p mass
! structure defining a particle at production ! Basic idea of what is to be contained in ! the particle structue is that dynamical ones should be included those derivable from the particle code ! is not included ******************************************************type fmom momentum sequence union map real e endmap map real * x