9 *
AnihiE /1.e3/, ! Eposi < 1 TeV, anihilation considered
10 *
X0 /365.667/, ! radiation length of air in kg/m2
11 *
Ecrit /81.e-3/, ! critical energy of air in GeV
13 *
MaxPhotoE /1.e-3/, ! above
this, PhotoElectric effect neg.
15 *
Es /19.3d-3/, ! scattering
const.
Note, not 21 MeV.
16 *
Knockon /.true./, ! knockon
is considered. Obsolete
17 *
PhotoProd /.false./, ! gp--> hadrons not considered.
19 ! compton/
p.e/coherent .
22 * ALateCor /1/ ! Angle-lateral correlation
for multiple scat.
block data cblkElemag data *AnihiE ! Eposi< 1 TeV, anihilation considered *X0/365.667/, ! radiation length of air in kg/m2 *Ecrit/81.e-3/, ! critical energy of air in GeV *MaxComptonE/1./, ! compton is considered below 1 GeV *MaxPhotoE/1.e-3/, ! above this, PhotoElectric effect neg. *MinPhotoProdE/153.e-3/, ! below 153 MeV, no gp --> hadrons ! scattering const not MeV *Knockon ! knockon is considered Obsolete *PhotoProd ! gp hadrons not considered * Excom1
block data cblkMuInt integer i ! Pair total X sec data(MuPrTX(i), i=1, 38)/1 0.431132E-02
block data cblkElemag data *AnihiE ! Eposi< 1 TeV, anihilation considered *X0/365.667/, ! radiation length of air in kg/m2 *Ecrit/81.e-3/, ! critical energy of air in GeV *MaxComptonE/1./, ! compton is considered below 1 GeV *MaxPhotoE/1.e-3/, ! above this, PhotoElectric effect neg. *MinPhotoProdE/153.e-3/, ! below 153 MeV, no gp --> hadrons * Es
********************block data cblkHeavy ********************integer j data *HeavyG2symbol p
block data cblkElemag data * RecoilKineMinE
integer maxFiles ! actual logical file ! it will be used during mpi skeleton making time ! so when the program starts to normal ! it will not be used block
block data cblkElemag data * KnockOnRatio
! parameters for Elemag Knockon
! parameters for Elemag MaxComptonE
block data cblkIncident data *Za1ry is
block data cblkElemag data *AnihiE ! Eposi< 1 TeV, anihilation considered *X0/365.667/, ! radiation length of air in kg/m2 *Ecrit/81.e-3/, ! critical energy of air in GeV *MaxComptonE/1./, ! compton is considered below 1 GeV *MaxPhotoE/1.e-3/, ! above this, PhotoElectric effect neg. *MinPhotoProdE/153.e-3/, ! below 153 MeV, no gp --> hadrons ! scattering const Note