AliTrackReference constructor without passing pointer to VMC.
[u/mrichter/AliRoot.git] / ITS / AliITSvPPRasymmFMD.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.10  2003/02/12 10:39:08  hristov
19 Updated AliTrackReference class (S.Radomski)
20
21 Revision 1.9  2002/11/21 23:05:28  alibrary
22 Removing AliMC and AliMCProcess
23
24 Revision 1.8  2002/11/14 15:09:58  nilsen
25 Fixed problem of elements of a Mixture having zero concentration. This was
26 done by reordering some of the elements such that those which may have
27 zero concentration were at the end of the array and the array size passed
28 would thereby exclude those zero concentrations.
29
30 Revision 1.7  2002/11/02 15:15:58  hristov
31 Corrected with respect to the previous versions
32
33 Revision 1.6  2002/11/01 19:48:35  nilsen
34 Fixed bug in material numbering for new FMD part of code. Removed large part
35 of commented code (if still needed it is in AliITSvPPRasymm.cxx).
36
37 Revision 1.3  2002/10/05 00:12:39  nilsen
38 Added material to simulate services in front of the SPD, SDD, and SSD support
39 structures. Modified folumes I212, I200, and I099 so that they do not go
40 beyond the volume they are creating holes for. This was nessesary so that
41 the material added to these volumes would be correct.
42
43 Revision 1.2  2002/10/02 17:56:37  barbera
44 Bug in copy 37 of volume I570 corrected (thanks to J. Belikov)
45
46 Revision 1.1  2002/09/16 14:45:31  barbera
47 Updated detailed geometry needed by FMD people for some studies
48
49
50 */
51
52 ///////////////////////////////////////////////////////////////////////////////
53 //                                                                           //
54 //  Inner Traking System version PPR  asymmetric for the FMD                 //
55 //  This class contains the base procedures for the Inner Tracking System    //
56 //                                                                           //
57 // Authors: R. Barbera                                                       //
58 // version 10.                                                               //
59 // Created  January 15 2001.                                                 //
60 //                                                                           //
61 //  NOTE: THIS IS THE  ASYMMETRIC PPR geometry of the ITS for the PMD.       //
62 //                                                                           //
63 ///////////////////////////////////////////////////////////////////////////////
64
65 // See AliITSvPPRasymmFMD::StepManager().
66 #include <Riostream.h>
67 #include <stdio.h>
68 #include <stdlib.h>
69 #include <TMath.h>
70 #include <TGeometry.h>
71 #include <TNode.h>
72 #include <TTUBE.h>
73 #include <TTUBS.h>
74 #include <TPCON.h>
75 #include <TFile.h>    // only required for Tracking function?
76 #include <TCanvas.h>
77 #include <TObjArray.h>
78 #include <TLorentzVector.h>
79 #include <TObjString.h>
80 #include <TClonesArray.h>
81 #include <TBRIK.h>
82 #include <TSystem.h>
83
84 #include "AliRun.h"
85 #include "AliMagF.h"
86 #include "AliConst.h"
87 #include "AliITSGeant3Geometry.h"
88 #include "AliTrackReference.h"
89 #include "AliITShit.h"
90 #include "AliITS.h"
91 #include "AliITSvPPRasymmFMD.h"
92 #include "AliITSgeom.h"
93 #include "AliITSgeomSPD.h"
94 #include "AliITSgeomSDD.h"
95 #include "AliITSgeomSSD.h"
96 #include "AliITSDetType.h"
97 #include "AliITSresponseSPD.h"
98 #include "AliITSresponseSDD.h"
99 #include "AliITSresponseSSD.h"
100 #include "AliITSsegmentationSPD.h"
101 #include "AliITSsegmentationSDD.h"
102 #include "AliITSsegmentationSSD.h"
103 #include "AliITSsimulationSPD.h"
104 #include "AliITSsimulationSDD.h"
105 #include "AliITSsimulationSSD.h"
106 #include "AliITSClusterFinderSPD.h"
107 #include "AliITSClusterFinderSDD.h"
108 #include "AliITSClusterFinderSSD.h"
109
110
111 ClassImp(AliITSvPPRasymmFMD)
112  
113 //_____________________________________________________________________________
114 AliITSvPPRasymmFMD::AliITSvPPRasymmFMD() {
115 ////////////////////////////////////////////////////////////////////////
116 //    Standard default constructor for the ITS version 8.
117 ////////////////////////////////////////////////////////////////////////
118     Int_t i;
119
120     fIdN          = 0;
121     fIdName       = 0;
122     fIdSens       = 0;
123     fEuclidOut    = kFALSE; // Don't write Euclide file
124     fGeomDetOut   = kFALSE; // Don't write .det file
125     fGeomDetIn    = kFALSE; // Don't Read .det file
126     fMajorVersion = IsVersion();
127     fMinorVersion = -1;
128     for(i=0;i<60;i++) fRead[i] = '\0';
129     for(i=0;i<60;i++) fWrite[i] = '\0';
130     for(i=0;i<60;i++) fEuclidGeomDet[i] = '\0';
131 }
132 //_____________________________________________________________________________
133 AliITSvPPRasymmFMD::AliITSvPPRasymmFMD(const char *name, const char *title) : AliITS(name, title){
134 ////////////////////////////////////////////////////////////////////////
135 //    Standard constructor for the ITS version 10.
136 ////////////////////////////////////////////////////////////////////////
137     Int_t i;
138
139     fIdN = 6;
140     fIdName = new TString[fIdN];
141     fIdName[0] = "ITS1";
142     fIdName[1] = "ITS2";
143     fIdName[2] = "ITS3";
144     fIdName[3] = "ITS4";
145     fIdName[4] = "ITS5";
146     fIdName[5] = "ITS6";
147     fIdSens    = new Int_t[fIdN];
148     for(i=0;i<fIdN;i++) fIdSens[i] = 0;
149     fMajorVersion = IsVersion();
150     fMinorVersion = 2;
151     fEuclidOut    = kFALSE; // Don't write Euclide file
152     fGeomDetOut   = kFALSE; // Don't write .det file
153     fGeomDetIn    = kFALSE; // Don't Read .det file
154     SetThicknessDet1();
155     SetThicknessDet2();
156     SetThicknessChip1();
157     SetThicknessChip2();                         
158
159     fEuclidGeometry="$ALICE_ROOT/ITS/ITSgeometry_vPPRasymm2.euc";
160     strncpy(fEuclidGeomDet,"$ALICE_ROOT/ITS/ITSgeometry_vPPRasymm2.det",60);
161     strncpy(fRead,fEuclidGeomDet,60);
162     strncpy(fWrite,fEuclidGeomDet,60);
163 }
164 //____________________________________________________________________________
165 AliITSvPPRasymmFMD::AliITSvPPRasymmFMD(const AliITSvPPRasymmFMD &source){
166 ////////////////////////////////////////////////////////////////////////
167 //     Copy Constructor for ITS version 8.
168 ////////////////////////////////////////////////////////////////////////
169     if(&source == this) return;
170     Warning("Copy Constructor","Not allowed to copy AliITSvPPRasymmFMD");
171     return;
172 }
173 //_____________________________________________________________________________
174 AliITSvPPRasymmFMD& AliITSvPPRasymmFMD::operator=(const AliITSvPPRasymmFMD &source){
175 ////////////////////////////////////////////////////////////////////////
176 //    Assignment operator for the ITS version 8.
177 ////////////////////////////////////////////////////////////////////////
178     if(&source == this) return *this;
179     Warning("= operator","Not allowed to copy AliITSvPPRasymmFMD");
180     return *this;
181 }
182 //_____________________________________________________________________________
183 AliITSvPPRasymmFMD::~AliITSvPPRasymmFMD() {
184 ////////////////////////////////////////////////////////////////////////
185 //    Standard destructor for the ITS version 8.
186 ////////////////////////////////////////////////////////////////////////
187 }
188 //__________________________________________________________________________
189 void AliITSvPPRasymmFMD::BuildGeometry(){
190 ////////////////////////////////////////////////////////////////////////
191 //    Geometry builder for the ITS version 8.
192 ////////////////////////////////////////////////////////////////////////
193     TNode *node, *top;
194     
195     const Int_t kColorITS=kYellow;
196     //
197     top = gAlice->GetGeometry()->GetNode("alice");
198
199
200     new TTUBE("S_layer1","Layer1 of ITS","void",3.8095,3.8095+1.03*9.36/100.,14.35);
201     top->cd();
202     node = new TNode("Layer1","Layer1","S_layer1",0,0,0,"");
203     node->SetLineColor(kColorITS);
204     fNodes->Add(node);
205
206     new TTUBE("S_layer2","Layer2 of ITS","void",7.,7.+1.03*9.36/100.,14.35);
207     top->cd();
208     node = new TNode("Layer2","Layer2","S_layer2",0,0,0,"");
209     node->SetLineColor(kColorITS);
210     fNodes->Add(node);
211
212     new TTUBE("S_layer3","Layer3 of ITS","void",15.,15.+0.94*9.36/100.,25.1);
213     top->cd();
214     node = new TNode("Layer3","Layer3","S_layer3",0,0,0,"");
215     node->SetLineColor(kColorITS);
216     fNodes->Add(node);
217
218     new TTUBE("S_layer4","Layer4 of ITS","void",24.1,24.1+0.95*9.36/100.,32.1);
219     top->cd();
220     node = new TNode("Layer4","Layer4","S_layer4",0,0,0,"");
221     node->SetLineColor(kColorITS);
222     fNodes->Add(node);
223
224     new TTUBE("S_layer5","Layer5 of ITS","void",38.5,38.5+0.91*9.36/100.,49.405);
225     top->cd();
226     node = new TNode("Layer5","Layer5","S_layer5",0,0,0,"");
227     node->SetLineColor(kColorITS);
228     fNodes->Add(node);
229
230     new TTUBE("S_layer6","Layer6 of ITS","void",43.5765,43.5765+0.87*9.36/100.,55.27);
231     top->cd();
232     node = new TNode("Layer6","Layer6","S_layer6",0,0,0,"");
233     node->SetLineColor(kColorITS);
234     fNodes->Add(node);
235 }
236 //_____________________________________________________________________________
237 void AliITSvPPRasymmFMD::CreateGeometry(){
238 ////////////////////////////////////////////////////////////////////////
239 //    This routine defines and Creates the geometry for version 6 of the ITS.
240 ////////////////////////////////////////////////////////////////////////
241   
242
243 //Begin_Html
244 /*
245 <img src="picts/ITS/ITS_full_vPPRasymm.jpg">
246 </pre>
247 <br clear=left>
248 <font size=+2 color=red>
249 <p>This shows the full ITS geometry.
250 </font>
251
252 <img src="picts/ITS/ITS_SPD_Barrel_vPPRasymm.jpg">
253 </pre>
254 <br clear=left>
255 <font size=+2 color=red>
256 <p>This shows the full SPD Barrel of the ITS geometry.
257 </font>
258
259 <img src="picts/ITS/ITS_SDD_Barrel_vPPRasymm.jpg">
260 </pre>
261 <br clear=left>
262 <font size=+2 color=red>
263 <p>This shows the full SDD Barrel of the ITS geometry.
264 </font>
265
266 <img src="picts/ITS/ITS_SSD_Barrel_vPPRasymm.jpg">
267 </pre>
268 <br clear=left>
269 <font size=+2 color=red>
270 <p>This shows the full SSD Barrel of the ITS geometry.
271 </font>
272 */
273 //End_Html
274   //INNER RADII OF THE SILICON LAYERS 
275   // Float_t rl[6]    = { 3.8095,7.,15.,24.,38.1,43.5765 };   
276   //THICKNESSES OF LAYERS (in % radiation length)
277   Float_t drl[6]   = { 1.03,1.03,0.94,0.95,0.91,0.87 };   
278   //HALF LENGTHS OF LAYERS  
279   // Float_t dzl[6]   = { 14.35,14.35,25.1,32.1,49.405,55.27 };
280   //LENGTHS OF END-LADDER BOXES (ALL INCLUDED)
281   // Float_t dzb[6]   = { 12.4,12.4,13.5,15.,7.5,7.5 };   
282   //THICKNESSES OF END-LADDER BOXES (ALL INCLUDED)
283   // Float_t drb[6]   = { rl[1]-rl[0],0.2,5.,5.,4.,4. };        
284
285  
286   Float_t dits[100], rlim, zmax;
287   // Float_t zpos;
288   // Float_t pcits[50]
289   Float_t ztpc;
290   Int_t idrotm[1999], i;
291   Float_t dgh[100];
292
293
294   // Define some variables for SPD
295
296   Float_t dits1[3], di101[3], di107[3], di10b[3], di106[3];  // for layer 1 
297   Float_t di103[3], di10a[3], di102[3];                      // for layer 1
298   Float_t dits2[3], di1d1[3], di1d7[3], di20b[3], di1d6[3];  // for layer 2
299   Float_t di1d3[3], di20a[3], di1d2[3];                      // for layer 2  
300   Float_t di108[3], di104[3];                                // for both layers  
301
302   Float_t ddet1=200.;     // total detector thickness on layer 1 (micron)
303   Float_t dchip1=200.;    // total chip thickness on layer 1 (micron)
304   
305   Float_t ddet2=200.;     // total detector thickness on layer 2 (micron)                         
306   Float_t dchip2=200.;    // total chip thickness on layer 2 (micron)
307   
308   Float_t dbus=300.;      // total bus thickness on both layers (micron)
309
310   ddet1 = GetThicknessDet1();
311   ddet2 = GetThicknessDet2();
312   dchip1 = GetThicknessChip1();
313   dchip2 = GetThicknessChip2();    
314
315   if(ddet1 < 100. || ddet1 > 300.) {
316      cout << "ITS - WARNING: the detector thickness for layer 1 is outside the range of [100,300] microns."
317           " The default value of 200 microns will be used." << endl;
318           ddet1=200.;
319   }
320   
321   if(ddet2 < 100. || ddet2 > 300.) {
322      cout << "ITS - WARNING: the detector thickness for layer 2 is outside the range of [100,300] microns."
323           " The default value of 200 microns will be used." << endl;
324           ddet2=200.;
325   }
326   
327   if(dchip1 < 100. || dchip1 > 300.) {
328      cout << "ITS - WARNING: the chip thickness for layer 1 is outside the range of [100,300] microns."
329           " The default value of 200 microns will be used." << endl;
330           dchip1=200.;
331   }
332   
333   if(dchip2 < 100. || dchip2 > 300.) {
334      cout << "ITS - WARNING: the chip thickness for layer 2 is outside the range of [100,300] microns."
335           " The default value of 200 microns will be used." << endl;
336           dchip2=200.;
337   }      
338
339   Int_t rails = 1;       // flag for rails (1 --> rails in; 0 --> rails out)
340   
341   Int_t fluid = 1;       // flag for the cooling fluid (1 --> water; 0 --> freon)
342
343   rails = GetRails();
344
345   fluid = GetCoolingFluid();
346
347   if(rails != 0 && rails != 1) {
348      cout << "ITS - WARNING: the switch for rails is not set neither to 0 (rails out) nor to 1 (rails in)." 
349      " The default value of 1 (rails in) will be used." << endl;
350         
351   }  
352   
353   if(fluid != 0 && fluid != 1) {
354      cout << "ITS - WARNING: the switch for cooling fluid is not set neither to 0 (freon) nor to 1 (water)." 
355      " The default value of 1 (water) will be used." << endl;  
356   }       
357    
358   cout << "ITS: Detector thickness on layer 1 is set to " << ddet1 << " microns." << endl;
359   cout << "ITS: Chip thickness on layer 1 is set to " << dchip1 << " microns." << endl;
360   cout << "ITS: Detector thickness on layer 2 is set to " << ddet2 << " microns." << endl;
361   cout << "ITS: Chip thickness on layer 2 is set to " << dchip2 << " microns." << endl;
362   if(rails == 0 ) {
363      cout << "ITS: Rails are out." << endl; 
364   } else {
365      cout << "ITS: Rails are in." << endl;
366   }   
367   if(fluid == 0 ) {
368      cout << "ITS: The cooling fluid is freon." << endl; 
369   } else {
370      cout << "ITS: The cooling fluid is water." << endl;
371   }   
372
373   ddet1  = ddet1*0.0001/2.; // conversion from tot length in um to half in cm
374   ddet2  = ddet2*0.0001/2.; // conversion from tot length in um to half in cm   
375   dchip1 = dchip1*0.0001/2.;// conversion from tot length in um to half in cm   
376   dchip2 = dchip2*0.0001/2.;// conversion from tot length in um to half in cm   
377   dbus   = dbus*0.0001/2.;  // conversion from tot length in um to half in cm       
378                 
379   Float_t deltax, deltay; 
380
381   Int_t thickness = fMinorVersion/10;
382   Int_t option    = fMinorVersion - 10*thickness;
383
384
385   // Define some variables for SDD
386
387
388   Float_t sin30, cos30;
389
390   // SDD electronics+services main volumes
391   Float_t I018dits[3], I024dits[3], I047dits[3], I048dits[3];
392
393   // SDD detector ladder
394
395   Float_t I302dits[3], I402dits[3], I004dits[3], I005dits[3];
396   Float_t Y_SDD_sep = 0.20;
397   Float_t ySDD;
398   Int_t   iSDD;
399   Float_t Z_SDD_lay3[6] = {18.55, 10.95, 3.70, -3.70, -11.20, -18.35};
400   Float_t Z_SDD_lay4[8] = {25.75, 18.60, 11.00, 3.70, -3.70, -11.20, -18.45, -26.05};
401
402   // ladder foot and end-ladder (frame and cooling)
403   Float_t I028dits[3], I420dits[3], I421dits[3], I422dits[6], I423dits[3];
404   Float_t I424dits[3], xI424, yI424;
405   Float_t I425dits[3];
406   Int_t    indI425;
407   Float_t I029dits[4], I030dits[4], I031dits[3], I032dits[3];
408
409   // SDD ladder frame and cooling
410   Float_t SDD_CoolPipe[3] = {1.7000, -0.5500, 0.0000};
411   Float_t I035dits[3], I037dits[3], I038dits[3];
412   Float_t I039dits[3], xI039, yI039;
413   Float_t I041dits[5];
414
415   // SDD hybrid, chips and capacitors
416   Float_t I050dits[3], xI050, yI050;
417   Float_t I052dits[3], xI052, yI052;
418   Float_t I042dits[3], xI042, yI042;
419   Float_t xI042space = 0.17;
420   Float_t I043dits[3], xI043, yI043;
421   Float_t xI043space = 0.17;
422   Float_t zchip, zChipSpace;
423   Float_t I051dits[3], xI051, yI051, zI051, yI051space, xcap;
424   Int_t     ichip, icap;
425
426   // SDD microcables
427   Float_t I044dits[4], xI044, yI044, volI044;
428   Float_t xHV, yHV, zHV, xLV, yLV, zLV;
429   Char_t   HVname[5], LVname[5];
430
431
432   // Define media off-set
433   
434   Int_t *idtmed = fIdtmed->GetArray()-199;
435
436   
437   // Rotation matrices
438   
439   // SPD - option 'a' (this is NOT the default so leave commented)
440   
441   
442   if (option == 1) {
443   
444      AliMatrix(idrotm[201],90.0,90.0,90.0,180.0,0.0,0.0);
445      AliMatrix(idrotm[202],90.0,90.0,90.0,0.0,0.0,0.0);
446      AliMatrix(idrotm[203],90.0,350.0,90.0,260.0,0.0,0.0);
447      AliMatrix(idrotm[204],90.0,170.0,90.0,80.0,0.0,0.0);
448      AliMatrix(idrotm[205],90.0,10.0,90.0,100.0,0.0,0.0);
449      AliMatrix(idrotm[206],90.0,190.0,90.0,280.0,0.0,0.0);
450      AliMatrix(idrotm[207],90.0,342.0,90.0,72.0,0.0,0.0);
451      AliMatrix(idrotm[208],90.0,156.999893,90.0,246.999893,0.0,0.0);
452      AliMatrix(idrotm[209],90.0,147.999802,90.0,237.999893,0.0,0.0);
453      AliMatrix(idrotm[210],90.0,138.999802,90.0,228.999802,0.0,0.0);
454      AliMatrix(idrotm[211],90.0,129.999802,90.0,219.999802,0.0,0.0);
455      AliMatrix(idrotm[212],90.0,36.7896,90.0,126.789597,0.0,0.0);
456      AliMatrix(idrotm[213],90.0,343.579712,90.0,73.579697,0.0,0.0);
457      AliMatrix(idrotm[214],90.0,95.413696,90.0,185.413696,0.0,0.0);
458      AliMatrix(idrotm[215],90.0,5.4141,90.0,95.414101,0.0,0.0);
459      AliMatrix(idrotm[216],90.0,318.296906,90.0,48.296902,0.0,0.0);
460      AliMatrix(idrotm[217],90.0,67.000099,90.0,157.000107,0.0,0.0);
461      AliMatrix(idrotm[218],90.0,337.003998,90.0,67.003998,0.0,0.0);
462      AliMatrix(idrotm[219],90.0,247.000305,90.0,337.000305,0.0,0.0);
463      AliMatrix(idrotm[220],90.0,305.633514,90.0,35.633499,0.0,0.0);
464      AliMatrix(idrotm[221],90.0,58.000198,90.0,148.000198,0.0,0.0);
465      AliMatrix(idrotm[222],90.0,327.997101,90.0,57.997101,0.0,0.0 );
466      AliMatrix(idrotm[223],90.0,237.994202,90.0,327.994202,0.0,0.0);
467      AliMatrix(idrotm[224],90.0,296.627502,90.0,26.627399,0.0,0.0);
468      AliMatrix(idrotm[225],90.0,48.994099,90.0,138.994095,0.0,0.0);
469      AliMatrix(idrotm[226],90.0,318.990997,90.0,48.991001,0.0,0.0);
470      AliMatrix(idrotm[227],90.0,228.988205,90.0,318.98819,0.0,0.0);
471      AliMatrix(idrotm[228],90.0,287.621399,90.0,17.621401,0.0,0.0);
472      AliMatrix(idrotm[229],90.0,39.988098,90.0,129.988098,0.0,0.0);
473      AliMatrix(idrotm[230],90.0,309.984985,90.0,39.985001,0.0,0.0);
474      AliMatrix(idrotm[231],90.0,327.2612,90.0,57.2612,0.0,0.0);
475      AliMatrix(idrotm[232],90.0,237.261398,90.0,327.261414,0.0,0.0);
476      AliMatrix(idrotm[233],90.0,252.000504,90.0,342.000488,0.0,0.0 );
477      AliMatrix(idrotm[234],90.0,71.9991,90.0,161.9991,0.0,0.0);
478      AliMatrix(idrotm[235],90.0,270.0,90.0,0.0,0.0,0.0);
479      AliMatrix(idrotm[236],90.0,180.013702,90.0,270.013702,0.0,0.0);
480      AliMatrix(idrotm[237],90.0,0.0,90.0,90.0,0.0,0.0);
481      AliMatrix(idrotm[238],90.0,144.0,90.0,234.0,0.0,0.0);
482      AliMatrix(idrotm[239],90.0,216.0,90.0,306.0,0.0,0.0);
483      AliMatrix(idrotm[240],90.0,288.0,90.0,18.0,0.0,0.0);
484      AliMatrix(idrotm[241],90.0,324.0,90.0,54.0,0.0,0.0);
485      AliMatrix(idrotm[242],90.0,36.0,90.0,126.0,0.0,0.0);
486      AliMatrix(idrotm[243],90.0,108.0,90.0,198.0,0.0,0.0);
487      AliMatrix(idrotm[244],90.0,180.0,90.0,270.0,0.0,0.0);
488      AliMatrix(idrotm[245],90.0,162.0,90.0,252.0,0.0,0.0);
489      AliMatrix(idrotm[246],90.0,310.0,90.0,40.0,0.0,0.0);
490      AliMatrix(idrotm[247],90.0,319.0,90.0,49.0,0.0,0.0);
491      AliMatrix(idrotm[248],90.0,328.0,90.0,58.0,0.0,0.0);
492      AliMatrix(idrotm[249],90.0,337.0,90.0,67.0,0.0,0.0);
493      AliMatrix(idrotm[1003],90.0,73.5,90.0,163.5,0.0,0.0);
494      AliMatrix(idrotm[1011],90.0,342.0,90.0,72.0,0.0,0.0);
495      AliMatrix(idrotm[1039],90.0,72.0,90.0,162.0,0.0,0.0);
496      AliMatrix(idrotm[1043],90.0,66.91,90.0,156.91,0.0,0.0);
497      AliMatrix(idrotm[1065],90.0,144.0,90.0,234.0,0.0,0.0);
498      AliMatrix(idrotm[1078],90.0,180.0,90.0,270.0,0.0,0.0);
499      AliMatrix(idrotm[1088],90.0,57.41,90.0,147.41,0.0,0.0);
500      AliMatrix(idrotm[1089],90.0,333.0,90.0,63.0,0.0,0.0);
501      AliMatrix(idrotm[1090],90.0,351.0,90.0,81.0,0.0,0.0);
502      AliMatrix(idrotm[1091],90.0,216.0,90.0,306.0,0.0,0.0);
503      AliMatrix(idrotm[1092],90.0,27.0,90.0,117.0,0.0,0.0);
504      AliMatrix(idrotm[1093],90.0,18.0,90.0,108.0,0.0,0.0);
505      AliMatrix(idrotm[1094],90.0,9.0,90.0,99.0,0.0,0.0);
506      AliMatrix(idrotm[1104],90.0,252.0,90.0,342.0,0.0,0.0);
507      AliMatrix(idrotm[1106],90.0,36.0,90.0,126.0,0.0,0.0);
508      AliMatrix(idrotm[1107],90.0,108.0,90.0,198.0,0.0,0.0);
509      AliMatrix(idrotm[1108],90.0,324.0,90.0,54.0,180.0,0.0);
510      AliMatrix(idrotm[1109],90.0,0.0,90.0,90.0,180.0,0.0);
511      AliMatrix(idrotm[1110],90.0,36.0,90.0,126.0,180.0,0.0);
512      AliMatrix(idrotm[1111],90.0,72.0,90.0,162.0,180.0,0.0);
513      AliMatrix(idrotm[1112],90.0,108.0,90.0,198.0,180.0,0.0);
514      AliMatrix(idrotm[1113],90.0,144.0,90.0,234.0,180.0,0.0);
515      AliMatrix(idrotm[1114],90.0,180.0,90.0,270.0,180.0,0.0);
516      AliMatrix(idrotm[1115],90.0,216.0,90.0,306.0,180.0,0.0);
517      AliMatrix(idrotm[1116],90.0,252.0,90.0,342.0,180.0,0.0);
518      AliMatrix(idrotm[1117],90.0,288.0,90.0,18.0,0.0,0.0);
519      AliMatrix(idrotm[1118],90.0,288.0,90.0,18.0,180.0,0.0);
520      AliMatrix(idrotm[1130],90.0,324.0,90.0,54.0,0.0,0.0);  
521
522   }
523   
524   // SPD - option 'b' (this is the default)  
525     
526   if (option == 2) {
527
528      AliMatrix(idrotm[201],90.0,0.0,90.0,90.0,0.0,0.0);
529      AliMatrix(idrotm[202],90.0,90.0,90.0,0.0,0.0,0.0);
530      AliMatrix(idrotm[203],90.0,350.0,90.0,260.0,0.0,0.0);
531      AliMatrix(idrotm[204],90.0,170.0,90.0,80.0,0.0,0.0);
532      AliMatrix(idrotm[205],90.0,10.0,90.0,100.0,0.0,0.0);
533      AliMatrix(idrotm[206],90.0,190.0,90.0,280.0,0.0,0.0);
534      AliMatrix(idrotm[207],90.0,342.0,90.0,72.0,0.0,0.0);
535      AliMatrix(idrotm[208],90.0,156.999893,90.0,246.999893,0.0,0.0);
536      AliMatrix(idrotm[209],90.0,147.999802,90.0,237.999893,0.0,0.0);
537      AliMatrix(idrotm[210],90.0,138.999802,90.0,228.999802,0.0,0.0);
538      AliMatrix(idrotm[211],90.0,129.999802,90.0,219.999802,0.0,0.0);
539      AliMatrix(idrotm[212],90.0,36.7896,90.0,126.789597,0.0,0.0);
540      AliMatrix(idrotm[213],90.0,343.579712,90.0,73.579697,0.0,0.0);
541      AliMatrix(idrotm[214],90.0,95.413696,90.0,185.413696,0.0,0.0);
542      AliMatrix(idrotm[215],90.0,5.4141,90.0,95.414101,0.0,0.0);
543      AliMatrix(idrotm[216],90.0,318.296906,90.0,48.296902,0.0,0.0);
544      AliMatrix(idrotm[217],90.0,67.000099,90.0,157.000107,0.0,0.0);
545      AliMatrix(idrotm[218],90.0,337.003998,90.0,67.003998,0.0,0.0);
546      AliMatrix(idrotm[219],90.0,247.000305,90.0,337.000305,0.0,0.0);
547      AliMatrix(idrotm[220],90.0,305.633514,90.0,35.633499,0.0,0.0);
548      AliMatrix(idrotm[221],90.0,58.000198,90.0,148.000198,0.0,0.0);
549      AliMatrix(idrotm[222],90.0,327.997101,90.0,57.997101,0.0,0.0);
550      AliMatrix(idrotm[223],90.0,237.994202,90.0,327.994202,0.0,0.0);
551      AliMatrix(idrotm[224],90.0,296.627502,90.0,26.627399,0.0,0.0);
552      AliMatrix(idrotm[225],90.0,48.994099,90.0,138.994095,0.0,0.0);
553      AliMatrix(idrotm[226],90.0,318.990997,90.0,48.991001,0.0,0.0);
554      AliMatrix(idrotm[227],90.0,228.988205,90.0,318.98819,0.0,0.0);
555      AliMatrix(idrotm[228],90.0,287.621399,90.0,17.621401,0.0,0.0);
556      AliMatrix(idrotm[229],90.0,39.988098,90.0,129.988098,0.0,0.0);
557      AliMatrix(idrotm[230],90.0,309.984985,90.0,39.985001,0.0,0.0);
558      AliMatrix(idrotm[231],90.0,327.2612,90.0,57.2612,0.0,0.0);
559      AliMatrix(idrotm[232],90.0,237.261398,90.0,327.261414,0.0,0.0);
560      AliMatrix(idrotm[233],90.0,252.000504,90.0,342.000488,0.0,0.0);
561      AliMatrix(idrotm[234],90.0,71.9991,90.0,161.9991,0.0,0.0);
562      AliMatrix(idrotm[235],90.0,270.0,90.0,0.0,0.0,0.0);
563      AliMatrix(idrotm[236],90.0,180.013702,90.0,270.013702,0.0,0.0);
564      AliMatrix(idrotm[237],90.0,90.0,90.0,180.0,0.0,0.0);
565      AliMatrix(idrotm[238],90.0,180.0,90.0,270.0,0.0,0.0);
566      AliMatrix(idrotm[239],90.0,162.0,90.0,252.0,0.0,0.0);
567      AliMatrix(idrotm[240],90.0,310.0,90.0,40.0,0.0,0.0);
568      AliMatrix(idrotm[241],90.0,319.0,90.0,49.0,0.0,0.0);
569      AliMatrix(idrotm[242],90.0,328.0,90.0,58.0,0.0,0.0);
570      AliMatrix(idrotm[243],90.0,337.0,90.0,67.0,0.0,0.0);
571      AliMatrix(idrotm[244],90.0,216.0,90.0,306.0,0.0,0.0);
572      AliMatrix(idrotm[245],90.0,36.0,90.0,126.0,0.0,0.0);
573      AliMatrix(idrotm[246],90.0,108.0,90.0,198.0,0.0,0.0);
574      AliMatrix(idrotm[247],90.0,144.0,90.0,234.0,0.0,0.0);
575      AliMatrix(idrotm[248],90.0,288.0,90.0,18.0,0.0,0.0);
576      AliMatrix(idrotm[249],90.0,324.0,90.0,54.0,0.0,0.0);  
577      AliMatrix(idrotm[1003],90.0,73.5,90.0,163.5,0.0,0.0);
578      AliMatrix(idrotm[1011],90.0,342.0,90.0,72.0,0.0,0.0);
579      AliMatrix(idrotm[1039],90.0,72.0,90.0,162.0,0.0,0.0);
580      AliMatrix(idrotm[1043],90.0,66.91,90.0,156.91,0.0,0.0);
581      AliMatrix(idrotm[1065],90.0,144.0,90.0,234.0,0.0,0.0);
582      AliMatrix(idrotm[1078],90.0,180.0,90.0,270.0,0.0,0.0);
583      AliMatrix(idrotm[1088],90.0,57.41,90.0,147.41,0.0,0.0);
584      AliMatrix(idrotm[1089],90.0,333.0,90.0,63.0,0.0,0.0);
585      AliMatrix(idrotm[1090],90.0,351.0,90.0,81.0,0.0,0.0);
586      AliMatrix(idrotm[1091],90.0,216.0,90.0,306.0,0.0,0.0);
587      AliMatrix(idrotm[1092],90.0,27.0,90.0,117.0,0.0,0.0);
588      AliMatrix(idrotm[1093],90.0,18.0,90.0,108.0,0.0,0.0);
589      AliMatrix(idrotm[1094],90.0,9.0,90.0,99.0,0.0,0.0);
590      AliMatrix(idrotm[1104],90.0,252.0,90.0,342.0,0.0,0.0);
591      AliMatrix(idrotm[1106],90.0,36.0,90.0,126.0,0.0,0.0);
592      AliMatrix(idrotm[1107],90.0,108.0,90.0,198.0,0.0,0.0);
593      AliMatrix(idrotm[1108],90.0,324.0,90.0,54.0,180.0,0.0);
594      AliMatrix(idrotm[1109],90.0,0.0,90.0,90.0,180.0,0.0);
595      AliMatrix(idrotm[1110],90.0,36.0,90.0,126.0,180.0,0.0);
596      AliMatrix(idrotm[1111],90.0,72.0,90.0,162.0,180.0,0.0);
597      AliMatrix(idrotm[1112],90.0,108.0,90.0,198.0,180.0,0.0);
598      AliMatrix(idrotm[1113],90.0,144.0,90.0,234.0,180.0,0.0);
599      AliMatrix(idrotm[1114],90.0,180.0,90.0,270.0,180.0,0.0);
600      AliMatrix(idrotm[1115],90.0,216.0,90.0,306.0,180.0,0.0);
601      AliMatrix(idrotm[1116],90.0,252.0,90.0,342.0,180.0,0.0);
602      AliMatrix(idrotm[1117],90.0,288.0,90.0,18.0,0.0,0.0);
603      AliMatrix(idrotm[1118],90.0,288.0,90.0,18.0,180.0,0.0);
604      AliMatrix(idrotm[1130],90.0,324.0,90.0,54.0,0.0,0.0);  
605
606   }
607     
608   // SDD
609   
610   AliMatrix(idrotm[301],0.0,0.0,90.0,90.0,90.0,180.0);  
611   AliMatrix(idrotm[302],0.0,0.0,90.0,90.0,90.0,0.0);
612   AliMatrix(idrotm[303],180.0,0.0,90.0,90.0,90.0,0.0); 
613   AliMatrix(idrotm[304],180.0,0.0,90.0,90.0,90.0,180.0); 
614   AliMatrix(idrotm[305],90.0,347.14,90.0,77.14,0.0,0.0); 
615   AliMatrix(idrotm[306],90.0,321.43,90.0,51.43,0.0,0.0); 
616   AliMatrix(idrotm[307],90.0,295.71,90.0,25.71,0.0,0.0);
617   AliMatrix(idrotm[308],90.0,244.29,90.0,334.29,0.0,0.0);
618   AliMatrix(idrotm[309],90.0,218.57,90.0,308.57,0.0,0.0);
619   AliMatrix(idrotm[310],90.0,167.14,90.0,257.14,0.0,0.0);
620   AliMatrix(idrotm[311],90.0,141.43,90.0,231.43,0.0,0.0);  
621   AliMatrix(idrotm[312],90.0,0.0,0.0,0.0,90.0,270.0);
622   AliMatrix(idrotm[313],90.0,115.71,90.0,205.71,0.0,0.0); 
623   AliMatrix(idrotm[314],90.0,335.45,90.0,65.45,0.0,0.0); 
624   AliMatrix(idrotm[315],90.0,319.09,90.0,49.09,0.0,0.0); 
625   AliMatrix(idrotm[316],90.0,302.73,90.0,32.73,0.0,0.0); 
626   AliMatrix(idrotm[317],90.0,286.36,90.0,16.36,0.0,0.0);
627   AliMatrix(idrotm[318],90.0,270.0,90.0,360.0,0.0,0.0);
628   AliMatrix(idrotm[319],90.0,253.64,90.0,343.64,0.0,0.0);
629   AliMatrix(idrotm[320],90.0,237.27,90.0,327.27,0.0,0.0);
630   AliMatrix(idrotm[321],90.0,12.86,90.0,102.86,0.0,0.0);  
631   AliMatrix(idrotm[322],90.0,220.91,90.0,310.91,0.0,0.0);
632   AliMatrix(idrotm[323],90.0,204.55,90.0,294.55,0.0,0.0); 
633   AliMatrix(idrotm[324],90.0,188.18,90.0,278.18,0.0,0.0); 
634   AliMatrix(idrotm[325],90.0,171.82,90.0,261.82,0.0,0.0); 
635   AliMatrix(idrotm[326],90.0,155.45,90.0,245.45,0.0,0.0); 
636   AliMatrix(idrotm[327],90.0,139.09,90.0,229.09,0.0,0.0);
637   AliMatrix(idrotm[328],90.0,122.73,90.0,212.73,0.0,0.0);
638   AliMatrix(idrotm[329],90.0,106.36,90.0,196.36,0.0,0.0);
639   AliMatrix(idrotm[330],90.0,73.64,90.0,163.64,0.0,0.0);    
640   AliMatrix(idrotm[331],90.0,40.91,90.0,130.91,0.0,0.0);  
641   AliMatrix(idrotm[332],90.0,24.55,90.0,114.55,0.0,0.0);
642   AliMatrix(idrotm[333],90.0,38.57,90.0,128.57,0.0,0.0); 
643   AliMatrix(idrotm[334],90.0,351.82,90.0,81.82,0.0,0.0); 
644   AliMatrix(idrotm[335],90.0,8.18,90.0,98.18,0.0,0.0); 
645   AliMatrix(idrotm[336],90.0,64.29,90.0,154.29,0.0,0.0); 
646   AliMatrix(idrotm[337],111.0,300.0,21.0,300.0,90.0,30.0);
647   AliMatrix(idrotm[338],69.0,240.0,159.0,240.0,90.0,150.0);
648   AliMatrix(idrotm[339],111.0,240.0,21.0,240.0,90.0,150.0);
649   AliMatrix(idrotm[340],69.0,300.0,159.0,300.0,90.0,30.0);  
650   AliMatrix(idrotm[341],128.0,0.0,38.0,0.0,90.0,270.0);  
651   AliMatrix(idrotm[342],90.0,240.0,180.0,0.0,90.0,330.);
652   AliMatrix(idrotm[343],90.0,120.0,180.0,0.0,90.0,210.0); 
653   AliMatrix(idrotm[344],90.0,0.0,180.0,0.0,90.0,90.0); 
654   AliMatrix(idrotm[345],90.0,180.0,90.0,90.0,0.0,0.0); 
655   AliMatrix(idrotm[346],90.0,300.0,90.0,30.0,0.0,0.0); 
656   AliMatrix(idrotm[347],90.0,240.0,90.0,150.0,0.0,0.0);
657   AliMatrix(idrotm[348],90.0,180.0,0.0,0.0,90.0,270.0);
658   AliMatrix(idrotm[349],90.0,235.0,90.0,145.0,0.0,0.0);
659   AliMatrix(idrotm[350],90.0,90.0,90.0,180.0,0.0,0.0);  
660   AliMatrix(idrotm[351],90.0,305.0,90.0,35.0,0.0,0.0);  
661   AliMatrix(idrotm[352],0.0,0.0,90.0,0.0,90.0,90.0);
662   AliMatrix(idrotm[353],90.0,60.0,90.0,150.0,0.0,0.0); 
663   AliMatrix(idrotm[354],90.0,120.0,90.0,30.0,0.0,0.0); 
664   AliMatrix(idrotm[355],90.0,180.0,90.0,90.0,180.0,0.0); 
665   AliMatrix(idrotm[356],90.0,270.0,90.0,0.0,0.0,0.0); 
666   AliMatrix(idrotm[366],90.0,57.27,90.0,147.27,0.0,0.0); 
667   AliMatrix(idrotm[386],90.0,192.86,90.0,282.86,0.0,0.0);  
668    
669   // SSD
670   
671   AliMatrix(idrotm[501],90.0,148.24,90.0,238.24,0.0,0.0);
672   AliMatrix(idrotm[503],90.0,137.65,90.0,227.65,0.0,0.0); 
673   AliMatrix(idrotm[504],90.0,127.06,90.0,217.06,0.0,0.0);  
674   AliMatrix(idrotm[505],90.0,116.47,90.0,206.47,0.0,0.0);  
675   AliMatrix(idrotm[506],90.0,105.88,90.0,195.88,0.0,0.0);  
676   AliMatrix(idrotm[507],90.0,95.29,90.0,185.29,0.0,0.0);  
677   AliMatrix(idrotm[508],90.0,84.71,90.0,174.71,0.0,0.0);
678   AliMatrix(idrotm[509],90.0,74.12,90.0,164.12,0.0,0.0);
679   AliMatrix(idrotm[510],90.0,63.53,90.0,153.53,0.0,0.0);  
680   AliMatrix(idrotm[511],90.0,52.94,90.0,142.94,0.0,0.0);
681   AliMatrix(idrotm[512],90.0,42.35,90.0,132.35,0.0,0.0);
682   AliMatrix(idrotm[513],90.0,31.76,90.0,121.76,0.0,0.0); 
683   AliMatrix(idrotm[514],90.0,10.59,90.0,100.59,0.0,0.0);  
684   AliMatrix(idrotm[515],90.0,349.41,90.0,79.41,0.0,0.0);  
685   AliMatrix(idrotm[516],90.0,338.82,90.0,68.82,0.0,0.0);  
686   AliMatrix(idrotm[517],90.0,328.24,90.0,58.24,0.0,0.0);  
687   AliMatrix(idrotm[518],90.0,317.65,90.0,47.65,0.0,0.0);
688   AliMatrix(idrotm[519],90.0,307.06,90.0,37.06,0.0,0.0);
689   AliMatrix(idrotm[520],90.0,296.47,90.0,26.47,0.0,0.0);  
690   AliMatrix(idrotm[521],90.0,285.88,90.0,15.88,0.0,0.0);
691   AliMatrix(idrotm[522],90.0,275.29,90.0,5.29,0.0,0.0);
692   AliMatrix(idrotm[523],90.0,264.71,90.0,354.71,0.0,0.0); 
693   AliMatrix(idrotm[524],90.0,254.12,90.0,344.12,0.0,0.0);  
694   AliMatrix(idrotm[525],90.0,243.53,90.0,333.53,0.0,0.0);  
695   AliMatrix(idrotm[526],90.0,232.94,90.0,322.94,0.0,0.0);  
696   AliMatrix(idrotm[527],90.0,222.35,90.0,312.35,0.0,0.0);  
697   AliMatrix(idrotm[528],90.0,211.76,90.0,301.76,0.0,0.0);
698   AliMatrix(idrotm[529],90.0,190.59,90.0,280.59,0.0,0.0);
699   AliMatrix(idrotm[530],90.0,169.41,90.0,259.41,0.0,0.0);  
700   AliMatrix(idrotm[531],90.0,158.82,90.0,248.82,0.0,0.0);
701   AliMatrix(idrotm[532],90.0,360.0,90.0,90.0,0.0,0.0);
702   AliMatrix(idrotm[533],90.0,180.0,90.0,270.0,0.0,0.0); 
703   AliMatrix(idrotm[534],90.0,189.47,90.0,279.47,0.0,0.0);  
704   AliMatrix(idrotm[535],90.0,198.95,90.0,288.95,0.0,0.0);  
705   AliMatrix(idrotm[537],90.0,217.89,90.0,307.89,0.0,0.0);  
706   AliMatrix(idrotm[538],90.0,227.37,90.0,317.37,0.0,0.0);
707   AliMatrix(idrotm[539],90.0,236.84,90.0,326.84,0.0,0.0);
708   AliMatrix(idrotm[540],90.0,246.32,90.0,336.32,0.0,0.0);  
709   AliMatrix(idrotm[541],90.0,255.79,90.0,345.79,0.0,0.0);
710   AliMatrix(idrotm[542],90.0,265.26,90.0,355.26,0.0,0.0);
711   AliMatrix(idrotm[543],90.0,274.74,90.0,4.74,0.0,0.0); 
712   AliMatrix(idrotm[544],90.0,284.21,90.0,14.21,0.0,0.0);  
713   AliMatrix(idrotm[545],90.0,293.68,90.0,23.68,0.0,0.0);  
714   AliMatrix(idrotm[546],90.0,303.16,90.0,33.16,0.0,0.0);  
715   AliMatrix(idrotm[547],90.0,312.63,90.0,42.63,0.0,0.0);  
716   AliMatrix(idrotm[548],90.0,322.11,90.0,52.11,0.0,0.0);
717   AliMatrix(idrotm[549],90.0,331.58,90.0,61.58,0.0,0.0);
718   AliMatrix(idrotm[550],90.0,341.05,90.0,71.05,0.0,0.0);  
719   AliMatrix(idrotm[551],90.0,350.53,90.0,80.53,0.0,0.0);
720   AliMatrix(idrotm[552],90.0,9.47,90.0,99.47,0.0,0.0);
721   AliMatrix(idrotm[553],90.0,18.95,90.0,108.95,0.0,0.0); 
722   AliMatrix(idrotm[555],90.0,37.89,90.0,127.89,0.0,0.0);  
723   AliMatrix(idrotm[556],90.0,47.37,90.0,137.37,0.0,0.0);  
724   AliMatrix(idrotm[557],90.0,56.84,90.0,146.84,0.0,0.0);  
725   AliMatrix(idrotm[558],90.0,66.32,90.0,156.32,0.0,0.0);
726   AliMatrix(idrotm[559],90.0,75.79,90.0,165.79,0.0,0.0);
727   AliMatrix(idrotm[560],90.0,85.26,90.0,175.26,0.0,0.0);  
728   AliMatrix(idrotm[561],90.0,94.74,90.0,184.74,0.0,0.0);
729   AliMatrix(idrotm[562],90.0,104.21,90.0,194.21,0.0,0.0);
730   AliMatrix(idrotm[563],90.0,113.68,90.0,203.68,0.0,0.0); 
731   AliMatrix(idrotm[564],90.0,123.16,90.0,213.16,0.0,0.0);  
732   AliMatrix(idrotm[565],90.0,132.63,90.0,222.63,0.0,0.0);  
733   AliMatrix(idrotm[566],90.0,142.11,90.0,232.11,0.0,0.0);  
734   AliMatrix(idrotm[567],90.0,151.58,90.0,241.58,0.0,0.0);  
735   AliMatrix(idrotm[568],90.0,161.05,90.0,251.05,0.0,0.0);
736   AliMatrix(idrotm[569],90.0,170.53,90.0,260.53,0.0,0.0);
737   AliMatrix(idrotm[570],90.0,180.0,90.0,90.0,180.0,0.0);  
738   AliMatrix(idrotm[571],90.0,0.0,0.0,0.0,90.0,270.0);
739   AliMatrix(idrotm[572],90.0,180.0,0.0,0.0,90.0,270.0);
740   AliMatrix(idrotm[573],90.0,180.0,90.0,90.0,0.0,0.0); 
741   AliMatrix(idrotm[575],90.0,120.0,180.0,0.0,90.0,210.0);  
742   AliMatrix(idrotm[576],65.71,300.0,90.0,30.0,24.29,120.0);  
743   AliMatrix(idrotm[577],114.29,300.0,90.0,30.0,155.71,120.0);  
744   AliMatrix(idrotm[579],65.71,240.0,90.0,150.0,24.29,60.0);
745   AliMatrix(idrotm[580],114.29,240.0,90.0,150.0,155.71,60.0);  
746   AliMatrix(idrotm[581],90.0,240.0,180.0,0.0,90.0,330.0);
747   AliMatrix(idrotm[583],90.0,0.0,180.0,0.0,90.0,90.0); 
748   AliMatrix(idrotm[584],90.0,180.0,180.0,0.0,90.0,90.0);  
749   AliMatrix(idrotm[586],180.0,0.0,90.0,90.0,90.0,0.0);  
750   AliMatrix(idrotm[618],90.0,201.18,90.0,291.18,0.0,0.0);
751   AliMatrix(idrotm[620],90.0,28.42,90.0,118.42,0.0,0.0);  
752   AliMatrix(idrotm[623],90.0,208.42,90.0,298.42,0.0,0.0);
753   AliMatrix(idrotm[633],132.46,0.0,90.0,90.0,42.46,360.0);
754   AliMatrix(idrotm[653],90.0,21.18,90.0,111.18,0.0,0.0); 
755
756   
757   // SDD cone
758
759   AliMatrix(idrotm[846],90.0,300.0,90.0,30.0,0.0,0.0);
760   AliMatrix(idrotm[851],90.0,305.0,90.0,35.0,0.0,0.0);
761   AliMatrix(idrotm[853],90.0,60.0,90.0,150.0,0.0,0.0);
762   AliMatrix(idrotm[856],90.0,0.0,90.0,90.0,180.0,0.0);
763   AliMatrix(idrotm[857],90.0,5.0,90.0,95.0,180.0,0.0);
764   AliMatrix(idrotm[858],90.0,65.0,90.0,155.0,180.0,0.0);
765   AliMatrix(idrotm[859],90.0,305.0,90.0,35.0,180.0,0.0);
766   AliMatrix(idrotm[860],90.0,245.0,90.0,335.0,180.0,0.0);
767   AliMatrix(idrotm[861],90.0,185.0,90.0,275.0,180.0,0.0);
768   AliMatrix(idrotm[862],90.0,125.0,90.0,215.0,180.0,0.0);
769   AliMatrix(idrotm[863],90.0,257.5,90.0,347.5,180.0,0.0);
770   AliMatrix(idrotm[864],90.0,227.5,90.0,317.5,180.0,0.0);
771   AliMatrix(idrotm[865],90.0,197.5,90.0,287.5,180.0,0.0);
772   AliMatrix(idrotm[867],90.0,167.5,90.0,257.5,180.0,0.0);
773   AliMatrix(idrotm[868],90.0,287.5,90.0,17.5,0.0,0.0);  
774   AliMatrix(idrotm[869],90.0,137.5,90.0,227.5,180.0,0.0);
775   AliMatrix(idrotm[870],90.0,107.5,90.0,197.5,180.0,0.0);
776   AliMatrix(idrotm[871],90.0,77.5,90.0,167.5,180.0,0.0);
777   AliMatrix(idrotm[872],90.0,47.5,90.0,137.5,180.0,0.0);
778   AliMatrix(idrotm[873],90.0,17.5,90.0,107.5,180.0,0.0);
779   AliMatrix(idrotm[874],90.0,347.5,90.0,77.5,180.0,0.0);
780   AliMatrix(idrotm[875],90.0,317.5,90.0,47.5,180.0,0.0);
781   AliMatrix(idrotm[876],90.0,287.5,90.0,17.5,180.0,0.0);
782   AliMatrix(idrotm[877],90.0,185.0,90.0,275.0,0.0,0.0);
783   AliMatrix(idrotm[878],90.0,180.0,90.0,270.0,0.0,0.0);  
784   AliMatrix(idrotm[879],90.0,125.0,90.0,215.0,0.0,0.0);
785   AliMatrix(idrotm[880],90.0,65.0,90.0,155.0,0.0,0.0);
786   AliMatrix(idrotm[881],90.0,5.0,90.0,95.0,0.0,0.0);
787   AliMatrix(idrotm[882],90.0,245.0,90.0,335.0,0.0,0.0);
788   AliMatrix(idrotm[883],90.0,47.5,90.0,137.5,0.0,0.0);
789   AliMatrix(idrotm[884],90.0,77.5,90.0,167.5,0.0,0.0);
790   AliMatrix(idrotm[885],90.0,107.5,90.0,197.5,0.0,0.0);
791   AliMatrix(idrotm[887],90.0,137.5,90.0,227.5,0.0,0.0);
792   AliMatrix(idrotm[888],90.0,167.5,90.0,257.5,0.0,0.0);
793   AliMatrix(idrotm[889],90.0,197.5,90.0,287.5,0.0,0.0);
794   AliMatrix(idrotm[890],90.0,227.5,90.0,317.5,0.0,0.0);
795   AliMatrix(idrotm[891],90.0,347.5,90.0,77.5,0.0,0.0);
796   AliMatrix(idrotm[892],90.0,317.5,90.0,47.5,0.0,0.0);
797   AliMatrix(idrotm[893],90.0,257.5,90.0,347.5,0.0,0.0);
798   AliMatrix(idrotm[894],90.0,270.0,0.0,0.0,90.0,180.0);
799   AliMatrix(idrotm[895],90.0,286.36,0.0,0.0,90.0,196.36);
800   AliMatrix(idrotm[896],90.0,302.73,0.0,0.0,90.0,212.73);
801   AliMatrix(idrotm[897],90.0,319.09,0.0,0.0,90.0,229.09);
802   AliMatrix(idrotm[898],90.0,17.5,90.0,107.5,0.0,0.0);
803   AliMatrix(idrotm[899],90.0,335.45,0.0,0.0,90.0,245.45);
804   AliMatrix(idrotm[900],90.0,351.82,0.0,0.0,90.0,261.82);
805   AliMatrix(idrotm[901],90.0,8.18,0.0,0.0,90.0,278.18);
806   AliMatrix(idrotm[902],90.0,24.55,0.0,0.0,90.0,294.55);
807   AliMatrix(idrotm[903],90.0,40.91,0.0,0.0,90.0,310.91);
808   AliMatrix(idrotm[904],90.0,57.27,0.0,0.0,90.0,327.27);
809   AliMatrix(idrotm[905],90.0,73.64,0.0,0.0,90.0,343.64);
810   AliMatrix(idrotm[906],90.0,90.0,0.0,0.0,90.0,360.0);
811   AliMatrix(idrotm[907],90.0,106.36,0.0,0.0,90.0,16.36);
812   AliMatrix(idrotm[908],90.0,122.73,0.0,0.0,90.0,32.73);
813   AliMatrix(idrotm[909],90.0,139.09,0.0,0.0,90.0,49.09);
814   AliMatrix(idrotm[910],90.0,155.45,0.0,0.0,90.0,65.45);
815   AliMatrix(idrotm[911],90.0,171.82,0.0,0.0,90.0,81.82);
816   AliMatrix(idrotm[912],90.0,188.18,0.0,0.0,90.0,98.18);
817   AliMatrix(idrotm[913],90.0,204.55,0.0,0.0,90.0,114.55);
818   AliMatrix(idrotm[914],90.0,220.91,0.0,0.0,90.0,130.91);
819   AliMatrix(idrotm[915],90.0,237.27,0.0,0.0,90.0,147.27);
820   AliMatrix(idrotm[916],90.0,253.64,0.0,0.0,90.0,163.64);
821   AliMatrix(idrotm[917],90.0,295.71,0.0,0.0,90.0,205.71);
822   AliMatrix(idrotm[918],90.0,321.43,0.0,0.0,90.0,231.43);
823   AliMatrix(idrotm[919],90.0,347.14,0.0,0.0,90.0,257.14);
824   AliMatrix(idrotm[920],90.0,12.86,0.0,0.0,90.0,282.86);
825   AliMatrix(idrotm[921],90.0,38.57,0.0,0.0,90.0,308.57);
826   AliMatrix(idrotm[922],90.0,64.29,0.0,0.0,90.0,334.29);
827   AliMatrix(idrotm[923],90.0,115.71,0.0,0.0,90.0,25.71);
828   AliMatrix(idrotm[924],90.0,141.43,0.0,0.0,90.0,51.43);
829   AliMatrix(idrotm[925],90.0,167.14,0.0,0.0,90.0,77.14);
830   AliMatrix(idrotm[926],90.0,192.86,0.0,0.0,90.0,102.86);
831   AliMatrix(idrotm[927],90.0,218.57,0.0,0.0,90.0,128.57);
832   AliMatrix(idrotm[928],90.0,244.29,0.0,0.0,90.0,154.29);
833   AliMatrix(idrotm[929],90.0,120.0,90.0,210.0,0.0,0.0);
834   AliMatrix(idrotm[930],90.0,240.0,90.0,330.0,0.0,0.0);
835   AliMatrix(idrotm[931],90.0,60.0,90.0,150.0,180.0,0.0);
836   AliMatrix(idrotm[932],90.0,120.0,90.0,210.0,180.0,0.0);
837   AliMatrix(idrotm[933],90.0,180.0,90.0,270.0,180.0,0.0);
838   AliMatrix(idrotm[934],90.0,240.0,90.0,330.0,180.0,0.0);
839   AliMatrix(idrotm[935],90.0,300.0,90.0,30.0,180.0,0.0);
840
841   // SSD cone
842
843   AliMatrix(idrotm[701],90.0,0.0,90.0,90.0,180.0,0.0);
844   AliMatrix(idrotm[702],90.0,347.5,90.0,77.5,180.0,0.0);
845   AliMatrix(idrotm[703],90.0,17.5,90.0,107.5,180.0,0.0);
846   AliMatrix(idrotm[704],90.0,47.5,90.0,137.5,180.0,0.0);
847   AliMatrix(idrotm[705],90.0,77.5,90.0,167.5,180.0,0.0);
848   AliMatrix(idrotm[706],90.0,107.5,90.0,197.5,180.0,0.0);
849   AliMatrix(idrotm[707],90.0,137.5,90.0,227.5,180.0,0.0);
850   AliMatrix(idrotm[708],90.0,167.5,90.0,257.5,180.0,0.0);
851   AliMatrix(idrotm[709],90.0,197.5,90.0,287.5,180.0,0.0);
852   AliMatrix(idrotm[710],90.0,227.5,90.0,317.5,180.0,0.0);
853   AliMatrix(idrotm[711],90.0,257.5,90.0,347.5,180.0,0.0);
854   AliMatrix(idrotm[712],90.0,287.5,90.0,17.5,180.0,0.0);
855   AliMatrix(idrotm[713],90.0,317.5,90.0,47.5,180.0,0.0);
856   AliMatrix(idrotm[714],90.0,328.4,90.0,58.4,180.0,0.0);
857   AliMatrix(idrotm[715],90.0,28.4,90.0,118.4,180.0,0.0);
858   AliMatrix(idrotm[716],90.0,88.4,90.0,178.4,180.0,0.0);
859   AliMatrix(idrotm[717],90.0,148.4,90.0,238.4,180.0,0.0);
860   AliMatrix(idrotm[718],90.0,208.4,90.0,298.4,180.0,0.0);
861   AliMatrix(idrotm[719],90.0,268.4,90.0,358.4,180.0,0.0);
862   AliMatrix(idrotm[720],90.0,28.4,90.0,118.4,0.0,0.0);
863   AliMatrix(idrotm[721],90.0,88.4,90.0,178.4,0.0,0.0);
864   AliMatrix(idrotm[722],90.0,148.4,90.0,238.4,0.0,0.0);
865   AliMatrix(idrotm[723],90.0,208.4,90.0,298.4,0.0,0.0);
866   AliMatrix(idrotm[724],90.0,268.4,90.0,358.4,0.0,0.0);
867   AliMatrix(idrotm[725],90.0,328.4,90.0,58.4,0.0,0.0);
868   AliMatrix(idrotm[726],90.0,77.5,90.0,167.5,0.0,0.0);
869   AliMatrix(idrotm[727],90.0,107.5,90.0,197.5,0.0,0.0);
870   AliMatrix(idrotm[728],90.0,137.5,90.0,227.5,0.0,0.0);
871   AliMatrix(idrotm[729],90.0,167.5,90.0,257.5,0.0,0.0);
872   AliMatrix(idrotm[730],90.0,227.5,90.0,317.5,0.0,0.0);
873   AliMatrix(idrotm[731],90.0,257.5,90.0,347.5,0.0,0.0);
874   AliMatrix(idrotm[732],90.0,317.5,90.0,47.5,0.0,0.0);  
875   AliMatrix(idrotm[733],90.0,197.5,90.0,287.5,0.0,0.0);
876   AliMatrix(idrotm[734],90.0,347.5,90.0,77.5,0.0,0.0);
877   AliMatrix(idrotm[735],90.0,47.5,90.0,137.5,0.0,0.0);
878   AliMatrix(idrotm[768],90.0,287.5,90.0,17.5,0.0,0.0);
879   AliMatrix(idrotm[798],90.0,17.5,90.0,107.5,0.0,0.0);
880
881   // Services
882     
883   AliMatrix(idrotm[200], 90., 0., 90., 90., 180., 0.);  
884
885
886   //     CONVERT INTO CM (RL(SI)=9.36 CM) 
887   
888   for (i = 0; i < 6; ++i) {
889     drl[i] = drl[i] / 100. * 9.36;
890   }
891     
892   //     FIELD CAGE HALF LENGTH 
893   
894   rlim  = 50.;
895   zmax  = 74.;
896   ztpc = 284.;
897   
898   // --- Define ghost volume containing the whole ITS (including services) 
899   //     and fill it with air 
900   
901   dgh[0] = 0.;
902   dgh[1] = 360.;
903   dgh[2] = 16.;
904   dgh[3] = -ztpc-5.-0.1;
905   dgh[4] = 46;   
906   dgh[5] = 85.;
907   dgh[6] = -ztpc;
908   dgh[7] = 46;   
909   dgh[8] = 85.;
910   dgh[9] = -ztpc;
911   dgh[10] = 46;  
912   dgh[11] = rlim+6;
913   dgh[12] = -97.5;
914   dgh[13] = 46;  
915   dgh[14] = rlim+6;
916   dgh[15] = -zmax;
917   dgh[16] = 46;  
918   dgh[17] = rlim+6;
919   dgh[18] = -48;   
920   dgh[19] = 6;
921   dgh[20] = rlim+6;
922   dgh[21] = -28.6;   
923   dgh[22] = 6;
924   dgh[23] = rlim+6;    
925   dgh[24] = -27.6;  
926   dgh[25] = 3.295;
927   dgh[26] = rlim+6; 
928   dgh[27] = 27.6;   
929   dgh[28] = 3.295;
930   dgh[29] = rlim+6;
931   dgh[30] = 28.6;   
932   dgh[31] = 6;
933   dgh[32] = rlim+6;
934   dgh[33] = 48;   
935   dgh[34] = 6;
936   dgh[35] = rlim+6;  
937   dgh[36] = zmax;
938   dgh[37] = 46;
939   dgh[38] = rlim+6;
940   dgh[39] = 97.5;
941   dgh[40] = 46;  
942   dgh[41] = rlim+6;
943   dgh[42] = ztpc;
944   dgh[43] = 62;     
945   dgh[44] = 62+4.;  
946   dgh[45] = ztpc;
947   dgh[46] = 62;     
948   dgh[47] = 85.;
949   dgh[48] = ztpc+4.+0.1;
950   dgh[49] = 62.4;
951   dgh[50] = 85.;
952   gMC->Gsvolu("ITSV", "PCON", idtmed[205], dgh, 51);
953
954   
955   // --- Place the ghost volume in its mother volume (ALIC) and make it 
956   //     invisible 
957   
958   gMC->Gspos("ITSV", 1, "ALIC", 0., 0., 0., 0, "ONLY");
959   //gMC->Gsatt("ITSV", "SEEN", 0); 
960
961
962   // --- Define ghost volume containing the six layers and fill it with air 
963   
964   dgh[0] = 0.;
965   dgh[1] = 360.;
966   dgh[2] = 8.;
967   dgh[3] = -zmax;  
968   dgh[4] = 46.;
969   dgh[5] = rlim;
970   dgh[6] = -47.5;    
971   dgh[7] = 6.005;
972   dgh[8] = rlim;
973   dgh[9] = -28.5;    
974   dgh[10] = 6.005;
975   dgh[11] = rlim;  
976   dgh[12] = -27.5;   
977   dgh[13] = 3.3;
978   dgh[14] = rlim;
979   dgh[15] = 27.5;    
980   dgh[16] = 3.3;
981   dgh[17] = rlim;
982   dgh[18] = 28.5;    
983   dgh[19] = 6.005;
984   dgh[20] = rlim;
985   dgh[21] = 47.5;    
986   dgh[22] = 6.005;
987   dgh[23] = rlim;
988   dgh[24] = zmax;    
989   dgh[25] = 46.;
990   dgh[26] = rlim;
991   gMC->Gsvolu("ITSD", "PCON", idtmed[205], dgh, 27);
992   
993   // --- Place the ghost volume in its mother volume (ITSV) and make it 
994   //     invisible 
995   
996   gMC->Gspos("ITSD", 1, "ITSV", 0., 0., 0., 0, "ONLY");
997   //gMC->Gsatt("ITSD", "SEEN", 0);
998
999
1000   // --- Define SPD (option 'a') volumes ----------------------------
1001   
1002   // SPD - option 'a' 
1003   // (this is NOT the default)
1004
1005   if (option == 1) {
1006   
1007      dits[0] = 3.7;
1008      dits[1] = 7.75;
1009      dits[2] = 26.1;
1010      gMC->Gsvolu("IT12", "TUBE", idtmed[254], dits, 3);
1011
1012      dits[0] = 3.7;
1013      dits[1] = 7.7;
1014      dits[2] = 24;
1015      dits[3] = 57;
1016      dits[4] = 100;
1017      gMC->Gsvolu("I12A", "TUBS", idtmed[254], dits, 5);    // sector
1018
1019      di10a[0] = 0.843;
1020      di10a[1] = ddet1+dchip1+dbus+0.0025;
1021      di10a[2] = 19.344;
1022      gMC->Gsvolu("I10A", "BOX ", idtmed[254], di10a, 3);    // mother volume
1023                                                             // on layer 1
1024      di20a[0] = 0.843;
1025      di20a[1] = ddet2+dchip2+dbus+0.0025;
1026      di20a[2] = 19.344;
1027      gMC->Gsvolu("I20A", "BOX ", idtmed[254], di20a, 3);    // mother volume
1028                                                             // on layer 2
1029      dits[0] = 1.3673;
1030      dits[1] = 0.01;
1031      dits[2] = 24;
1032      gMC->Gsvolu("I123", "BOX ", idtmed[253], dits, 3);
1033
1034      dits[0] = 0.06;
1035      dits[1] = 0.08;
1036      dits[2] = 24;
1037      dits[3] = -36.79;
1038      dits[4] = 21.834;
1039      gMC->Gsvolu("I121", "TUBS", idtmed[253], dits, 5);  
1040
1041      dits[0] = 0.1253;
1042      dits[1] = 0.01;
1043      dits[2] = 24;
1044      gMC->Gsvolu("I122", "BOX ", idtmed[253], dits, 3);
1045
1046      dits[0] = 0.04;
1047      dits[1] = 0.06 ;
1048      dits[2] = 24;
1049      dits[3] = 126.79;
1050      dits[4] = 270;
1051      gMC->Gsvolu("I120", "TUBS", idtmed[253], dits, 5);  
1052
1053      dits[0] = 0.1134;
1054      dits[1] = 0.01;
1055      dits[2] = 24;
1056      gMC->Gsvolu("I144", "BOX ", idtmed[253], dits, 3);  
1057
1058      dits[0] = 0.25;
1059      dits[1] = 0.06;
1060      dits[2] = 24;
1061      gMC->Gsvolu("I113", "BOX ", idtmed[254], dits, 3);  
1062
1063      dits[0] = 0.077;
1064      dits[1] = 0.01;
1065      dits[2] = 24;
1066      gMC->Gsvolu("I143", "BOX ", idtmed[253], dits, 3);   
1067
1068      dits[0] = 0.04;
1069      dits[1] = 0.06;
1070      dits[2] = 24;
1071      dits[3] = 0;
1072      dits[4] = 90;
1073      gMC->Gsvolu("I142", "TUBS", idtmed[253], dits, 5); 
1074
1075      dits[0] = 0.0695;
1076      dits[1] = 0.01;
1077      dits[2] = 24;
1078      gMC->Gsvolu("I141", "BOX ", idtmed[253], dits, 3);  
1079
1080      dits[0] = 0.06;
1081      dits[1] = 0.08;
1082      dits[2] = 24;
1083      dits[3] = 0;
1084      dits[4] = 108;
1085      gMC->Gsvolu("I140", "TUBS", idtmed[253], dits, 5);  
1086
1087      dits[0] = 0.1835;
1088      dits[1] = 0.01;
1089      dits[2] = 24;
1090      gMC->Gsvolu("I139", "BOX ", idtmed[253], dits, 3);
1091
1092      dits[0] = 0.1894 ;
1093      dits[1] = 0.01;
1094      dits[2] = 24;
1095      gMC->Gsvolu("I138", "BOX ", idtmed[253], dits, 3);  
1096
1097      dits[0] = 0.04;
1098      dits[1] = 0.06;
1099      dits[2] = 24;
1100      dits[3] = 0;
1101      dits[4] = 75.261;
1102      gMC->Gsvolu("I137", "TUBS", idtmed[253], dits, 5);  
1103
1104      dits[0] = 1.3401;
1105      dits[1] = 0.01;
1106      dits[2] = 24;
1107      gMC->Gsvolu("I136", "BOX ", idtmed[253], dits, 3);  
1108
1109      dits[0] = 0.05;
1110      dits[1] = 0.07;
1111      dits[2] = 24;
1112      dits[3] = 0;
1113      dits[4] = 72.739;
1114      gMC->Gsvolu("I135", "TUBS", idtmed[253], dits, 5);  
1115
1116      dits[0] = 0.1193;
1117      dits[1] = 0.01;
1118      dits[2] = 24;
1119      gMC->Gsvolu("I134", "BOX ", idtmed[253], dits, 3);    
1120
1121      dits[0] = 0.163;
1122      dits[1] = 0.01;
1123      dits[2] = 24;
1124      gMC->Gsvolu("I133", "BOX ", idtmed[253], dits, 3);   
1125
1126      dits[0] = 0.04;
1127      dits[1] = 0.06;
1128      dits[2] = 24;
1129      dits[3] = 0;
1130      dits[4] = 157.633;
1131      gMC->Gsvolu("I132", "TUBS", idtmed[253], dits, 5); 
1132
1133      dits[0] = 0.2497;
1134      dits[1] = 0.01;
1135      dits[2] = 24;
1136      gMC->Gsvolu("I131", "BOX ", idtmed[253], dits, 3); 
1137
1138      dits[0] = 0.06;
1139      dits[1] = 0.08;
1140      dits[2] = 24;
1141      dits[3] = 0;
1142      dits[4] = 148.633;
1143      gMC->Gsvolu("I130", "TUBS", idtmed[253], dits, 5); 
1144
1145      dits[0] = 0.292;
1146      dits[1] = 0.01;
1147      dits[2] = 24;
1148      gMC->Gsvolu("I129", "BOX ", idtmed[253], dits, 3);  
1149
1150      dits[0] = 0.163;
1151      dits[1] = 0.01;
1152      dits[2] = 24;
1153      gMC->Gsvolu("I128", "BOX ", idtmed[253], dits, 3);  
1154
1155      dits[0] = 0.04;
1156      dits[1] = 0.06;
1157      dits[2] = 24;
1158      dits[3] = 0;
1159      dits[4] = 161.297;
1160      gMC->Gsvolu("I126", "TUBS", idtmed[253], dits, 5);
1161
1162      dits[0] = 0.2433;
1163      dits[1] = 0.01;
1164      dits[2] = 24;
1165      gMC->Gsvolu("I125", "BOX ", idtmed[253], dits, 3);  
1166
1167      dits[0] = 0.06;
1168      dits[1] = 0.08;
1169      dits[2] = 24;
1170      dits[3] = 0;
1171      dits[4] = 42.883;
1172      gMC->Gsvolu("I124", "TUBS", idtmed[253], dits, 5);  
1173
1174      di103[0] = 0.793;
1175      di103[1] = ddet1+dchip1;
1176      di103[2] = 3.536;
1177      gMC->Gsvolu("I103", "BOX ", idtmed[254], di103, 3); // contains det and chip  
1178                                                          // layer 1
1179      dits[0] = 0.793;
1180      dits[1] = 0.475;  //0.685; 0.015
1181      dits[2] = 2.5;
1182      gMC->Gsvolu("I105", "BOX ", idtmed[290], dits, 3);  // end-ladder electr.
1183
1184      di104[0] = 0.843;
1185      di104[1] = dbus;
1186      di104[2] = 14.344;
1187      gMC->Gsvolu("I104", "BOX ", idtmed[275], di104, 3);  // bus for both layers
1188
1189      di1d3[0] = 0.793;
1190      di1d3[1] = ddet2+dchip2;
1191      di1d3[2] = 3.536;
1192      gMC->Gsvolu("I1D3", "BOX ", idtmed[254], di1d3, 3); // contains det and chip
1193                                                          // layer 2
1194      dits[0] = 0.793;
1195      dits[0] = 0.06;
1196      dits[1] = 0.08;
1197      dits[2] = 24;
1198      dits[3] = 0;
1199      dits[4] = 80;
1200      gMC->Gsvolu("I112", "TUBS", idtmed[253], dits, 5);  
1201
1202      dits[0] = 0.04;
1203      dits[1] = 0.06;
1204      dits[2] = 24;
1205      dits[3] = 0;
1206      dits[4] = 80;
1207      gMC->Gsvolu("I111", "TUBS", idtmed[253], dits, 5);  
1208
1209      dits[0] = 0.15;
1210      dits[1] = 0.0146;
1211      dits[2] = 24;
1212      gMC->Gsvolu("I118", "BOX ", idtmed[273], dits, 3);  
1213
1214      dits[0] = 0.1315;
1215      dits[1] = 0.01;
1216      dits[2] = 24;
1217      gMC->Gsvolu("I110", "BOX ", idtmed[253], dits, 3);  
1218
1219      dits[0] = 0.025;
1220      dits[1] = 0.035;
1221      dits[2] = 24;
1222      dits[3] = 0;
1223      dits[4] = 180;
1224      gMC->Gsvolu("I114", "TUBS", idtmed[264], dits, 5);  
1225
1226      if (fluid == 1) {
1227         dits[0] = 0;
1228         dits[1] = 0.025;
1229         dits[2] = 24;
1230         dits[3] = 0;
1231         dits[4] = 180;
1232         gMC->Gsvolu("I115", "TUBS", idtmed[211], dits, 5); // set water as cooling fluid   
1233      } else {
1234         dits[0] = 0;
1235         dits[1] = 0.025;
1236         dits[2] = 24;
1237         dits[3] = 0;
1238         dits[4] = 180;
1239         gMC->Gsvolu("I115", "TUBS", idtmed[212], dits, 5); // set freon as cooling fluid       
1240      }
1241      
1242      dits[0] = 0.063;
1243      dits[1] = 0.035;
1244      dits[2] = 24;
1245      gMC->Gsvolu("I116", "BOX ", idtmed[264], dits, 3); 
1246
1247      di102[0] = 0.793;
1248      di102[1] = dchip1;
1249      di102[2] = 0.68;
1250      gMC->Gsvolu("I102", "BOX ", idtmed[201], di102, 3);   // chip layer 1
1251           
1252      di1d2[0] = 0.793;
1253      di1d2[1] = dchip2;
1254      di1d2[2] = 0.68;
1255      gMC->Gsvolu("I1D2", "BOX ", idtmed[201], di1d2, 3);   // chip      layer 2
1256
1257      di101[0] = 0.705;
1258      di101[1] = ddet1;
1259      di101[2] = 3.536;
1260      gMC->Gsvolu("I101", "BOX ", idtmed[250], di101, 3);   // contains detector 
1261                                                            // layer 1
1262      di1d1[0] = 0.705;
1263      di1d1[1] = ddet2;
1264      di1d1[2] = 3.536;
1265      gMC->Gsvolu("I1D1", "BOX ", idtmed[250], di1d1, 3);   // contains detector 
1266                                                            // layer 2
1267      if (fluid == 1) {
1268         dits[0] = 0.063;
1269         dits[1] = 0.025;
1270         dits[2] = 24;
1271         gMC->Gsvolu("I117", "BOX ", idtmed[211], dits, 3); // set water as cooling fuid
1272      } else {
1273         dits[0] = 0.063;
1274         dits[1] = 0.025;
1275         dits[2] = 24;
1276         gMC->Gsvolu("I117", "BOX ", idtmed[212], dits, 3); // set freon as cooling fluid
1277      }
1278
1279      dits1[0] = 0.64;
1280      dits1[1] = ddet1;
1281      dits1[2] = 3.48;
1282      gMC->Gsvolu("ITS1", "BOX ", idtmed[200], dits1, 3);   // detector layer 1
1283
1284      dits2[0] = 0.64;
1285      dits2[1] = ddet2;
1286      dits2[2] = 3.48;
1287      gMC->Gsvolu("ITS2", "BOX ", idtmed[200], dits2, 3);   // detector layer 2
1288
1289      dits[0] = 3.701;
1290      dits[1] = 7.699;
1291      dits[2] = 4;
1292      dits[3] = 57.1;
1293      dits[4] = 99.9;  
1294      gMC->Gsvolu("I650", "TUBS", idtmed[254], dits, 5);  // was I150 in old geom.
1295
1296      dits[0] = 3.7;
1297      dits[1] = 7.75;
1298      dits[2] = 0.05;
1299      gMC->Gsvolu("I651", "TUBE", idtmed[296], dits, 3);  // services disk
1300  
1301      dits[0] = 0;
1302      dits[1] = 0.5;
1303      dits[2] = 1.5;
1304      gMC->Gsvolu("I676", "TUBE", idtmed[274], dits, 3); // was I176 in old geom.
1305
1306      dits[0] = 0;
1307      dits[1] = 0.18;
1308      dits[2] = 0.8;
1309      gMC->Gsvolu("I673", "TUBE", idtmed[274], dits, 3); // was I173 in old geom.
1310
1311      dits[0] = 0;
1312      dits[1] = 0.18;
1313      dits[2] = 3;
1314      gMC->Gsvolu("I671", "TUBE", idtmed[274], dits, 3); // was I171 in old geom.
1315
1316      dits[0] = 0;
1317      dits[1] = 0.075;
1318      dits[2] = 0.8;
1319      gMC->Gsvolu("I669", "TUBE", idtmed[264], dits, 3); // was I169 in old geom.
1320
1321      dits[0] = 3.5;
1322      dits[1] = 5.6;
1323      dits[2] = 0.55;
1324      dits[3] = 0;
1325      dits[4] = 38;
1326      gMC->Gsvolu("I667", "TUBS", idtmed[263], dits, 5); // was I167 in old geom.
1327
1328      dits[0] = 6.6;
1329      dits[1] = 7.6;
1330      dits[2] = 0.5;
1331      dits[3] = 0;
1332      dits[4] = 9;
1333      gMC->Gsvolu("I666", "TUBS", idtmed[263], dits, 5); // was I166 in old geom.
1334
1335      dits[0] = 0.26;
1336      dits[1] = 0.32;
1337      dits[2] = 0.55;
1338      gMC->Gsvolu("I678", "TUBE", idtmed[263], dits, 3); // was I178 in old geom.
1339
1340      if (fluid == 1) {
1341         dits[0] = 0;
1342         dits[1] = 0.3;
1343         dits[2] = 1.5;
1344         gMC->Gsvolu("I677", "TUBE", idtmed[211], dits, 3); // set water as cooling fluid
1345                                                            // was I177 in old geom.
1346      } else {
1347          dits[0] = 0;
1348         dits[1] = 0.3;
1349         dits[2] = 1.5;
1350         gMC->Gsvolu("I677", "TUBE", idtmed[212], dits, 3); // set freon as cooling fluid
1351                                                            // was I177 in old geom.    
1352      }
1353      
1354      dits[0] = 0.07;
1355      dits[1] = 0.125;
1356      dits[2] = 0.3;
1357      gMC->Gsvolu("I675", "TUBE", idtmed[263], dits, 3); // was I175 in old geom.
1358
1359      if (fluid == 1) {
1360         dits[0] = 0;
1361         dits[1] = 0.1;
1362         dits[2] = 0.8;
1363         gMC->Gsvolu("I674", "TUBE", idtmed[211], dits, 3); // set water as cooling fluid
1364                                                            // was I174 in old geom.
1365      } else {
1366         dits[0] = 0;
1367         dits[1] = 0.1;
1368         dits[2] = 0.8;
1369         gMC->Gsvolu("I674", "TUBE", idtmed[212], dits, 3); // set freon as cooling fluid
1370                                                            // was I174 in old geom.     
1371      }
1372      
1373      if (fluid == 1) {
1374         dits[0] = 0;
1375         dits[1] = 0.1;
1376         dits[2] = 3;
1377         gMC->Gsvolu("I672", "TUBE", idtmed[211], dits, 3); // set water as cooling fluid
1378                                                            // was I172 in old geom.
1379      } else {
1380         dits[0] = 0;
1381         dits[1] = 0.1;
1382         dits[2] = 3;
1383         gMC->Gsvolu("I672", "TUBE", idtmed[212], dits, 3); // set freon as cooling fluid
1384                                                            // was I172 in old geom.        
1385      }
1386      
1387      if (fluid == 1) {     
1388         dits[0] = 0;
1389         dits[1] = 0.0746;
1390         dits[2] = 0.8;
1391         gMC->Gsvolu("I670", "TUBE", idtmed[211], dits, 3); // set water as cooling fluid
1392                                                            // was I170 in old geom.
1393      } else {
1394         dits[0] = 0;
1395         dits[1] = 0.0746;
1396         dits[2] = 0.8;
1397         gMC->Gsvolu("I670", "TUBE", idtmed[212], dits, 3); // set freon as cooling fluid
1398                                                            // was I170 in old geom.     
1399      }
1400      
1401      if (fluid == 1) {     
1402         dits[0] = 3.7;
1403         dits[1] = 5.4;
1404         dits[2] = 0.35;
1405         dits[3] = 2;
1406         dits[4] = 36;
1407         gMC->Gsvolu("I668", "TUBS", idtmed[211], dits, 5); // set water as cooling fluid
1408                                                            // was I168 in old geom.
1409      } else {
1410         dits[0] = 3.7;
1411         dits[1] = 5.4;
1412         dits[2] = 0.35;
1413         dits[3] = 2;
1414         dits[4] = 36;
1415         gMC->Gsvolu("I668", "TUBS", idtmed[212], dits, 5); // set freon as cooling fluid
1416                                                            // was I168 in old geom.
1417      }
1418
1419
1420   }
1421
1422   // --- Define SPD (option 'b') volumes ----------------------------
1423   
1424   // SPD - option 'b' 
1425   // (this is the default)
1426
1427   if (option == 2) {
1428   
1429      dits[0] = 3.7;
1430      dits[1] = 7.75;
1431      dits[2] = 26.1;
1432      gMC->Gsvolu("IT12", "TUBE", idtmed[254], dits, 3);   
1433
1434      dits[0] = 3.7;
1435      dits[1] = 7.7;
1436      dits[2] = 24;
1437      dits[3] = 57;
1438      dits[4] = 100;
1439      gMC->Gsvolu("I12B", "TUBS", idtmed[254], dits, 5);   // sector
1440
1441      di10b[0] = 0.843;
1442      di10b[1] = ddet1+dchip1+dbus+0.0025;  
1443      di10b[2] = 19.344;
1444      gMC->Gsvolu("I10B", "BOX ", idtmed[254], di10b, 3);   // mother volume 
1445                                                                 // on layer 1
1446
1447      di20b[0] = 0.843;
1448      di20b[1] = ddet2+dchip2+dbus+0.0025;   
1449      di20b[2] = 19.344;
1450      gMC->Gsvolu("I20B", "BOX ", idtmed[254], di20b, 3);   // mother volume
1451                                                                 // layer 2
1452
1453      dits[0] = 1.3673;
1454      dits[1] = 0.01;
1455      dits[2] = 24;
1456      gMC->Gsvolu("I123", "BOX ", idtmed[253], dits, 3);
1457
1458      dits[0] = 0.06;
1459      dits[1] = 0.08;
1460      dits[2] = 24;
1461      dits[3] = -36.79;
1462      dits[4] = 21.834;
1463      gMC->Gsvolu("I121", "TUBS", idtmed[253], dits, 5);  
1464
1465      dits[0] = 0.1253;
1466      dits[1] = 0.01;
1467      dits[2] = 24;
1468      gMC->Gsvolu("I122", "BOX ", idtmed[253], dits, 3);  
1469
1470      dits[0] = 0.04;
1471      dits[1] = 0.06 ;
1472      dits[2] = 24;
1473      dits[3] = 126.79;
1474      dits[4] = 270;
1475      gMC->Gsvolu("I120", "TUBS", idtmed[253], dits, 5);  
1476
1477      dits[0] = 0.1134;
1478      dits[1] = 0.01;
1479      dits[2] = 24;
1480      gMC->Gsvolu("I144", "BOX ", idtmed[253], dits, 3);  
1481
1482      dits[0] = 0.25;
1483      dits[1] = 0.06;
1484      dits[2] = 24;
1485      gMC->Gsvolu("I113", "BOX ", idtmed[254], dits, 3);  
1486
1487      dits[0] = 0.077;
1488      dits[1] = 0.01;
1489      dits[2] = 24;
1490      gMC->Gsvolu("I143", "BOX ", idtmed[253], dits, 3);   
1491
1492      dits[0] = 0.04;
1493      dits[1] = 0.06;
1494      dits[2] = 24;
1495      dits[3] = 0;
1496      dits[4] = 90;
1497      gMC->Gsvolu("I142", "TUBS", idtmed[253], dits, 5); 
1498
1499      dits[0] = 0.0695;
1500      dits[1] = 0.01;
1501      dits[2] = 24;
1502      gMC->Gsvolu("I141", "BOX ", idtmed[253], dits, 3);  
1503
1504      dits[0] = 0.06;
1505      dits[1] = 0.08;
1506      dits[2] = 24;
1507      dits[3] = 0;
1508      dits[4] = 108;
1509      gMC->Gsvolu("I140", "TUBS", idtmed[253], dits, 5);  
1510
1511      dits[0] = 0.1835;
1512      dits[1] = 0.01;
1513      dits[2] = 24;
1514      gMC->Gsvolu("I139", "BOX ", idtmed[253], dits, 3);
1515
1516      dits[0] = 0.1894 ;
1517      dits[1] = 0.01;
1518      dits[2] = 24;
1519      gMC->Gsvolu("I138", "BOX ", idtmed[253], dits, 3);  
1520
1521      dits[0] = 0.04;
1522      dits[1] = 0.06;
1523      dits[2] = 24;
1524      dits[3] = 0;
1525      dits[4] = 75.261;
1526      gMC->Gsvolu("I137", "TUBS", idtmed[253], dits, 5);  
1527
1528      dits[0] = 1.3401;
1529      dits[1] = 0.01;
1530      dits[2] = 24;
1531      gMC->Gsvolu("I136", "BOX ", idtmed[253], dits, 3);  
1532
1533      dits[0] = 0.05;
1534      dits[1] = 0.07;
1535      dits[2] = 24;
1536      dits[3] = 0;
1537      dits[4] = 72.739;
1538      gMC->Gsvolu("I135", "TUBS", idtmed[253], dits, 5);  
1539
1540      dits[0] = 0.1193;
1541      dits[1] = 0.01;
1542      dits[2] = 24;
1543      gMC->Gsvolu("I134", "BOX ", idtmed[253], dits, 3);    
1544
1545      dits[0] = 0.163;
1546      dits[1] = 0.01;
1547      dits[2] = 24;
1548      gMC->Gsvolu("I133", "BOX ", idtmed[253], dits, 3);   
1549
1550      dits[0] = 0.04;
1551      dits[1] = 0.06;
1552      dits[2] = 24;
1553      dits[3] = 0;
1554      dits[4] = 157.633;
1555      gMC->Gsvolu("I132", "TUBS", idtmed[253], dits, 5); 
1556
1557      dits[0] = 0.2497;
1558      dits[1] = 0.01;
1559      dits[2] = 24;
1560      gMC->Gsvolu("I131", "BOX ", idtmed[253], dits, 3); 
1561
1562      dits[0] = 0.06;
1563      dits[1] = 0.08;
1564      dits[2] = 24;
1565      dits[3] = 0;
1566      dits[4] = 148.633;
1567      gMC->Gsvolu("I130", "TUBS", idtmed[253], dits, 5); 
1568
1569      dits[0] = 0.292;
1570      dits[1] = 0.01;
1571      dits[2] = 24;
1572      gMC->Gsvolu("I129", "BOX ", idtmed[253], dits, 3);  
1573
1574      dits[0] = 0.163;
1575      dits[1] = 0.01;
1576      dits[2] = 24;
1577      gMC->Gsvolu("I128", "BOX ", idtmed[253], dits, 3);  
1578
1579      dits[0] = 0.04;
1580      dits[1] = 0.06;
1581      dits[2] = 24;
1582      dits[3] = 0;
1583      dits[4] = 161.297;
1584      gMC->Gsvolu("I126", "TUBS", idtmed[253], dits, 5);
1585
1586      dits[0] = 0.2433;
1587      dits[1] = 0.01;
1588      dits[2] = 24;
1589      gMC->Gsvolu("I125", "BOX ", idtmed[253], dits, 3);  
1590
1591      dits[0] = 0.06;
1592      dits[1] = 0.08;
1593      dits[2] = 24;
1594      dits[3] = 0;
1595      dits[4] = 42.883;
1596      gMC->Gsvolu("I124", "TUBS", idtmed[253], dits, 5);  
1597
1598      dits[0] = 0.793;
1599      dits[1] = 0.475 ;  //0.685; 0.015
1600      dits[2] = 2.5;
1601      gMC->Gsvolu("I105", "BOX ", idtmed[290], dits, 3);  
1602
1603      di107[0] = 0.793;
1604      di107[1] = ddet1+dchip1;
1605      di107[2] = 3.536;
1606      gMC->Gsvolu("I107", "BOX ", idtmed[254], di107, 3); // contains det and chip   
1607                                                          // layer 1
1608      dits[0] = 0.705;
1609      dits[1] = 0.01;
1610      dits[2] = 2.5;
1611      gMC->Gsvolu("I109", "BOX ", idtmed[275], dits, 3);  
1612
1613      di108[0] = 0.705;
1614      di108[1] = dbus;
1615      di108[2] = 14.344;
1616      gMC->Gsvolu("I108", "BOX ", idtmed[275], di108, 3); // bus for both layers 
1617
1618      di1d7[0] = 0.7975;
1619      di1d7[1] = ddet2+dchip2;   
1620      di1d7[2] = 3.536;
1621      gMC->Gsvolu("I1D7", "BOX ", idtmed[254], di1d7, 3); // contains det and chip
1622                                                          // layer 2
1623      dits[0] = 0.06;
1624      dits[1] = 0.08;
1625      dits[2] = 24;
1626      dits[3] = 0;
1627      dits[4] = 80;
1628      gMC->Gsvolu("I112", "TUBS", idtmed[253], dits, 5);  
1629
1630      dits[0] = 0.04;
1631      dits[1] = 0.06;
1632      dits[2] = 24;
1633      dits[3] = 0;
1634      dits[4] = 80;
1635      gMC->Gsvolu("I111", "TUBS", idtmed[253], dits, 5);  
1636
1637      dits[0] = 0.15;
1638      dits[1] = 0.0146;
1639      dits[2] = 24;
1640      gMC->Gsvolu("I118", "BOX ", idtmed[273], dits, 3);  
1641
1642      dits[0] = 0.1315;
1643      dits[1] = 0.01;
1644      dits[2] = 24;
1645      gMC->Gsvolu("I110", "BOX ", idtmed[253], dits, 3);  
1646
1647      dits[0] = 0.025;
1648      dits[1] = 0.035;
1649      dits[2] = 24;
1650      dits[3] = 0;
1651      dits[4] = 180;
1652      gMC->Gsvolu("I114", "TUBS", idtmed[264], dits, 5);  
1653
1654      if (fluid == 1) {
1655         dits[0] = 0;
1656         dits[1] = 0.025;
1657         dits[2] = 24;
1658         dits[3] = 0;
1659         dits[4] = 180;
1660         gMC->Gsvolu("I115", "TUBS", idtmed[211], dits, 5);  // set water as cooling fluid   
1661      } else {
1662         dits[0] = 0;
1663         dits[1] = 0.025;
1664         dits[2] = 24;
1665         dits[3] = 0;
1666         dits[4] = 180;
1667         gMC->Gsvolu("I115", "TUBS", idtmed[212], dits, 5);  // set freon as cooling fluid
1668      }
1669      
1670      dits[0] = 0.063;
1671      dits[1] = 0.035;
1672      dits[2] = 24;
1673      gMC->Gsvolu("I116", "BOX ", idtmed[264], dits, 3); 
1674
1675      di106[0] = 0.7975;
1676      di106[1] = dchip1;   
1677      di106[2] = 0.68;
1678      gMC->Gsvolu("I106", "BOX ", idtmed[201], di106, 3);   // chip layer 1
1679
1680      di1d6[0] = 0.7975;
1681      di1d6[1] = dchip2;   
1682      di1d6[2] = 0.68;
1683      gMC->Gsvolu("I1D6", "BOX ", idtmed[201], di1d6, 3);   // chip layer 2
1684
1685      di101[0] = 0.705;
1686      di101[1] = ddet1;
1687      di101[2] = 3.536;
1688      gMC->Gsvolu("I101", "BOX ", idtmed[250], di101, 3);  // contains detector  
1689                                                           // layer 1
1690      di1d1[0] = 0.705;
1691      di1d1[1] = ddet2;   
1692      di1d1[2] = 3.536;
1693      gMC->Gsvolu("I1D1", "BOX ", idtmed[250], di1d1, 3);  // contains detector  
1694                                                           // layer 2
1695    
1696      if (fluid == 1) {
1697         dits[0] = 0.063;
1698         dits[1] = 0.025;
1699         dits[2] = 24;
1700         gMC->Gsvolu("I117", "BOX ", idtmed[211], dits, 3); // set water as cooling fluid
1701      } else {
1702         dits[0] = 0.063;
1703         dits[1] = 0.025;
1704         dits[2] = 24;
1705         gMC->Gsvolu("I117", "BOX ", idtmed[212], dits, 3); // set freon as cooling fluid
1706      }
1707
1708      dits1[0] = 0.64;
1709      dits1[1] = ddet1;
1710      dits1[2] = 3.48;
1711      gMC->Gsvolu("ITS1", "BOX ", idtmed[200], dits1, 3);   // detector layer 1
1712
1713      dits2[0] = 0.64;
1714      dits2[1] = ddet2;  
1715      dits2[2] = 3.48;
1716      gMC->Gsvolu("ITS2", "BOX ", idtmed[200], dits2, 3);   // detector layer 2
1717
1718      dits[0] = 3.701;
1719      dits[1] = 7.699;
1720      dits[2] = 4;
1721      dits[3] = 57.1;
1722      dits[4] = 99.9;  
1723      gMC->Gsvolu("I650", "TUBS", idtmed[254], dits, 5);  // was I150 in old geom.
1724
1725      dits[0] = 3.7;
1726      dits[1] = 7.75;
1727      dits[2] = 0.05;
1728      gMC->Gsvolu("I651", "TUBE", idtmed[296], dits, 3);  // services disk
1729  
1730      dits[0] = 0;
1731      dits[1] = 0.5;
1732      dits[2] = 1.5;
1733      gMC->Gsvolu("I676", "TUBE", idtmed[274], dits, 3); // was I176 in old geom.
1734
1735      dits[0] = 0;
1736      dits[1] = 0.18;
1737      dits[2] = 0.8;
1738      gMC->Gsvolu("I673", "TUBE", idtmed[274], dits, 3); // was I173 in old geom.
1739
1740      dits[0] = 0;
1741      dits[1] = 0.18;
1742      dits[2] = 3;
1743      gMC->Gsvolu("I671", "TUBE", idtmed[274], dits, 3); // was I171 in old geom.
1744
1745      dits[0] = 0;
1746      dits[1] = 0.075;
1747      dits[2] = 0.8;
1748      gMC->Gsvolu("I669", "TUBE", idtmed[264], dits, 3); // was I169 in old geom.
1749
1750      dits[0] = 3.5;
1751      dits[1] = 5.6;
1752      dits[2] = 0.55;
1753      dits[3] = 0;
1754      dits[4] = 38;
1755      gMC->Gsvolu("I667", "TUBS", idtmed[263], dits, 5); // was I167 in old geom.
1756
1757      dits[0] = 6.6;
1758      dits[1] = 7.6;
1759      dits[2] = 0.5;
1760      dits[3] = 0;
1761      dits[4] = 9;
1762      gMC->Gsvolu("I666", "TUBS", idtmed[263], dits, 5); // was I166 in old geom.
1763
1764      dits[0] = 0.26;
1765      dits[1] = 0.32;
1766      dits[2] = 0.55;
1767      gMC->Gsvolu("I678", "TUBE", idtmed[263], dits, 3); // was I178 in old geom.
1768
1769      if (fluid == 1) {
1770         dits[0] = 0;
1771         dits[1] = 0.3;
1772         dits[2] = 1.5;
1773         gMC->Gsvolu("I677", "TUBE", idtmed[211], dits, 3); //set water as cooling fluid
1774                                                            // was I177 in old geom.
1775      } else {
1776         dits[0] = 0;
1777         dits[1] = 0.3;
1778         dits[2] = 1.5;
1779         gMC->Gsvolu("I677", "TUBE", idtmed[212], dits, 3); //set freon as cooling fluid
1780                                                            // was I177 in old geom.     
1781      }
1782
1783      dits[0] = 0.07;
1784      dits[1] = 0.125;
1785      dits[2] = 0.3;
1786      gMC->Gsvolu("I675", "TUBE", idtmed[263], dits, 3); // was I175 in old geom.
1787
1788      if (fluid == 1) {
1789         dits[0] = 0;
1790         dits[1] = 0.1;
1791         dits[2] = 0.8;
1792         gMC->Gsvolu("I674", "TUBE", idtmed[211], dits, 3); //set water as cooling fluid
1793                                                            // was I174 in old geom.
1794      } else {
1795         dits[0] = 0;
1796         dits[1] = 0.1;
1797         dits[2] = 0.8;
1798         gMC->Gsvolu("I674", "TUBE", idtmed[212], dits, 3); //set freon as cooling fluid
1799                                                            // was I174 in old geom.     
1800      }
1801      
1802      if (fluid == 1) {
1803         dits[0] = 0;
1804         dits[1] = 0.1;
1805         dits[2] = 3;
1806         gMC->Gsvolu("I672", "TUBE", idtmed[211], dits, 3); //set water as cooling fluid
1807                                                            // was I172 in old geom.
1808      } else {
1809         dits[0] = 0;
1810         dits[1] = 0.1;
1811         dits[2] = 3;
1812         gMC->Gsvolu("I672", "TUBE", idtmed[212], dits, 3); //set freon as cooling fluid
1813                                                            // was I172 in old geom.     
1814      }
1815      
1816      if (fluid == 1) {
1817         dits[0] = 0;
1818         dits[1] = 0.0746;
1819         dits[2] = 0.8;
1820         gMC->Gsvolu("I670", "TUBE", idtmed[211], dits, 3); //set water as cooling fluid
1821                                                            // was I170 in old geom.
1822      } else {
1823         dits[0] = 0;
1824         dits[1] = 0.0746;
1825         dits[2] = 0.8;
1826         gMC->Gsvolu("I670", "TUBE", idtmed[212], dits, 3); //set freon as cooling fluid
1827                                                            // was I170 in old geom.     
1828      }
1829      
1830      if (fluid == 1) {
1831         dits[0] = 3.7;
1832         dits[1] = 5.4;
1833         dits[2] = 0.35;
1834         dits[3] = 2;
1835         dits[4] = 36;
1836         gMC->Gsvolu("I668", "TUBS", idtmed[211], dits, 5); //set water as cooling fluid
1837                                                            // was I168 in old geom.
1838      } else {
1839         dits[0] = 3.7;
1840         dits[1] = 5.4;
1841         dits[2] = 0.35;
1842         dits[3] = 2;
1843         dits[4] = 36;
1844         gMC->Gsvolu("I668", "TUBS", idtmed[212], dits, 5); //set freon as cooling fluid
1845                                                            // was I168 in old geom.     
1846      }
1847      
1848
1849   }
1850
1851   // --- Define SDD volumes ------------------------------------------
1852
1853   
1854   cos30 = cos(30.*3.14159/180.);
1855   sin30 = sin(30.*3.14159/180.);
1856
1857   
1858   dits[0] = 0;
1859   dits[1] = 360;
1860   dits[2] = 6;
1861   dits[3] = -34.6; 
1862   dits[4] = 23.49;
1863   dits[5] = 28;
1864   dits[6] = -23.65; 
1865   dits[7] = 23.49;
1866   dits[8] = 28;
1867   dits[9] = -23.65;  
1868   dits[10] = 14.59; 
1869   dits[11] = 28;
1870   dits[12] = 23.65;   
1871   dits[13] = 14.59;
1872   dits[14] = 28;
1873   dits[15] = 23.65;    
1874   dits[16] = 23.49;
1875   dits[17] = 28;
1876   dits[18] = 34.6;  
1877   dits[19] = 23.49;
1878   dits[20] = 28;
1879   gMC->Gsvolu("IT34", "PCON", idtmed[209], dits, 21);  
1880
1881   // block of the SDD electronics and related ladder frame 
1882   I018dits[0] = 3.2;
1883   I018dits[1] = 2;
1884   I018dits[2] = 3.65;
1885   gMC->Gsvolu("I018", "BOX ", idtmed[209], I018dits, 3);  
1886
1887   // block of the SDD end ladder 
1888   I024dits[0] = 3.2;
1889   I024dits[1] = 2;
1890   I024dits[2] = 2.725;
1891   gMC->Gsvolu("I024", "BOX ", idtmed[209], I024dits, 3);  
1892
1893   // ladder frame of layer 3 - F.T. March,7-2001
1894   I047dits[0] = I018dits[0];
1895   I047dits[1] = I018dits[1];
1896   I047dits[2] = 6*I018dits[2] + 2*I024dits[2]; 
1897   gMC->Gsvolu("I047", "BOX ", idtmed[209], I047dits, 3);  
1898
1899   // ladder frame of layer 4 - F.T. March,7-2001
1900   I048dits[0] = I018dits[0];
1901   I048dits[1] = I018dits[1];
1902   I048dits[2] = 8*I018dits[2] + 2*I024dits[2]; 
1903   gMC->Gsvolu("I048", "BOX ", idtmed[209], I048dits, 3);  
1904
1905
1906   // global SDD volume (sensitive + insensitive) 
1907   I302dits[0] = 3.6250;
1908   I302dits[1] = 0.0150;
1909   I302dits[2] = 4.3794;
1910   gMC->Gsvolu("I302", "BOX ", idtmed[278], I302dits, 3);
1911
1912   // Like for I302 - F.T. March,7-2001
1913   I402dits[0] = 3.6250;
1914   I402dits[1] = 0.0150;
1915   I402dits[2] = 4.3794;
1916   gMC->Gsvolu("I402", "BOX ", idtmed[278], I402dits, 3);  
1917
1918   // SDD ladder of layer 3 - F.T. March,7-2001
1919   I004dits[0] = I302dits[0]+0.005;
1920   I004dits[1] = 2*I302dits[1]+Y_SDD_sep/2.;
1921   I004dits[2] = TMath::Abs(Z_SDD_lay3[0]);
1922   if (I004dits[2] < TMath::Abs(Z_SDD_lay3[5])) {
1923     I004dits[2] = TMath::Abs(Z_SDD_lay3[5]);
1924   }
1925   I004dits[2] = I004dits[2] + I302dits[2];
1926   gMC->Gsvolu("I004", "BOX ", idtmed[209], I004dits, 3);  
1927
1928   // SDD ladder of layer 4 - F.T. March,7-2001
1929   I005dits[0] = I402dits[0]+0.005;
1930   I005dits[1] = 2*I402dits[1]+Y_SDD_sep/2.;
1931   I005dits[2] = TMath::Abs(Z_SDD_lay4[0]);
1932   if (I005dits[2] < TMath::Abs(Z_SDD_lay4[7])) {
1933     I005dits[2] = TMath::Abs(Z_SDD_lay4[7]);
1934   }
1935   I005dits[2] = I005dits[2] + I402dits[2];
1936   gMC->Gsvolu("I005", "BOX ", idtmed[209], I005dits, 3);  
1937
1938
1939   // -- block of the SDD ladder foot and end ladder
1940
1941   // ladder foot mother volume
1942   I028dits[0] = 3.0000;
1943   I028dits[1] = 0.4000;
1944   I028dits[2] = 0.9000;
1945   gMC->Gsvolu("I028", "BOX ", idtmed[224], I028dits, 3);  
1946
1947   // positioning-box #1 at SDD end-ladder - F.T. March,7-2001
1948   I420dits[0] = 0.4500;
1949   I420dits[1] = 0.4000;
1950   I420dits[2] = 0.4500;
1951   gMC->Gsvolu("I420", "BOX ", idtmed[264], I420dits, 3);  
1952
1953   // positioning-box #2 at SDD end-ladder - F.T. March,7-2001
1954   I421dits[0] = 0.;
1955   I421dits[1] = 0.25;
1956   I421dits[2] = I420dits[1];
1957   gMC->Gsvolu("I421", "TUBE", idtmed[209], I421dits, 3);  
1958
1959   // reference ruby-sphere at SDD end-ladder - F.T. March,7-2001 
1960   I422dits[0] = 0.0000;
1961   I422dits[1] = 0.2000;
1962   I422dits[2] = 0.0000;
1963   I422dits[3] = 180.00;
1964   I422dits[4] = 0.0000;
1965   I422dits[5] = 360.00;
1966   gMC->Gsvolu("I422", "SPHE", idtmed[277], I422dits, 6);  
1967
1968   // support for ruby-sphere (I422) - F.T. March,7-2001
1969   I423dits[0] = 0.0000;
1970   I423dits[1] = 0.1000;
1971   I423dits[2] = (I420dits[1]-I422dits[1])/2.;
1972   gMC->Gsvolu("I423", "TUBE", idtmed[264], I423dits, 3);  
1973
1974   // passage for HV microcables - F.T. March,7-2001
1975   I424dits[0] = 1.5000;
1976   I424dits[1] = 0.1500;
1977   I424dits[2] = I421dits[2];
1978   gMC->Gsvolu("I424", "BOX ", idtmed[209], I424dits, 3);  
1979
1980   // HV microcables segment at the end ladder - F.T. March,7-2001
1981   I425dits[0] = 1.350000;
1982   I425dits[1] = 0.015250;
1983   I425dits[2] = I024dits[2];
1984   gMC->Gsvolu("I425", "BOX ", idtmed[279], I425dits, 3);  
1985
1986   // lower edge of SDD ladder frame at end-ladder - part 1
1987   dits[0] = 0.2;
1988   dits[1] = 0.1815;
1989   dits[2] = I024dits[2];
1990   dits[3] = 0.015;
1991   gMC->Gsvolu("I025", "TRD1", idtmed[208], dits, 4);  
1992
1993   // lower edge of SDD ladder frame at end-ladder - part 2
1994   dits[0] = 0.183;
1995   dits[1] = 0.165;
1996   dits[2] = I024dits[2];
1997   dits[3] = 0.015;
1998   gMC->Gsvolu("I026", "TRD1", idtmed[208], dits, 4);  
1999
2000   // new: for the 1st top rod of the structure 
2001   // at the end-ladder - F.T. March,7-2001
2002   I029dits[0] = 0.2;
2003   I029dits[1] = 0.1815;
2004   I029dits[2] = 1.0100;
2005   I029dits[3] = 0.015;
2006   gMC->Gsvolu("I029", "TRD1", idtmed[208], I029dits, 4);  
2007
2008   // new: for the 2nd top rod of the structure 
2009   // at the end-ladder - F.T. March,7-2001
2010   I030dits[0] = 0.1830;
2011   I030dits[1] = 0.1650;
2012   I030dits[2] = 1.0100;
2013   I030dits[3] = 0.0150;
2014   gMC->Gsvolu("I030", "TRD1", idtmed[208], I030dits, 4);  
2015
2016   // inox cooling tubes for the end ladder - F.T. March,7-2001
2017   I031dits[0] = 0.093;
2018   I031dits[1] = 0.1;
2019   I031dits[2] = I024dits[2];
2020   gMC->Gsvolu("I031", "TUBE", idtmed[264], I031dits, 3);  
2021
2022   if (fluid == 1) {
2023      // cooling water for the end ladder - F.T. March,7-2001
2024      I032dits[0] = 0;
2025      I032dits[1] = I031dits[0];
2026      I032dits[2] = I024dits[2];
2027      gMC->Gsvolu("I032", "TUBE", idtmed[211], I032dits, 3);  
2028   } else {
2029      // cooling freon for the end ladder - R.B. March,21-2001
2030      I032dits[0] = 0;
2031      I032dits[1] = I031dits[0];
2032      I032dits[2] = I024dits[2];
2033      gMC->Gsvolu("I032", "TUBE", idtmed[212], I032dits, 3);    
2034   }
2035   
2036   // -- block of the SDD ladder frame holding the electronics
2037
2038   // edge of the ladder frame - part 1
2039   dits[0] = 0.2;
2040   dits[1] = 0.182;
2041   dits[2] = 3.65;
2042   dits[3] = 0.015;
2043   gMC->Gsvolu("I019", "TRD1", idtmed[208], dits, 4);  
2044
2045   // edge of the ladder frame - part 2
2046   dits[0] = 0.183;
2047   dits[1] = 0.165;
2048   dits[2] = 3.65;
2049   dits[3] = 0.015;
2050   gMC->Gsvolu("I020", "TRD1", idtmed[208], dits, 4);  
2051
2052   // inclined segments of the ladder frame
2053   dits[0] = 2.23;
2054   dits[1] = 2.1;
2055   dits[2] = 0.05;
2056   dits[3] = 0.03;
2057   gMC->Gsvolu("I021", "TRD1", idtmed[208], dits, 4);  
2058
2059   // horiz.segments of the ladders, normal to ladder edges
2060   dits[0] = 2.1;
2061   dits[1] = 2;
2062   dits[2] = 0.06;
2063   dits[3] = 0.04;
2064   gMC->Gsvolu("I022", "TRD1", idtmed[208], dits, 4);  
2065
2066   // horiz.segments of the ladders, at 45 deg. to ladder edges
2067   dits[0] = 2.615;
2068   dits[1] = 2.465;
2069   dits[2] = 0.06;
2070   dits[3] = 0.04;
2071   gMC->Gsvolu("I023", "TRD1", idtmed[208], dits, 4);  
2072
2073   // supports of the ceramic pins holding the detectors
2074   dits[0] = 0.3;
2075   dits[1] = 0.05;
2076   dits[2] = 0.15;
2077   gMC->Gsvolu("I033", "BOX ", idtmed[208], dits, 3);  
2078
2079   // ceramic pins holding the detectors
2080   dits[0] = 0;
2081   dits[1] = 0.05;
2082   dits[2] = 0.225;
2083   gMC->Gsvolu("I034", "TUBE", idtmed[277], dits, 3);  
2084
2085   // holders of cooling tubes
2086   I035dits[0] = 0.1;
2087   I035dits[1] = 0.15;
2088   I035dits[2] = 0.2;
2089   gMC->Gsvolu("I035", "TUBE", idtmed[208], I035dits, 3);
2090
2091   // top holders of microcables
2092   dits[0] = 0.2;
2093   dits[1] = 0.01;
2094   dits[2] = 0.05;
2095   gMC->Gsvolu("I036", "BOX ", idtmed[208], dits, 3);  
2096
2097   // inox cooling tubes - F.T. March,7-2001
2098   I037dits[0] = 0.093;
2099   I037dits[1] = 0.1;
2100   I037dits[2] = I018dits[2];
2101   gMC->Gsvolu("I037", "TUBE", idtmed[264], I037dits, 3);
2102
2103   if (fluid == 1) {
2104      // cooling water - F.T. March,7-2001
2105      I038dits[0] = 0;
2106      I038dits[1] = I037dits[0];
2107      I038dits[2] = I018dits[2];
2108      gMC->Gsvolu("I038", "TUBE", idtmed[211], I038dits, 3);  
2109   } else {
2110      // cooling freon - R.B. March,21-2001
2111      I038dits[0] = 0;
2112      I038dits[1] = I037dits[0];
2113      I038dits[2] = I018dits[2];
2114      gMC->Gsvolu("I038", "TUBE", idtmed[212], I038dits, 3);    
2115   }
2116   // -- block of the SDD electronics (heat bridge, chips, hybrid, anode microcable)
2117
2118   // SDD heat bridge - F.T. March,7-2001
2119   I039dits[0] = 1.1000;
2120   I039dits[1] = 0.0087;
2121   I039dits[2] = 3.2500;
2122   gMC->Gsvolu("I039", "BOX ", idtmed[268], I039dits, 3);  
2123
2124   // SDD clip part 1
2125   dits[0] = 0.25;
2126   dits[1] = 0.01;
2127   dits[2] = I039dits[2];
2128   gMC->Gsvolu("I040", "BOX ", idtmed[268], dits, 3);  
2129
2130   // SDD clip part 2
2131   I041dits[0] = 0.1;
2132   I041dits[1] = 0.12;
2133   I041dits[2] = I039dits[2];
2134   I041dits[3] = 90;
2135   I041dits[4] = 320;
2136   gMC->Gsvolu("I041", "TUBS", idtmed[268], I041dits, 5);  
2137
2138
2139   // SDD PASCAL - F.T. March,7-2001
2140   I042dits[0] = 0.5000;
2141   I042dits[1] = 0.0175;
2142   I042dits[2] = 0.5000;
2143   gMC->Gsvolu("I042", "BOX ", idtmed[206], I042dits, 3);  
2144
2145   // SDD AMBRA - F.T. March,7-2001
2146   I043dits[0] = 0.3500;
2147   I043dits[1] = 0.0175;
2148   I043dits[2] = 0.5000;
2149   gMC->Gsvolu("I043", "BOX ", idtmed[206], I043dits, 3);  
2150
2151   // SDD capacitors - F.T. March,7-2001
2152   I051dits[0] = 0.1400;
2153   I051dits[1] = 0.0350;
2154   I051dits[2] = 0.0625;
2155   gMC->Gsvolu("I051", "BOX ", idtmed[276], I051dits, 3);  
2156
2157   // SDD hybrid circuit - F.T. March,7-2001
2158   I052dits[0] = 1.725000;
2159   I052dits[1] = 0.003743;
2160   I052dits[2] = I039dits[2];
2161   gMC->Gsvolu("I052", "BOX ", idtmed[281], I052dits, 3);
2162
2163   // SDD anode microcable : changed - F.T. March,7-2001
2164   I044dits[0] = I018dits[2];
2165   I044dits[1] = I039dits[2];
2166   I044dits[2] = 0.00084;
2167   I044dits[3] = (15.189149/(I044dits[0]+I044dits[1]))/2;
2168   gMC->Gsvolu("I044", "TRD1", idtmed[282], I044dits, 4);  
2169   volI044 = ((2*I044dits[0] + 2*I044dits[1]) * 2*I044dits[2])/2 * 2*I044dits[3];
2170
2171   // SDD electronics box - F.T. March,7-2001
2172   I050dits[1] = I039dits[1]+I052dits[1]+I051dits[1]+I044dits[2];
2173   I050dits[0] = I018dits[1]/cos(30.*3.14159/180.)-I050dits[1]*sin(30.*3.14159/180.);
2174   I050dits[2] = I018dits[2];
2175   gMC->Gsvolu("I050", "BOX ", idtmed[209], I050dits, 3);
2176
2177   // SDD sensitive volume
2178   dits[0] = 3.50850;
2179   dits[1] = 0.01499; // not 0.015 because it is included into I302 which is 0.015
2180   dits[2] = 3.76320;
2181   gMC->Gsvolu("ITS3", "BOX ", idtmed[200], dits, 3);  
2182
2183   // Like for ITS3 - F.T. March,7-2001
2184   dits[0] = 3.50850;
2185   dits[1] = 0.01499; // not 0.015 because it is included into I402 which is 0.015
2186   dits[2] = 3.76320;
2187   gMC->Gsvolu("ITS4", "BOX ", idtmed[200], dits, 3);  
2188
2189
2190   // --- Define SSD volumes ------------------------------------------
2191
2192     
2193   dits[0] = 0;
2194   dits[1] = 360;
2195   dits[2] = 6;
2196   dits[3] = -57.45;
2197   dits[4] = 43.6;
2198   dits[5] = 48;  
2199   dits[6] = -49.15; 
2200   dits[7] = 43.6;
2201   dits[8] = 48;  
2202   dits[9] = -49.15;  
2203   dits[10] = 36.9;
2204   dits[11] = 48;  
2205   dits[12] = 50.55;  
2206   dits[13] = 36.9;
2207   dits[14] = 48;  
2208   dits[15] = 50.55;  
2209   dits[16] = 43.6;
2210   dits[17] = 48;  
2211   dits[18] = 57.45;
2212   dits[19] = 43.6;
2213   dits[20] = 48;   
2214   gMC->Gsvolu("IT56", "PCON", idtmed[220], dits, 21);   
2215   
2216   dits[0] =  3.4;
2217   dits[1] = 1.955;
2218   dits[2] = 56.5; 
2219   gMC->Gsvolu("I570", "BOX ", idtmed[204], dits, 3);  
2220   
2221   dits[0] = 3.75;
2222   dits[1] = 0.045;
2223   dits[2] = 50.975;
2224   gMC->Gsvolu("I569", "BOX ", idtmed[204], dits, 3);  
2225   
2226   dits[0] = 3.4;
2227   dits[1] = 1.955;
2228   dits[2] = 47; 
2229   gMC->Gsvolu("I571", "BOX ", idtmed[204], dits, 3);  
2230   
2231   dits[0] = 3.75;
2232   dits[1] = 0.045;
2233   dits[2] = 43.3;  
2234   gMC->Gsvolu("I565", "BOX ", idtmed[204], dits, 3);  
2235   
2236   dits[0] = 3.4;
2237   dits[1] = 1.955;
2238   dits[2] = 3.15;
2239   gMC->Gsvolu("I553", "BOX ", idtmed[204], dits, 3);  
2240   
2241   dits[0] = 3.405;
2242   dits[1] = 1.955;
2243   dits[2] = 1.955;
2244   gMC->Gsvolu("I523", "BOX ", idtmed[204], dits, 3);  
2245   
2246   dits[0] = 3.75;
2247   dits[1] = 0.015;
2248   dits[2] = 2.1;
2249   gMC->Gsvolu("I566", "BOX ", idtmed[206], dits, 3); 
2250   
2251   dits[0] = 3.4;
2252   dits[1] = 1.955;
2253   dits[2] = 3.15;
2254   gMC->Gsvolu("I544", "BOX ", idtmed[204], dits, 3);  
2255   
2256   dits[0] = 3.41;
2257   dits[1] = 1.955;
2258   dits[2] = 1.955;
2259   gMC->Gsvolu("I516", "BOX ", idtmed[204], dits, 3);  
2260   
2261   dits[0] = 3.75;
2262   dits[1] = 0.015;
2263   dits[2] = 2.1;
2264   gMC->Gsvolu("I562", "BOX ", idtmed[206], dits, 3);   
2265   
2266   if (fluid == 1) {
2267      dits[0] = 0;
2268      dits[1] = 0.07;
2269      dits[2] = 3.15;
2270      gMC->Gsvolu("I559", "TUBE", idtmed[211], dits, 3);  // set water as cooling fluid
2271   } else {
2272      dits[0] = 0;
2273      dits[1] = 0.07;
2274      dits[2] = 3.15;
2275      gMC->Gsvolu("I559", "TUBE", idtmed[212], dits, 3);  // set freon as cooling fluid
2276   }
2277   
2278   dits[0] = 0.07;
2279   dits[1] = 0.1;
2280   dits[2] = 3.15;
2281   gMC->Gsvolu("I560", "TUBE", idtmed[210], dits, 3);  
2282   
2283   dits[0] = 0.225;
2284   dits[1] = 0.195;
2285   dits[2] = 3.15;
2286   dits[3] = 0.025;
2287   gMC->Gsvolu("I558", "TRD1", idtmed[203], dits, 4);  
2288   
2289   dits[0] = 0.25;
2290   dits[1] = 0.22;
2291   dits[2] = 3.15;
2292   dits[3] = 0.025;
2293   gMC->Gsvolu("I557", "TRD1", idtmed[203], dits, 4);  
2294   
2295   dits[0] = 2.17;
2296   dits[1] = 0.035;
2297   dits[2] = 0.05;
2298   gMC->Gsvolu("I556", "BOX ", idtmed[203], dits, 3);  
2299   
2300   dits[0] = 2 ;
2301   dits[1] = 0.035;
2302   dits[2] = 0.05;
2303   gMC->Gsvolu("I554", "BOX ", idtmed[203], dits, 3);  
2304   
2305   dits[0] = 2.675;
2306   dits[1] = 0.035;
2307   dits[2] = 0.05;
2308   gMC->Gsvolu("I555", "BOX ", idtmed[203], dits, 3); 
2309   
2310   dits[0] = 0.3;
2311   dits[1] = 0.15;
2312   dits[2] = 0.15;
2313   gMC->Gsvolu("I561", "BOX ", idtmed[203], dits, 3);  
2314   
2315   dits[0] = 0.025;
2316   dits[1] = 0.025;
2317   dits[2] = 0.05;
2318   gMC->Gsvolu("I519", "BOX ", idtmed[214], dits, 3);  
2319   
2320   dits[0] = 0.304;
2321   dits[1] = 0.0275;
2322   dits[2] = 0.432;
2323   gMC->Gsvolu("I521", "BOX ", idtmed[206], dits, 3);   
2324   
2325   dits[0] = 0.16;
2326   dits[1] = 0.08;
2327   dits[2] = 0.08;
2328   gMC->Gsvolu("I520", "BOX ", idtmed[214], dits, 3);  
2329   
2330   dits[0] = 3.4;
2331   dits[1] = 0.015;
2332   dits[2] = 0.525;
2333   gMC->Gsvolu("I518", "BOX ", idtmed[203], dits, 3);  
2334   
2335   dits[0] = 0.15;
2336   dits[1] = 0.105;
2337   dits[2] = 0.29;
2338   dits[3] = 0.08;
2339   gMC->Gsvolu("I522", "TRD1", idtmed[203], dits, 4);  
2340   
2341   dits[0] = 0.07;
2342   dits[1] = 0.1;
2343   dits[2] = 1.955;
2344   gMC->Gsvolu("I542", "TUBE", idtmed[210], dits, 3);  
2345   
2346   if (fluid == 1) {
2347      dits[0] = 0;
2348      dits[1] = 0.07;
2349      dits[2] = 1.955;
2350      gMC->Gsvolu("I541", "TUBE", idtmed[211], dits, 3);  // set water as cooling fluid 
2351   } else {
2352      dits[0] = 0;
2353      dits[1] = 0.07;
2354      dits[2] = 1.955;
2355      gMC->Gsvolu("I541", "TUBE", idtmed[212], dits, 3);  // set freon as cooling fluid
2356   }
2357   
2358   dits[0] = 0.3;
2359   dits[1] = 0.15;
2360   dits[2] = 0.15;
2361   gMC->Gsvolu("I543", "BOX ", idtmed[203], dits, 3);  
2362   
2363   dits[0] = 0.25;
2364   dits[1] = 0.22;
2365   dits[2] = 1.955;
2366   dits[3] = 0.025;
2367   gMC->Gsvolu("I537", "TRD1", idtmed[203], dits, 4); 
2368   
2369   dits[0] = 0.225;
2370   dits[1] = 0.195;
2371   dits[2] = 1.955;
2372   dits[4] = 0.025;
2373   gMC->Gsvolu("I538", "TRD1", idtmed[203], dits, 4);  
2374   
2375   dits[0] = 2.17;
2376   dits[1] = 0.035;
2377   dits[2] = 0.05;
2378   gMC->Gsvolu("I536", "BOX ", idtmed[203], dits, 3);  
2379   
2380   dits[0] = 2.675;
2381   dits[1] = 0.035;
2382   dits[2] = 0.05;
2383   gMC->Gsvolu("I535", "BOX ", idtmed[203], dits, 3);   
2384   
2385   dits[0] = 2;
2386   dits[1] = 0.035;
2387   dits[2] = 0.05;
2388   gMC->Gsvolu("I534", "BOX ", idtmed[203], dits, 3);  
2389   
2390   dits[0] = 0;
2391   dits[1] = 0.05;
2392   dits[2] = 0.17;
2393   gMC->Gsvolu("I540", "TUBE", idtmed[203], dits, 3);  
2394   
2395   dits[0] = 0;
2396   dits[1] = 0.05;
2397   dits[2] = 0.205;
2398   gMC->Gsvolu("I539", "TUBE", idtmed[203], dits, 3);  
2399   
2400   dits[0] = 3.65;
2401   dits[1] = 0.015;
2402   dits[2] = 2;
2403   gMC->Gsvolu("ITS6", "BOX ", idtmed[200], dits, 3);  
2404   
2405   if (fluid == 1) {
2406      dits[0] = 0;
2407      dits[1] = 0.07;
2408      dits[2] = 3.15;
2409      gMC->Gsvolu("I550", "TUBE", idtmed[211], dits, 3);  // set water as cooling fluid
2410   } else {
2411      dits[0] = 0;
2412      dits[1] = 0.07;
2413      dits[2] = 3.15;
2414      gMC->Gsvolu("I550", "TUBE", idtmed[212], dits, 3);  // set freon as cooling fluid
2415   }
2416   
2417   dits[0] = 0.07;
2418   dits[1] = 0.1;
2419   dits[2] = 3.15;
2420   gMC->Gsvolu("I551", "TUBE", idtmed[210], dits, 3);  
2421   
2422   dits[0] = 0.225;
2423   dits[1] = 0.195;
2424   dits[2] = 3.15;
2425   dits[3] = 0.025;
2426   gMC->Gsvolu("I549", "TRD1", idtmed[203], dits, 4); 
2427   
2428   dits[0] = 0.25;
2429   dits[1] = 0.22;
2430   dits[2] = 3.15;
2431   dits[3] = 0.025;
2432   gMC->Gsvolu("I548", "TRD1", idtmed[203], dits, 4);  
2433   
2434   dits[0] = 2.17;
2435   dits[1] = 0.035;
2436   dits[2] = 0.05;
2437   gMC->Gsvolu("I547", "BOX ", idtmed[203], dits, 3);  
2438   
2439   dits[0] = 2;
2440   dits[1] = 0.035;
2441   dits[2] = 0.05;
2442   gMC->Gsvolu("I545", "BOX ", idtmed[203], dits, 3);   
2443   
2444   dits[0] = 2.675;
2445   dits[1] = 0.035;
2446   dits[2] = 0.05;
2447   gMC->Gsvolu("I546", "BOX ", idtmed[203], dits, 3);  
2448   
2449   dits[0] = 0.3;
2450   dits[1] = 0.15;
2451   dits[2] = 0.15;
2452   gMC->Gsvolu("I552", "BOX ", idtmed[203], dits, 3);  
2453   
2454   dits[0] = 0.304;
2455   dits[1] = 0.0275;
2456   dits[2] = 0.4322;
2457   gMC->Gsvolu("I515", "BOX ", idtmed[206], dits, 3);  
2458   
2459   dits[0] = 0.025;
2460   dits[1] = 0.025;
2461   dits[2] = 0.05;
2462   gMC->Gsvolu("I513", "BOX ", idtmed[214], dits, 3);  
2463   
2464   dits[0] = 0.16;
2465   dits[1] = 0.08;
2466   dits[2] = 0.08;
2467   gMC->Gsvolu("I514", "BOX ", idtmed[214], dits, 3);  
2468   
2469   dits[0] = 3.4;
2470   dits[1] = 0.015;
2471   dits[2] = 0.525;
2472   gMC->Gsvolu("I512", "BOX ", idtmed[203], dits, 3);  
2473   
2474   dits[0] = 0.225;
2475   dits[1] = 0.195;
2476   dits[2] = 1.955;
2477   dits[3] = 0.025;
2478   gMC->Gsvolu("I528", "TRD1", idtmed[203], dits, 4); 
2479   
2480   dits[0] = 0.25;
2481   dits[1] = 0.22;
2482   dits[2] = 1.955;
2483   dits[3] = 0.025;
2484   gMC->Gsvolu("I527", "TRD1", idtmed[203], dits, 4);  
2485   
2486   dits[0] = 2.17;
2487   dits[1] = 0.035;
2488   dits[2] = 0.05;
2489   gMC->Gsvolu("I526", "BOX ", idtmed[203], dits, 3);  
2490   
2491   dits[0] = 2.675;
2492   dits[1] = 0.035;
2493   dits[2] = 0.05;
2494   gMC->Gsvolu("I525", "BOX ", idtmed[203], dits, 3);  
2495    
2496   dits[0] = 2;
2497   dits[1] = 0.035;
2498   dits[2] = 0.05;
2499   gMC->Gsvolu("I524", "BOX ", idtmed[203], dits, 3);  
2500    
2501   dits[0] = 0;
2502   dits[1] = 0.05;
2503   dits[2] = 0.205;
2504   gMC->Gsvolu("I529", "TUBE", idtmed[203], dits, 3);  
2505    
2506   dits[0] = 0;
2507   dits[1] = 0.05;
2508   dits[2] = 0.17;
2509   gMC->Gsvolu("I530", "TUBE", idtmed[203], dits, 3);  
2510    
2511   dits[0] = 0.15;
2512   dits[1] = 0.105;
2513   dits[2] = 0.29;
2514   dits[3] = 0.08;
2515   gMC->Gsvolu("I517", "TRD1", idtmed[203], dits, 4);  
2516   
2517   if (fluid == 1) {
2518      dits[0] = 0;
2519      dits[1] = 0.07;
2520      dits[2] = 1.955;
2521      gMC->Gsvolu("I531", "TUBE", idtmed[211], dits, 3);  // set water as cooling fluid
2522   } else {
2523      dits[0] = 0;
2524      dits[1] = 0.07;
2525      dits[2] = 1.955;
2526      gMC->Gsvolu("I531", "TUBE", idtmed[212], dits, 3);  // set freon as cooling fluid
2527   }
2528      
2529   dits[0] = 0.07;
2530   dits[1] = 0.1;
2531   dits[2] = 1.955;
2532   gMC->Gsvolu("I532", "TUBE", idtmed[210], dits, 3);  
2533  
2534   dits[0] = 0.3;
2535   dits[1] = 0.15;
2536   dits[2] = 0.15;
2537   gMC->Gsvolu("I533", "BOX ", idtmed[203], dits, 3);  
2538   
2539   dits[0] = 3.65;
2540   dits[1] = 0.015;
2541   dits[2] = 2;
2542   gMC->Gsvolu("ITS5", "BOX ", idtmed[200], dits, 3);  
2543
2544
2545
2546   // --- Define volumes of shield of SPD ----------------
2547
2548
2549   dits[0] = 8.37;
2550   dits[1] = 9.93;
2551   dits[2] = 25;
2552   gMC->Gsvolu("IC01", "TUBE", idtmed[289], dits, 3);   
2553
2554   dits[0] = 8.3;
2555   dits[1] = 9.995;
2556   dits[2] = 17.5/2.;
2557   gMC->Gsvolu("IC02", "TUBE", idtmed[289], dits, 3);    
2558   
2559  
2560   // --- Define volume of first cylinder between SPD and SDD --------------
2561   
2562   dits[0] = (21.-0.128)/2.;      
2563   dits[1] = 21./2.;
2564   dits[2] = 39.4;      
2565   gMC->Gsvolu("ICY1", "TUBE", idtmed[208], dits, 3);
2566          
2567   // --- Define volume of second cylinder between SDD and SSD --------------
2568
2569   dits[0] = (59.5-0.128)/2.;      
2570   dits[1] = 59.5/2.;
2571   dits[2] = 56.2;      // was 57
2572   gMC->Gsvolu("ICY2", "TUBE", idtmed[208], dits, 3);
2573
2574   // --- Define volumes of SDD cone ---------------------------------- 
2575
2576   dits[0] = 0;
2577   dits[1] = 360;
2578   dits[2] = 12;
2579   dits[3] = -59.7;
2580   dits[4] = 27;
2581   dits[5] = 28.6;
2582   dits[6] = -42.7;
2583   dits[7] = 10;
2584   dits[8] = 28.6;
2585   dits[9] = -34.65;
2586   dits[10] = 10;
2587   dits[11] = 28.6;
2588   dits[12] = -34.65;
2589   dits[13] = 10;
2590   dits[14] = 23.495;
2591   dits[15] = -23.7;
2592   dits[16] = 10;
2593   dits[17] = 23.495;
2594   dits[18] = -23.7;
2595   dits[19] = 10;
2596   dits[20] = 14.595;
2597   dits[21] = 23.7;
2598   dits[22] = 10;
2599   dits[23] = 14.595;
2600   dits[24] = 23.7;
2601   dits[25] = 10;
2602   dits[26] = 23.495;
2603   dits[27] = 34.65;
2604   dits[28] = 10;
2605   dits[29] = 23.495;
2606   dits[30] = 34.65;
2607   dits[31] = 10;
2608   dits[32] = 28.6;
2609   dits[33] = 42.7;
2610   dits[34] = 10;
2611   dits[35] = 28.6;
2612   dits[36] = 59.7;
2613   dits[37] = 27.2637;
2614   dits[38] = 28.6;             
2615   gMC->Gsvolu("IS02", "PCON", idtmed[204], dits, 39);
2616   
2617   dits[0] = 0;
2618   dits[1] = 360;
2619   dits[2] = 6;
2620   dits[3] = 38.65;
2621   dits[4] = 10.75;    
2622   dits[5] = 12.25;      
2623   dits[6] = 40.15;
2624   dits[7] = 10.75;
2625   dits[8] = 13.96;   
2626   dits[9] = 40.15;
2627   dits[10] = 12.46;  
2628   dits[11] = 13.96;
2629   dits[12] = 55.75;
2630   dits[13] = 27;
2631   dits[14] = 28.5;
2632   dits[15] = 55.75;
2633   dits[16] = 27;
2634   dits[17] = 28.5;
2635   dits[18] = 57.25;
2636   dits[19] = 27;
2637   dits[20] = 28.5;
2638 //  gMC->Gsvolu("I093", "PCON", idtmed[272], dits, 21);  // SDD cone
2639   gMC->Gsvolu("I093", "PCON", idtmed[287], dits, 21);  // SDD cone
2640
2641   // Redefined to make adding material for cables easier (FMD geometry)
2642   Double_t s1,s2,b1,b2;
2643   s1 = (dits[16]-dits[10])/(dits[15]-dits[9]); // Slope of conical section
2644   s2 = (dits[16]-dits[10])/(dits[15]-dits[9]); // Slope of conical section
2645   b1 = dits[13] - s1*dits[15]; // inside cone axis intersept
2646   b2 = dits[14] - s2*dits[15]; // outside cone axis intersept
2647   dits[0] = 0; //dits[0] = 0;
2648   dits[1] = 50; //dits[1] = 50;
2649   dits[2] = 4; //dits[2] = 3;
2650
2651   dits[4] = 14.0; //dits[4] = 14;            // r inner
2652   dits[5] = dits[4]; //dits[5] = 18.75;      // r outer
2653   dits[3] = (dits[4]-b2)/s2; //dits[3] = 39;  // Z
2654
2655   dits[7] = dits[4]; //dits[7] = 14;             // r inner
2656   dits[6] = (dits[7]-b1)/s1; //dits[6] = 46.7-3;  // Z
2657   dits[8] = s2*dits[6]+b2; //dits[8] = 18.75;     // r outer
2658
2659   dits[11] = 18.75; //dits[11] = 18.75;           // r outer
2660   dits[9] = (dits[11]-b2)/s2; //dits[9] = 51.45-3; // Z
2661   dits[10] = s1*dits[9]+b1; //dits[10] = 18.75;    // r inner
2662
2663   dits[13] = dits[11];         // r inner
2664   dits[14] = dits[11];         // r outer
2665   dits[12] = (dits[13]-b1)/s1;  // Z
2666 //  gMC->Gsvolu("I099", "PCON", idtmed[204], dits, 12); // SDD 3 cone hole
2667   gMC->Gsvolu("I099", "PCON", idtmed[285], dits, 15); // SDD 3 cone hole
2668
2669   dits[0] = 0; //dits[0] = 0;
2670   dits[1] = 25; //dits[1] = 25;
2671   dits[2] = 4; //dits[2] = 3;
2672
2673   dits[4] = 23.4; //dits[4] = 23.4;  // r inner
2674   dits[5] = dits[4]; //dits[5] = 26.4;  // r outer
2675   dits[3] = (dits[4]-b2)/s2; //dits[3] = 49;  // Z
2676
2677   dits[7] = dits[4]; //dits[7] = 23.4;  // r inner
2678   dits[6] = (dits[7]-b1)/s1; //dits[6] = 56.1-3;  // Z
2679   dits[8] = s2*dits[6]+b2; //dits[8] = 26.4;  // r outer
2680
2681   dits[11] = 26.4; //dits[11] = 26.4;  // r outer
2682   dits[9] = (dits[11]-b2)/s2; //dits[9] = 59.1-3;  // Z
2683   dits[10] = s1*dits[9]+b1; //dits[10] = 26.4;  // r inner
2684
2685   dits[13] = dits[11];         // r inner
2686   dits[14] = dits[11];         // r outer
2687   dits[12] = (dits[13]-b1)/s1;  // Z
2688 //  gMC->Gsvolu("I200", "PCON", idtmed[204], dits, 12); // SDD 4 cone hole
2689   gMC->Gsvolu("I200", "PCON", idtmed[285], dits, 15); // SDD 4 cone hole
2690
2691   dits[0] = 10.0;
2692   dits[1] = 10.5;
2693   dits[2] = 0.25;
2694   gMC->Gsvolu("I090", "TUBE", idtmed[224], dits, 3);  // SDD cylinder flange
2695
2696   dits[0] = 21.95;
2697   dits[1] = 22.95;    
2698   dits[2] = 1;
2699   gMC->Gsvolu("I098", "TUBE", idtmed[283], dits, 3);    // ladder support on layer 4
2700
2701   dits[0] = 13.1;    
2702   dits[1] = 14.1;    
2703   dits[2] = 1;
2704   gMC->Gsvolu("I097", "TUBE", idtmed[283], dits, 3);    // ladder support on layer 3
2705
2706   dits[0] = 1;
2707   dits[1] = 1;
2708   dits[2] = 7.74;
2709   gMC->Gsvolu("I202", "BOX ", idtmed[272], dits, 3);
2710
2711   dits[0] = 1;
2712   dits[1] = 1;
2713   dits[2] = 9.14;
2714   gMC->Gsvolu("I203", "BOX ", idtmed[272], dits, 3);
2715
2716   dits[0] = 21.95;
2717   dits[1] = 22.95;
2718   dits[2] = 1;
2719   gMC->Gsvolu("I095", "TUBE", idtmed[224], dits, 3);
2720
2721   dits[0] = 3;
2722   dits[1] = 2.7;
2723   dits[2] = 1;
2724   dits[3] = 0.63;
2725   gMC->Gsvolu("I096", "TRD1", idtmed[264], dits, 4);
2726
2727   dits[0] = 13.1;
2728   dits[1] = 14.1;
2729   dits[2] = 1;
2730   gMC->Gsvolu("I094", "TUBE", idtmed[224], dits, 3);
2731   
2732   
2733   // --- Define volumes of SSD cone ----------------------------------    
2734             
2735
2736   dits[0] = 0;
2737   dits[1] = 360;
2738   dits[2] = 12;
2739   dits[3] = -zmax;
2740   dits[4] = 46;         
2741   dits[5] = 49.25;       
2742   dits[6] = -61.2;
2743   dits[7] = 28.7;
2744   dits[8] = 49.25;       
2745   dits[9] = -57.5;
2746   dits[10] = 28.7;
2747   dits[11] = 49.25;      
2748   dits[12] = -57.5;
2749   dits[13] = 28.7;
2750   dits[14] = 43.5;
2751   dits[15] = -49.2;
2752   dits[16] = 28.7;
2753   dits[17] = 43.5;
2754   dits[18] = -49.2;
2755   dits[19] = 28.7;
2756   dits[20] = 36.85;
2757   dits[21] = 50.6;
2758   dits[22] = 28.7;
2759   dits[23] = 36.85;
2760   dits[24] = 50.6;
2761   dits[25] = 28.7;
2762   dits[26] = 43.5;
2763   dits[27] = 57.5;
2764   dits[28] = 28.7;
2765   dits[29] = 43.5;
2766   dits[30] = 57.5;
2767   dits[31] = 28.7;
2768   dits[32] = 49.25;      
2769   dits[33] = 61.2;
2770   dits[34] = 28.7;
2771   dits[35] = 49.25;      
2772   dits[36] = zmax;
2773   dits[37] = 46;      
2774   dits[38] = 49.25;      
2775   gMC->Gsvolu("IS01", "PCON", idtmed[204], dits, 39);   // SSD cone mother volume
2776   
2777   dits[0] = 0;
2778   dits[1] = 360;
2779   dits[2] = 6;
2780   dits[3] = -zmax;  
2781   dits[4] = 47.75;  
2782   dits[5] = 49.25;  
2783   dits[6] = -zmax+2.;  
2784   dits[7] = 47.75;  
2785   dits[8] = 49.25;   
2786   dits[9] = -71.2819;
2787   dits[10] = 46.75;   
2788   dits[11] = 49.0319;
2789   dits[12] = -57.25;   // was 58.5 
2790   dits[13] = 32.9681;
2791   dits[14] = 34.75;
2792   dits[15] = -57.25;   // was 58.5   
2793   dits[16] = 30;
2794   dits[17] = 34.75;
2795   dits[18] = -55.75;   // was 57 
2796   dits[19] = 30;     
2797   dits[20] = 32.25;    // was 31.5 
2798 //  gMC->Gsvolu("I212", "PCON", idtmed[272], dits, 21);  // SSD cone
2799   gMC->Gsvolu("I212", "PCON", idtmed[288], dits, 21);  // SSD cone
2800
2801   s1 = (dits[5]-dits[14])/(dits[9]-dits[12]); // Slope of conical section
2802   s2 = (dits[10]-dits[13])/(dits[9]-dits[12]); // Slope of conical section
2803   b1 = dits[14] - s1*dits[12]; // inside cone axis intersept
2804   b2 = dits[13] - s2*dits[12]; // outside cone axis intersept
2805   dits[0] = 0;
2806   dits[1] = 25;
2807   dits[2] = 4; //dits[2] = 5;
2808
2809   dits[4] = 45.50; //dits[4] = 45.5;  // r inner
2810   dits[5] = dits[4]; //dits[5] = 45.5;  // r outer
2811   dits[3] = (dits[4] - b2)/s2; //dits[3] = -zmax+3; // z
2812
2813   dits[8] = dits[4]; //dits[8] = 45.5;  // r outer
2814   dits[6] = (dits[8] - b1)/s1; //dits[6] = -69.7+3;; // z
2815   dits[7] = s2*dits[6] + b2; //dits[7] = 37;  // r inner
2816
2817   dits[10] = 37.00; //dits[10] = 37;  // r inner
2818   dits[9] = (dits[10]-b2)/s2; //dits[9] = -68.5+3;; // z
2819   dits[11] = s1*dits[9]+b1; //dits[11] = 45.5;  // r outer
2820
2821   dits[13] = dits[10]; //dits[13] = 37;  // r inner
2822   dits[14] = dits[13]; //dits[14] = 45.5;   // r outer
2823   dits[12] = s2*dits[14] + b2; //dits[12] = -68.5+4.8;; // z
2824 //  gMC->Gsvolu("I215", "PCON", idtmed[204], dits, 18);  // SSD cone hole 
2825   gMC->Gsvolu("I215", "PCON", idtmed[286], dits, 15);  // SSD cone hole 
2826   
2827   dits[0] = 28.75;          
2828   dits[1] = 29.75;   
2829   dits[2] = 0.5;
2830   gMC->Gsvolu("I211", "TUBE", idtmed[224], dits, 3);   // SSD cylinder flange
2831   
2832   dits[0] = 35.8;   
2833   dits[1] = 36.8;   
2834   dits[2] = 1;
2835   gMC->Gsvolu("I217", "TUBE", idtmed[283], dits, 3);   // ladder support on layer 5 
2836   
2837   dits[0] = 41.4;  
2838   dits[1] = 42.4;  
2839   dits[2] = 1;
2840   gMC->Gsvolu("I219", "TUBE", idtmed[283], dits, 3);   // ladder support on layer 6
2841         
2842   dits[0] = 42.05+5.;       
2843   dits[1] = 42.55+5.;     
2844   dits[2] = 1.25;
2845   gMC->Gsvolu("I214", "TUBE", idtmed[224], dits, 3);   // layer 6 electronic support
2846                                                        // this will change after PPR
2847   dits[0] = 37.05+5.;   
2848   dits[1] = 37.55+5.;   
2849   dits[2] = 1.25;
2850   gMC->Gsvolu("I213", "TUBE", idtmed[224], dits, 3);   // layer 5 electronic support
2851                                                        // this will change after PPR
2852  
2853   dits[0] = 0;
2854   dits[1] = 3.2;
2855   dits[2] = 9;
2856   dits[3] = -14;
2857   dits[4] = 30.5;
2858   dits[5] = 33.5;
2859   dits[6] = -9.85;
2860   dits[7] = 30.5;
2861   dits[8] = 33.5;
2862   dits[9] = -9.85;
2863   dits[10] = 30.5;
2864   dits[11] = 43.45;
2865   dits[12] = -7.85;
2866   dits[13] = 30.5;
2867   dits[14] = 43.45;
2868   dits[15] = -7.85;
2869   dits[16] = 30.5;
2870   dits[17] = 36.5;
2871   dits[18] = -7;
2872   dits[19] = 30.5;
2873   dits[20] = 36.5;
2874   dits[21] = -4;
2875   dits[22] = 33.0173;
2876   dits[23] = 36.5;
2877   dits[24] = -4;
2878   dits[25] = 33.0173;
2879   dits[26] = 36.80;
2880   dits[27] = -2;
2881   dits[28] = 34.6955;
2882   dits[29] = 36.80;
2883   gMC->Gsvolu("I216", "PCON", idtmed[272], dits, 30); // supports (1-6) of the ladders
2884        
2885        
2886   // --- Place SPD (option 'a') volumes into their mother volume IT12
2887   
2888   // SPD - option 'a' 
2889   // (this is NOT the default)
2890
2891   if (option == 1) {
2892
2893      gMC->Gspos("I12A",5,"IT12",0.0,0.0,0.0,idrotm[238],"MANY");
2894      gMC->Gspos("I12A",6,"IT12",0.0,0.0,0.0,idrotm[236],"MANY");
2895      gMC->Gspos("I12A",7,"IT12",0.0,0.0,0.0,idrotm[239],"MANY");
2896      gMC->Gspos("I12A",8,"IT12",0.0,0.0,0.0,idrotm[233],"MANY");
2897      gMC->Gspos("I12A",9,"IT12",0.0,0.0,0.0,idrotm[240],"MANY");
2898      gMC->Gspos("I12A",10,"IT12",0.0,0.0,0.0,idrotm[241],"MANY");
2899      gMC->Gspos("I12A",2,"IT12",0.0,0.0,0.0,idrotm[242],"MANY");
2900      gMC->Gspos("I12A",3,"IT12",0.0,0.0,0.0,idrotm[234],"MANY");
2901      gMC->Gspos("I12A",4,"IT12",0.0,0.0,0.0,idrotm[243],"MANY");
2902      gMC->Gspos("I12A",1,"IT12",0.0,0.0,0.0,0,"MANY");
2903      deltax=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Cos(270.*TMath::Pi()/180.);  // see definition of idrotm[244]
2904           deltay=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Sin(270.*TMath::Pi()/180.);  // see definition of idrotm[244]
2905      gMC->Gspos("I10A",2,"I12A",0.203+deltax,3.8206+deltay,0.0,idrotm[244],"ONLY");       
2906      deltax=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Cos(252.*TMath::Pi()/180.);  // see definition of idrotm[245]
2907           deltay=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Sin(252.*TMath::Pi()/180.);  // see definition of idrotm[245]  
2908      gMC->Gspos("I10A",1,"I12A",1.4531+deltax,3.8152+deltay,0.0,idrotm[245],"ONLY");
2909      deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(40.*TMath::Pi()/180.);  // see definition of idrotm[246]
2910           deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(40.*TMath::Pi()/180.);  // see definition of idrotm[246]  
2911      gMC->Gspos("I20A",1,"I12A",3.0174+deltax,6.5143+deltay,0.0,idrotm[246],"ONLY");
2912      deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(49.*TMath::Pi()/180.);  // see definition of idrotm[247]
2913           deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(49.*TMath::Pi()/180.);  // see definition of idrotm[247] 
2914      gMC->Gspos("I20A",2,"I12A",1.9612+deltax,6.9062+deltay,0.0,idrotm[247],"ONLY");
2915      deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(58.*TMath::Pi()/180.);  // see definition of idrotm[248]
2916           deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(58.*TMath::Pi()/180.);  // see definition of idrotm[248] 
2917      gMC->Gspos("I20A",3,"I12A",0.8567+deltax,7.1279+deltay,0.0,idrotm[248],"ONLY");
2918      deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(67.*TMath::Pi()/180.);  // see definition of idrotm[249]
2919           deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(67.*TMath::Pi()/180.);  // see definition of idrotm[249] 
2920      gMC->Gspos("I20A",4,"I12A",-0.2689+deltax,7.1742+deltay,0.0,idrotm[249],"ONLY");
2921      gMC->Gspos("I123",2,"I12A",-0.2978,5.5196,0.0,idrotm[214],"ONLY");
2922      gMC->Gspos("I121",2,"I12A",-0.2385,4.1518,0.0,idrotm[213],"ONLY");
2923      gMC->Gspos("I122",2,"I12A",-0.2968,4.0207,0.0,idrotm[212],"ONLY");
2924      gMC->Gspos("I120",2,"I12A",-0.3672,3.9056,0.0,0,"ONLY");
2925      gMC->Gspos("I144",1,"I12A",-0.2538,3.8556,0.0,0,"ONLY");
2926      gMC->Gspos("I113",3,"I12A",0.1095,3.9056,0.0,0,"ONLY");
2927      gMC->Gspos("I143",1,"I12A",0.4365,3.8556,0.0,idrotm[236],"ONLY");
2928      gMC->Gspos("I142",1,"I12A",0.5136,3.9056,0.0,idrotm[235],"ONLY");
2929      gMC->Gspos("I141",1,"I12A",0.5636,3.9752,0.0,idrotm[201],"ONLY");
2930      gMC->Gspos("I140",1,"I12A",0.6336,4.0447,0.0,idrotm[234],"ONLY");
2931      gMC->Gspos("I139",1,"I12A",0.8297,4.0545,0.0,idrotm[207],"ONLY");
2932      gMC->Gspos("I113",5,"I12A",1.2575,3.9681,0.0,idrotm[207],"ONLY");
2933      gMC->Gspos("I138",1,"I12A",1.66,3.7848,0.0,idrotm[207],"ONLY");
2934      gMC->Gspos("I137",1,"I12A",1.8556,3.7738,0.0,idrotm[233],"ONLY");
2935      gMC->Gspos("I136",1,"I12A",2.6224,4.874,0.0,idrotm[232],"ONLY");
2936      gMC->Gspos("I135",1,"I12A",3.2967,6.0337,0.0,idrotm[231],"ONLY");
2937      gMC->Gspos("I134",1,"I12A",3.266,6.1636,0.0,idrotm[230],"ONLY");
2938      gMC->Gspos("I113",1,"I12A",2.9903,6.4144,0.0,idrotm[211],"ONLY");
2939      gMC->Gspos("I133",3,"I12A",2.7631,6.7627,0.0,idrotm[230],"ONLY");
2940      gMC->Gspos("I132",3,"I12A",2.62,6.8555,0.0,idrotm[229],"ONLY");
2941      gMC->Gspos("I131",3,"I12A",2.648,6.6023,0.0,idrotm[228],"ONLY");
2942      gMC->Gspos("I130",3,"I12A",2.6569,6.3431,0.0,idrotm[227],"ONLY");
2943      gMC->Gspos("I129",3,"I12A",2.3906,6.4819,0.0,idrotm[226],"ONLY");
2944      gMC->Gspos("I113",2,"I12A",1.9488,6.7998,0.0,idrotm[210],"ONLY");
2945      gMC->Gspos("I133",2,"I12A",1.6699,7.1085,0.0,idrotm[226],"ONLY");
2946      gMC->Gspos("I132",2,"I12A",1.5142,7.1777,0.0,idrotm[225],"ONLY");
2947      gMC->Gspos("I131",2,"I12A",1.5814,6.932,0.0,idrotm[224],"ONLY");
2948      gMC->Gspos("I130",2,"I12A",1.6308,6.6774,0.0,idrotm[223],"ONLY");
2949      gMC->Gspos("I129",2,"I12A",1.346,6.7728,0.0,idrotm[222],"ONLY");
2950      gMC->Gspos("I113",6,"I12A",0.8599,7.0176,0.0,idrotm[209],"ONLY");
2951      gMC->Gspos("I133",1,"I12A",0.5362,7.2789,0.0,idrotm[222],"ONLY");
2952      gMC->Gspos("I132",1,"I12A",0.3715,7.3228,0.0,idrotm[221],"ONLY");
2953      gMC->Gspos("I131",1,"I12A",0.4763,7.0907,0.0,idrotm[220],"ONLY");
2954      gMC->Gspos("I130",1,"I12A",0.5649,6.8469,0.0,idrotm[219],"ONLY");
2955      gMC->Gspos("I129",1,"I12A",0.2688,6.8966,0.0,idrotm[218],"ONLY");
2956      gMC->Gspos("I113",4,"I12A",-0.2497,7.0624,0.0,idrotm[208],"ONLY");
2957      gMC->Gspos("I128",1,"I12A",-0.6103,7.2698,0.0,idrotm[218],"ONLY");
2958      gMC->Gspos("I126",2,"I12A",-0.7799,7.2874,0.0,idrotm[217],"ONLY");
2959      gMC->Gspos("I125",2,"I12A",-0.6315,7.0883,0.0,idrotm[216],"ONLY");
2960      gMC->Gspos("I124",2,"I12A",-0.4965,6.8742,0.0,idrotm[215],"ONLY");
2961      gMC->Gspos("I103",3,"I10A",-0.05,-di10a[1]+2.*di104[1]+di103[1],-3.536,0,"ONLY");
2962      gMC->Gspos("I103",4,"I10A",-0.05,-di10a[1]+2.*di104[1]+di103[1],-10.708,0,"ONLY");
2963      gMC->Gspos("I103",1,"I10A",-0.05,-di10a[1]+2.*di104[1]+di103[1],10.708,0,"ONLY");
2964      gMC->Gspos("I103",2,"I10A",-0.05,-di10a[1]+2.*di104[1]+di103[1],3.536,0,"ONLY");
2965      gMC->Gspos("I105",1,"I10A",-0.05,0.01,-16.844,idrotm[237],"ONLY");
2966      gMC->Gspos("I105",2,"I10A",-0.05,0.01,16.844,0,"ONLY");
2967      gMC->Gspos("I104",1,"I10A",0.0,-di10a[1]+di104[1],0.0,0,"ONLY");
2968      gMC->Gspos("I1D3",3,"I20A",-0.05,-di20a[1]+2.*di104[1]+di1d3[1],-3.536,0,"ONLY");
2969      gMC->Gspos("I1D3",4,"I20A",-0.05,-di20a[1]+2.*di104[1]+di1d3[1],-10.708,0,"ONLY");
2970      gMC->Gspos("I1D3",1,"I20A",-0.05,-di20a[1]+2.*di104[1]+di1d3[1],10.708,0,"ONLY");
2971      gMC->Gspos("I1D3",2,"I20A",-0.05,-di20a[1]+2.*di104[1]+di1d3[1],3.536,0,"ONLY");
2972      gMC->Gspos("I105",3,"I20A",-0.05,0.01,-16.844,idrotm[237],"ONLY");
2973      gMC->Gspos("I105",4,"I20A",-0.05,0.01,16.844,0,"ONLY");
2974      gMC->Gspos("I104",2,"I20A",0.0,-di20a[1]+di104[1],0.0,0,"ONLY");
2975      gMC->Gspos("I112",2,"I113",0.25,0.02,0.0,idrotm[206],"ONLY");
2976      gMC->Gspos("I111",2,"I113",0.1318,-0.0008,0.0,idrotm[205],"ONLY");
2977      gMC->Gspos("I118",1,"I113",0.0,-0.0454,0.0,0,"ONLY");
2978      gMC->Gspos("I110",1,"I113",0.0,0.0492,0.0,0,"ONLY");
2979      gMC->Gspos("I114",1,"I113",0.063,0.0042,0.0,idrotm[202],"ONLY");
2980      gMC->Gspos("I115",1,"I113",0.063,0.0042,0.0,idrotm[202],"ONLY");
2981      gMC->Gspos("I115",2,"I113",-0.063,0.0042,0.0,idrotm[201],"ONLY");
2982      gMC->Gspos("I114",2,"I113",-0.063,0.0042,0.0,idrotm[201],"ONLY");
2983      gMC->Gspos("I116",1,"I113",0.0,0.0042,0.0,0,"ONLY");
2984      gMC->Gspos("I111",1,"I113",-0.1318,-0.0008,0.0,idrotm[204],"ONLY");
2985      gMC->Gspos("I112",1,"I113",-0.25,0.02,0.0,idrotm[203],"ONLY");
2986      gMC->Gspos("I101",1,"I103",-0.088,ddet1,0.0,0,"ONLY");
2987      gMC->Gspos("I102",1,"I103",0.0,-dchip1,-2.8,0,"ONLY");
2988      gMC->Gspos("I102",2,"I103",0.0,-dchip1,-1.4,0,"ONLY");
2989      gMC->Gspos("I102",3,"I103",0.0,-dchip1,0.0,0,"ONLY");
2990      gMC->Gspos("I102",4,"I103",0.0,-dchip1,1.4,0,"ONLY");
2991      gMC->Gspos("I102",5,"I103",0.0,-dchip1,2.8,0,"ONLY");
2992      gMC->Gspos("I1D1",1,"I1D3",-0.088,ddet2,0.0,0,"ONLY");
2993      gMC->Gspos("I1D2",1,"I1D3",0.0,-dchip2,-2.8,0,"ONLY");
2994      gMC->Gspos("I1D2",2,"I1D3",0.0,-dchip2,-1.4,0,"ONLY");
2995      gMC->Gspos("I1D2",3,"I1D3",0.0,-dchip2,0.0,0,"ONLY");
2996      gMC->Gspos("I1D2",4,"I1D3",0.0,-dchip2,1.4,0,"ONLY");
2997      gMC->Gspos("I1D2",5,"I1D3",0.0,-dchip2,2.8,0,"ONLY");
2998      gMC->Gspos("I117",1,"I116",0.0,0.0,0.0,0,"ONLY");
2999      gMC->Gspos("ITS1",1,"I101",0.0,0.0,0.0,0,"ONLY");
3000      gMC->Gspos("ITS2",1,"I1D1",0.0,0.0,0.0,0,"ONLY");
3001      gMC->Gspos("I651",1,"IT12",0.0,0.0,26.05,0,"ONLY");
3002      gMC->Gspos("I651",2,"IT12",0.0,0.0,-26.05,0,"ONLY");     
3003      gMC->Gspos("I650",16,"IT12",0.0,0.0,22.0,idrotm[1104],"MANY");
3004      gMC->Gspos("I650",20,"IT12",0.0,0.0,22.0,idrotm[1130],"MANY");
3005      gMC->Gspos("I650",18,"IT12",0.0,0.0,22.0,idrotm[1117],"MANY");
3006      gMC->Gspos("I650",1,"IT12",0.0,0.0,22.0,0,"MANY");
3007      gMC->Gspos("I650",4,"IT12",0.0,0.0,22.0,idrotm[1106],"MANY");
3008      gMC->Gspos("I650",6,"IT12",0.0,0.0,22.0,idrotm[1039],"MANY");
3009      gMC->Gspos("I650",8,"IT12",0.0,0.0,22.0,idrotm[1107],"MANY");
3010      gMC->Gspos("I650",10,"IT12",0.0,0.0,22.0,idrotm[1065],"MANY");
3011      gMC->Gspos("I650",12,"IT12",0.0,0.0,22.0,idrotm[1078],"MANY");
3012      gMC->Gspos("I650",14,"IT12",0.0,0.0,22.0,idrotm[1091],"MANY");
3013      gMC->Gspos("I650",19,"IT12",0.0,0.0,-22.0,idrotm[1108],"MANY");
3014      gMC->Gspos("I650",2,"IT12",0.0,0.0,-22.0,idrotm[1109],"MANY");
3015      gMC->Gspos("I650",3,"IT12",0.0,0.0,-22.0,idrotm[1110],"MANY");
3016      gMC->Gspos("I650",5,"IT12",0.0,0.0,-22.0,idrotm[1111],"MANY");
3017      gMC->Gspos("I650",7,"IT12",0.0,0.0,-22.0,idrotm[1112],"MANY");
3018      gMC->Gspos("I650",9,"IT12",0.0,0.0,-22.0,idrotm[1113],"MANY");
3019      gMC->Gspos("I650",11,"IT12",0.0,0.0,-22.0,idrotm[1114],"MANY");
3020      gMC->Gspos("I650",13,"IT12",0.0,0.0,-22.0,idrotm[1115],"MANY");
3021      gMC->Gspos("I650",15,"IT12",0.0,0.0,-22.0,idrotm[1116],"MANY");
3022      gMC->Gspos("I650",17,"IT12",0.0,0.0,-22.0,idrotm[1118],"MANY");
3023      gMC->Gspos("I666",1,"I650",0.0,0.0,0.25,idrotm[1003],"MANY");
3024      gMC->Gspos("I667",1,"I650",0.1102,0.9945,0.45,idrotm[1088],"ONLY");
3025      gMC->Gspos("I669",3,"I650",0.1883,4.0372,-3.2,0,"ONLY");
3026      gMC->Gspos("I671",3,"I650",0.1883,4.0372,0.6,0,"ONLY");
3027      gMC->Gspos("I669",2,"I650",1.3343,4.0609,-3.2,0,"ONLY");
3028      gMC->Gspos("I671",2,"I650",1.3343,4.0609,0.6,0,"ONLY");
3029      gMC->Gspos("I669",6,"I650",2.9567,6.1959,-3.2,idrotm[1089],"ONLY");
3030      gMC->Gspos("I671",6,"I650",2.9567,6.1959,0.6,idrotm[1089],"ONLY");
3031      gMC->Gspos("I669",5,"I650",1.9511,6.5822,-3.2,idrotm[1011],"ONLY");
3032      gMC->Gspos("I671",5,"I650",1.9511,6.5822,0.6,idrotm[1011],"ONLY");
3033      gMC->Gspos("I669",4,"I650",0.8974,6.8064,-3.2,idrotm[1090],"ONLY");
3034      gMC->Gspos("I671",4,"I650",0.8974,6.8064,0.6,idrotm[1090],"ONLY");
3035      gMC->Gspos("I669",1,"I650",-0.1784,6.863,-3.2,0,"ONLY");
3036      gMC->Gspos("I671",1,"I650",-0.1784,6.863,0.6,0,"ONLY");
3037      gMC->Gspos("I673",1,"I650",0.2173,4.8037,1.8,0,"ONLY");
3038      gMC->Gspos("I673",6,"I650",1.5093,4.5605,1.8,0,"ONLY");
3039      gMC->Gspos("I673",4,"I650",-0.173,6.2531,1.8,idrotm[1092],"ONLY");
3040      gMC->Gspos("I673",3,"I650",0.8073,6.2032,1.8,idrotm[1093],"ONLY");
3041      gMC->Gspos("I673",2,"I650",1.7678,6.0005,1.8,idrotm[1094],"ONLY");
3042      gMC->Gspos("I673",5,"I650",2.6847,5.6501,1.8,0,"ONLY");
3043      gMC->Gspos("I676",2,"I650",1.7618,5.2269,2.5,0,"ONLY");
3044      gMC->Gspos("I676",1,"I650",0.4018,5.5869,2.5,0,"ONLY");
3045      gMC->Gspos("I668",1,"I667",0.0,0.0,0.0,0,"ONLY");
3046      gMC->Gspos("I670",1,"I669",0.0,0.0,0.0,0,"ONLY");
3047      gMC->Gspos("I672",1,"I671",0.0,0.0,0.0,0,"ONLY");
3048      gMC->Gspos("I674",1,"I673",0.0,0.0,0.0,0,"MANY");
3049      gMC->Gspos("I675",1,"I673",0.0,0.0,-0.5,0,"ONLY");
3050      gMC->Gspos("I677",1,"I676",0.0,0.0,0.0,0,"MANY");
3051      gMC->Gspos("I678",1,"I676",0.0,0.0,-0.95,0,"ONLY");    
3052
3053   }
3054
3055
3056   // --- Place SPD (option 'b') volumes into their mother volume IT12
3057   
3058   // SPD - option 'b' 
3059   // (this is the default)
3060
3061   if (option == 2) {
3062
3063      gMC->Gspos("I12B",1,"IT12",0.0,0.0,0.0,0,"MANY");
3064      gMC->Gspos("I12B",8,"IT12",0.0,0.0,0.0,idrotm[233],"MANY");
3065      gMC->Gspos("I12B",7,"IT12",0.0,0.0,0.0,idrotm[244],"MANY");
3066      gMC->Gspos("I12B",6,"IT12",0.0,0.0,0.0,idrotm[236],"MANY");
3067      gMC->Gspos("I12B",2,"IT12",0.0,0.0,0.0,idrotm[245],"MANY");
3068      gMC->Gspos("I12B",3,"IT12",0.0,0.0,0.0,idrotm[234],"MANY");
3069      gMC->Gspos("I12B",4,"IT12",0.0,0.0,0.0,idrotm[246],"MANY");
3070      gMC->Gspos("I12B",5,"IT12",0.0,0.0,0.0,idrotm[247],"MANY");
3071      gMC->Gspos("I12B",9,"IT12",0.0,0.0,0.0,idrotm[248],"MANY");
3072      gMC->Gspos("I12B",10,"IT12",0.0,0.0,0.0,idrotm[249],"MANY");
3073      deltax=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Cos(270.*TMath::Pi()/180.);  // see definition of idrotm[238]
3074           deltay=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Sin(270.*TMath::Pi()/180.);  // see definition of idrotm[238]
3075      gMC->Gspos("I10B",2,"I12B",0.203+deltax,3.8206+deltay,0.0,idrotm[238],"ONLY");       
3076      deltax=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Cos(252.*TMath::Pi()/180.);  // see definition of idrotm[239]
3077           deltay=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Sin(252.*TMath::Pi()/180.);  // see definition of idrotm[239]  
3078      gMC->Gspos("I10B",1,"I12B",1.4531+deltax,3.8152+deltay,0.0,idrotm[239],"ONLY");
3079      deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(40.*TMath::Pi()/180.);  // see definition of idrotm[240]
3080           deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(40.*TMath::Pi()/180.);  // see definition of idrotm[240]  
3081      gMC->Gspos("I20B",1,"I12B",3.0174+deltax,6.5143+deltay,0.0,idrotm[240],"ONLY");
3082      deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(49.*TMath::Pi()/180.);  // see definition of idrotm[241]
3083           deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(49.*TMath::Pi()/180.);  // see definition of idrotm[241] 
3084      gMC->Gspos("I20B",2,"I12B",1.9612+deltax,6.9062+deltay,0.0,idrotm[241],"ONLY");
3085      deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(58.*TMath::Pi()/180.);  // see definition of idrotm[242]
3086           deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(58.*TMath::Pi()/180.);  // see definition of idrotm[242] 
3087      gMC->Gspos("I20B",3,"I12B",0.8567+deltax,7.1279+deltay,0.0,idrotm[242],"ONLY");
3088      deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(67.*TMath::Pi()/180.);  // see definition of idrotm[243]
3089           deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(67.*TMath::Pi()/180.);  // see definition of idrotm[243] 
3090      gMC->Gspos("I20B",4,"I12B",-0.2689+deltax,7.1742+deltay,0.0,idrotm[243],"ONLY");
3091      gMC->Gspos("I123",1,"I12B",-0.2978,5.5196,0.0,idrotm[214],"ONLY");
3092      gMC->Gspos("I121",1,"I12B",-0.2385,4.1518,0.0,idrotm[213],"ONLY");
3093      gMC->Gspos("I122",1,"I12B",-0.2968,4.0207,0.0,idrotm[212],"ONLY");
3094      gMC->Gspos("I120",1,"I12B",-0.3672,3.9056,0.0,0,"ONLY");
3095      gMC->Gspos("I144",1,"I12B",-0.2538,3.8556,0.0,0,"ONLY");
3096      gMC->Gspos("I113",3,"I12B",0.1095,3.9056,0.0,0,"ONLY");
3097      gMC->Gspos("I143",1,"I12B",0.4365,3.8556,0.0,idrotm[236],"ONLY");
3098      gMC->Gspos("I142",1,"I12B",0.5136,3.9056,0.0,idrotm[235],"ONLY");
3099      gMC->Gspos("I141",1,"I12B",0.5636,3.9752,0.0,idrotm[237],"ONLY");
3100      gMC->Gspos("I140",1,"I12B",0.6336,4.0447,0.0,idrotm[234],"ONLY");
3101      gMC->Gspos("I139",1,"I12B",0.8297,4.0545,0.0,idrotm[207],"ONLY");
3102      gMC->Gspos("I113",5,"I12B",1.2575,3.9681,0.0,idrotm[207],"ONLY");
3103      gMC->Gspos("I138",1,"I12B",1.66,3.7848,0.0,idrotm[207],"ONLY");
3104      gMC->Gspos("I137",1,"I12B",1.8556,3.7738,0.0,idrotm[233],"ONLY");
3105      gMC->Gspos("I136",1,"I12B",2.6224,4.874,0.0,idrotm[232],"ONLY");
3106      gMC->Gspos("I135",1,"I12B",3.2967,6.0337,0.0,idrotm[231],"ONLY");
3107      gMC->Gspos("I134",1,"I12B",3.266,6.1636,0.0,idrotm[230],"ONLY");
3108      gMC->Gspos("I113",1,"I12B",2.9903,6.4144,0.0,idrotm[211],"ONLY");
3109      gMC->Gspos("I133",3,"I12B",2.7631,6.7627,0.0,idrotm[230],"ONLY");
3110      gMC->Gspos("I132",3,"I12B",2.62,6.8555,0.0,idrotm[229],"ONLY");
3111      gMC->Gspos("I131",3,"I12B",2.648,6.6023,0.0,idrotm[228],"ONLY");
3112      gMC->Gspos("I130",3,"I12B",2.6569,6.3431,0.0,idrotm[227],"ONLY");
3113      gMC->Gspos("I129",3,"I12B",2.3906,6.4819,0.0,idrotm[226],"ONLY");
3114      gMC->Gspos("I113",2,"I12B",1.9488,6.7998,0.0,idrotm[210],"ONLY");
3115      gMC->Gspos("I133",2,"I12B",1.6699,7.1085,0.0,idrotm[226],"ONLY");
3116      gMC->Gspos("I132",2,"I12B",1.5142,7.1777,0.0,idrotm[225],"ONLY");
3117      gMC->Gspos("I131",2,"I12B",1.5814,6.932,0.0,idrotm[224],"ONLY");
3118      gMC->Gspos("I130",2,"I12B",1.6308,6.6774,0.0,idrotm[223],"ONLY");
3119      gMC->Gspos("I129",2,"I12B",1.346,6.7728,0.0,idrotm[222],"ONLY");
3120      gMC->Gspos("I113",6,"I12B",0.8599,7.0176,0.0,idrotm[209],"ONLY");
3121      gMC->Gspos("I133",1,"I12B",0.5362,7.2789,0.0,idrotm[222],"ONLY");
3122      gMC->Gspos("I132",1,"I12B",0.3715,7.3228,0.0,idrotm[221],"ONLY");
3123      gMC->Gspos("I131",1,"I12B",0.4763,7.0907,0.0,idrotm[220],"ONLY");
3124      gMC->Gspos("I130",1,"I12B",0.5649,6.8469,0.0,idrotm[219],"ONLY");
3125      gMC->Gspos("I129",1,"I12B",0.2688,6.8966,0.0,idrotm[218],"ONLY");
3126      gMC->Gspos("I113",4,"I12B",-0.2497,7.0624,0.0,idrotm[208],"ONLY");
3127      gMC->Gspos("I128",1,"I12B",-0.6103,7.2698,0.0,idrotm[218],"ONLY");
3128      gMC->Gspos("I126",1,"I12B",-0.7799,7.2874,0.0,idrotm[217],"ONLY");
3129      gMC->Gspos("I125",1,"I12B",-0.6315,7.0883,0.0,idrotm[216],"ONLY");
3130      gMC->Gspos("I124",1,"I12B",-0.4965,6.8742,0.0,idrotm[215],"ONLY");
3131      gMC->Gspos("I105",3,"I10B",-0.05,-0.01,-16.844,idrotm[201],"ONLY");
3132      gMC->Gspos("I105",4,"I10B",-0.05,-0.01,16.844,0,"ONLY");
3133      gMC->Gspos("I107",2,"I10B",-0.0455,-di10b[1]+di107[1],3.536,0,"ONLY");
3134      gMC->Gspos("I107",1,"I10B",-0.0455,-di10b[1]+di107[1],10.708,0,"ONLY");
3135      gMC->Gspos("I107",4,"I10B",-0.0455,-di10b[1]+di107[1],-10.708,0,"ONLY");
3136      gMC->Gspos("I107",3,"I10B",-0.0455,-di10b[1]+di107[1],-3.536,0,"ONLY");
3137      gMC->Gspos("I109",1,"I10B",-0.138,0.015,-16.844,idrotm[201],"ONLY");
3138      gMC->Gspos("I109",2,"I10B",-0.138,0.015,16.844,0,"ONLY");
3139      gMC->Gspos("I108",1,"I10B",-0.138,-di10b[1]+2.*di107[1]+di108[1],0.0,0,"ONLY");
3140      gMC->Gspos("I105",1,"I20B",-0.05,-0.01,-16.844,idrotm[201],"ONLY");
3141      gMC->Gspos("I105",2,"I20B",-0.05,-0.01,16.844,0,"ONLY");
3142      gMC->Gspos("I1D7",2,"I20B",-0.0455,-di20b[1]+di1d7[1],3.536,0,"ONLY");
3143      gMC->Gspos("I1D7",1,"I20B",-0.0455,-di20b[1]+di1d7[1],10.708,0,"ONLY");
3144      gMC->Gspos("I1D7",4,"I20B",-0.0455,-di20b[1]+di1d7[1],-10.708,0,"ONLY");
3145      gMC->Gspos("I1D7",3,"I20B",-0.0455,-di20b[1]+di1d7[1],-3.536,0,"ONLY");
3146      gMC->Gspos("I109",3,"I20B",-0.138,0.015,-16.844,idrotm[201],"ONLY");
3147      gMC->Gspos("I109",4,"I20B",-0.138,0.015,16.844,0,"ONLY");
3148      gMC->Gspos("I108",2,"I20B",-0.138,-di20b[1]+2.*di1d7[1]+di108[1],0.0,0,"ONLY");
3149      gMC->Gspos("I112",2,"I113",0.25,0.02,0.0,idrotm[206],"ONLY");
3150      gMC->Gspos("I111",2,"I113",0.1318,-0.0008,0.0,idrotm[205],"ONLY");
3151      gMC->Gspos("I118",1,"I113",0.0,-0.0454,0.0,0,"ONLY");
3152      gMC->Gspos("I110",1,"I113",0.0,0.0492,0.0,0,"ONLY");
3153      gMC->Gspos("I114",1,"I113",0.063,0.0042,0.0,idrotm[202],"ONLY");
3154      gMC->Gspos("I115",1,"I113",0.063,0.0042,0.0,idrotm[202],"ONLY");
3155      gMC->Gspos("I115",2,"I113",-0.063,0.0042,0.0,idrotm[237],"ONLY");
3156      gMC->Gspos("I114",2,"I113",-0.063,0.0042,0.0,idrotm[237],"ONLY");
3157      gMC->Gspos("I116",1,"I113",0.0,0.0042,0.0,0,"ONLY");
3158      gMC->Gspos("I111",1,"I113",-0.1318,-0.0008,0.0,idrotm[204],"ONLY");
3159      gMC->Gspos("I112",1,"I113",-0.25,0.02,0.0,idrotm[203],"ONLY");
3160      gMC->Gspos("I106",1,"I107",0.0,-dchip1,-1.4,0,"ONLY");
3161      gMC->Gspos("I106",2,"I107",0.0,-dchip1,0.0,0,"ONLY");
3162      gMC->Gspos("I106",3,"I107",0.0,-dchip1,1.4,0,"ONLY");
3163      gMC->Gspos("I106",4,"I107",0.0,-dchip1,2.8,0,"ONLY");
3164      gMC->Gspos("I106",5,"I107",0.0,-dchip1,-2.8,0,"ONLY");
3165      gMC->Gspos("I101",1,"I107",0.0,ddet1,0.0,0,"ONLY");
3166      gMC->Gspos("I1D6",1,"I1D7",0.0,-dchip2,-1.4,0,"ONLY");
3167      gMC->Gspos("I1D6",2,"I1D7",0.0,-dchip2,0.0,0,"ONLY");
3168      gMC->Gspos("I1D6",3,"I1D7",0.0,-dchip2,1.4,0,"ONLY");
3169      gMC->Gspos("I1D6",4,"I1D7",0.0,-dchip2,2.8,0,"ONLY");
3170      gMC->Gspos("I1D6",5,"I1D7",0.0,-dchip2,-2.8,0,"ONLY");
3171      gMC->Gspos("I1D1",1,"I1D7",0.0,ddet2,0.0,0,"ONLY");
3172      gMC->Gspos("I117",1,"I116",0.0,0.0,0.0,0,"ONLY");
3173      gMC->Gspos("ITS1",1,"I101",0.0,0.0,0.0,0,"ONLY");
3174      gMC->Gspos("ITS2",1,"I1D1",0.0,0.0,0.0,0,"ONLY");
3175      gMC->Gspos("I651",1,"IT12",0.0,0.0,26.05,0,"ONLY");
3176      gMC->Gspos("I651",2,"IT12",0.0,0.0,-26.05,0,"ONLY");     
3177      gMC->Gspos("I650",16,"IT12",0.0,0.0,22.0,idrotm[1104],"MANY");
3178      gMC->Gspos("I650",20,"IT12",0.0,0.0,22.0,idrotm[1130],"MANY");
3179      gMC->Gspos("I650",18,"IT12",0.0,0.0,22.0,idrotm[1117],"MANY");
3180      gMC->Gspos("I650",1,"IT12",0.0,0.0,22.0,0,"MANY");
3181      gMC->Gspos("I650",4,"IT12",0.0,0.0,22.0,idrotm[1106],"MANY");
3182      gMC->Gspos("I650",6,"IT12",0.0,0.0,22.0,idrotm[1039],"MANY");
3183      gMC->Gspos("I650",8,"IT12",0.0,0.0,22.0,idrotm[1107],"MANY");
3184      gMC->Gspos("I650",10,"IT12",0.0,0.0,22.0,idrotm[1065],"MANY");
3185      gMC->Gspos("I650",12,"IT12",0.0,0.0,22.0,idrotm[1078],"MANY");
3186      gMC->Gspos("I650",14,"IT12",0.0,0.0,22.0,idrotm[1091],"MANY");
3187      gMC->Gspos("I650",19,"IT12",0.0,0.0,-22.0,idrotm[1108],"MANY");
3188      gMC->Gspos("I650",2,"IT12",0.0,0.0,-22.0,idrotm[1109],"MANY");
3189      gMC->Gspos("I650",3,"IT12",0.0,0.0,-22.0,idrotm[1110],"MANY");
3190      gMC->Gspos("I650",5,"IT12",0.0,0.0,-22.0,idrotm[1111],"MANY");
3191      gMC->Gspos("I650",7,"IT12",0.0,0.0,-22.0,idrotm[1112],"MANY");
3192      gMC->Gspos("I650",9,"IT12",0.0,0.0,-22.0,idrotm[1113],"MANY");
3193      gMC->Gspos("I650",11,"IT12",0.0,0.0,-22.0,idrotm[1114],"MANY");
3194      gMC->Gspos("I650",13,"IT12",0.0,0.0,-22.0,idrotm[1115],"MANY");
3195      gMC->Gspos("I650",15,"IT12",0.0,0.0,-22.0,idrotm[1116],"MANY");
3196      gMC->Gspos("I650",17,"IT12",0.0,0.0,-22.0,idrotm[1118],"MANY");
3197      gMC->Gspos("I666",1,"I650",0.0,0.0,0.25,idrotm[1003],"MANY");
3198      gMC->Gspos("I667",1,"I650",0.1102,0.9945,0.45,idrotm[1088],"ONLY");
3199      gMC->Gspos("I669",3,"I650",0.1883,4.0372,-3.2,0,"ONLY");
3200      gMC->Gspos("I671",3,"I650",0.1883,4.0372,0.6,0,"ONLY");
3201      gMC->Gspos("I669",2,"I650",1.3343,4.0609,-3.2,0,"ONLY");
3202      gMC->Gspos("I671",2,"I650",1.3343,4.0609,0.6,0,"ONLY");
3203      gMC->Gspos("I669",6,"I650",2.9567,6.1959,-3.2,idrotm[1089],"ONLY");
3204      gMC->Gspos("I671",6,"I650",2.9567,6.1959,0.6,idrotm[1089],"ONLY");
3205      gMC->Gspos("I669",5,"I650",1.9511,6.5822,-3.2,idrotm[1011],"ONLY");
3206      gMC->Gspos("I671",5,"I650",1.9511,6.5822,0.6,idrotm[1011],"ONLY");
3207      gMC->Gspos("I669",4,"I650",0.8974,6.8064,-3.2,idrotm[1090],"ONLY");
3208      gMC->Gspos("I671",4,"I650",0.8974,6.8064,0.6,idrotm[1090],"ONLY");
3209      gMC->Gspos("I669",1,"I650",-0.1784,6.863,-3.2,0,"ONLY");
3210      gMC->Gspos("I671",1,"I650",-0.1784,6.863,0.6,0,"ONLY");
3211      gMC->Gspos("I673",1,"I650",0.2173,4.8037,1.8,0,"ONLY");
3212      gMC->Gspos("I673",6,"I650",1.5093,4.5605,1.8,0,"ONLY");
3213      gMC->Gspos("I673",4,"I650",-0.173,6.2531,1.8,idrotm[1092],"ONLY");
3214      gMC->Gspos("I673",3,"I650",0.8073,6.2032,1.8,idrotm[1093],"ONLY");
3215      gMC->Gspos("I673",2,"I650",1.7678,6.0005,1.8,idrotm[1094],"ONLY");
3216      gMC->Gspos("I673",5,"I650",2.6847,5.6501,1.8,0,"ONLY");
3217      gMC->Gspos("I676",2,"I650",1.7618,5.2269,2.5,0,"ONLY");
3218      gMC->Gspos("I676",1,"I650",0.4018,5.5869,2.5,0,"ONLY");
3219      gMC->Gspos("I668",1,"I667",0.0,0.0,0.0,0,"ONLY");
3220      gMC->Gspos("I670",1,"I669",0.0,0.0,0.0,0,"ONLY");
3221      gMC->Gspos("I672",1,"I671",0.0,0.0,0.0,0,"ONLY");
3222      gMC->Gspos("I674",1,"I673",0.0,0.0,0.0,0,"MANY");
3223      gMC->Gspos("I675",1,"I673",0.0,0.0,-0.5,0,"ONLY");
3224      gMC->Gspos("I677",1,"I676",0.0,0.0,0.0,0,"MANY");
3225      gMC->Gspos("I678",1,"I676",0.0,0.0,-0.95,0,"ONLY");  
3226
3227   }
3228     
3229   // --- Place SDD volumes into their mother volume IT34
3230
3231   
3232   // -- position SDD detectors of ladder 3 / layer 3
3233
3234   gMC->Gspos("ITS3", 1,"I302",  0.0,      0.0,    0.0,    0,           "ONLY");
3235   ySDD = Y_SDD_sep/2.+I302dits[1];
3236   for (iSDD=0; iSDD<6; iSDD++) {
3237     gMC->Gspos("I302", iSDD+1, "I004",  0.0, ySDD,  Z_SDD_lay3[iSDD], 0, "ONLY");
3238     ySDD = -ySDD;
3239   }
3240
3241   gMC->Gspos("I004", 1,"IT34", -3.2777,  14.3607, 0.0,   idrotm[321],"ONLY");
3242   gMC->Gspos("I004", 2,"IT34", -9.5581,  11.9855, 0.0,   idrotm[333],"ONLY");
3243   gMC->Gspos("I004", 3,"IT34",-13.2713,   6.3911, 0.0,   idrotm[336],"ONLY");
3244   gMC->Gspos("I004", 4,"IT34",-15.33,     0.0,    0.0,   idrotm[350],"ONLY");
3245   gMC->Gspos("I004", 5,"IT34",-13.2713,  -6.3911, 0.0,   idrotm[313],"ONLY");
3246   gMC->Gspos("I004", 6,"IT34", -9.5581, -11.9855, 0.0,   idrotm[311],"ONLY");
3247   gMC->Gspos("I004", 7,"IT34", -3.2777, -14.3607, 0.0,   idrotm[310],"ONLY");
3248   gMC->Gspos("I004", 8,"IT34",  3.4112, -14.9456, 0.0,   idrotm[386],"ONLY");
3249   gMC->Gspos("I004", 9,"IT34",  9.184,  -11.5164, 0.0,   idrotm[309],"ONLY");
3250   gMC->Gspos("I004",10,"IT34", 13.8119,  -6.6514, 0.0,   idrotm[308],"ONLY");
3251   gMC->Gspos("I004",11,"IT34", 14.73,     0.0,    0.0,   idrotm[356],"ONLY");
3252   gMC->Gspos("I004",12,"IT34", 13.8119,   6.6514, 0.0,   idrotm[307],"ONLY");
3253   gMC->Gspos("I004",13,"IT34",  9.184,   11.5164, 0.0,   idrotm[306],"ONLY");
3254   gMC->Gspos("I004",14,"IT34",  3.4113,  14.9456, 0.0,   idrotm[305],"ONLY");
3255
3256
3257   // -- position SDD detectors of ladder 4 / layer 4
3258
3259   gMC->Gspos("ITS4", 1,"I402",  0.0,      0.000,  0.0,   0,"ONLY");
3260   ySDD = -(Y_SDD_sep/2.+I402dits[1]);
3261   for (iSDD=0; iSDD<8; iSDD++) {
3262     gMC->Gspos("I402", iSDD+1, "I005",  0.0, ySDD,  Z_SDD_lay4[iSDD], 0, "ONLY");
3263     ySDD = -ySDD;
3264   }
3265   
3266   gMC->Gspos("I005", 1,"IT34", -3.3629,  23.3895,-0.15,  idrotm[335],"ONLY");
3267   gMC->Gspos("I005", 2,"IT34",-10.0447,  21.9949,-0.15,  idrotm[332],"ONLY");
3268   gMC->Gspos("I005", 3,"IT34",-15.4744,  17.8584,-0.15,  idrotm[331],"ONLY");
3269   gMC->Gspos("I005", 4,"IT34",-20.3415,  13.0727,-0.15,  idrotm[366],"ONLY");
3270   gMC->Gspos("I005", 5,"IT34",-22.6728,   6.6573,-0.15,  idrotm[330],"ONLY");
3271   gMC->Gspos("I005", 6,"IT34",-24.18,     0.0,   -0.15,  idrotm[350],"ONLY");
3272   gMC->Gspos("I005", 7,"IT34",-22.6728,  -6.6573,-0.15,  idrotm[329],"ONLY");
3273   gMC->Gspos("I005", 8,"IT34",-20.3415, -13.0727,-0.15,  idrotm[328],"ONLY");
3274   gMC->Gspos("I005", 9,"IT34",-15.4744, -17.8584,-0.15,  idrotm[327],"ONLY");
3275   gMC->Gspos("I005",10,"IT34",-10.0447, -21.9949,-0.15,  idrotm[326],"ONLY");
3276   gMC->Gspos("I005",11,"IT34", -3.3629, -23.3895,-0.15,  idrotm[325],"ONLY");
3277   gMC->Gspos("I005",12,"IT34",  3.4412, -23.9339,-0.15,  idrotm[324],"ONLY");
3278   gMC->Gspos("I005",13,"IT34",  9.8163, -21.4946,-0.15,  idrotm[323],"ONLY");
3279   gMC->Gspos("I005",14,"IT34", 15.8345, -18.274, -0.15,  idrotm[322],"ONLY");
3280   gMC->Gspos("I005",15,"IT34", 19.8788, -12.7753,-0.15,  idrotm[320],"ONLY");
3281   gMC->Gspos("I005",16,"IT34", 23.2005,  -6.8123,-0.15,  idrotm[319],"ONLY");
3282   gMC->Gspos("I005",17,"IT34", 23.63,     0.0,   -0.15,  idrotm[318],"ONLY");
3283   gMC->Gspos("I005",18,"IT34", 23.2005,   6.8123,-0.15,  idrotm[317],"ONLY");
3284   gMC->Gspos("I005",19,"IT34", 19.8788,  12.7753,-0.15,  idrotm[316],"ONLY");
3285   gMC->Gspos("I005",20,"IT34", 15.8345,  18.274, -0.15,  idrotm[315],"ONLY");
3286   gMC->Gspos("I005",21,"IT34",  9.8163,  21.4946,-0.15,  idrotm[314],"ONLY");
3287   gMC->Gspos("I005",22,"IT34",  3.4412,  23.9339,-0.15,  idrotm[334],"ONLY");
3288
3289
3290   // -- build block of the SDD ladder frame holding the electronics
3291
3292   gMC->Gspos("I019", 1,"I018", -1.9,     -1.735,  0.0, idrotm[344], "ONLY");
3293   gMC->Gspos("I019", 2,"I018",  1.987,   -1.5843, 0.0, idrotm[343], "ONLY");
3294   gMC->Gspos("I019", 3,"I018", -0.087,    1.7066, 0.0, idrotm[342], "ONLY");
3295
3296   gMC->Gspos("I020", 1,"I018", -1.9782,  -1.569,  0.0, idrotm[342], "ONLY");
3297   gMC->Gspos("I020", 2,"I018",  1.8824,  -1.735,  0.0, idrotm[344], "ONLY");
3298   gMC->Gspos("I020", 3,"I018",  0.0958,   1.6913, 0.0, idrotm[343], "ONLY");
3299
3300   gMC->Gspos("I021", 1,"I018",  1.0761,   0.0835, 2.6008, idrotm[340], "ONLY");
3301   gMC->Gspos("I021", 2,"I018", -1.0761,   0.0835,-2.8008, idrotm[339], "ONLY");
3302   gMC->Gspos("I021", 3,"I018", -1.0761,   0.0835,-1.0492, idrotm[338], "ONLY");
3303   gMC->Gspos("I021", 4,"I018",  1.0761,   0.0835,-2.8008, idrotm[337], "ONLY");
3304   gMC->Gspos("I021", 5,"I018",  1.0761,   0.0835,-1.0492, idrotm[340], "ONLY");
3305   gMC->Gspos("I021", 6,"I018", -1.0761,   0.0835, 0.8492, idrotm[339], "ONLY");
3306   gMC->Gspos("I021", 7,"I018", -1.0761,   0.0835, 2.6008, idrotm[338], "ONLY");
3307   gMC->Gspos("I021", 8,"I018",  1.0761,   0.0835, 0.8492, idrotm[337], "ONLY");
3308
3309   gMC->Gspos("I022", 1,"I018",  0.0,     -1.79,   3.55,   idrotm[312], "ONLY");
3310   gMC->Gspos("I022", 2,"I018",  0.0,     -1.79,  -0.1,    idrotm[312], "ONLY");
3311
3312   gMC->Gspos("I023", 1,"I018",  0.0,     -1.79,   1.725,  idrotm[341], "ONLY");
3313   gMC->Gspos("I023", 2,"I018",  0.0,     -1.79,  -1.925,  idrotm[341], "ONLY");
3314
3315   gMC->Gspos("I033", 1,"I018",  1.8,     -1.75,   1.35,   0,           "MANY");
3316   gMC->Gspos("I033", 2,"I018", -1.8,     -1.75,  -2.65,   idrotm[345], "MANY");
3317   gMC->Gspos("I033", 3,"I018", -1.8,     -1.75,   1.35,   idrotm[345], "MANY");
3318   gMC->Gspos("I033", 4,"I018",  1.8,     -1.75,  -2.65,   0,           "MANY");
3319
3320   gMC->Gspos("I034", 1,"I018",  1.6,     -1.775,  1.35,   idrotm[312], "ONLY");
3321   gMC->Gspos("I034", 2,"I018", -1.6,     -1.775, -2.65,   idrotm[348], "ONLY");
3322   gMC->Gspos("I034", 3,"I018", -1.6,     -1.775,  1.35,   idrotm[348], "ONLY");
3323   gMC->Gspos("I034", 4,"I018",  1.6,     -1.775, -2.65,   idrotm[312], "ONLY");
3324
3325   gMC->Gspos("I035", 1,"I018",  1.7,     -0.55, I018dits[2]-I035dits[2], 0, "MANY");
3326   gMC->Gspos("I035", 2,"I018", -1.7,     -0.55, I018dits[2]-I035dits[2], 0, "MANY");
3327
3328   gMC->Gspos("I036", 1,"I018",  0.3087,   1.7191, 3.56,   idrotm[346], "ONLY");
3329   gMC->Gspos("I036", 2,"I018",  0.3087,   1.7191,-0.11,   idrotm[346], "ONLY");
3330   gMC->Gspos("I036", 3,"I018", -0.3087,   1.7191,-0.11,   idrotm[347], "ONLY");
3331   gMC->Gspos("I036", 4,"I018", -0.3087,   1.7191, 3.56,   idrotm[347], "ONLY");
3332
3333   gMC->Gspos("I037", 1,"I018",  SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], 0 , "ONLY");
3334   gMC->Gspos("I037", 2,"I018", -SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], 0 , "ONLY");
3335
3336   gMC->Gspos("I038", 1,"I018",  SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], 0 , "ONLY");
3337   gMC->Gspos("I038", 2,"I018", -SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], 0 , "ONLY");
3338
3339   gMC->Gspos("I040", 1,"I018",  1.9204,  -0.7118, 0.0, idrotm[346],"ONLY");
3340   gMC->Gspos("I040", 2,"I018", -1.9204,  -0.7118, 0.0, idrotm[347],"ONLY");
3341   gMC->Gspos("I041", 1,"I018",  SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], idrotm[346], "ONLY");
3342   gMC->Gspos("I041", 2,"I018", -SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], idrotm[347], "ONLY");
3343
3344
3345   // -- build block of the SDD electronics (heat bridge, chips, hybrid, anode microcable)
3346
3347   xI050 = SDD_CoolPipe[0]+SDD_CoolPipe[1]*sin30+I050dits[1]/cos30+I041dits[1];
3348   yI050 = 0;
3349   xI039 = -SDD_CoolPipe[1]/cos30;
3350   yI039 = -I050dits[1]+I039dits[1];
3351   gMC->Gspos("I039", 1,"I050",  xI039, yI039, 0.0, 0, "ONLY");
3352   xI042 = xI039+I039dits[0]-xI042space-I042dits[0];
3353   yI042 = yI039+I039dits[1]+I042dits[1];
3354   xI043 = xI039-I039dits[0]+xI043space+I043dits[0];
3355   yI043 = yI039+I039dits[1]+I043dits[1];
3356   zChipSpace = I042dits[2];
3357   if (zChipSpace < I043dits[2]) {
3358     zChipSpace = I043dits[2];
3359   }
3360   zChipSpace = zChipSpace * 2;
3361   yI051space = (2*I039dits[2] - 4*zChipSpace)/5;
3362   zchip = -I039dits[2] + yI051space + zChipSpace/2.;
3363   for (ichip=0; ichip<4; ichip++) { 
3364     gMC->Gspos("I042", ichip+1, "I050", xI042, yI042, zchip, 0, "ONLY");
3365     gMC->Gspos("I043", ichip+1, "I050", xI043, yI043, zchip, 0, "ONLY");
3366     zchip += zChipSpace + yI051space;
3367   }
3368   xcap = 2*I039dits[0]/5.;
3369   yI051 = yI039+I039dits[1]+I051dits[1];
3370   zI051 = -I039dits[2] + yI051space/3.;
3371   icap = 1;
3372   for (ichip=0; ichip<5; ichip++) { 
3373     xI051 = xI039-I039dits[0]+xcap;
3374     gMC->Gspos("I051", icap++,"I050", xI051, yI051, zI051, 0, "ONLY");
3375     zI051 += yI051space/3.;
3376     gMC->Gspos("I051", icap++,"I050", xI051, yI051, zI051, 0, "ONLY");
3377     xI051 += xcap;
3378     gMC->Gspos("I051", icap++,"I050", xI051, yI051, zI051, 0, "ONLY");
3379     xI051 += xcap;
3380     gMC->Gspos("I051", icap++,"I050", xI051, yI051, zI051, 0, "ONLY");
3381     xI051 += xcap;
3382     gMC->Gspos("I051", icap++,"I050", xI051, yI051, zI051, 0, "ONLY");
3383     zI051 -= yI051space/3.;
3384     if (ichip == 0) {
3385       gMC->Gspos("I051", icap++,"I050", xI051, yI051, zI051, 0, "ONLY");
3386     }
3387     zI051 += zChipSpace + yI051space;
3388   }
3389   xI052 = -I050dits[0]+I052dits[0];
3390   yI052 = yI051+I051dits[1]+I052dits[1];
3391   gMC->Gspos("I052", 1,"I050", xI052, yI052, 0.0, 0, "ONLY");
3392   xI044 = I050dits[0]-I044dits[3];
3393   yI044 = yI052+I052dits[1]+I044dits[2];
3394   gMC->Gspos("I044", 1,"I050", xI044, yI044, 0.0, idrotm[301], "ONLY");
3395   gMC->Gspos("I050", 1,"I018",  xI050,  yI050,  0.0, idrotm[346],"ONLY");
3396   gMC->Gspos("I050", 2,"I018", -xI050,  yI050,  0.0, idrotm[347],"ONLY");
3397
3398
3399   // -- build block of the SDD ladder frame at the end ladders
3400
3401   gMC->Gspos("I021",12,"I024",  1.0761,   0.0836,-0.1242, idrotm[340], "ONLY");
3402   gMC->Gspos("I021",11,"I024", -1.0761,   0.0836,-0.1242, idrotm[338], "ONLY");
3403   gMC->Gspos("I021",13,"I024", -1.0761,   0.0836,-1.8758, idrotm[339], "ONLY");
3404   gMC->Gspos("I021",14,"I024",  1.0761,   0.0836,-1.8758, idrotm[337], "ONLY");
3405
3406   gMC->Gspos("I022", 3,"I024",  0.0,     -1.7899, 0.825,  idrotm[312], "ONLY");
3407
3408   gMC->Gspos("I023", 3,"I024",  0.0,     -1.7899,-1.0,    idrotm[341], "ONLY");
3409
3410   gMC->Gspos("I025", 1,"I024", -1.9,     -1.7349, 0.0,    idrotm[344], "ONLY");
3411   gMC->Gspos("I025", 2,"I024",  1.987,   -1.5842, 0.0,    idrotm[343], "ONLY");
3412
3413   gMC->Gspos("I026", 1,"I024", -1.9782,  -1.5689, 0.0,    idrotm[342], "ONLY");
3414   gMC->Gspos("I026", 2,"I024",  1.8824,  -1.7349, 0.0,    idrotm[344], "ONLY");
3415
3416   gMC->Gspos("I029", 1,"I024", -0.087,    1.7067, I029dits[2]-I024dits[2], idrotm[342], "ONLY");
3417
3418   gMC->Gspos("I030", 1,"I024",  0.0958,   1.6914, I030dits[2]-I024dits[2], idrotm[343], "ONLY");
3419
3420   gMC->Gspos("I031", 1,"I024",  SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], 0 ,"ONLY");
3421   gMC->Gspos("I031", 2,"I024", -SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], 0 ,"ONLY");
3422
3423   gMC->Gspos("I032", 1,"I024",  SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], 0 ,"ONLY");
3424   gMC->Gspos("I032", 2,"I024", -SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], 0 ,"ONLY");
3425