COSMOS v7.655  COSMOSv7655
(AirShowerMC)
Zprivate.h
Go to the documentation of this file.
1 #include "Zprivate0.h"
2  integer w2hl(nsites), w2il(nsites)
3  integer histdep(nsites) ! histdep(j) = k >0 ==> at depth k, histograminng
4  ! is tried.
5  integer indivdep(nsites) ! indivdep(j) = k>0 ==> at depth k,
6  ! individual particle info. is output.
7  integer ansites, hnsites
8  integer fno, fnoB, fnonrfai
9  parameter ( fno=2, fnoB=3, fnonrfai=4 )
10 
11  logical recxy ! T --> record (x,y) or r
12 ! These must be double. because addition is done 1 by 1
13 ! and reach 10^7 or more.(at least Ng, Ne, at E0
14 ! >10^16eV.)
15  real*8 SumEloss(maxNoOfASSites),
16  * Ng(maxNoOfASSites), Ne(maxNoOfASSites), Nmu(maxNoOfASSites),
17  * Nhad(maxNoOfASSites)
18  real*8 dfai
19  parameter ( dfai = 360.d0/nfai )
20  real recprob(nrbin, 4, MaxNoOfASsites),
21  * nptcls(nrbin, 4, MaxNoOfASsites),
22  * nrfaiRec(nrbin, nfai, 4, MaxNoOfASsites),
23  * nrfaiAll(nrbin, nfai, 4, MaxNoOfASsites),
24  * dErfai(nrbin, nfai, MaxNoOfASsites)
25  logical tklat ! take lateral or not
26  logical tkelosslat ! take energy loss lateral or not
27 
28  logical tkarspec ! azimuthal angle dependent lateral
29  logical tkrespec
30 
31  logical tkrzspec
32 
33  logical tkzfspec
34 
35  logical tkrfspec
36 
37  logical tkefspec
38 
39  logical tkrtspec
40 
41  logical tkretspec
42 
43  logical tkrezspec
44 
45  logical tkrzfspec
46 
47  logical tkrefspec
48 
49 
50  real*8 rbin(nrbin+1)
51  common /Zprivatec/ Ng, Ne, Nmu, Nhad, SumEloss,
52  * rbin, recprob, nptcls, nrfaiRec, nrfaiAll,
53  * dErfai,
54  * histdep, indivdep, ansites, hnsites,
55  * recxy, tkelosslat, tklat, tkarspec,
56  * tkrespec, tkrzspec, tkzfspec, tkrfspec, tkefspec,
57  * tkrtspec,
58  * tkretspec, tkrezspec, tkrzfspec, tkrefspec
59 
60 
61 
62 
depth
*Zfirst p fm *Zfirst p Zfirst p Zfirst p *Zfirst p *Zfirst pos xyz Zfirst pos xyz *Zfirst pos *Zfirst pos depth
Definition: ZavoidUnionMap.h:1
real
float real
Definition: Zdef.h:2
histdep
integer lengid integer lengdir character *dir integer kgetenv2 character *numb character *execid character *msg logical takehist save do nsites histdep(i)=0indivdep(i)=0enddo leng
integer
int integer
Definition: Zdef.h:3
Nmu
real Nmu(maxNoOfASSites) common/Zprivatec0/Ng
r
*Zfirst p fm *Zfirst p Zfirst p Zfirst p *Zfirst p *Zfirst pos xyz r
Definition: ZavoidUnionMap.h:1
y
float y[maxp]
Definition: Zprivate.h:6
tkrtspec
logical KeepWeight ! see setupenv sh logical tkarspec ! get lateral histo in a web fai bin logical tkrtspec ! get time histo in each web bin logical SeeLowdE common Zprivatec2 tkrtspec
Definition: Zprivate4.h:7
Ne
real Ne
Definition: Zprivate.h:3
nrbin
! timing nrbin
Definition: Zprivate2.h:12
j
********************block data cblkHeavy ********************integer j data *HeavyG2symbol *data *HeavyG2code kiron data j
Definition: cblkHeavy.h:36
parameter
integer maxn parameter(maxn=50000) real *8 wzmin
tkarspec
logical KeepWeight ! see setupenv sh logical tkarspec ! get lateral histo in a web fai bin logical tkrtspec ! get time histo in each web bin logical SeeLowdE common Zprivatec2 tkarspec
Definition: Zprivate4.h:7
Ng
real ** Ng(maxNoOfASSites)
w2hl
integer w2hl(nsites)
d0
block data cblkEvhnp ! currently usable models data RegMdls ad *special data *Cekaon d0
Definition: cblkEvhnp.h:5
logical
int logical
Definition: Zdef.h:1
T
! type magfield sequence ! Note that position vector where the magnetic field is given ! is not included here ! unit of field strength is in T(1 gauss=10 **-4 T) union map real *8 x
x
float x[maxp]
Definition: Zprivate.h:5
maxNoOfASSites
! Zobs h header file for observation sites definition ! integer maxNoOfASSites
Definition: Zobs.h:4
tried
! Parameters used for hadronic cascade shower is generated newline ! For you may give as as or em quick generation of AS for heavy primaries is tried See chookASbyH f character *Generate2 don t touch this for skeleton flesh use integer MagBrem no magnetic bremsstrahlung is considered newline ! if and Ee energy loss due to magnetic brems is considered newline ! if and Ee real sampling of gamma is performed WaitRatio ! must be made small so that WaitRatio *E0 sim MagBremEmin integer MagPair no magnetic pair creation is considered newline ! if and Eg real sampling is tried(note, actually upsilon is referred further). To see these magnetic effects
modassize::fno
integer, parameter fno
Definition: chook.f:43
is
block data cblkIncident data *Za1ry is
Definition: cblkIncident.h:5
nfai
! timing nfai
Definition: Zprivate2.h:12