COSMOS v7.655  COSMOSv7655
(AirShowerMC)
Zcoord.h
Go to the documentation of this file.
1 ! #ifndef Zcoord_
2 ! #define Zcoord_
3 #include "Zunionmap.h"
4 ! sys="xyz": origin is center of the Earth.
5 ! x: directed to longitude 0, latitude 0
6 ! y: directed to longitude 90 deg, latitude 0
7 ! z: center to the North pole
8 ! ****************************************************************
9 ! * During the paticle tracking, this system is used. *
10 ! ****************************************************************
11 !
12 
13 
14 !
15  type coord
16  sequence
17 #ifdef UNIONMAP
18  union
19  map
20 #endif
21  real*8 r(3)
22 #ifdef UNIONMAP
23  endmap
24  map
25  real*8 x, y, z ! x,y,z in m
26  endmap ! 'xyz'
27  map
28  real*8 lat, ! latitude in deg. + is to the north.
29  * long, ! longitude in deg. + is to the east.
30  * h ! height in m
31  endmap ! 'llh'
32  map
33  real*8 theta, ! polar angle
34  * phi, ! azimuthal angle
35  * radius ! radial distance
36  endmap ! 'sph'
37  endunion
38 #endif
39  character*4 sys ! which system. 'xyz', 'llh', 'sph'
40  end type coord
41 ! #endif /* Zcoord.h */
real(8), parameter, public m
Definition: cpdgXs.f:13
nodes z
latitude latitude this system is used *****************************************************************! type coord sequence union map real * r(3) endmap map real *8 x
float real
Definition: Zdef.h:2
latitude latitude this system is used *****************************************************************! type coord sequence union map real z z in m endmap xyz map real * lat
Definition: Zcoord.h:25
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 * long
Definition: Zcoord.h:25
*Zfirst p fm *Zfirst p Zfirst p Zfirst p *Zfirst p *Zfirst pos xyz Zfirst pos xyz sys
Definition: ZavoidUnionMap.h:1
real(4), dimension(:), allocatable, save h
Definition: cNRLAtmos.f:28
integer maxbin nregion c minsave drx2 ! drawing region real maxdep integer maxpos integer to
Definition: Zfit.h:15
max ptcl codes in the system(except krare) integer kphoton
*Zfirst p fm *Zfirst p Zfirst p Zfirst p *Zfirst p *Zfirst pos xyz Zfirst pos xyz *Zfirst pos *Zfirst pos Zfirst pos height
Definition: ZavoidUnionMap.h:1
latitude latitude this system is used *****************************************************************! type coord sequence union map real y
Definition: Zcoord.h:25
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 * theta
Definition: Zcoord.h:25
! common parameters for tracking(-> ------------------------------------- real *8 Deltpp !2 p-p xsection increases as $E^{Deltpp}$(E$>$ 100GeV) real *8 Deltpip !2 pi-p xsection increases as $E^{Deltpip}$(E$>$ 100GeV) real *8 Deltkp !2 k-p xsection increases as $E^{Deltkp}$(E$>$ 100GeV) real *8 IncreaseXsec !2 how the xsection increases. 1.0$\rightarrow$ power of E ! above ones are obsolete !<-) ----------------------------------- common/Zxsectionp/*Deltpp
Definition: Zcoord.h:43
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 * phi
Definition: Zcoord.h:25
block data cblkIncident data *Za1ry is
Definition: cblkIncident.h:5
! structure defining a particle at production ! Basic idea of what is to be contained in ! the particle structue is that dynamical ones should be included those derivable from the particle code ! is not included ******************************************************type fmom momentum sequence union map real e endmap map real * x
Definition: Zptcl.h:21