! BMAD input file

parameter[lattice] = 1843mev_lrbbi_1wig_ot

call, file=../bmad/layout/cesr_iii_1wig_corr_layout.bmad

! cleo solenoid

beam, energy =   1.843
solenoid_tesla = 0.9
ks_solenoid    = -1.0e-9 * clight * solenoid_tesla / beam[energy]
cleo_sol: solenoid, l = 3.51, ks = ks_solenoid, superimpose

wig_damp_plus: wiggler, b_max=2.1, n_pole=7, l=1.6
skew14e : quad, l=.01,  &
         tilt =pi/4, superimpose, ref = wig_damp_plus, ref_end, ele_end, &
         offset=0.01
!wig_damp_plus : drift, l=1.6
!w7-20_26_0211_001500.in
!wig_damp_plus : wiggler, l = 1.6, mat6_calc_method = symp_lie_BMAD, num_steps = 250, &
!     descrip = "/cdat/cesr38/disk1/critten/w7-20_26_fid.table", &
!          integration_order = 2, tracking_method = linear, symplectify=.true.,&
!         polarity = 1,&
!term(01)={0.2389235E+00,-.3884522E+00,0.1531071E+00,0.3570060E+00,0.5997581E+01},&
!term(02)={-.2540335E-01,0.5435831E+02,0.5537201E+02,0.1054677E+02,-.2154230E+01},&
!term(03)={-.1203497E+01,-.2481471E+01,0.1390172E+02,0.1412146E+02,-.5013981E+01},&
!term(04)={-.1114118E-01,0.4987660E+02,0.5256367E+02,0.1659108E+02,-.7064934E+00},&
!term(05)={-.1326761E+01,-.3025388E+01,0.1700570E+02,0.1727272E+02,-.1251808E+01},&
!term(06)={-.1030375E+00,-.7438550E+01,0.7316640E+01,0.1043385E+02,-.2063896E+01},&
!term(07)={0.3764187E+00,-.2447792E+01,0.5539567E+01,0.6056276E+01,0.1438164E+01},&
!term(08)={0.2274532E-01,-.2584934E+02,0.6004454E+01,0.2653755E+02,-.2380486E+01},&
!term(09)={0.1824775E+00,0.3589045E+01,0.2422569E+02,0.2395835E+02,-.3171263E+00},&
!term(10)={-.1345096E+00,-.1226457E+02,0.2466594E+02,0.2754683E+02,-.3187911E+01},&
!term(11)={-.2884270E-01,-.1789775E+02,0.4646359E+02,0.4979151E+02,-.2134099E+01},&
!term(12)={0.3665055E+00,-.4890708E+01,0.4927081E+02,0.4951294E+02,-.1911244E+01},&
!term(13)={0.2586845E+00,0.8560262E+00,0.4292743E+02,0.4291889E+02,-.2919182E+01},&
!term(14)={0.1987265E-01,0.2842091E+02,0.4243317E+02,0.3150913E+02,-.7456160E-01},&
!term(15)={0.2040131E-01,0.5656211E+02,0.5747900E+02,0.1022562E+02,-.1897309E+01},&
!term(16)={-.4682474E+00,-.1333168E+01,0.2428285E+01,0.2770182E+01,0.4067040E+01},&
!term(17)={0.6344427E-01,-.7109057E+01,0.3272172E+02,0.3348507E+02,-.1655311E+01},&
!term(18)={-.1746148E+00,0.1265214E+01,0.4032431E+02,0.4030446E+02,-.8276405E+00},&
!term(19)={-.7521087E-01,-.2420054E+01,0.4937041E+02,0.4942970E+02,-.1844647E+01},&
!term(20)={-.1096416E+00,0.3938486E+01,0.5212040E+02,0.5197138E+02,-.3877991E+01},&
!term(21)={-.1646239E-01,-.1284650E+02,0.7425530E+02,0.7535836E+02,-.3738022E+01},&
!term(22)={-.2144291E+00,0.2993460E+01,0.5869569E+02,0.5861930E+02,-.2913146E+01},&
!term(23)={0.1700166E+00,0.3340698E+01,0.5735049E+02,0.5725311E+02,-.1820193E+01},&
!term(24)={-.3747299E+00,0.2461985E+01,0.6409992E+02,0.6405262E+02,-.9766135E+00},&
!term(25)={0.4961470E-01,0.2660009E+01,0.6698987E+02,0.6693703E+02,-.3284147E+01},&
!term(26)={0.6227263E-02,-.1986521E+02,0.7265180E+02,0.7531873E+02,-.3706314E+01},&
!term(27)={0.3387146E-01,-.2316014E+01,0.9132378E+02,0.9135314E+02,-.3967469E+01},&
!term(28)={-.2350273E-01,0.2933105E+02,0.4213676E+02,0.3025221E+02,-.5352216E+01},&
!term(29)={0.1362782E-01,0.7478700E+00,0.8563112E+02,0.8562785E+02,-.5670428E+01},&
!term(30)={-.1140379E-01,0.5677123E+01,0.1009776E+03,0.1008179E+03,-.5256122E+01},&
!term(31)={0.1256091E-01,0.5448886E+01,0.1012633E+03,0.1011166E+03,-.5495052E+01},&
!term(32)={-.2533155E-01,-.3504139E+01,0.9216792E+02,0.9223450E+02,-.4672563E+01},&
!term(33)={0.8049280E-05,0.1641456E+03,0.1832380E+03,0.8143949E+02,-.2319743E+01},&
!term(34)={0.3941461E+00,0.2419322E+01,0.6324419E+02,0.6319790E+02,-.2928405E+00},&
!term(35)={-.4640062E-05,0.1677262E+03,0.1948894E+03,0.9924604E+02,-.3998607E+01},&
!term(36)={-.2444840E-01,-.3148144E+01,0.7915436E+02,0.7921693E+02,-.5416932E+00},&
!term(37)={0.1023744E-01,0.2099877E+01,0.1444327E+03,0.1444175E+03,-.2436633E+01},&
!term(38)={-.4467240E-01,-.2938366E+01,0.1079977E+03,0.1080377E+03,-.4748762E+01},&
!term(39)={-.2752392E-01,0.4399225E+01,0.1210368E+03,0.1209569E+03,-.2517718E+01},&
!term(40)={0.7952500E-02,-.3165659E+01,0.1341576E+03,0.1341949E+03,-.5417938E+00},&
!term(41)={-.3105751E-01,-.1719589E+00,0.1261937E+03,0.1261939E+03,-.4241157E+00},&
!term(42)={0.1556549E-01,0.4755652E+01,0.1202020E+03,0.1201079E+03,-.1838565E+01},&
!term(43)={0.4184654E-01,-.1349764E+01,0.1291877E+03,0.1291948E+03,-.2824857E+01},&
!term(44)={0.2101763E-01,0.3589111E+01,0.1232754E+03,0.1232231E+03,-.4330729E+01},&
!term(45)={-.3247774E-01,-.1743988E+01,0.1306347E+03,0.1306463E+03,-.3986074E+01},&
!term(46)={-.2331802E-01,0.1190804E+01,0.1435265E+03,0.1435215E+03,-.1719897E+01},&
!term(47)={-.2801351E-02,0.1605695E+01,0.1397703E+03,0.1397611E+03,-.4994736E+01},&
!term(48)={-.2129266E-01,-.4966757E+00,0.8735798E+02,0.8735939E+02,-.7724733E+00},&
!term(49)={0.4384201E-01,-.2605238E+01,0.1080600E+03,0.1080914E+03,-.4791693E+01},&
!term(50)={0.1853408E-01,-.1963345E+01,0.1421418E+03,0.1421553E+03,-.6269403E+00},&
!term(51)={0.6957232E-02,-.4051545E+01,0.1248936E+03,0.1249593E+03,-.5719630E+01},&
!term(52)={-.3921706E-02,0.2350895E+01,0.1386142E+03,0.1385943E+03,-.4061272E+01},&
!term(53)={0.9926666E-02,0.1544455E+02,0.1720799E+03,0.1713854E+03,-.5161425E+01},&
!term(54)={-.1737835E-01,0.1302278E+02,0.1724899E+03,0.1719976E+03,-.5651171E+01},&
!term(55)={0.1415488E-01,0.8546493E+01,0.1742127E+03,0.1740029E+03,-.9722333E+00},&
!term(56)={-.1273736E-01,0.5681231E+01,0.1764414E+03,0.1763499E+03,-.2849843E+01},&
!term(57)={0.1177850E-01,-.1588087E+01,0.1848176E+03,0.1848244E+03,-.3346290E+01},&
!term(58)={-.4996613E-02,0.2129417E+01,0.1875174E+03,0.1875053E+03,-.5490989E+01},&
!term(59)={-.1193341E-01,-.3380905E+00,0.1817959E+03,0.1817962E+03,-.9237127E+00},&
!term(60)={0.8644505E-02,0.3200831E+00,0.1895030E+03,0.1895027E+03,-.8057036E+00},&
!term(61)={0.1237378E-01,0.2574155E+01,0.1793447E+03,0.1793263E+03,-.5230931E+01},&
!term(62)={-.6914890E-02,0.9850435E+00,0.1868969E+03,0.1868943E+03,-.5002173E+01},&
!term(63)={-.7002280E-02,-.7382139E-01,0.1921942E+03,0.1921943E+03,-.2958963E+01},&
!term(64)={0.1659396E-02,0.6502525E+01,0.1956543E+03,0.1955462E+03,-.5640543E+01},&
!term(65)={0.1014497E-01,0.1298020E+01,0.1941430E+03,0.1941387E+03,-.4514490E+01},&
!term(66)={-.8280464E-02,0.3427672E+01,0.1948866E+03,0.1948565E+03,-.5088724E+01},&
!term(67)={-.5424480E-04,-.5532027E+02,0.1892457E+03,0.1971656E+03,-.6528282E+00},&
!term(68)={-.8601862E-04,-.3271157E+02,0.1609391E+03,0.1642299E+03,-.5720184E+01},&
!term(69)={-.5719509E-05,-.7617667E+02,0.1585790E+03,0.1759266E+03,-.2511220E+01},&
!term(70)={0.1316506E-03,-.4149677E+02,0.1927876E+03,0.1972031E+03,-.6828117E+00},&
!term(71)={0.1894910E-03,-.2941603E+02,0.1647708E+03,0.1673760E+03,-.1953875E+01},&
!term(72)={0.2706263E-04,0.4690167E+02,0.2024650E+03,0.1969576E+03,-.4864464E+00},&
!term(73)={-.1108522E-04,-.5989512E+02,0.1769400E+03,0.1868026E+03,-.4928794E+01},&
!term(74)={-.1092577E-04,0.3014091E+02,0.2019464E+03,0.1996844E+03,-.2667904E+01},&
!term(75)={-.7723891E-05,-.1865059E+01,0.2216768E+03,0.2216847E+03,-.1418567E+01},&
!term(76)={-.4401822E-05,0.6136373E+02,0.2155684E+03,0.2066500E+03,-.1957182E+01},&
!term(77)={-.2268851E-08,-.1414089E+03,0.3221355E+03,0.3518064E+03,-.4985012E+01},&
!term(78)={0.2022434E-06,-.1555773E+03,0.3043864E+03,0.3418412E+03,-.3295968E+01},&
!term(79)={-.1490530E-04,-.1000075E+02,0.2362699E+03,0.2364814E+03,-.6895986E+00},&
!term(80)={-.9927599E-07,-.3524191E+02,0.3139859E+03,0.3159575E+03,-.1438554E+01},&
!term(81)={0.1353933E-04,-.8161695E+01,0.2371152E+03,0.2372556E+03,-.1308907E+01},&
!term(82)={0.5184537E-04,0.6247730E+01,0.2034798E+03,0.2033839E+03,-.5627438E+01},&
!term(83)={-.4887034E-06,-.4997882E+02,0.2452232E+03,0.2502645E+03,-.5432841E+01},&
!term(84)={-.2275203E-07,-.9964812E+02,0.2899328E+03,0.3065792E+03,-.2191153E+00},&
!term(85)={-.1985940E-06,-.1558922E+03,0.3042357E+03,0.3418505E+03,-.3303475E+01},&
!term(86)={-.1183531E-06,-.3706905E+02,0.3101955E+03,0.3124026E+03,-.4877807E+01},&
!term(87)={0.2561165E-09,-.2170279E+03,0.2776412E+03,0.3524000E+03,-.5459865E+01},&
!term(88)={0.3038923E-05,0.6896542E+01,0.2525574E+03,0.2524632E+03,-.9086585E+00},&
!term(89)={0.1039859E-03,0.1817957E+01,0.1915469E+03,0.1915382E+03,-.2434137E+01}

