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