Removal of old PHOS reconstruction routines
[u/mrichter/AliRoot.git] / PHOS / AliPHOScommon.F
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