! element attributes

sc_Q01W[K1] =  -1.98479E+00
sc_Q01E[K1] =  -1.98479E+00
sc_Q02W[K1] =   1.34400E+00
sc_Q02E[K1] =   1.34400E+00
Q03W[K1] =  -2.89562E-01
Q03E[K1] =  -2.89562E-01
Q04W[K1] =   4.26293E-01
Q04E[K1] =   4.26293E-01
Q05W[K1] =  -3.41212E-01
Q05E[K1] =  -3.42694E-01
Q06W[K1] =   3.67903E-01
Q06E[K1] =   3.65598E-01
Q07W[K1]=  -2.49316E-01
Q07E[K1]=  -1.66566E-01
Q08W[K1]=   1.88579E-01
Q08E[K1]=   1.62923E-01
Q08AW[k1]=  0.0
Q09W[K1]=  -1.35772E-01
Q09E[K1]=  -1.55087E-01
Q10W[K1]=   2.47075E-01
Q10E[K1]=   2.43077E-01
Q11W[K1]=  -2.19736E-01
Q11E[K1]=  -2.37439E-01
Q12W[K1]=   2.96463E-01
Q12E[K1]=   2.90068E-01
Q13W[K1] =  -2.10720E-01
Q13E[K1] =  -1.77499E-01
Q14W[K1] =   2.75101E-01
Q14E[K1] =   2.76139E-01
Q15W[K1] =  -2.21202E-01
Q15E[K1] =  -1.88389E-01
Q16W[K1] =   2.66240E-01
Q16E[K1] =   2.58526E-01
Q17W[K1] =  -2.72700E-01
Q17E[K1] =  -2.62607E-01
Q18W[K1] =   2.37632E-01
Q18E[K1] =   2.33111E-01
Q19W[K1] =  -3.19519E-01
Q19E[K1] =  -2.87542E-01
Q20W[K1] =   2.15788E-01
Q20E[K1] =   2.15600E-01
Q21W[K1] =  -2.77017E-01
Q21E[K1] =  -2.76739E-01
Q22W[K1] =   2.59927E-01
Q22E[K1] =   2.59560E-01
Q23W[K1] =  -2.51511E-01
Q23E[K1] =  -2.51128E-01
Q24W[K1] =   2.54525E-01
Q24E[K1] =   2.52272E-01
Q25W[K1] =  -3.02572E-01
Q25E[K1] =  -3.01942E-01
Q26W[K1] =   2.47397E-01
Q26E[K1] =   2.46506E-01
Q27W[K1] =  -3.00311E-01
Q27E[K1] =  -2.99899E-01
Q28W[K1] =   2.41054E-01
Q28E[K1] =   2.41012E-01
Q29W[K1] =  -2.22981E-01
Q29E[K1] =  -2.22886E-01
Q30W[K1] =   2.46766E-01
Q30E[K1] =   2.46924E-01
Q31W[K1] =  -1.98507E-01
Q31E[K1] =  -1.99116E-01
Q32W[K1] =   2.00162E-01
Q32E[K1] =   2.00511E-01
Q33W[K1] =  -1.95214E-01
Q33E[K1] =  -1.95582E-01
Q34W[K1] =   2.24729E-01
Q34E[K1] =   2.24663E-01
Q35W[K1] =  -1.75945E-01
Q35E[K1] =  -1.76534E-01
Q36W[K1] =   2.08759E-01
Q36E[K1] =   2.08760E-01
Q37W[K1] =  -2.11894E-01
Q37E[K1] =  -2.12407E-01
Q38W[K1] =   2.28921E-01
Q38E[K1] =   2.28806E-01
Q39W[K1] =  -1.92339E-01
Q39E[K1] =  -1.91656E-01
Q40W[K1] =   2.28773E-01
Q40E[K1] =   2.28773E-01
Q41W[K1] =  -2.11713E-01
Q41E[K1] =  -2.11713E-01
Q42W[K1] =   2.38306E-01
Q42E[K1] =   2.38306E-01
Q43W[K1] =  -2.56636E-01
Q43E[K1] =  -2.56636E-01
Q43AW[K1] =   2.56141E-01
Q43AE[K1] =   2.56141E-01
Q44W[K1] =  -2.16036E-01
Q44E[K1] =  -2.16036E-01
Q45W[K1]=   2.83558E-01
Q45E[K1]=   2.83558E-01
Q46W[K1]=  -2.50923E-01
Q46E[K1]=  -2.50923E-01
Q47W[K1]=   4.30348E-01
Q47E[K1]=   4.30348E-01
Q47AW[K1]=  -3.49736E-01
Q47AE[K1]=  -3.49736E-01
Q48W[K1]=   5.78058E-01
Q48E[K1]=   5.78058E-01
Q49W[K1]=  -2.84996E-01
Q49E[K1]=  -2.84996E-01
Q49AW[K1]=   1.99200E-02
Q49AE[K1]=   1.99200E-02

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

