COSMOS v7.655  COSMOSv7655
(AirShowerMC)
Functions/Subroutines
cupsilon.f File Reference

Go to the source code of this file.

Functions/Subroutines

real *8 function cupsilon (electron, mag)
 
real *8 function cegcrit (e, upsilon)
 
real *8 function cy2zeta (y, upsilon)
 
real *8 function cx2zeta (x, upsilon)
 

Function/Subroutine Documentation

◆ cegcrit()

real*8 function cegcrit ( real*8  e,
real*8  upsilon 
)

Definition at line 26 of file cupsilon.f.

26  implicit none
27 ! y in Erber is Eg/Egcrit
28 
29  real*8 e ! input. Electron energy in GeV.
30  real*8 upsilon ! Upsilon value E/m * Bsin/Bcr
31 !
32  cegcrit = e * 3. * upsilon/(2. + 3.*upsilon)
e
dE dx *! Nuc Int sampling table e
Definition: cblkMuInt.h:130
upsilon
! 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 the LPM effect is considered when Ee LpmBremEmin for electrons and ! Eg LpmPairEmin for gamma rays real *MagBremEmin E magnetic bremsstrahlung by electrons may be considered if not considered at all newline total energy loss due to brems is considered newline gamma energy is sampled actually newline ! If upsilon(Ee/m *B/Bcr) is small
cegcrit
real *8 function cegcrit(e, upsilon)
Definition: cupsilon.f:26

◆ cupsilon()

real*8 function cupsilon ( type(ptcl)  electron,
type(magfield)  mag 
)

Definition at line 8 of file cupsilon.f.

8  implicit none
9 #include "Zglobalc.h"
10 #include "Zptcl.h"
11 #include "Zmagfield.h"
12 
13  type(ptcl):: electron ! electron
14  type(magfield):: mag ! magnetic field.
15  real*8 bsin, cgetbsin
16 
17  bsin = cgetbsin(electron, mag)
18 ! E/m * Bsin/Bcr
19  cupsilon = electron%fm%p(4) /electron%mass * bsin/bcr
cupsilon
real *8 function cupsilon(electron, mag)
Definition: cupsilon.f:8
cgetbsin
real *8 function cgetbsin(aPtcl, mag)
Definition: cgetBsin.f:5
ptcl
Definition: Zptcl.h:75

◆ cx2zeta()

real*8 function cx2zeta ( real*8  x,
real*8  upsilon 
)

Definition at line 49 of file cupsilon.f.

49  implicit none
50  real*8 x ! input. Eg/Ee
51  real*8 upsilon ! input.
52 
53  cx2zeta = x *(1. + x)/(3.*upsilon)
cx2zeta
real *8 function cx2zeta(x, upsilon)
Definition: cupsilon.f:49
upsilon
! 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 the LPM effect is considered when Ee LpmBremEmin for electrons and ! Eg LpmPairEmin for gamma rays real *MagBremEmin E magnetic bremsstrahlung by electrons may be considered if not considered at all newline total energy loss due to brems is considered newline gamma energy is sampled actually newline ! If upsilon(Ee/m *B/Bcr) is small
x
! 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

◆ cy2zeta()

real*8 function cy2zeta ( real*8  y,
real*8  upsilon 
)

Definition at line 39 of file cupsilon.f.

39  implicit none
40  real*8 y ! input. Eg/Egcrit
41  real*8 upsilon ! input.
42 
43  cy2zeta = y/ (2. + 3.*upsilon*(1. - y))
cy2zeta
real *8 function cy2zeta(y, upsilon)
Definition: cupsilon.f:39
upsilon
! 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 the LPM effect is considered when Ee LpmBremEmin for electrons and ! Eg LpmPairEmin for gamma rays real *MagBremEmin E magnetic bremsstrahlung by electrons may be considered if not considered at all newline total energy loss due to brems is considered newline gamma energy is sampled actually newline ! If upsilon(Ee/m *B/Bcr) is small
y
latitude latitude this system is used *****************************************************************! type coord sequence union map real y
Definition: Zcoord.h:25