MACRO hijev nevent=1 run=1
*
*Definition of HIJING input
*
application data hijev.inp
' ====================================================== '
' =====
Hijing Control file
===== '
' ====================================================== '
' Run number
' 1
' Event number
' 0
' Generator number
' 31
' Frame/Energy
' 'CMS' 200.
' Projectile type/A/Z
' 'A' 197 79
' Target type/Z/Z
' 'A' 197 79
' Impact parameter min/max (fm)
' 0. 3.
' Jet quenching (1=yes/0=no)
' 0
' Hard scattering/pt jet (0/1, -thr)
' 0 -2.25
' Max # jets per nucleon (D=10)
' 10
' ihpr2(11), ihpr2(12)-pi0,k0,D,L,...decayoff ' 1
1
' ihpr2(21)- keep daughters, ihpr2(18)
' 1 0
' set C/B production(C=1.5,B=5.36)
' 1.5
hijev.inp
* =======================================================
*
GSTAR setup
* Generate year-1 geometry with half-field setting
*
detp geometry year2000 field=2.5 debug_on
make geometry
make gstar
make hij
tdm/newtable particle particle 40000
*
* Take hijing as input and filter-out non-perturbated spectators:
*( Simulation in the forward direction restricted by gkine
parameters)
*
gkine -1 0 0 100 -6.3 6.3
user/input u particle.staf
gfile o gstar.[run].fz
do i=1,[nevent]
mod/call hijjet particle
trig 1
enddo
return