COSMOS v7.655  COSMOSv7655
(AirShowerMC)
cppXsec.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine cppxsec (e, xs)
 
subroutine cpbarpxsec (e, xs)
 
subroutine cpiminuspxsec (e, xs)
 
subroutine cpipluspxsec (e, xs)
 
subroutine ckminuspxsec (e, xs)
 
subroutine ckpluspxsec (e, xs)
 

Function/Subroutine Documentation

◆ ckminuspxsec()

subroutine ckminuspxsec ( real*8  e,
real*8  xs 
)

Definition at line 104 of file cppXsec.f.

References ckmpinelaxs(), and maskc.

Referenced by ckminusaxsec(), and cxpxsec().

104  implicit none
105 #include "Zmass.h"
106  real*8 e, xs
107  real*8 p
108  p=sqrt( e*(e+maskc+maskc) )
109  call ckmpinelaxs(p, xs)
dE dx *! Nuc Int sampling table e
Definition: cblkMuInt.h:130
! 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
********************block data cblkHeavy ********************integer j data *HeavyG2symbol p
Definition: cblkHeavy.h:7
maskc
Definition: Zmass.h:5
subroutine ckmpinelaxs(p, xs)
Definition: ckmpTotXs.f:130
Here is the call graph for this function:
Here is the caller graph for this function:

◆ ckpluspxsec()

subroutine ckpluspxsec ( real*8  e,
real*8  xs 
)

Definition at line 121 of file cppXsec.f.

References ckppinelaxs(), and maskc.

Referenced by ckplusaxsec(), and cxpxsec().

121  implicit none
122 !---- include 'Zxsectionp.h'
123 #include "Zmass.h"
124  real*8 e, xs
125  real*8 p
126  p=sqrt( e*(e+maskc+maskc) )
127  call ckppinelaxs(p, xs)
dE dx *! Nuc Int sampling table e
Definition: cblkMuInt.h:130
! 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
********************block data cblkHeavy ********************integer j data *HeavyG2symbol p
Definition: cblkHeavy.h:7
maskc
Definition: Zmass.h:5
subroutine ckppinelaxs(p, xs)
Definition: ckppTotXs.f:116
Here is the call graph for this function:
Here is the caller graph for this function:

◆ cpbarpxsec()

subroutine cpbarpxsec ( real*8  e,
real*8  xs 
)

Definition at line 53 of file cppXsec.f.

References cpbarpinelaxs(), and masp.

Referenced by cpbaraxsec(), and cxpxsec().

53  implicit none
54 #include "Zmass.h"
55  real*8 e, xs
56  real*8 p
57  p = sqrt( e*(e+masp+masp) )
58  call cpbarpinelaxs(p, xs)
dE dx *! Nuc Int sampling table e
Definition: cblkMuInt.h:130
! 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
********************block data cblkHeavy ********************integer j data *HeavyG2symbol p
Definition: cblkHeavy.h:7
masp
Definition: Zmass.h:5
subroutine cpbarpinelaxs(p, xs)
Definition: cpbarpTotXs.f:116
Here is the call graph for this function:
Here is the caller graph for this function:

◆ cpiminuspxsec()

subroutine cpiminuspxsec ( real*8  e,
real*8  xs 
)

Definition at line 70 of file cppXsec.f.

References cpimpinelaxs(), and maspic.

Referenced by cpiminusaxsec(), and cxpxsec().

70  implicit none
71 #include "Zmass.h"
72  real*8 e, xs
73  real*8 p
74  p = sqrt( e * ( e + maspic + maspic) )
75  call cpimpinelaxs(p, xs)
dE dx *! Nuc Int sampling table e
Definition: cblkMuInt.h:130
! 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
********************block data cblkHeavy ********************integer j data *HeavyG2symbol p
Definition: cblkHeavy.h:7
subroutine cpimpinelaxs(p, xs)
Definition: cpimpTotXs.f:145
maspic
Definition: Zmass.h:5
Here is the call graph for this function:
Here is the caller graph for this function:

◆ cpipluspxsec()

subroutine cpipluspxsec ( real*8  e,
real*8  xs 
)

Definition at line 87 of file cppXsec.f.

References cpippinelaxs(), and maspic.

Referenced by cpiplusaxsec(), and cxpxsec().

87  implicit none
88 #include "Zmass.h"
89  real*8 e, xs
90  real*8 p
91  p = sqrt( e * ( e + maspic + maspic) )
92  call cpippinelaxs(p, xs)
dE dx *! Nuc Int sampling table e
Definition: cblkMuInt.h:130
! 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
********************block data cblkHeavy ********************integer j data *HeavyG2symbol p
Definition: cblkHeavy.h:7
maspic
Definition: Zmass.h:5
subroutine cpippinelaxs(p, xs)
Definition: cpippTotXs.f:180
Here is the call graph for this function:
Here is the caller graph for this function:

◆ cppxsec()

subroutine cppxsec ( real*8  e,
real*8  xs 
)

Definition at line 35 of file cppXsec.f.

References cppinelaxs(), and masp.

Referenced by cprotonaxsec(), and cxpxsec().

35  implicit none
36 #include "Zmass.h"
37  real*8 e, xs
38  real*8 p
39 ! p = sqrt( (e+masp)**2 - masp**2 )
40  p = sqrt( e*(e+masp+masp) )
41  call cppinelaxs(p, xs)
dE dx *! Nuc Int sampling table e
Definition: cblkMuInt.h:130
! 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
********************block data cblkHeavy ********************integer j data *HeavyG2symbol p
Definition: cblkHeavy.h:7
masp
Definition: Zmass.h:5
subroutine cppinelaxs(p, xs)
Definition: cppTotXs.f:124
Here is the call graph for this function:
Here is the caller graph for this function: