integer NParticleMax, nzmax
      parameter( NParticleMax = 40000, nzmax = 2048 )
      integer  NAccelerationMAX, NLatticeMAX
     &      , NLImpedanceMAX
      parameter( NAccelerationMAX=10, NLatticeMAX=1, NLImpedanceMAX=1)
      integer NElementMAX 
      parameter( NElementMAX=NAccelerationMAX
     &            +NLatticeMAX+NLImpedanceMAX )  
      integer Ndz
      parameter( Ndz = 400 )