True and seen momentum, charge and identity of particle

REAL,ALLOCATABLE ::&
      pvec(:,:,:),&          ! True and seen momentum of track:
                             ! 1-3 : p
                             ! 4   : E
                             ! 5   : m
                             ! 6   : |p|
                             ! 7   : charge
                             ! 8-10 : not used
      absp(:,:),&            ! True and seen magnitude of the momentum
      cha(:,:)               ! True and seen charge of track

INTEGER,ALLOCATABLE ::&
      cd(:,:),&              ! True and seen LUND particle code of track.
                             ! (SGV will assign the charged pion code
                             ! to all seen charged particles. The user
                             ! can supply a particle identification
                             ! simulation ZDIDEN, if more elaborate
                             ! identification is needed).
      jetnb(:)               ! Seen jet number of the track. Filled
                             ! by a call to ZAUJSF (directly, or via

track-position