Information of the origin of a particle

INTEGER,ALLOCATABLE ::&
      cl(:,:)                ! True and seen history class of track :

                             !    0   :   from Vertex
                             !    1   :   from decay of strange particle
                             !    2   :   from decay of D+-
                             !    3   :   from decay of D0
                             !    4   :   from decay of other charmed
                             !            particle
                             !    5   :   from decay of beauty particle
                             !    6   :   from strange particle,& 
                             !            coming from D+-
                             !    7   :   from strange particle,& 
                             !            coming from D0
                             !    8   :   from strange particle,& 
                             !            coming from other charmed
                             !            particle
                             !    9   :   from strange particle,& 
                             !            coming from beauty
                             !    10  :   from decay of D+- coming
                             !            from a beauty decay
                             !    11  :   from decay of D0 coming
                             !            from a beauty decay
                             !    12  :   from decay of other charmed
                             !            particle coming
                             !            from a beauty decay
                             !    13  :   from strange particle,& 
                             !            coming from D+-,& 
                             !            which in turn comes from
                             !            a beauty decay.
                             !    14  :   from strange particle,& 
                             !            coming from D0,& 
                             !            which in turn comes from
                             !            a beauty decay.
                             !    15  :   from strange particle,& 
                             !            coming from other charmed
                             !            particle,& 
                             !            which in turn comes from
                             !            a beauty decay.
                             !    16  :   from tau-decay
                             !    17  :   electron from gamma
                             !            conversion
                             !    18  :   electron after brems-strahlung.
                             !    19  :   From long-lived particle
                             !            decay (pi+-,K+-)
                             !    20  :   From nuclear reinteraction
                             !            in the detector
                             !    22  :   Unknown.
                             !    any of the above + 30 or + 60:
                             !            For +30: The ultimate ancestor of the
                             !            particle was a particle
                             !            of a kind the user requested
                             !            to save (or set a non-zero
                             !            life time to); for +60 the
                             !            ancestor for exotic (ie. pdg
                             !            > 1000000, typically a SUSY
                             !            particle)
                             ! The seen class will normally be 0 for
                             ! all particles. However, if ZAURST is
                             ! called (directly, or by calling ZAVF1),& 
                             ! track-pairs compatible with the K0 or
                             ! Lambda hypothesis will get seen class = 1
                             
INTEGER,ALLOCATABLE ::&
      anc(:)                 ! Line of the parent of the track
                             ! (0 if the particle is from the primary
                             !  vertex, and not from a particle type that
                             !  the user has selected to keep).

information-on-fate-of-particle