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

Go to the source code of this file.

Functions/Subroutines

subroutine cprotonaxsec (a, e, xs)
 
subroutine cpbaraxsec (a, e, xs)
 
subroutine cpiminusaxsec (a, e, xs)
 
subroutine cpiplusaxsec (a, e, xs)
 
subroutine ckminusaxsec (a, e, xs)
 
subroutine ckplusaxsec (a, e, xs)
 

Function/Subroutine Documentation

◆ ckminusaxsec()

subroutine ckminusaxsec ( real*8  a,
real*8  e,
real*8  xs 
)

Definition at line 57 of file cprotonAXsec.f.

References ckminuspxsec(), and cxp2xaxsec().

57  implicit none
58  real*8 a, e, xs
59 !
60  real*8 xsxp
61 
62  call ckminuspxsec(e, xsxp)
63  call cxp2xaxsec(a, xsxp, xs)
dE dx *! Nuc Int sampling table e
Definition: cblkMuInt.h:130
subroutine cxp2xaxsec(a, xsxp, xsxa)
Definition: cxp2xAXsec.f:30
! 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
subroutine ckminuspxsec(e, xs)
Definition: cppXsec.f:104
real(4), save a
Definition: cNRLAtmos.f:20
Here is the call graph for this function:

◆ ckplusaxsec()

subroutine ckplusaxsec ( real*8  a,
real*8  e,
real*8  xs 
)

Definition at line 66 of file cprotonAXsec.f.

References ckpluspxsec(), and cxp2xaxsec().

66  implicit none
67  real*8 a, e, xs
68 !
69  real*8 xsxp
70 
71  call ckpluspxsec(e, xsxp)
72  call cxp2xaxsec(a, xsxp, xs)
dE dx *! Nuc Int sampling table e
Definition: cblkMuInt.h:130
subroutine cxp2xaxsec(a, xsxp, xsxa)
Definition: cxp2xAXsec.f:30
! 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
real(4), save a
Definition: cNRLAtmos.f:20
subroutine ckpluspxsec(e, xs)
Definition: cppXsec.f:121
Here is the call graph for this function:

◆ cpbaraxsec()

subroutine cpbaraxsec ( real*8  a,
real*8  e,
real*8  xs 
)

Definition at line 27 of file cprotonAXsec.f.

References cpbarpxsec(), and cxp2xaxsec().

27  implicit none
28  real*8 a, e, xs
29 !
30  real*8 xsxp
31 !
32  call cpbarpxsec(e, xsxp)
33  call cxp2xaxsec(a, xsxp, xs)
dE dx *! Nuc Int sampling table e
Definition: cblkMuInt.h:130
subroutine cxp2xaxsec(a, xsxp, xsxa)
Definition: cxp2xAXsec.f:30
! 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
real(4), save a
Definition: cNRLAtmos.f:20
subroutine cpbarpxsec(e, xs)
Definition: cppXsec.f:53
Here is the call graph for this function:

◆ cpiminusaxsec()

subroutine cpiminusaxsec ( real*8  a,
real*8  e,
real*8  xs 
)

Definition at line 37 of file cprotonAXsec.f.

References cpiminuspxsec(), and cxp2xaxsec().

37  implicit none
38  real*8 a, e, xs
39 !
40  real*8 xsxp
41 
42  call cpiminuspxsec(e, xsxp)
43  call cxp2xaxsec(a, xsxp, xs)
dE dx *! Nuc Int sampling table e
Definition: cblkMuInt.h:130
subroutine cxp2xaxsec(a, xsxp, xsxa)
Definition: cxp2xAXsec.f:30
! 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
subroutine cpiminuspxsec(e, xs)
Definition: cppXsec.f:70
real(4), save a
Definition: cNRLAtmos.f:20
Here is the call graph for this function:

◆ cpiplusaxsec()

subroutine cpiplusaxsec ( real*8  a,
real*8  e,
real*8  xs 
)

Definition at line 47 of file cprotonAXsec.f.

References cpipluspxsec(), and cxp2xaxsec().

47  implicit none
48  real*8 a, e, xs
49 !
50  real*8 xsxp
51 
52  call cpipluspxsec(e, xsxp)
53  call cxp2xaxsec(a, xsxp, xs)
dE dx *! Nuc Int sampling table e
Definition: cblkMuInt.h:130
subroutine cxp2xaxsec(a, xsxp, xsxa)
Definition: cxp2xAXsec.f:30
! 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
real(4), save a
Definition: cNRLAtmos.f:20
subroutine cpipluspxsec(e, xs)
Definition: cppXsec.f:87
Here is the call graph for this function:

◆ cprotonaxsec()

subroutine cprotonaxsec ( real*8  a,
real*8  e,
real*8  xs 
)

Definition at line 14 of file cprotonAXsec.f.

References cppxsec(), and cxp2xaxsec().

14 ! a: real*8. input. target mass number
15 ! e: real*8. input. kinetic energy of the ptcl(in GeV)
16 ! xs: real*8. output. xsection in mb
17  implicit none
18  real*8 a, e, xs
19 !
20  real*8 xsxp
21 !
22  call cppxsec(e, xsxp)
23  call cxp2xaxsec(a, xsxp, xs)
dE dx *! Nuc Int sampling table e
Definition: cblkMuInt.h:130
subroutine cxp2xaxsec(a, xsxp, xsxa)
Definition: cxp2xAXsec.f:30
! 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
real(4), save a
Definition: cNRLAtmos.f:20
subroutine cppxsec(e, xs)
Definition: cppXsec.f:35
Here is the call graph for this function: