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
for(Int_t i=0;i< nentries;i++)
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
const XML_Char const XML_Char * data