Particle counts :

  
  INTEGER ::&
   ttrk,&                 ! # total of particles
   mtrk,&                 ! # of particles seen
   nclust                 ! # clusters in calorimeters
  
END MODULE zaevt
track-information-module-zatrs