COSMOS v7.655  COSMOSv7655
(AirShowerMC)
Zglobalc.h
Go to the documentation of this file.
1 ! constants thru Cosmos
2  real*8 pi, ! 3.14..
3  * sqrtpi, ! sqrt(pi)
4  * Torad, ! if multiplied to deg --> radian
5  * Todeg, ! 1/Torad
6  * c, ! light velocity m/sec
7  * Infty, ! infinty
8  * Togpcm2, ! kg/m2 *Togpcm2 --> g/cm2
9  * Tokgpm2, ! g/cm2 *Tokgpm2 --> kg/m2
10  * Tom, ! cm *Tom --> m
11  * Tocm, ! m*Tocm --> cm
12  * Tokgpm3, ! g/cm3 * Tokgpm3 --> kg/m3
13  * Togpcm3, ! kg/m3 * Togpcm3 --> g/cm3
14  * Tonsec, ! sec *Tonsec --> nsec
15  * Bcr, ! Tesla. m^2c^3/eh = 4.414x10^13G=4. x10^9
16  * SyncConvR ! alpha(mc^2/Lc). GeV/m. conv. rate of synch.r
17  real*8 Avogn, ! Avogadro #. /mol
18  * A2deninv ! mfp * n* xs = 1; mfp in kg/m2
19  ! xs in mb. 1/n = A2deninv*A
20 
21 
22  parameter(pi = 3.141592653589793238d0,
23  * sqrtpi = 1.772453850905516d0, Torad = pi/180.d0,
24  * Todeg = 180.d0/pi, c=2.998d8, Infty=1.d50, Tom = 1.d-2,
25  * Tocm = 1.d0/Tom,
26  * Togpcm2 = 0.1d0, Tokgpm2 = 1.d0/Togpcm2,
27  * Tokgpm3 = Tokgpm2/Tom, Togpcm3 = 1.d0/Tokgpm3,
28  * Tonsec = 1.d9, Bcr = 4.414d9, SyncConvR=9.657d6)
29  parameter (Avogn=6.0221415d23, A2deninv = 1.d28/Avogn)
30 
31 
32 
33 
34 
parameter
integer npitbl real *nx parameter(n=101, npitbl=46, nx=n-1) real *8 uconst
modpdgxs::m
real(8), parameter, public m
Definition: cpdgXs.f:13
real
float real
Definition: Zdef.h:2
c
! constants thru Cosmos real ! if multiplied to deg radian Torad * c
Definition: Zglobalc.h:5
Tonsec
! constants thru Cosmos real ! if multiplied to deg radian Torad ! light velocity m sec ! infinty ! kg m2 *Togpcm2 g cm2 ! g cm2 *Tokgpm2 kg m2 ! cm *Tom m ! m *Tocm cm ! g cm3 *Tokgpm3 kg m3 ! kg m3 *Togpcm3 g cm3 * Tonsec
Definition: Zglobalc.h:5
Tom
! constants thru Cosmos real ! if multiplied to deg radian Torad ! light velocity m sec ! infinty ! kg m2 *Togpcm2 g cm2 ! g cm2 *Tokgpm2 kg m2 * Tom
Definition: Zglobalc.h:5
Bcr
! constants thru Cosmos real ! if multiplied to deg radian Torad ! light velocity m sec ! infinty ! kg m2 *Togpcm2 g cm2 ! g cm2 *Tokgpm2 kg m2 ! cm *Tom m ! m *Tocm cm ! g cm3 *Tokgpm3 kg m3 ! kg m3 *Togpcm3 g cm3 ! sec *Tonsec nsec * Bcr
Definition: Zglobalc.h:5
mb
! constants used for pair brem in Air real *mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in mb
Definition: ZbpCnst.h:3
Todeg
! constants thru Cosmos real ! if multiplied to deg radian * Todeg
Definition: Zglobalc.h:5
xs
! constants thru Cosmos real ! if multiplied to deg radian Torad ! light velocity m sec ! infinty ! kg m2 *Togpcm2 g cm2 ! g cm2 *Tokgpm2 kg m2 ! cm *Tom m ! m *Tocm cm ! g cm3 *Tokgpm3 kg m3 ! kg m3 *Togpcm3 g cm3 ! sec *Tonsec nsec ! Tesla m ! Avogadro *A2deninv ! mfp *n * xs
Definition: Zglobalc.h:18
Tocm
! constants thru Cosmos real ! if multiplied to deg radian Torad ! light velocity m sec ! infinty ! kg m2 *Togpcm2 g cm2 ! g cm2 *Tokgpm2 kg m2 ! cm *Tom m * Tocm
Definition: Zglobalc.h:5
Togpcm3
! constants thru Cosmos real ! if multiplied to deg radian Torad ! light velocity m sec ! infinty ! kg m2 *Togpcm2 g cm2 ! g cm2 *Tokgpm2 kg m2 ! cm *Tom m ! m *Tocm cm ! g cm3 *Tokgpm3 kg m3 * Togpcm3
Definition: Zglobalc.h:5
Torad
! Zkcele h ! unit here is Torad
Definition: Zkcele.h:3
Togpcm2
! constants thru Cosmos real ! if multiplied to deg radian Torad ! light velocity m sec ! infinty * Togpcm2
Definition: Zglobalc.h:5
to
integer maxbin nregion c minsave drx2 ! drawing region real maxdep integer maxpos integer to
Definition: Zfit.h:15
d0
block data cblkEvhnp ! currently usable models data RegMdls ad *special data *Cekaon d0
Definition: cblkEvhnp.h:5
Infty
! constants thru Cosmos real ! if multiplied to deg radian Torad ! light velocity m sec * Infty
Definition: Zglobalc.h:5
sqrtpi
! constants thru Cosmos real * sqrtpi
Definition: Zglobalc.h:2
eh
! constants thru Cosmos real ! if multiplied to deg radian Torad ! light velocity m sec ! infinty ! kg m2 *Togpcm2 g cm2 ! g cm2 *Tokgpm2 kg m2 ! cm *Tom m ! m *Tocm cm ! g cm3 *Tokgpm3 kg m3 ! kg m3 *Togpcm3 g cm3 ! sec *Tonsec nsec ! Tesla m eh
Definition: Zglobalc.h:15
pi
! constants thru Cosmos real * pi
Definition: Zglobalc.h:2
Tokgpm3
! constants thru Cosmos real ! if multiplied to deg radian Torad ! light velocity m sec ! infinty ! kg m2 *Togpcm2 g cm2 ! g cm2 *Tokgpm2 kg m2 ! cm *Tom m ! m *Tocm cm * Tokgpm3
Definition: Zglobalc.h:5
d
dE dx *! Nuc Int sampling table d
Definition: cblkMuInt.h:130
d8
block data cblkEvhnp ! currently usable models data RegMdls ad *special data *Cekaon *Mudirp ! old one is bef v *IntModel dpmjet3 d8
Definition: cblkEvhnp.h:5
g
dE dx *! Nuc Int sampling table g
Definition: cblkMuInt.h:130
n
integer n
Definition: Zcinippxc.h:1
Tokgpm2
! constants thru Cosmos real ! if multiplied to deg radian Torad ! light velocity m sec ! infinty ! kg m2 *Togpcm2 g cm2 * Tokgpm2
Definition: Zglobalc.h:5