! BMAD input file

parameter[lattice] = OSC_UND_WIG_1500MEV_20180306
parameter[particle] = positron
!parameter[particle] = electron
beam, energy = 1.5

!call, file=layout/chess_08_with_chess_lines.bmad
call, file=layout/chess_08_with_bmad_undulators.bmad
!call, file=layout/chess_08_with_undulators.bmad

!wigw_mid: marker, superimpose, ref = cant_b
wige_mid: marker, superimpose, ref = wig_e
vbsm_electrons : marker, superimpose, offset=2* 384.214 - 374.2468

!UND_08WS_RT: wiggler, l =  1.484000, b_max = 0.95, n_pole = 100
!UND_08WN_RT: wiggler, l =  1.484000, b_max = 0.95, n_pole = 100


col43w: marker, superimpose, ref=Q43W, ref_origin = end, offset=0.7094
scv43w: marker, superimpose, ref=Q43AW, ref_origin = beginning, offset=-0.5394
col43e: marker, superimpose, ref=Q43E, ref_origin = end, offset=-1.1782
injs34w: marker, superimpose, ref=Q34W, offset= -1.0769
injs34e: marker, superimpose, ref=Q34E, offset= 1.0769


wig_e[b_max] = 1.17

!Turn off wigglers:
  wig1_14w[is_on] = .false.
!  wig_damp[is_on] = .false.
!  wig_damp[polarity] = 0
  wig_01w[is_on] = .false.
  wig_01w[polarity] = 0
  wig1_02w[is_on] = .false.
  wig1_02w[polarity] = 0
  wig2_02w[is_on] = .false.
  wig2_02w[polarity] = 0
  wig1_18w[is_on] = .false.
  wig1_18w[polarity] = 0
  wig2_18w[is_on] = .false.
  wig2_18w[polarity] = 0
  wig3_18w[is_on] = .false.
  wig3_18w[polarity] = 0	
  wig1_02e[is_on] = .false.
  wig1_02e[polarity] = 0
  wig2_02e[is_on] = .false.
  wig2_02e[polarity] = 0
  wig_01e[is_on] = .false.
  wig_01e[polarity] = 0
  wig1_18e[is_on] = .false.
  wig1_18e[polarity] = 0
  wig2_18e[is_on] = .false.
  wig2_18e[polarity] = 0
  wig3_18e[is_on] = .false.
  wig3_18e[polarity] = 0


! element attributes
delta_x =0.065
delta_y=-0.035
q00[k1] =     -4.0397191171E-01
q02w[k1]=      2.3782908755E-01
q02e[k1]=      2.4158308045E-01
q03w[k1] =     -3.1784621610E-01
q03e[k1] =     -3.8533918855E-01
q04w[k1] =      4.5185537226E-01
q04e[k1] =      4.8267148045E-01
q05w[k1] =     -3.7053635288E-01
q05e[k1] =     -2.4612851841E-01
Q06W[K1]=      5.2232483173E-01
Q06E[K1]=      5.5820388579E-01
Q07W[K1]=     -2.4568077168E-01
Q07E[K1]=     -3.1217951675E-01
Q08W[K1]=     -1.0306137340E-01
Q08E[K1]=      3.8435448505E-01
Q08AW[K1] =      2.5624096009E-01

Q09W[K1]=     -3.5106495026E-01
Q09E[K1]=     -2.7440104672E-01
Q10W[K1]=      2.5596151157E-01
q10E[K1]=      3.1598773510E-01
Q11W[K1]=     -1.3947637842E-01
Q11E[K1]=     -2.4755039540E-01
Q12W[K1]=      3.2532998289E-01
Q12E[K1]=      3.5802255098E-01
Q13W[K1]=     -2.6549354033E-01
Q13E[K1]=     -2.6514413678E-01


