COSMOS v7.655  COSMOSv7655
(AirShowerMC)
Zprivate.h
Go to the documentation of this file.
1  integer maxn
2  parameter ( maxn = 50000 )
3  real*8 wzmin, wzmax, trackl, LabEquivE
4  real*8 ke(maxn)
5  integer indx(maxn)
6  integer nevent
7  integer outzero, outresul
8  integer pjcode, pjsub, pjchg
9  integer tgcode, tgsub, tgchg
10  integer inpfileno, xyz
11  real*8 pjpx, pjpy, pjpz
12  real*8 tgpx, tgpy, tgpz
13  real(8)::b
14  character(8):: targetName
15 ! real xpos, ypos, zpos
16  real(4)::xpos(3)
17  integer pjmnum, tgmnum ! proj. target mass number
18  type (ptcl):: pj, tg, plab
19  common /Zotherc/ pj, tg, plab, ke, wzmin, wzmax,
20  * trackl, pjpx, pjpy, pjpz, tgpx, tgpy, tgpz,
21 ! * xpos, ypos, zpos,
22  * xpos, LabEquivE, b,
23  * indx, nevent, outzero, outresul,
24  * pjmnum, tgmnum, inpfileno, xyz,
25  * pjcode, pjsub, pjchg,
26  * tgcode, tgsub, tgchg
27  common /ZothercCha/ targetName
28 
29 
30 
31 
32 
33 
34 
tgpy
integer maxn LabEquivE real outresul integer pjchg integer tgchg integer xyz real pjpz real tgpy
Definition: Zprivate.h:8
real
float real
Definition: Zdef.h:2
integer
int integer
Definition: Zdef.h:3
inpfileno
integer maxn LabEquivE real outresul integer pjchg integer tgchg integer inpfileno
Definition: Zprivate.h:8
xyz
latitude latitude this system is used *****************************************************************! type coord sequence union map real z z in m endmap xyz map real ! latitude in deg is to the north ! longitude in deg is to the east *h ! height in m endmap llh map real ! polar angle ! azimuthal angle *radius ! radial distance endmap sph endunion character *sys ! which system xyz
Definition: Zcoord.h:25
pjcode
integer maxn LabEquivE real outresul integer pjcode
Definition: Zprivate.h:8
wzmax
integer maxn wzmax
Definition: Zprivate.h:3
parameter
integer maxn parameter(maxn=50000) real *8 wzmin
tgcode
integer maxn LabEquivE real outresul integer pjchg integer tgcode
Definition: Zprivate.h:8
tgsub
integer maxn LabEquivE real outresul integer pjchg integer tgsub
Definition: Zprivate.h:8
tgpx
integer maxn LabEquivE real outresul integer pjchg integer tgchg integer xyz real pjpz real * tgpx
Definition: Zprivate.h:8
ke
integer maxn LabEquivE real * ke(maxn) integer indx(maxn) integer nevent integer outzero
trackl
integer maxn trackl
Definition: Zprivate.h:3
pjpy
integer maxn LabEquivE real outresul integer pjchg integer tgchg integer xyz real pjpy
Definition: Zprivate.h:8
b
dE dx *! Nuc Int sampling table b
Definition: cblkMuInt.h:130
outresul
subroutine outresul(a, ntp)
Definition: Gencol0.f:229
pjsub
integer maxn LabEquivE real outresul integer pjsub
Definition: Zprivate.h:8
ptcl
Definition: Zptcl.h:75
mass
*Zfirst p fm *Zfirst p mass
Definition: ZavoidUnionMap.h:1
pjpx
integer maxn LabEquivE real outresul integer pjchg integer tgchg integer xyz real * pjpx
Definition: Zprivate.h:8