1 integer NdepthCompM ! max number of layers of comp. shower.
7 real*4 DepthComp(NdepthCompM) ! depths
where c.s sizes are given
*Zfirst p fm *Zfirst p Zfirst p Zfirst p *Zfirst p *Zfirst pos xyz Zfirst pos xyz *Zfirst pos *Zfirst pos depth
integer NdepthCompM ! max number of layers of comp shower integer Ncs NdepthCompM ! size of c s at each depth ! in log10 real ElecSizeComp
real(8), parameter, public m
integer NdepthCompM ! max number of layers of comp shower integer Ncs NdepthCompM ! size of c s at each depth ! in log10 real FirstColDep
! integer SkipPtclGen common Zheavyvc2 SkipPtclGen ! in heavy particle collision
integer NdepthCompM ! max number of layers of comp shower integer Ncs NdepthCompM ! size of c s at each depth ! in log10 real ElecAgeComp
integer NdepthCompM ! max number of layers of comp shower integer Ncs NdepthCompM ! size of c s at each depth ! in log10 real NoOfCompS
integer NdepthCompM ! max number of layers of comp shower integer Ncs NdepthCompM ! size of c s at each depth ! in log10 real E0Comp
*Zfirst p fm *Zfirst p Zfirst p Zfirst p *Zfirst p *Zfirst pos xyz Zfirst pos xyz *Zfirst pos *Zfirst pos Zfirst pos *Zfirst pos *Zfirst Zfirst vec w *Zfirst vec w Zfirst vec *Zfirst Zfirst where
integer NdepthCompM ! max number of layers of comp shower integer Ncs parameter(NdepthCompM=16, Ncs=420) integer NoOfCompS ! number of component showers integer NdepthComp ! actual number of layers for component showers real *4 DepthComp(NdepthCompM) ! depths where c.s sizes are given real *4 ElecSizeComp(Ncs
dE dx *! Nuc Int sampling table c