source: PSPA/madxPSPA/tests/share/LHC/LHCRing/SLHCV3.1b/opt_5500_5500thin.madx @ 430

Last change on this file since 430 was 430, checked in by touze, 11 years ago

import madx-5.01.00
File size: 62.2 KB
Line 
1ARC_SQUEEZE :=  0.0 ;
2
3 !***LAYOUT***
4l.MQXL      :=          7.6850000000 ;
5l.MQX       :=          6.5770000000 ;
6dq1q2a      :=          3.5600000000 ;
7dq2aq2b     :=          1.9150000000 ;
8dq2bq3      :=          3.5600000000 ;
9deltaposD2  :=        -15.0000000000 ;
10deltaposQ4  :=          0.0000000000 ;
11deltaposQ5  :=         11.0000000000 ;
12deltaposQ6  :=          0.0000000000 ;
13on_cutMS.10 :=          0            ;
14on_cutMS.14 :=          0            ;
15is_thin     :=          1            ;
16
17 !***BETAS in IR1 and IR5***
18betx_IP1     :=         5.500000 ;
19bety_IP1     :=         5.500000 ;
20betx_IP5     :=         5.500000 ;
21bety_IP5     :=         5.500000 ;
22betx0_IP1    :=         5.500000 ;
23bety0_IP1    :=         5.500000 ;
24betx0_IP5    :=         5.500000 ;
25bety0_IP5    :=         5.500000 ;
26
27 !***Exp. configuration in IR1, IR2, IR5 and IR8***
28on_sep1:=0;on_x1:=0;phi_IR1 :=   90.000; on_sol_atlas:=0;on_crab1:=0;
29on_sep5:=0;on_x5:=0;phi_IR5 :=    0.000; on_sol_cms  :=0;on_crab5:=0;
30on_sep2:=0;on_x2:=0;on_alice:=0;on_sol_alice:=0;
31on_sep8:=0;on_x8:=0;on_lhcb :=0;
32
33abas:= 12.00/ 6.0*clight/(7E12)*on_sol_atlas;
34abls:= 6.05/12.1*clight/(7E12)*on_sol_alice ;
35abcs:= 52.00/13.0*clight/(7E12)*on_sol_cms  ;
36
37 !***Ring Geometry***
38
39 !Separation/recombination dipoles
40kd1.lr1       :=  ad1.lr1/l.mbxa;
41kd2.l1        :=  ad2.l5/l.mbrd ;
42kd2.r1        :=  ad2.r5/l.mbrd ;
43kd1.l2        :=  ad1.l2/l.mbx  ;
44kd1.r2        :=  ad1.r2/l.mbx  ;
45kd2.l2        :=  ad2.l2/l.mbrc ;
46kd2.r2        :=  ad2.r2/l.mbrc ;
47kd3.lr3       :=  ad3.lr3/l.mbw ;
48kd4.lr3       :=  ad4.lr3/l.mbw ;
49kd3.l4        :=  ad3.l4/l.mbrs ;
50kd3.r4        :=  ad3.r4/l.mbrs ;
51kd4.l4        :=  ad4.l4/l.mbrb ;
52kd4.r4        :=  ad4.r4/l.mbrb ;
53kd34.lr3      :=  ad3.lr3/l.mbw ;
54kd34.lr7      :=  ad3.lr7/l.mbw ;
55kd1.lr5       :=  ad1.lr5/l.mbxa;
56kd2.l5        :=  ad2.l5/l.mbrd ;
57kd2.r5        :=  ad2.r5/l.mbrd ;
58kd3.lr7       :=  ad3.lr7/l.mbw ;
59kd4.lr7       :=  ad4.lr7/l.mbw ;
60kd1.l8        :=  ad1.l8/l.mbx  ;
61kd1.r8        :=  ad1.r8/l.mbx  ;
62kd2.l8        :=  ad2.l8/l.mbrc ;
63kd2.r8        :=  ad2.r8/l.mbrc ;
64ksumd2.l1b2   :=  kd2.l1        ;
65ksumd2.l2b2   :=  kd2.l2        ;
66ksumd2.l5b2   :=  kd2.l5        ;
67ksumd2.l8b2   :=  kd2.l8        ;
68ksumd2.r1b2   :=  kd2.l1        ;
69ksumd2.r2b2   :=  kd2.l2        ;
70ksumd2.r5b2   :=  kd2.l5        ;
71ksumd2.r8b2   :=  kd2.l8        ;
72
73 !Main dipoles
74kb.a12        :=  ab.a12/l.mb   ;
75kb.a23        :=  ab.a23/l.mb   ;
76kb.a34        :=  ab.a34/l.mb   ;
77kb.a45        :=  ab.a45/l.mb   ;
78kb.a56        :=  ab.a56/l.mb   ;
79kb.a67        :=  ab.a67/l.mb   ;
80kb.a78        :=  ab.a78/l.mb   ;
81kb.a81        :=  ab.a81/l.mb   ;
82
83 !***IR1 Optics***
84KQX1.L1     :=   -0.626927908761E-02 ;
85KQX2a.L1    :=   -0.626927908761E-02 ;
86KQX2b.L1    :=   -0.626927908761E-02 ;
87KQX3.L1     :=   -0.626927908761E-02 ;
88KQX1.R1     :=              -KQX1.L1 ;
89KQX2a.R1    :=             -KQX2a.L1 ;
90KQX2b.R1    :=             -KQX2b.L1 ;
91KQX3.R1     :=              -KQX3.L1 ;
92
93 !Beam1
94KQ4.L1B1    :=    0.319786666814E-02 ;
95KQ4.R1B1    :=   -0.319786666814E-02 ;
96KQ5.L1B1    :=   -0.320566201423E-02 ;
97KQ5.R1B1    :=    0.320566201423E-02 ;
98KQ6.L1B1    :=    0.494755486215E-02 ;
99KQ6.R1B1    :=   -0.509261613266E-02 ;
100KQ7.L1B1    :=   -0.478920914601E-02 ;
101KQ7.R1B1    :=    0.481828942416E-02 ;
102KQ8.L1B1    :=    0.849511532212E-02 ;
103KQ8.R1B1    :=   -0.855238681760E-02 ;
104KQ9.L1B1    :=   -0.722136052857E-02 ;
105KQ9.R1B1    :=    0.700833522449E-02 ;
106KQ10.L1B1   :=    0.734615553469E-02 ;
107KQ10.R1B1   :=   -0.748407457645E-02 ;
108KQTL11.L1B1 :=   -0.343687196786E-03 ;
109KQTL11.R1B1 :=    0.678676352806E-03 ;
110KQT12.L1B1  :=   -0.446301034967E-03 ;
111KQT12.R1B1  :=   -0.512811013468E-03 ;
112KQT13.L1B1  :=    0.475573576232E-02 ;
113KQT13.R1B1  :=   -0.139351006100E-03 ;
114
115 !Beam2
116KQ4.L1B2    :=   -0.320330449228E-02 ;
117KQ4.R1B2    :=    0.320330449228E-02 ;
118KQ5.L1B2    :=    0.359662586292E-02 ;
119KQ5.R1B2    :=   -0.359662586292E-02 ;
120KQ6.L1B2    :=   -0.529273379138E-02 ;
121KQ6.R1B2    :=    0.540933950059E-02 ;
122KQ7.L1B2    :=    0.471642403832E-02 ;
123KQ7.R1B2    :=   -0.470480436978E-02 ;
124KQ8.L1B2    :=   -0.841825289024E-02 ;
125KQ8.R1B2    :=    0.851063359567E-02 ;
126KQ9.L1B2    :=    0.689025361809E-02 ;
127KQ9.R1B2    :=   -0.703637515830E-02 ;
128KQ10.L1B2   :=   -0.727702707302E-02 ;
129KQ10.R1B2   :=    0.738463211492E-02 ;
130KQTL11.L1B2 :=    0.596524838300E-03 ;
131KQTL11.R1B2 :=   -0.144024070808E-02 ;
132KQT12.L1B2  :=   -0.106136847345E-03 ;
133KQT12.R1B2  :=    0.575323545449E-03 ;
134KQT13.L1B2  :=   -0.136664488301E-02 ;
135KQT13.R1B2  :=    0.324896254979E-03 ;
136
137 !***IR1 X-scheme***
138ACBXV1.L1x    :=    0.189970742178E-04 ;
139ACBXV1.L1s    :=    0.125479984074E-04 ;
140ACBXV1.L1     := (   0.189970742178E-04 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.125479984074E-04 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
141ACBXV1.R1x    :=   -0.189970742178E-04 ;
142ACBXV1.R1s    :=    0.125479984074E-04 ;
143ACBXV1.R1     := (  -0.189970742178E-04 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.125479984074E-04 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
144ACBXH1.L1x    :=    0.175169443687E-04 ;
145ACBXH1.L1s    :=    0.122795017846E-04 ;
146ACBXH1.L1     := (   0.175169443687E-04 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.122795017846E-04 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
147ACBXH1.R1x    :=   -0.175169443687E-04 ;
148ACBXH1.R1s    :=    0.122795017846E-04 ;
149ACBXH1.R1     := (  -0.175169443687E-04 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.122795017846E-04 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
150ACBXV2.L1x    :=    0.000000000000E+00 ;
151ACBXV2.L1s    :=    0.000000000000E+00 ;
152ACBXV2.L1     := (   0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
153ACBXV2.R1x    :=    0.000000000000E+00 ;
154ACBXV2.R1s    :=    0.000000000000E+00 ;
155ACBXV2.R1     := (   0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
156ACBXH2.L1x    :=    0.000000000000E+00 ;
157ACBXH2.L1s    :=    0.000000000000E+00 ;
158ACBXH2.L1     := (   0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
159ACBXH2.R1x    :=    0.000000000000E+00 ;
160ACBXH2.R1s    :=    0.000000000000E+00 ;
161ACBXH2.R1     := (   0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
162ACBXV3.L1x    :=    0.622824081604E-04 ;
163ACBXV3.L1s    :=    0.278140305834E-04 ;
164ACBXV3.L1     := (   0.622824081604E-04 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.278140305834E-04 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
165ACBXV3.R1x    :=   -0.622824081604E-04 ;
166ACBXV3.R1s    :=    0.278140305834E-04 ;
167ACBXV3.R1     := (  -0.622824081604E-04 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.278140305834E-04 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
168ACBXH3.L1x    :=    0.664234452527E-04 ;
169ACBXH3.L1s    :=    0.278399907789E-04 ;
170ACBXH3.L1     := (   0.664234452527E-04 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.278399907789E-04 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
171ACBXH3.R1x    :=   -0.664234452528E-04 ;
172ACBXH3.R1s    :=    0.278399907789E-04 ;
173ACBXH3.R1     := (  -0.664234452528E-04 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.278399907789E-04 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
174
175 !Beam1
176ACBRDV4.L1B1x :=   -0.140949525767E-03 ;
177ACBRDV4.L1B1s :=    0.726944671792E-05 ;
178ACBRDV4.L1B1  := (  -0.140949525767E-03 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.726944671792E-05 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
179ACBRDV4.R1B1x :=    0.925984965525E-04 ;
180ACBRDV4.R1B1s :=    0.160403583350E-04 ;
181ACBRDV4.R1B1  := (   0.925984965525E-04 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.160403583350E-04 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
182ACBYVS4.L1B1x :=    0.000000000000E+00 ;
183ACBYVS4.L1B1s :=    0.000000000000E+00 ;
184ACBYVS4.L1B1  := (   0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
185ACBYVS4.R1B1x :=    0.000000000000E+00 ;
186ACBYVS4.R1B1s :=    0.000000000000E+00 ;
187ACBYVS4.R1B1  := (   0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
188ACBCV5.L1B1x  :=    0.000000000000E+00 ;
189ACBCV5.L1B1s  :=    0.000000000000E+00 ;
190ACBCV5.L1B1   := (   0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
191ACBCV6.R1B1x  :=    0.000000000000E+00 ;
192ACBCV6.R1B1s  :=    0.000000000000E+00 ;
193ACBCV6.R1B1   := (   0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
194ACBRDH4.L1B1x :=   -0.950370063547E-04 ;
195ACBRDH4.L1B1s :=    0.163240317234E-04 ;
196ACBRDH4.L1B1  := (  -0.950370063547E-04 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.163240317234E-04 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
197ACBRDH4.R1B1x :=    0.144680651670E-03 ;
198ACBRDH4.R1B1s :=    0.731863861157E-05 ;
199ACBRDH4.R1B1  := (   0.144680651670E-03 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.731863861157E-05 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
200ACBYHS4.L1B1x :=    0.000000000000E+00 ;
201ACBYHS4.L1B1s :=    0.000000000000E+00 ;
202ACBYHS4.L1B1  := (   0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
203ACBYHS4.R1B1x :=    0.000000000000E+00 ;
204ACBYHS4.R1B1s :=    0.000000000000E+00 ;
205ACBYHS4.R1B1  := (   0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
206ACBCH6.L1B1x  :=    0.000000000000E+00 ;
207ACBCH6.L1B1s  :=    0.000000000000E+00 ;
208ACBCH6.L1B1   := (   0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
209ACBCH5.R1B1x  :=    0.000000000000E+00 ;
210ACBCH5.R1B1s  :=    0.000000000000E+00 ;
211ACBCH5.R1B1   := (   0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
212
213 !Beam2
214ACBRDV4.L1B2x :=   -0.925984965525E-04 ;
215ACBRDV4.L1B2s :=    0.160403583350E-04 ;
216ACBRDV4.L1B2  := (  -0.925984965525E-04 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.160403583350E-04 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
217ACBRDV4.R1B2x :=    0.140949525767E-03 ;
218ACBRDV4.R1B2s :=    0.726944671792E-05 ;
219ACBRDV4.R1B2  := (   0.140949525767E-03 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.726944671792E-05 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
220ACBYVS4.L1B2x :=    0.000000000000E+00 ;
221ACBYVS4.L1B2s :=    0.000000000000E+00 ;
222ACBYVS4.L1B2  := (   0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
223ACBYVS4.R1B2x :=    0.000000000000E+00 ;
224ACBYVS4.R1B2s :=    0.000000000000E+00 ;
225ACBYVS4.R1B2  := (   0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
226ACBCV6.L1B2x  :=    0.000000000000E+00 ;
227ACBCV6.L1B2s  :=    0.000000000000E+00 ;
228ACBCV6.L1B2   := (   0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
229ACBCV5.R1B2x  :=    0.000000000000E+00 ;
230ACBCV5.R1B2s  :=    0.000000000000E+00 ;
231ACBCV5.R1B2   := (   0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_sep1 ;
232ACBRDH4.L1B2x :=   -0.144680651670E-03 ;
233ACBRDH4.L1B2s :=    0.731863861157E-05 ;
234ACBRDH4.L1B2  := (  -0.144680651670E-03 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.731863861157E-05 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
235ACBRDH4.R1B2x :=    0.950370063547E-04 ;
236ACBRDH4.R1B2s :=    0.163240317234E-04 ;
237ACBRDH4.R1B2  := (   0.950370063547E-04 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.163240317234E-04 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
238ACBYHS4.L1B2x :=    0.000000000000E+00 ;
239ACBYHS4.L1B2s :=    0.000000000000E+00 ;
240ACBYHS4.L1B2  := (   0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
241ACBYHS4.R1B2x :=    0.000000000000E+00 ;
242ACBYHS4.R1B2s :=    0.000000000000E+00 ;
243ACBYHS4.R1B2  := (   0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
244ACBCH5.L1B2x  :=    0.000000000000E+00 ;
245ACBCH5.L1B2s  :=    0.000000000000E+00 ;
246ACBCH5.L1B2   := (   0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
247ACBCH6.R1B2x  :=    0.000000000000E+00 ;
248ACBCH6.R1B2s  :=    0.000000000000E+00 ;
249ACBCH6.R1B2   := (   0.000000000000E+00 )*cos(phi_IR1*twopi/360.)*on_x1 +(  0.000000000000E+00 )*sin(phi_IR1*twopi/360.)*on_sep1 ;
250
251 !***CRAB CAVITIES in IR1***
252AHCRAB_L1B1 :=    0.142753659597E-05 ;
253AHCRAB_R1B1 :=    0.179927016103E-05 ;
254AHCRAB_L1B2 :=    0.179956880868E-05 ;
255AHCRAB_R1B2 :=    0.142762603538E-05 ;
256AVCRAB_L1B1 :=    0.165061933151E-05 ;
257AVCRAB_R1B1 :=    0.130969680035E-05 ;
258AVCRAB_L1B2 :=    0.130969681984E-05 ;
259AVCRAB_R1B2 :=    0.165061932985E-05 ;
260
261 !***IR5 Optics***
262KQX1.L5     :=   -0.626927908761E-02 ;
263KQX2a.L5    :=   -0.626927908761E-02 ;
264KQX2b.L5    :=   -0.626927908761E-02 ;
265KQX3.L5     :=   -0.626927908761E-02 ;
266KQX1.R5     :=              -KQX1.L5 ;
267KQX2a.R5    :=             -KQX2a.L5 ;
268KQX2b.R5    :=             -KQX2b.L5 ;
269KQX3.R5     :=              -KQX3.L5 ;
270
271 !Beam1
272KQ4.L5B1    :=    0.319786666814E-02 ;
273KQ4.R5B1    :=   -0.319786666814E-02 ;
274KQ5.L5B1    :=   -0.320566201423E-02 ;
275KQ5.R5B1    :=    0.320566201423E-02 ;
276KQ6.L5B1    :=    0.494755486215E-02 ;
277KQ6.R5B1    :=   -0.509261613266E-02 ;
278KQ7.L5B1    :=   -0.478920914601E-02 ;
279KQ7.R5B1    :=    0.481828942416E-02 ;
280KQ8.L5B1    :=    0.849511532212E-02 ;
281KQ8.R5B1    :=   -0.855238681760E-02 ;
282KQ9.L5B1    :=   -0.722136052857E-02 ;
283KQ9.R5B1    :=    0.700833522449E-02 ;
284KQ10.L5B1   :=    0.734615553469E-02 ;
285KQ10.R5B1   :=   -0.748407457645E-02 ;
286KQTL11.L5B1 :=   -0.343687196786E-03 ;
287KQTL11.R5B1 :=    0.678676352806E-03 ;
288KQT12.L5B1  :=   -0.446301034967E-03 ;
289KQT12.R5B1  :=   -0.512811013468E-03 ;
290KQT13.L5B1  :=    0.475573576232E-02 ;
291KQT13.R5B1  :=   -0.139351006100E-03 ;
292
293 !Beam2
294KQ4.L5B2    :=   -0.320330449228E-02 ;
295KQ4.R5B2    :=    0.320330449228E-02 ;
296KQ5.L5B2    :=    0.359662586292E-02 ;
297KQ5.R5B2    :=   -0.359662586292E-02 ;
298KQ6.L5B2    :=   -0.529273379138E-02 ;
299KQ6.R5B2    :=    0.540933950059E-02 ;
300KQ7.L5B2    :=    0.471642403832E-02 ;
301KQ7.R5B2    :=   -0.470480436978E-02 ;
302KQ8.L5B2    :=   -0.841825289024E-02 ;
303KQ8.R5B2    :=    0.851063359567E-02 ;
304KQ9.L5B2    :=    0.689025361809E-02 ;
305KQ9.R5B2    :=   -0.703637515830E-02 ;
306KQ10.L5B2   :=   -0.727702707302E-02 ;
307KQ10.R5B2   :=    0.738463211492E-02 ;
308KQTL11.L5B2 :=    0.596524838300E-03 ;
309KQTL11.R5B2 :=   -0.144024070808E-02 ;
310KQT12.L5B2  :=   -0.106136847345E-03 ;
311KQT12.R5B2  :=    0.575323545449E-03 ;
312KQT13.L5B2  :=   -0.136664488301E-02 ;
313KQT13.R5B2  :=    0.324896254979E-03 ;
314
315 !***IR5 X-scheme***
316ACBXV1.L5x    :=    0.189970742156E-04 ;
317ACBXV1.L5s    :=    0.125479984074E-04 ;
318ACBXV1.L5     := (   0.189970742156E-04 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.125479984074E-04 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
319ACBXV1.R5x    :=   -0.189970742154E-04 ;
320ACBXV1.R5s    :=    0.125479984074E-04 ;
321ACBXV1.R5     := (  -0.189970742154E-04 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.125479984074E-04 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
322ACBXH1.L5x    :=    0.175169443710E-04 ;
323ACBXH1.L5s    :=    0.122795017846E-04 ;
324ACBXH1.L5     := (   0.175169443710E-04 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.122795017846E-04 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
325ACBXH1.R5x    :=   -0.175169443709E-04 ;
326ACBXH1.R5s    :=    0.122795017846E-04 ;
327ACBXH1.R5     := (  -0.175169443709E-04 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.122795017846E-04 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
328ACBXV2.L5x    :=    0.000000000000E+00 ;
329ACBXV2.L5s    :=    0.000000000000E+00 ;
330ACBXV2.L5     := (   0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
331ACBXV2.R5x    :=    0.000000000000E+00 ;
332ACBXV2.R5s    :=    0.000000000000E+00 ;
333ACBXV2.R5     := (   0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
334ACBXH2.L5x    :=    0.000000000000E+00 ;
335ACBXH2.L5s    :=    0.000000000000E+00 ;
336ACBXH2.L5     := (   0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
337ACBXH2.R5x    :=    0.000000000000E+00 ;
338ACBXH2.R5s    :=    0.000000000000E+00 ;
339ACBXH2.R5     := (   0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
340ACBXV3.L5x    :=    0.622824081628E-04 ;
341ACBXV3.L5s    :=    0.278140305835E-04 ;
342ACBXV3.L5     := (   0.622824081628E-04 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.278140305835E-04 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
343ACBXV3.R5x    :=   -0.622824081628E-04 ;
344ACBXV3.R5s    :=    0.278140305835E-04 ;
345ACBXV3.R5     := (  -0.622824081628E-04 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.278140305835E-04 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
346ACBXH3.L5x    :=    0.664234452503E-04 ;
347ACBXH3.L5s    :=    0.278399907788E-04 ;
348ACBXH3.L5     := (   0.664234452503E-04 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.278399907788E-04 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
349ACBXH3.R5x    :=   -0.664234452504E-04 ;
350ACBXH3.R5s    :=    0.278399907788E-04 ;
351ACBXH3.R5     := (  -0.664234452504E-04 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.278399907788E-04 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
352
353 !Beam1
354ACBRDV4.L5B1x :=   -0.140949525767E-03 ;
355ACBRDV4.L5B1s :=    0.726944671776E-05 ;
356ACBRDV4.L5B1  := (  -0.140949525767E-03 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.726944671776E-05 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
357ACBRDV4.R5B1x :=    0.925984965535E-04 ;
358ACBRDV4.R5B1s :=    0.160403583351E-04 ;
359ACBRDV4.R5B1  := (   0.925984965535E-04 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.160403583351E-04 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
360ACBYVS4.L5B1x :=    0.000000000000E+00 ;
361ACBYVS4.L5B1s :=    0.000000000000E+00 ;
362ACBYVS4.L5B1  := (   0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
363ACBYVS4.R5B1x :=    0.000000000000E+00 ;
364ACBYVS4.R5B1s :=    0.000000000000E+00 ;
365ACBYVS4.R5B1  := (   0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
366ACBCV5.L5B1x  :=    0.000000000000E+00 ;
367ACBCV5.L5B1s  :=    0.000000000000E+00 ;
368ACBCV5.L5B1   := (   0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
369ACBCV6.R5B1x  :=    0.000000000000E+00 ;
370ACBCV6.R5B1s  :=    0.000000000000E+00 ;
371ACBCV6.R5B1   := (   0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
372ACBRDH4.L5B1x :=   -0.950370063537E-04 ;
373ACBRDH4.L5B1s :=    0.163240317233E-04 ;
374ACBRDH4.L5B1  := (  -0.950370063537E-04 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.163240317233E-04 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
375ACBRDH4.R5B1x :=    0.144680651669E-03 ;
376ACBRDH4.R5B1s :=    0.731863861174E-05 ;
377ACBRDH4.R5B1  := (   0.144680651669E-03 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.731863861174E-05 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
378ACBYHS4.L5B1x :=    0.000000000000E+00 ;
379ACBYHS4.L5B1s :=    0.000000000000E+00 ;
380ACBYHS4.L5B1  := (   0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
381ACBYHS4.R5B1x :=    0.000000000000E+00 ;
382ACBYHS4.R5B1s :=    0.000000000000E+00 ;
383ACBYHS4.R5B1  := (   0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
384ACBCH6.L5B1x  :=    0.000000000000E+00 ;
385ACBCH6.L5B1s  :=    0.000000000000E+00 ;
386ACBCH6.L5B1   := (   0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
387ACBCH5.R5B1x  :=    0.000000000000E+00 ;
388ACBCH5.R5B1s  :=    0.000000000000E+00 ;
389ACBCH5.R5B1   := (   0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
390
391 !Beam2
392ACBRDV4.L5B2x :=   -0.925984965535E-04 ;
393ACBRDV4.L5B2s :=    0.160403583351E-04 ;
394ACBRDV4.L5B2  := (  -0.925984965535E-04 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.160403583351E-04 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
395ACBRDV4.R5B2x :=    0.140949525767E-03 ;
396ACBRDV4.R5B2s :=    0.726944671776E-05 ;
397ACBRDV4.R5B2  := (   0.140949525767E-03 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.726944671776E-05 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
398ACBYVS4.L5B2x :=    0.000000000000E+00 ;
399ACBYVS4.L5B2s :=    0.000000000000E+00 ;
400ACBYVS4.L5B2  := (   0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
401ACBYVS4.R5B2x :=    0.000000000000E+00 ;
402ACBYVS4.R5B2s :=    0.000000000000E+00 ;
403ACBYVS4.R5B2  := (   0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
404ACBCV6.L5B2x  :=    0.000000000000E+00 ;
405ACBCV6.L5B2s  :=    0.000000000000E+00 ;
406ACBCV6.L5B2   := (   0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
407ACBCV5.R5B2x  :=    0.000000000000E+00 ;
408ACBCV5.R5B2s  :=    0.000000000000E+00 ;
409ACBCV5.R5B2   := (   0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_sep5 ;
410ACBRDH4.L5B2x :=   -0.144680651669E-03 ;
411ACBRDH4.L5B2s :=    0.731863861174E-05 ;
412ACBRDH4.L5B2  := (  -0.144680651669E-03 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.731863861174E-05 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
413ACBRDH4.R5B2x :=    0.950370063537E-04 ;
414ACBRDH4.R5B2s :=    0.163240317233E-04 ;
415ACBRDH4.R5B2  := (   0.950370063537E-04 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.163240317233E-04 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
416ACBYHS4.L5B2x :=    0.000000000000E+00 ;
417ACBYHS4.L5B2s :=    0.000000000000E+00 ;
418ACBYHS4.L5B2  := (   0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
419ACBYHS4.R5B2x :=    0.000000000000E+00 ;
420ACBYHS4.R5B2s :=    0.000000000000E+00 ;
421ACBYHS4.R5B2  := (   0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
422ACBCH5.L5B2x  :=    0.000000000000E+00 ;
423ACBCH5.L5B2s  :=    0.000000000000E+00 ;
424ACBCH5.L5B2   := (   0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
425ACBCH6.R5B2x  :=    0.000000000000E+00 ;
426ACBCH6.R5B2s  :=    0.000000000000E+00 ;
427ACBCH6.R5B2   := (   0.000000000000E+00 )*cos(phi_IR5*twopi/360.)*on_x5 +(  0.000000000000E+00 )*sin(phi_IR5*twopi/360.)*on_sep5 ;
428
429 !***CRAB CAVITIES in IR5***
430AHCRAB_L5B1 :=    0.142745744824E-05 ;
431AHCRAB_R5B1 :=    0.179935934162E-05 ;
432AHCRAB_L5B2 :=    0.179944263557E-05 ;
433AHCRAB_R5B2 :=    0.142745868714E-05 ;
434AVCRAB_L5B1 :=    0.165061933964E-05 ;
435AVCRAB_R5B1 :=    0.130969685487E-05 ;
436AVCRAB_L5B2 :=    0.130969675189E-05 ;
437AVCRAB_R5B2 :=    0.165061932374E-05 ;
438
439 !***IR2 Optics***
440KQX.L2      :=    0.950981581300E-02 ;
441KTQX1.L2    :=    0.000000000000E+00 ;
442KTQX2.L2    :=    0.000000000000E+00 ;
443KQX.R2      :=             -KQX.L2   ;
444KTQX1.R2    :=             -KTQX1.L2 ;
445KTQX2.R2    :=             -KTQX2.L2 ;
446
447 !Beam1
448KQ4.L2B1    :=   -0.549274522900E-02 ;
449KQ4.R2B1    :=    0.492308831500E-02 ;
450KQ5.L2B1    :=    0.482678438300E-02 ;
451KQ5.R2B1    :=   -0.474422267900E-02 ;
452KQ6.L2B1    :=   -0.429969717816E-02 ;
453KQ6.R2B1    :=    0.437263586291E-02 ;
454KQ7.L2B1    :=    0.633654543117E-02 ;
455KQ7.R2B1    :=   -0.680376255392E-02 ;
456KQ8.L2B1    :=   -0.407804155460E-02 ;
457KQ8.R2B1    :=    0.596605708883E-02 ;
458KQ9.L2B1    :=    0.614650030990E-02 ;
459KQ9.R2B1    :=   -0.616729653942E-02 ;
460KQ10.L2B1   :=   -0.588385405284E-02 ;
461KQ10.R2B1   :=    0.728879072779E-02 ;
462KQTL11.L2B1 :=    0.500647083262E-03 ;
463KQTL11.R2B1 :=   -0.182501254177E-03 ;
464KQT12.L2B1  :=   -0.472278976791E-03 ;
465KQT12.R2B1  :=   -0.256520546030E-02 ;
466KQT13.L2B1  :=   -0.751609738151E-03 ;
467KQT13.R2B1  :=   -0.264811550976E-02 ;
468
469 !Beam2
470KQ4.L2B2    :=    0.518632344160E-02 ;
471KQ4.R2B2    :=   -0.537346244860E-02 ;
472KQ5.L2B2    :=   -0.422506183572E-02 ;
473KQ5.R2B2    :=    0.440860036690E-02 ;
474KQ6.L2B2    :=    0.420229878776E-02 ;
475KQ6.R2B2    :=   -0.423242149737E-02 ;
476KQ7.L2B2    :=   -0.629389409468E-02 ;
477KQ7.R2B2    :=    0.611168682297E-02 ;
478KQ8.L2B2    :=    0.626587251258E-02 ;
479KQ8.R2B2    :=   -0.429438231215E-02 ;
480KQ9.L2B2    :=   -0.726405267555E-02 ;
481KQ9.R2B2    :=    0.659484138630E-02 ;
482KQ10.L2B2   :=    0.736063967783E-02 ;
483KQ10.R2B2   :=   -0.600379870228E-02 ;
484KQTL11.L2B2 :=   -0.153267889695E-02 ;
485KQTL11.R2B2 :=    0.395058780965E-03 ;
486KQT12.L2B2  :=   -0.245113883427E-02 ;
487KQT12.R2B2  :=    0.268250005715E-03 ;
488KQT13.L2B2  :=   -0.113201008732E-02 ;
489KQT13.R2B2  :=    0.152985440584E-02 ;
490
491 !***IR2 X-scheme***
492abxwt.l2      := -0.0000772587268993839836*on_alice ;
493abwmd.l2      := +0.0001472587268993839840*on_alice ;
494abaw.r2       := -0.0001335474860334838000*on_alice ;
495abxwt.r2      := +0.0000635474860334838004*on_alice ;
496ACBXV1.L2     :=    0.100000000000E-05   *on_x2;
497ACBXV1.R2     :=   -0.100000000000E-05   *on_x2;
498ACBXH1.L2     :=    0.180000000000E-04 *on_sep2;
499ACBXH1.R2     :=    0.180000000000E-04 *on_sep2;
500ACBXV2.L2     :=    0.100000000000E-05   *on_x2;
501ACBXV2.R2     :=   -0.100000000000E-05   *on_x2;
502ACBXH2.L2     :=    0.180000000000E-04 *on_sep2;
503ACBXH2.R2     :=    0.180000000000E-04 *on_sep2;
504ACBXV3.L2     :=    0.100000000000E-05   *on_x2;
505ACBXV3.R2     :=   -0.100000000000E-05   *on_x2;
506ACBXH3.L2     :=    0.180000000000E-04 *on_sep2;
507ACBXH3.R2     :=    0.180000000000E-04 *on_sep2;
508
509 !Beam1
510ACBYVS4.L2B1  :=   -0.612347392142E-04   *on_x2;
511ACBYVS4.R2B1  :=   -0.463653659358E-05   *on_x2;
512ACBYVS5.L2B1  :=   -0.539979414030E-05   *on_x2;
513ACBCVS5.R2B1  :=    0.441296517214E-04   *on_x2;
514ACBYHS4.L2B1  :=    0.355628134709E-04 *on_sep2;
515ACBYHS4.R2B1  :=    0.139504413495E-04 *on_sep2;
516ACBYHS5.L2B1  :=   -0.881939005548E-05 *on_sep2;
517ACBCHS5.R2B1  :=    0.140179083869E-04 *on_sep2;
518
519 !Beam2
520ACBYVS4.L2B2  :=    0.668406331840E-05   *on_x2;
521ACBYVS4.R2B2  :=   -0.586174239443E-04   *on_x2;
522ACBYVS5.L2B2  :=    0.350060655965E-04   *on_x2;
523ACBCVS5.R2B2  :=   -0.823044632363E-05   *on_x2;
524ACBYHS4.L2B2  :=   -0.187052965041E-04 *on_sep2;
525ACBYHS4.R2B2  :=   -0.385494807069E-04 *on_sep2;
526ACBYHS5.L2B2  :=   -0.939874817918E-05 *on_sep2;
527ACBCHS5.R2B2  :=    0.108113100294E-04 *on_sep2;
528
529 !***IR8 Optics***
530KQX.L8      :=    0.950981581300E-02 ;
531KTQX1.L8    :=    0.000000000000E+00 ;
532KTQX2.L8    :=    0.000000000000E+00 ;
533KQX.R8      :=             -KQX.L8   ;
534KTQX1.R8    :=             -KTQX1.L8 ;
535KTQX2.R8    :=             -KTQX2.L8 ;
536
537 !Beam1
538KQ4.L8B1    :=   -0.427350821506E-02 ;
539KQ4.R8B1    :=    0.499189555719E-02 ;
540KQ5.L8B1    :=    0.472789228207E-02 ;
541KQ5.R8B1    :=   -0.435240422518E-02 ;
542KQ6.L8B1    :=   -0.437227165210E-02 ;
543KQ6.R8B1    :=    0.358383636403E-02 ;
544KQ7.L8B1    :=    0.625974319567E-02 ;
545KQ7.R8B1    :=   -0.585440180930E-02 ;
546KQ8.L8B1    :=   -0.532654153968E-02 ;
547KQ8.R8B1    :=    0.646018481885E-02 ;
548KQ9.L8B1    :=    0.637864703540E-02 ;
549KQ9.R8B1    :=   -0.673218256800E-02 ;
550KQ10.L8B1   :=   -0.672450271632E-02 ;
551KQ10.R8B1   :=    0.731181404359E-02 ;
552KQTL11.L8B1 :=    0.456903644681E-03 ;
553KQTL11.R8B1 :=    0.424234827407E-03 ;
554KQT12.L8B1  :=    0.281847026392E-02 ;
555KQT12.R8B1  :=   -0.330683693368E-02 ;
556KQT13.L8B1  :=   -0.219887846628E-02 ;
557KQT13.R8B1  :=   -0.841660235919E-03 ;
558
559 !Beam2
560KQ4.L8B2    :=    0.467704586700E-02 ;
561KQ4.R8B2    :=   -0.447368899600E-02 ;
562KQ5.L8B2    :=   -0.565604833600E-02 ;
563KQ5.R8B2    :=    0.425682473400E-02 ;
564KQ6.L8B2    :=    0.465394681130E-02 ;
565KQ6.R8B2    :=   -0.343635834070E-02 ;
566KQ7.L8B2    :=   -0.814781333653E-02 ;
567KQ7.R8B2    :=    0.567399813602E-02 ;
568KQ8.L8B2    :=    0.667358781916E-02 ;
569KQ8.R8B2    :=   -0.464273379570E-02 ;
570KQ9.L8B2    :=   -0.657119467370E-02 ;
571KQ9.R8B2    :=    0.672638594397E-02 ;
572KQ10.L8B2   :=    0.725107776331E-02 ;
573KQ10.R8B2   :=   -0.579438836644E-02 ;
574KQTL11.L8B2 :=    0.191274737931E-02 ;
575KQTL11.R8B2 :=    0.245560714107E-03 ;
576KQT12.L8B2  :=   -0.419683681941E-02 ;
577KQT12.R8B2  :=    0.407880070473E-02 ;
578KQT13.L8B2  :=    0.468967048416E-02 ;
579KQT13.R8B2  :=    0.282474243422E-02 ;
580
581 !***IR8 X-scheme***
582abxws.l8      := -0.000045681598453109894*on_lhcb   ;
583abxwh.l8      := +0.000180681598453109894*on_lhcb   ;
584ablw.r8       := -0.000180681598453109894*on_lhcb   ;
585abxws.r8      := +0.000045681598453109894*on_lhcb   ;
586ACBXV1.L8     :=   -0.180000000000E-04 *on_sep8;
587ACBXV1.R8     :=   -0.180000000000E-04 *on_sep8;
588ACBXH1.L8     :=   -0.100000000000E-05   *on_x8;
589ACBXH1.R8     :=    0.100000000000E-05   *on_x8;
590ACBXV2.L8     :=   -0.180000000000E-04 *on_sep8;
591ACBXV2.R8     :=   -0.180000000000E-04 *on_sep8;
592ACBXH2.L8     :=   -0.100000000000E-05   *on_x8;
593ACBXH2.R8     :=    0.100000000000E-05   *on_x8;
594ACBXV3.L8     :=   -0.180000000000E-04 *on_sep8;
595ACBXV3.R8     :=   -0.180000000000E-04 *on_sep8;
596ACBXH3.L8     :=   -0.100000000000E-05   *on_x8;
597ACBXH3.R8     :=    0.100000000000E-05   *on_x8;
598
599 !Beam1
600ACBYVS4.L8B1  :=   -0.165447988881E-04 *on_sep8;
601ACBYVS4.R8B1  :=   -0.348419612769E-04 *on_sep8;
602ACBCVS5.L8B1  :=   -0.892181941063E-05 *on_sep8;
603ACBYVS5.R8B1  :=    0.876979821373E-05 *on_sep8;
604ACBYHS4.L8B1  :=    0.103191487933E-04   *on_x8;
605ACBYHS4.R8B1  :=   -0.605553228482E-04   *on_x8;
606ACBWH5.L8B1   :=    0.000000000000E+00   *on_x8;
607ACBCH5.L8B1   :=    0.365388838068E-04   *on_x8;
608ACBCHS5.L8B1  :=    0.000000000000E+00   *on_x8;
609ACBYHS5.R8B1  :=   -0.535669851645E-05   *on_x8;
610
611 !Beam2
612ACBYVS4.L8B2  :=    0.342750568662E-04 *on_sep8;
613ACBYVS4.R8B2  :=    0.170309134515E-04 *on_sep8;
614ACBCVS5.L8B2  :=   -0.934900091441E-05 *on_sep8;
615ACBYVS5.R8B2  :=    0.911480532557E-05 *on_sep8;
616ACBYHS4.L8B2  :=   -0.600850539171E-04   *on_x8;
617ACBYHS4.R8B2  :=    0.110759645213E-04   *on_x8;
618ACBCHS5.L8B2  :=   -0.509612730141E-05   *on_x8;
619ACBYHS5.R8B2  :=    0.357625009311E-04   *on_x8;
620
621 !***IR4 Optics***
622
623 !Beam1
624KQ5.L4B1    :=    0.454615520024E-02 ;
625KQ5.R4B1    :=   -0.452825298792E-02 ;
626KQ6.L4B1    :=   -0.515621612566E-02 ;
627KQ6.R4B1    :=    0.594766777809E-02 ;
628KQ7.L4B1    :=    0.712422630636E-02 ;
629KQ7.R4B1    :=   -0.820436943098E-02 ;
630KQ8.L4B1    :=   -0.477710314326E-02 ;
631KQ8.R4B1    :=    0.777636194271E-02 ;
632KQ9.L4B1    :=    0.663381063085E-02 ;
633KQ9.R4B1    :=   -0.641363383353E-02 ;
634KQ10.L4B1   :=   -0.546415080420E-02 ;
635KQ10.R4B1   :=    0.710099691185E-02 ;
636KQTL11.L4B1 :=    0.173438343874E-03 ;
637KQTL11.R4B1 :=    0.133967664382E-02 ;
638KQT12.L4B1  :=    0.423772652157E-02 ;
639KQT12.R4B1  :=   -0.225545300671E-02 ;
640KQT13.L4B1  :=    0.156767718398E-02 ;
641KQT13.R4B1  :=   -0.100589337323E-02 ;
642
643 !Beam2
644KQ5.L4B2    :=   -0.430261936066E-02 ;
645KQ5.R4B2    :=    0.462221667443E-02 ;
646KQ6.L4B2    :=    0.590365700684E-02 ;
647KQ6.R4B2    :=   -0.614611154539E-02 ;
648KQ7.L4B2    :=   -0.494445342859E-02 ;
649KQ7.R4B2    :=    0.656224311800E-02 ;
650KQ8.L4B2    :=    0.853033954196E-02 ;
651KQ8.R4B2    :=   -0.722494712508E-02 ;
652KQ9.L4B2    :=   -0.510576498201E-02 ;
653KQ9.R4B2    :=    0.635059974042E-02 ;
654KQ10.L4B2   :=    0.713903818178E-02 ;
655KQ10.R4B2   :=   -0.568054779017E-02 ;
656KQTL11.L4B2 :=    0.165729540860E-02 ;
657KQTL11.R4B2 :=    0.601787614004E-03 ;
658KQT12.L4B2  :=    0.472898558894E-03 ;
659KQT12.R4B2  :=    0.184824534332E-02 ;
660KQT13.L4B2  :=    0.227699631943E-02 ;
661KQT13.R4B2  :=   -0.966364442354E-03 ;
662
663 !***IR6 Optics***
664
665 !Beam1
666KQ4.L6B1    :=   -0.488141473400E-02 ;
667KQ4.R6B1    :=    0.484358029001E-02 ;
668KQ5.L6B1    :=    0.459627629226E-02 ;
669KQ5.R6B1    :=   -0.463900194907E-02 ;
670KQ8.L6B1    :=   -0.509798986999E-02 ;
671KQ8.R6B1    :=    0.522447182454E-02 ;
672KQ9.L6B1    :=    0.690581645834E-02 ;
673KQ9.R6B1    :=   -0.698600476535E-02 ;
674KQ10.L6B1   :=   -0.752508471321E-02 ;
675KQ10.R6B1   :=    0.734561545041E-02 ;
676KQTL11.L6B1 :=    0.165329116696E-02 ;
677KQTL11.R6B1 :=   -0.152955298108E-02 ;
678KQT12.L6B1  :=   -0.107250129919E-02 ;
679KQT12.R6B1  :=   -0.279859256601E-02 ;
680KQT13.L6B1  :=    0.929939943858E-03 ;
681KQT13.R6B1  :=    0.831146398174E-03 ;
682
683 !Beam2
684KQ4.L6B2    :=    0.485592666642E-02 ;
685KQ4.R6B2    :=   -0.483383773000E-02 ;
686KQ5.L6B2    :=   -0.462861485335E-02 ;
687KQ5.R6B2    :=    0.457878482020E-02 ;
688KQ8.L6B2    :=    0.517171082135E-02 ;
689KQ8.R6B2    :=   -0.512705767395E-02 ;
690KQ9.L6B2    :=   -0.693573443251E-02 ;
691KQ9.R6B2    :=    0.695270128530E-02 ;
692KQ10.L6B2   :=    0.726696009072E-02 ;
693KQ10.R6B2   :=   -0.763920330182E-02 ;
694KQTL11.L6B2 :=   -0.145673123971E-02 ;
695KQTL11.R6B2 :=    0.172825965895E-02 ;
696KQT12.L6B2  :=   -0.165462839194E-02 ;
697KQT12.R6B2  :=   -0.156582135447E-02 ;
698KQT13.L6B2  :=    0.102721824077E-02 ;
699KQT13.R6B2  :=    0.921554655061E-03 ;
700
701 !***IR3 Optics***
702KQ4.LR3     :=    0.124128400000E-02 ;
703KQT4.L3     :=    0.688713000000E-03 ;
704KQT4.R3     :=    0.688713000000E-03 ;
705KQ5.LR3     :=   -0.130392400000E-02 ;
706KQT5.L3     :=    0.972084000000E-03 ;
707KQT5.R3     :=    0.972084000000E-03 ;
708
709 !Beam1
710KQ6.L3B1    :=    0.270233351175E-02 ;
711KQ6.R3B1    :=   -0.248064676460E-02 ;
712KQTL7.L3B1  :=   -0.256066610427E-02 ;
713KQTL7.R3B1  :=    0.108262342124E-02 ;
714KQTL8.L3B1  :=    0.306586592810E-03 ;
715KQTL8.R3B1  :=    0.246112103641E-02 ;
716KQTL9.L3B1  :=   -0.415032866762E-02 ;
717KQTL9.R3B1  :=    0.383599625932E-04 ;
718KQTL10.L3B1 :=    0.993305324054E-03 ;
719KQTL10.R3B1 :=    0.275859719082E-02 ;
720KQTL11.L3B1 :=    0.945429305635E-03 ;
721KQTL11.R3B1 :=   -0.340069629590E-02 ;
722KQT12.L3B1  :=    0.348601034713E-02 ;
723KQT12.R3B1  :=    0.388449664492E-02 ;
724KQT13.L3B1  :=   -0.348944216540E-03 ;
725KQT13.R3B1  :=   -0.383789748912E-02 ;
726
727 !Beam2
728KQ6.L3B2    :=   -0.248023366784E-02 ;
729KQ6.R3B2    :=    0.274152604236E-02 ;
730KQTL7.L3B2  :=    0.714656379619E-03 ;
731KQTL7.R3B2  :=   -0.409658321506E-02 ;
732KQTL8.L3B2  :=    0.237821715929E-02 ;
733KQTL8.R3B2  :=    0.381313882159E-03 ;
734KQTL9.L3B2  :=    0.505005804909E-04 ;
735KQTL9.R3B2  :=   -0.365284536348E-02 ;
736KQTL10.L3B2 :=    0.235441460182E-02 ;
737KQTL10.R3B2 :=    0.107229862881E-02 ;
738KQTL11.L3B2 :=   -0.334471025741E-02 ;
739KQTL11.R3B2 :=    0.250455161655E-02 ;
740KQT12.L3B2  :=    0.168352729825E-02 ;
741KQT12.R3B2  :=    0.359724898180E-02 ;
742KQT13.L3B2  :=   -0.484419961233E-02 ;
743KQT13.R3B2  :=   -0.567052180458E-03 ;
744
745 !***IR7 Optics***
746KQ4.LR7     :=    0.131382724100E-02 ;
747KQT4.L7     :=    0.331689344000E-03 ;
748KQT4.R7     :=    0.331689344000E-03 ;
749KQ5.LR7     :=   -0.133553657300E-02 ;
750KQT5.L7     :=   -0.326577060000E-04 ;
751KQT5.R7     :=   -0.326577060000E-04 ;
752
753 !Beam1
754KQ6.L7B1    :=    0.328525332571E-02 ;
755KQ6.R7B1    :=   -0.299863007737E-02 ;
756KQTL7.L7B1  :=    0.127440846165E-02 ;
757KQTL7.R7B1  :=    0.445831706681E-02 ;
758KQTL8.L7B1  :=   -0.104372892255E-02 ;
759KQTL8.R7B1  :=    0.969916899352E-03 ;
760KQTL9.L7B1  :=    0.800168964160E-04 ;
761KQTL9.R7B1  :=    0.352024044404E-02 ;
762KQTL10.L7B1 :=    0.448440346055E-02 ;
763KQTL10.R7B1 :=   -0.800003141652E-03 ;
764KQTL11.L7B1 :=    0.161771545327E-02 ;
765KQTL11.R7B1 :=   -0.196792942022E-03 ;
766KQT12.L7B1  :=    0.162722364921E-02 ;
767KQT12.R7B1  :=    0.143991273298E-03 ;
768KQT13.L7B1  :=    0.539148502270E-03 ;
769KQT13.R7B1  :=    0.806376355813E-03 ;
770
771 !Beam2
772KQ6.L7B2    :=   -0.286994613439E-02 ;
773KQ6.R7B2    :=    0.330775056994E-02 ;
774KQTL7.L7B2  :=    0.365784616868E-02 ;
775KQTL7.R7B2  :=    0.150694484776E-03 ;
776KQTL8.L7B2  :=    0.108007495349E-02 ;
777KQTL8.R7B2  :=    0.709710215676E-03 ;
778KQTL9.L7B2  :=    0.375461504531E-02 ;
779KQTL9.R7B2  :=   -0.365907484542E-03 ;
780KQTL10.L7B2 :=    0.370527986339E-03 ;
781KQTL10.R7B2 :=    0.461575596172E-02 ;
782KQTL11.L7B2 :=    0.195370963807E-03 ;
783KQTL11.R7B2 :=    0.836992953369E-03 ;
784KQT12.L7B2  :=    0.191830066696E-02 ;
785KQT12.R7B2  :=   -0.155788716254E-02 ;
786KQT13.L7B2  :=   -0.621053646413E-03 ;
787KQT13.R7B2  :=   -0.699351795531E-03 ;
788
789 !***Arc Optics***
790 !QF/QD
791KQF.A81     :=    0.870376824720E-02 ;
792KQF.A12     :=    0.870376824720E-02 ;
793KQF.A45     :=    0.870376824720E-02 ;
794KQF.A56     :=    0.870376824720E-02 ;
795KQD.A81     :=   -0.870522784641E-02 ;
796KQD.A12     :=   -0.870522784641E-02 ;
797KQD.A45     :=   -0.870522784641E-02 ;
798KQD.A56     :=   -0.870522784641E-02 ;
799KQF.A78     :=    0.876396353332E-02 ;
800KQF.A23     :=    0.876396353332E-02 ;
801KQF.A34     :=    0.876396353332E-02 ;
802KQF.A67     :=    0.876396353332E-02 ;
803KQD.A78     :=   -0.863871054670E-02 ;
804KQD.A23     :=   -0.863871054670E-02 ;
805KQD.A34     :=   -0.863871054670E-02 ;
806KQD.A67     :=   -0.863871054670E-02 ;
807
808 !QTF/QTD BEAM1
809KQTF.B1     :=    0.000000000000E+00 ;
810KQTD.B1     :=    0.000000000000E+00 ;
811KQTF.A81B1  :=    0.000000000000E+00 + KQTF.B1;
812KQTF.A12B1  :=    0.000000000000E+00 + KQTF.B1;
813KQTF.A45B1  :=    0.000000000000E+00 + KQTF.B1;
814KQTF.A56B1  :=    0.000000000000E+00 + KQTF.B1;
815KQTD.A81B1  :=    0.000000000000E+00 + KQTD.B1;
816KQTD.A12B1  :=    0.000000000000E+00 + KQTD.B1;
817KQTD.A45B1  :=    0.000000000000E+00 + KQTD.B1;
818KQTD.A56B1  :=    0.000000000000E+00 + KQTD.B1;
819KQTF.A78B1  :=    0.000000000000E+00 + KQTF.B1;
820KQTF.A23B1  :=    0.000000000000E+00 + KQTF.B1;
821KQTF.A34B1  :=    0.000000000000E+00 + KQTF.B1;
822KQTF.A67B1  :=    0.000000000000E+00 + KQTF.B1;
823KQTD.A78B1  :=    0.000000000000E+00 + KQTD.B1;
824KQTD.A23B1  :=    0.000000000000E+00 + KQTD.B1;
825KQTD.A34B1  :=    0.000000000000E+00 + KQTD.B1;
826KQTD.A67B1  :=    0.000000000000E+00 + KQTD.B1;
827
828 !QTF/QTD BEAM2
829KQTF.B2     :=    0.000000000000E+00 ;
830KQTD.B2     :=    0.000000000000E+00 ;
831KQTF.A81B2  :=    0.000000000000E+00 + KQTF.B2;
832KQTF.A12B2  :=    0.000000000000E+00 + KQTF.B2;
833KQTF.A45B2  :=    0.000000000000E+00 + KQTF.B2;
834KQTF.A56B2  :=    0.000000000000E+00 + KQTF.B2;
835KQTD.A81B2  :=    0.000000000000E+00 + KQTD.B2;
836KQTD.A12B2  :=    0.000000000000E+00 + KQTD.B2;
837KQTD.A45B2  :=    0.000000000000E+00 + KQTD.B2;
838KQTD.A56B2  :=    0.000000000000E+00 + KQTD.B2;
839KQTF.A78B2  :=    0.000000000000E+00 + KQTF.B2;
840KQTF.A23B2  :=    0.000000000000E+00 + KQTF.B2;
841KQTF.A34B2  :=    0.000000000000E+00 + KQTF.B2;
842KQTF.A67B2  :=    0.000000000000E+00 + KQTF.B2;
843KQTD.A78B2  :=    0.000000000000E+00 + KQTD.B2;
844KQTD.A23B2  :=    0.000000000000E+00 + KQTD.B2;
845KQTD.A34B2  :=    0.000000000000E+00 + KQTD.B2;
846KQTD.A67B2  :=    0.000000000000E+00 + KQTD.B2;
847
848 !Sextupole BEAM1
849KSF.B1      :=    0.000000000000E+00 ;
850KSD.B1      :=    0.000000000000E+00 ;
851
852 !Strong sextupoles of sectors 81/12/45/56
853KSF1.A81B1  :=    0.619739744191E-01   +KSF.B1;
854KSF1.A12B1  :=    0.619739744191E-01   +KSF.B1;
855KSF1.A45B1  :=    0.619739744191E-01   +KSF.B1;
856KSF1.A56B1  :=    0.619739744191E-01   +KSF.B1;
857KSD2.A81B1  :=   -0.102482038940E+00   +KSD.B1;
858KSD2.A12B1  :=   -0.102482038940E+00   +KSD.B1;
859KSD2.A45B1  :=   -0.102482038940E+00   +KSD.B1;
860KSD2.A56B1  :=   -0.102482038940E+00   +KSD.B1;
861
862 !Weak sextupoles of sectors 81/12/45/56
863KSF2.A81B1  :=    0.619739744191E-01   +KSF.B1;
864KSF2.A12B1  :=    0.619739744191E-01   +KSF.B1;
865KSF2.A45B1  :=    0.619739744191E-01   +KSF.B1;
866KSF2.A56B1  :=    0.619739744191E-01   +KSF.B1;
867KSD1.A81B1  :=   -0.102482038940E+00   +KSD.B1;
868KSD1.A12B1  :=   -0.102482038940E+00   +KSD.B1;
869KSD1.A45B1  :=   -0.102482038940E+00   +KSD.B1;
870KSD1.A56B1  :=   -0.102482038940E+00   +KSD.B1;
871
872 !Weak sextupoles of sectors 78/23/34/67
873KSF1.A78B1  :=    0.620898075797E-01   +KSF.B1;
874KSF2.A78B1  :=    0.620898075797E-01   +KSF.B1;
875KSF1.A23B1  :=    0.620898075797E-01   +KSF.B1;
876KSF2.A23B1  :=    0.620898075797E-01   +KSF.B1;
877KSF1.A34B1  :=    0.620898075797E-01   +KSF.B1;
878KSF2.A34B1  :=    0.620898075797E-01   +KSF.B1;
879KSF1.A67B1  :=    0.620898075797E-01   +KSF.B1;
880KSF2.A67B1  :=    0.620898075797E-01   +KSF.B1;
881KSD1.A78B1  :=   -0.102593182713E+00   +KSD.B1;
882KSD2.A78B1  :=   -0.102593182713E+00   +KSD.B1;
883KSD1.A23B1  :=   -0.102593182713E+00   +KSD.B1;
884KSD2.A23B1  :=   -0.102593182713E+00   +KSD.B1;
885KSD1.A34B1  :=   -0.102593182713E+00   +KSD.B1;
886KSD2.A34B1  :=   -0.102593182713E+00   +KSD.B1;
887KSD1.A67B1  :=   -0.102593182713E+00   +KSD.B1;
888KSD2.A67B1  :=   -0.102593182713E+00   +KSD.B1;
889
890 !Sextupole BEAM2
891KSF.B2      :=    0.000000000000E+00 ;
892KSD.B2      :=    0.000000000000E+00 ;
893
894 !Strong sextupoles of sectors 81/12/45/56
895KSF2.A81B2  :=    0.620606197562E-01   +KSF.B2;
896KSF2.A12B2  :=    0.620606197562E-01   +KSF.B2;
897KSF2.A45B2  :=    0.620606197562E-01   +KSF.B2;
898KSF2.A56B2  :=    0.620606197562E-01   +KSF.B2;
899KSD1.A81B2  :=   -0.102852001542E+00   +KSD.B2;
900KSD1.A12B2  :=   -0.102852001542E+00   +KSD.B2;
901KSD1.A45B2  :=   -0.102852001542E+00   +KSD.B2;
902KSD1.A56B2  :=   -0.102852001542E+00   +KSD.B2;
903
904 !Weak sextupoles of sectors 81/12/45/56
905KSF1.A81B2  :=    0.620606197562E-01   +KSF.B2;
906KSF1.A12B2  :=    0.620606197562E-01   +KSF.B2;
907KSF1.A45B2  :=    0.620606197562E-01   +KSF.B2;
908KSF1.A56B2  :=    0.620606197562E-01   +KSF.B2;
909KSD2.A81B2  :=   -0.102852001542E+00   +KSD.B2;
910KSD2.A12B2  :=   -0.102852001542E+00   +KSD.B2;
911KSD2.A45B2  :=   -0.102852001542E+00   +KSD.B2;
912KSD2.A56B2  :=   -0.102852001542E+00   +KSD.B2;
913
914 !Weak sextupoles of sectors 78/23/34/67
915KSF1.A78B2  :=    0.621101889900E-01   +KSF.B2;
916KSF2.A78B2  :=    0.621101889900E-01   +KSF.B2;
917KSF1.A23B2  :=    0.621101889900E-01   +KSF.B2;
918KSF2.A23B2  :=    0.621101889900E-01   +KSF.B2;
919KSF1.A34B2  :=    0.621101889900E-01   +KSF.B2;
920KSF2.A34B2  :=    0.621101889900E-01   +KSF.B2;
921KSF1.A67B2  :=    0.621101889900E-01   +KSF.B2;
922KSF2.A67B2  :=    0.621101889900E-01   +KSF.B2;
923KSD1.A78B2  :=   -0.102897268450E+00   +KSD.B2;
924KSD2.A78B2  :=   -0.102897268450E+00   +KSD.B2;
925KSD1.A23B2  :=   -0.102897268450E+00   +KSD.B2;
926KSD2.A23B2  :=   -0.102897268450E+00   +KSD.B2;
927KSD1.A34B2  :=   -0.102897268450E+00   +KSD.B2;
928KSD2.A34B2  :=   -0.102897268450E+00   +KSD.B2;
929KSD1.A67B2  :=   -0.102897268450E+00   +KSD.B2;
930KSD2.A67B2  :=   -0.102897268450E+00   +KSD.B2;
931
932 !OF/OD BEAM1
933KOF.B1      :=    0.000000000000E+00 ;
934KOD.B1      :=    0.000000000000E+00 ;
935KOF.A12B1   :=    0.000000000000E+00 *ON_QPP + KOF.B1;
936KOF.A23B1   :=    0.000000000000E+00 *ON_QPP + KOF.B1;
937KOF.A34B1   :=    0.000000000000E+00 *ON_QPP + KOF.B1;
938KOF.A45B1   :=    0.000000000000E+00 *ON_QPP + KOF.B1;
939KOF.A56B1   :=    0.000000000000E+00 *ON_QPP + KOF.B1;
940KOF.A67B1   :=    0.000000000000E+00 *ON_QPP + KOF.B1;
941KOF.A78B1   :=    0.000000000000E+00 *ON_QPP + KOF.B1;
942KOF.A81B1   :=    0.000000000000E+00 *ON_QPP + KOF.B1;
943KOD.A12B1   :=    0.000000000000E+00 *ON_QPP + KOD.B1;
944KOD.A23B1   :=    0.000000000000E+00 *ON_QPP + KOD.B1;
945KOD.A34B1   :=    0.000000000000E+00 *ON_QPP + KOD.B1;
946KOD.A45B1   :=    0.000000000000E+00 *ON_QPP + KOD.B1;
947KOD.A56B1   :=    0.000000000000E+00 *ON_QPP + KOD.B1;
948KOD.A67B1   :=    0.000000000000E+00 *ON_QPP + KOD.B1;
949KOD.A78B1   :=    0.000000000000E+00 *ON_QPP + KOD.B1;
950KOD.A81B1   :=    0.000000000000E+00 *ON_QPP + KOD.B1;
951
952 !OF/OD BEAM2
953KOF.B2      :=    0.000000000000E+00 ;
954KOD.B2      :=    0.000000000000E+00 ;
955KOF.A12B2   :=    0.000000000000E+00 *ON_QPP + KOF.B2;
956KOF.A23B2   :=    0.000000000000E+00 *ON_QPP + KOF.B2;
957KOF.A34B2   :=    0.000000000000E+00 *ON_QPP + KOF.B2;
958KOF.A45B2   :=    0.000000000000E+00 *ON_QPP + KOF.B2;
959KOF.A56B2   :=    0.000000000000E+00 *ON_QPP + KOF.B2;
960KOF.A67B2   :=    0.000000000000E+00 *ON_QPP + KOF.B2;
961KOF.A78B2   :=    0.000000000000E+00 *ON_QPP + KOF.B2;
962KOF.A81B2   :=    0.000000000000E+00 *ON_QPP + KOF.B2;
963KOD.A12B2   :=    0.000000000000E+00 *ON_QPP + KOD.B2;
964KOD.A23B2   :=    0.000000000000E+00 *ON_QPP + KOD.B2;
965KOD.A34B2   :=    0.000000000000E+00 *ON_QPP + KOD.B2;
966KOD.A45B2   :=    0.000000000000E+00 *ON_QPP + KOD.B2;
967KOD.A56B2   :=    0.000000000000E+00 *ON_QPP + KOD.B2;
968KOD.A67B2   :=    0.000000000000E+00 *ON_QPP + KOD.B2;
969KOD.A78B2   :=    0.000000000000E+00 *ON_QPP + KOD.B2;
970KOD.A81B2   :=    0.000000000000E+00 *ON_QPP + KOD.B2;
971
972 !! MCB-beam1 for spurious dispersion correction
973
974 !! MCB in sector 81 and 12
975acbh14.r8b1x  :=    0.000000000000E+00 ;
976acbh14.r8b1s  :=    0.000000000000E+00 ;
977acbh14.r8b1  := ((   0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
978acbh16.r8b1x  :=    0.000000000000E+00 ;
979acbh16.r8b1s  :=    0.000000000000E+00 ;
980acbh16.r8b1  := ((   0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
981acbh14.l1b1x  :=    0.000000000000E+00 ;
982acbh14.l1b1s  :=    0.000000000000E+00 ;
983acbh14.l1b1  := ((   0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
984acbh12.l1b1x  :=    0.000000000000E+00 ;
985acbh12.l1b1s  :=    0.000000000000E+00 ;
986acbh12.l1b1  := ((   0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
987acbh13.r1b1x  :=    0.000000000000E+00 ;
988acbh13.r1b1s  :=    0.000000000000E+00 ;
989acbh13.r1b1  := ((   0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
990acbh15.r1b1x  :=    0.000000000000E+00 ;
991acbh15.r1b1s  :=    0.000000000000E+00 ;
992acbh15.r1b1  := ((   0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
993acbh15.l2b1x  :=    0.000000000000E+00 ;
994acbh15.l2b1s  :=    0.000000000000E+00 ;
995acbh15.l2b1  := ((   0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
996acbh13.l2b1x  :=    0.000000000000E+00 ;
997acbh13.l2b1s  :=    0.000000000000E+00 ;
998acbh13.l2b1  := ((   0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
999acbv13.r8b1x  :=    0.000000000000E+00 ;
1000acbv13.r8b1s  :=    0.000000000000E+00 ;
1001acbv13.r8b1  := ((   0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1002acbv15.r8b1x  :=    0.000000000000E+00 ;
1003acbv15.r8b1s  :=    0.000000000000E+00 ;
1004acbv15.r8b1  := ((   0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1005acbv15.l1b1x  :=    0.000000000000E+00 ;
1006acbv15.l1b1s  :=    0.000000000000E+00 ;
1007acbv15.l1b1  := ((   0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1008acbv13.l1b1x  :=    0.000000000000E+00 ;
1009acbv13.l1b1s  :=    0.000000000000E+00 ;
1010acbv13.l1b1  := ((   0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1011acbv12.r1b1x  :=    0.000000000000E+00 ;
1012acbv12.r1b1s  :=    0.000000000000E+00 ;
1013acbv12.r1b1  := ((   0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1014acbv14.r1b1x  :=    0.000000000000E+00 ;
1015acbv14.r1b1s  :=    0.000000000000E+00 ;
1016acbv14.r1b1  := ((   0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1017acbv16.l2b1x  :=    0.000000000000E+00 ;
1018acbv16.l2b1s  :=    0.000000000000E+00 ;
1019acbv16.l2b1  := ((   0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1020acbv14.l2b1x  :=    0.000000000000E+00 ;
1021acbv14.l2b1s  :=    0.000000000000E+00 ;
1022acbv14.l2b1  := ((   0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1023
1024 !! MCB in sector 45 and 56
1025acbh14.r4b1x  :=    0.000000000000E+00 ;
1026acbh14.r4b1s  :=    0.000000000000E+00 ;
1027acbh14.r4b1  := ((   0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1028acbh16.r4b1x  :=    0.000000000000E+00 ;
1029acbh16.r4b1s  :=    0.000000000000E+00 ;
1030acbh16.r4b1  := ((   0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1031acbh14.l5b1x  :=    0.000000000000E+00 ;
1032acbh14.l5b1s  :=    0.000000000000E+00 ;
1033acbh14.l5b1  := ((   0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1034acbh12.l5b1x  :=    0.000000000000E+00 ;
1035acbh12.l5b1s  :=    0.000000000000E+00 ;
1036acbh12.l5b1  := ((   0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1037acbh13.r5b1x  :=    0.000000000000E+00 ;
1038acbh13.r5b1s  :=    0.000000000000E+00 ;
1039acbh13.r5b1  := ((   0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1040acbh15.r5b1x  :=    0.000000000000E+00 ;
1041acbh15.r5b1s  :=    0.000000000000E+00 ;
1042acbh15.r5b1  := ((   0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1043acbh15.l6b1x  :=    0.000000000000E+00 ;
1044acbh15.l6b1s  :=    0.000000000000E+00 ;
1045acbh15.l6b1  := ((   0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1046acbh13.l6b1x  :=    0.000000000000E+00 ;
1047acbh13.l6b1s  :=    0.000000000000E+00 ;
1048acbh13.l6b1  := ((   0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1049acbv13.r4b1x  :=    0.000000000000E+00 ;
1050acbv13.r4b1s  :=    0.000000000000E+00 ;
1051acbv13.r4b1  := ((   0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1052acbv15.r4b1x  :=    0.000000000000E+00 ;
1053acbv15.r4b1s  :=    0.000000000000E+00 ;
1054acbv15.r4b1  := ((   0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1055acbv15.l5b1x  :=    0.000000000000E+00 ;
1056acbv15.l5b1s  :=    0.000000000000E+00 ;
1057acbv15.l5b1  := ((   0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1058acbv13.l5b1x  :=    0.000000000000E+00 ;
1059acbv13.l5b1s  :=    0.000000000000E+00 ;
1060acbv13.l5b1  := ((   0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1061acbv12.r5b1x  :=    0.000000000000E+00 ;
1062acbv12.r5b1s  :=    0.000000000000E+00 ;
1063acbv12.r5b1  := ((   0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1064acbv14.r5b1x  :=    0.000000000000E+00 ;
1065acbv14.r5b1s  :=    0.000000000000E+00 ;
1066acbv14.r5b1  := ((   0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1067acbv16.l6b1x  :=    0.000000000000E+00 ;
1068acbv16.l6b1s  :=    0.000000000000E+00 ;
1069acbv16.l6b1  := ((   0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1070acbv14.l6b1x  :=    0.000000000000E+00 ;
1071acbv14.l6b1s  :=    0.000000000000E+00 ;
1072acbv14.l6b1  := ((   0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_x5+(  0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_sep5)*ON_DISP ;
1073
1074 !! MCB-beam2 for spurious dispersion correction
1075
1076 !! MCB in sector 81 and 12
1077acbh13.r8b2x  :=    0.000000000000E+00 ;
1078acbh13.r8b2s  :=    0.000000000000E+00 ;
1079acbh13.r8b2  := ((   0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1080acbh15.r8b2x  :=    0.000000000000E+00 ;
1081acbh15.r8b2s  :=    0.000000000000E+00 ;
1082acbh15.r8b2  := ((   0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1083acbh15.l1b2x  :=    0.000000000000E+00 ;
1084acbh15.l1b2s  :=    0.000000000000E+00 ;
1085acbh15.l1b2  := ((   0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1086acbh13.l1b2x  :=    0.000000000000E+00 ;
1087acbh13.l1b2s  :=    0.000000000000E+00 ;
1088acbh13.l1b2  := ((   0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1089acbh12.r1b2x  :=    0.000000000000E+00 ;
1090acbh12.r1b2s  :=    0.000000000000E+00 ;
1091acbh12.r1b2  := ((   0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1092acbh14.r1b2x  :=    0.000000000000E+00 ;
1093acbh14.r1b2s  :=    0.000000000000E+00 ;
1094acbh14.r1b2  := ((   0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1095acbh16.l2b2x  :=    0.000000000000E+00 ;
1096acbh16.l2b2s  :=    0.000000000000E+00 ;
1097acbh16.l2b2  := ((   0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1098acbh14.l2b2x  :=    0.000000000000E+00 ;
1099acbh14.l2b2s  :=    0.000000000000E+00 ;
1100acbh14.l2b2  := ((   0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1101acbv14.r8b2x  :=    0.000000000000E+00 ;
1102acbv14.r8b2s  :=    0.000000000000E+00 ;
1103acbv14.r8b2  := ((   0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1104acbv16.r8b2x  :=    0.000000000000E+00 ;
1105acbv16.r8b2s  :=    0.000000000000E+00 ;
1106acbv16.r8b2  := ((   0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1107acbv14.l1b2x  :=    0.000000000000E+00 ;
1108acbv14.l1b2s  :=    0.000000000000E+00 ;
1109acbv14.l1b2  := ((   0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1110acbv12.l1b2x  :=    0.000000000000E+00 ;
1111acbv12.l1b2s  :=    0.000000000000E+00 ;
1112acbv12.l1b2  := ((   0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1113acbv13.r1b2x  :=    0.000000000000E+00 ;
1114acbv13.r1b2s  :=    0.000000000000E+00 ;
1115acbv13.r1b2  := ((   0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1116acbv15.r1b2x  :=    0.000000000000E+00 ;
1117acbv15.r1b2s  :=    0.000000000000E+00 ;
1118acbv15.r1b2  := ((   0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1119acbv15.l2b2x  :=    0.000000000000E+00 ;
1120acbv15.l2b2s  :=    0.000000000000E+00 ;
1121acbv15.l2b2  := ((   0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1122acbv13.l2b2x  :=    0.000000000000E+00 ;
1123acbv13.l2b2s  :=    0.000000000000E+00 ;
1124acbv13.l2b2  := ((   0.000000000000E+00  )*sin(phi_IR1*twopi/360.)*on_x1+(  0.000000000000E+00  )*cos(phi_IR1*twopi/360.)*on_sep1)*ON_DISP ;
1125
1126 !! MCB in sector 45 and 56
1127acbh13.r4b2x  :=    0.000000000000E+00 ;
1128acbh13.r4b2s  :=    0.000000000000E+00 ;
1129acbh13.r4b2  := ((   0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1130acbh15.r4b2x  :=    0.000000000000E+00 ;
1131acbh15.r4b2s  :=    0.000000000000E+00 ;
1132acbh15.r4b2  := ((   0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1133acbh15.l5b2x  :=    0.000000000000E+00 ;
1134acbh15.l5b2s  :=    0.000000000000E+00 ;
1135acbh15.l5b2  := ((   0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1136acbh13.l5b2x  :=    0.000000000000E+00 ;
1137acbh13.l5b2s  :=    0.000000000000E+00 ;
1138acbh13.l5b2  := ((   0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1139acbh12.r5b2x  :=    0.000000000000E+00 ;
1140acbh12.r5b2s  :=    0.000000000000E+00 ;
1141acbh12.r5b2  := ((   0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1142acbh14.r5b2x  :=    0.000000000000E+00 ;
1143acbh14.r5b2s  :=    0.000000000000E+00 ;
1144acbh14.r5b2  := ((   0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1145acbh16.l6b2x  :=    0.000000000000E+00 ;
1146acbh16.l6b2s  :=    0.000000000000E+00 ;
1147acbh16.l6b2  := ((   0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1148acbh14.l6b2x  :=    0.000000000000E+00 ;
1149acbh14.l6b2s  :=    0.000000000000E+00 ;
1150acbh14.l6b2  := ((   0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1151acbv14.r4b2x  :=    0.000000000000E+00 ;
1152acbv14.r4b2s  :=    0.000000000000E+00 ;
1153acbv14.r4b2  := ((   0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1154acbv16.r4b2x  :=    0.000000000000E+00 ;
1155acbv16.r4b2s  :=    0.000000000000E+00 ;
1156acbv16.r4b2  := ((   0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1157acbv14.l5b2x  :=    0.000000000000E+00 ;
1158acbv14.l5b2s  :=    0.000000000000E+00 ;
1159acbv14.l5b2  := ((   0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1160acbv12.l5b2x  :=    0.000000000000E+00 ;
1161acbv12.l5b2s  :=    0.000000000000E+00 ;
1162acbv12.l5b2  := ((   0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1163acbv13.r5b2x  :=    0.000000000000E+00 ;
1164acbv13.r5b2s  :=    0.000000000000E+00 ;
1165acbv13.r5b2  := ((   0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1166acbv15.r5b2x  :=    0.000000000000E+00 ;
1167acbv15.r5b2s  :=    0.000000000000E+00 ;
1168acbv15.r5b2  := ((   0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1169acbv15.l6b2x  :=    0.000000000000E+00 ;
1170acbv15.l6b2s  :=    0.000000000000E+00 ;
1171acbv15.l6b2  := ((   0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1172acbv13.l6b2x  :=    0.000000000000E+00 ;
1173acbv13.l6b2s  :=    0.000000000000E+00 ;
1174acbv13.l6b2  := ((   0.000000000000E+00  )*sin(phi_IR5*twopi/360.)*on_x5+(  0.000000000000E+00  )*cos(phi_IR5*twopi/360.)*on_sep5)*ON_DISP ;
1175
1176 !****OPTICS SUMMARY****
1177
1178 !Tune and Chroma
1179Qxb1 =  62.280000;  Qyb1 =  60.310000;  Qpxb1=   2.000000;  Qpyb1=   2.000000;
1180Qxb2 =  62.280000;  Qyb2 =  60.310000;  Qpxb2=   2.000000;  Qpyb2=   2.000000;
1181
1182 !IR Optics summary (phase, twiss param., dispersion)
1183muxIP1b1= 2.6277000;  muyIP1b1= 2.6370000;  muxIP1b1_L= 1.3512841;  muyIP1b1_L= 1.2679579;  muxIP1b1_R= 1.2764159;  muyIP1b1_R= 1.3690421;  betxIP1b1=    5.500000;  betyIP1b1=    5.500000;  alfxIP1b1=    0.000000;  alfyIP1b1=    0.000000;    dxIP1b1=    0.000000;   dpxIP1b1=    0.000000;
1184muxIP1b2= 2.6277000;  muyIP1b2= 2.6370000;  muxIP1b2_L= 1.2689648;  muyIP1b2_L= 1.3451626;  muxIP1b2_R= 1.3587352;  muyIP1b2_R= 1.2918374;  betxIP1b2=    5.500000;  betyIP1b2=    5.500000;  alfxIP1b2=    0.000000;  alfyIP1b2=    0.000000;    dxIP1b2=    0.000000;   dpxIP1b2=    0.000000;
1185muxIP5b1= 2.6277000;  muyIP5b1= 2.6370000;  muxIP5b1_L= 1.3512841;  muyIP5b1_L= 1.2679579;  muxIP5b1_R= 1.2764159;  muyIP5b1_R= 1.3690421;  betxIP5b1=    5.500000;  betyIP5b1=    5.500000;  alfxIP5b1=    0.000000;  alfyIP5b1=    0.000000;    dxIP5b1=    0.000000;   dpxIP5b1=    0.000000;
1186muxIP5b2= 2.6277000;  muyIP5b2= 2.6370000;  muxIP5b2_L= 1.2689648;  muyIP5b2_L= 1.3451626;  muxIP5b2_R= 1.3587352;  muyIP5b2_R= 1.2918374;  betxIP5b2=    5.500000;  betyIP5b2=    5.500000;  alfxIP5b2=    0.000000;  alfyIP5b2=    0.000000;    dxIP5b2=    0.000000;   dpxIP5b2=    0.000000;
1187muxIP2b1= 3.0200000;  muyIP2b1= 2.9000000;  betxIP2b1=   10.000000;  betyIP2b1=   10.000000;  alfxIP2b1=    0.000000;  alfyIP2b1=    0.000000;    dxIP2b1=    0.000000;   dpxIP2b1=    0.000000;
1188muxIP2b2= 3.0200000;  muyIP2b2= 2.9000000;  betxIP2b2=   10.000000;  betyIP2b2=   10.000000;  alfxIP2b2=    0.000000;  alfyIP2b2=    0.000000;    dxIP2b2=    0.000000;   dpxIP2b2=    0.000000;
1189muxIP8b1= 3.0200000;  muyIP8b1= 2.9000000;  betxIP8b1=   10.000000;  betyIP8b1=   10.000000;  alfxIP8b1=    0.000000;  alfyIP8b1=    0.000000;    dxIP8b1=    0.000000;   dpxIP8b1=    0.000000;
1190muxIP8b2= 3.0200000;  muyIP8b2= 2.9000000;  betxIP8b2=   10.000000;  betyIP8b2=   10.000000;  alfxIP8b2=    0.000000;  alfyIP8b2=    0.000000;    dxIP8b2=    0.000000;   dpxIP8b2=    0.000000;
1191muxIP4b1= 2.1600000;  muyIP4b1= 1.7200000;  betxIP4b1=  172.807960;  betyIP4b1=  230.297901;  alfxIP4b1=    0.580679;  alfyIP4b1=   -0.325498;    dxIP4b1=    0.000000;   dpxIP4b1=    0.000000;
1192muxIP4b2= 2.1600000;  muyIP4b2= 1.7200000;  betxIP4b2=  228.562579;  betyIP4b2=  302.565988;  alfxIP4b2=   -0.537702;  alfyIP4b2=    0.588783;    dxIP4b2=    0.000000;   dpxIP4b2=    0.000000;
1193muxIP6b1= 2.0000000;  muyIP6b1= 2.0300000;  betxIP6b1=  187.297499;  betyIP6b1=  168.122917;  alfxIP6b1=   -0.541994;  alfyIP6b1=    0.605891;    dxIP6b1=    0.140000;   dpxIP6b1=    0.000000;
1194muxIP6b2= 2.0000000;  muyIP6b2= 2.0300000;  betxIP6b2=  187.749224;  betyIP6b2=  178.368556;  alfxIP6b2=    0.551968;  alfyIP6b2=   -0.607183;    dxIP6b2=    0.186000;   dpxIP6b2=   -0.000256;
1195muxIP3b1= 2.2550000;  muyIP3b1= 1.9550000;  betxIP3b1=  121.566844;  betyIP3b1=  218.585060;  alfxIP3b1=    2.295731;  alfyIP3b1=   -2.642890;    dxIP3b1=   -0.510508;   dpxIP3b1=   -0.006525;
1196muxIP3b2= 2.2550000;  muyIP3b2= 1.9550000;  betxIP3b2=  121.567284;  betyIP3b2=  218.584477;  alfxIP3b2=   -2.295728;  alfyIP3b2=    2.642905;    dxIP3b2=   -0.423000;   dpxIP3b2=    0.008312;
1197muxIP7b1= 2.4550000;  muyIP7b1= 1.9700000;  betxIP7b1=  120.813252;  betyIP7b1=  149.430470;  alfxIP7b1=    1.276977;  alfyIP7b1=   -1.385146;    dxIP7b1=   -0.203847;   dpxIP7b1=    0.000000;
1198muxIP7b2= 2.4550000;  muyIP7b2= 1.9700000;  betxIP7b2=  120.813252;  betyIP7b2=  149.430471;  alfxIP7b2=   -1.276977;  alfyIP7b2=    1.385146;    dxIP7b2=   -0.011973;   dpxIP7b2=    0.000000;
1199
1200 !Xscheme summary in IR1, IR2,IR5 and IR8
1201xIP1b1= 0.0020000000;  yIP1b1= 0.0000000000;  pxIP1b1= 0.0000000000;  pyIP1b1= 0.0002450000;
1202xIP1b2=-0.0020000000;  yIP1b2= 0.0000000000;  pxIP1b2= 0.0000000000;  pyIP1b2=-0.0002450000;
1203xIP2b1= 0.0020000000;  yIP2b1= 0.0000000000;  pxIP2b1= 0.0000002919;  pyIP2b1= 0.0002399994;
1204xIP2b2=-0.0020000000;  yIP2b2= 0.0000000000;  pxIP2b2=-0.0000002919;  pyIP2b2=-0.0002399994;
1205xIP5b1= 0.0000000000;  yIP5b1= 0.0020000000;  pxIP5b1= 0.0002450000;  pyIP5b1= 0.0000000000;
1206xIP5b2= 0.0000000000;  yIP5b2=-0.0020000000;  pxIP5b2=-0.0002450000;  pyIP5b2= 0.0000000000;
1207xIP8b1= 0.0000000000;  yIP8b1=-0.0020000000;  pxIP8b1=-0.0003049879;  pyIP8b1=-0.0000018097;
1208xIP8b2= 0.0000000000;  yIP8b2= 0.0020000000;  pxIP8b2= 0.0003049879;  pyIP8b2= 0.0000018097;
1209
1210 !Arc Optics summary
1211muxcell81b1=0.24998135;  muycell81b1=0.24998135;  mux81b1= 5.2179132;  muy81b1= 5.2437668;
1212muxcell45b1=0.24998135;  muycell45b1=0.24998135;  mux45b1= 5.2179132;  muy45b1= 5.2437668;
1213muxcell12b2=0.24998135;  muycell12b2=0.24998135;  mux12b2= 5.2179132;  muy12b2= 5.2437668;
1214muxcell56b2=0.24998135;  muycell56b2=0.24998135;  mux56b2= 5.2179132;  muy56b2= 5.2437668;
1215muxcell12b1=0.24999938;  muycell12b1=0.24999938;  mux12b1= 5.2441454;  muy12b1= 5.2182897;
1216muxcell56b1=0.24999938;  muycell56b1=0.24999938;  mux56b1= 5.2441454;  muy56b1= 5.2182897;
1217muxcell81b2=0.24999938;  muycell81b2=0.24999938;  mux81b2= 5.2441454;  muy81b2= 5.2182897;
1218muxcell45b2=0.24999938;  muycell45b2=0.24999938;  mux45b2= 5.2441454;  muy45b2= 5.2182897;
1219muxcell23b1=0.25316572;  muycell23b1=0.24654749;  mux23b1= 5.2842423;  muy23b1= 5.1716766;
1220muxcell78b2=0.25316572;  muycell78b2=0.24654749;  mux78b2= 5.2842423;  muy78b2= 5.1716766;
1221muxcell34b1=0.25316572;  muycell34b1=0.24654749;  mux34b1= 5.3106180;  muy34b1= 5.1463935;
1222muxcell67b2=0.25316572;  muycell67b2=0.24654749;  mux67b2= 5.3106180;  muy67b2= 5.1463935;
1223muxcell67b1=0.25318391;  muycell67b1=0.24656533;  mux67b1= 5.2846218;  muy67b1= 5.1720516;
1224muxcell34b2=0.25318391;  muycell34b2=0.24656533;  mux34b2= 5.2846218;  muy34b2= 5.1720516;
1225muxcell78b1=0.25318391;  muycell78b1=0.24656533;  mux78b1= 5.3110006;  muy78b1= 5.1467656;
1226muxcell23b2=0.25318391;  muycell23b2=0.24656533;  mux23b2= 5.3110006;  muy23b2= 5.1467656;
1227
1228
1229 return ;
Note: See TracBrowser for help on using the repository browser.