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/