INTEGER ::& ttrk,& ! # total of particles mtrk,& ! # of particles seen nclust ! # clusters in calorimeters END MODULE zaevt