q00_tilt =    0.0785

!sk2 : overlay = {sk_q02w, sk_q03w, sk_q03e/-1, sk_q02e/-1}, k1 = -7.32710E-02
sk_q02w[k1] =  -7.76469E-02
sk_q02E[k1] =   7.76469E-02
sk_q03w[k1] =  -7.92580E-02
sk_q03E[k1] =   7.92580E-02
!sk_q03e[k1] =  7.32710E-02
!sk_q02e[k1] =  7.32710E-02
!sc_sk2 : overlay = { sc_SK_Q02W, sc_sk_q02e}, K1 =  1.18743E-01
sc_SK_Q02W[K1] =   1.37493E-01
sc_SK_Q02E[K1] =   1.37493E-01

!sc_sk1 : overlay = { sc_SK_Q01W, sc_sk_q01e}, K1 =  3.43872E-02
sc_SK_Q01W[K1] =   9.99978E-03
sc_SK_Q01E[K1] =   9.99978E-03

sc_q01w[tilt] = q00_tilt
sc_q02w[tilt] = q00_tilt
sc_sk_Q01w[tilt] = q00_tilt + pi/4
sc_sk_Q02w[tilt] = q00_tilt + pi/4

sc_q01e[tilt] = -q00_tilt
sc_q02e[tilt] = -q00_tilt
sc_sk_Q01e[tilt] = -q00_tilt - pi/4
sc_sk_Q02e[tilt] = -q00_tilt - pi/4

