Removal of old PHOS reconstruction routines
[u/mrichter/AliRoot.git] / PHOS / AliPHOScommon.F
CommitLineData
fe4da5cc 1*CMZ : 2.03/01 18/09/98 11.43.30 by Federico Carminati
2*-- Author :
3 SUBROUTINE PHOS_DATA
4*KEEP,SCXXCOM.
5 parameter (NGp=1000,nsps=10,nvertmax=1000)
6 COMMON /RCGAMMA/KG,MW(ngp),ID(ngp),JD(ngp),E(ngp),E4(ngp),
7 , XW(ngp),YW(ngp),ES(nsps,ngp),ET(nsps,ngp),ISsd(ngp),
8 , IGDEV(ngp),ZGDEV(ngp),sigexy(3,ngp),Emimx(2,nsps,ngp),
9 , kgfix,igfix(ngp),cgfix(3,ngp),sgfix(3,ngp),hiw(ngp),
10 , wsw(nsps,ngp),h1w(ngp),h0w(ngp),raxay(5,ngp),
11 , sigmaes0(nsps,ngp),dispeces(nsps,ngp),
12 , igamvert(ngp)
13
14
15 integer*4 crystals_amount_max,crystals_in_matrix_amount_max,
16 + crystals_matrix_amount_max
17 parameter (crystals_matrix_amount_max=4)
18 parameter (crystals_in_matrix_amount_max=40000)
19 parameter (crystals_amount_max =crystals_matrix_amount_max*
20 + crystals_in_matrix_amount_max)
21
22* All units are in GeV, cm, radian
23 real crystal_amplitudes_unit, radius_unit,
24 + crystal_size_unit, crystal_length_unit,
25 + matrix_coordinate_Z_unit, matrix_coordinate_PHI_unit
26 integer crystal_amplitudes_in_units_min
27 parameter (crystal_amplitudes_in_units_min = 1)
28 parameter (crystal_amplitudes_unit = 0.001 ) ! 1.0 MeV
29 parameter (radius_unit = 0.1 ) ! 0.1 cm
30 parameter (crystal_size_unit = 0.01 ) ! 0.01 cm
31 parameter (crystal_length_unit = 0.01 ) ! 0.01 cm
32 parameter (matrix_coordinate_Z_unit = 0.1 ) ! 0.1 cm
33 parameter (matrix_coordinate_PHI_unit = 1e-4 ) ! 1e-4 radian
34
35 integer*2 crystals_matrix_amount_PHOS, crystal_matrix_type,
36 + amount_of_crystals_on_Z, amount_of_crystals_on_PHI,
37 + crystals_amount_with_amplitudes, crystals_amplitudes_Iad
38 integer*4 event_number
39
40 real radius, crystal_size, crystal_length,
41 + matrix_coordinate_Z, matrix_coordinate_PHI
42
43 real crystals_amplitudes, crystals_energy_total
44 integer event_file_unit_number
45
46 common /common_for_event_storing/
47 + ! Event-independent information
48 + crystals_matrix_amount_PHOS,
49 + crystal_matrix_type,
50 + amount_of_crystals_on_Z,
51 + amount_of_crystals_on_PHI,
52 + radius,
53 + crystal_size,
54 + crystal_length,
55 + matrix_coordinate_Z (crystals_matrix_amount_max),
56 + matrix_coordinate_PHI (crystals_matrix_amount_max),
57 +
58 + ! Event-dependent information
59 + event_number,
60 + crystals_amount_with_amplitudes
61 + (crystals_matrix_amount_max),
62 + crystals_amplitudes_Iad (2,crystals_in_matrix_amount_max,
63 + crystals_matrix_amount_max),
64 +
65 + ! These information don't store in data file
66 + crystals_amplitudes (crystals_amount_max),
67 + crystals_energy_total,
68 + event_file_unit_number
69
70
71
72 INTEGER MAXCRAD
73 PARAMETER (MAXCRAD=100)
74 INTEGER PHOSsize,PHOS_Ndiv_magic
75 REAL PHOSflags,PHOScell,PHOSradius,PHOSCPV,
76 + PHOScradlesA,PHOSTXW,PHOSAIR,PHOSFTI,
77 + PHOSextra, PHOSangle
78 COMMON /PHOS_PARS/ PHOSflags(9),
79 + PHOScell(9),PHOSradius,PHOSCPV(9),
80 + PHOSsize(3), PHOScradlesA,
81 + PHOSTXW(3),PHOSAIR(3),PHOSFTI(4),
82 + PHOSextra(9), PHOSangle(MAXCRAD),
83 + PHOS_Ndiv_magic
84
85*KEND.
86 END