source: MML/trunk/machine/SOLEIL/StorageRing/Lattices/lowalpha/alpha1by20_maher.m_origin @ 4

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

Initial import--MML version from SOLEIL@2013

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