!-----------------------------------------------------

H_SEP_08W[HKICK] =   3.76545E-04
H_SEP_08E[HKICK] =  -3.76252E-04
H_SEP_45W[HKICK] =  -4.72974E-04
H_SEP_45E[HKICK] =   4.73164E-04
V_SEP_48W[VKICK] =   9.79980E-04
V_SEP_48E[VKICK] =   9.79900E-04

k1_00 = -9.57309 / beam[energy]

Q00W[K1] =  k1_00 ; Q00E[K1] = Q00W[K1]

Q00W[TILT] = q00_tilt ;  Q00E[TILT] = -Q00W[TILT]

QTUNE5 : GROUP = {Q03W,Q05W,Q03E,Q05E, Q07W,Q07E,Q09W,Q09E, &
Q11W,Q11E,Q13W, Q15W,Q17W,Q19W,Q21W, Q13E, Q15E,Q17E,Q19E,Q21E,&
Q23W,Q25W, Q27W,Q29W,Q23E,Q25E, Q27E,Q29E, &
Q31W,Q33W,Q35W,Q37W, Q39W,Q41W,Q43W,Q44W,&
Q31E,Q33E,Q35E,Q37E, Q39E,Q41E,Q43E,Q44E,Q46W,Q46E}, K1

QTUNE6 : GROUP = {Q04W,Q06W,Q04E,Q06E, Q08W,Q08E,Q10W,Q10E, &
Q12W,Q12E,Q14W, Q16W,Q18W,Q20W,Q22W,Q14E, Q16E,Q18E,Q20E,Q22E,&
Q24W,Q26W, Q28W,Q30W, Q32W,Q34W,&
Q24E,Q26E, Q28E,Q30E, Q32E,Q34E,&
Q36W,Q38W, Q40W,Q42W,Q43AW,Q36E,Q38E, Q40E,Q42E,Q43AE,Q45W,Q45E, &
Q47W, Q47E}, K1

XQUNE1 : group={ &
SEX_09W,SEX_09E,SEX_11W,SEX_11E,SEX_13W,SEX_12E,SEX_14W,SEX_14E, &
SEX_17W,SEX_17E,SEX_19W,SEX_19E,SEX_21W,SEX_21E,SEX_23W,SEX_23E, &
SEX_25W,SEX_25E,SEX_27W,SEX_27E,SEX_29W,SEX_29E,SEX_31W,SEX_31E, &
SEX_33W,SEX_33E,SEX_35W,SEX_35E,SEX_37W,SEX_37E,SEX_39W,SEX_39E, &
SEX_41W,SEX_41E,SEX_43W,SEX_43E,SEX_44W,SEX_44E}, K2

XQUNE2 : group={ &
SEX_08W,SEX_08E,SEX_10W,SEX_10E,SEX_12W,SEX_12E,SEX_14W,SEX_14E, &
SEX_16W,SEX_16E,SEX_18W,SEX_18E,SEX_20W,SEX_20E,SEX_22W,SEX_22E, &
SEX_24W,SEX_24E,SEX_26W,SEX_26E,SEX_28W,SEX_28E,SEX_30W,SEX_30E, &
SEX_32W,SEX_32E,SEX_34W,SEX_34E,SEX_36W,SEX_36E,SEX_38W,SEX_38E, &
SEX_40W,SEX_40E,SEX_42W,SEX_42E,SEX_45W,SEX_45E}, K2

