[u/mrichter/AliRoot.git] / THbtp / common_particle.inc

CCC   common/particle/
C
CCC   Geant Particle Properties:
CCC   (Converted to common block for ALICE application, 12/1/2000)

      Integer*4 part_maxlen
      Parameter (part_maxlen = 50)

      common/particle/
     1  part_id(part_maxlen),
     2  part_charge(part_maxlen),
     3  part_mass(part_maxlen),
     4  part_lifetime(part_maxlen)


CCC   Variable Type Declarations:

      Integer*4   part_id        ! Geant particle ID code number; required
CCC                              ! to be equal to the row number
      Integer*4   part_charge    ! Electric charge in units of |e|
      Real*4      part_mass      ! Rest mass in GeV/c**2
      Real*4      part_lifetime  ! Proper lifetime in sec. 

CCC   END common/particle/
Commit	Line	Data
18448239	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	Real4 part_mass ! Rest mass in GeV/c*2
	22	Real*4 part_lifetime ! Proper lifetime in sec.
	23
	24	CCC END common/particle/