integer Bunch_NParticle 
      double precision q, z, de
      double precision zeta 
      double complex a 
      common / Bunch_Data_COM / Bunch_NParticle 
     &                   , q(NParticleMax)
     &                   , a(NParticleMax), zeta(NParticleMax)
     &                   , z(NParticleMax), de(NParticleMax) 
      integer NParticle