! 1843mev_lrbbi v2 -
SEX_08W[K2] = 0.538041E-01; SEX_08E[K2] = -.414362E-01
SEX_09W[K2] = 0.215311E-01; SEX_09E[K2] = 0.136162E+00
SEX_10W[K2] = 0.617696E-01; SEX_10E[K2] = 0.343661E-01
SEX_11W[K2] = -.743751E-01; SEX_11E[K2] = -.155112E+00
SEX_12W[K2] = -.536673E-01; SEX_12E[K2] = -.396206E-01
SEX_13W[K2] = 0.988410E-01; SEX_13E[K2] = 0.141670E+00
SEX_14W[K2] = 0.327355E+00; SEX_14E[K2] = 0.389573E+00
SEX_15W[K2] = -.714733E+00; SEX_15E[K2] = -.619937E+00
SEX_16W[K2] = 0.481785E+00; SEX_16E[K2] = 0.469357E+00
SEX_17W[K2] = -.902050E+00; SEX_17E[K2] = -.786097E+00
SEX_18W[K2] = 0.423458E+00; SEX_18E[K2] = 0.436978E+00
SEX_19W[K2] = -.102360E+01; SEX_19E[K2] = -.103999E+01
SEX_20W[K2] = 0.602675E+00; SEX_20E[K2] = 0.601570E+00
SEX_21W[K2] = -.121657E+01; SEX_21E[K2] = -.133597E+01
SEX_22W[K2] = 0.129773E+01; SEX_22E[K2] = 0.119525E+01
SEX_23W[K2] = -.253575E+01; SEX_23E[K2] = -.254733E+01
SEX_24W[K2] = 0.243839E+00; SEX_24E[K2] = 0.171957E+00
SEX_25W[K2] = -.425864E+00; SEX_25E[K2] = -.380951E+00
SEX_26W[K2] = 0.890030E+00; SEX_26E[K2] = 0.789322E+00
SEX_27W[K2] = -.164524E+01; SEX_27E[K2] = -.153671E+01
SEX_28W[K2] = 0.315986E+00; SEX_28E[K2] = 0.314321E+00
SEX_29W[K2] = -.525476E+00; SEX_29E[K2] = -.454748E+00
SEX_30W[K2] = 0.672607E+00; SEX_30E[K2] = 0.671915E+00
SEX_31W[K2] = -.134626E+01; SEX_31E[K2] = -.141861E+01
SEX_32W[K2] = 0.568449E+00; SEX_32E[K2] = 0.646861E+00
SEX_33W[K2] = -.100059E+01; SEX_33E[K2] = -.106424E+01
SEX_34W[K2] = 0.781126E+00; SEX_34E[K2] = 0.873082E+00
SEX_35W[K2] = -.112138E+01; SEX_35E[K2] = -.121780E+01
SEX_36W[K2] = 0.913593E+00; SEX_36E[K2] = 0.856772E+00
SEX_37W[K2] = -.182327E+01; SEX_37E[K2] = -.180260E+01
SEX_38W[K2] = 0.743918E+00; SEX_38E[K2] = 0.743256E+00
SEX_39W[K2] = -.157194E+01; SEX_39E[K2] = -.155355E+01
SEX_40W[K2] = 0.563915E+00; SEX_40E[K2] = 0.581123E+00
SEX_41W[K2] = -.879169E+00; SEX_41E[K2] = -.898197E+00
SEX_42W[K2] = 0.452704E+00; SEX_42E[K2] = 0.469187E+00
SEX_43W[K2] = -.606331E+00; SEX_43E[K2] = -.688986E+00
SEX_44W[K2] = -.576794E+00; SEX_44E[K2] = -.581489E+00
SEX_45W[K2] = 0.262210E+00; SEX_45E[K2] = 0.258126E+00

raw_xqune_1 : group = {SEX_08W/0.7983E-03,SEX_08E/0.6006E-03, &
 SEX_09W/-.2435E-01,SEX_09E/-.1989E-01, &
 SEX_10W/0.2515E-02,SEX_10E/-.1686E-03, &
 SEX_11W/0.2533E-02,SEX_11E/0.4904E-02, &
 SEX_12W/0.2421E-01,SEX_12E/0.2022E-01, &
 SEX_13W/-.4562E-01,SEX_13E/-.5100E-01, &
 SEX_14W/-.4306E-02,SEX_14E/-.5952E-02, &
 SEX_15W/-.3787E-01,SEX_15E/-.3596E-01, &
 SEX_16W/0.7012E-02,SEX_16E/0.5691E-02, &
 SEX_17W/-.2615E-01,SEX_17E/-.2256E-01, &
 SEX_18W/0.1437E-02,SEX_18E/-.2557E-03, &
 SEX_19W/-.3100E-01,SEX_19E/-.2804E-01, &
 SEX_20W/0.1507E-01,SEX_20E/0.1479E-01, &
 SEX_21W/-.3295E-01,SEX_21E/-.3549E-01, &
 SEX_22W/-.1757E-02,SEX_22E/-.2824E-02, &
 SEX_23W/-.1099E-01,SEX_23E/-.1503E-01, &
 SEX_24W/0.1148E-01,SEX_24E/0.1190E-01, &
 SEX_25W/-.2887E-01,SEX_25E/-.2717E-01, &
 SEX_26W/0.5739E-02,SEX_26E/0.4995E-02, &
 SEX_27W/-.3636E-01,SEX_27E/-.3361E-01, &
 SEX_28W/0.1163E-01,SEX_28E/0.1165E-01, &
 SEX_29W/-.3915E-01,SEX_29E/-.3806E-01, &
 SEX_30W/0.2167E-02,SEX_30E/0.2040E-02, &
 SEX_31W/-.2822E-01,SEX_31E/-.2961E-01, &
 SEX_32W/0.1149E-01,SEX_32E/0.1276E-01, &
 SEX_33W/-.4620E-01,SEX_33E/-.4487E-01, &
 SEX_34W/0.2111E-01,SEX_34E/0.2028E-01, &
 SEX_35W/-.7311E-01,SEX_35E/-.7226E-01, &
 SEX_36W/0.2182E-01,SEX_36E/0.2131E-01, &
 SEX_37W/-.8020E-01,SEX_37E/-.8018E-01, &
 SEX_38W/0.1831E-01,SEX_38E/0.2028E-01, &
 SEX_39W/-.4236E-01,SEX_39E/-.4523E-01, &
 SEX_40W/0.9565E-02,SEX_40E/0.1119E-01, &
 SEX_41W/-.5633E-01,SEX_41E/-.5607E-01, &
 SEX_42W/0.1676E-01,SEX_42E/0.1769E-01, &
 SEX_43W/-.6478E-01,SEX_43E/-.6601E-01, &
 SEX_44W/0.4747E-02,SEX_44E/0.4900E-02, &
 SEX_45W/-.7715E-02,SEX_45E/-.7302E-02}, K2
