source: MML/trunk/machine/SOLEIL/StorageRing/Lattices/chasman_green_old.m @ 4

Last change on this file since 4 was 4, checked in by zhangj, 11 years ago

Initial import--MML version from SOLEIL@2013

File size: 15.7 KB
Line 
1function chasman_green
2%chasman_green - soleil lattice w/o ID
3% Lattice definition file
4% Lattice for SOLEIL: perfect lattice no magnetic errors
5% Compiled by Pascale Brunelle
6% 09/05/06, SOLEIL
7% Controlroom : set linearpass for quad (closed orbit)
8%               No cavity; modeldi
9No Radiation PassMethod
10
11global FAMLIST THERING GLOBVAL
12
13GLOBVAL.E0 = 2.75e9; % Ring energy
14GLOBVAL.LatticeFile = mfilename;
15FAMLIST = cell(0);
16
17disp(['** Loading SOLEIL magnet lattice ', mfilename]);
18
19L0 = 354.0967211999983;      % design length [m]
20C0 = 2.99792458e8;           % speed of light [m/s]
21HarmNumber = 416;
22
23%% Cavity
24%              NAME   L     U[V]       f[Hz]          h        method
25CAV = rfcavity('RF' , 0 , 4.0e+6 , HarmNumber*C0/L0, ...
26    HarmNumber ,'CavityPass');
27
28%% Marker and apertures
29SECT1  =  marker('SECT1', 'IdentityPass');
30SECT2  =  marker('SECT2', 'IdentityPass');
31SECT3  =  marker('SECT3', 'IdentityPass');
32SECT4  =  marker('SECT4', 'IdentityPass');
33DEBUT  =  marker('DEBUT', 'IdentityPass');
34FIN    =  marker('FIN', 'IdentityPass');
35
36INJ = aperture('INJ',[-0.035 0.035 -0.0125 0.0125],'AperturePass');
37
38%% Injection section
39PtINJ = marker('PtINJ', 'IdentityPass');
40K3 = marker('K3', 'IdentityPass');
41K4 = marker('K4', 'IdentityPass');
42   
43%% BPM
44BPM    =  marker('BPM', 'IdentityPass');
45
46%% DRIFT SPACES
47
48SD13= drift('SD13', 3.48255, 'DriftPass');
49SD1 = drift('SD1',  6.00000, 'DriftPass');
50SD1a = drift('SD1a',  1.4125, 'DriftPass');
51SD1b = drift('SD1b',  0.7575, 'DriftPass');
52SD1c = drift('SD1c',  3.002, 'DriftPass');
53SD2 = drift('SD2',  0.39000, 'DriftPass');
54SD3 = drift('SD3',  0.20000, 'DriftPass');
55SD4 = drift('SD4',  0.39000, 'DriftPass');
56SD14= drift('SD14', 0.59000, 'DriftPass');
57SD5 = drift('SD5',  0.20000, 'DriftPass');
58SD6 = drift('SD6',  0.79000, 'DriftPass');
59SD7 = drift('SD7',  0.44000, 'DriftPass');
60SD8 = drift('SD8',  0.20000, 'DriftPass');
61SD9 = drift('SD9',  0.47634, 'DriftPass');
62SD10= drift('SD10', 0.47000, 'DriftPass');
63SD12= drift('SD12', 0.47000, 'DriftPass');
64SDAC= drift('SDAC', 1.90468, 'DriftPass');
65
66% SD existantes et modifiï¿œes
67SD1d = drift('SD1d',  0.5170, 'DriftPass');
68SD14a = drift('SD14a', 0.4051, 'DriftPass');
69SD9a = drift('SD9a',  0.2243    , 'DriftPass');
70SD10a = drift('SD10a', 0.1924   , 'DriftPass');
71SDAC1 = drift('SDAC1', 1.48428  , 'DriftPass');
72SD13a= drift('SD13a', 3.141452  , 'DriftPass');
73SD1e = drift('SD1e',  5.6589, 'DriftPass');
74
75% SD crᅵᅵes
76SD91 = drift('SD91',  0.27134, 'DriftPass');
77SD41 = drift('SD41',  0.2521, 'DriftPass');
78SD42 = drift('SD42',  0.205, 'DriftPass');
79SD92 = drift('SD92',  0.2244, 'DriftPass');
80SD93 = drift('SD93',  0.2714    , 'DriftPass');
81SD43 = drift('SD43', 0.2051     , 'DriftPass');
82SD101 = drift('SD101', 0.2394, 'DriftPass');
83SD141 = drift('SD141', 0.452, 'DriftPass');
84
85SDB1 = drift('SDB1', 0.3111, 'DriftPass');
86SDB2 = drift('SDB2', 0.1849, 'DriftPass');
87SDB3 = drift('SDB3', 0.252,  'DriftPass');
88SDB4 = drift('SDB4', 0.2776 ,'DriftPass');
89SDB5 = drift('SDB5', 0.205  ,'DriftPass');
90SDB6 = drift('SDB6', 0.1379 ,'DriftPass');
91SDB7 = drift('SDB7', 0.185 , 'DriftPass');
92SDB8 = drift('SDB8', 0.252 , 'DriftPass');
93SDB9 = drift('SDB9', 0.1379 ,'DriftPass');
94SDB10= drift('SDB10',0.185 , 'DriftPass');
95SDB11= drift('SDB11',0.2519, 'DriftPass');
96SDB12= drift('SDB12',0.2049, 'DriftPass');
97SDB13= drift('SDB13',0.1379, 'DriftPass');
98SDB14= drift('SDB14',0.1849, 'DriftPass');
99SDB15= drift('SDB15',0.252 , 'DriftPass');
100SDB16= drift('SDB16',0.2306 , 'DriftPass');
101SDB17= drift('SDB17',0.205 , 'DriftPass');
102SDB18= drift('SDB18',0.138 , 'DriftPass');
103
104SDC1 = drift('SDC1' , 0.262 ,  'DriftPass');
105SDC2 = drift('SDC2' , 0.079 ,  'DriftPass');
106SDC3 = drift('SDC3' , 0.07845, 'DriftPass');
107SDC4 = drift('SDC4' , 0.3358,  'DriftPass');
108SDC5 = drift('SDC5' , 0.0846,  'DriftPass');
109SDC6 = drift('SDC6' , 0.079,   'DriftPass');
110SDC7 = drift('SDC7' , 0.342 ,  'DriftPass');
111SDC8 = drift('SDC8' , 0.262 ,  'DriftPass');
112SDC9 = drift('SDC9' , 0.079  , 'DriftPass');
113SDC10= drift('SDC10',0.07845, 'DriftPass');
114SDC11= drift('SDC11',0.262  , 'DriftPass');
115SDC12= drift('SDC12',0.3358 , 'DriftPass');
116SDC13= drift('SDC13',0.0846 , 'DriftPass');
117SDC14= drift('SDC14',0.0788 , 'DriftPass');
118SDC15= drift('SDC15',0.3422 , 'DriftPass');
119SDC16= drift('SDC16',0.262  , 'DriftPass');
120SDC17= drift('SDC17',0.079  , 'DriftPass');
121SDC18= drift('SDC18',0.07845, 'DriftPass');
122SDC19= drift('SDC19',0.262  , 'DriftPass');
123SDC20= drift('SDC20',0.262  , 'DriftPass');
124SDC21= drift('SDC21',0.079  , 'DriftPass');
125
126
127%% QUADRUPOLES (compensation de l'effet des dï¿œfauts de focalisation des
128%% dipoles P. Brunelle 02/05/06)
129Q1   =  quadrupole('Q1' , 0.32,  -0.1208383E+01 , 'QuadLinearPass');
130Q2   =  quadrupole('Q2' , 0.46,   0.1733100E+01 , 'QuadLinearPass');
131Q3   =  quadrupole('Q3' , 0.32,  -0.6815000E+00 , 'QuadLinearPass');
132Q4   =  quadrupole('Q4' , 0.32,  -0.1410059E+01 , 'QuadLinearPass');
133Q5   =  quadrupole('Q5' , 0.32,  0.1852924E+01 , 'QuadLinearPass');
134Q6   =  quadrupole('Q6' , 0.32,  -0.1110955E+01 , 'QuadLinearPass');
135Q7   =  quadrupole('Q7' , 0.46,  0.2236893E+01 , 'QuadLinearPass');
136Q8   =  quadrupole('Q8' , 0.32,  -0.1666879E+01 , 'QuadLinearPass');
137Q9   =  quadrupole('Q9' , 0.32,  -0.1729959E+01 , 'QuadLinearPass');
138Q10  =  quadrupole('Q10', 0.32,  0.1923157E+01 , 'QuadLinearPass');
139
140
141%% SEXTUPOLES chromaticitï¿œs nulles dans TracyII
142%avec dï¿œfauts de focalisation des dipï¿œles
143%P. Brunelle 02/05/06
144F = 1e8;
145Finv = 1/F;
146
147S1  =  sextupole('S1' , Finv,  0.1839305e+1*F, 'StrMPoleSymplectic4Pass');
148S2  =  sextupole('S2' , Finv, -0.3764840e+1*F, 'StrMPoleSymplectic4Pass');
149S3  =  sextupole('S3' , Finv, -0.2292670e+1*F, 'StrMPoleSymplectic4Pass');
150S4  =  sextupole('S4' , Finv,  0.3706230e+1*F, 'StrMPoleSymplectic4Pass');
151S5  =  sextupole('S5' , Finv, -0.4649209e+1*F, 'StrMPoleSymplectic4Pass');
152S6  =  sextupole('S6' , Finv, 0.4300591e+1*F, 'StrMPoleSymplectic4Pass');
153S7  =  sextupole('S7' , Finv, -0.4641336e+1*F, 'StrMPoleSymplectic4Pass');
154S8  =  sextupole('S8' , Finv, 0.3730192e+1*F, 'StrMPoleSymplectic4Pass');
155S9  =  sextupole('S9' , Finv, -0.1947013e+1*F, 'StrMPoleSymplectic4Pass');
156S10 =  sextupole('S10', Finv, 0.1170339e+1*F, 'StrMPoleSymplectic4Pass');
157
158%% QT (P. Brunelle 27/04/06)
159QT    =  marker('QT', 'IdentityPass');
160
161%% Slow feedback correctors
162% HCOR =  corrector('HCOR',0.0,[0 0],'CorrectorPass');
163% VCOR =  corrector('VCOR',0.0,[0 0],'CorrectorPass');
164% COR = [HCOR VCOR];
165COR =  corrector('COR',0.0,[0 0],'CorrectorPass');
166
167%% Fast feedback correctors
168% FHCOR =  corrector('FHCOR',0.0,[0 0],'CorrectorPass');
169% FVCOR =  corrector('FVCOR',0.0,[0 0],'CorrectorPass');
170% FCOR = [FHCOR,FVCOR];
171FCOR =  corrector('FCOR',0.0,[0 0],'CorrectorPass');
172
173
174SX1   = [S1  COR  QT];
175SX2   = [S2  COR  QT];
176SX3   = [S3  COR  QT];
177SX4   = [S4  COR  QT];
178SX5   = [S5  COR  QT];
179SX6   = [S6  COR  QT];
180SX7   = [S7  COR  QT];
181SX8   = [S8  COR  QT];
182SX9   = [S9  COR  QT];
183SX10  = [S10 COR  QT];
184
185%% DIPOLES
186 %BEND  =  rbend('BEND'  , 1.05243,  ...
187  % 0.19635, 0.098175, 0.098175, 0.0,'BendLinearPass');
188
189%% DIPOLES
190% {** 1.3815 factor to fit with BETA ??? strange **}
191%theta = 2*pi/32;
192%fullgap = 0.105*0.724*2/6*1.3815*0.;
193% BEND  =  rbend2('BEND', L, theta, theta/2, theta/2, 0.0, ...
194%                 fullgap,'BendLinearFringeTiltPass');
195theta = 2*pi/32;
196theta2 = 2*pi/32/2;
197thetae = 2*pi/32/2-0.6e-3*1;
198thetas = 2*pi/32/2+0.9e-3*1;
199K = 0.00204*1;
200fullgap = 0.037*0.724*2*1;
201BEND  =  rbend2('BEND', 1.05243, theta, thetae, thetas, K,fullgap,'BendLinearPass');
202
203
204%% Lattice
205% Superperiods
206
207SUP1  = [...
208    SD1a   PtINJ   SD1b    K3    SD1c   K4     SD1d ...
209    BPM  SDB1   Q1     SD2    SX1   SD3     Q2 ...
210    SDB2  BPM    SD14a   Q3      SD5    SX2    SD6 ... 
211    BEND    SD7     Q4  SD8     SX3    ...
212    SDB3  BPM     SD9a   Q5     SD12  SX4 ...   
213    SDB4  BPM     SD10a    Q5     SD91     ...
214    BPM  SDB5  SX3    SD8   Q4      SD7     BEND ...   
215    SD7     Q6      SD5    SX5     SD41    ...
216    BPM  SDB6  Q7    SD3     SX6      SD2     Q8 ...   
217    SDC1 FCOR SDC2   BPM    SD13a  SD13a BPM ...
218    SDC3    FCOR   SDC1 ...
219    Q8      SD2    SX8     SD3    Q7  SDB7 ...   
220    BPM   SD42     SX7      SD5     Q6     SD7 ...   
221    BEND   SD7    Q9    SD8     SX9  SDB8 ...
222    BPM     SD9a    Q10    SD8     SX10  SDC4  ...
223    FCOR SDC5  BPM   SDAC1    SDAC1 ...
224    BPM   SDC6  FCOR  SDC7 SX10    SD8    Q10    SD91 ...   
225    BPM   SD42  SX9      SD8     Q9     SD7    ...
226    BEND   SD7    Q6    SD5     SX7    SD41   ...   
227    BPM  SDB9  Q7      SD3    SX8    SD2   Q8 SDC8 ...     
228    FCOR  SDC9  BPM     SD13a SD13a  ...
229    BPM  SDC10   FCOR  SDC11  Q8     SD2   SX8   SD3   Q7 ...   
230    SDB10  BPM   SD42    SX7    SD5   Q6      SD7  ...   
231    BEND    SD7     Q9     SD8     SX9  SDB11    ...
232    BPM    SD92   Q10     SD8     SX10 SDC12 ...
233    FCOR  SDC13  BPM    SDAC1    SDAC1   ...
234    BPM  SDC14  FCOR   SDC15   SX10   SD8     Q10    SD93 ...   
235    BPM  SDB12  SX9    SD8   Q9      SD7 ...
236    BEND    SD7    Q6      SD5    SX7    SD41 ...   
237    BPM  SDB13   Q7      SD3    SX8     SD2    Q8  SDC16 ...     
238    FCOR SDC17  BPM    SD13a SD13a   ...
239    BPM   SDC18  FCOR  SDC19   Q8     SD2     SX6    SD3    Q7 ...   
240    SDB14  BPM    SD43    SX5     SD5    Q6      SD7    ...
241    BEND   SD7   Q4      SD8     SX3  SDB15 ...
242    BPM     SD9a   Q5      SD101   ...
243    BPM  SDB16  SX4   SD12    Q5     SD93 ...   
244    BPM  SDB17  SX3     SD8    Q4     SD7   ...
245    BEND    SD6     SX2      SD5     Q3     SD141 ...   
246    BPM  SDB18  Q2     SD3   SX1     SD2     Q1 ...
247    SDC20 FCOR  SDC21   BPM     SD1e  ];
248
249SUP2  = [  ...
250    SD1e  BPM SDC2 FCOR SDC1   ...
251    Q1     SD2    SX1   SD3     Q2 ...
252    SDB7  BPM    SD14a   Q3      SD5    SX2    SD6 ... 
253    BEND    SD7     Q4  SD8     SX3    ...
254    SDB3  BPM     SD9a   Q5     SD12  SX4 ...   
255    SDB4  BPM     SD10a    Q5     SD93     ...
256    BPM  SDB5  SX3    SD8   Q4      SD7     BEND ...   
257    SD7     Q6      SD5    SX5     SD41    ...
258    BPM  SDB6  Q7    SD3     SX6      SD2     Q8 ...   
259    SDC1 FCOR SDC2   BPM    SD13a  SD13a  BPM ...
260    SDC2    FCOR   SDC1 ...
261    Q8      SD2    SX8     SD3    Q7  SDB7 ...   
262    BPM   SDB5     SX7      SD5     Q6     SD7 ...   
263    BEND   SD7    Q9    SD8     SX9  SDB3 ...
264    BPM     SD9a    Q10    SD8     SX10  SDC4  ...
265    FCOR SDC5  BPM   SDAC1    SDAC1 ...
266    BPM   SDC14  FCOR  SDC15 SX10    SD8    Q10    SD93 ...   
267    BPM   SDB12  SX9      SD8     Q9     SD7    ...
268    BEND   SD7    Q6    SD5     SX7    SD41   ...   
269    BPM  SDB6  Q7      SD3    SX8    SD2   Q8 SDC1 ...     
270    FCOR  SDC2  BPM     SD13a  SD13a  ...
271    BPM  SDC2   FCOR  SDC1  Q8     SD2   SX8   SD3   Q7 ...   
272    SDB7  BPM   SDB5    SX7    SD5   Q6      SD7  ...   
273    BEND    SD7     Q9     SD8     SX9   SDB3    ...
274    BPM    SD9a   Q10     SD8     SX10  SDC4 ...
275    FCOR  SDC5  BPM    SDAC1    SDAC1   ...
276    BPM  SDC14  FCOR   SDC15   SX10   SD8     Q10    SD93 ...   
277    BPM  SDB12  SX9    SD8   Q9      SD7 ...
278    BEND    SD7    Q6      SD5    SX7    SD41 ...   
279    BPM  SDB6   Q7      SD3    SX8     SD2    Q8  SDC1 ...     
280    FCOR SDC2  BPM    SD13a   SD13a   ...
281    BPM   SDC2  FCOR  SDC1   Q8     SD2     SX6    SD3    Q7 ...   
282    SDB7  BPM    SD42    SX5     SD5    Q6      SD7    ...
283    BEND   SD7   Q4      SD8     SX3  SDB3 ...
284    BPM     SD9a   Q5      SD101   ...
285    BPM  SDB16  SX4   SD12    Q5     SD93 ...   
286    BPM  SD42  SX3     SD8    Q4     SD7   ...
287    BEND    SD6     SX2      SD5     Q3     SD141 ...   
288    BPM  SDB18  Q2     SD3   SX1     SD2     Q1 ...
289    SDC1 FCOR  SDC2   BPM     SD1e  ];
290
291SUP3  = [  ...
292    SD1e  BPM SDC2 FCOR SDC1   ...
293    Q1     SD2    SX1   SD3     Q2 ...
294    SDB7  BPM    SD14a   Q3      SD5    SX2    SD6 ... 
295    BEND    SD7     Q4  SD8     SX3    ...
296    SDB3  BPM     SD9a   Q5     SD12  SX4 ...   
297    SDB4  BPM     SD10a    Q5     SD93     ...
298    BPM  SDB5  SX3    SD8   Q4      SD7     BEND ...   
299    SD7     Q6      SD5    SX5     SD41    ...
300    BPM  SDB6  Q7    SD3     SX6      SD2     Q8 ...   
301    SDC1 FCOR SDC2   BPM    SD13a  SD13a  BPM ...
302    SDC2    FCOR   SDC1 ...
303    Q8      SD2    SX8     SD3    Q7  SDB7 ...   
304    BPM   SDB5     SX7      SD5     Q6     SD7 ...   
305    BEND   SD7    Q9    SD8     SX9  SDB3 ...
306    BPM     SD9a    Q10    SD8     SX10  SDC4  ...
307    FCOR SDC5  BPM   SDAC1    SDAC1 ...
308    BPM   SDC14  FCOR  SDC15 SX10    SD8    Q10    SD93 ...   
309    BPM   SDB12  SX9      SD8     Q9     SD7    ...
310    BEND   SD7    Q6    SD5     SX7    SD41   ...   
311    BPM  SDB6  Q7      SD3    SX8    SD2   Q8 SDC1 ...     
312    FCOR  SDC2  BPM     SD13a  SD13a  ...
313    BPM  SDC2   FCOR  SDC1  Q8     SD2   SX8   SD3   Q7 ...   
314    SDB7  BPM   SDB5    SX7    SD5   Q6      SD7  ...   
315    BEND    SD7     Q9     SD8     SX9   SDB3    ...
316    BPM    SD9a   Q10     SD8     SX10  SDC4 ...
317    FCOR  SDC5  BPM    SDAC1    SDAC1   ...
318    BPM  SDC14  FCOR   SDC15   SX10   SD8     Q10    SD93 ...   
319    BPM  SDB12  SX9    SD8   Q9      SD7 ...
320    BEND    SD7    Q6      SD5    SX7    SD41 ...   
321    BPM  SDB6   Q7      SD3    SX8     SD2    Q8  SDC1 ...     
322    FCOR SDC2  BPM    SD13a   SD13a   ...
323    BPM   SDC2  FCOR  SDC1   Q8     SD2     SX6    SD3    Q7 ...   
324    SDB7  BPM    SD42    SX5     SD5    Q6      SD7    ...
325    BEND   SD7   Q4      SD8     SX3  SDB3 ...
326    BPM     SD9a   Q5      SD101   ...
327    BPM  SDB16  SX4   SD12    Q5     SD93 ...   
328    BPM  SD42  SX3     SD8    Q4     SD7   ...
329    BEND    SD6     SX2      SD5     Q3     SD141 ...   
330    BPM  SDB18  Q2     SD3   SX1     SD2     Q1 ...
331    SDC1 FCOR  SDC2   BPM     SD1e  ];
332
333SUP4  = [  ...
334    SD1e  BPM SDC2 FCOR SDC1   ...
335    Q1     SD2    SX1   SD3     Q2 ...
336    SDB7  BPM    SD14a   Q3      SD5    SX2    SD6 ... 
337    BEND    SD7     Q4  SD8     SX3    ...
338    SDB3  BPM     SD9a   Q5     SD12  SX4 ...   
339    SDB4  BPM     SD10a    Q5     SD93     ...
340    BPM  SDB5  SX3    SD8   Q4      SD7     BEND ...   
341    SD7     Q6      SD5    SX5     SD41    ...
342    BPM  SDB6  Q7    SD3     SX6      SD2     Q8 ...   
343    SDC1 FCOR SDC2   BPM    SD13a  SD13a  BPM ...
344    SDC2    FCOR   SDC1 ...
345    Q8      SD2    SX8     SD3    Q7  SDB7 ...   
346    BPM   SDB5     SX7      SD5     Q6     SD7 ...   
347    BEND   SD7    Q9    SD8     SX9  SDB3 ...
348    BPM     SD9a    Q10    SD8     SX10  SDC4  ...
349    FCOR SDC5  BPM   SDAC1    SDAC1 ...
350    BPM   SDC14  FCOR  SDC15 SX10    SD8    Q10    SD93 ...   
351    BPM   SDB12  SX9      SD8     Q9     SD7    ...
352    BEND   SD7    Q6    SD5     SX7    SD41   ...   
353    BPM  SDB6  Q7      SD3    SX8    SD2   Q8 SDC1 ...     
354    FCOR  SDC2  BPM     SD13a  SD13a  ...
355    BPM  SDC2   FCOR  SDC1  Q8     SD2   SX8   SD3   Q7 ...   
356    SDB7  BPM   SDB5    SX7    SD5   Q6      SD7  ...   
357    BEND    SD7     Q9     SD8     SX9   SDB3    ...
358    BPM    SD9a   Q10     SD8     SX10  SDC4 ...
359    FCOR  SDC5  BPM    SDAC1    SDAC1   ...
360    BPM  SDC14  FCOR   SDC15   SX10   SD8     Q10    SD93 ...   
361    BPM  SDB12  SX9    SD8   Q9      SD7 ...
362    BEND    SD7    Q6      SD5    SX7    SD41 ...   
363    BPM  SDB6   Q7      SD3    SX8     SD2    Q8  SDC1 ...     
364    FCOR SDC2  BPM    SD13a   SD13a   ...
365    BPM   SDC2  FCOR  SDC1   Q8     SD2     SX6    SD3    Q7 ...   
366    SDB7  BPM    SD42    SX5     SD5    Q6      SD7    ...
367    BEND   SD7   Q4      SD8     SX3  SDB3 ...
368    BPM     SD9a   Q5      SD101   ...
369    BPM  SDB16  SX4   SD12    Q5     SD93 ...   
370    BPM  SD42  SX3     SD8    Q4     SD7   ...
371    BEND    SD6     SX2      SD5     Q3     SD141 ...   
372    BPM  SDB18  Q2     SD3   SX1     SD2     Q1 ...
373    SDC1 FCOR  SDC2   BPM     SD1e  ];
374
375
376ELIST = [DEBUT INJ SECT1 SUP1 SECT2 SUP2 SECT3 SUP3 SECT4 SUP4 CAV FIN];
377%ELIST = [DEBUT INJ SECT1 SUP1 SECT2 SUP2 SECT3 SUP3 SECT4 SUP4 FIN];
378
379buildlat(ELIST);
380
381% Set all magnets to same energy
382THERING = setcellstruct(THERING,'Energy',1:length(THERING),GLOBVAL.E0);
383
384evalin('caller','global THERING FAMLIST GLOBVAL');
385
386atsummary;
387
388if nargout
389    varargout{1} = THERING;
390end
Note: See TracBrowser for help on using the repository browser.