Functions
! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real *	cScrMain (4/3C1+C2) real *8 CompScrE ! Energy above which we can use complete screening ! cross-sections. evaluate at Eg/Ee

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 *rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL	! log10 (PairEgmaxL/PairEgemin) *10 integer PairEsize ! Size of log10 energy for 2D table for ! pair in the region A

Variables
! constants used for pair brem in Air real *mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in	mb

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below	this

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	~ PairEgmaxL

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	BrScrE

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	BremEgmin

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	BremEemin

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	BremLEemin

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	BremEemaxL

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin *	BremUminLA

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	BremUmaxLA

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	BremdULA

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	BremdETXL

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	BremdEL

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	BremUminLB

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin *	BremUmaxLB

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	BremdULB

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	PairEgmin

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	PairNonSc

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	PairLEgmin

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin *	PairEgmaxL

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	PrScrE

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	PairUminLA

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	PairUmaxLA

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	PairdULA

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	PairdETXL

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin *	PairUminLB

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	PairUmaxLB

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	PairdULB

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	PairdELA

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	PairdELB

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	BrEeminS

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin *	BrEgminS

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	BrLEeminS

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	BrEemaxS

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	BrUminSA

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	BrUmaxSA

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	BrdUSA

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin *	BrdETXS

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	BrdES

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	BrUminSB

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	BrUmaxSB

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	BrdUSB

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin *	cScrC1

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	cScrC2

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	cScrMain

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin	mbtoPX0

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g	muNVmin

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g	muNdU

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g	muNEmin

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g	muNLEmin

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g	muNEmax

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g *	muNEmax1

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g	muNdETX

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g	muNdE

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g	muNpwtx

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g	muNpwdEdx0

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g	muNpwdEdxt

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g *	muBrVmin

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g	muBrdU

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g	muBrEmin

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g	muBrLEmin

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g	muBrEmax

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g	muBrEmax1

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g *	muBrdETX

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g	muBrdE

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g	muPrVmin

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g	muPrdU

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g	muPrEmin

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g	muPrLEmin

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g *	muPrEmax

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g	muPrEmax1

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g	muPrdETX

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g muPrdE common Zicnst *	BremTXTL

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g muPrdE common Zicnst	BremEsize

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g muPrdE common Zicnst	BremUszLA

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g muPrdE common Zicnst	BremUszLB

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g muPrdE common Zicnst	PairTXTL

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g muPrdE common Zicnst	PairEsize

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g muPrdE common Zicnst *	PairUszLA

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g muPrdE common Zicnst	PairUszLB

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g muPrdE common Zicnst	BrTXTS

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g muPrdE common Zicnst	BrES

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g muPrdE common Zicnst	BrUszSA

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g muPrdE common Zicnst BrUszSB	muNTXT

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g muPrdE common Zicnst BrUszSB muNUsize	muNEsize

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g muPrdE common Zicnst BrUszSB muNUsize	muBrTXT

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g muPrdE common Zicnst BrUszSB muNUsize	muBrUsize

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g muPrdE common Zicnst BrUszSB muNUsize	muBrEsize

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g muPrdE common Zicnst BrUszSB muNUsize	muPrTXT

! constants used for pair brem in Air real mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real X0g ! radiation length in g cm real cScrC1 ! const which appears in the complete screening ! crossection real cScrC2 ! the other such one real too media Zeff Z *real BrScrE ! below screened cross section is used real BremEgmin ! Brems gamma min energy in Gev(100 keV) real 8 BremEemin ! Brems by e+/e- is considered at E > BremEemin !(Ek ~ 300 keV) real 8 BremLEemin ! log10 of BremEemin real 8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5 rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real PairUminLA !min of uniform random number in the region A ! at energies PairEgmin X0g muPrdE common Zicnst BrUszSB muNUsize	muPrUsize

Function Documentation

◆ ! log10()

! constants used for pair brem in Air real* mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real* X0g ! radiation length in g cm real* cScrC1 ! const which appears in the complete screening ! crossection real* cScrC2 ! the other such one real too* * media Zeff** Z** real* BrScrE ! below screened cross section is used real* BremEgmin ! Brems gamma min energy in Gev (100 keV) real*8 BremEemin ! Brems by e+/e- is considered at E > BremEemin ! (Ek ~ 300 keV ) real*8 BremLEemin ! log10 of BremEemin real*8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5*rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL ! log10 ( PairEgmaxL/ PairEgemin )

◆ cScrMain()

! constants used for pair brem in Air real* mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real* X0g ! radiation length in g cm real* cScrC1 ! const which appears in the complete screening ! crossection real* cScrC2 ! the other such one real* cScrMain ( 4/3C1+ C2 )

Variable Documentation

◆ BrdES

! constants used for pair brem in Air real* mbtoPX0 ! mbtoPgrm x X0g If multiplied to sigma in ! we obtain probability radation length real* X0g ! radiation length in g cm real* cScrC1 ! const which appears in the complete screening ! crossection real* cScrC2 ! the other such one real too* * media Zeff** Z** real* BrScrE ! below screened cross section is used real* BremEgmin ! Brems gamma min energy in Gev (100 keV) real*8 BremEemin ! Brems by e+/e- is considered at E > BremEemin ! (Ek ~ 300 keV ) real*8 BremLEemin ! log10 of BremEemin real*8 BremEemaxL ! Energy of e+/e- below which LPM is negelected ! for brems. 5*rho_Pb/rho GeV. integer BremTXTL ! Size of the Brems total x-section table. ! in the energy region BremEemin ~ BremEemaxL B PairTXTL real* PairUminLA !min of uniform random number in the region A ! at energies PairEgmin BrdES