raw_xqune_1[type] := "CSR XQUNEING   1"

raw_xqune_2 : group = {SEX_08W/-.2963E-02,SEX_08E/-.5671E-02, &
 SEX_09W/0.2548E-01,SEX_09E/0.2338E-01, &
 SEX_10W/0.2759E-02,SEX_10E/0.5538E-02, &
 SEX_11W/-.1278E-01,SEX_11E/-.1868E-01, &
 SEX_12W/-.2931E-01,SEX_12E/-.2511E-01, &
 SEX_13W/0.5494E-01,SEX_13E/0.6401E-01, &
 SEX_14W/0.1541E-01,SEX_14E/0.2054E-01, &
 SEX_15W/0.4076E-01,SEX_15E/0.4224E-01, &
 SEX_16W/0.7062E-02,SEX_16E/0.6805E-02, &
 SEX_17W/0.3626E-03,SEX_17E/0.3189E-03, &
 SEX_18W/0.1650E-01,SEX_18E/0.2062E-01, &
 SEX_19W/0.3624E-02,SEX_19E/-.4931E-03, &
 SEX_20W/0.3286E-01,SEX_20E/0.3529E-01, &
 SEX_21W/-.6846E-01,SEX_21E/-.7133E-01, &
 SEX_22W/0.6583E-01,SEX_22E/0.6339E-01, &
 SEX_23W/-.1121E+00,SEX_23E/-.1083E+00, &
 SEX_24W/0.3847E-01,SEX_24E/0.3991E-01, &
 SEX_25W/-.7990E-01,SEX_25E/-.7700E-01, &
 SEX_26W/0.5777E-01,SEX_26E/0.5413E-01, &
 SEX_27W/-.7274E-01,SEX_27E/-.6782E-01, &
 SEX_28W/0.1699E-01,SEX_28E/0.1827E-01, &
 SEX_29W/-.1763E-01,SEX_29E/-.1669E-01, &
 SEX_30W/0.2977E-01,SEX_30E/0.2964E-01, &
 SEX_31W/-.1473E-01,SEX_31E/-.1590E-01, &
 SEX_32W/0.5765E-02,SEX_32E/0.9016E-02, &
 SEX_33W/0.1621E-01,SEX_33E/0.1236E-01, &
 SEX_34W/0.1046E-01,SEX_34E/0.1524E-01, &
 SEX_35W/0.3196E-01,SEX_35E/0.2878E-01, &
 SEX_36W/0.2041E-01,SEX_36E/0.1888E-01, &
 SEX_37W/0.8369E-02,SEX_37E/0.9123E-02, &
 SEX_38W/0.5526E-02,SEX_38E/0.5084E-02, &
 SEX_39W/-.7520E-02,SEX_39E/-.4976E-02, &
 SEX_40W/0.2334E-01,SEX_40E/0.2505E-01, &
 SEX_41W/-.1440E-02,SEX_41E/-.2723E-02, &
 SEX_42W/0.2355E-01,SEX_42E/0.2336E-01, &
 SEX_43W/-.4413E-02,SEX_43E/-.6502E-02, &
 SEX_44W/-.1885E-01,SEX_44E/-.1917E-01, &
 SEX_45W/0.1688E-01,SEX_45E/0.1647E-01}, K2
raw_xqune_2[type] := "CSR XQUNEING   2"

raw_xqune_3 : group = {SEX_08W/0.1875E-01,SEX_08E/-.1080E-01, &
 SEX_09W/-.4221E-01,SEX_09E/0.1148E-01, &
 SEX_10W/0.6155E-02,SEX_10E/0.4228E-02, &
 SEX_11W/-.8769E-02,SEX_11E/-.1130E-01, &
 SEX_12W/0.4197E-01,SEX_12E/-.1510E-01, &
 SEX_13W/0.3260E-01,SEX_13E/-.9229E-01, &
 SEX_14W/-.6019E-02,SEX_14E/0.1033E-01, &
 SEX_15W/-.4916E-01,SEX_15E/0.3134E-01, &
 SEX_16W/0.1191E-01,SEX_16E/-.1119E-01, &
 SEX_17W/-.7210E-01,SEX_17E/0.7603E-01, &
 SEX_18W/0.1790E-01,SEX_18E/-.1987E-01, &
 SEX_19W/0.1179E-01,SEX_19E/0.2731E-02, &
 SEX_20W/-.1262E-01,SEX_20E/0.8794E-02, &
 SEX_21W/0.5088E-01,SEX_21E/-.4215E-01, &
 SEX_22W/-.1017E-01,SEX_22E/0.9713E-02, &
 SEX_23W/0.1193E-01,SEX_23E/-.1468E-01, &
 SEX_24W/0.1405E-01,SEX_24E/-.2052E-03, &
 SEX_25W/-.3242E-01,SEX_25E/0.2422E-02, &
 SEX_26W/0.2655E-01,SEX_26E/-.1983E-02, &
 SEX_27W/-.6331E-01,SEX_27E/0.5299E-02, &
 SEX_28W/0.4756E-02,SEX_28E/-.1129E-01, &
 SEX_29W/-.4285E-01,SEX_29E/0.6431E-01, &
 SEX_30W/0.4545E-02,SEX_30E/-.6157E-02, &
 SEX_31W/0.4888E-01,SEX_31E/-.5075E-01, &
 SEX_32W/-.1147E-01,SEX_32E/0.4565E-02, &
 SEX_33W/0.3887E-01,SEX_33E/-.1908E-01, &
 SEX_34W/-.1989E-01,SEX_34E/0.3476E-02, &
 SEX_35W/0.4723E-01,SEX_35E/-.1111E-01, &
 SEX_36W/-.1346E-01,SEX_36E/-.1892E-01, &
 SEX_37W/-.2318E-01,SEX_37E/0.9953E-01, &
 SEX_38W/0.2205E-02,SEX_38E/-.1059E-01, &
 SEX_39W/-.1220E-01,SEX_39E/0.3015E-01, &
 SEX_40W/0.1792E-03,SEX_40E/-.6614E-02, &
 SEX_41W/0.4359E-01,SEX_41E/-.2275E-01, &
 SEX_42W/0.1077E-01,SEX_42E/0.1800E-02, &
 SEX_43W/0.4277E-01,SEX_43E/-.7070E-01, &
 SEX_44W/-.1178E-02,SEX_44E/-.1071E-01, &
 SEX_45W/0.1837E-02,SEX_45E/0.2293E-02}, K2
