Update master to aliroot
[u/mrichter/AliRoot.git] / THbtp / common_particle.inc
1 CCC   common/particle/
2 C
3 CCC   Geant Particle Properties:
4 CCC   (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
16 CCC   Variable Type Declarations:
17
18       Integer*4   part_id        ! Geant particle ID code number; required
19 CCC                              ! 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
24 CCC   END common/particle/