Update of tracking code provided by Sergei
[u/mrichter/AliRoot.git] / TRD / AliTRDgeometryDetail.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.4  2002/03/28 14:59:07  cblume
19 Coding conventions
20
21 Revision 1.3  2002/02/11 14:21:16  cblume
22 Update of the geometry. Get rid of MANY
23
24 Revision 1.2  2001/11/08 13:13:08  cblume
25 Change to MANY for UCFI/M/O and UAFI/M/O
26
27 Revision 1.1  2001/11/06 17:19:41  cblume
28 Add detailed geometry and simple simulator
29
30 */
31
32 ///////////////////////////////////////////////////////////////////////////////
33 //                                                                           //
34 //  Detailed TRD geometry for the spaceframe without holes                   //
35 //                                                                           //
36 ///////////////////////////////////////////////////////////////////////////////
37
38 #include "AliMC.h"
39
40 #include "AliTRDgeometryDetail.h"
41 #include "AliTRDparameter.h"
42
43 ClassImp(AliTRDgeometryDetail)
44
45 //_____________________________________________________________________________
46 AliTRDgeometryDetail::AliTRDgeometryDetail():AliTRDgeometryFull()
47 {
48   //
49   // AliTRDgeometryDetail default constructor
50   //
51
52   Init();
53
54 }
55
56 //_____________________________________________________________________________
57 AliTRDgeometryDetail::~AliTRDgeometryDetail()
58 {
59   //
60   // AliTRDgeometryDetail destructor
61   //
62
63 }
64
65 //_____________________________________________________________________________
66 void AliTRDgeometryDetail::Init()
67 {
68   //
69   // Initializes the geometry parameter
70   //
71
72   AliTRDgeometryFull::Init();
73
74 }
75
76 //_____________________________________________________________________________
77 void AliTRDgeometryDetail::CreateGeometry(Int_t *idtmed)
78 {
79   //
80   // Create the detailed TRD geometry without hole
81   // including the MCMs and the cooling pipes
82   //
83   //
84   // Names of the TRD volumina (xx = detector number):
85   //
86   //      Lower part of the readout chambers (gas volume + radiator)
87   //
88   //        UAxx    Aluminum frames             (Al)
89   //        UBxx    G10 frames                  (C)
90   //        UCxx    Inner volumes               (Air)
91   //
92   //      Upper part of the readout chambers (readout plane + fee)
93   //
94   //        UDxx    G10 frames                  (C)
95   //        UExx    Inner volumes of the G10    (Air)
96   //        UFxx    Aluminum frames             (Al)
97   //        UGxx    Inner volumes of the Al     (Air)
98   //
99   //      Inner material layers
100   //
101   //        UHxx    Radiator                    (Rohacell)
102   //        UIxx    Entrance window             (Mylar)
103   //        UJxx    Drift volume                (Xe/CO2)
104   //        UKxx    Amplification volume        (Xe/CO2)
105   //        ULxx    Pad plane                   (Cu)
106   //        UMxx    Support structure           (Rohacell)
107   //        UNxx    FEE + signal lines          (Cu)
108   //
109
110   const Int_t kNparTrd = 4;
111   const Int_t kNparCha = 3;
112
113   Float_t xpos, ypos, zpos;
114
115   Float_t parTrd[kNparTrd];
116   Float_t parCha[kNparCha];
117
118   Char_t  cTagV[5];
119   Char_t  cTagM[5];
120
121   Int_t   idrotm;
122
123   // Rotation matrix
124   gMC->Matrix(idrotm,  0.0,  0.0, 90.0, 90.0, 90.0,  0.0);
125
126   // The TRD mother volume for one sector (Air), full length in z-direction
127   parTrd[0] = fgkSwidth1/2.;
128   parTrd[1] = fgkSwidth2/2.;
129   parTrd[2] = fgkSlenTR1/2.;
130   parTrd[3] = fgkSheight/2.;
131   gMC->Gsvolu("UTR1","TRD1",idtmed[1302-1],parTrd,kNparTrd);
132
133   // Create the readout volumina
134   CreateReadout(idtmed);
135
136   // Create the volumina for the cooling
137   CreateCooling(idtmed);
138
139   for (Int_t icham = 0; icham < kNcham; icham++) {
140     for (Int_t iplan = 0; iplan < kNplan; iplan++) {  
141
142       Int_t iDet = GetDetectorSec(iplan,icham);
143
144       // The lower part of the readout chambers (gas volume + radiator) 
145       // The aluminum frames 
146       sprintf(cTagV,"UA%02d",iDet);
147       parCha[0] = fCwidth[iplan]/2.;
148       parCha[1] = fClength[iplan][icham]/2. - fgkHspace/2.;
149       parCha[2] = fgkCraH/2. + fgkCdrH/2.;
150       gMC->Gsvolu(cTagV,"BOX ",idtmed[1301-1],parCha,kNparCha);
151       // The G10 frames 
152       sprintf(cTagV,"UB%02d",iDet);
153       parCha[0] = fCwidth[iplan]/2. - fgkCalT; 
154       parCha[1] = -1.;
155       parCha[2] = -1.;
156       gMC->Gsvolu(cTagV,"BOX ",idtmed[1307-1],parCha,kNparCha);
157       // The inner part (air)
158       sprintf(cTagV,"UC%02d",iDet);
159       parCha[0] = fCwidth[iplan]/2. - fgkCalT - fgkCclsT; 
160       parCha[1] = fClength[iplan][icham]/2. - fgkHspace/2.- fgkCclfT;
161       parCha[2] = -1.;
162       gMC->Gsvolu(cTagV,"BOX ",idtmed[1302-1],parCha,kNparCha);
163
164       // The upper part of the readout chambers (readout plane + fee)
165       // The G10 frames
166       sprintf(cTagV,"UD%02d",iDet);
167       parCha[0] = fCwidth[iplan]/2. + fgkCroW;
168       parCha[1] = fClength[iplan][icham]/2. - fgkHspace/2.;
169       parCha[2] = fgkCamH/2.;
170       gMC->Gsvolu(cTagV,"BOX ",idtmed[1307-1],parCha,kNparCha);
171       // The inner part of the G10 frame (air)
172       sprintf(cTagV,"UE%02d",iDet);
173       parCha[0] = fCwidth[iplan]/2. + fgkCroW - fgkCcuT; 
174       parCha[1] = fClength[iplan][icham]/2. - fgkHspace/2.- fgkCcuT;
175       parCha[2] = -1.;
176       gMC->Gsvolu(cTagV,"BOX ",idtmed[1302-1],parCha,kNparCha);
177       // The aluminum frames
178       sprintf(cTagV,"UF%02d",iDet);
179       parCha[0] = fCwidth[iplan]/2. + fgkCroW;
180       parCha[1] = fClength[iplan][icham]/2. - fgkHspace/2.;
181       parCha[2] = fgkCroH/2.;
182       gMC->Gsvolu(cTagV,"BOX ",idtmed[1301-1],parCha,kNparCha);
183       // The inner part of the aluminum frames
184       sprintf(cTagV,"UG%02d",iDet);
185       parCha[0] = fCwidth[iplan]/2. + fgkCroW - fgkCauT; 
186       parCha[1] = fClength[iplan][icham]/2. - fgkHspace/2.- fgkCauT;
187       parCha[2] = -1.;
188       gMC->Gsvolu(cTagV,"BOX ",idtmed[1302-1],parCha,kNparCha);
189
190       // The material layers inside the chambers
191       parCha[0] = -1.;
192       parCha[1] = -1.;
193       // Rohacell layer (radiator)
194       parCha[2] = fgkRaThick/2;
195       sprintf(cTagV,"UH%02d",iDet);
196       gMC->Gsvolu(cTagV,"BOX ",idtmed[1315-1],parCha,kNparCha);
197       // Mylar layer (entrance window + HV cathode) 
198       parCha[2] = fgkMyThick/2;
199       sprintf(cTagV,"UI%02d",iDet);
200       gMC->Gsvolu(cTagV,"BOX ",idtmed[1308-1],parCha,kNparCha);
201       // Xe/Isobutane layer (drift volume) 
202       parCha[2] = fgkDrThick/2.;
203       sprintf(cTagV,"UJ%02d",iDet);
204       gMC->Gsvolu(cTagV,"BOX ",idtmed[1309-1],parCha,kNparCha);
205       // Xe/Isobutane layer (amplification volume)
206       parCha[2] = fgkAmThick/2.;
207       sprintf(cTagV,"UK%02d",iDet);
208       gMC->Gsvolu(cTagV,"BOX ",idtmed[1309-1],parCha,kNparCha);  
209       // Cu layer (pad plane)
210       parCha[2] = fgkCuThick/2;
211       sprintf(cTagV,"UL%02d",iDet);
212       gMC->Gsvolu(cTagV,"BOX ",idtmed[1305-1],parCha,kNparCha);
213       // G10 layer (support structure / honeycomb)
214       parCha[2] = fgkSuThick/2;
215       sprintf(cTagV,"UM%02d",iDet);
216       gMC->Gsvolu(cTagV,"BOX ",idtmed[1313-1],parCha,kNparCha);
217       // Cu layer (FEE + signal lines)
218       parCha[2] = fgkFeThick/2;
219       sprintf(cTagV,"UN%02d",iDet);
220       gMC->Gsvolu(cTagV,"BOX ",idtmed[1305-1],parCha,kNparCha);
221
222       // Position the layers in the chambers
223       xpos = 0;
224       ypos = 0;
225       // Lower part
226       // Rohacell layer (radiator)
227       zpos = fgkRaZpos;
228       sprintf(cTagV,"UH%02d",iDet);
229       sprintf(cTagM,"UC%02d",iDet);
230       gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
231       // Mylar layer (entrance window + HV cathode)   
232       zpos = fgkMyZpos;
233       sprintf(cTagV,"UI%02d",iDet);
234       sprintf(cTagM,"UC%02d",iDet);
235       gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
236       // Xe/Isobutane layer (drift volume) 
237       zpos = fgkDrZpos;
238       sprintf(cTagV,"UJ%02d",iDet);
239       sprintf(cTagM,"UC%02d",iDet);
240       gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
241       // Upper part
242       // Xe/Isobutane layer (amplification volume)
243       zpos = fgkAmZpos;
244       sprintf(cTagV,"UK%02d",iDet);
245       sprintf(cTagM,"UE%02d",iDet);
246       gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
247       // Readout part
248       // Cu layer (pad plane)
249       zpos = fgkCuZpos; 
250       sprintf(cTagV,"UL%02d",iDet);
251       sprintf(cTagM,"UG%02d",iDet);
252       gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
253       // G10 layer (support structure)
254       zpos = fgkSuZpos;
255       sprintf(cTagV,"UM%02d",iDet);
256       sprintf(cTagM,"UG%02d",iDet);
257       gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
258       // Cu layer (FEE + signal lines)
259       zpos = fgkFeZpos; 
260       sprintf(cTagV,"UN%02d",iDet);
261       sprintf(cTagM,"UG%02d",iDet);
262       gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
263
264       // Position the inner volumes of the chambers in the frames
265       xpos      = 0.0;
266       ypos      = 0.0;
267       zpos      = 0.0;
268       // The inside of the lower G10 frame
269       sprintf(cTagV,"UC%02d",iDet);
270       sprintf(cTagM,"UB%02d",iDet);
271       gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
272       // The lower G10 frame inside the aluminum frame
273       sprintf(cTagV,"UB%02d",iDet);
274       sprintf(cTagM,"UA%02d",iDet);
275       gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
276       // The inside of the upper G10 frame
277       sprintf(cTagV,"UE%02d",iDet);
278       sprintf(cTagM,"UD%02d",iDet);
279       gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
280       // The inside of the upper aluminum frame
281       sprintf(cTagV,"UG%02d",iDet);
282       sprintf(cTagM,"UF%02d",iDet);
283       gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");      
284
285       // Position the frames of the chambers in the TRD mother volume
286       xpos  = 0.;
287       ypos  = - fClength[iplan][0] - fClength[iplan][1] - fClength[iplan][2]/2.;
288       for (Int_t ic = 0; ic < icham; ic++) {
289         ypos += fClength[iplan][ic];        
290       }
291       ypos += fClength[iplan][icham]/2.;
292       zpos  = fgkCraH/2. + fgkCdrH/2. - fgkSheight/2. + iplan * (fgkCH + fgkVspace);
293       // The lower aluminum frame, radiator + drift region
294       sprintf(cTagV,"UA%02d",iDet);
295       gMC->Gspos(cTagV,1,"UTR1",xpos,ypos,zpos,0,"ONLY");
296       // The upper G10 frame, amplification region
297       sprintf(cTagV,"UD%02d",iDet);
298       zpos += fgkCamH/2. + fgkCraH/2. + fgkCdrH/2.;
299       gMC->Gspos(cTagV,1,"UTR1",xpos,ypos,zpos,0,"ONLY");
300       // The upper aluminum frame
301       sprintf(cTagV,"UF%02d",iDet);
302       zpos += fgkCroH/2. + fgkCamH/2.;
303       gMC->Gspos(cTagV,1,"UTR1",xpos,ypos,zpos,0,"ONLY");
304  
305       // Position the MCM volumina
306       PositionReadout(iplan,icham);
307
308       // Position the volumina for the cooling
309       PositionCooling(iplan,icham,idrotm);
310
311     }
312   }
313
314   xpos = 0.;
315   ypos = 0.;
316   zpos = 0.;
317   gMC->Gspos("UTR1",1,"BTR1",xpos,ypos,zpos,0,"ONLY");
318   gMC->Gspos("UTR1",2,"BTR2",xpos,ypos,zpos,0,"ONLY");
319   gMC->Gspos("UTR1",3,"BTR3",xpos,ypos,zpos,0,"ONLY");
320
321 }
322
323 //_____________________________________________________________________________
324 void AliTRDgeometryDetail::CreateReadout(Int_t *idtmed) const
325 {
326   //
327   // Create the volumina of the readout electronics
328   //
329
330   const Int_t   kNparBox    = 3;
331
332   Float_t parBox[kNparBox];
333   Float_t xpos = 0.0;
334   Float_t ypos = 0.0;
335   Float_t zpos = 0.0;
336
337   // The mother volume for the MCMs + connectors (air)
338   parBox[0] = 3.0/2.;
339   parBox[1] = 3.4/2.;
340   parBox[2] = 0.5/2.;
341   gMC->Gsvolu("UMCM","BOX",idtmed[1302-1],parBox,kNparBox);
342
343   // The MCM carrier G10 layer
344   parBox[0] = 3.0/2.;
345   parBox[1] = 3.0/2.;
346   parBox[2] = 0.1/2.;
347   gMC->Gsvolu("UMC1","BOX",idtmed[1319-1],parBox,kNparBox);
348   // The MCM carrier Cu layer
349   parBox[0] = 3.0/2.;
350   parBox[1] = 3.0/2.;
351   parBox[2] = 0.0034/2.;
352   gMC->Gsvolu("UMC2","BOX",idtmed[1318-1],parBox,kNparBox);
353   // The MCM carrier Sn layer
354   parBox[0] = 3.0/2.;
355   parBox[1] = 3.0/2.;
356   parBox[2] = 0.004/2.;
357   gMC->Gsvolu("UMC3","BOX",idtmed[1317-1],parBox,kNparBox);
358   // The MCM carrier Al layer
359   parBox[0] = 3.0/2.;
360   parBox[1] = 3.0/2.;
361   parBox[2] = 0.05/2.;
362   gMC->Gsvolu("UMC4","BOX",idtmed[1316-1],parBox,kNparBox);
363
364   // The epoxy of chip no.1
365   parBox[0] = 0.548/2.;
366   parBox[1] = 0.548/2.;
367   parBox[2] = 0.1/2.;
368   gMC->Gsvolu("UCE1","BOX",idtmed[1321-1],parBox,kNparBox);
369   // The silicon of chip no.1
370   parBox[0] = 0.316/2.;
371   parBox[1] = 0.316/2.;
372   parBox[2] = 0.03/2.;
373   gMC->Gsvolu("UCS1","BOX",idtmed[1320-1],parBox,kNparBox);
374
375   // The epoxy of chip no.2
376   parBox[0] = 1.549/2.;
377   parBox[1] = 1.549/2.;
378   parBox[2] = 0.1/2.;
379   gMC->Gsvolu("UCE2","BOX",idtmed[1321-1],parBox,kNparBox);
380   // The silicon of chip no.2
381   parBox[0] = 0.894/2.;
382   parBox[1] = 0.894/2.;
383   parBox[2] = 0.03/2.;
384   gMC->Gsvolu("UCS2","BOX",idtmed[1320-1],parBox,kNparBox);
385
386   // The PE of the connector
387   parBox[0] = 2.25/2.;
388   parBox[1] = 0.4/2.;
389   parBox[2] = 0.3/2.;
390   gMC->Gsvolu("UCN1","BOX",idtmed[1322-1],parBox,kNparBox);
391   // The Cu of the connector
392   parBox[0] = 2.25/2.;
393   parBox[1] = 0.4/2.;
394   parBox[2] = 0.005/2.;
395   gMC->Gsvolu("UCN2","BOX",idtmed[1323-1],parBox,kNparBox);
396
397   xpos  =  0.0;
398   ypos  = -0.4/2.;
399   zpos  = -0.25      + 0.1/2.;
400   gMC->Gspos("UMC1",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
401   zpos +=  0.1/2.   + 0.0034/2.;
402   gMC->Gspos("UMC2",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
403   zpos +=  0.0034/2 + 0.004/2.;
404   gMC->Gspos("UMC3",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
405   zpos +=  0.004/2  + 0.05/2.;
406   gMC->Gspos("UMC4",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
407   zpos +=  0.05/2.  + 0.1/2.;
408   xpos  =  1.0;
409   gMC->Gspos("UCE1",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
410   xpos  = -0.5;
411   gMC->Gspos("UCE2",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
412   zpos +=  0.1/2.   + 0.03/2.;
413   xpos  =  1.0;
414   gMC->Gspos("UCS1",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
415   xpos  = -0.5;
416   gMC->Gspos("UCS2",1,"UMCM",xpos,ypos,zpos,0,"ONLY");  
417   xpos  =  0.0;
418   ypos  =  3.4/2.   - 0.4/2.;
419   zpos  = -0.25     + 0.3/2.;
420   gMC->Gspos("UCN1",1,"UMCM",xpos,ypos,zpos,0,"ONLY");  
421   zpos +=  0.3/2.   + 0.005/2.;
422   gMC->Gspos("UCN2",1,"UMCM",xpos,ypos,zpos,0,"ONLY");  
423
424 }
425
426 //_____________________________________________________________________________
427 void AliTRDgeometryDetail::PositionReadout(Int_t ipla, Int_t icha)
428 {
429   //
430   // Position the volumina inside the readout mother volume
431   //
432
433   const Int_t   kNmcmChannel = 18;
434
435   AliTRDparameter *parameter = new AliTRDparameter();
436
437   Int_t nMCMrow = parameter->GetRowMax(ipla,icha,0);
438   Int_t nMCMcol = parameter->GetColMax(ipla) / kNmcmChannel;
439
440   Float_t xSize = (GetChamberWidth(ipla)       - 2.*fgkCpadW) 
441                 / ((Float_t) nMCMcol);
442   Float_t ySize = (GetChamberLength(ipla,icha) - 2.*fgkRpadW) 
443                 / ((Float_t) nMCMrow);
444   Float_t x0    = parameter->GetCol0(ipla);
445   Float_t y0    = parameter->GetRow0(ipla,icha,0);
446
447   Int_t iCopy = GetDetector(ipla,icha,0) * 1000;
448   for (Int_t iMCMrow = 0; iMCMrow < nMCMrow; iMCMrow++) {
449     for (Int_t iMCMcol = 0; iMCMcol < nMCMcol; iMCMcol++) {
450       iCopy++;
451       Float_t xpos = (0.5 + iMCMcol) * xSize + x0; 
452       Float_t ypos = (0.5 + iMCMrow) * ySize + y0;
453       Float_t zpos = fgkCH - fgkSheight/2. + 0.5/2.
454                    + ipla * (fgkCH + fgkVspace);
455       gMC->Gspos("UMCM",iCopy,"UTR1",xpos,ypos,zpos,0,"ONLY");    
456     }
457   }
458
459   delete parameter;
460
461 }
462
463 //_____________________________________________________________________________
464 void AliTRDgeometryDetail::CreateCooling(Int_t *idtmed) const
465 {
466   //
467   // Create the volumina of the cooling
468   //
469
470   const Int_t kNparTube = 3;
471
472   Float_t parTube[kNparTube];
473   Float_t xpos;
474   Float_t ypos;
475   Float_t zpos;
476
477   // The aluminum pipe for the cooling
478   parTube[0] = 0.0;
479   parTube[1] = 0.0;
480   parTube[2] = 0.0;
481   gMC->Gsvolu("UCOA","TUBE",idtmed[1324-1],parTube,0);
482
483   // The cooling water
484   parTube[0] =  0.0;
485   parTube[1] =  0.2/2.;
486   parTube[2] = -1.;
487   gMC->Gsvolu("UCOW","TUBE",idtmed[1314-1],parTube,kNparTube);
488
489   // Water inside the cooling pipe
490   xpos = 0.0;
491   ypos = 0.0;
492   zpos = 0.0;
493   gMC->Gspos("UCOW",1,"UCOA",xpos,ypos,zpos,0,"ONLY");
494
495 }
496
497 //_____________________________________________________________________________
498 void AliTRDgeometryDetail::PositionCooling(Int_t ipla, Int_t icha, Int_t idrotm)
499 {
500   //
501   // Position the volumina of the cooling
502   //
503
504   const Int_t kNpar = 3;
505
506   Float_t par[kNpar];
507   Float_t xpos;
508   Float_t ypos;
509   Float_t zpos;
510
511   AliTRDparameter *parameter = new AliTRDparameter();
512
513   Int_t   iCopy   = GetDetector(ipla,icha,0) * 100;
514   Int_t   nMCMrow = parameter->GetRowMax(ipla,icha,0);
515
516   Float_t ySize   = (GetChamberLength(ipla,icha) - 2.*fgkRpadW) 
517                   / ((Float_t) nMCMrow);
518   Float_t y0      = parameter->GetRow0(ipla,icha,0);
519
520   // Position the cooling pipes
521   for (Int_t iMCMrow = 0; iMCMrow < nMCMrow; iMCMrow++) {
522
523     xpos   = 0.0;
524     ypos   = (0.5 + iMCMrow) * ySize + y0 - 1.9;
525     zpos   = fgkCH - fgkSheight/2. + 0.5/2.
526                    + ipla * (fgkCH + fgkVspace);
527     par[0] = 0.0;
528     par[1] = 0.3/2.;
529     par[2] = GetChamberWidth(ipla)/2.+ fgkCroW;
530     gMC->Gsposp("UCOA",iCopy+iMCMrow,"UTR1",xpos,ypos,zpos
531                       ,idrotm,"ONLY",par,kNpar);
532
533   }
534
535   delete parameter;
536
537 }