raw_xqune_3[type] := "CSR XQUNEING   3"

raw_xqune_4 : group = {SEX_08W/0.3399E-01,SEX_08E/-.2786E-01, &
 SEX_09W/-.1553E-01,SEX_09E/-.6459E-03, &
 SEX_10W/0.8405E-02,SEX_10E/-.4750E-02, &
 SEX_11W/-.1845E-02,SEX_11E/-.7275E-02, &
 SEX_12W/-.1692E-01,SEX_12E/0.1819E-01, &
 SEX_13W/0.1664E-01,SEX_13E/-.1904E-01, &
 SEX_14W/-.9112E-02,SEX_14E/0.6936E-02, &
 SEX_15W/-.3928E-02,SEX_15E/0.7137E-02, &
 SEX_16W/-.2249E-02,SEX_16E/-.5122E-02, &
 SEX_17W/-.6344E-02,SEX_17E/0.2157E-01, &
 SEX_18W/-.4468E-02,SEX_18E/-.3118E-02, &
 SEX_19W/0.3080E-02,SEX_19E/0.1084E-01, &
 SEX_20W/-.1321E-01,SEX_20E/0.9631E-02, &
 SEX_21W/0.1412E-01,SEX_21E/-.6412E-02, &
 SEX_22W/-.2339E-01,SEX_22E/0.1599E-01, &
 SEX_23W/0.1449E-01,SEX_23E/-.1794E-02, &
 SEX_24W/0.3798E-02,SEX_24E/-.6146E-02, &
 SEX_25W/-.1638E-02,SEX_25E/0.6880E-02, &
 SEX_26W/0.2622E-01,SEX_26E/-.1812E-01, &
 SEX_27W/-.1677E-01,SEX_27E/0.2169E-02, &
 SEX_28W/0.5923E-02,SEX_28E/-.4175E-02, &
 SEX_29W/-.1328E-01,SEX_29E/0.9103E-02, &
 SEX_30W/0.3859E-02,SEX_30E/-.1748E-02, &
 SEX_31W/0.1391E-01,SEX_31E/-.1933E-01, &
 SEX_32W/-.2937E-01,SEX_32E/0.2888E-01, &
 SEX_33W/0.1095E-01,SEX_33E/-.1148E-01, &
 SEX_34W/-.8764E-02,SEX_34E/0.1592E-01, &
 SEX_35W/-.3092E-02,SEX_35E/-.9284E-02, &
 SEX_36W/0.1218E-01,SEX_36E/-.1847E-01, &
 SEX_37W/-.1150E-01,SEX_37E/0.1704E-01, &
 SEX_38W/0.3497E-01,SEX_38E/-.3479E-01, &
 SEX_39W/-.1406E-01,SEX_39E/0.1305E-01, &
 SEX_40W/-.4936E-02,SEX_40E/0.1128E-01, &
 SEX_41W/0.7580E-02,SEX_41E/-.2129E-01, &
 SEX_42W/-.5712E-01,SEX_42E/0.5097E-01, &
 SEX_43W/-.6086E-02,SEX_43E/0.2165E-01, &
 SEX_44W/0.1675E-03,SEX_44E/-.6421E-02, &
 SEX_45W/-.5072E-02,SEX_45E/0.7660E-02}, K2
raw_xqune_4[type] := "CSR XQUNEING   4"
H_SEP_08W[HKICK] =   3.76545E-04
H_SEP_08E[HKICK] =  -3.76252E-04
H_SEP_45W[HKICK] =  -4.72974E-04
H_SEP_45E[HKICK] =   4.73164E-04

raw_pretzing_1 : group = {H_SEP_08W/3.76545E-04, H_SEP_08E/-3.76252E-04, &
                   H_SEP_45W/-4.72974E-04, H_SEP_45E/4.73164E-04}, HKICK
raw_pretzing_1[type]:="CSR PRETZING   1"

raw_pretzing_13 : group = {H_SEP_08W/3.76545E-04, H_SEP_08E/3.76252E-04}, &
                                             HKICK
raw_pretzing_13[type]:="CSR PRETZING  13"

