C= acc.com =================
C      Acc_v0
C      Acc_harmonics
C      Acc_phase
C      Acc_freq 
C= bunch.com =================
C      Bunch_NParticle 
C= bunchinit.com =================
C       Bunch_e0
C       Bunch_x_ave0, Bunch_xp_ave0
C       Bunch_z_ave0, Bunch_de_ave0
C       Bunch_z_rms0, Bunch_de_rms0
C       Bunch_Emittance0, Bunch_Beta0, Bunch_Alpha0
C      character*12 Bunch_Distribution_Style
C      logical Bunch_RadiationExcitation_ON
C       e0
C       x_ave0, xp_ave0
C       x_m1_phase0, x_m1_amp0
C       z_ave0, de_ave0
C       z_rms0, de_rms0
C       Emittance0, Beta0, Alpha0
C= charge.com =================
C      integer Charge_Type 
C       Charge_Min
C       Charge_Max
C       Charge_CParam1
C       Charge_CParam2
C       Charge_CParam3
C       Charge_CParam4
C       Charge_CParam5
C       Charge_CParam6
C       Charge_SettlingTime
C       Charge_RiseTime
C       Charge_PlatoTime
C       Charge_FallTime
C= debug.com =================
C      logical  DEBUG
C= device.com =================
       Device_Param1 = 1d89
       Device_Param2 = 0.0
       Device_Param3 = 0.0
       Device_Param4 = 0
       Device_Param5 = 0
C= etc.com =================
C       dnu_ave_local
C       dnu_ave_bb
C= impedance.com =================
C      Impedance_nz
C      Impedance_izrms
C      Impedance_zmin
C      Impedance_zmax
C      Impedance_dz
C      Impedance_dzmin
C      Impedance_dzhist(Ndz)
C= input.com =================
C      Input_iseed
C= lattice.com =================
C      Lattice_Eref
C      Lattice_Tref
C      Lattice_Circumference 
C      Lattice_NuX0
C      Lattice_TauX
C      Lattice_Eta
C      Lattice_Js
C      Lattice_dermsNatural
C      Lattice_Urad_B
C      Lattice_Urad_ID
C      Lattice_Urad
C      Lattice_LRadiationExcitation_ON
C      Lattice_LRadiationDamping_ON
C      Lattice_TRadiationExcitation_ON
C      Lattice_TRadiationDamping_ON
C      Lattice_NSuperPeriod
C      Lattice_NperSuperPeriod
C= limpedance.com =================
C      LImpedance_LInductive_Factor
C      LImpedance_LInductive_Factor_Depth
C      LImpedance_LResistive_Factor
C      LImpedance_LCavitylike_Factor
C      LImpedance_LImpedance_ON
C= output.com =================
C      Output_bin 
C= random.com =================
C      Random_iseed
C= ring.com =================
C      Ring_NTurn
C      Ring_SamplingStep
C= shaker.com =================
C       Shaker_KickTiming
C       Shaker_KickAngle_Amp
C       Shaker_Beta
C       Shaker_SingleShot
C       Shaker_ON 
C= timpedance.com =================
C       TImpedance_TInductive_Factor
C       TImpedance_TInductive_Factor_Depth 
C       TImpedance_TInductive_Factor_IDepth 
C       TImpedance_TResistive_Factor
C       TImpedance_BZ_Beta
C       TImpedance_SqrtBZ_Beta
C       TImpedance_TCavitylike_Factor 
C       TImpedance_Cavity_Beta
C       TImpedance_TImpedance_ON
C       TImpedance_Chromaticity0
C       TImpedance_Chromaticity_Delta
C       TImpedance_Chromaticity_Freq
C       TImpedance_DNuDa2