!+
! Tue Sep 23 14:01:02 2008 => Documented by latdoc.
! Beam energy is  5.289 GeV
! 	 Qx	 Qy	 Fx	 Fy	 Emitt(nm rad)
! e+	 10.21	 9.60	 81.9	 234.4	 110.2	
! e-	 0.21	 0.60	 83.4	 234.2	 108.9	
!
!  Bx* 	 By*	 Eta*	Alphax*	Alphay*	 Eta'*	 Cr_ang(mrad)
!  5.22	 24.3500	 1.790	-0.035	-0.128	 0.014	-0.781
!
!  Bx* 	 By*	 Eta*	Alphax*	Alphay* -> Positron-Electron
!  0.12	 1.7700	-0.049	-0.029	-0.228
!
!  Bx 	 By	 Eta	Alphax	Alphay	 Eta' -> all at IP_L3
!  13.35	 38.020	 1.059	-0.005	 0.015	 0.012
!
! IP_L0 disp.: e+ x:-1.07e-03 y: 1.76e-08   e- x: 9.98e-04 y: 7.10e-13
!
! IP_L0 cbar: -1.5e-16   -3.1e-16   IP_L3 cbar:  1.9e-16   -3.0e-16
!             -1.1e-16    9.6e-17               -8.1e-17    8.1e-17
!
! Peak Arc Betas: e+ Bx: 38.2 By: 38.0   e- Bx: 38.4 By: 38.1
! H_Sep Bx: 08w: 15.56  08e: 15.56  45w: 7.96  45e: 7.96
! V_Sep By: 48w: 24.35  48e: 24.35
!
! FB PHS:  e+ x: 0.729  y 0.128  e- x:-0.303  y 0.073
!
! 9x5 info: Pr_apert: 3.65e-02  Effic: 0.00  I_bunch: 0.00  B_param_i: 0.00
! Worst x disp e+: 1.80e-02  at: Q10W, 	e-:-1.86e-02 at: Q10W
! 34w: e+ Bx: 34.57  e- Bx: 36.74  e+ Eta: 2.64   Ring sigma_sep: 0.05
! 34e: e+ Bx: 33.15  e- Bx: 31.33  e- Eta: 2.41
!
! Full turn 4x4 det:  0.32  Momentum_comp:  9.52e-03
! sync_beta_path x: 8.4e-08  y: 1.8e-07  _volt x: 1.1e-08  y: 1.6e-07
! Qs-2Qx Mag  e+:  8.01   e-:  6.87
! *IP*  dbeta(dE) x: 3.19 y: 1.95  dbeta(dPretz) x: 9.74e-03 y: 4.22e-02
! *max* dbeta(dE) x: 7.12 y: 6.72  dbeta(dPretz) x: 9.68e-02 y: 1.23e-01
! Chrom x: 0.35  y:-0.23    Tonality x:-0.14  y: 0.04
!-

! BMAD input file

parameter[lattice] = CHESS_20080505A
beam, energy =   5.289
!local copy of dlr/layout/file
call, file=layout/layout_cesrta_nodampwig.bmad
wig_damp[is_on] = .false.

wig_w[b_max] = 0.0
wig_e[b_max] = 0.0


wig_damp_drift: drift, l=1.6
dwig: drift, l=0.065