RAW_VCROSING_7: GROUP = {Q49W/ 0.013000,Q49E/ 0.013000,Q41W/-0.000375, &
        Q41E/-0.000375,Q42W/ 0.003635,Q42E/ 0.003635,Q43W/-0.001189, &
        Q43E/-0.001189,Q44W/ 0.000802,Q44E/ 0.000802,Q45W/ 0.001358, &
        Q45E/ 0.001358,Q46W/-0.007889,Q46E/-0.007889,Q47W/-0.005330, &
        Q47E/-0.005330,Q47AW/ 0.002868,Q47AE/ 0.002868,Q48W/-0.004344, &
        Q48E/-0.004344}, K1, &
         Type = "CSR VCROSING   7"

! *** The following is not up to date for this lattice ****************

RAW_BETASING_1: GROUP = {Q03W/-0.000059,Q03E/-0.000059,Q04W/-0.000018, &
        Q04E/-0.000018,Q05W/-0.000036,Q05E/-0.000036,Q06W/ 0.000218, &
        Q06E/ 0.000218,Q07W/-0.000248,Q07E/-0.000248,Q08W/ 0.000267, &
        Q08E/ 0.000267,Q09W/ 0.000317,Q09E/ 0.000317,Q10W/ 0.000557, &
        Q10E/ 0.000557,Q11W/ 0.001428,Q11E/ 0.001428,Q12W/-0.000628, &
        Q12E/-0.000628,Q13W/ 0.000078,Q13E/ 0.000078,Q14W/-0.000602, &
        Q14E/-0.000602}, K1, &
         Type = "CSR BETASING   1"

RAW_BETASING_2: GROUP = {Q03W/-0.000840,Q03E/-0.000840,Q04W/-0.000713, &
        Q04E/-0.000713,Q05W/-0.000434,Q05E/-0.000434,Q06W/ 0.002075, &
        Q06E/ 0.002075,Q07W/ 0.000489,Q07E/ 0.000489,Q08W/-0.000420, &
        Q08E/-0.000420,Q09W/-0.001488,Q09E/-0.001488,Q10W/-0.000842, &
        Q10E/-0.000842,Q11W/ 0.001056,Q11E/ 0.001056,Q12W/ 0.000868, &
        Q12E/ 0.000868,Q13W/-0.000584,Q13E/-0.000584,Q14W/-0.000367, &
        Q14E/-0.000367}, K1, &
         Type = "CSR BETASING   2"

RAW_BETASING_3: GROUP = {Q03W/ 0.000362,Q03E/-0.000362,Q04W/-0.000381, &
        Q04E/ 0.000381,Q05W/-0.001085,Q05E/ 0.001085,Q06W/-0.000461, &
        Q06E/ 0.000461,Q07W/-0.001446,Q07E/ 0.001446,Q08W/-0.000552, &
        Q08E/ 0.000552,Q09W/-0.000043,Q09E/ 0.000043,Q10W/ 0.000251, &
        Q10E/-0.000251,Q11W/ 0.001395,Q11E/-0.001395,Q12W/ 0.000259, &
        Q12E/-0.000259,Q13W/-0.000608,Q13E/ 0.000608,Q14W/-0.000172, &
        Q14E/ 0.000172}, K1, &
         Type = "CSR BETASING   3"

RAW_BETASING_4: GROUP = {Q03W/ 0.000258,Q03E/-0.000258,Q04W/ 0.000370, &
        Q04E/-0.000370,Q05W/-0.000446,Q05E/ 0.000446,Q06W/ 0.000427, &
        Q06E/-0.000427,Q07W/ 0.000211,Q07E/-0.000211,Q08W/-0.000219, &
        Q08E/ 0.000219,Q09W/ 0.000090,Q09E/-0.000090,Q10W/ 0.000050, &
        Q10E/-0.000050,Q11W/ 0.000619,Q11E/-0.000619,Q12W/ 0.000651, &
        Q12E/-0.000651,Q13W/-0.000199,Q13E/ 0.000199,Q14W/ 0.000581, &
        Q14E/-0.000581}, K1, &
         Type = "CSR BETASING   4"

! turn this group 1 unit to compensate for opening east wiggler
!RAW_BETASING_7: GROUP = {Q03E/ 0.004341,Q04E/-0.000381,Q05E/-0.020358, &
!        Q06E/-0.005522,Q07E/-0.029461,Q08E/ 0.010034,Q09E/-0.036034, &
!        Q10E/ 0.010183,Q11E/ 0.008822,Q12E/ 0.011863,Q13E/ 0.001444, &
!        Q14E/ 0.000559,Q15E/-0.000153,Q16E/ 0.001105}, K1, &
!         Type = "CSR BETASING   7"

! turn this group 1 unit to compensate for opening west wiggler
RAW_BETASING_8: GROUP = {Q03W/ 0.000585,Q04W/ 0.002293,Q05W/ 0.001421, &
        Q06W/ 0.000174,Q07W/-0.003166,Q08W/-0.000318,Q09W/-0.007158, &
        Q10W/-0.000792,Q11W/-0.004466,Q12W/ 0.001969,Q13W/ 0.004257, &
        Q14W/ 0.001558,Q15W/-0.012663,Q16W/ 0.000063}, K1, &
         Type = "CSR BETASING   8"

! turn this group 1 unit to compensate for turning on one sc wig
RAW_BETASING_7: GROUP = {Q09E/-0.004479,Q10E/-0.009876,Q11E/-0.000347, &
        Q12E/ 0.004598,Q13E/ 0.013044,Q14E/-0.004215,Q15E/-0.002476, &
        Q16E/ 0.001968,Q17E/ 0.007761,Q18E/-0.005731,Q19E/ 0.000266}, K1, &
         Type = "CSR BETASING   7"

use, cesr

 ! Vars not in original file
RF_W1[VOLT] := 0.
RF_W2[VOLT] := 0.
RF_E1[VOLT] := 1.7e6
RF_E2[VOLT] := 1.7e6
RF_W1[HARMON] := 1281
RF_W2[HARMON] := 1281
RF_E1[HARMON] := 1281
RF_E2[HARMON] := 1281