INTEGER,ALLOCATABLE ::& atpnt(:),& ! Pointer to the same track in ! /ZATRA/& clunb(:),& ! Cluster-number of most energetic ! shower of the track in /ZACLU/& ! (kept for backward compability. ! will be remoed) clunbn(:,:),& ! Cluster-number in /ZACLU/& parnb(:) ! Parent-number in /ZAPRN/& INTEGER,ALLOCATABLE ::& vdiopt(:),& ! X-reference table to VDIOTK lpa(:) ! ZEBRA link of track (if read from DST) INTEGER,ALLOCATABLE :: & induns(:) ! index to un-seen particles (helper in decoding)calorimeter-cluster-module-zaclu