¶meters lat_file = '/home/shanksj/CesrTA/lat/cta_2085_xr40m_cd_20111210.lat' !--------------------------------------- init_vec(1) = 3.e-3 init_vec(3) = 0.e-3 init_vec(5) = 20.e-3 tt_params(1)%kickAmplitude = 5.0E-8 tt_params(2)%kickAmplitude = 4.0E-8 tt_params(3)%kickAmplitude = 5.0E-5 !--------------------------------------- n_turns = 32768 track6x6 = .true. n_damping = 100000 ! # turns to damp before measurement use_new_method = .false. ! for ac_eta auto_bookkeeper = .false. ! set target tunes for q_tuning. target_tunes(1) = 14.5701 !14.572 target_tunes(2) = 9.6281 !9.618 target_tunes(3) =-0.06588 !-0.0423 output = 'cesrv' nIter = 1 seed = -1 ! seed < 1 = randomize ! tune tracker parameters n_TTs = 3 tt_params(1)%useSaveState = .false. tt_params(1)%log_period = 200 ! record every 200th turn in log file. Set to 0 to record all turns. tt_params(1)%orientation = 'h' tt_params(1)%kck_name = 'Q10W' tt_params(1)%bpm_name = 'DET_05W' tt_params(1)%LPinertia = 32768 ! LP filter time constant is LPinertia*fastPeriod. 2^15 = 32768 tt_params(1)%cyc_per_turn = 183 ! Number of times tune tracker cycles per CESR period. Usually 183 tt_params(1)%Ki = 0.2 ! 0.2 ! integrator gain tt_params(1)%Kp = 20.0 ! 20.0 ! proportional gain tt_params(1)%Kvco = 10.0 ! VCO gain. Redundant, because total gain looks like Kvco*(Ki*x + Kp*y + Kd*z) tt_params(1)%modTfrac0 = 0.570 ! 0.567 ! guess of fractional tune. used to compute w0 of modulator tt_params(1)%mixmode = 'sin' !Parameters specific to D channel tt_params(1)%use_D_chan = .false. tt_params(1)%Kd = 0.1 ! differential gain tt_params(1)%wls_N = 25 ! Number of data points for LS fit. More DP makes smoother but increases delay tt_params(1)%wls_order = 1 ! Order of fit polynomial. Higher order is more accurate but noisier tt_params(2)%useSaveState = .false. tt_params(2)%log_period = 200 ! record every 200th turn in log file. Set to 0 to record all turns. tt_params(2)%orientation = 'v' tt_params(2)%kck_name = 'Q10W' tt_params(2)%bpm_name = 'DET_05W' tt_params(2)%LPinertia = 32768 ! LP filter time constant is LPinertia*fastPeriod. 2^15 = 32768 tt_params(2)%cyc_per_turn = 183 ! Number of times tune tracker cycles per CESR period. Usually 183 tt_params(2)%Ki = 0.2 ! integrator gain tt_params(2)%Kp = 20. ! 20.0 ! proportional gain tt_params(2)%Kvco = 10.0 ! VCO gain. Redundant, because total gain looks like Kvco*(Ki*x + Kp*y + Kd*z) tt_params(2)%modTfrac0 = 0.628 ! 0.628 ! guess of fractional tune. used to compute w0 of modulator tt_params(2)%mixmode = 'sin' !Parameters specific to D channel tt_params(2)%use_D_chan = .false. tt_params(2)%Kd = 0.0010 ! differential gain tt_params(2)%wls_N = 25 ! Number of data points for LS fit. More DP makes smoother but increases delay tt_params(2)%wls_order = 1 ! Order of fit polynomial. tt_params(3)%useSaveState = .false. tt_params(3)%log_period = 200 ! record every 200th turn in log file. Set to 0 to record all turns. tt_params(3)%orientation = 'l' tt_params(3)%kck_name = 'RF_W1' tt_params(3)%bpm_name = 'DET_21E' tt_params(3)%LPinertia = 32768 ! LP filter time constant is LPinertia*fastPeriod. 2^15 = 32768 tt_params(3)%cyc_per_turn = 183 tt_params(3)%Ki = 0.1 ! integrator gain tt_params(3)%Kp = 10.0 ! proportional gain tt_params(3)%Kvco = 10.0 ! VCO gain. Redundant, because total gain looks like Kvco*(Ki*x + Kp*y + Kd*z) tt_params(3)%modTfrac0 = -0.06588 ! guess of fractional tune. used to compute w0 of modulator tt_params(3)%mixmode = 'sin' !Parameters specific to D channel tt_params(3)%use_D_chan = .false. tt_params(3)%Kd = 0.1 ! differential gain tt_params(3)%wls_N = 50 ! Number of data points for LS fit. More DP makes smoother but increases delay tt_params(3)%wls_order = 2 ! Order of fit polynomial. ! ma_params_struct parameters misalign_magnets = .false. /