! element attributes
deltax= 0.001
deltay=0.015
deltas = -0.004
!Q00 : overlay = {Q00W, Q00E}, K1 =  -2.9736644781905347E-01
Q00W[K1] = -2.9736644781905347E-01
Q00E[K1] = -2.9736644781905347E-01
Q01W[k1] =  -0.0E-01
Q01E[k1] =  -0.0E-01
Q02W[k1] =   2.6546834406107878E-01
Q02E[k1] =   2.5186719014289671E-01
Q03W[K1] =  -3.6209692609499061E-01
Q03E[K1] =  -3.3120320031011896E-01
Q04W[K1] =   3.7081327721726925E-01
Q04E[K1] =   3.5376698555750558E-01
Q05W[K1] =  -3.6777406764577664E-01
Q05E[K1] =  -4.9087746806815774E-01
Q06W[K1] =   4.3991375609141142E-01
Q06E[K1] =   4.4052773638252546E-01
Q07W[K1]=  -4.3973389408600966E-01
Q07E[K1]=  -4.4778660724549768E-01
Q08W[K1]=   2.7806682396858251E-01
Q08E[K1]=   2.6467585557874584E-01
Q08AW[K1]:=   4.9249232748916225E-02
Q09W[K1]:=  -2.6589921942477412E-01
Q09E[K1]:=  -2.4343111127377373E-01
Q10W[K1]:=   2.3299718342703782E-01
Q10E[K1]:=   2.2290137905810015E-01
Q11W[K1]:=  -2.1817562123750733E-01
Q11E[K1]:=  -2.1109334582957082E-01
Q12W[K1]:=   2.4647867323967659E-01
Q12E[K1]:=   2.5757745290187717E-01
Q13W[K1]:=  -2.9431103323202884E-01
Q13E[K1]:=  -2.6876490808676140E-01
Q14W[K1] =   2.9249962591014050E-01
Q14E[K1] =   3.2089886161979292E-01
Q15W[K1] =  -2.5533412894047636E-01
Q15E[K1] =  -2.5718771294237797E-01
Q16W[K1] =   2.5689109811550936E-01
Q16E[K1] =   2.5926418762332160E-01
Q17W[K1] =  -2.7149713652860685E-01
Q17E[K1] =  -2.7587479727567937E-01
Q18W[K1] =   2.4432281767625344E-01
Q18E[K1] =   2.4672581903726021E-01
!Q19 : overlay = {Q19W,Q19E },K1 =  -2.5604228072916069E-01
Q19W[K1] = -2.5604228072916069E-01
Q19E[K1] = -2.5604228072916069E-01
!Q20 : overlay = {Q20W,Q20E },K1 =   2.4446327209932561E-01
Q20W[K1] = 2.4446327209932561E-01
Q20E[K1] = 2.4446327209932561E-01
!Q21 : overlay = {Q21W,Q21E },K1 =  -2.2189623189238050E-01
Q21W[K1] = -2.2189623189238050E-01
Q21E[K1] = -2.2189623189238050E-01
!Q22 : overlay = {Q22W,Q22E },K1 =   2.4674141263217372E-01
Q22W[K1] = 2.4674141263217372E-01
Q22E[K1] = 2.4674141263217372E-01
!Q23 : overlay = {Q23W,Q23E },K1 =  -2.0786683856192778E-01
Q23W[K1] = -2.0786683856192778E-01
Q23E[K1] = -2.0786683856192778E-01
!Q24 : overlay = {Q24W,Q24E },K1 =   2.6866642573486066E-01
Q24W[K1] = 2.6866642573486066E-01
Q24E[K1] = 2.6866642573486066E-01
!Q25 : overlay = {Q25W,Q25E },K1 =  -2.8313760169999980E-01
Q25W[K1] = -2.8313760169999980E-01
Q25E[K1] = -2.8313760169999980E-01
!Q26 : overlay = {Q26W,Q26E },K1 =   2.7457598600330102E-01
Q26W[K1] = 2.7457598600330102E-01
Q26E[K1] = 2.7457598600330102E-01
!Q27 : overlay = {Q27W,Q27E },K1 =  -2.8173524255872018E-01
Q27W[K1] = -2.8173524255872018E-01
Q27E[K1] = -2.8173524255872018E-01
!Q28 : overlay = {Q28W,Q28E },K1 =   2.4841158271446745E-01
Q28W[K1] = 2.4841158271446745E-01
Q28E[K1] = 2.4841158271446745E-01
!Q29 : overlay = {Q29W,Q29E },K1 =  -2.3863917632700712E-01
Q29W[K1] = -2.3863917632700712E-01
Q29E[K1] = -2.3863917632700712E-01
!Q30 : overlay = {Q30W,Q30E },K1 =   2.5376809193607608E-01
Q30W[K1] = 2.5376809193607608E-01
Q30E[K1] = 2.5376809193607608E-01
!Q31 : overlay = {Q31W,Q31E },K1 =  -2.0018167780441468E-01
Q31W[K1] = -2.0018167780441468E-01
Q31E[K1] = -2.0018167780441468E-01
!Q32 : overlay = {Q32W,Q32E },K1 =   2.1129862492339418E-01
Q32W[K1] = 2.1129862492339418E-01
Q32E[K1] = 2.1129862492339418E-01
!Q33 : overlay = {Q33W,Q33E },K1 =  -2.0746408027832158E-01
Q33W[K1] = -2.0746408027832158E-01
Q33E[K1] = -2.0746408027832158E-01
!Q34 : overlay = {Q34W,Q34E },K1 =   2.5105613983009423E-01
Q34W[K1] = 2.5105613983009423E-01
Q34E[K1] = 2.5105613983009423E-01
!Q35 : overlay = {Q35W,Q35E },K1 =  -1.7096661216336351E-01
Q35W[K1] = -1.7096661216336351E-01
Q35E[K1] = -1.7096661216336351E-01
!Q36 : overlay = {Q36W,Q36E },K1 =   2.3626192862698356E-01
Q36W[K1] = 2.3626192862698356E-01
Q36E[K1] = 2.3626192862698356E-01
!Q37 : overlay = {Q37W,Q37E },K1 =  -2.5180214746050072E-01
Q37W[K1] = -2.5180214746050072E-01
Q37E[K1] = -2.5180214746050072E-01
!Q38 : overlay = {Q38W,Q38E },K1 =   2.9761889924804397E-01
Q38W[K1] = 2.9761889924804397E-01
Q38E[K1] = 2.9761889924804397E-01
!Q39 : overlay = {Q39W,Q39E },K1 =  -2.8955619654264414E-01
Q39W[K1] = -2.8955619654264414E-01
Q39E[K1] = -2.8955619654264414E-01
Q40w[K1] =   3.1679671512371427E-01
Q40E[K1] =   3.1721984117108482E-01
Q41W[K1] =  -2.2982853527076497E-01
Q41E[K1] =  -2.2769615172470406E-01
Q42W[K1] =   1.8142503424648149E-01
Q42E[K1] =   1.8015193141506816E-01
Q43W[K1] =  -2.4094846292236918E-01
Q43E[K1] =  -2.4597277928349343E-01
Q43AW[K1] =   2.9885942088270173E-01
Q43AE[K1] =   3.0533649714529842E-01
Q44W[K1] =  -1.8806572686015477E-01
Q44E[K1] =  -1.8486212289866025E-01
Q45W[K1] =   2.5216700419342269E-01
Q45E[K1] =   2.5448001421707866E-01
Q46W[K1] =  -2.7705157893705235E-01
Q46E[K1] =  -2.7541751054402719E-01
Q47W[K1] =   3.1007583716967285E-01
Q47E[K1] =   3.1097141339041690E-01

