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