double precision Bunch_e0
      double precision Bunch_x_ave0, Bunch_xp_ave0
      double precision Bunch_z_ave0, Bunch_de_ave0
      double precision Bunch_z_rms0, Bunch_de_rms0
      double precision Bunch_Emittance0, Bunch_Beta0, Bunch_Alpha0
      character*12 Bunch_Distribution_Style
      logical Bunch_RadiationExcitation_ON
      common / BunchInit_Data_COM / Bunch_e0
     &                , Bunch_x_ave0, Bunch_xp_ave0
     &                , Bunch_z_ave0, Bunch_de_ave0
     &                , Bunch_z_rms0, Bunch_de_rms0
     &                , Bunch_Emittance0, Bunch_Beta0, Bunch_Alpha0
     &                , Bunch_Distribution_Style
     &                , Bunch_RadiationExcitation_ON
      double precision e0
      double precision x_ave0, xp_ave0
      double precision x_m1_phase0, x_m1_amp0
      double precision z_ave0, de_ave0
      double precision z_rms0, de_rms0
      double precision Emittance0, Beta0, Alpha0