!Q14: overlay ={Q14W,Q14E}, K1=      3.2934986198E-01
Q14W[K1]=      3.2934986198E-01
Q14E[K1]=      3.2934986198E-01
!Q15: overlay ={Q15W,Q15E}, K1=     -2.0927765985E-01
Q15W[K1]=     -2.0927765985E-01
Q15E[K1]=     -2.0927765985E-01
!q16: overlay ={q16W,q16E}, K1=      3.3330838862E-01
q16W[K1]=      3.3330838862E-01
q16E[K1]=      3.3330838862E-01
!q17: overlay ={q17W,q17E}, K1=     -2.0686461664E-01
q17W[K1]=     -2.0686461664E-01
q17E[K1]=     -2.0686461664E-01
!q18: overlay ={q18W,q18E}, K1=      3.8482687205E-01
q18W[K1]=      3.8482687205E-01
q18E[K1]=      3.8482687205E-01
!q19: overlay ={q19W,q19E}, K1=     -2.7262232860E-01
q19W[K1]=     -2.7262232860E-01
q19E[K1]=     -2.7262232860E-01
!q20: overlay ={q20W,q20E}, K1=      3.6382830680E-01
q20W[K1]=      3.6382830680E-01
q20E[K1]=      3.6382830680E-01
!q21: overlay ={q21W,q21E}, K1=     -2.4188070855E-01
q21W[K1]=     -2.4188070855E-01
q21E[K1]=     -2.4188070855E-01
!q22: overlay ={q22W,q22E}, K1=      3.8996635936E-01
q22W[K1]=      3.8996635936E-01
q22E[K1]=      3.8996635936E-01
!q23: overlay ={q23W,q23E}, K1=     -2.5331432445E-01
q23W[K1]=     -2.5331432445E-01
q23E[K1]=     -2.5331432445E-01
!q24: overlay ={q24W,q24E}, K1=      3.4186688792E-01
q24W[K1]=      3.4186688792E-01
q24E[K1]=      3.4186688792E-01
!q25: overlay ={q25W,q25E}, K1=     -2.9273411217E-01
q25W[K1]=     -2.9273411217E-01
q25E[K1]=     -2.9273411217E-01
!q26: overlay ={q26W,q26E}, K1=      3.6373683600E-01
q26W[K1]=      3.6373683600E-01
q26E[K1]=      3.6373683600E-01
!q27: overlay ={q27W,q27E}, K1=     -2.9322114122E-01
q27W[K1]=     -2.9322114122E-01
q27E[K1]=     -2.9322114122E-01
!q28: overlay ={q28W,q28E}, K1=      3.5162389643E-01
q28W[K1]=      3.5162389643E-01
q28E[K1]=      3.5162389643E-01
!q29: overlay ={q29W,q29E}, K1=     -3.2357968823E-01
q29W[K1]=     -3.2357968823E-01
q29E[K1]=     -3.2357968823E-01
!q30: overlay ={q30W,q30E}, K1=      2.9420269675E-01
q30W[K1]=      2.9420269675E-01
q30E[K1]=      2.9420269675E-01
!q31: overlay ={q31W,q31E}, K1=     -2.7340026651E-01
q31W[K1]=     -2.7340026651E-01
q31E[K1]=     -2.7340026651E-01
!q32: overlay ={q32W,q32E}, K1=      2.8891373663E-01
q32W[K1]=      2.8891373663E-01
q32E[K1]=      2.8891373663E-01
!q33: overlay ={q33W,q33E}, K1=     -3.2900012164E-01
q33W[K1]=     -3.2900012164E-01
q33E[K1]=     -3.2900012164E-01
!q34: overlay ={q34W,q34E}, K1=      3.1439923930E-01
q34W[K1]=      3.1439923930E-01
q34E[K1]=      3.1439923930E-01
!q35: overlay ={q35W,q35E}, K1=     -3.1836035505E-01
q35W[K1]=     -3.1836035505E-01
q35E[K1]=     -3.1836035505E-01
!q36: overlay ={q36W,q36E}, K1=      2.8057807233E-01
q36W[K1]=      2.8057807233E-01
q36E[K1]=      2.8057807233E-01
!q37: overlay ={q37W,q37E}, K1=     -2.4652579167E-01
q37W[K1]=     -2.4652579167E-01
q37E[K1]=     -2.4652579167E-01
!q38: overlay ={q38W,q38E}, K1=      3.5928624311E-01
q38W[K1]=      3.5928624311E-01
q38E[K1]=      3.5928624311E-01
!q39: overlay ={q39W,q39E}, K1=     -2.8437936101E-01
q39W[K1]=     -2.8437936101E-01
q39E[K1]=     -2.8437936101E-01
!q40: overlay ={q40W,q40E}, K1=      3.4997038194E-01
q40W[K1]=      3.4997038194E-01
q40E[K1]=      3.4997038194E-01
!q41: overlay ={q41W,q41E}, K1=     -2.7331491374E-01
q41W[K1]=     -2.7331491374E-01
q41E[K1]=     -2.7331491374E-01
!q42: overlay ={q42W,q42E}, K1=      3.2059053888E-01
q42W[K1]=      3.2059053888E-01
q42E[K1]=      3.2059053888E-01
!q43: overlay ={q43W,q43E}, K1=     -3.0194243325E-01
q43W[K1]=     -3.0194243325E-01
q43E[K1]=     -3.0194243325E-01
!q43a: overlay ={q43aw,q43ae}, k1=      3.6224915437E-01
q43aw[k1]=      3.6224915437E-01
q43ae[k1]=      3.6224915437E-01
!q44: overlay ={q44W,q44E}, K1=     -2.1706207426E-01
q44W[K1]=     -2.1706207426E-01
q44E[K1]=     -2.1706207426E-01
q45W[k1] =      3.7453740439E-01
q45E[k1] =      3.4528575094E-01
q46W[K1]=     -2.5543148529E-01
q46E[K1]=     -2.0920214773E-01
q47W[K1] =      5.0048110544E-01
q47E[K1] =      3.9530339389E-01
q47aw[K1]=     -3.4427709056E-01
q47ae[K1]=     -3.3473457092E-01
q48W[K1] =      3.7872707333E-01
q48e[K1] =      3.3499761875E-01
q49[K1] =     -3.4216654244E-01

