Changes for Root6 (Mikolaj)
[u/mrichter/AliRoot.git] / THbtp / common_particle.inc
CommitLineData
18448239 1CCC common/particle/
2C
3CCC Geant Particle Properties:
4CCC (Converted to common block for ALICE application, 12/1/2000)
5
6 Integer*4 part_maxlen
7 Parameter (part_maxlen = 50)
8
9 common/particle/
10 1 part_id(part_maxlen),
11 2 part_charge(part_maxlen),
12 3 part_mass(part_maxlen),
13 4 part_lifetime(part_maxlen)
14
15
16CCC Variable Type Declarations:
17
18 Integer*4 part_id ! Geant particle ID code number; required
19CCC ! to be equal to the row number
20 Integer*4 part_charge ! Electric charge in units of |e|
21 Real*4 part_mass ! Rest mass in GeV/c**2
22 Real*4 part_lifetime ! Proper lifetime in sec.
23
24CCC END common/particle/