Q47aW[K1] =  -3.1184701677004489E-01
Q47aE[K1] =  -3.0659083331029313E-01
Q48W[K1] =   2.2602282829625400E-01
Q48E[K1] =   2.2591172653690661E-01
Q49aW[K1] =  -2.5077620881851370E-01
Q49aE[K1] =  -2.5077620881851370E-01
!Q49 : overlay = {Q49W,Q49E },K1 =  0.
Q49W[K1] = 0.
Q49E[K1] = 0.


fact = 0.2

!H_SEP_08 : overlay = {H_SEP_08W,H_SEP_08E/-1}, HKICK =  -1.02448E-04
H_SEP_08W[HKICK] =   5.5296940841287616E-04
H_SEP_08E[HKICK] =  -3.3585595256354017E-04
!H_SEP_45 : overlay = {H_SEP_45W,H_SEP_45E/-1}, HKICK =  -2.51994E-04
H_SEP_45W[HKICK] =   4.4150059873694648E-05
H_SEP_45E[HKICK] =  -3.3487274794837316E-05


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

sexh =.53
sexv =-.83

SEX_08W[k2]:= sexh
SEX_08E[k2]:= sexh
SEX_09W[k2]:= sexv
SEX_09E[k2]:= sexv
SEX_10W[k2]:= sexh
SEX_10E[k2]:= sexh
SEX_11W[k2]:= sexv
SEX_11E[k2]:= sexv
SEX_12W[k2]:= sexh
SEX_12E[k2]:= sexh
SEX_13W[k2]:= sexv
SEX_13E[k2]:= sexv
SEX_14W[k2]:= sexh
SEX_14E[k2]:= sexh
SEX_15W[k2]:= sexv
SEX_15E[k2]:= sexv
SEX_16W[k2]:= sexh
SEX_16E[k2]:= sexh
SEX_17W[k2]:= sexv
SEX_17E[k2]:= sexv
SEX_18W[k2]:= sexh
SEX_18E[k2]:= sexh
SEX_19W[k2]:= sexv
SEX_19E[k2]:= sexv
SEX_20W[k2]:= sexh
SEX_20E[k2]:= sexh
SEX_21W[k2]:= sexv
SEX_21E[k2]:= sexv
SEX_22W[k2]:= sexh
SEX_22E[k2]:= sexh
SEX_23W[k2]:= sexv
SEX_23E[k2]:= sexv
SEX_24W[k2]:= sexh
SEX_24E[k2]:= sexh
SEX_25W[k2]:= sexv
SEX_25E[k2]:= sexv
SEX_26W[k2]:= sexh
SEX_26E[k2]:= sexh
SEX_27W[k2]:= sexv
SEX_27E[k2]:= sexv
SEX_28W[k2]:= sexh
SEX_28E[k2]:= sexh
SEX_29W[k2]:= sexv
SEX_29E[k2]:= sexv
SEX_30W[k2]:= sexh
SEX_30E[k2]:= sexh
SEX_31W[k2]:= sexv
SEX_31E[k2]:= sexv
SEX_32W[k2]:= sexh
SEX_32E[k2]:= sexh
SEX_33W[k2]:= sexv
SEX_33E[k2]:= sexv
SEX_34W[k2]:= sexh
SEX_34E[k2]:= sexh
SEX_35W[k2]:= sexv
SEX_35E[k2]:= sexv
SEX_36W[k2]:= sexh
SEX_36E[k2]:= sexh
SEX_37W[k2]:= sexv
SEX_37E[k2]:= sexv
SEX_38W[k2]:= sexh
SEX_38E[k2]:= sexh
SEX_39W[k2]:= sexv
SEX_39E[k2]:= sexv
SEX_40W[k2]:= sexh
SEX_40E[k2]:= sexh
SEX_41W[k2]:= sexv
SEX_41E[k2]:= sexv
SEX_42W[k2]:= sexh
SEX_42E[k2]:= sexh
SEX_43W[k2]:= sexv
SEX_43E[k2]:= sexv
SEX_44W[k2]:= sexh
SEX_44E[k2]:= sexh
SEX_45W[k2]:= sexv
SEX_45E[k2]:= sexv

!call, file=/home/dlr/lat/2fam.bmad


use, cesr

 ! Vars not in original file

SK_Q02W[K1] =  0.0
SK_Q02E[K1] =  0.0
SK_Q04W[K1] =  0.0
SK_Q04E[K1] =  0.0
SK_Q06W[K1] =  0.0
SK_Q06E[K1] =  0.0
SK_Q07W[K1] =  0.0
SK_Q07E[K1] =  0.0

 ! Vars not in original file