MACRO hijev nevent=10 file=hijing run=1
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
detp  geometry year_2a
RNDM  $pid [run]
vsig  0.01  18.
ghist [file].his
gstat time size mult stak
*
make  hij
make  geometry
make  gstar
make  control
*                        set a primitive dataset structure
mkdir evgen
cd    evgen
tdm/newtable particle particle 40000
cd ..
*                        I/O setup here
 user/input    u  evgen/particle.staf
 gfile         o  [file][run].fz
*                        run event loop
do i = 1, [nevent]
  mod/call hijjet evgen/particle
  more            evgen/particle
  trig 1
enddo
*
exit
return