sext_h=1.17
sext_v=-1.73
call, file=layout/sext_twofam_nooverlay.bmad

!-----------------------------------------------------
! overlays
!-----------------------------------------------------

!H_SEP_09W[HKICK] =      6.9019461594E-04
!H_SEP_08E[HKICK] =     -6.7395325422E-04
!h_sep_45W[HKICK]=     -7.7998456453E-04
!h_sep_45E[HKICK]=      7.7803187272E-04

!! wig_w[k1] = -0.0592 / beam[energy]^2   ! use average to maintain E/W symm
!! wig_e[k1] = -0.0592 / beam[energy]^2

! 2014Mar4 sw

use, cesr

RF_W1[VOLT] := 1.5e6
RF_W2[VOLT] := 1.5e6
RF_E1[VOLT] := 1.5e6
RF_E2[VOLT] := 1.5e6
RF_W1[HARMON] := 1281
RF_W2[HARMON] := 1281
RF_E1[HARMON] := 1281
RF_E2[HARMON] := 1281

 ! Vars not in original file

SK_Q02W[K1] =  0.0
SK_Q02E[K1] =  0.0
SK_Q06W[K1] =  0.0
SK_Q06E[K1] =  0.0
!SK_Q07W[K1] =  0.0
SK_Q07E[K1] =  0.0


raw_pretzing_1 : group = {H_SEP_09W/6.9019461594E-04, H_SEP_08E/-6.7395325422E-04, &
                   H_SEP_45W/-7.7998456453E-04, H_SEP_45E/7.7803187272E-04}, HKICK
raw_pretzing_1[type]:="CSR PRETZING   1"

raw_pretzing_2 : group = {H_SEP_09W/6.9019461594E-04, H_SEP_45W/-7.7998456453E-04}, HKICK
raw_pretzing_2[type]:="CSR PRETZING   2"

raw_pretzing_3 : group = {H_SEP_08E/-6.7395325422E-04, H_SEP_45E/7.7803187272E-04}, HKICK
raw_pretzing_3[type]:="CSR PRETZING   3"