]> git.uio.no Git - u/mrichter/AliRoot.git/blob - STRUCT/AliDIPOv2.cxx
double declaration of theta_open1 removed
[u/mrichter/AliRoot.git] / STRUCT / AliDIPOv2.cxx
1 /**************************************************************************
2  * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
3  *                                                                        *
4  * Author: The ALICE Off-line Project.                                    *
5  * Contributors are mentioned in the code where appropriate.              *
6  *                                                                        *
7  * Permission to use, copy, modify and distribute this software and its   *
8  * documentation strictly for non-commercial purposes is hereby granted   *
9  * without fee, provided that the above copyright notice appears in all   *
10  * copies and that both the copyright notice and this permission notice   *
11  * appear in the supporting documentation. The authors make no claims     *
12  * about the suitability of this software for any purpose. It is          *
13  * provided "as is" without express or implied warranty.                  *
14  **************************************************************************/
15
16 /*
17 $Log$
18 Revision 1.6  1999/09/29 09:24:30  fca
19 Introduction of the Copyright and cvs Log
20
21 */
22
23 ///////////////////////////////////////////////////////////////////////////////
24 //                                                                           //
25 //  Magnetic Dipole version 1                                                //
26 //                                                                           //
27 //Begin_Html
28 /*
29 <img src="picts/AliDIPOv2Class.gif">
30 </pre>
31 <br clear=left>
32 <font size=+2 color=red>
33 <p>The responsible person for this module is
34 <a href="mailto:andreas.morsch@cern.ch">Andreas Morsch</a>.
35 </font>
36 <pre>
37 */
38 //End_Html
39 //                                                                           //
40 //                                                                           //
41 ///////////////////////////////////////////////////////////////////////////////
42
43 #include "AliDIPOv2.h"
44 #include "AliRun.h"
45 #include "AliConst.h"
46  
47 ClassImp(AliDIPOv2)
48  
49 //_____________________________________________________________________________
50 AliDIPOv2::AliDIPOv2()
51 {
52   //
53   // Default constructor for magnetic dipole version 2
54   //
55 }
56  
57 //_____________________________________________________________________________
58 AliDIPOv2::AliDIPOv2(const char *name, const char *title)
59   : AliDIPO(name,title)
60 {
61   //
62   // Standard constructor for the magnetic dipole version 2    
63    SetMarkerColor(7);
64    SetMarkerStyle(2);
65    SetMarkerSize(0.4);
66 }
67  
68 //_____________________________________________________________________________
69 void AliDIPOv2::CreateGeometry()
70 {
71   //
72   // Creation of the geometry of the magnetic DIPOLE version 2
73   //
74   //Begin_Html
75   /*
76     <img src="picts/AliDIPOv2Tree.gif">
77   */
78   //End_Html
79   //Begin_Html
80   /*
81     <img src="picts/AliDIPOv2.gif">
82   */
83   //End_Html
84
85   Float_t cpar[5], tpar[3], ypar[4];
86   Float_t dz, dx, dy;
87   Int_t idrotm[1899];
88   Float_t acc_max, the1, phi1, the2, phi2, the3, phi3;
89
90   Int_t *idtmed = fIdtmed->GetArray()-1799;
91   
92   //abs_d   = 90.;  // DEFINES DRIFT LENGTH 
93   //z_nose  = 102.;
94   //z_cone  = 285.;
95   //theta1  = 24.;  // 1. angle defining the front absorber 
96   //theta2  = 5.;   // 2. angle defining the front absorbe 
97   acc_max = 9.;   // ANGLE POLAIRE MAXIMUM 
98   //acc_min = 2.;   // ANGLE POLAIRE MINIMUM DE DETECTION 
99   //abs_l   = 503.;
100   //d_steel = 1.;   // THICKNESS OF STEEL SUPPORT 
101   //d_poly  = 7.5;
102   //d_pb    = 2.5;
103   //abs_cc  = 315.; // DEFINES LENGTH OF CARBON 
104   //abs_c   = 358.;
105   //abs_s   = 150.; // DEFINES W-SHIELD LENGTH 
106   //abs_n   = 80.;  // START OF NOSE 
107   //r_abs   = 4.;
108   //r_pb    = .1;
109   //epsilon = .01;
110   //theta_r = 3.;
111   //d_rear  = 35.;
112   //theta_open = .75;
113   
114   //z_l3      = 700.;
115   //zmag_in   = 725.;
116   //zmag_out  = 1225.;
117   //zfil_in   = 1471.;
118   //zfil_out  = 1591.;
119   //zcon_in   = 1900.;
120   //zcon_out  = 2e3;
121   //zcone_e   = 859.0875;
122   //spec_l    = 1800.;
123   //zplug_in  = 1780.;
124   //zplug_out = 1900.;
125   
126   //     Chamber position 
127   //      CZ1=515.5 
128   //cz1 = 511.;
129   //cz2 = 686.;
130   //cz3 = 971.;
131   //cz4 = 1245.;
132   //cz5 = 1445.;
133   //cz6 = 1610.;
134   //cz7 = 1710.;
135   
136   
137   //       DIPOLE MAGNET 
138   
139   tpar[0] = 300.;
140   tpar[1] = 415.;
141   tpar[2] = 250.;
142   gMC->Gsvolu("DDIP", "BOX ", idtmed[1814], tpar, 3);
143   
144   //       COILS 
145   
146   // air - m.f. 
147   cpar[0] = 210.;
148   cpar[1] = 263.;
149   cpar[2] = 83.2/2.;
150   cpar[3] = 120.;
151   cpar[4] = 240.;
152   gMC->Gsvolu("DC1 ", "TUBS", idtmed[1813], cpar, 5);
153   cpar[3] = -60.;
154   cpar[4] = 60.;
155   gMC->Gsvolu("DC2 ", "TUBS", idtmed[1813], cpar, 5);
156   // ... define regions for higher cuts 
157   cpar[0] += 10.;
158   cpar[1] += -10.;
159   cpar[2] += -10.;
160   cpar[3]  = 120.;
161   cpar[4]  = 240.;
162   gMC->Gsvolu("DC3 ", "TUBS", idtmed[1833], cpar, 5);
163   gMC->Gspos("DC3 ", 1, "DC1 ", 0., 0., 0., 0, "ONLY");
164   cpar[3] = -60.;
165   cpar[4] = 60.;
166   gMC->Gsvolu("DC4 ", "TUBS", idtmed[1833], cpar, 5);
167   gMC->Gspos("DC4 ", 1, "DC2 ", 0., 0., 0., 0, "ONLY");
168   // ... 
169   dz = 83.2/2. - 250.;
170   gMC->Gspos("DC1 ", 1, "DDIP", 0., 0.,  dz, 0, "ONLY");
171   gMC->Gspos("DC1 ", 2, "DDIP", 0., 0., -dz, 0, "ONLY");
172   gMC->Gspos("DC2 ", 1, "DDIP", 0., 0.,  dz, 0, "ONLY");
173   gMC->Gspos("DC2 ", 2, "DDIP", 0., 0., -dz, 0, "ONLY");
174   the1 = 180.;
175   phi1 = 0.;
176   the2 = 90.;
177   phi2 = 150.;
178   the3 = 90.;
179   phi3 = 60.;
180   AliMatrix(idrotm[1800], the1, phi1, the2, phi2, the3, phi3);
181   phi2 = 30.;
182   the3 = -90.;
183   phi3 = -60.;
184   AliMatrix(idrotm[1801], the1, phi1, the2, phi2, the3, phi3);
185   the1 = 0.;
186   phi1 = 0.;
187   the2 = 90.;
188   phi2 = 150.;
189   the3 = 90.;
190   phi3 = 60.;
191   AliMatrix(idrotm[1802], the1, phi1, the2, phi2, the3, phi3);
192   phi2 = 30.;
193   the3 = -90.;
194   phi3 = -60.;
195   AliMatrix(idrotm[1803], the1, phi1, the2, phi2, the3, phi3);
196   cpar[0] = 25.;
197   cpar[1] = 108.2;
198   cpar[2] = 26.5;
199   cpar[3] = 270.;
200   cpar[4] = 360.;
201   gMC->Gsvolu("DC11", "TUBS", idtmed[1813], cpar, 5);
202   // ... higher cuts 
203   cpar[0] += 10.;
204   cpar[1] += -10.;
205   cpar[2] += -10.;
206   gMC->Gsvolu("DC21", "TUBS", idtmed[1833], cpar, 5);
207   gMC->Gspos("DC21", 1, "DC11", 0., 0., 0., 0, "ONLY");
208   // ... 
209   dx = TMath::Sin(30*kDegrad) * -236.5;
210   dy = TMath::Cos(30*kDegrad) * -236.5;
211   dz = cpar[1] + 10. - 250.;
212   gMC->Gspos("DC11", 1, "DDIP",  dx, dy,  dz, idrotm[1800], "ONLY");
213   gMC->Gspos("DC11", 2, "DDIP",  dx, dy, -dz, idrotm[1802], "ONLY");
214   gMC->Gspos("DC11", 3, "DDIP", -dx, dy,  dz, idrotm[1801], "ONLY");
215   gMC->Gspos("DC11", 4, "DDIP", -dx, dy, -dz, idrotm[1803], "ONLY");
216   cpar[0] = 25.;
217   cpar[1] = 25.+83.2;
218   cpar[2] = 53./2.;
219   cpar[3] = 0.;
220   cpar[4] = 90.;
221   gMC->Gsvolu("DC12", "TUBS", idtmed[1813], cpar, 5);
222   // ... higher cuts 
223   cpar[0] += 10.;
224   cpar[1] += -10.;
225   cpar[2] += -10.;
226   gMC->Gsvolu("DC22", "TUBS", idtmed[1833], cpar, 5);
227   gMC->Gspos("DC22", 1, "DC12", 0., 0., 0., 0, "ONLY");
228   // ... 
229   dx = TMath::Sin(30*kDegrad) * -236.5;
230   dy = TMath::Cos(30*kDegrad) * 236.5;
231   dz = cpar[1] + 10. - 250.;
232   gMC->Gspos("DC12", 1, "DDIP",  dx, dy,  dz, idrotm[1801], "ONLY");
233   gMC->Gspos("DC12", 2, "DDIP",  dx, dy, -dz, idrotm[1803], "ONLY");
234   gMC->Gspos("DC12", 3, "DDIP", -dx, dy,  dz, idrotm[1800], "ONLY");
235   gMC->Gspos("DC12", 4, "DDIP", -dx, dy, -dz, idrotm[1802], "ONLY");
236   the1 = 90.;
237   phi1 = 60.;
238   the2 = 90.;
239   phi2 = 150.;
240   the3 = 0.;
241   phi3 = 0.;
242   AliMatrix(idrotm[1804], the1, phi1, the2, phi2, the3, phi3);
243   the1 = 90.;
244   phi1 = 120.;
245   the2 = 90.;
246   phi2 = 210.;
247   the3 = 0.;
248   phi3 = 0.;
249   AliMatrix(idrotm[1805], the1, phi1, the2, phi2, the3, phi3);
250   tpar[0] = 53./2.;
251   tpar[1] = 83.2/2.;
252   tpar[2] = 283.6/2.;
253   gMC->Gsvolu("DL1 ", "BOX ", idtmed[1813], tpar, 3);
254   // ... higher cuts 
255   tpar[0] -= 10.;
256   tpar[1] -= 10.;
257   gMC->Gsvolu("DL2 ", "BOX ", idtmed[1833], tpar, 3);
258   gMC->Gspos("DL2 ", 1, "DL1 ", 0., 0., 0., 0, "ONLY");
259   // ... 
260   dx = -60.5;
261   dy = -238.;
262   dz = 0.;
263   gMC->Gspos("DL1 ", 1, "DDIP", dx,  dy, dz, idrotm[1804], "ONLY");
264   gMC->Gspos("DL1 ", 2, "DDIP", dx, -dy, dz, idrotm[1805], "ONLY");
265   gMC->Gspos("DL1 ", 3, "DDIP",-dx,  dy, dz, idrotm[1805], "ONLY");
266   gMC->Gspos("DL1 ", 4, "DDIP",-dx, -dy, dz, idrotm[1804], "ONLY");
267   
268   //   YOKE 
269   
270   ypar[1] = 275.8;
271   ypar[2] = 5.;
272   ypar[3] = 156.8;
273   ypar[0] = ypar[1] - ypar[3] * 2. * TMath::Tan(acc_max * kDegrad);
274   gMC->Gsvolu("DY1 ", "TRD1", idtmed[1809], ypar, 4);
275   // iron - 
276   dy = 283.5;
277   dy = 279;
278   gMC->Gspos("DY1 ", 1, "DDIP", 0.,  dy, 0., 0, "ONLY");
279   gMC->Gspos("DY1 ", 2, "DDIP", 0., -dy, 0., 0, "ONLY");
280   ypar[2] = 60.;
281   gMC->Gsvolu("DY2 ", "TRD1", idtmed[1829], ypar, 4);
282   // iron - 
283   dy = ypar[2] + 284.;
284   gMC->Gspos("DY2 ", 1, "DDIP", 0.,  dy, 0., 0, "ONLY");
285   gMC->Gspos("DY2 ", 2, "DDIP", 0., -dy, 0., 0, "ONLY");
286   the1 = 99.;
287   phi1 = 0.;
288   the2 = 90.;
289   phi2 = 90.;
290   the3 = 9.;
291   phi3 = 0.;
292   AliMatrix(idrotm[1806], the1, phi1, the2, phi2, the3, phi3);
293   the1 = 261.;
294   phi1 = 0.;
295   the3 = 171.;
296   AliMatrix(idrotm[1807], the1, phi1, the2, phi2, the3, phi3);
297   tpar[0] = 60.;
298   tpar[1] = 283.;
299   tpar[2] = 156.8;
300   gMC->Gsvolu("DYL ", "BOX ", idtmed[1814], tpar, 3);
301   tpar[0] = 5.;
302   tpar[1] = 73.;
303   gMC->Gsvolu("DY3 ", "BOX ", idtmed[1809], tpar, 3);
304   dx = tpar[0] - 60.;
305   dy = tpar[1] + 137.;
306   gMC->Gspos("DY3 ", 1, "DYL ", dx,  dy, 0., 0, "ONLY");
307   gMC->Gspos("DY3 ", 2, "DYL ", dx, -dy, 0., 0, "ONLY");
308   tpar[0] = 55.;
309   gMC->Gsvolu("DY4 ", "BOX ", idtmed[1829], tpar, 3);
310   dx = dx + 5. + tpar[0];
311   gMC->Gspos("DY4 ", 1, "DYL ", dx,  dy, 0., 0, "ONLY");
312   gMC->Gspos("DY4 ", 2, "DYL ", dx, -dy, 0., 0, "ONLY");
313   tpar[0] = 37.7;
314   tpar[1] = 137.;
315   gMC->Gsvolu("DY5 ", "BOX ", idtmed[1829], tpar, 3);
316   dx = 60. - tpar[0];
317   gMC->Gspos("DY5 ", 1, "DYL ", dx, 0., 0., 0, "ONLY");
318   tpar[0] = 5.;
319   gMC->Gsvolu("DY6 ", "BOX ", idtmed[1809], tpar, 3);
320   dx = dx - 37.7 - tpar[0];
321   gMC->Gspos("DY6 ", 1, "DYL ", dx, 0., 0., 0, "ONLY");
322   tpar[0] = 17.3;
323   tpar[1] = 5.;
324   gMC->Gsvolu("DY7 ", "BOX ", idtmed[1809], tpar, 3);
325   dx = tpar[0] - 60.;
326   dy = tpar[1] + 127.;
327   gMC->Gspos("DY7 ", 1, "DYL ", dx,  dy, 0., 0, "ONLY");
328   gMC->Gspos("DY7 ", 2, "DYL ", dx, -dy, 0., 0, "ONLY");
329   
330   dx = ypar[0] + ypar[3] * TMath::Tan(acc_max * kDegrad) - 60.;
331   gMC->Gspos("DYL ", 1, "DDIP", dx, 0., 0., idrotm[1806], "ONLY");
332   gMC->Gspos("DYL ", 2, "DDIP",-dx, 0., 0., idrotm[1807], "ONLY");
333   gMC->Gspos("DDIP", 1, "ALIC", 0., 0., 725.+250., 0, "MANY");
334   gMC->Gsatt("DDIP", "SEEN", 0);
335   gMC->Gsatt("DC21", "SEEN", 0);
336   gMC->Gsatt("DC22", "SEEN", 0);
337   gMC->Gsatt("DC3 ", "SEEN", 0);
338   gMC->Gsatt("DC4 ", "SEEN", 0);
339 }
340
341 //_____________________________________________________________________________
342 void AliDIPOv2::DrawModule()
343 {
344   //
345   // Draw a shaded view of the muon absorber
346   //
347
348   // Set everything unseen
349   gMC->Gsatt("*", "seen", -1);
350   // 
351   // Set ALIC mother transparent
352   gMC->Gsatt("ALIC","SEEN",0);
353   //
354   // Set the volumes visible
355   gMC->Gsatt("DDIP","seen",0);
356   gMC->Gsatt("DC1 ","seen",1);
357   gMC->Gsatt("DC2 ","seen",1);
358   gMC->Gsatt("DC3 ","seen",1);
359   gMC->Gsatt("DC4 ","seen",1);
360   gMC->Gsatt("DC11","seen",1);
361   gMC->Gsatt("DC21","seen",1);
362   gMC->Gsatt("DC12","seen",1);
363   gMC->Gsatt("DC22","seen",1);
364   gMC->Gsatt("DL1 ","seen",1);
365   gMC->Gsatt("DL2 ","seen",1);
366   gMC->Gsatt("DY1 ","seen",1);
367   gMC->Gsatt("DY2 ","seen",1);
368   gMC->Gsatt("DYL ","seen",1);
369   gMC->Gsatt("DY3 ","seen",1);
370   gMC->Gsatt("DY4 ","seen",1);
371   gMC->Gsatt("DY5 ","seen",1);
372   gMC->Gsatt("DY6 ","seen",1);
373   gMC->Gsatt("DY7 ","seen",1);
374   //
375   gMC->Gdopt("hide", "on");
376   gMC->Gdopt("shad", "on");
377   gMC->Gsatt("*", "fill", 7);
378   gMC->SetClipBox(".");
379   gMC->SetClipBox(".");
380   gMC->DefaultRange();
381   gMC->Gdraw("alic", 30, 30, 0, 17, 13.5, .019, .019);
382   gMC->Gdhead(1111, "Magnetic Dipole Version 2");
383   gMC->Gdman(16, 4, "MAN");
384 }
385
386 //_____________________________________________________________________________
387 void AliDIPOv2::CreateMaterials()
388 {
389   //
390   // Create Materials for Magnetic Dipole version 2
391   //
392   
393   Int_t ISXFLD   = gAlice->Field()->Integ();
394   Float_t SXMGMX = gAlice->Field()->Max();
395   
396   Float_t asteel[4] = { 55.847,51.9961,58.6934,28.0855 };
397   Float_t zsteel[4] = { 26.,24.,28.,14. };
398   Float_t wsteel[4] = { .715,.18,.1,.005 };
399   Float_t acoil[3]  = { 26.98,1.01,16. };
400   Float_t zcoil[3]  = { 13.,1.,8. };
401   Float_t wcoil[3]  = { .66,.226,.114 };
402   
403   Float_t epsil, stmin, deemax, tmaxfd, stemax;
404   
405   // --- Define the various materials for GEANT --- 
406   //     Aluminum 
407   AliMaterial(9, "ALUMINIUM$", 26.98, 13., 2.7, 8.9, 37.2);
408   AliMaterial(29, "ALUMINIUM$", 26.98, 13., 2.7, 8.9, 37.2);
409   AliMaterial(49, "ALUMINIUM$", 26.98, 13., 2.7, 8.9, 37.2);
410   
411   //     Iron 
412   AliMaterial(10, "IRON$     ", 55.85, 26., 7.87, 1.76, 17.1);
413   AliMaterial(30, "IRON$     ", 55.85, 26., 7.87, 1.76, 17.1);
414   AliMaterial(50, "IRON$     ", 55.85, 26., 7.87, 1.76, 17.1);
415   
416   //     Air 
417   AliMaterial(15, "AIR$      ", 14.61, 7.3, .001205, 30423.24, 67500);
418   AliMaterial(35, "AIR$      ", 14.61, 7.3, .001205, 30423.24, 67500);
419   AliMaterial(55, "AIR$      ", 14.61, 7.3, .001205, 30423.24, 67500);
420   
421   //     Vacuum 
422   AliMaterial(16, "VACUUM$ ", 1e-16, 1e-16, 1e-16, 1e16, 1e16);
423   AliMaterial(36, "VACUUM$ ", 1e-16, 1e-16, 1e-16, 1e16, 1e16);
424   AliMaterial(56, "VACUUM$ ", 1e-16, 1e-16, 1e-16, 1e16, 1e16);
425   
426   //     stainless Steel 
427   AliMixture(19, "STAINLESS STEEL$", asteel, zsteel, 7.88, 4, wsteel);
428   AliMixture(39, "STAINLESS STEEL$", asteel, zsteel, 7.88, 4, wsteel);
429   AliMixture(59, "STAINLESS STEEL$", asteel, zsteel, 7.88, 4, wsteel);
430   
431   //     Coil 
432   AliMixture(14, "Al$", acoil, zcoil, 2.122, 3, wcoil);
433   AliMixture(34, "Al$", acoil, zcoil, 2.122, 3, wcoil);
434   AliMixture(54, "Al$", acoil, zcoil, 2.122, 3, wcoil);
435   
436   // **************** 
437   //     Defines tracking media parameters. 
438   //     Les valeurs sont commentees pour laisser le defaut 
439   //     a GEANT (version 3-21, page CONS200), f.m. 
440   epsil  = .001;  // Tracking precision, 
441   stemax = -1.;   // Maximum displacement for multiple scat 
442   tmaxfd = -20.;  // Maximum angle due to field deflection 
443   deemax = -.3;   // Maximum fractional energy loss, DLS 
444   stmin  = -.8;
445   // *************** 
446   
447   //    Aluminum 
448   AliMedium(9, "ALU_C0          ",  9, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
449   AliMedium(29, "ALU_C1          ", 29, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
450   AliMedium(49, "ALU_C2          ", 49, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
451   
452   //    Iron 
453   AliMedium(10, "FE_C0           ", 10, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
454   AliMedium(30, "FE_C1           ", 30, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
455   AliMedium(50, "FE_C2           ", 50, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
456   
457   //    Air 
458   AliMedium(15, "AIR_C0          ", 15, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
459   AliMedium(35, "AIR_C1          ", 35, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
460   AliMedium(55, "AIR_C2          ", 55, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
461   
462   //    Vacuum 
463   AliMedium(16, "VA_C0           ", 16, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
464   AliMedium(36, "VA_C1           ", 36, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
465   AliMedium(56, "VA_C2           ", 56, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
466   
467   //    Steel 
468   AliMedium(19, "ST_C0           ", 19, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
469   AliMedium(39, "ST_C1           ", 39, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
470   AliMedium(59, "ST_C3           ", 59, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
471   
472   //    Coil 
473   AliMedium(14, "Coil_C1         ", 14, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
474   AliMedium(34, "Coil_C2         ", 34, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
475   AliMedium(54, "Coil_C3         ", 54, 0, ISXFLD, SXMGMX, tmaxfd, stemax, deemax, epsil, stmin);
476 }
477