| 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 |
git://git.uio.no / u / mrichter / AliRoot.git / blame