source: PSPA/madxPSPA/tests/share/line_lattice/edl1.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: 25.0 KB
Line 
1 LBVEXE:=2.0; // length (m)
2 BBVEXE:=8.33910238; // field (kG)
3 ABVEXE:=BBVEXE*Bscl*LBVEXE/BRHO; // angle (rad)
4 GBVEXE:=0.186; // full gap (m)
5BVEX1E:sbend, L:=LBVEXE, ANGLE:=ABVEXE, E1:=ABVEXE/2, E2:=ABVEXE/2,
6TILT=PI/2.,
7 HGAP:=GBVEXE/2, FINT:=0.5, FINTX:=0.5;
8BVEX2E:sbend, L:=LBVEXE, ANGLE:=ABVEXE, E1:=ABVEXE/2, E2:=ABVEXE/2,
9TILT=PI/2.,
10HGAP:=GBVEXE/2, FINT:=0.5, FINTX:=0.5;
11BVEX3E:sbend, L:=LBVEXE, ANGLE:=-ABVEXE, E1:=-ABVEXE/2, E2:=-ABVEXE/2,
12TILT=PI/2.,
13HGAP:=GBVEXE/2, FINT:=0.5, FINTX:=0.5;
14BVEX4E:sbend, L:=LBVEXE, ANGLE:=-ABVEXE, E1:=-ABVEXE/2, E2:=-ABVEXE/2,
15TILT=PI/2.,
16HGAP:=GBVEXE/2, FINT:=0.5, FINTX:=0.5;
17BVEX5E:sbend, L:=LBVEXE, ANGLE:=-ABVEXE, E1:=-ABVEXE/2, E2:=-ABVEXE/2,
18TILT=PI/2.,
19HGAP:=GBVEXE/2, FINT:=0.5, FINTX:=0.5;
20BVEX6E:sbend, L:=LBVEXE, ANGLE:=-ABVEXE, E1:=-ABVEXE/2, E2:=-ABVEXE/2,
21TILT=PI/2.,
22HGAP:=GBVEXE/2, FINT:=0.5, FINTX:=0.5;
23BVEX7E:sbend, L:=LBVEXE, ANGLE:=ABVEXE, E1:=ABVEXE/2, E2:=ABVEXE/2,
24TILT=PI/2.,
25HGAP:=GBVEXE/2, FINT:=0.5, FINTX:=0.5;
26BVEX8E:sbend, L:=LBVEXE, ANGLE:=ABVEXE, E1:=ABVEXE/2, E2:=ABVEXE/2,
27TILT=PI/2.,
28HGAP:=GBVEXE/2, FINT:=0.5, FINTX:=0.5;
29 LBVEXP:=2.0;
30 BBVEXP:=8.33910238;
31 ABVEXP:=BBVEXP*Bscl*LBVEXP/BRHO;
32 GBVEXP:=0.358;
33BVEX1P:sbend, L:=LBVEXP, ANGLE:=ABVEXP, E1:=ABVEXP/2, E2:=ABVEXP/2,
34TILT=PI/2.,
35HGAP:=GBVEXP/2, FINT:=0.5, FINTX:=0.5;
36BVEX2P:sbend, L:=LBVEXP, ANGLE:=-ABVEXP, E1:=-ABVEXP/2, E2:=-ABVEXP/2,
37TILT=PI/2.,
38HGAP:=GBVEXP/2, FINT:=0.5, FINTX:=0.5;
39BVEX3P:sbend, L:=LBVEXP, ANGLE:=-ABVEXP, E1:=-ABVEXP/2, E2:=-ABVEXP/2,
40TILT=PI/2.,
41HGAP:=GBVEXP/2, FINT:=0.5, FINTX:=0.5;
42BVEX4P:sbend, L:=LBVEXP, ANGLE:=ABVEXP, E1:=ABVEXP/2, E2:=ABVEXP/2,
43TILT=PI/2.,
44HGAP:=GBVEXP/2, FINT:=0.5, FINTX:=0.5;
45 LWEX:=1.0;
46 BWEX:=0.0;
47 WEX1:sbend, L:=LWEX, ANGLE:=0;
48 WEX2:sbend, L:=LWEX, ANGLE:=0;
49 LBLEX:=1.0;
50 BBLEX:=0.0;
51 ABLEX:=BBLEX*Bscl*LBLEX/BRHO;
52 GBLEX:=0.174;
53 BLEX1:sbend, L:=LBLEX, ANGLE:=0, TILT=PI/2.;
54 BLEX2:sbend, L:=LBLEX, ANGLE:=0, TILT=PI/2.;
55 BLEX3:sbend, L:=LBLEX, ANGLE:=0, TILT=PI/2.;
56 BLEX4:sbend, L:=LBLEX, ANGLE:=0, TILT=PI/2.;
57 BQFEX1A:=5.0;
58 BQFEX1B:=12.0;
59 BQFEX1C:=BQFEX1B;
60 BQDEX2A:=-12.0;
61 BQDEX2B:=-12.0;
62 BQDEX2C:=BQDEX2B;
63 BQFEX3A:=12.0;
64 BQFEX3B:=BQFEX3A;
65 BQFEX3C:=BQFEX3A;
66 BQDEX4A:=-12.0;
67 BQDEX4B:=BQDEX4A;
68 BQDEX4C:=BQDEX4A;
69 BQDEX4D:=BQDEX4A;
70 BQFEX5:=12.0;
71 BQDEX6A:=-8.0;
72 BQDEX6B:=BQDEX6A;
73 BQDEX6C:=BQDEX6A;
74 BQFEX7A:=8.0;
75 BQFEX7B:=BQFEX7A;
76 BQFEX7C:=BQFEX7A;
77LQFEX1A:=2.2;
78LQFEX1B:=1.70742;
79LQFEX1C:=LQFEX1B;
80 LIPEX:=3.51; // distance from IP to 1st quad
81LQDEX2A:=11.5-LIPEX-QFEX1A->L-QFEX1B->L-QFEX1C->L-DEXQ1A->L-DEXQ1B->L-
82DEXQ1C->L;
83LQDEX2B:=3.478924824375;
84LQDEX2C:=LQDEX2B;
85LQFEX3A:=3.275230496094;
86LQFEX3B:=LQFEX3A;
87LQFEX3C:=LQFEX3A;
88LQDEX4A:=2.840920133401;
89LQDEX4B:=LQDEX4A;
90LQDEX4C:=LQDEX4A;
91LQDEX4D:=LQDEX4A;
92LQFEX5:=3.219106707621;
93LQDEX6A:=3.563134880416;
94LQDEX6B:=LQDEX6A;
95LQDEX6C:=LQDEX6A;
96LQFEX7A:=3.187235727241;
97LQFEX7B:=LQFEX7A;
98LQFEX7C:=LQFEX7A;
99 LDEXQ:=0.3;
100 LDEXQ1A:=LDEXQ;
101 LDEXQ1B:=LDEXQ;
102  LDEXQ1C:=LDEXQ;
103 LDEXQ2A:=1.75;
104 LDEXQ2B:=LDEXQ;
105 LDEXQ2C:=LDEXQ;
106 LDEXQ3A:=LDEXQ;
107 LDEXQ3B:=LDEXQ;
108 LDEXQ3C:=LDEXQ;
109 LDEXQ4A:=LDEXQ;
110 LDEXQ4B:=LDEXQ;
111 LDEXQ4C:=LDEXQ;
112 LDEXQ4D:=LDEXQ;
113APHOT:=1.25e-3; // maximum photon angle at IP
114 ABEAM:=2.00e-3; // maximum electron angle at IP
115 RPQFEX1A:=(LIPEX  +LQFEX1A)*APHOT;
116 RPQFEX1B:=RPQFEX1A+(LDEXQ1A+LQFEX1B)*APHOT;
117 RPQFEX1C:=RPQFEX1B+(LDEXQ1B+LQFEX1C)*APHOT;
118 RPQDEX2A:=RPQFEX1C+(LDEXQ1C+LQDEX2A)*APHOT;
119 RPQDEX2B:=RPQDEX2A+(LDEXQ2A+LQDEX2B)*APHOT;
120 RPQDEX2C:=RPQDEX2B+(LDEXQ2B+LQDEX2C)*APHOT;
121 RPQFEX3A:=RPQDEX2C+(LDEXQ2C+LQFEX3A)*APHOT;
122 RPQFEX3B:=RPQFEX3A+(LDEXQ3A+LQFEX3B)*APHOT;
123 RPQFEX3C:=RPQFEX3B+(LDEXQ3B+LQFEX3C)*APHOT;
124 RPQDEX4A:=RPQFEX3C+(LDEXQ3C+LQDEX4A)*APHOT;
125 RPQDEX4B:=RPQDEX4A+(LDEXQ4A+LQDEX4B)*APHOT;
126 RPQDEX4C:=RPQDEX4B+(LDEXQ4B+LQDEX4C)*APHOT;
127 RPQDEX4D:=RPQDEX4C+(LDEXQ4C+LQDEX4D)*APHOT;
128 RPQFEX5:=RPQDEX4D+(LDEXQ4D+LQFEX5)*APHOT;
129 RBQFEX1A:=(LIPEX  +LQFEX1A)*ABEAM;
130 RBQFEX1B:=RBQFEX1A+(LDEXQ1A+LQFEX1B)*ABEAM;
131 RBQFEX1C:=RBQFEX1B+(LDEXQ1B+LQFEX1C)*ABEAM;
132 RBQDEX2A:=RBQFEX1C+(LDEXQ1C+LQDEX2A)*ABEAM;
133 RBQDEX2B:=RBQDEX2A+(LDEXQ2A+LQDEX2B)*ABEAM;
134 RBQDEX2C:=RBQDEX2B+(LDEXQ2B+LQDEX2C)*ABEAM;
135 RBQFEX3A:=RBQDEX2C+(LDEXQ2C+LQFEX3A)*ABEAM;
136 RBQFEX3B:=RBQFEX3A+(LDEXQ3A+LQFEX3B)*ABEAM;
137 RBQFEX3C:=RBQFEX3B+(LDEXQ3B+LQFEX3C)*ABEAM;
138 RBQDEX4A:=RBQFEX3C+(LDEXQ3C+LQDEX4A)*ABEAM;
139 RBQDEX4B:=RBQDEX4A+(LDEXQ4A+LQDEX4B)*ABEAM;
140 RBQDEX4C:=RBQDEX4B+(LDEXQ4B+LQDEX4C)*ABEAM;
141 RBQDEX4D:=RBQDEX4C+(LDEXQ4C+LQDEX4D)*ABEAM;
142 RBQFEX5:=RBQDEX4D+(LDEXQ4D+LQFEX5)*ABEAM;
143RQFEX1A:=0.012;
144RQFEX1B:=0.017;
145RQFEX1C:=0.024;
146RQDEX2A:=0.030;
147RQDEX2B:=0.043;
148RQDEX2C:=0.043;
149RQFEX3A:=0.043;
150RQFEX3B:=0.046;
151RQFEX3C:=0.058;
152RQDEX4A:=0.071;
153RQDEX4B:=0.077;
154RQDEX4C:=0.077;
155RQDEX4D:=0.077;
156RQFEX5:=0.071;
157 LDEX2:=0.5;
158 LDEX3:=15.0;
159 LDEX4:=18.0;
160 LDEX5:=10.0;
161 LDEX6:=LDEX4;
162 LDEX7:=2.0;
163 LDEXQ6A:=LDEXQ;
164 LDEXQ6B:=LDEXQ;
165 LDEXQ6C:=LDEXQ;
166 LDEXQ7A:=LDEXQ;
167 LDEXQ7B:=LDEXQ;
168 LPART1D:=LIPEX+DEXQ1A->L+DEXQ1B->L+DEXQ1C->L+DEXQ2A->L+DEXQ2B->L+
169DEXQ2C->L+DEXQ3A->L+
170DEXQ3B->L+DEXQ3C->L+DEXQ4A->L+DEXQ4B->L+DEXQ4C->L+DEXQ4D->L+LDEX2+
171DEXB1E->L+DEXB2E->L+
172DEXL1E->L+DEXW1E->L+DEXL2E->L+DEXB3E->L+DEXB4E->L+DEXB5E->L+
173DEXB6E->L+DEXL3E->L+DEXW2E->L+
174DEXL4E->L+DEXB7E->L+LDEX3+LDEX4+LDEX5+LDEX6+LDEX7;
175LPART1M:=QFEX1A->L+QFEX1B->L+QFEX1C->L+QDEX2A->L+QDEX2B->L+
176QDEX2C->L+QFEX3A->L+
177QFEX3B->L+QFEX3C->L+QDEX4A->L+QDEX4B->L+QDEX4C->L+QDEX4D->L+
178QFEX5->L+BVEX1E->L+BVEX2E->L+BLEX1->L+
179WEX1->L+BLEX2->L+BVEX3E->L+BVEX4E->L+BVEX5E->L+BVEX6E->L+
180BLEX3->L+WEX2->L+BLEX4->L+BVEX7E->L+
181BVEX8E->L+BVEX1P->L+BVEX2P->L+BVEX3P->L+BVEX4P->L;
182 LPART1:=LPART1D+LPART1M;
183 RPQDEX6A:=(LPART1 +LQDEX6A)*APHOT;
184 RPQDEX6B:=RPQDEX6A+(LDEXQ6A+LQDEX6B)*APHOT;
185 RPQDEX6C:=RPQDEX6B+(LDEXQ6B+LQDEX6C)*APHOT;
186 RPQFEX7A:=RPQDEX6C+(LDEXQ6C+LQFEX7A)*APHOT;
187 RPQFEX7B:=RPQFEX7A+(LDEXQ7A+LQFEX7B)*APHOT;
188 RPQFEX7C:=RPQFEX7B+(LDEXQ7B+LQFEX7C)*APHOT;
189 RQDEX6A:=0.250; // RPQDEX6C
190 RQDEX6B:=0.250; // RPQDEX6C
191 RQDEX6C:=0.250; // RPQDEX6C
192 RQFEX7A:=0.250; // RPQFEX7C
193 RQFEX7B:=0.250; // RPQFEX7C
194 RQFEX7C:=0.250; // RPQFEX7C
195 QFEX1A:quadrupole, L:=LQFEX1A, K1:=BQFEX1A*Bscl/RQFEX1A/BRHO,
196aperture:=RQFEX1A;
197 QFEX1B:quadrupole, L:=LQFEX1B, K1:=BQFEX1B*Bscl/RQFEX1B/BRHO,
198aperture:=RQFEX1B;
199 QFEX1C:quadrupole, L:=LQFEX1C, K1:=BQFEX1C*Bscl/RQFEX1C/BRHO,
200aperture:=RQFEX1C;
201 QDEX2A:quadrupole, L:=LQDEX2A, K1:=BQDEX2A*Bscl/RQDEX2A/BRHO,
202aperture:=RQDEX2A;
203 QDEX2B:quadrupole, L:=LQDEX2B, K1:=BQDEX2B*Bscl/RQDEX2B/BRHO,
204aperture:=RQDEX2B;
205 QDEX2C:quadrupole, L:=LQDEX2C, K1:=BQDEX2C*Bscl/RQDEX2C/BRHO,
206aperture:=RQDEX2C;
207 QFEX3A:quadrupole, L:=LQFEX3A, K1:=BQFEX3A*Bscl/RQFEX3A/BRHO,
208aperture:=RQFEX3A;
209 QFEX3B:quadrupole, L:=LQFEX3B, K1:=BQFEX3B*Bscl/RQFEX3B/BRHO,
210aperture:=RQFEX3B;
211 QFEX3C:quadrupole, L:=LQFEX3C, K1:=BQFEX3C*Bscl/RQFEX3C/BRHO,
212aperture:=RQFEX3C;
213 QDEX4A:quadrupole, L:=LQDEX4A, K1:=BQDEX4A*Bscl/RQDEX4A/BRHO,
214aperture:=RQDEX4A;
215 QDEX4B:quadrupole, L:=LQDEX4B, K1:=BQDEX4B*Bscl/RQDEX4B/BRHO,
216aperture:=RQDEX4B;
217 QDEX4C:quadrupole, L:=LQDEX4C, K1:=BQDEX4C*Bscl/RQDEX4C/BRHO,
218aperture:=RQDEX4C;
219 QDEX4D:quadrupole, L:=LQDEX4D, K1:=BQDEX4D*Bscl/RQDEX4D/BRHO,
220aperture:=RQDEX4D;
221 QFEX5:quadrupole, L:=LQFEX5, K1:=BQFEX5*Bscl/RQFEX5/BRHO,
222aperture:=RQFEX5;
223 QDEX6A:quadrupole, L:=LQDEX6A, K1:=BQDEX6A*Bscl/RQDEX6A/BRHO,
224aperture:=RQDEX6A;
225 QDEX6B:quadrupole, L:=LQDEX6B, K1:=BQDEX6B*Bscl/RQDEX6B/BRHO,
226aperture:=RQDEX6B;
227 QDEX6C:quadrupole, L:=LQDEX6C, K1:=BQDEX6C*Bscl/RQDEX6C/BRHO,
228aperture:=RQDEX6C;
229 QFEX7A:quadrupole, L:=LQFEX7A, K1:=BQFEX7A*Bscl/RQFEX7A/BRHO,
230aperture:=RQFEX7A;
231 QFEX7B:quadrupole, L:=LQFEX7B, K1:=BQFEX7B*Bscl/RQFEX7B/BRHO,
232aperture:=RQFEX7B;
233 QFEX7C:quadrupole, L:=LQFEX7C, K1:=BQFEX7C*Bscl/RQFEX7C/BRHO,
234aperture:=RQFEX7C;
235 LSOLEX:=3.51; // solenoid length after IP
236 LSOLEXA:=2.50;
237 LSOLEXB:=LSOLEX-LSOLEXA;
238 RSOLEX:=12e-3; // solenoid beam pipe aperture radius (m)
239 ASOLEX:=0.01; // solenoid-to-beam horizontal angle (rad)
240 BLVKEX1:=0;
241 BLVKEX2:=0;
242 VKEX1:vkicker, KICK:=BLVKEX1/BRHO;
243 VKEX2:vkicker, KICK:=BLVKEX2/BRHO;
244 LDEX1:=LIPEX-LSOLEX;
245 LDEXB1E:=0.3;
246 LDEXB2E:=0.3;
247 LDEXL1E:=0.3;
248 LDEXW1E:=0.3;
249 LDEXL2E:=0.3;
250 LDEXB3E:=0.3;
251 LDEXB4E:=0.3;
252 LDEXB5E:=0.3;
253 LDEXB6E:=0.3;
254 LDEXL3E:=0.3;
255 LDEXW2E:=0.3;
256 LDEXL4E:=0.3;
257 LDEXB7E:=0.3;
258 LDEX3S:=LDEX3/15;
259 LDEX4S:=LDEX4/18;
260 LDEX5S:=LDEX5/10;
261 LDEX6S:=LDEX6/18;
262 LDEX7S:=LDEX7/2;
263 LDEX8:=10.0;
264 LDEX8S:=LDEX8/10;
265 RDEX1:=12e-3;
266 RDEXQ1A:=17e-3;
267 RDEXQ1B:=24e-3;
268 RDEXQ1C:=30e-3;
269 RDEXQ2A:=43e-3;
270 RDEXQ2B:=43e-3;
271 RDEXQ2C:=43e-3;
272 RDEXQ3A:=46e-3;
273 RDEXQ3B:=58e-3;
274 RDEXQ3C:=71e-3;
275 RDEXQ4A:=77e-3;
276 RDEXQ4B:=77e-3;
277 RDEXQ4C:=77e-3;
278 RDEXQ4D:=77e-3;
279 RDEX2:=71e-3;
280 XDEXB1E:=63e-3;
281 XDEXB2E:=66e-3;
282 XDEXL1E:=68e-3;
283 XDEXW1E:=69e-3;
284 XDEXL2E:=71e-3;
285 XDEXB3E:=74e-3;
286 XDEXB4E:=77e-3;
287 XDEXB5E:=79e-3;
288 XDEXB6E:=82e-3;
289 XDEXL3E:=84e-3;
290 XDEXW2E:=86e-3;
291 XDEXL4E:=87e-3;
292 XDEXB7E:=90e-3;
293 YDEXB1E:=65e-3;
294 YDEXB2E:=77e-3;
295 YDEXL1E:=86e-3;
296 YDEXW1E:=96e-3;
297 YDEXL2E:=105e-3;
298 YDEXB3E:=116e-3;
299 YDEXB4E:=118e-3;
300 YDEXB5E:=112e-3;
301 YDEXB6E:=97e-3;
302 YDEXL3E:=94e-3;
303 YDEXW2E:=93e-3;
304 YDEXL4E:=92e-3;
305 YDEXB7E:=91e-3;
306 RDEX301:=94e-3;
307 RDEX302:=95e-3;
308 RDEX303:=96e-3;
309 RDEX304:=98e-3;
310 RDEX305:=99e-3;
311 RDEX306:=100e-3;
312 RDEX307:=101e-3;
313 RDEX308:=103e-3;
314 RDEX309:=104e-3;
315 RDEX310:=105e-3;
316 RDEX311:=106e-3;
317 RDEX312:=108e-3;
318 RDEX313:=109e-3;
319 RDEX314:=110e-3;
320 RDEX315:=111e-3;
321 XDEX401:=115e-3;
322 XDEX402:=116e-3;
323 XDEX403:=118e-3;
324 XDEX404:=119e-3;
325 XDEX405:=120e-3;
326 XDEX406:=121e-3;
327 XDEX407:=123e-3;
328 XDEX408:=124e-3;
329 XDEX409:=125e-3;
330 XDEX410:=126e-3;
331 XDEX411:=128e-3;
332 XDEX412:=129e-3;
333 XDEX413:=130e-3;
334 XDEX414:=131e-3;
335 XDEX415:=133e-3;
336 XDEX416:=134e-3;
337 XDEX417:=135e-3;
338 XDEX418:=136e-3;
339 YDEX401:=117e-3;
340 YDEX402:=119e-3;
341 YDEX403:=122e-3;
342 YDEX404:=124e-3;
343 YDEX405:=126e-3;
344 YDEX406:=128e-3;
345 YDEX407:=131e-3;
346 YDEX408:=133e-3;
347 YDEX409:=135e-3;
348 YDEX410:=137e-3;
349 YDEX411:=140e-3;
350 YDEX412:=142e-3;
351 YDEX413:=144e-3;
352 YDEX414:=146e-3;
353 YDEX415:=149e-3;
354 YDEX416:=151e-3;
355 YDEX417:=153e-3;
356 YDEX418:=155e-3;
357 XDEX501:=140e-3;
358 XDEX502:=141e-3;
359 XDEX503:=143e-3;
360 XDEX504:=144e-3;
361 XDEX505:=145e-3;
362 XDEX506:=146e-3;
363 XDEX507:=148e-3;
364 XDEX508:=149e-3;
365 XDEX509:=150e-3;
366 XDEX510:=151e-3;
367 YDEX501:=160e-3;
368 YDEX502:=161e-3;
369 YDEX503:=163e-3;
370 YDEX504:=164e-3;
371 YDEX505:=165e-3;
372 YDEX506:=166e-3;
373 YDEX507:=168e-3;
374 YDEX508:=169e-3;
375 YDEX509:=170e-3;
376 YDEX510:=171e-3;
377 XDEX601:=155e-3;
378 XDEX602:=156e-3;
379 XDEX603:=158e-3;
380 XDEX604:=159e-3;
381 XDEX605:=160e-3;
382 XDEX606:=161e-3;
383 XDEX607:=163e-3;
384 XDEX608:=164e-3;
385 XDEX609:=165e-3;
386 XDEX610:=166e-3;
387 XDEX611:=168e-3;
388 XDEX612:=169e-3;
389 XDEX613:=170e-3;
390 XDEX614:=171e-3;
391 XDEX615:=173e-3;
392 XDEX616:=174e-3;
393 XDEX617:=175e-3;
394 XDEX618:=176e-3;
395 YDEX601:=173e-3;
396 YDEX602:=173e-3;
397 YDEX603:=174e-3;
398 YDEX604:=174e-3;
399 YDEX605:=174e-3;
400 YDEX606:=174e-3;
401 YDEX607:=175e-3;
402 YDEX608:=175e-3;
403 YDEX609:=175e-3;
404 YDEX610:=175e-3;
405 YDEX611:=176e-3;
406 YDEX612:=176e-3;
407 YDEX613:=176e-3;
408 YDEX614:=176e-3;
409 YDEX615:=177e-3;
410 YDEX616:=177e-3;
411 YDEX617:=177e-3;
412 YDEX618:=177e-3;
413 RDEX701:=215e-3;
414 RDEX702:=250e-3;
415 RDEXQ6A:=250e-3;
416 RDEXQ6B:=250e-3;
417 RDEXQ6C:=250e-3;
418 RDEXQ7A:=250e-3;
419 RDEXQ7B:=250e-3;
420 RDEX801:=250e-3;
421 RDEX802:=250e-3;
422 RDEX803:=250e-3;
423 RDEX804:=250e-3;
424 RDEX805:=250e-3;
425 RDEX806:=250e-3;
426 RDEX807:=250e-3;
427 RDEX808:=250e-3;
428 RDEX809:=250e-3;
429 RDEX810:=250e-3;
430 SOLEXA:DRIFT, L:=LSOLEXA; //, XSIZE= RSOLEX, YSIZE= RSOLEX
431 SOLEXB:DRIFT, L:=LSOLEXB; //, XSIZE= RSOLEX, YSIZE= RSOLEX
432 DEX1:DRIFT, L:=LDEX1; //, XSIZE= RDEX1, YSIZE= RDEX1
433 DEXQ1A:DRIFT, L:=LDEXQ1A; //, XSIZE= RDEXQ1A, YSIZE= RDEXQ1A
434 DEXQ1B:DRIFT, L:=LDEXQ1B; //, XSIZE= RDEXQ1B, YSIZE= RDEXQ1B
435 DEXQ1C:DRIFT, L:=LDEXQ1C; //, XSIZE= RDEXQ1C, YSIZE= RDEXQ1C
436 DEXQ2A:DRIFT, L:=LDEXQ2A; //, XSIZE= RDEXQ2A, YSIZE= RDEXQ2A
437 DEXQ2B:DRIFT, L:=LDEXQ2B; //, XSIZE= RDEXQ2B, YSIZE= RDEXQ2B
438 DEXQ2C:DRIFT, L:=LDEXQ2C; //, XSIZE= RDEXQ2C, YSIZE= RDEXQ2C
439 DEXQ3A:DRIFT, L:=LDEXQ3A; //, XSIZE= RDEXQ3A, YSIZE= RDEXQ3A
440 DEXQ3B:DRIFT, L:=LDEXQ3B; //, XSIZE= RDEXQ3B, YSIZE= RDEXQ3B
441 DEXQ3C:DRIFT, L:=LDEXQ3C; //, XSIZE= RDEXQ3C, YSIZE= RDEXQ3C
442 DEXQ4A:DRIFT, L:=LDEXQ4A; //, XSIZE= RDEXQ4A, YSIZE= RDEXQ4A
443 DEXQ4B:DRIFT, L:=LDEXQ4B; //, XSIZE= RDEXQ4B, YSIZE= RDEXQ4B
444 DEXQ4C:DRIFT, L:=LDEXQ4C; //, XSIZE= RDEXQ4C, YSIZE= RDEXQ4C
445 DEXQ4D:DRIFT, L:=LDEXQ4D; //, XSIZE= RDEXQ4D, YSIZE= RDEXQ4D
446 DEX2:DRIFT, L:=LDEX2; //, XSIZE= RDEX2,   YSIZE= RDEX2
447 DEXB1E:DRIFT, L:=LDEXB1E; //, XSIZE= XDEXB1E, YSIZE= YDEXB1E
448 DEXB2E:DRIFT, L:=LDEXB2E; //, XSIZE= XDEXB2E, YSIZE= YDEXB2E
449 DEXL1E:DRIFT, L:=LDEXL1E; //, XSIZE= XDEXL1E, YSIZE= YDEXL1E
450 DEXW1E:DRIFT, L:=LDEXW1E; //, XSIZE= XDEXW1E, YSIZE= YDEXW1E
451 DEXL2E:DRIFT, L:=LDEXL2E; //, XSIZE= XDEXL2E, YSIZE= YDEXL2E
452 DEXB3E:DRIFT, L:=LDEXB3E; //, XSIZE= XDEXB3E, YSIZE= YDEXB3E
453 DEXB4E:DRIFT, L:=LDEXB4E; //, XSIZE= XDEXB4E, YSIZE= YDEXB4E
454 DEXB5E:DRIFT, L:=LDEXB5E; //, XSIZE= XDEXB5E, YSIZE= YDEXB5E
455 DEXB6E:DRIFT, L:=LDEXB6E; //, XSIZE= XDEXB6E, YSIZE= YDEXB6E
456 DEXL3E:DRIFT, L:=LDEXL3E; //, XSIZE= XDEXL3E, YSIZE= YDEXL3E
457 DEXW2E:DRIFT, L:=LDEXW2E; //, XSIZE= XDEXW2E, YSIZE= YDEXW2E
458 DEXL4E:DRIFT, L:=LDEXL4E; //, XSIZE= XDEXL4E, YSIZE= YDEXL4E
459 DEXB7E:DRIFT, L:=LDEXB7E; //, XSIZE= XDEXB7E, YSIZE= YDEXB7E
460 DEX301:DRIFT, L:=LDEX3S; //, XSIZE= RDEX301, YSIZE= RDEX301
461 DEX302:DRIFT, L:=LDEX3S; //, XSIZE= RDEX302, YSIZE= RDEX302
462 DEX303:DRIFT, L:=LDEX3S; //, XSIZE= RDEX303, YSIZE= RDEX303
463 DEX304:DRIFT, L:=LDEX3S; //, XSIZE= RDEX304, YSIZE= RDEX304
464 DEX305:DRIFT, L:=LDEX3S; //, XSIZE= RDEX305, YSIZE= RDEX305
465 DEX306:DRIFT, L:=LDEX3S; //, XSIZE= RDEX306, YSIZE= RDEX306
466 DEX307:DRIFT, L:=LDEX3S; //, XSIZE= RDEX307, YSIZE= RDEX307
467 DEX308:DRIFT, L:=LDEX3S; //, XSIZE= RDEX308, YSIZE= RDEX308
468 DEX309:DRIFT, L:=LDEX3S; //, XSIZE= RDEX309, YSIZE= RDEX309
469 DEX310:DRIFT, L:=LDEX3S; //, XSIZE= RDEX310, YSIZE= RDEX310
470 DEX311:DRIFT, L:=LDEX3S; //, XSIZE= RDEX311, YSIZE= RDEX311
471 DEX312:DRIFT, L:=LDEX3S; //, XSIZE= RDEX312, YSIZE= RDEX312
472 DEX313:DRIFT, L:=LDEX3S; //, XSIZE= RDEX313, YSIZE= RDEX313
473 DEX314:DRIFT, L:=LDEX3S; //, XSIZE= RDEX314, YSIZE= RDEX314
474 DEX315:DRIFT, L:=LDEX3S; //, XSIZE= RDEX315, YSIZE= RDEX315
475 DEX401:DRIFT, L:=LDEX4S; //, XSIZE= XDEX401, YSIZE= YDEX401
476 DEX402:DRIFT, L:=LDEX4S; //, XSIZE= XDEX402, YSIZE= YDEX402
477 DEX403:DRIFT, L:=LDEX4S; //, XSIZE= XDEX403, YSIZE= YDEX403
478 DEX404:DRIFT, L:=LDEX4S; //, XSIZE= XDEX404, YSIZE= YDEX404
479 DEX405:DRIFT, L:=LDEX4S; //, XSIZE= XDEX405, YSIZE= YDEX405
480 DEX406:DRIFT, L:=LDEX4S; //, XSIZE= XDEX406, YSIZE= YDEX406
481 DEX407:DRIFT, L:=LDEX4S; //, XSIZE= XDEX407, YSIZE= YDEX407
482 DEX408:DRIFT, L:=LDEX4S; //, XSIZE= XDEX408, YSIZE= YDEX408
483 DEX409:DRIFT, L:=LDEX4S; //, XSIZE= XDEX409, YSIZE= YDEX409
484 DEX410:DRIFT, L:=LDEX4S; //, XSIZE= XDEX410, YSIZE= YDEX410
485 DEX411:DRIFT, L:=LDEX4S; //, XSIZE= XDEX411, YSIZE= YDEX411
486 DEX412:DRIFT, L:=LDEX4S; //, XSIZE= XDEX412, YSIZE= YDEX412
487 DEX413:DRIFT, L:=LDEX4S; //, XSIZE= XDEX413, YSIZE= YDEX413
488 DEX414:DRIFT, L:=LDEX4S; //, XSIZE= XDEX414, YSIZE= YDEX414
489 DEX415:DRIFT, L:=LDEX4S; //, XSIZE= XDEX415, YSIZE= YDEX415
490 DEX416:DRIFT, L:=LDEX4S; //, XSIZE= XDEX416, YSIZE= YDEX416
491 DEX417:DRIFT, L:=LDEX4S; //, XSIZE= XDEX417, YSIZE= YDEX417
492 DEX418:DRIFT, L:=LDEX4S; //, XSIZE= XDEX418, YSIZE= YDEX418
493 DEX501:DRIFT, L:=LDEX5S; //, XSIZE= XDEX501, YSIZE= YDEX501
494 DEX502:DRIFT, L:=LDEX5S; //, XSIZE= XDEX502, YSIZE= YDEX502
495 DEX503:DRIFT, L:=LDEX5S; //, XSIZE= XDEX503, YSIZE= YDEX503
496 DEX504:DRIFT, L:=LDEX5S; //, XSIZE= XDEX504, YSIZE= YDEX504
497 DEX505:DRIFT, L:=LDEX5S; //, XSIZE= XDEX505, YSIZE= YDEX505
498 DEX506:DRIFT, L:=LDEX5S; //, XSIZE= XDEX506, YSIZE= YDEX506
499 DEX507:DRIFT, L:=LDEX5S; //, XSIZE= XDEX507, YSIZE= YDEX507
500 DEX508:DRIFT, L:=LDEX5S; //, XSIZE= XDEX508, YSIZE= YDEX508
501 DEX509:DRIFT, L:=LDEX5S; //, XSIZE= XDEX509, YSIZE= YDEX509
502 DEX510:DRIFT, L:=LDEX5S; //, XSIZE= XDEX510, YSIZE= YDEX510
503 DEX601:DRIFT, L:=LDEX6S; //, XSIZE= XDEX601, YSIZE= YDEX601
504 DEX602:DRIFT, L:=LDEX6S; //, XSIZE= XDEX602, YSIZE= YDEX602
505 DEX603:DRIFT, L:=LDEX6S; //, XSIZE= XDEX603, YSIZE= YDEX603
506 DEX604:DRIFT, L:=LDEX6S; //, XSIZE= XDEX604, YSIZE= YDEX604
507 DEX605:DRIFT, L:=LDEX6S; //, XSIZE= XDEX605, YSIZE= YDEX605
508 DEX606:DRIFT, L:=LDEX6S; //, XSIZE= XDEX606, YSIZE= YDEX606
509 DEX607:DRIFT, L:=LDEX6S; //, XSIZE= XDEX607, YSIZE= YDEX607
510 DEX608:DRIFT, L:=LDEX6S; //, XSIZE= XDEX608, YSIZE= YDEX608
511 DEX609:DRIFT, L:=LDEX6S; //, XSIZE= XDEX609, YSIZE= YDEX609
512 DEX610:DRIFT, L:=LDEX6S; //, XSIZE= XDEX610, YSIZE= YDEX610
513 DEX611:DRIFT, L:=LDEX6S; //, XSIZE= XDEX611, YSIZE= YDEX611
514 DEX612:DRIFT, L:=LDEX6S; //, XSIZE= XDEX612, YSIZE= YDEX612
515 DEX613:DRIFT, L:=LDEX6S; //, XSIZE= XDEX613, YSIZE= YDEX613
516 DEX614:DRIFT, L:=LDEX6S; //, XSIZE= XDEX614, YSIZE= YDEX614
517 DEX615:DRIFT, L:=LDEX6S; //, XSIZE= XDEX615, YSIZE= YDEX615
518 DEX616:DRIFT, L:=LDEX6S; //, XSIZE= XDEX616, YSIZE= YDEX616
519 DEX617:DRIFT, L:=LDEX6S; //, XSIZE= XDEX617, YSIZE= YDEX617
520 DEX618:DRIFT, L:=LDEX6S; //, XSIZE= XDEX618, YSIZE= YDEX618
521 DEX701:DRIFT, L:=LDEX7S; //, XSIZE= RDEX701, YSIZE= RDEX701
522 DEX702:DRIFT, L:=LDEX7S; //, XSIZE= RDEX702, YSIZE= RDEX702
523 DEXQ6A:DRIFT, L:=LDEXQ6A; //, XSIZE= RDEXQ6A, YSIZE= RDEXQ6A
524 DEXQ6B:DRIFT, L:=LDEXQ6B; //, XSIZE= RDEXQ6B, YSIZE= RDEXQ6B
525 DEXQ6C:DRIFT, L:=LDEXQ6C; //, XSIZE= RDEXQ6C, YSIZE= RDEXQ6C
526 DEXQ7A:DRIFT, L:=LDEXQ7A; //, XSIZE= RDEXQ7A, YSIZE= RDEXQ7A
527 DEXQ7B:DRIFT, L:=LDEXQ7B; //, XSIZE= RDEXQ7B, YSIZE= RDEXQ7B
528 DEX801:DRIFT, L:=LDEX8S; //, XSIZE= RDEX801, YSIZE= RDEX801
529 DEX802:DRIFT, L:=LDEX8S; //, XSIZE= RDEX802, YSIZE= RDEX802
530 DEX803:DRIFT, L:=LDEX8S; //, XSIZE= RDEX803, YSIZE= RDEX803
531 DEX804:DRIFT, L:=LDEX8S; //, XSIZE= RDEX804, YSIZE= RDEX804
532 DEX805:DRIFT, L:=LDEX8S; //, XSIZE= RDEX805, YSIZE= RDEX805
533 DEX806:DRIFT, L:=LDEX8S; //, XSIZE= RDEX806, YSIZE= RDEX806
534 DEX807:DRIFT, L:=LDEX8S; //, XSIZE= RDEX807, YSIZE= RDEX807
535 DEX808:DRIFT, L:=LDEX8S; //, XSIZE= RDEX808, YSIZE= RDEX808
536 DEX809:DRIFT, L:=LDEX8S; //, XSIZE= RDEX809, YSIZE= RDEX809
537 DEX810:DRIFT, L:=LDEX8S; //, XSIZE= RDEX810, YSIZE= RDEX810
538 MIP:MARKER; // at IP
539 MEXFOC:MARKER; // at focal point at mid-chicane
540 MEXDUMP:MARKER; // at the dump
541 BENDS:LINE=(         DEX2,   
542BVEX1E, DEXB1E,
543BVEX2E, DEXB2E,
544BLEX1,  DEXL1E,
545WEX1,   DEXW1E,
546BLEX2,  DEXL2E,
547BVEX3E, DEXB3E,
548BVEX4E, DEXB4E,
549BVEX5E, DEXB5E,
550BVEX6E, DEXB6E,
551BLEX3,  DEXL3E,
552WEX2,   DEXW2E,
553BLEX4,  DEXL4E,
554BVEX7E, DEXB7E,
555BVEX8E, DEX301, DEX302, DEX303, DEX304, DEX305, DEX306,
556DEX307, DEX308, DEX309, DEX310, DEX311, DEX312,
557DEX313, DEX314, DEX315,
558BVEX1P, DEX401, DEX402, DEX403, DEX404, DEX405, DEX406,
559DEX407, DEX408, DEX409, DEX410, DEX411, DEX412,
560DEX413, DEX414, DEX415, DEX416, DEX417, DEX418,
561BVEX2P, DEX501, DEX502, DEX503, DEX504, DEX505, MEXFOC,
562DEX506, DEX507, DEX508, DEX509, DEX510,
563BVEX3P, DEX601, DEX602, DEX603, DEX604, DEX605, DEX606,
564DEX607, DEX608, DEX609, DEX610, DEX611, DEX612,
565DEX613, DEX614, DEX615, DEX616, DEX617, DEX618,
566BVEX4P, DEX701, DEX702 );
567 PART1:LINE=( MIP,
568                                SOLEXA, VKEX1,  SOLEXB,
569                                                DEX1,   VKEX2, 
570                                QFEX1A, DEXQ1A,
571                                QFEX1B, DEXQ1B,
572                                QFEX1C, DEXQ1C,
573                                QDEX2A, DEXQ2A,
574                                QDEX2B, DEXQ2B,
575                                QDEX2C, DEXQ2C,
576                                QFEX3A, DEXQ3A,
577                                QFEX3B, DEXQ3B,
578                                QFEX3C, DEXQ3C,
579                                QDEX4A, DEXQ4A,
580                                QDEX4B, DEXQ4B,
581                                QDEX4C, DEXQ4C,
582                                QDEX4D, DEXQ4D,
583                                QFEX5,         
584                                BENDS           );
585 PART2:LINE=( QDEX6A, DEXQ6A,
586QDEX6B, DEXQ6B,
587QDEX6C, DEXQ6C,
588QFEX7A, DEXQ7A,
589QFEX7B, DEXQ7B,
590QFEX7C, DEX801, DEX802, DEX803, DEX804, DEX805,
591DEX806, DEX807, DEX808, DEX809, DEX810, MEXDUMP );
592 EXLINE:LINE=( PART1, PART2 );
593 BVEXEh:sbend, L:=LBVEXE/2, HGAP:=GBVEXE/2, TILT=PI/2.;
594 BVEX1Ea:BVEXEh, ANGLE:=+ABVEXE/2, E1:=+ABVEXE/2, FINT:=0.5, FINTX:=0;
595 BVEX1Eb:BVEXEh, ANGLE:=+ABVEXE/2, E2:=+ABVEXE/2, FINT:=0, FINTX:=0.5;
596 BVEX1Es:LINE=(BVEX1Ea,BVEX1Eb);
597 BVEX2Ea:BVEXEh, ANGLE:=+ABVEXE/2, E1:=+ABVEXE/2, FINT:=0.5, FINTX:=0;
598 BVEX2Eb:BVEXEh, ANGLE:=+ABVEXE/2, E2:=+ABVEXE/2, FINT:=0, FINTX:=0.5;
599 BVEX2Es:LINE=(BVEX2Ea,BVEX2Eb);
600 BVEX3Ea:BVEXEh, ANGLE:=-ABVEXE/2, E1:=-ABVEXE/2, FINT:=0.5, FINTX:=0;
601 BVEX3Eb:BVEXEh, ANGLE:=-ABVEXE/2, E2:=-ABVEXE/2, FINT:=0, FINTX:=0.5;
602 BVEX3Es:LINE=(BVEX3Ea,BVEX3Eb);
603 BVEX4Ea:BVEXEh, ANGLE:=-ABVEXE/2, E1:=-ABVEXE/2, FINT:=0.5, FINTX:=0;
604 BVEX4Eb:BVEXEh, ANGLE:=-ABVEXE/2, E2:=-ABVEXE/2, FINT:=0, FINTX:=0.5;
605 BVEX4Es:LINE=(BVEX4Ea,BVEX4Eb);
606 BVEX5Ea:BVEXEh, ANGLE:=-ABVEXE/2, E1:=-ABVEXE/2, FINT:=0.5, FINTX:=0;
607 BVEX5Eb:BVEXEh, ANGLE:=-ABVEXE/2, E2:=-ABVEXE/2, FINT:=0, FINTX:=0.5;
608 BVEX5Es:LINE=(BVEX5Ea,BVEX5Eb);
609 BVEX6Ea:BVEXEh, ANGLE:=-ABVEXE/2, E1:=-ABVEXE/2, FINT:=0.5, FINTX:=0;
610 BVEX6Eb:BVEXEh, ANGLE:=-ABVEXE/2, E2:=-ABVEXE/2, FINT:=0, FINTX:=0.5;
611 BVEX6Es:LINE=(BVEX6Ea,BVEX6Eb);
612 BVEX7Ea:BVEXEh, ANGLE:=+ABVEXE/2, E1:=+ABVEXE/2, FINT:=0.5, FINTX:=0;
613 BVEX7Eb:BVEXEh, ANGLE:=+ABVEXE/2, E2:=+ABVEXE/2, FINT:=0, FINTX:=0.5;
614 BVEX7Es:LINE=(BVEX7Ea,BVEX7Eb);
615 BVEX8Ea:BVEXEh, ANGLE:=+ABVEXE/2, E1:=+ABVEXE/2, FINT:=0.5, FINTX:=0;
616 BVEX8Eb:BVEXEh, ANGLE:=+ABVEXE/2, E2:=+ABVEXE/2, FINT:=0, FINTX:=0.5;
617 BVEX8Es:LINE=(BVEX8Ea,BVEX8Eb);
618 BVEXPh:sbend, L:=LBVEXP/2, HGAP:=GBVEXP/2, TILT=PI/2.;
619 BVEX1Pa:BVEXPh, ANGLE:=+ABVEXP/2, E1:=+ABVEXP/2, FINT:=0.5, FINTX:=0;
620 BVEX1Pb:BVEXPh, ANGLE:=+ABVEXP/2, E2:=+ABVEXP/2, FINT:=0, FINTX:=0.5;
621 BVEX1Ps:LINE=(BVEX1Pa,BVEX1Pb);
622 BVEX2Pa:BVEXPh, ANGLE:=-ABVEXP/2, E1:=-ABVEXP/2, FINT:=0.5, FINTX:=0;
623 BVEX2Pb:BVEXPh, ANGLE:=-ABVEXP/2, E2:=-ABVEXP/2, FINT:=0, FINTX:=0.5;
624 BVEX2Ps:LINE=(BVEX2Pa,BVEX2Pb);
625 BVEX3Pa:BVEXPh, ANGLE:=-ABVEXP/2, E1:=-ABVEXP/2, FINT:=0.5, FINTX:=0;
626 BVEX3Pb:BVEXPh, ANGLE:=-ABVEXP/2, E2:=-ABVEXP/2, FINT:=0, FINTX:=0.5;
627 BVEX3Ps:LINE=(BVEX3Pa,BVEX3Pb);
628 BVEX4Pa:BVEXPh, ANGLE:=+ABVEXP/2, E1:=+ABVEXP/2, FINT:=0.5, FINTX:=0;
629 BVEX4Pb:BVEXPh, ANGLE:=+ABVEXP/2, E2:=+ABVEXP/2, FINT:=0, FINTX:=0.5;
630 BVEX4Ps:LINE=(BVEX4Pa,BVEX4Pb);
631 WEX1h:sbend, L:=LWEX/2, ANGLE:=0;
632 WEX2h:sbend, L:=LWEX/2, ANGLE:=0;
633 WEX1s:LINE=(2*WEX1h);
634 WEX2s:LINE=(2*WEX2h);
635 BLEX1h:sbend, L:=LBLEX/2, ANGLE:=0, TILT=PI/2.;
636 BLEX2h:sbend, L:=LBLEX/2, ANGLE:=0, TILT=PI/2.;
637 BLEX3h:sbend, L:=LBLEX/2, ANGLE:=0, TILT=PI/2.;
638 BLEX4h:sbend, L:=LBLEX/2, ANGLE:=0, TILT=PI/2.;
639 BLEX1s:LINE=(2*BLEX1h);
640 BLEX2s:LINE=(2*BLEX2h);
641 BLEX3s:LINE=(2*BLEX3h);
642 BLEX4s:LINE=(2*BLEX4h);
643 QFEX1As:quadrupole, L:=LQFEX1A/2, K1:=BQFEX1A*Bscl/RQFEX1A/BRHO,
644aperture:=RQFEX1A;
645 QFEX1Bs:quadrupole, L:=LQFEX1B/2, K1:=BQFEX1B*Bscl/RQFEX1B/BRHO,
646aperture:=RQFEX1B;
647 QFEX1Cs:quadrupole, L:=LQFEX1C/2, K1:=BQFEX1C*Bscl/RQFEX1C/BRHO,
648aperture:=RQFEX1C;
649 QDEX2As:quadrupole, L:=LQDEX2A/2, K1:=BQDEX2A*Bscl/RQDEX2A/BRHO,
650aperture:=RQDEX2A;
651 QDEX2Bs:quadrupole, L:=LQDEX2B/2, K1:=BQDEX2B*Bscl/RQDEX2B/BRHO,
652aperture:=RQDEX2B;
653 QDEX2Cs:quadrupole, L:=LQDEX2C/2, K1:=BQDEX2C*Bscl/RQDEX2C/BRHO,
654aperture:=RQDEX2C;
655 QFEX3As:quadrupole, L:=LQFEX3A/2, K1:=BQFEX3A*Bscl/RQFEX3A/BRHO,
656aperture:=RQFEX3A;
657 QFEX3Bs:quadrupole, L:=LQFEX3B/2, K1:=BQFEX3B*Bscl/RQFEX3B/BRHO,
658aperture:=RQFEX3B;
659 QFEX3Cs:quadrupole, L:=LQFEX3C/2, K1:=BQFEX3C*Bscl/RQFEX3C/BRHO,
660aperture:=RQFEX3C;
661 QDEX4As:quadrupole, L:=LQDEX4A/2, K1:=BQDEX4A*Bscl/RQDEX4A/BRHO,
662aperture:=RQDEX4A;
663 QDEX4Bs:quadrupole, L:=LQDEX4B/2, K1:=BQDEX4B*Bscl/RQDEX4B/BRHO,
664aperture:=RQDEX4B;
665 QDEX4Cs:quadrupole, L:=LQDEX4C/2, K1:=BQDEX4C*Bscl/RQDEX4C/BRHO,
666aperture:=RQDEX4C;
667 QDEX4Ds:quadrupole, L:=LQDEX4D/2, K1:=BQDEX4D*Bscl/RQDEX4D/BRHO,
668aperture:=RQDEX4D;
669 QFEX5s:quadrupole, L:=LQFEX5/2, K1:=BQFEX5*Bscl/RQFEX5/BRHO,
670aperture:=RQFEX5;
671 QDEX6As:quadrupole, L:=LQDEX6A/2, K1:=BQDEX6A*Bscl/RQDEX6A/BRHO,
672aperture:=RQDEX6A;
673 QDEX6Bs:quadrupole, L:=LQDEX6B/2, K1:=BQDEX6B*Bscl/RQDEX6B/BRHO,
674aperture:=RQDEX6B;
675 QDEX6Cs:quadrupole, L:=LQDEX6C/2, K1:=BQDEX6C*Bscl/RQDEX6C/BRHO,
676aperture:=RQDEX6C;
677 QFEX7As:quadrupole, L:=LQFEX7A/2, K1:=BQFEX7A*Bscl/RQFEX7A/BRHO,
678aperture:=RQFEX7A;
679 QFEX7Bs:quadrupole, L:=LQFEX7B/2, K1:=BQFEX7B*Bscl/RQFEX7B/BRHO,
680aperture:=RQFEX7B;
681 QFEX7Cs:quadrupole, L:=LQFEX7C/2, K1:=BQFEX7C*Bscl/RQFEX7C/BRHO,
682aperture:=RQFEX7C;
683 BEGEDL1:marker;
684 ENDEDL1:marker;
685 EDL1:LINE=( BEGEDL1,
686 MIP,
687 SOLEXA, VKEX1,  SOLEXB,
688                 DEX1,   VKEX2, 
689 2*QFEX1As, DEXQ1A,
690 2*QFEX1Bs, DEXQ1B,
691 2*QFEX1Cs, DEXQ1C,
692 2*QDEX2As, DEXQ2A,
693 2*QDEX2Bs, DEXQ2B,
694 2*QDEX2Cs, DEXQ2C,
695 2*QFEX3As, DEXQ3A,
696 2*QFEX3Bs, DEXQ3B,
697 2*QFEX3Cs, DEXQ3C,
698 2*QDEX4As, DEXQ4A,
699 2*QDEX4Bs, DEXQ4B,
700 2*QDEX4Cs, DEXQ4C,
701 2*QDEX4Ds, DEXQ4D,
702 2*QFEX5s,  DEX2,   
703 BVEX1Es, DEXB1E,
704 BVEX2Es, DEXB2E,
705 BLEX1s,  DEXL1E,
706 WEX1s,   DEXW1E,
707 BLEX2s,  DEXL2E,
708 BVEX3Es, DEXB3E,
709 BVEX4Es, DEXB4E,
710 BVEX5Es, DEXB5E,
711 BVEX6Es, DEXB6E,
712 BLEX3s,  DEXL3E,
713 WEX2s,   DEXW2E,
714 BLEX4s,  DEXL4E,
715 BVEX7Es, DEXB7E,
716 BVEX8Es, DEX301, DEX302, DEX303, DEX304, DEX305, DEX306,
717 DEX307, DEX308, DEX309, DEX310, DEX311, DEX312,
718 DEX313, DEX314, DEX315,
719 BVEX1Ps, DEX401, DEX402, DEX403, DEX404, DEX405, DEX406,
720 DEX407, DEX408, DEX409, DEX410, DEX411, DEX412,
721 DEX413, DEX414, DEX415, DEX416, DEX417, DEX418,
722 BVEX2Ps, DEX501, DEX502, DEX503, DEX504, DEX505, MEXFOC,
723 DEX506, DEX507, DEX508, DEX509, DEX510,
724 BVEX3Ps, DEX601, DEX602, DEX603, DEX604, DEX605, DEX606,
725 DEX607, DEX608, DEX609, DEX610, DEX611, DEX612,
726 DEX613, DEX614, DEX615, DEX616, DEX617, DEX618,
727 BVEX4Ps, DEX701, DEX702,
728 2*QDEX6As, DEXQ6A,
729 2*QDEX6Bs, DEXQ6B,
730 2*QDEX6Cs, DEXQ6C,
731 2*QFEX7As, DEXQ7A,
732 2*QFEX7Bs, DEXQ7B,
733 2*QFEX7Cs, DEX801, DEX802, DEX803, DEX804, DEX805,
734 DEX806, DEX807, DEX808, DEX809, DEX810,
735 MEXDUMP,
736 ENDEDL1 );
737 RETURN;
Note: See TracBrowser for help on using the repository browser.