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