2 PARAMETER (MaxAbs = 10, MaxLay = 50)
3 COMMON/CALOR/materAbs(MaxAbs),thickAbs(MaxAbs),NbAbsor,NbLayer,
4 & calorYZ,Field,thLayer,calorX,worldX,worldYZ
7 * NbAbsor = Number of Absorbers (
data card CALOR)
8 * NbLayer = Number of Layers (
data card CALOR)
9 * calorYZ = tranverse size of calor (
cm) (
data card CALOR)
10 * Field = magnetic field (
tesla) (
data card CALOR)
11 * materAbs(i) = Absorber
material number. (
data card MATE )
12 * thickAbs(i) = thickness of absorber (
cm) (
data card THICK)
14 * thLayer =
total thickness of
a layer (
cm)
15 * calorX =
total X-size of the calor (
cm)
16 * worldX =
total X-size of the world (
cm)
17 * worldYZ =
total YZ-size of the world (
cm)
20 COMMON/PRODCUT/prodcut(4*MaxAbs)
22 * prodcut(k) = tracking medium number k (
data card CUTPR)
23 * prodcut(k+1) = bcute/
m for this medium (
data card CUTPR)
24 * prodcut(k+2) = dcute/
m for this medium (
data card CUTPR)
25 * prodcut(k+3) = ppcutm
for this medium (
data card CUTPR)
28 COMMON/STEPMAX/stepmax
static constexpr double tesla
std::vector< ExP01TrackerHit * > a
const XML_Char const XML_Char * data
static constexpr double m
static constexpr double cm
G4double total(Particle const *const p1, Particle const *const p2)
T max(const T t1, const T t2)
brief Return the largest of the two arguments
for(G4int i1=0;i1< theStableOnes.GetNumberOfIsotopes(static_cast< G4int >(anE->GetZ()));i1++)