fix bugs add new features
[u/mrichter/AliRoot.git] / ITS / AliITSv11.cxx
1 /**************************************************************************
2  * Copyright(c) 2007-2009, 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 /* $Id: */
18
19
20 //========================================================================
21 //
22 //            Geometry of the Inner Tracking System
23 //           ---------------------------------------
24 //  This geometry is fully described in TGeo geometry (v11)
25 // 
26 // Ludovic Gaudichet  (gaudichet@to.infn.it)
27 // Mario Sitta (sitta@to.infn.it)
28 //
29 //========================================================================
30
31
32 // $Log$
33 // Revision 1.1  2011/06/10 14:48:24  masera
34 // First version from v11Hybrid to v11 (M. Sitta)
35 //
36
37
38 #include <TClonesArray.h>
39 #include <TGeoGlobalMagField.h>
40 #include <TGeoManager.h>
41 #include <TGeoMatrix.h>
42 #include <TGeoPhysicalNode.h>
43 #include <TGeoVolume.h>
44 #include <TGeoXtru.h>
45 #include <TLorentzVector.h>
46 #include <TString.h>
47 #include <TVirtualMC.h>
48
49 #include "AliITS.h"
50 #include "AliITSDetTypeSim.h"
51 #include "AliITShit.h"
52 #include "AliITSCalibrationSDD.h"
53 #include "AliITSsegmentationSDD.h"
54 #include "AliITSsegmentationSPD.h"
55 #include "AliITSsegmentationSSD.h"
56 #include "AliITSv11.h"
57 #include "AliLog.h"
58 #include "AliMC.h"
59 #include "AliMagF.h"
60 #include "AliRun.h"
61 #include "AliTrackReference.h"
62 #include "AliITSv11GeometrySPD.h"
63 #include "AliITSv11GeometrySDD.h"
64 #include "AliITSv11GeometrySSD.h"
65 #include "AliITSv11GeometrySupport.h"
66 #include "AliGeomManager.h"
67
68
69 ClassImp(AliITSv11)
70
71 //______________________________________________________________________
72 AliITSv11::AliITSv11():
73   fByThick(kTRUE),
74   fIDMother(0),
75   fInitGeom(kv11),
76   fSPDgeom(0),
77   fSDDgeom(0),
78   fSSDgeom(0),
79   fSupgeom(0)
80  {
81     //    Standard default constructor
82     // Inputs:
83     //   none.
84     // Outputs:
85     //   none.
86     // Return:
87     //   none.
88 }
89
90 //______________________________________________________________________
91 AliITSv11::AliITSv11(const char *title) 
92   : AliITS("ITS", title),
93     fByThick(kTRUE),
94     fIDMother(0),
95     fInitGeom(kv11),
96     fSPDgeom(0),
97     fSDDgeom(0),
98     fSSDgeom(0),
99     fSupgeom(0)
100 {
101     //    Standard constructor for the v11 geometry.
102     // Inputs:
103     //   const char * title  Arbitrary title
104     // Outputs:
105     //   none.
106     // Return:
107     //   none.
108   Int_t i;
109   
110   fSPDgeom = new AliITSv11GeometrySPD();
111   fSDDgeom = new AliITSv11GeometrySDD(0);
112   fSSDgeom = new AliITSv11GeometrySSD();
113   fSupgeom = new AliITSv11GeometrySupport();
114
115   fIdN = 6;
116   fIdName = new TString[fIdN];
117
118   fIdName[0] = fSPDgeom->GetSenstiveVolumeName1();
119   fIdName[1] = fSPDgeom->GetSenstiveVolumeName2();
120
121   fIdName[2] = fSDDgeom->GetSenstiveVolumeName3();
122   fIdName[3] = fSDDgeom->GetSenstiveVolumeName4();
123   
124   fIdName[4] = fSSDgeom->GetSenstiveVolumeName5();
125   fIdName[5] = fSSDgeom->GetSenstiveVolumeName6();
126
127   fIdSens    = new Int_t[fIdN];
128   for(i=0;i<fIdN;i++) fIdSens[i] = 0;
129
130   SetDensityServicesByThickness();
131   
132 }
133
134 //______________________________________________________________________
135 AliITSv11::AliITSv11(const char *name, const char *title) 
136   : AliITS("ITS", title),
137     fByThick(kTRUE),
138     fIDMother(0),
139     fInitGeom(kv11),
140     fSPDgeom(0),
141     fSDDgeom(0),
142     fSSDgeom(0),
143     fSupgeom(0)
144 {
145     //    Standard constructor for the v11 geometry.
146     // Inputs:
147     //   const char * name   Ignored, set to "ITS"
148     //   const char * title  Arbitrary title
149     // Outputs:
150     //   none.
151     // Return:
152     //   none.
153   Int_t i;
154   
155   fSPDgeom = new AliITSv11GeometrySPD();
156   fSDDgeom = new AliITSv11GeometrySDD(0);
157   fSSDgeom = new AliITSv11GeometrySSD();
158   fSupgeom = new AliITSv11GeometrySupport();
159
160   fIdN = 6;
161   fIdName = new TString[fIdN];
162
163   (void) name; // removes warning message
164
165   fIdName[0] = fSPDgeom->GetSenstiveVolumeName1();
166   fIdName[1] = fSPDgeom->GetSenstiveVolumeName2();
167
168   fIdName[2] = fSDDgeom->GetSenstiveVolumeName3();
169   fIdName[3] = fSDDgeom->GetSenstiveVolumeName4();
170
171   fIdName[4] = fSSDgeom->GetSenstiveVolumeName5();
172   fIdName[5] = fSSDgeom->GetSenstiveVolumeName6();
173
174   fIdSens    = new Int_t[fIdN];
175   for(i=0;i<fIdN;i++) fIdSens[i] = 0;
176
177   SetDensityServicesByThickness();
178   
179 }
180
181 //______________________________________________________________________
182 AliITSv11::~AliITSv11() {
183     //    Standard destructor
184     // Inputs:
185     //   none.
186     // Outputs:
187     //   none.
188     // Return:
189     //   none.
190   delete fSPDgeom;
191   delete fSDDgeom;
192   delete fSSDgeom;
193   delete fSupgeom;
194 }
195
196 //______________________________________________________________________
197 void AliITSv11::SetT2Lmatrix(Int_t uid, Double_t yShift, 
198                              Bool_t yFlip, Bool_t yRot180) const
199 {
200
201   //
202   // Creates the TGeo Local to Tracking transformation matrix
203   // and sends it to the corresponding TGeoPNEntry 
204   //
205   // This function is used in AddAlignableVolumes()
206
207   TGeoPNEntry *alignableEntry = gGeoManager->GetAlignableEntryByUID(uid);
208   TGeoHMatrix* globMatrix = alignableEntry->GetGlobalOrig();
209
210   Double_t *gtrans = globMatrix->GetTranslation(), rotMatrix[9];
211   memcpy(&rotMatrix[0], globMatrix->GetRotationMatrix(), 9*sizeof(Double_t));
212   Double_t al = TMath::ATan2(rotMatrix[1],rotMatrix[0]);
213   if (yRot180) {
214     al = TMath::ATan2(rotMatrix[1],-rotMatrix[0]);
215   }
216   Double_t xShift = gtrans[0]*TMath::Cos(al)+gtrans[1]*TMath::Sin(al);
217   Double_t zShift = -gtrans[2];
218
219   TGeoHMatrix *matLtoT = new TGeoHMatrix;
220   matLtoT->SetDx( xShift ); // translation
221   matLtoT->SetDy( yShift );
222   matLtoT->SetDz( zShift );
223   rotMatrix[0]= 0;  rotMatrix[1]= 1;  rotMatrix[2]= 0; // + rotation
224   rotMatrix[3]= 1;  rotMatrix[4]= 0;  rotMatrix[5]= 0;
225   rotMatrix[6]= 0;  rotMatrix[7]= 0;  rotMatrix[8]=-1;
226   if (yFlip) rotMatrix[3] = -1;  // flipping in y  (for SPD1)
227   if (yFlip) rotMatrix[1] = -1;  // flipping in y  (for SPD1)
228
229   if (yRot180) { // rotation of pi around the axis perpendicular to the wafer
230     if (yFlip) matLtoT->SetDx( -xShift ); // flipping in y  (for SPD1)
231     matLtoT->SetDy( -yShift );
232     matLtoT->SetDz( -zShift );
233     rotMatrix[8]=1;
234     rotMatrix[3] = -1;
235     if (yFlip) rotMatrix[3] = 1;  // flipping in y  (for SPD1)
236   }
237
238   TGeoRotation rot;
239   rot.SetMatrix(rotMatrix);
240   matLtoT->MultiplyLeft(&rot);
241   TGeoHMatrix *matTtoL = new TGeoHMatrix(matLtoT->Inverse());
242   delete matLtoT;
243   alignableEntry->SetMatrix(matTtoL);
244 }
245
246 //______________________________________________________________________
247 void AliITSv11::AddAlignableVolumes() const
248 {
249   // Creates entries for alignable volumes associating the symbolic volume
250   // name with the corresponding volume path.
251   // 
252   // Records in the alignable entries the transformation matrices converting
253   // TGeo local coordinates (in the RS of alignable volumes) to the tracking
254   // system
255   // For this, this function has to run before the misalignment because we
256   // are using the ideal positions in the AliITSgeom object.
257   // Inputs:
258   //   none.
259   // Outputs:
260   //   none.
261   // Return:
262   //   none.
263
264   AliInfo("Add ITS alignable volumes");
265
266   if (!gGeoManager) {
267     AliFatal("TGeoManager doesn't exist !");
268     return;
269   }
270
271   AliGeomManager::ELayerID layerId;
272   Int_t modUID, modnum;
273
274   if( !gGeoManager->SetAlignableEntry("ITS","ALIC_1/ITSV_1") )
275     AliFatal(Form("Unable to set alignable entry ! %s :: %s",
276                   "ITS","ALIC_1/ITSV_1"));    
277
278   TString strSPD = "ITS/SPD";
279   TString strSDD = "ITS/SDD";
280   TString strSSD = "ITS/SSD";
281   TString strStave = "/Stave";
282   TString strHalfStave = "/HalfStave";
283   TString strLadder = "/Ladder";
284   TString strSector = "/Sector";
285   TString strSensor = "/Sensor";
286   TString strEntryName1;
287   TString strEntryName2;
288   TString strEntryName3;
289   TString strEntryName4;
290
291   TString str0;
292   TString str1;
293   TString str2;
294
295   TString ladder;
296
297   //===== SPD layers =====
298   
299   str0 = "ALIC_1/ITSV_1/ITSSPD_1/ITSSPDCarbonFiberSectorV_";
300   str1 = "/ITSSPDSensitiveVirtualvolumeM0_1/ITSSPDlay1-Stave_";
301
302   TString str1Bis = "/ITSSPDhalf-Stave";
303   TString str1Tierce = "_1";
304
305   str2 = "/ITSSPDlay1-Ladder_";
306   
307   TString sector;
308   TString stave;
309   TString halfStave;
310   TString module;
311
312   layerId = AliGeomManager::kSPD1;
313   modnum = 0;
314     
315   for(Int_t cSect = 0; cSect<10; cSect++) {
316
317     sector = str0;
318     sector += cSect+1; // this is one full sector
319     strEntryName1 = strSPD;
320     strEntryName1 += 0;
321     strEntryName1 += strSector;
322     strEntryName1 += cSect;
323     if(!gGeoManager->SetAlignableEntry(strEntryName1.Data(),sector.Data()))
324       AliFatal(Form("New lay 1: Unable to set alignable entry 1! %s::%s",
325                strEntryName1.Data(),sector.Data()));
326
327     for(Int_t cStave=0; cStave<2; cStave++) {
328         
329       stave = sector;
330       stave += str1;
331       stave += cStave+1;
332       strEntryName2 = strEntryName1;
333       strEntryName2 += strStave;
334       strEntryName2 += cStave;
335
336       for(Int_t cHS=0; cHS<2; cHS++) {
337
338         halfStave = stave;
339         halfStave += str1Bis;
340         halfStave += cHS;
341         halfStave += str1Tierce;
342         strEntryName3 = strEntryName2;
343         strEntryName3 += strHalfStave;
344         strEntryName3 += cHS;
345
346         if(!gGeoManager->SetAlignableEntry(strEntryName3.Data(),
347                                            halfStave.Data()))
348           AliFatal(Form("New lay 1: Unable to set alignable entry 3! %s::%s",
349                         strEntryName3.Data(),halfStave.Data()));    
350
351         for(Int_t cLad=0; cLad<2; cLad++) {
352           
353           modUID = AliGeomManager::LayerToVolUID(layerId,modnum++);
354           module = halfStave;
355           module += str2;
356           module += cLad+cHS*2+1;
357           strEntryName4 = strEntryName3;
358           strEntryName4 += strLadder;
359           strEntryName4 += cLad+cHS*2;
360           if(!gGeoManager->SetAlignableEntry(strEntryName4.Data(),module.Data(),modUID))
361             AliFatal(Form("New lay 1: Unable to set alignable entry 4! %s::%s",
362                           strEntryName4.Data(),module.Data()));
363
364           SetT2Lmatrix(modUID, 0.0081, kTRUE, kTRUE);
365           // 0.0081 is the shift between the centers of alignable 
366           // and sensitive volumes. It is directly extracted from 
367           // the new SPD geometry
368         } // end for cLad
369       } // end for cHS
370     } // end for cStave
371   } // end for cSect
372
373   layerId = AliGeomManager::kSPD2;
374   modnum = 0;
375   str1 = "/ITSSPDSensitiveVirtualvolumeM0_1/ITSSPDlay2-Stave_";
376   str2 = "/ITSSPDlay2-Ladder_";
377
378   for(Int_t cSect = 0; cSect<10; cSect++) {
379
380     sector = str0;
381     sector += cSect+1; // this is one full sector
382     strEntryName1 = strSPD;
383     strEntryName1 += 1;
384     strEntryName1 += strSector;
385     strEntryName1 += cSect;
386       
387     for(Int_t cStave=0; cStave<4; cStave++) {
388         
389       stave = sector;
390       stave += str1;
391       stave += cStave+1;
392       strEntryName2 = strEntryName1;
393       strEntryName2 += strStave;
394       strEntryName2 += cStave;
395
396       for(Int_t cHS=0; cHS<2; cHS++) {
397
398         halfStave = stave;
399         halfStave += str1Bis;
400         halfStave += cHS;
401         halfStave += str1Tierce;
402         strEntryName3 = strEntryName2;
403         strEntryName3 += strHalfStave;
404         strEntryName3 += cHS;
405
406         if(!gGeoManager->SetAlignableEntry(strEntryName3.Data(),
407                                            halfStave.Data()))
408           AliFatal(Form("New lay 2: Unable to set alignable entry 3! %s::%s",
409                         strEntryName3.Data(),halfStave.Data()));    
410
411         for(Int_t cLad=0; cLad<2; cLad++) {
412
413           modUID = AliGeomManager::LayerToVolUID(layerId,modnum++);
414           module = halfStave;
415           module += str2;
416           module += cLad+cHS*2 +1;
417           strEntryName4 = strEntryName3;
418           strEntryName4 += strLadder;
419           strEntryName4 += cLad+cHS*2;
420           if(!gGeoManager->SetAlignableEntry(strEntryName4.Data(),module.Data(),modUID))
421             AliFatal(Form("New lay 2: Unable to set alignable entry 4! %s::%s",
422                           strEntryName4.Data(),module.Data()));
423
424           SetT2Lmatrix(modUID, -0.0081, kFALSE);
425         } // end for cLad
426       } // end for cHS
427     } // end for cStave
428   } // cSect
429
430   //===== SDD layers =====
431
432   layerId = AliGeomManager::kSDD1;
433   modnum = 0;
434
435   str0 = "/ALIC_1/ITSV_1/ITSsddLayer3_1/ITSsddLadd_"; // SDD layer1
436   str1 = "/ITSsddSensor3_";
437
438   TString sensor;
439
440   for(Int_t c1 = 0; c1<14; c1++) {
441
442     ladder = str0;
443     ladder += c1; // the set of wafers from one ladder
444     strEntryName1 = strSDD;
445     strEntryName1 += 2;
446     strEntryName1 +=strLadder;
447     strEntryName1 += c1;
448     //printf("%s    ==    %s\n",strEntryName1.Data(),ladder.Data());
449     if(!gGeoManager->SetAlignableEntry(strEntryName1.Data(),ladder.Data()))
450       AliFatal(Form("Unable to set alignable entry 1! %s :: %s",
451                     strEntryName1.Data(),ladder.Data()));
452
453     for(Int_t c2 =0; c2<6; c2++) {
454
455       modUID = AliGeomManager::LayerToVolUID(layerId,modnum++);
456       sensor = ladder;
457       sensor += str1;
458       sensor += c2;
459       strEntryName2 = strEntryName1;
460       strEntryName2 += strSensor;
461       strEntryName2 += c2;
462       //printf("%s    ==    %s\n",strEntryName2.Data(),wafer.Data());
463       if(!gGeoManager->SetAlignableEntry(strEntryName2.Data(),sensor.Data(),modUID))
464         AliFatal(Form("Unable to set alignable entry 2! %s :: %s",
465                       strEntryName2.Data(),sensor.Data()));
466
467       SetT2Lmatrix(modUID, 0, kFALSE, c2>=3);
468     }
469   }
470
471   layerId = AliGeomManager::kSDD2;
472   modnum = 0;
473   str0 = "/ALIC_1/ITSV_1/ITSsddLayer4_1/ITSsddLadd_"; // SDD layer2
474   str1 = "/ITSsddSensor4_";
475     
476   for(Int_t c1 = 0; c1<22; c1++) {
477
478     ladder = str0;
479     ladder += c1; // the set of wafers from one ladder
480     strEntryName1 = strSDD;
481     strEntryName1 += 3;
482     strEntryName1 += strLadder;
483     strEntryName1 += c1;
484     //printf("%s    ==    %s\n",strEntryName1.Data(),ladder.Data());
485     if(!gGeoManager->SetAlignableEntry(strEntryName1.Data(),ladder.Data()))
486       AliFatal(Form("Unable to set alignable entry 1! %s :: %s",
487                     strEntryName1.Data(),ladder.Data()));
488
489     for(Int_t c2 =0; c2<8; c2++) {
490
491       modUID = AliGeomManager::LayerToVolUID(layerId,modnum++);
492       sensor = ladder;
493       sensor += str1;
494       sensor += c2;
495       strEntryName2 = strEntryName1;
496       strEntryName2 += strSensor;
497       strEntryName2 += c2;
498       //printf("%s    ==    %s\n",strEntryName2.Data(),wafer.Data());
499       if(!gGeoManager->SetAlignableEntry(strEntryName2.Data(),sensor.Data(),modUID))
500         AliFatal(Form("Unable to set alignable entry 2! %s :: %s",
501                       strEntryName2.Data(),sensor.Data()));
502
503       SetT2Lmatrix(modUID, 0, kFALSE, c2>=4);
504     }
505   }
506
507   //===== SSD layers =====
508
509   layerId = AliGeomManager::kSSD1;
510   modnum = 0;
511
512   str0 = "/ALIC_1/ITSV_1/ITSssdLayer5_1/ITSssdLay5Ladd_";//SSD layer1
513   str1 = "/ITSssdSensor5_";
514   str2 = "";
515
516   TString wafer;
517
518   for(Int_t c1 = 0; c1<34; c1++) {
519
520     ladder = str0;
521     ladder += c1; // the set of wafers from one ladder
522     strEntryName1 = strSSD;
523     strEntryName1 += 4;
524     strEntryName1 += strLadder;
525     strEntryName1 += c1;
526     //printf("%s    ==    %s\n",strEntryName1.Data(),ladder.Data());
527     if(!gGeoManager->SetAlignableEntry(strEntryName1.Data(),ladder.Data()))
528       AliFatal(Form("Unable to set alignable entry 1! %s :: %s",
529                     strEntryName1.Data(),ladder.Data()));
530
531     for(Int_t c2 =0; c2<22; c2++) {
532
533       modUID = AliGeomManager::LayerToVolUID(layerId,modnum++);
534       wafer = ladder;
535       wafer += str1;
536       wafer += c2;
537       //wafer += str2;    // one wafer
538       strEntryName2 = strEntryName1;
539       strEntryName2 += strSensor;
540       strEntryName2 += c2;
541       //printf("%s    ==    %s\n",strEntryName2.Data(),wafer.Data());
542       if(!gGeoManager->SetAlignableEntry(strEntryName2.Data(),wafer.Data(),modUID))
543         AliFatal(Form("Unable to set alignable entry 2! %s :: %s",
544                       strEntryName2.Data(),wafer.Data()));
545
546       SetT2Lmatrix(modUID, 0, kFALSE, kFALSE);
547     }
548   }
549
550   layerId = AliGeomManager::kSSD2;
551   modnum = 0;
552   str0 = "/ALIC_1/ITSV_1/ITSssdLayer6_1/ITSssdLay6Ladd_"; // SSD layer2
553   str1 = "/ITSssdSensor6_";
554   str2 = "";
555   
556   for(Int_t c1 = 0; c1<38; c1++) {
557
558     ladder = str0;
559     ladder += c1; // the set of wafers from one ladder
560     strEntryName1 = strSSD;
561     strEntryName1 += 5;
562     strEntryName1 += strLadder;
563     strEntryName1 += c1;
564     //printf("%s    ==    %s\n",strEntryName1.Data(),ladder.Data());
565     if(!gGeoManager->SetAlignableEntry(strEntryName1.Data(),ladder.Data()))
566       AliFatal(Form("Unable to set alignable entry 1! %s :: %s",
567                     strEntryName1.Data(),ladder.Data()));
568
569     for(Int_t c2 =0; c2<25; c2++) {
570
571       modUID = AliGeomManager::LayerToVolUID(layerId,modnum++);
572       wafer = ladder;
573       wafer += str1;
574       wafer += c2;
575       //wafer += str2;    // one wafer
576       strEntryName2 = strEntryName1;
577       strEntryName2 += strSensor;
578       strEntryName2 += c2;
579       //printf("%s    ==    %s\n",strEntryName2.Data(),wafer.Data());
580       if(!gGeoManager->SetAlignableEntry(strEntryName2.Data(),wafer.Data(),modUID))
581         AliFatal(Form("Unable to set alignable entry 2! %s :: %s",
582                       strEntryName2.Data(),wafer.Data()));
583
584       SetT2Lmatrix(modUID, 0, kFALSE, kFALSE);
585     }
586   }
587     
588 }
589
590 //______________________________________________________________________
591 void AliITSv11::CreateGeometry()
592 {
593   // Create the geometry and insert it in ALIC
594
595   TGeoManager *geoManager = gGeoManager;
596
597   TGeoVolume *vALIC = geoManager->GetVolume("ALIC");
598
599   // This part is really ugly, needs to be redone
600   new TGeoVolumeAssembly("ITSV");
601   new TGeoVolumeAssembly("ITSS");
602
603   TGeoVolume *vITSV = geoManager->GetVolume("ITSV");
604   TGeoVolume *vITSS = geoManager->GetVolume("ITSS");
605
606   vALIC->AddNode(vITSV, 1, 0);
607   vALIC->AddNode(vITSS, 1, 0);
608
609   //
610   const Int_t kLength=100;
611   Char_t vstrng[kLength];
612   if(fInitGeom.WriteVersionString(vstrng,kLength,(AliITSVersion_t)IsVersion())){
613     vITSV->SetTitle(vstrng);
614     vITSS->SetTitle(vstrng);
615   }
616
617   fSPDgeom->SPDSector(vITSV);
618
619   fSDDgeom->Layer3(vITSV);
620   fSDDgeom->Layer4(vITSV);
621   fSDDgeom->ForwardLayer3(vITSV);
622   fSDDgeom->ForwardLayer4(vITSV);
623
624   fSSDgeom->Layer5(vITSV);
625   fSSDgeom->Layer6(vITSV);
626   fSSDgeom->LadderSupportLayer5(vITSV);
627   fSSDgeom->LadderSupportLayer6(vITSV);
628   fSSDgeom->EndCapSupportSystemLayer6(vITSV);
629   fSSDgeom->EndCapSupportSystemLayer5(vITSV);
630
631   fSupgeom->SPDCone(vITSV);
632   fSupgeom->SDDCone(vITSV);
633   fSupgeom->SSDCone(vITSV);
634
635   fSDDgeom->SDDCables(vITSV);
636   fSSDgeom->SSDCables(vITSV);
637   fSupgeom->ServicesCableSupport(vITSS);
638
639   fSupgeom->ITSTPCSupports(vITSS);
640
641 }
642
643 //______________________________________________________________________
644 void AliITSv11::CreateMaterials()
645 {
646     // Create ITS materials
647     //     This function defines the default materials used in the Geant
648     // Monte Carlo simulations for the geometries AliITSv1, AliITSv3,
649     // AliITSv11.
650     // In general it is automatically replaced by
651     // the CreateMaterials routine defined in AliITSv?. Should the function
652     // CreateMaterials not exist for the geometry version you are using this
653     // one is used. See the definition found in AliITSv5 or the other routine
654     // for a complete definition.
655     // Inputs:
656     //   none.
657     // Outputs:
658     //   none.
659     // Return:
660     //   none.
661
662     Int_t   ifield = ((AliMagF*)TGeoGlobalMagField::Instance()->GetField())->Integ();
663     Float_t fieldm = ((AliMagF*)TGeoGlobalMagField::Instance()->GetField())->Max();
664
665     Float_t tmaxfd = 0.1; // 1.0; // Degree
666     Float_t stemax = 1.0; // cm
667     Float_t deemax = 0.1; // 30.0; // Fraction of particle's energy 0<deemax<=1
668     Float_t epsil  = 1.0E-4; // 1.0; // cm
669     Float_t stmin  = 0.0; // cm "Default value used"
670
671     Float_t tmaxfdSi = 0.1; // .10000E+01; // Degree
672     Float_t stemaxSi = 0.0075; //  .10000E+01; // cm
673     Float_t deemaxSi = 0.1; // 0.30000E-02; // Fraction of particle's energy 0<deemax<=1
674     Float_t epsilSi  = 1.0E-4;// .10000E+01;
675     Float_t stminSi  = 0.0; // cm "Default value used"
676
677     Float_t tmaxfdAir = 0.1; // .10000E+01; // Degree
678     Float_t stemaxAir = .10000E+01; // cm
679     Float_t deemaxAir = 0.1; // 0.30000E-02; // Fraction of particle's energy 0<deemax<=1
680     Float_t epsilAir  = 1.0E-4;// .10000E+01;
681     Float_t stminAir  = 0.0; // cm "Default value used"
682
683     Float_t tmaxfdServ = 1.0; // 10.0; // Degree
684     Float_t stemaxServ = 1.0; // 0.01; // cm
685     Float_t deemaxServ = 0.5; // 0.1; // Fraction of particle's energy 0<deemax<=1
686     Float_t epsilServ  = 1.0E-3; // 0.003; // cm
687     Float_t stminServ  = 0.0; //0.003; // cm "Default value used"
688
689     // Freon PerFluorobuthane C4F10 see 
690     // http://st-support-cooling-electronics.web.cern.ch/
691     //        st-support-cooling-electronics/default.htm
692     Float_t afre[2]  = { 12.011,18.9984032 };
693     Float_t zfre[2]  = { 6., 9. };
694     Float_t wfre[2]  = { 4.,10. };
695     Float_t densfre  = 1.52;
696
697
698     //CM55J
699
700     Float_t aCM55J[4]={12.0107,14.0067,15.9994,1.00794};
701     Float_t zCM55J[4]={6.,7.,8.,1.};
702     Float_t wCM55J[4]={0.908508078,0.010387573,0.055957585,0.025146765};
703     Float_t dCM55J = 1.8;
704
705     //ALCM55J
706
707     Float_t aALCM55J[5]={12.0107,14.0067,15.9994,1.00794,26.981538};
708     Float_t zALCM55J[5]={6.,7.,8.,1.,13.};
709     Float_t wALCM55J[5]={0.817657902,0.0093488157,0.0503618265,0.0226320885,0.1};
710     Float_t dALCM55J = 1.9866;
711
712     //Si Chips
713
714     Float_t aSICHIP[6]={12.0107,14.0067,15.9994,1.00794,28.0855,107.8682};
715     Float_t zSICHIP[6]={6.,7.,8.,1.,14., 47.};
716     Float_t wSICHIP[6]={0.039730642,0.001396798,0.01169634,0.004367771,0.844665,0.09814344903};
717     Float_t dSICHIP = 2.36436;
718
719     //Inox
720     
721     Float_t aINOX[9]={12.0107,54.9380, 28.0855,30.9738,32.066,58.6928,51.9961,95.94,55.845};
722     Float_t zINOX[9]={6.,25.,14.,15.,16., 28.,24.,42.,26.};
723     Float_t wINOX[9]={0.0003,0.02,0.01,0.00045,0.0003,0.12,0.17,0.025,0.654};
724     Float_t dINOX = 8.03;
725
726     //AISI 304 L (from F.Tosello's web page - M.S. 18 Oct 10)
727     
728     Float_t a304L[8]={12.0107,54.9380, 28.0855,30.9738,32.066,58.6928,51.9961,55.845};
729     Float_t z304L[8]={6.,25.,14.,15.,16., 28.,24.,26.};
730     Float_t w304L[8]={0.0003,0.02,0.01,0.00045,0.003,0.0925,0.19,0.6865};
731     Float_t d304L = 8.03;
732
733     //SDD HV microcable
734
735     Float_t aHVm[5]={12.0107,1.00794,14.0067,15.9994,26.981538};
736     Float_t zHVm[5]={6.,1.,7.,8.,13.};
737     Float_t wHVm[5]={0.520088819984,0.01983871336,0.0551367996,0.157399667056, 0.247536};
738     Float_t dHVm = 1.6087;
739
740     //SDD LV+signal cable
741
742     Float_t aLVm[5]={12.0107,1.00794,14.0067,15.9994,26.981538};
743     Float_t zLVm[5]={6.,1.,7.,8.,13.};
744     Float_t wLVm[5]={0.21722436468,0.0082859922,0.023028867,0.06574077612, 0.68572};
745     Float_t dLVm = 2.1035;
746
747     //SDD hybrid microcab
748
749     Float_t aHLVm[5]={12.0107,1.00794,14.0067,15.9994,26.981538};
750     Float_t zHLVm[5]={6.,1.,7.,8.,13.};
751     Float_t wHLVm[5]={0.24281879711,0.00926228815,0.02574224025,0.07348667449, 0.64869};
752     Float_t dHLVm = 2.0502;
753
754     //SDD anode microcab
755
756     Float_t aALVm[5]={12.0107,1.00794,14.0067,15.9994,26.981538};
757     Float_t zALVm[5]={6.,1.,7.,8.,13.};
758     Float_t wALVm[5]={0.392653705471,0.0128595919215,0.041626868025,0.118832707289, 0.431909};
759     Float_t dALVm = 2.0502;
760
761     //X7R capacitors - updated from F.Tosello's web page - M.S. 18 Oct 10
762
763     Float_t aX7R[6]={137.327,47.867,15.9994,58.6928,63.5460,118.710};
764     Float_t zX7R[6]={56.,22.,8.,28.,29.,50.};
765     Float_t wX7R[6]={0.524732,0.176736,0.179282,0.079750,0.019750,0.019750};
766     Float_t dX7R = 6.07914;
767
768     //X7R weld, i.e. Sn 60% Pb 40% (from F.Tosello's web page - M.S. 15 Oct 10)
769
770     Float_t aX7Rweld[2]={118.71 , 207.20};
771     Float_t zX7Rweld[2]={ 50.   ,  82.  };
772     Float_t wX7Rweld[2]={  0.60 ,   0.40};
773     Float_t dX7Rweld   = 8.52358;
774
775     // AIR
776
777     Float_t aAir[4]={12.0107,14.0067,15.9994,39.948};
778     Float_t zAir[4]={6.,7.,8.,18.};
779     Float_t wAir[4]={0.000124,0.755267,0.231781,0.012827};
780     Float_t dAir = 1.20479E-3;
781
782     // Water
783
784     Float_t aWater[2]={1.00794,15.9994};
785     Float_t zWater[2]={1.,8.};
786     Float_t wWater[2]={0.111894,0.888106};
787     Float_t dWater   = 1.0;
788
789     // CERAMICS
790   //     94.4% Al2O3 , 2.8% SiO2 , 2.3% MnO , 0.5% Cr2O3
791     Float_t acer[5]  = { 26.981539,15.9994,28.0855,54.93805,51.9961 };
792     Float_t zcer[5]  = {       13.,     8.,    14.,     25.,    24. };
793     Float_t wcer[5]  = {.4443408,.5213375,.0130872,.0178135,.003421};
794     Float_t denscer  = 3.6;
795
796     //G10FR4
797
798     Float_t zG10FR4[14] = {14.00,       20.00,  13.00,  12.00,  5.00,   22.00,  11.00,  19.00,  26.00,  9.00,   8.00,   6.00,   7.00,   1.00};
799     Float_t aG10FR4[14] = {28.0855000,40.0780000,26.9815380,24.3050000,10.8110000,47.8670000,22.9897700,39.0983000,55.8450000,18.9984000,15.9994000,12.0107000,14.0067000,1.0079400};
800     Float_t wG10FR4[14] = {0.15144894,0.08147477,0.04128158,0.00904554,0.01397570,0.00287685,0.00445114,0.00498089,0.00209828,0.00420000,0.36043788,0.27529426,0.01415852,0.03427566};
801     Float_t densG10FR4= 1.8;
802     
803      //--- EPOXY  --- C18 H19 O3
804       Float_t aEpoxy[3] = {15.9994, 1.00794, 12.0107} ; 
805       Float_t zEpoxy[3] = {     8.,      1.,      6.} ; 
806       Float_t wEpoxy[3] = {     3.,     19.,     18.} ; 
807       Float_t dEpoxy = 1.8 ;
808
809       // rohacell: C9 H13 N1 O2
810     Float_t arohac[4] = {12.01,  1.01, 14.010, 16.};
811     Float_t zrohac[4] = { 6.,    1.,    7.,     8.};
812     Float_t wrohac[4] = { 14.,   10.,    2.,     6.};
813     Float_t drohac    = 0.058;
814
815     // If he/she means stainless steel (inox) + Aluminium and Zeff=15.3383 then
816 //
817 // %Al=81.6164 %inox=100-%Al
818
819     Float_t aInAl[5] = {27., 55.847,51.9961,58.6934,28.0855 };
820     Float_t zInAl[5] = {13., 26.,24.,28.,14. };
821     Float_t wInAl[5] = {.816164, .131443,.0330906,.0183836,.000919182};
822     Float_t dInAl    = 3.075;
823
824     // Aluminum alloy with 12% Copper - 21 Oct 10
825
826     Float_t aAlCu12[2] = {26.9815, 63.546};
827     Float_t zAlCu12[2] = {13.    , 29.   };
828     Float_t wAlCu12[2] = { 0.88  ,  0.12 };
829     Float_t dAlCu12    = 2.96;
830
831     // Kapton
832
833     Float_t aKapton[4]={1.00794,12.0107, 14.010,15.9994};
834     Float_t zKapton[4]={1.,6.,7.,8.};
835     Float_t wKapton[4]={0.026362,0.69113,0.07327,0.209235};
836     Float_t dKapton   = 1.42;
837     
838     // Kapton + Cu (for Pixel Bus)
839
840     Float_t aKaptonCu[5]={1.00794, 12.0107, 14.010, 15.9994, 63.5460};
841     Float_t zKaptonCu[5]={1., 6., 7., 8., 29.};
842     Float_t wKaptonCuBus[5];
843     
844     // Kapton + Cu (for Pixel MCM)
845
846     Float_t wKaptonCuMCM[5];
847     
848     // Kapton + Cu (mix of two above)
849
850     Float_t wKaptonCuMix[5];
851
852     //SDD ruby sph.
853     Float_t aAlOxide[2]  = { 26.981539,15.9994};
854     Float_t zAlOxide[2]  = {       13.,     8.};
855     Float_t wAlOxide[2]  = {0.4707, 0.5293};
856     Float_t dAlOxide     = 3.97;
857
858     // Silica for optical fibers: Si O2
859     Float_t aoptfib[2] = { 28.0855, 15.9994};
860     Float_t zoptfib[2] = { 14.,      8.    };
861     Float_t woptfib[2] = {  1.,      2.    };
862     Float_t doptfib    = 2.55;
863
864     // Tetrafluorethylene-Perfluorpropylene (FEP) - 08 Mar 10
865     Float_t aFEP[2] = { 12.0107, 18.9984};
866     Float_t zFEP[2] = {  6.    ,  9.    };
867     Float_t wFEP[2] = {  1.    ,  2.    };
868     Float_t dFEP    = 2.15;
869
870     // PVC (C2H3Cl)n - 08 Jul 10
871     Float_t aPVC[3] = { 12.0107, 1.00794, 35.4527};
872     Float_t zPVC[3] = {  6.    , 1.     , 35.   };
873     Float_t wPVC[3] = {  2.    , 3.     ,  1.   };
874     Float_t dPVC    = 1.3;
875
876     // PBT (Polybutylene terephthalate = C12-H12-O4) - 01 Sep 10
877     Float_t aPBT[3] = { 12.0107, 1.00794, 15.9994};
878     Float_t zPBT[3] = {  6.    , 1.     ,  8.   };
879     Float_t wPBT[3] = { 12.    ,12.     ,  4.   };
880     Float_t dPBT    = 1.31;
881
882     // POLYAX (POLYAX = C37-H24-O6-N2) - 03 Sep 10
883     Float_t aPOLYAX[4] = { 12.0107, 1.00794, 15.9994, 14.00674};
884     Float_t zPOLYAX[4] = {  6.    , 1.     ,  8.    ,  7.     };
885     Float_t wPOLYAX[4] = { 37.    ,24.     ,  6.    ,  2.     };
886     Float_t dPOLYAX    = 1.27;
887
888     // PPS (PPS = C6-H4-S) - 05 Sep 10
889     Float_t aPPS[3] = { 12.0107, 1.00794, 32.066};
890     Float_t zPPS[3] = {  6.    , 1.     , 16.   };
891     Float_t wPPS[3] = {  6.    , 4.     ,  1.   };
892     Float_t dPPS    = 1.35;
893
894     // Megolon (Polyolefin = (C-H2)n) - 20 Oct 10
895     Float_t aMegolon[2] = { 12.0107, 1.00794};
896     Float_t zMegolon[2] = {  6.    , 1.     };
897     Float_t wMegolon[2] = {  1.    , 2.     };
898     Float_t dMegolon    = 1.51; // Mean of various types
899
900     // Standard glass (from glassproperties.com/glasses - M.S. 21 Oct 10)
901     Float_t aStdGlass[7] = {15.9994  ,28.0855  ,22.98977 ,40.078   ,
902                             24.305   ,26.981539,39.0983  };
903     Float_t zStdGlass[7] = { 8.      ,14.      ,11.      ,20.      ,
904                             12.      ,13.      ,19.      };
905     Float_t wStdGlass[7] = { 0.468377, 0.348239, 0.096441, 0.071469,
906                              0.006030, 0.005293, 0.004151};
907     Float_t dStdGlass    = 2.53;
908
909     // Glass Fiber (from F.Tosello's web page - M.S. 15 Oct 10)
910     Float_t aGlass[11] = {15.9994  ,28.0855  ,40.078   ,26.981539,10.811   ,
911                 24.305   ,39.0983  ,22.98977 ,18.9984  ,47.867   ,55.845};
912     Float_t zGlass[11] = { 8.      ,14.      ,20       ,13       , 5       ,
913                 12.      ,19       ,11       , 9       ,22       ,26    };
914     Float_t wGlass[11] = { 0.473610, 0.252415, 0.135791, 0.068803, 0.023293,
915                  0.015076, 0.008301, 0.007419, 0.007000, 0.004795, 0.003497};
916     Float_t dGlass = 2.61;
917
918     // Ryton R-4 04 (from F.Tosello's web page - M.S. 15 Oct 10)
919     Float_t aRyton[14] = {15.9994  ,28.0855  ,40.078   ,26.981539,10.811   ,
920                           24.305   ,39.0983  ,22.98977 ,18.9984  ,47.867   ,
921                           55.845   ,12.0107  , 1.00794 ,32.066   };
922     Float_t zRyton[14] = { 8.      ,14.      ,20.      ,13.      , 5.      ,
923                           12.      ,19.      ,11.      , 9.      ,22.      ,
924                           26.      , 6.      , 1.      ,16.      };
925     Float_t wRyton[14] = { 0.189445, 0.100966, 0.054316, 0.027521, 0.009317,
926                            0.006030, 0.003320, 0.002968, 0.002800, 0.001918,
927                            0.001399, 0.399760, 0.022365, 0.177875};
928     Float_t dRyton = 1.65;
929
930     // Plexiglas (Poly(methyl methacrylate) (C5O2H8)n - M.S. 05 nov 10)
931     Float_t aPlexy[3] = { 12.0107, 15.9994,  1.00794};
932     Float_t zPlexy[3] = {  6.    , 8.     ,  1.   };
933     Float_t wPlexy[3] = {  5.    , 2.     ,  8.   };
934     Float_t dPlexy    = 1.18;
935
936     //SSD NiSn capacitor ends
937     Float_t aNiSn[2]  = { 56.6934,118.710};
938     Float_t zNiSn[2]  = {     28.,     50.};
939     Float_t wNiSn[2]  = {0.33, 0.67};
940     Float_t dNiSn     = wNiSn[0]*8.908 + wNiSn[1]*7.310;
941
942     // SPD cooling capillaries (Phynox)
943     Float_t aPhynox[5] = { 55.8450, 58.9332, 51.9961, 58.6934, 95.94 };
944     Float_t zPhynox[5] = { 26.    , 27.    , 24.    , 28.    , 42.   };
945     Float_t wPhynox[5] = { 0.17   , 0.40   , 0.20   , 0.16   , 0.07  };
946     Float_t dPhynox    = 8.3;
947
948     AliMaterial(1,"SI$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
949     AliMedium(1,"SI$",1,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
950
951     AliMaterial(2,"SPD SI CHIP$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
952     AliMedium(2,"SPD SI CHIP$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
953
954     AliMaterial(3,"SPD SI BUS$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
955     AliMedium(3,"SPD SI BUS$",3,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
956
957     AliMixture(4,"C (M55J)$",aCM55J,zCM55J,dCM55J,4,wCM55J);
958     AliMedium(4,"C (M55J)$",4,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
959
960     AliMixture(5,"AIR$",aAir,zAir,dAir,4,wAir);
961     AliMedium(5,"AIR$",5,0,ifield,fieldm,tmaxfdAir,stemaxAir,deemaxAir,epsilAir,stminAir);
962
963     AliMixture(6,"GEN AIR$",aAir,zAir,dAir,4,wAir);
964     AliMedium(6,"GEN AIR$",6,0,ifield,fieldm,tmaxfdAir,stemaxAir,deemaxAir,epsilAir,stminAir);
965
966     AliMixture(7,"SDD SI CHIP$",aSICHIP,zSICHIP,dSICHIP,6,wSICHIP);
967     AliMedium(7,"SDD SI CHIP$",7,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
968
969     AliMixture(8,"PHYNOX$",aPhynox,zPhynox,dPhynox,5,wPhynox);
970     AliMedium(8,"PHYNOX$",8,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
971
972     AliMixture(9,"SDD C (M55J)$",aCM55J,zCM55J,dCM55J,4,wCM55J);
973     AliMedium(9,"SDD C (M55J)$",9,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
974
975     AliMixture(10,"SDD AIR$",aAir,zAir,dAir,4,wAir);
976     AliMedium(10,"SDD AIR$",10,0,ifield,fieldm,tmaxfdAir,stemaxAir,deemaxAir,epsilAir,stminAir);
977
978     AliMaterial(11,"AL$",0.26982E+02,0.13000E+02,0.26989E+01,0.89000E+01,0.99900E+03);
979     AliMedium(11,"AL$",11,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
980
981     AliMixture(12, "Water$",aWater,zWater,dWater,2,wWater);
982     AliMedium(12,"WATER$",12,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
983
984     AliMixture(13,"Freon$",afre,zfre,densfre,-2,wfre);
985     AliMedium(13,"Freon$",13,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
986
987     AliMaterial(14,"COPPER$",0.63546E+02,0.29000E+02,0.89600E+01,0.14300E+01,0.99900E+03);
988     AliMedium(14,"COPPER$",14,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
989     AliMixture(15,"CERAMICS$",acer,zcer,denscer,5,wcer);
990     AliMedium(15,"CERAMICS$",15,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
991
992     AliMixture(20,"SSD C (M55J)$",aCM55J,zCM55J,dCM55J,4,wCM55J);
993     AliMedium(20,"SSD C (M55J)$",20,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
994
995     AliMixture(21,"SSD AIR$",aAir,zAir,dAir,4,wAir);
996     AliMedium(21,"SSD AIR$",21,0,ifield,fieldm,tmaxfdAir,stemaxAir,deemaxAir,epsilAir,stminAir);
997
998     AliMixture(25,"G10FR4$",aG10FR4,zG10FR4,densG10FR4,14,wG10FR4);
999     AliMedium(25,"G10FR4$",25,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1000
1001      AliMixture(26,"GEN C (M55J)$",aCM55J,zCM55J,dCM55J,4,wCM55J);
1002     AliMedium(26,"GEN C (M55J)$",26,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1003
1004     AliMixture(27,"GEN Air$",aAir,zAir,dAir,4,wAir);
1005     AliMedium(27,"GEN Air$",27,0,ifield,fieldm,tmaxfdAir,stemaxAir,deemaxAir,epsilAir,stminAir);
1006
1007     AliMixture(35,"PLEXYGLAS$",aPlexy,zPlexy,dPlexy,-3,wPlexy);
1008     AliMedium(35,"PLEXYGLAS$",35,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1009
1010     AliMixture(36,"STDGLASS$",aStdGlass,zStdGlass,dStdGlass,7,wStdGlass);
1011     AliMedium(36,"STDGLASS$",36,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1012
1013     AliMixture(37,"ALCU12$",aAlCu12,zAlCu12,dAlCu12,2,wAlCu12);
1014     AliMedium(37,"ALCU12$",37,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1015
1016     AliMixture(38,"MEGOLON$",aMegolon,zMegolon,dMegolon,-2,wMegolon);
1017     AliMedium(38,"MEGOLON$",38,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1018
1019     AliMixture(39,"RYTON$",aRyton,zRyton,dRyton,14,wRyton);
1020     AliMedium(39,"RYTON$",39,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1021
1022     AliMixture(40,"GLASS FIBER$",aGlass,zGlass,dGlass,11,wGlass);
1023     AliMedium(40,"GLASS FIBER$",40,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1024
1025     AliMixture(41,"AISI304L$",a304L,z304L,d304L,8,w304L);
1026     AliMedium(41,"AISI304L$",41,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1027
1028     AliMaterial(42,"NICKEL$",0.58693E+02,0.28000E+02,0.89080E+01,0.14200E+01,0.99900E+03);
1029     AliMedium(42,"NICKEL$",42,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1030                
1031     AliMixture(43,"SDD X7R weld$",aX7Rweld,zX7Rweld,dX7Rweld,2,wX7Rweld);
1032     AliMedium(43,"SDD X7R weld$",43,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1033
1034     AliMixture(44,"PPS$",aPPS,zPPS,dPPS,-3,wPPS);
1035     AliMedium(44,"PPS$",44,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1036
1037     AliMixture(45,"POLYAX$",aPOLYAX,zPOLYAX,dPOLYAX,-4,wPOLYAX);
1038     AliMedium(45,"POLYAX$",45,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1039
1040     AliMixture(46,"PBT$",aPBT,zPBT,dPBT,-3,wPBT);
1041     AliMedium(46,"PBT$",46,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1042
1043     AliMixture(47,"PVC$",aPVC,zPVC,dPVC,-3,wPVC);
1044     AliMedium(47,"PVC$",47,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1045
1046     Double_t cuFrac = 0.56;
1047     Double_t kFrac  = 1.0 - cuFrac;
1048     Double_t cuDens = 8.96;
1049     Float_t dKaptonCuBus   = cuFrac * cuDens + kFrac * dKapton;
1050     for (Int_t j=0; j<4; j++)
1051       wKaptonCuBus[j] = wKapton[j]*kFrac;
1052     wKaptonCuBus[4] = cuFrac;
1053     AliMixture(48, "SPD-BUS CU KAPTON", aKaptonCu, zKaptonCu, dKaptonCuBus, 5, wKaptonCuBus);
1054     AliMedium(48,"SPD-BUS CU KAPTON$",48,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1055     
1056     cuFrac = 0.5;
1057     kFrac  = 1.0 - cuFrac;
1058     Float_t dKaptonCuMCM   = cuFrac * cuDens + kFrac * dKapton;
1059     for (Int_t j=0; j<4; j++)
1060       wKaptonCuMCM[j] = wKapton[j]*kFrac;
1061     wKaptonCuMCM[4] = cuFrac;
1062     AliMixture(49, "SPD-MCM CU KAPTON", aKaptonCu, zKaptonCu, dKaptonCuMCM, 5, wKaptonCuMCM);
1063     AliMedium(49,"SPD-MCM CU KAPTON$",49,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1064     
1065     cuFrac = (0.56 + 0.5) / 2.0;
1066     kFrac  = 1.0 - cuFrac;
1067     Float_t dKaptonCuMix   = cuFrac * cuDens + kFrac * dKapton;
1068     for (Int_t j=0; j<4; j++)
1069       wKaptonCuMix[j] = wKapton[j]*kFrac;
1070     wKaptonCuMix[4] = cuFrac;
1071     AliMixture(50, "SPD-MIX CU KAPTON", aKaptonCu, zKaptonCu, dKaptonCuMix, 5, wKaptonCuMix);
1072     AliMedium(50,"SPD-MIX CU KAPTON$",50,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1073
1074     AliMaterial(51,"SPD SI$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
1075     AliMedium(51,"SPD SI$",51,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
1076
1077     AliMaterial(52,"SPD SI CHIP$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
1078     AliMedium(52,"SPD SI CHIP$",52,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
1079
1080     AliMaterial(53,"SPD SI BUS$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
1081     AliMedium(53,"SPD SI BUS$",53,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
1082
1083     AliMixture(54,"SPD C (M55J)$",aCM55J,zCM55J,dCM55J,4,wCM55J);
1084     AliMedium(54,"SPD C (M55J)$",54,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1085
1086     AliMixture(55,"SPD AIR$",aAir,zAir,dAir,4,wAir);
1087     AliMedium(55,"SPD AIR$",55,0,ifield,fieldm,tmaxfdAir,stemaxAir,deemaxAir,epsilAir,stminAir);
1088
1089     AliMixture(56, "SPD KAPTON(POLYCH2)", aKapton, zKapton, dKapton, 4, wKapton);
1090     AliMedium(56,"SPD KAPTON(POLYCH2)$",56,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1091
1092     // Gaseous Freon has same chemical composition but air density at 1.7 atm
1093     AliMixture(59,"GASEOUS FREON$",afre,zfre,1.7*dAir,-2,wfre);
1094     AliMedium(59,"GASEOUS FREON$",59,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1095
1096     AliMixture(61,"EPOXY$",aEpoxy,zEpoxy,dEpoxy,-3,wEpoxy);
1097     AliMedium(61,"EPOXY$",61,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1098
1099     AliMaterial(62,"SILICON$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
1100     AliMedium(62,"SILICON$",62,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
1101
1102     AliMixture(63, "KAPTONH(POLYCH2)", aKapton, zKapton, dKapton, 4, wKapton);
1103     AliMedium(63,"KAPTONH(POLYCH2)$",63,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1104
1105     AliMaterial(64,"ALUMINUM$",0.26982E+02,0.13000E+02,0.26989E+01,0.89000E+01,0.99900E+03);
1106     AliMedium(64,"ALUMINUM$",64,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1107
1108     AliMixture(65,"INOX$",aINOX,zINOX,dINOX,9,wINOX);
1109     AliMedium(65,"INOX$",65,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1110
1111     AliMixture(66,"NiSn$",aNiSn,zNiSn,dNiSn,2,wNiSn);
1112     AliMedium(66,"NiSn$",66,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1113
1114     AliMaterial(67,"Sn$", 118.710, 50., 7.310, 1.206, 999.);
1115     AliMedium(67,"Sn$",67,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1116
1117     AliMixture(68,"ROHACELL$",arohac,zrohac,drohac,-4,wrohac);
1118     AliMedium(68,"ROHACELL$",68,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1119
1120      AliMixture(69,"SDD C AL (M55J)$",aALCM55J,zALCM55J,dALCM55J,5,wALCM55J);
1121     AliMedium(69,"SDD C AL (M55J)$",69,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1122   
1123     AliMixture(70, "SDDKAPTON (POLYCH2)", aKapton, zKapton, dKapton, 4, wKapton);
1124     AliMedium(70,"SDDKAPTON (POLYCH2)$",70,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1125
1126      AliMaterial(71,"ITS SANDW A$",0.12011E+02,0.60000E+01,0.2115E+00,0.17479E+03,0.99900E+03);
1127     AliMedium(71,"ITS SANDW A$",71,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1128
1129     AliMaterial(72,"ITS SANDW B$",0.12011E+02,0.60000E+01,0.27000E+00,0.18956E+03,0.99900E+03);
1130     AliMedium(72,"ITS SANDW B$",72,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1131
1132     AliMaterial(73,"ITS SANDW C$",0.12011E+02,0.60000E+01,0.41000E+00,0.90868E+02,0.99900E+03);
1133     AliMedium(73,"ITS SANDW C$",73,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1134
1135     AliMaterial(74,"HEAT COND GLUE$",0.12011E+02,0.60000E+01,0.1930E+01,0.22100E+02,0.99900E+03);
1136     AliMedium(74,"HEAT COND GLUE$",74,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1137
1138     AliMaterial(75,"ELASTO SIL$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
1139     AliMedium(75,"ELASTO SIL$",75,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1140
1141     // SPD bus (data from Petra Riedler)
1142     Float_t aSPDbus[5] = {1.00794,12.0107,14.01,15.9994,26.982 };
1143     Float_t zSPDbus[5] = {1.,6.,7.,8.,13.};
1144     Float_t wSPDbus[5] = {0.023523,0.318053,0.009776,0.078057,0.570591};
1145     Float_t dSPDbus    = 2.128505;
1146
1147     //   AliMaterial(76,"SPDBUS(AL+KPT+EPOX)$",0.19509E+02,0.96502E+01,0.19060E+01,0.15413E+02,0.99900E+03);
1148     AliMixture(76,"SPDBUS(AL+KPT+EPOX)$",aSPDbus,zSPDbus,dSPDbus,5,wSPDbus);
1149     AliMedium(76,"SPDBUS(AL+KPT+EPOX)$",76,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1150                
1151     AliMixture(77,"SDD X7R capacitors$",aX7R,zX7R,dX7R,6,wX7R);
1152     AliMedium(77,"SDD X7R capacitors$",77,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1153
1154     AliMixture(78,"SDD ruby sph. Al2O3$",aAlOxide,zAlOxide,dAlOxide,2,wAlOxide);
1155     AliMedium(78,"SDD ruby sph. Al2O3$",78,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1156
1157     AliMaterial(79,"SDD SI insensitive$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
1158     AliMedium(79,"SDD SI insensitive$",79,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1159
1160     AliMixture(80,"SDD HV microcable$",aHVm,zHVm,dHVm,5,wHVm);
1161     AliMedium(80,"SDD HV microcable$",80,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1162
1163     AliMixture(81,"SDD LV+signal cable$",aLVm,zLVm,dLVm,5,wLVm);
1164     AliMedium(81,"SDD LV+signal cable$",81,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1165
1166     AliMixture(82,"SDD hybrid microcab$",aHLVm, zHLVm,dHLVm,5,wHLVm);
1167     AliMedium(82,"SDD hybrid microcab$",82,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1168
1169     AliMixture(83,"SDD anode microcab$",aALVm,zALVm,dALVm,5,wALVm);
1170     AliMedium(83,"SDD anode microcab$",83,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1171     Float_t aDSring[4]={12.0107,      1.00794,     14.0067,      15.9994};
1172     Float_t zDSring[4]={ 6.,          1.,           7.,           8.};
1173     Float_t wDSring[4]={ 0.854323888, 0.026408778,  0.023050265,  0.096217069};
1174     Float_t dDSring = 0.2875;
1175     AliMixture(84,"SDD/SSD rings$",aDSring,zDSring,dDSring,4,wDSring);
1176     AliMedium(84,"SDD/SSD rings$",84,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1177
1178     AliMixture(85,"inox/alum$",aInAl,zInAl,dInAl,5,wInAl);
1179     AliMedium(85,"inox/alum$",85,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1180
1181     // special media to take into account services in the SDD and SSD 
1182     // cones for the FMD
1183     //Begin_Html
1184     /*
1185       <A HREF="http://www.Physics.ohio-state.edu/~nilsen/ITS/ITS_MatBudget_4B.xls">
1186       </pre>
1187       <br clear=left>
1188       <font size=+2 color=blue>
1189       <p> The Exel spread sheet from which these density number come from.
1190       </font></A>
1191     */
1192     //End_Html
1193
1194     //  AliMaterial(86,"AIRFMDSDD$",0.14610E+02,0.73000E+01,0.12050E-02,0.30423E+05,0.99900E+03);
1195     Float_t aA[13],zZ[13],wW[13],den;
1196     // From Pierluigi Barberis calculations of 2SPD+1SDD October 2 2002.
1197     zZ[0] = 1.0; aA[0] = 1.00794; // Hydrogen
1198     zZ[1] = 6.0; aA[1] = 12.011; // Carbon
1199     zZ[2] = 7.0; aA[2] = 14.00674; // Nitrogen
1200     zZ[3] = 8.0; aA[3] = 15.9994; // Oxigen
1201     zZ[4] = 14.0; aA[4] = 28.0855; // Silicon
1202     zZ[5] = 24.0; aA[5] = 51.9961; //Cromium
1203     zZ[6] = 25.0; aA[6] = 54.938049; // Manganese
1204     zZ[7] = 26.0; aA[7] = 55.845; // Iron
1205     zZ[8] = 28.0; aA[8] = 58.6934; // Nickle
1206     zZ[9] = 29.0; aA[9] = 63.546; // Copper
1207     zZ[10] = 13.0; aA[10] = 26.981539; // Alulminum
1208     zZ[11] = 47.0; aA[11] = 107.8682; // Silver
1209     zZ[12] = 27.0; aA[12] = 58.9332; // Cobolt
1210     wW[0] = 0.019965;
1211     wW[1] = 0.340961;
1212     wW[2] = 0.041225;
1213     wW[3] = 0.200352;
1214     wW[4] = 0.000386;
1215     wW[5] = 0.001467;
1216     wW[6] = 0.000155;
1217     wW[7] = 0.005113;
1218     wW[8] = 0.000993;
1219     wW[9] = 0.381262;
1220     wW[10] = 0.008121;
1221     wW[11] = 0.000000;
1222     wW[12] = 0.000000;
1223     if(fByThick){// New values seeITS_MatBudget_4B.xls
1224         den = 1.5253276; // g/cm^3  Cell O370
1225     }else{
1226         den = 2.58423412; // g/cm^3 Cell L370
1227     } // end if fByThick
1228     //den = 6161.7/(3671.58978);//g/cm^3 Volume does not exclude holes
1229     AliMixture(86,"AIRFMDSDD$",aA,zZ,den,+11,wW);
1230     AliMedium(86,"AIRFMDSDD$",86,0,ifield,fieldm,tmaxfdAir,stemaxAir,
1231               deemaxAir,epsilAir,stminAir);
1232
1233     //AliMaterial(87,"AIRFMDSSD$",0.14610E+02,0.73000E+01,0.12050E-02,0.30423E+05,0.99900E+03);
1234     // From Pierluigi Barberis calculations of SSD October 2 2002.
1235     wW[0] = 0.019777;
1236     wW[1] = 0.325901;
1237     wW[2] = 0.031848;
1238     wW[3] = 0.147668;
1239     wW[4] = 0.030609;
1240     wW[5] = 0.013993;
1241     wW[6] = 0.001479;
1242     wW[7] = 0.048792;
1243     wW[8] = 0.009477;
1244     wW[9] = 0.350697;
1245     wW[10] = 0.014546;
1246     wW[11] = 0.005213;
1247     wW[12] = 0.000000;
1248     if(fByThick){// New values seeITS_MatBudget_4B.xls
1249         den = 1.2464275; // g/cm^3   Cell O403
1250     }else{
1251         den = 1.28134409; // g/cm^3  Cell L403
1252     } // end if fByThick
1253     //den = 7666.3/(9753.553259); // volume does not exclude holes
1254     AliMixture(87,"AIRFMDSSD$",aA,zZ,den,+12,wW); 
1255     AliMedium(87,"AIRFMDSSD$",87,0,ifield,fieldm,tmaxfdAir,stemaxAir,
1256               deemaxAir,epsilAir,stminAir);
1257
1258     //AliMaterial(88,"ITS SANDW CFMDSDD$",0.12011E+02,0.60000E+01,0.41000E+00,0.90868E+02,0.99900E+03);
1259     // From Pierluigi Barberis calculations of 1SDD+Carbon fiber October 2 2002
1260     wW[0] = 0.016302;
1261     wW[1] = 0.461870;
1262     wW[2] = 0.033662;
1263     wW[3] = 0.163595;
1264     wW[4] = 0.000315;
1265     wW[5] = 0.001197;
1266     wW[6] = 0.000127;
1267     wW[7] = 0.004175;
1268     wW[8] = 0.000811;
1269     wW[9] = 0.311315;
1270     wW[10] = 0.006631;
1271     wW[11] = 0.000000;
1272     wW[12] = 0.000000;
1273     if(fByThick){// New values seeITS_MatBudget_4B.xls
1274         den = 1.9353276; // g/cm^3  Cell N370
1275     }else{
1276         den = 3.2788626; // g/cm^3 Cell F370
1277     } // end if fByThick
1278     //den = 7667.1/(3671.58978); // Volume does not excludeholes
1279     AliMixture(88,"ITS SANDW CFMDSDD$",aA,zZ,den,+11,wW); 
1280     AliMedium(88,"ITS SANDW CFMDSDD$",88,0,ifield,fieldm,tmaxfd,stemax,
1281               deemax,epsil,stmin);
1282
1283     //AliMaterial(89,"ITS SANDW CFMDSSD$",0.12011E+02,0.60000E+01,0.41000E+00,0.90868E+02,0.99900E+03);
1284     // From Pierluigi Barberis calculations of SSD+Carbon fiber October 2 2002.
1285     wW[0] = 0.014065;
1286     wW[1] = 0.520598;
1287     wW[2] = 0.022650;
1288     wW[3] = 0.105018;
1289     wW[4] = 0.021768;
1290     wW[5] = 0.009952;
1291     wW[6] = 0.001051;
1292     wW[7] = 0.034700;
1293     wW[8] = 0.006740;
1294     wW[9] = 0.249406;
1295     wW[10] = 0.010345;
1296     wW[11] = 0.0003707;
1297     wW[12] = 0.000000;
1298     if(fByThick){// New values seeITS_MatBudget_4B.xls
1299         den = 1.6564275; // g/cm^3  Cell N304
1300     }else{
1301         den = 1.7028296; // g/cm^3  Cell F304
1302     } // end if fByThick
1303     //den = 1166.5/(3671.58978); // Volume does not exclude holes
1304     AliMixture(89,"ITS SANDW CFMDSSD$",aA,zZ,den,+12,wW); 
1305     AliMedium(89,"ITS SANDW CFMDSSD$",89,0,ifield,fieldm,tmaxfd,stemax,
1306               deemax,epsil,stmin);
1307
1308     //AliMaterial(97,"SPD SERVICES$",0.12011E+02,0.60000E+01,0.41000E+00,0.90868E+02,0.99900E+03);
1309     // From Pierluigi Barberis calculations of 1SPD October 2 2002.
1310     wW[0] = 0.005970;
1311     wW[1] = 0.304704;
1312     wW[2] = 0.042510;
1313     wW[3] = 0.121715;
1314     wW[4] = 0.001118;
1315     wW[5] = 0.030948;
1316     wW[6] = 0.003270;
1317     wW[7] = 0.107910;
1318     wW[8] = 0.020960;
1319     wW[9] = 0.360895;
1320     wW[10] = 0.000000;
1321     wW[11] = 0.000000;
1322     wW[12] = 0.000000;
1323     if(fByThick){// New values seeITS_MatBudget_4B.xls
1324         den = 80.31136576; // g/cm^3 Cell H329
1325     }else{
1326         den = 87.13062; // g/cm^3  Cell G329
1327     } // end if fByThick
1328     //den = 1251.3/(0.05*2.0*TMath::Pi()*(7.75*7.75 - 3.7*3.7)); // g/cm^3
1329     AliMixture(97,"SPD SERVICES$",aA,zZ,den,+10,wW); 
1330     AliMedium(97,"SPD SERVICES$",97,0,ifield,fieldm,tmaxfd,stemax,
1331               deemax,epsil,stmin);
1332
1333
1334     // Special media
1335
1336     AliMaterial(90,"SPD shield$", 12.011, 6., 1.93 , 22.36, 999);
1337     AliMedium(90,"SPD shield$",90,0,ifield,fieldm,tmaxfdServ,stemaxServ,deemaxServ,epsilServ,stminServ);
1338
1339     // SPD End Ladder (data from Petra Riedler)
1340     Float_t aSPDel[5] = {1.00794,12.0107,14.01,15.9994,63.54 };
1341     Float_t zSPDel[5] = {1.,6.,7.,8.,29.};
1342     Float_t wSPDel[5] = {0.004092,0.107274,0.011438,0.032476,0.844719};
1343     Float_t dSPDel    = 3.903403;
1344
1345     //   AliMaterial(91, "SPD End ladder$", 47.0447, 21.7963, 3.6374, 4.4711, 999); 
1346     AliMixture(91,"SPD End ladder$",aSPDel,zSPDel,dSPDel,5,wSPDel);
1347     AliMedium(91,"SPD End ladder$",91,0,ifield,fieldm,tmaxfdServ,stemaxServ,deemaxServ,epsilServ,stminServ);
1348
1349     AliMaterial(92, "SPD cone$",28.0855, 14., 2.33, 9.36, 999);    
1350     AliMedium(92,"SPD cone$",92,0,ifield,fieldm,tmaxfdServ,stemaxServ,deemaxServ,epsilServ,stminServ);
1351     /*  Material with fractional Z not actually used
1352     AliMaterial(93, "SDD End ladder$", 69.9298, 29.8246, 0.3824, 36.5103, 999);
1353     AliMedium(93,"SDD End ladder$",93,0,ifield,fieldm,tmaxfdServ,stemaxServ,deemaxServ,epsilServ,stminServ);
1354     */
1355     AliMaterial(94, "SDD cone$",63.546, 29., 1.15, 1.265, 999);
1356     AliMedium(94,"SDD cone$",94,0,ifield,fieldm,tmaxfdServ,stemaxServ,deemaxServ,epsilServ,stminServ);
1357     /* Material with fractional Z not actually used
1358     AliMaterial(95, "SSD End ladder$", 32.0988, 15.4021, 0.68, 35.3238, 999); 
1359     AliMedium(95,"SSD End ladder$",95,0,ifield,fieldm,tmaxfdServ,stemaxServ,deemaxServ,epsilServ,stminServ);
1360     */
1361     AliMaterial(96, "SSD cone$",63.546, 29., 1.15, 1.265, 999);
1362     AliMedium(96,"SSD cone$",96,0,ifield,fieldm,tmaxfdServ,stemaxServ,deemaxServ,epsilServ,stminServ);
1363
1364     AliMixture(98,"SDD OPTICFIB$",aoptfib,zoptfib,doptfib,-2,woptfib);
1365     AliMedium(98,"SDD OPTICFIB$",98,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1366
1367     AliMixture(95,"SSD FEP$",aFEP,zFEP,dFEP,-2,wFEP);
1368     AliMedium(95,"SSD FEP$",95,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1369
1370     // Mean material for low-voltage cables on SPD trays Side A
1371     // (Copper + PolyEthylene (C2-H4)) (D.Elia for cable number and
1372     // cross-section area, M.Sitta for elemental computation) - 26 Feb 10
1373     wW[0] = 0.323024;//H
1374     wW[2] = 0.515464;//Cu
1375     wW[1] = 0.161512;//C
1376     wW[3] = 0.000000;//O
1377     wW[4] = 0.000000;//S
1378     wW[5] = 0.000000;//F
1379     wW[6] = 0.000000;//Sn
1380     wW[7] = 0.000000;//Pb
1381     wW[8] = 0.000000;//Cr
1382     wW[9] = 0.000000;//Si
1383     wW[10] = 0.000000;//Ni
1384     wW[11] = 0.000000;//Ca
1385
1386     den = 5.078866;
1387     AliMixture(60,"SPD_LOWCABLES$",aA,zZ,den,+3,wW);
1388     AliMedium(60,"SPD_LOWCABLES$",60,0,ifield,fieldm,tmaxfd,stemax,
1389               deemax,epsil,stmin);
1390
1391     // Mean material for high-voltage cables on SPD trays Side A & C
1392     // (Copper + HD PolyEthylene (C2-H2)) (D.Elia for cable number and
1393     // cross-section area, M.Sitta for elemental computation) - 10 Jun 10
1394     wW[0] = 0.083766;//H
1395     wW[2] = 0.417136;//Cu
1396     wW[1] = 0.499098;//C
1397     wW[3] = 0.000000;//O
1398     wW[4] = 0.000000;//S
1399     wW[5] = 0.000000;//F
1400     wW[6] = 0.000000;//Sn
1401     wW[7] = 0.000000;//Pb
1402     wW[8] = 0.000000;//Cr
1403     wW[9] = 0.000000;//Si
1404     wW[10] = 0.000000;//Ni
1405     wW[11] = 0.000000;//Ca
1406
1407     den = 1.514930;
1408     AliMixture(58,"SPD_HICABLES$",aA,zZ,den,+3,wW);
1409     AliMedium(58,"SPD_HICABLES$",58,0,ifield,fieldm,tmaxfd,stemax,
1410               deemax,epsil,stmin);
1411
1412     // PolyUrethane [C25-H42-N2-O6] - 07 Mar 10
1413     zZ[2] =  7.0; aA[2] =  14.0067; // Nitrogen - From Root TGeoElementTable
1414
1415     wW[0] = 0.090724;//H
1416     wW[2] = 0.060035;//N
1417     wW[1] = 0.643513;//C
1418     wW[3] = 0.205728;//O
1419     wW[4] = 0.000000;//S
1420     wW[5] = 0.000000;//F
1421     wW[6] = 0.000000;//Sn
1422     wW[7] = 0.000000;//Pb
1423     wW[8] = 0.000000;//Cr
1424     wW[9] = 0.000000;//Si
1425     wW[10] = 0.000000;//Ni
1426     wW[11] = 0.000000;//Ca
1427
1428     den = 1.158910;
1429     AliMixture(67,"POLYURETHANE$",aA,zZ,den,+4,wW);
1430     AliMedium(67,"POLYURETHANE$",67,0,ifield,fieldm,tmaxfd,stemax,
1431               deemax,epsil,stmin);
1432
1433     //  POM (Polyoxymethylene = (CH2O)n ) - 02 May 10
1434     zZ[2] =  8.0; aA[2] =  15.9994; // Oxigen
1435
1436     wW[0] = 0.067137;//H
1437     wW[1] = 0.400016;//C
1438     wW[2] = 0.532847;//O
1439     wW[3] = 0.000000;//O
1440     wW[4] = 0.000000;//S
1441     wW[5] = 0.000000;//F
1442     wW[6] = 0.000000;//Sn
1443     wW[7] = 0.000000;//Pb
1444     wW[8] = 0.000000;//Cr
1445     wW[9] = 0.000000;//Si
1446     wW[10] = 0.000000;//Ni
1447     wW[11] = 0.000000;//Ca
1448
1449     den = 1.4200;
1450     AliMixture(57,"POLYOXYMETHYLENE$",aA,zZ,den,+3,wW);
1451     AliMedium(57,"POLYOXYMETHYLENE$",57,0,ifield,fieldm,tmaxfd,stemax,
1452               deemax,epsil,stmin);
1453
1454
1455     // Anticorodal (Aliminum alloy) - 08 nov 10
1456     // A,Z from Root TGeoElementTable, W from Web sites
1457     zZ[0] = 13.0; aA[0] =  26.9815; // Aluminium
1458     zZ[1] = 29.0; aA[1] =  63.546 ; // Copper
1459     zZ[2] = 26.0; aA[2] =  55.845 ; // Iron
1460     zZ[3] = 25.0; aA[3] =  54.938 ; // Manganese
1461     zZ[4] = 12.0; aA[4] =  24.305 ; // Magnesium
1462     zZ[5] = 14.0; aA[5] =  28.0855; // Silicon
1463     zZ[6] = 30.0; aA[6] =  65.39  ; // Zinc
1464     zZ[7] = 24.0; aA[7] =  51.9961; // Chromium
1465     zZ[8] = 22.0; aA[8] =  47.867 ; // Titanium
1466
1467     wW[1] = 0.001000;//Cu
1468     wW[2] = 0.005000;//Fe
1469     wW[3] = 0.007000;//Mn - mean value
1470     wW[4] = 0.009000;//Mg - mean value
1471     wW[5] = 0.001000;//Si - mean value
1472     wW[6] = 0.002000;//Zn
1473     wW[7] = 0.002500;//Cr
1474     wW[8] = 0.001000;//Ti
1475
1476     Double_t totFrac = 0;
1477     for (Int_t j=1; j<9; j++)
1478       totFrac += wW[j];
1479     wW[0] = 1. - totFrac;//Al - the remainder
1480
1481     den = 2.69;
1482     AliMixture(93,"ANTICORODAL$",aA,zZ,den,+9,wW);
1483     AliMedium(93,"ANTICORODAL$",93,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1484
1485     // Hokotol (another Aluminium alloy) - 08 nov 10
1486     // A,Z from Root TGeoElementTable, W from Web sites
1487     zZ[0] = 13.0; aA[0] =  26.9815; // Aluminium
1488     zZ[1] = 29.0; aA[1] =  63.546 ; // Copper
1489     zZ[2] = 26.0; aA[2] =  55.845 ; // Iron
1490     zZ[3] = 25.0; aA[3] =  54.938 ; // Manganese
1491     zZ[4] = 12.0; aA[4] =  24.305 ; // Magnesium
1492     zZ[5] = 14.0; aA[5] =  28.0855; // Silicon
1493     zZ[6] = 30.0; aA[6] =  65.39  ; // Zinc
1494     zZ[7] = 24.0; aA[7] =  51.9961; // Chromium
1495     zZ[8] = 22.0; aA[8] =  47.867 ; // Titanium
1496     zZ[9] = 40.0; aA[9] =  91.224 ; // Zirconium
1497
1498     wW[1] = 0.020500;//Cu - mean value
1499     wW[2] = 0.000300;//Fe
1500     wW[3] = 0.022000;//Mn - mean value
1501     wW[4] = 0.001000;//Mg - mean value
1502     wW[5] = 0.002000;//Si - mean value
1503     wW[6] = 0.066500;//Zn
1504     wW[7] = 0.005000;//Cr
1505     wW[8] = 0.000600;//Ti
1506     wW[9] = 0.001650;//Zr - mean value
1507
1508     totFrac = 0;
1509     for (Int_t j=1; j<10; j++)
1510       totFrac += wW[j];
1511     wW[0] = 1. - totFrac;//Al - the remainder
1512
1513     den = 2.69;
1514     AliMixture(34,"HOKOTOL$",aA,zZ,den,+10,wW);
1515     AliMedium(34,"HOKOTOL$",34,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1516     
1517     // Ergal (7075) (yet another Aluminium alloy) - 09 nov 10
1518     // A,Z from Root TGeoElementTable, W from Web sites
1519     zZ[0] = 13.0; aA[0] =  26.9815; // Aluminium
1520     zZ[1] = 29.0; aA[1] =  63.546 ; // Copper
1521     zZ[2] = 26.0; aA[2] =  55.845 ; // Iron
1522     zZ[3] = 25.0; aA[3] =  54.938 ; // Manganese
1523     zZ[4] = 12.0; aA[4] =  24.305 ; // Magnesium
1524     zZ[5] = 14.0; aA[5] =  28.0855; // Silicon
1525     zZ[6] = 30.0; aA[6] =  65.39  ; // Zinc
1526     zZ[7] = 24.0; aA[7] =  51.9961; // Chromium
1527     zZ[8] = 22.0; aA[8] =  47.867 ; // Titanium
1528
1529     wW[1] = 0.016000;//Cu - mean value
1530     wW[2] = 0.005000;//Fe
1531     wW[3] = 0.003000;//Mn
1532     wW[4] = 0.025000;//Mg - mean value
1533     wW[5] = 0.004000;//Si
1534     wW[6] = 0.056000;//Zn - mean value
1535     wW[7] = 0.002300;//Cr - mean value
1536     wW[8] = 0.002000;//Ti
1537
1538     totFrac = 0;
1539     for (Int_t j=1; j<9; j++)
1540       totFrac += wW[j];
1541     wW[0] = 1. - totFrac;//Al - the remainder
1542
1543     den = 2.69;
1544     AliMixture(33,"ERGAL$",aA,zZ,den,+9,wW);
1545     AliMedium(33,"ERGAL$",33,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1546
1547 }
1548
1549 //______________________________________________________________________
1550 void AliITSv11::Init()
1551 {
1552     //     Initialise the ITS after it has been created.
1553     // Inputs:
1554     //   none.
1555     // Outputs:
1556     //   none.
1557     // Return:
1558     //   none.
1559
1560     UpdateInternalGeometry();
1561     AliITS::Init();
1562
1563     fIDMother = TVirtualMC::GetMC()->VolId("ITSV"); // ITS Mother Volume ID.
1564 }
1565
1566 //______________________________________________________________________
1567 void AliITSv11::SetDefaults()
1568 {
1569     // sets the default segmentation, response, digit and raw cluster classes
1570     // Inputs:
1571     //   none.
1572     // Outputs:
1573     //   none.
1574     // Return:
1575     //   none.
1576
1577     if(!fDetTypeSim){
1578         Warning("SetDefaults","Error fDetTypeSim not defined");
1579         return;
1580     }
1581
1582     fDetTypeSim->SetDefaults();
1583     
1584
1585     if(fgkNTYPES>3){
1586         Warning("SetDefaults",
1587                 "Only the four basic detector types are initialised!");
1588     }// end if
1589     return;
1590 }
1591
1592 //______________________________________________________________________
1593 void AliITSv11::StepManager()
1594 {
1595     //    Called for every step in the ITS, then calles the AliITShit class
1596     // creator with the information to be recoreded about that hit.
1597     //     The value of the macro ALIITSPRINTGEOM if set to 1 will allow the
1598     // printing of information to a file which can be used to create a .det
1599     // file read in by the routine CreateGeometry(). If set to 0 or any other
1600     // value except 1, the default behavior, then no such file is created nor
1601     // it the extra variables and the like used in the printing allocated.
1602     // Inputs:
1603     //   none.
1604     // Outputs:
1605     //   none.
1606     // Return:
1607     //   none.
1608
1609     if(!(this->IsActive())) return;
1610     if(!(TVirtualMC::GetMC()->TrackCharge())) return;
1611
1612     Int_t copy, lay = 0;
1613     Int_t id = TVirtualMC::GetMC()->CurrentVolID(copy);
1614
1615     Bool_t notSens = kFALSE;
1616     while ((lay<fIdN)  && (notSens = id != fIdSens[lay])) ++lay;
1617     if (notSens) return;
1618
1619     if(TVirtualMC::GetMC()->IsTrackExiting()) {
1620         AddTrackReference(gAlice->GetMCApp()->GetCurrentTrackNumber(), AliTrackReference::kITS);
1621     } // if Outer ITS mother Volume
1622
1623     static TLorentzVector position, momentum; // Saves on calls to construtors
1624     static AliITShit hit;// Saves on calls to constructors
1625
1626     TClonesArray &lhits = *(Hits());
1627     Int_t   cpn0, cpn1, mod, status = 0;
1628     //
1629     // Track status
1630     if(TVirtualMC::GetMC()->IsTrackInside())      status +=  1;
1631     if(TVirtualMC::GetMC()->IsTrackEntering())    status +=  2;
1632     if(TVirtualMC::GetMC()->IsTrackExiting())     status +=  4;
1633     if(TVirtualMC::GetMC()->IsTrackOut())         status +=  8;
1634     if(TVirtualMC::GetMC()->IsTrackDisappeared()) status += 16;
1635     if(TVirtualMC::GetMC()->IsTrackStop())        status += 32;
1636     if(TVirtualMC::GetMC()->IsTrackAlive())       status += 64;
1637
1638     //
1639     // retrieve the indices with the volume path
1640     //
1641     switch (lay) {
1642     case 0:case 1: // SPD
1643       TVirtualMC::GetMC()->CurrentVolOffID(1,copy); // ladder
1644       TVirtualMC::GetMC()->CurrentVolOffID(3,cpn1); // stave
1645       TVirtualMC::GetMC()->CurrentVolOffID(5,cpn0); // sector
1646       break;
1647     case 2:case 3: // SDD
1648       copy = 1;
1649       TVirtualMC::GetMC()->CurrentVolOffID(2,cpn1);
1650       TVirtualMC::GetMC()->CurrentVolOffID(3,cpn0);
1651       break;
1652     case 4:case 5: // SSD
1653       copy = 1;
1654       TVirtualMC::GetMC()->CurrentVolOffID(1,cpn1);
1655       TVirtualMC::GetMC()->CurrentVolOffID(2,cpn0);
1656       break;
1657     default:
1658       AliError(Form("Invalid value: lay= %d . Not an ITS sensitive volume",lay));
1659       return; // not an ITS sensitive volume.
1660     } //
1661
1662     fInitGeom.DecodeDetector(mod,lay+1,cpn0,cpn1,copy);
1663     // We should not need to pass by the switch !
1664     // This is time consuming...
1665     // therefore DecodeDetectorv11(...) shouldn't be private !
1666     // and we should be able to use instead :
1667     //fInitGeom.DecodeDetectorv11(mod,lay+1,cpn0,cpn1,copy);
1668
1669     //
1670     // Fill hit structure.
1671     //
1672     hit.SetModule(mod);
1673     hit.SetTrack(gAlice->GetMCApp()->GetCurrentTrackNumber());
1674     TVirtualMC::GetMC()->TrackPosition(position);
1675     TVirtualMC::GetMC()->TrackMomentum(momentum);
1676     hit.SetPosition(position);
1677     hit.SetTime(TVirtualMC::GetMC()->TrackTime());
1678     hit.SetMomentum(momentum);
1679     hit.SetStatus(status);
1680     hit.SetEdep(TVirtualMC::GetMC()->Edep());
1681     hit.SetShunt(GetIshunt());
1682     if(TVirtualMC::GetMC()->IsTrackEntering()){
1683         hit.SetStartPosition(position);
1684         hit.SetStartTime(TVirtualMC::GetMC()->TrackTime());
1685         hit.SetStartStatus(status);
1686         return; // don't save entering hit.
1687     } // end if IsEntering
1688     // Fill hit structure with this new hit.
1689     //Info("StepManager","Calling Copy Constructor");
1690     new(lhits[fNhits++]) AliITShit(hit); // Use Copy Construtor.
1691     // Save old position... for next hit.
1692     hit.SetStartPosition(position);
1693     hit.SetStartTime(TVirtualMC::GetMC()->TrackTime());
1694     hit.SetStartStatus(status);
1695
1696     return;
1697 }