ECCE @ EIC Software
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
calor.inc
Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file calor.inc
1 
2  PARAMETER (MaxAbs = 10, MaxLay = 50)
3  COMMON/CALOR/materAbs(MaxAbs),thickAbs(MaxAbs),NbAbsor,NbLayer,
4  & calorYZ,Field,thLayer,calorX,worldX,worldYZ
5 
6 *
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)
13 *
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)
18 *
19 
20  COMMON/PRODCUT/prodcut(4*MaxAbs)
21 *
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)
26 *
27 
28  COMMON/STEPMAX/stepmax
29 *
30 * stepmax = max allowed step length (data card STEPMX)