modifications to be compliant with -Weffc++ option (L. Gaudichet)
[u/mrichter/AliRoot.git] / ITS / AliITSv11.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 //                 Inner Traking System geometry v11
18 //
19 //  Based on ROOT geometrical modeler
20 //
21 // B. Nilsen, L. Gaudichet
22 //************************************************************************
23
24
25 //#include <Riostream.h>
26 #include <TClonesArray.h>
27 #include <TLorentzVector.h>
28
29 #include "AliITS.h"
30 #include "AliITSDetTypeSim.h"
31 #include "AliITSGeant3Geometry.h"
32 #include "AliITSgeom.h"
33 #include "AliITSgeomSDD.h"
34 #include "AliITSgeomSPD.h"
35 #include "AliITSgeomSSD.h"
36 #include "AliITShit.h"
37
38 #include "AliITSCalibrationSDD.h"
39 #include "AliITSCalibrationSPD.h"
40 #include "AliITSCalibrationSSD.h"
41
42 #include "AliITSsegmentationSDD.h"
43 #include "AliITSsegmentationSPD.h"
44 #include "AliITSsegmentationSSD.h"
45 #include "AliITSv11.h"
46 #include "AliMagF.h"
47 #include "AliRun.h"
48 #include "AliTrackReference.h"
49 #include "AliMC.h"
50
51 #include <TGeoManager.h>
52 #include <TGeoVolume.h>
53 #include <TGeoPcon.h>
54 //#include "AliITSv11GeometrySPD.h"
55 #include "AliITSv11GeometrySDD.h"
56 //#include "AliITSv11GeometrySupport.h"
57
58
59
60 ClassImp(AliITSv11)
61  
62
63
64 //______________________________________________________________________
65 AliITSv11::AliITSv11() : AliITS(),
66   fGeomDetOut(kFALSE), // Don't write .det file
67   fGeomDetIn(kTRUE),   // Read .det file
68   fByThick(kTRUE),
69   fMajorVersion(0),
70   fMinorVersion(0),
71   fSDDgeom(0)
72 {
73   //    Standard default constructor for the ITS version 11.
74
75     fIdN          = 0;
76     fIdName       = 0;
77     fIdSens       = 0;
78     fEuclidOut    = kFALSE; // Don't write Euclide file
79     Int_t i;
80     for(i=0;i<60;i++) fRead[i] = '\0';
81     for(i=0;i<60;i++) fWrite[i] = '\0';
82     for(i=0;i<60;i++) fEuclidGeomDet[i] = '\0';
83     strncpy(fRead,"$ALICE_ROOT/ITS/ITSgeometry_vPPRasymmFMD.det",60);
84 }
85
86
87 //______________________________________________________________________
88 AliITSv11::AliITSv11(const char *name, const char *title)
89   : AliITS("ITS", title),
90     fGeomDetOut(kFALSE), // Don't write .det file
91     fGeomDetIn(kTRUE),   // Read .det file
92     fByThick(kTRUE),
93     fMajorVersion(0),
94     fMinorVersion(0),
95     fSDDgeom(0)
96 {
97   //    Standard constructor for the ITS version 11.
98
99   fSDDgeom = new AliITSv11GeometrySDD(0);
100
101   Int_t i;
102   fIdN = 6;
103   fIdName = new TString[fIdN];
104   fIdName[0] = name; // removes warning message
105   fIdName[0] = "ITS1";
106   fIdName[1] = "ITS2";
107   fIdName[2] = fSDDgeom->GetSenstiveVolumeMame();
108   fIdName[3] = fSDDgeom->GetSenstiveVolumeMame();
109   fIdName[4] = "ITS5";
110   fIdName[5] = "ITS6";
111   fIdSens    = new Int_t[fIdN];
112   for(i=0;i<fIdN;i++) fIdSens[i] = 0;
113   fEuclidOut    = kFALSE; // Don't write Euclide file
114   //SetDensityServicesByThickness();
115   // not needed, fByThick set to kTRUE in in the member initialization lis
116   
117
118   fEuclidGeometry="$ALICE_ROOT/ITS/ITSgeometry_vPPRasymm2.euc";
119   strncpy(fEuclidGeomDet,"$ALICE_ROOT/ITS/ITSgeometry_vPPRasymm2.det",60);
120   strncpy(fRead,fEuclidGeomDet,60);
121   strncpy(fWrite,fEuclidGeomDet,60);
122   strncpy(fRead,"$ALICE_ROOT/ITS/ITSgeometry_vPPRasymmFMD.det",60);
123 }
124
125
126 //______________________________________________________________________
127 AliITSv11::AliITSv11(Int_t debugITS,Int_t debugSPD,Int_t debugSDD,
128                    Int_t debugSSD,Int_t debugSUP) :
129   AliITS("ITS","ITS geometry v11"),
130     fGeomDetOut(kFALSE), // Don't write .det file
131     fGeomDetIn(kTRUE),   // Read .det file
132     fByThick(kTRUE),
133     fMajorVersion(0),
134     fMinorVersion(0),
135     fSDDgeom(0)
136  {
137   // Standard default constructor for the ITS version 11.
138
139
140   //   fSPDgeom = new AliITSv11GeometrySPD(debugSPD);
141   fSDDgeom = new AliITSv11GeometrySDD(debugSDD);
142   fSDDgeom->SetDebug(debugSDD);
143   //   fSupgeom = new AliITSv11GeometrySupport(debugSUP);
144
145   Int_t i;
146   fIdN = 6;
147   fIdName = new TString[fIdN];
148   fIdName[0] = "ITS1";
149   fIdName[1] = "ITS2";
150   fIdName[2] = fSDDgeom->GetSenstiveVolumeMame();
151   fIdName[3] = fSDDgeom->GetSenstiveVolumeMame();
152   fIdName[4] = "ITS5";
153   fIdName[5] = "ITS6";
154   fIdSens    = new Int_t[fIdN];
155   for(i=0;i<fIdN;i++) fIdSens[i] = 0;
156   fEuclidOut    = kFALSE; // Don't write Euclide file
157   //SetDensityServicesByThickness();
158   
159   fEuclidGeometry="$ALICE_ROOT/ITS/ITSgeometry_vPPRasymm2.euc";
160   strncpy(fEuclidGeomDet,"$ALICE_ROOT/ITS/ITSgeometry_vPPRasymm2.det",60);
161   strncpy(fRead,fEuclidGeomDet,60);
162   strncpy(fWrite,fEuclidGeomDet,60);
163   strncpy(fRead,"$ALICE_ROOT/ITS/ITSgeometry_vPPRasymmFMD.det",60);
164
165   debugITS = (debugSPD && debugSSD && debugSUP && debugSDD); //remove temp. warnings
166 }
167
168
169 //______________________________________________________________________
170 AliITSv11::AliITSv11(const AliITSv11 &source) :
171   AliITS(source),
172   fGeomDetOut(kFALSE), // Don't write .det file
173   fGeomDetIn(kTRUE),   // Read .det file
174   fByThick(kTRUE),
175   fMajorVersion(0),
176   fMinorVersion(0),
177   fSDDgeom(0)
178 {
179     //     Copy Constructor for ITS version 11. This function is not to be
180     // used. If any other instance of this function, other than "this" is
181     // passed, an error message is returned.
182     // Inputs:
183     //   const AliITSv11 &source This class
184
185     if(&source == this) return;
186     Warning("Copy Constructor","Not allowed to copy AliITSv11");
187     return;
188 }
189
190
191 //______________________________________________________________________
192 AliITSv11& AliITSv11::operator=(const AliITSv11 
193                                                   &source){
194     //     Assignment operator for the ITS version 11. This function is not 
195     // to be used. If any other instance of this function, other than "this" 
196     // is passed, an error message is returned.
197     // Inputs:
198     //   const AliITSv11 &source This class
199
200     if(&source == this) return *this;
201     Warning("= operator","Not allowed to copy AliITSv11");
202     return *this;
203 }
204
205
206 //______________________________________________________________________
207 AliITSv11::~AliITSv11() {
208   delete fSDDgeom;
209 }
210
211
212 //______________________________________________________________________
213 void AliITSv11::BuildGeometry(){
214
215 }
216
217
218 //______________________________________________________________________
219 void AliITSv11::CreateGeometry(){
220   //
221   // Create ROOT geometry
222   //
223
224   TGeoManager *geoManager = gGeoManager;
225   TGeoVolume *vALIC = geoManager->GetTopVolume();
226
227   TGeoPcon *sITS = new TGeoPcon("ITS Top Volume",0.0,360.0,2);
228
229   // DefineSection(section number, Z, Rmin, Rmax).
230   const Double_t kcm = 1.0;
231   sITS->DefineSection(0,-300.0*kcm,0.01*kcm,50.0*kcm);
232   sITS->DefineSection(1,+300.0*kcm,0.01*kcm,50.0*kcm);
233
234   TGeoMedium *air = gGeoManager->GetMedium("ITS_ITSair");
235   TGeoVolume *vITS = new TGeoVolume("vITS",sITS,air);
236   vITS->SetVisibility(kFALSE);
237   vALIC->AddNode(vITS,1,0);
238
239 //   fSPDgeom->CenteralSPD(vITS);
240
241   fSDDgeom->Layer3(vITS);
242   fSDDgeom->Layer4(vITS);
243
244 //     fSupgeom->SPDCone(vITS);
245 //     fSupgeom->SPDThermalSheald(vITS);
246 //     fSupgeom->SDDCone(vITS);
247 //     fSupgeom->SSDCone(vITS);
248 //     fSupgeom->ServicesCableSupport(vITS);
249
250 }
251
252
253 //______________________________________________________________________
254 void AliITSv11::CreateMaterials(){
255   //
256   // Create ITS materials
257   // Defined media here should correspond to the one defined in galice.cuts
258   // File which is red in (AliMC*) fMCApp::Init() { ReadTransPar(); }
259   //
260
261 //     Int_t   ifield = gAlice->Field()->Integ();
262 //     Float_t fieldm = gAlice->Field()->Max();
263
264 //     Float_t tmaxfd = 0.1; // 1.0; // Degree
265 //     Float_t stemax = 1.0; // cm
266 //     Float_t deemax = 0.1; // 30.0; // Fraction of particle's energy 0<deemax<=1
267 //     Float_t epsil  = 1.0E-4; // 1.0; // cm
268 //     Float_t stmin  = 0.0; // cm "Default value used"
269
270 //     Float_t tmaxfdSi = 0.1; // .10000E+01; // Degree
271 //     Float_t stemaxSi = 0.0075; //  .10000E+01; // cm
272 //     Float_t deemaxSi = 0.1; // 0.30000E-02; // Fraction of particle's energy 0<deemax<=1
273 //     Float_t epsilSi  = 1.0E-4;// .10000E+01;
274 //     Float_t stminSi  = 0.0; // cm "Default value used"
275
276 //     Float_t tmaxfdAir = 0.1; // .10000E+01; // Degree
277 //     Float_t stemaxAir = .10000E+01; // cm
278 //     Float_t deemaxAir = 0.1; // 0.30000E-02; // Fraction of particle's energy 0<deemax<=1
279 //     Float_t epsilAir  = 1.0E-4;// .10000E+01;
280 //     Float_t stminAir  = 0.0; // cm "Default value used"
281
282 //     Float_t tmaxfdServ = 1.0; // 10.0; // Degree
283 //     Float_t stemaxServ = 1.0; // 0.01; // cm
284 //     Float_t deemaxServ = 0.5; // 0.1; // Fraction of particle's energy 0<deemax<=1
285 //     Float_t epsilServ  = 1.0E-3; // 0.003; // cm
286 //     Float_t stminServ  = 0.0; //0.003; // cm "Default value used"
287
288 //     // Freon PerFluorobuthane C4F10 see 
289 //     // http://st-support-cooling-electronics.web.cern.ch/
290 //     //        st-support-cooling-electronics/default.htm
291 //     Float_t afre[2]  = { 12.011,18.9984032 };
292 //     Float_t zfre[2]  = { 6., 9. };
293 //     Float_t wfre[2]  = { 4.,10. };
294 //     Float_t densfre  = 1.52;
295
296
297 //     //CM55J
298 //     Float_t aCM55J[4]={12.0107,14.0067,15.9994,1.00794};
299 //     Float_t zCM55J[4]={6.,7.,8.,1.};
300 //     Float_t wCM55J[4]={0.908508078,0.010387573,0.055957585,0.025146765};
301 //     Float_t dCM55J = 1.63;
302
303 //     //ALCM55J
304 //     Float_t aALCM55J[5]={12.0107,14.0067,15.9994,1.00794,26.981538};
305 //     Float_t zALCM55J[5]={6.,7.,8.,1.,13.};
306 //     Float_t wALCM55J[5]={0.817657902,0.0093488157,0.0503618265,0.0226320885,0.1};
307 //     Float_t dALCM55J = 1.9866;
308
309 //     //Si Chips
310 //     Float_t aSICHIP[6]={12.0107,14.0067,15.9994,1.00794,28.0855,107.8682};
311 //     Float_t zSICHIP[6]={6.,7.,8.,1.,14., 47.};
312 //     Float_t wSICHIP[6]={0.039730642,0.001396798,0.01169634,
313 //                      0.004367771,0.844665,0.09814344903};
314 //     Float_t dSICHIP = 2.36436;
315
316 //     //Inox
317 //     Float_t aINOX[9]={12.0107,54.9380, 28.0855,30.9738,32.066,
318 //                    58.6928,55.9961,95.94,55.845};
319 //     Float_t zINOX[9]={6.,25.,14.,15.,16., 28.,24.,42.,26.};
320 //     Float_t wINOX[9]={0.0003,0.02,0.01,0.00045,0.0003,0.12,0.17,0.025,0.654};
321 //     Float_t dINOX = 8.03;
322
323 //     //SDD HV microcable
324 //     Float_t aHVm[5]={12.0107,1.00794,14.0067,15.9994,26.981538};
325 //     Float_t zHVm[5]={6.,1.,7.,8.,13.};
326 //     Float_t wHVm[5]={0.520088819984,0.01983871336,0.0551367996,0.157399667056, 0.247536};
327 //     Float_t dHVm = 1.6087;
328
329 //     //SDD LV+signal cable
330 //     Float_t aLVm[5]={12.0107,1.00794,14.0067,15.9994,26.981538};
331 //     Float_t zLVm[5]={6.,1.,7.,8.,13.};
332 //     Float_t wLVm[5]={0.21722436468,0.0082859922,0.023028867,0.06574077612, 0.68572};
333 //     Float_t dLVm = 2.1035;
334
335 //     //SDD hybrid microcab
336 //     Float_t aHLVm[5]={12.0107,1.00794,14.0067,15.9994,26.981538};
337 //     Float_t zHLVm[5]={6.,1.,7.,8.,13.};
338 //     Float_t wHLVm[5]={0.24281879711,0.00926228815,0.02574224025,0.07348667449, 0.64869};
339 //     Float_t dHLVm = 2.0502;
340
341 //     //SDD anode microcab
342 //     Float_t aALVm[5]={12.0107,1.00794,14.0067,15.9994,26.981538};
343 //     Float_t zALVm[5]={6.,1.,7.,8.,13.};
344 //     Float_t wALVm[5]={0.392653705471,0.0128595919215,
345 //                    0.041626868025,0.118832707289, 0.431909};
346 //     Float_t dALVm = 2.0502;
347
348 //     //X7R capacitors
349 //     Float_t aX7R[7]={137.327,47.867,15.9994,58.6928,63.5460,118.710,207.2};
350 //     Float_t zX7R[7]={56.,22.,8.,28.,29.,50.,82.};
351 //     Float_t wX7R[7]={0.251639432,0.084755042,0.085975822,
352 //                   0.038244751,0.009471271,0.321736471,0.2081768};
353 //     Float_t dX7R = 7.14567;
354
355 //     // AIR
356 //     Float_t aAir[4]={12.0107,14.0067,15.9994,39.948};
357 //     Float_t zAir[4]={6.,7.,8.,18.};
358 //     Float_t wAir[4]={0.000124,0.755267,0.231781,0.012827};
359 //     Float_t dAir = 1.20479E-3;
360
361 //     // Water
362 //     Float_t aWater[2]={1.00794,15.9994};
363 //     Float_t zWater[2]={1.,8.};
364 //     Float_t wWater[2]={0.111894,0.888106};
365 //     Float_t dWater   = 1.0;
366
367 //     // CERAMICS
368 //   //     94.4% Al2O3 , 2.8% SiO2 , 2.3% MnO , 0.5% Cr2O3
369 //     Float_t acer[5]  = { 26.981539,15.9994,28.0855,54.93805,51.9961 };
370 //     Float_t zcer[5]  = {       13.,     8.,    14.,     25.,    24. };
371 //     Float_t wcer[5]  = {.4443408,.5213375,.0130872,.0178135,.003421};
372 //     Float_t denscer  = 3.6;
373
374 //     //G10FR4
375 //     Float_t zG10FR4[14] = {14.00,    20.00,  13.00,  12.00,  5.00,
376 //                         22.00,       11.00,  19.00,  26.00,  9.00,
377 //                         8.00,        6.00,   7.00,   1.00};
378 //     Float_t aG10FR4[14] = {28.0855000,40.0780000,26.9815380,24.3050000,
379 //                         10.8110000,47.8670000,22.9897700,39.0983000,
380 //                         55.8450000,18.9984000,15.9994000,12.0107000,
381 //                         14.0067000,1.0079400};
382 //     Float_t wG10FR4[14] = {0.15144894,0.08147477,0.04128158,0.00904554,
383 //                         0.01397570,0.00287685,0.00445114,0.00498089,
384 //                         0.00209828,0.00420000,0.36043788,0.27529426,
385 //                         0.01415852,0.03427566};
386 //     Float_t densG10FR4= 1.8;
387     
388 //      //--- EPOXY  --- C18 H19 O3
389 //       Float_t aEpoxy[3] = {15.9994, 1.00794, 12.0107} ; 
390 //       Float_t zEpoxy[3] = {     8.,      1.,      6.} ; 
391 //       Float_t wEpoxy[3] = {     3.,     19.,     18.} ; 
392 //       Float_t dEpoxy = 1.8 ;
393
394 //       // rohacell: C9 H13 N1 O2
395 //     Float_t arohac[4] = {12.01,  1.01, 14.010, 16.};
396 //     Float_t zrohac[4] = { 6.,    1.,    7.,     8.};
397 //     Float_t wrohac[4] = { 9.,   13.,    1.,     2.};
398 //     Float_t drohac    = 0.05;
399
400 //     // If he/she means stainless steel (inox) + Aluminium and Zeff=15.3383 then
401 // //
402 // // %Al=81.6164 %inox=100-%Al
403
404 //     Float_t aInAl[5] = {27., 55.847,51.9961,58.6934,28.0855 };
405 //     Float_t zInAl[5] = {13., 26.,24.,28.,14. };
406 //     Float_t wInAl[5] = {.816164, .131443,.0330906,.0183836,.000919182};
407 //     Float_t dInAl    = 3.075;
408
409 //     // Kapton
410 //     Float_t aKapton[4]={1.00794,12.0107, 14.010,15.9994};
411 //     Float_t zKapton[4]={1.,6.,7.,8.};
412 //     Float_t wKapton[4]={0.026362,0.69113,0.07327,0.209235};
413 //     Float_t dKapton   = 1.42;
414
415 //     //SDD ruby sph.
416 //     Float_t aAlOxide[2]  = { 26.981539,15.9994};
417 //     Float_t zAlOxide[2]  = {       13.,     8.};
418 //     Float_t wAlOxide[2]  = {0.4707, 0.5293};
419 //     Float_t dAlOxide     = 3.97;
420
421 //     //---------
422 //     AliMaterial(1,"ITSsddSi",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
423 //     AliMedium(1,"ITSsddSi",1,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
424     
425 //     AliMixture(5,"ITSair",aAir,zAir,dAir,4,wAir);
426 //     AliMedium(5,"ITSair",5,0,ifield,fieldm,tmaxfdAir,stemaxAir,deemaxAir,epsilAir,stminAir);
427     
428 //     AliMixture(7,"ITSsddSiChip",aSICHIP,zSICHIP,dSICHIP,6,wSICHIP);
429 //     AliMedium(7,"ITSsddSiChip",7,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
430
431 //     AliMaterial(79,"SDD SI insensitive$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
432 //     AliMedium(79,"SDD SI insensitive$",79,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
433
434 //     AliMaterial(11,"ITSal",0.26982E+02,0.13000E+02,0.26989E+01,0.89000E+01,0.99900E+03);
435 //     AliMedium(11,"ITSal",11,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
436
437 //     AliMixture(9,"ITSsddCarbonM55J",aCM55J,zCM55J,dCM55J,4,wCM55J);
438 //     AliMedium(9,"ITSsddCarbonM55J",9,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
439
440 //     AliMixture(10,"SDD AIR$",aAir,zAir,dAir,4,wAir);
441 //     AliMedium(10,"SDD AIR$",10,0,ifield,fieldm,tmaxfdAir,stemaxAir,deemaxAir,epsilAir,stminAir);
442
443 //     AliMixture(12, "WATER",aWater,zWater,dWater,2,wWater);
444 //     AliMedium(12,"WATER",12,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
445
446 //      AliMixture(69,"ITSsddCAlM55J",aALCM55J,zALCM55J,dALCM55J,5,wALCM55J);
447 //     AliMedium(69,"ITSsddCAlM55J",69,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
448   
449 //     AliMixture(70, "ITSsddKAPTON_POLYCH2", aKapton, zKapton, dKapton, 4, wKapton);
450 //     AliMedium(70,"ITSsddKAPTON_POLYCH2",70,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
451
452 //     AliMixture(77,"SDDX7Rcapacitors",aX7R,zX7R,dX7R,7,wX7R);
453 //     AliMedium(77,"SDDX7Rcapacitors",77,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
454
455 //     AliMixture(78,"SDD ruby sph. Al2O3$",aAlOxide,zAlOxide,dAlOxide,2,wAlOxide);
456 //     AliMedium(78,"SDD ruby sph. Al2O3$",78,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
457
458
459 //     AliMaterial(64,"ALUMINUM$",0.26982E+02,0.13000E+02,0.26989E+01,0.89000E+01,0.99900E+03);
460 //     AliMedium(64,"ALUMINUM$",64,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
461
462 //     AliMaterial(14,"COPPER",0.63546E+02,0.29000E+02,0.89600E+01,0.14300E+01,0.99900E+03);
463 //     AliMedium(14,"COPPER",14,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
464
465 //     AliMaterial(2,"SPD SI CHIP$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
466 //     AliMedium(2,"SPD SI CHIP$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
467
468 //     AliMaterial(3,"SPD SI BUS$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
469 //     AliMedium(3,"SPD SI BUS$",3,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
470
471 //     AliMixture(4,"C (M55J)$",aCM55J,zCM55J,dCM55J,4,wCM55J);
472 //     AliMedium(4,"C (M55J)$",4,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
473
474  
475 //     AliMixture(6,"GEN AIR$",aAir,zAir,dAir,4,wAir);
476 //     AliMedium(6,"GEN AIR$",6,0,ifield,fieldm,tmaxfdAir,stemaxAir,deemaxAir,epsilAir,stminAir);
477
478 //     AliMixture(13,"Freon$",afre,zfre,densfre,-2,wfre);
479 //     AliMedium(13,"Freon$",13,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
480
481
482 //     AliMixture(15,"CERAMICS$",acer,zcer,denscer,5,wcer);
483 //     AliMedium(15,"CERAMICS$",15,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
484
485 //     AliMixture(20,"SSD C (M55J)$",aCM55J,zCM55J,dCM55J,4,wCM55J);
486 //     AliMedium(20,"SSD C (M55J)$",20,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
487
488 //     AliMixture(21,"SSD AIR$",aAir,zAir,dAir,4,wAir);
489 //     AliMedium(21,"SSD AIR$",21,0,ifield,fieldm,tmaxfdAir,stemaxAir,deemaxAir,epsilAir,stminAir);
490
491 //     AliMixture(25,"G10FR4$",aG10FR4,zG10FR4,densG10FR4,14,wG10FR4);
492 //     AliMedium(25,"G10FR4$",25,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
493
494 //      AliMixture(26,"GEN C (M55J)$",aCM55J,zCM55J,dCM55J,4,wCM55J);
495 //     AliMedium(26,"GEN C (M55J)$",26,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
496
497 //     AliMixture(27,"GEN Air$",aAir,zAir,dAir,4,wAir);
498 //     AliMedium(27,"GEN Air$",27,0,ifield,fieldm,tmaxfdAir,stemaxAir,deemaxAir,epsilAir,stminAir);
499
500 //     AliMaterial(51,"SPD SI$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
501 //     AliMedium(51,"SPD SI$",51,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
502
503 //     AliMaterial(52,"SPD SI CHIP$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
504 //     AliMedium(52,"SPD SI CHIP$",52,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
505
506 //     AliMaterial(53,"SPD SI BUS$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
507 //     AliMedium(53,"SPD SI BUS$",53,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
508
509 //     AliMixture(54,"SPD C (M55J)$",aCM55J,zCM55J,dCM55J,4,wCM55J);
510 //     AliMedium(54,"SPD C (M55J)$",54,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
511
512 //     AliMixture(55,"SPD AIR$",aAir,zAir,dAir,4,wAir);
513 //     AliMedium(55,"SPD AIR$",55,0,ifield,fieldm,tmaxfdAir,stemaxAir,deemaxAir,epsilAir,stminAir);
514
515 //     AliMixture(56, "SPD KAPTON(POLYCH2)", aKapton, zKapton, dKapton, 4, wKapton);
516 //     AliMedium(56,"SPD KAPTON(POLYCH2)$",56,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
517
518 //     AliMixture(61,"EPOXY$",aEpoxy,zEpoxy,dEpoxy,-3,wEpoxy);
519 //     AliMedium(61,"EPOXY$",61,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
520
521 //     AliMaterial(62,"SILICON$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
522 //     AliMedium(62,"SILICON$",62,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
523
524 //     AliMixture(63, "KAPTONH(POLYCH2)", aKapton, zKapton, dKapton, 4, wKapton);
525 //     AliMedium(63,"KAPTONH(POLYCH2)$",63,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
526
527
528 //     AliMixture(65,"INOX$",aINOX,zINOX,dINOX,9,wINOX);
529 //     AliMedium(65,"INOX$",65,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
530
531 //     AliMixture(68,"ROHACELL$",arohac,zrohac,drohac,-4,wrohac);
532 //     AliMedium(68,"ROHACELL$",68,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
533
534
535 //      AliMaterial(71,"ITS SANDW A$",0.12011E+02,0.60000E+01,0.2115E+00,0.17479E+03,0.99900E+03);
536 //     AliMedium(71,"ITS SANDW A$",71,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
537
538 //     AliMaterial(72,"ITS SANDW B$",0.12011E+02,0.60000E+01,0.27000E+00,0.18956E+03,0.99900E+03);
539 //     AliMedium(72,"ITS SANDW B$",72,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
540
541 //     AliMaterial(73,"ITS SANDW C$",0.12011E+02,0.60000E+01,0.41000E+00,0.90868E+02,0.99900E+03);
542 //     AliMedium(73,"ITS SANDW C$",73,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
543
544 //     AliMaterial(74,"HEAT COND GLUE$",0.12011E+02,0.60000E+01,0.1930E+01,0.22100E+02,0.99900E+03);
545 //     AliMedium(74,"HEAT COND GLUE$",74,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
546
547 //     AliMaterial(75,"ELASTO SIL$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
548 //     AliMedium(75,"ELASTO SIL$",75,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
549
550 //     AliMaterial(76,"SPDBUS(AL+KPT+EPOX)$",0.19509E+02,0.96502E+01,0.19060E+01,0.15413E+02,0.99900E+03);
551 //     AliMedium(76,"SPDBUS(AL+KPT+EPOX)$",76,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
552                
553
554 //     AliMixture(80,"SDD HV microcable$",aHVm,zHVm,dHVm,5,wHVm);
555 //     AliMedium(80,"SDD HV microcable$",80,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
556
557 //     AliMixture(81,"SDD LV+signal cable$",aLVm,zLVm,dLVm,5,wLVm);
558 //     AliMedium(81,"SDD LV+signal cable$",81,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
559
560 //     AliMixture(82,"SDD hybrid microcab$",aHLVm, zHLVm,dHLVm,5,wHLVm);
561 //     AliMedium(82,"SDD hybrid microcab$",82,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
562
563 //     AliMixture(83,"SDD anode microcab$",aALVm,zALVm,dALVm,5,wALVm);
564 //     AliMedium(83,"SDD anode microcab$",83,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
565
566 //     AliMaterial(84,"SDD/SSD rings$",0.123565E+02,0.64561E+01,0.18097E+01,0.229570E+02,0.99900E+03);
567 //     AliMedium(84,"SDD/SSD rings$",84,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
568
569 //     AliMixture(85,"inox/alum$",aInAl,zInAl,dInAl,5,wInAl);
570 //     AliMedium(85,"inox/alum$",85,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
571
572
573 //     // special media to take into account services in the SDD and SSD 
574 //     // cones for the FMD
575
576 //        Float_t aA[13],zZ[13],wW[13],den;
577 //     // From Pierluigi Barberis calculations of 2SPD+1SDD October 2 2002.
578 //     zZ[0] = 1.0; aA[0] = 1.00794; // Hydrogen
579 //     zZ[1] = 6.0; aA[1] = 12.011; // Carbon
580 //     zZ[2] = 7.0; aA[2] = 14.00674; // Nitrogen
581 //     zZ[3] = 8.0; aA[3] = 15.9994; // Oxigen
582 //     zZ[4] = 14.0; aA[4] = 28.0855; // Silicon
583 //     zZ[5] = 24.0; aA[5] = 51.9961; //Cromium
584 //     zZ[6] = 25.0; aA[6] = 54.938049; // Manganese
585 //     zZ[7] = 26.0; aA[7] = 55.845; // Iron
586 //     zZ[8] = 28.0; aA[8] = 58.6934; // Nickle
587 //     zZ[9] = 29.0; aA[9] = 63.546; // Copper
588 //     zZ[10] = 13.0; aA[10] = 26.981539; // Alulminum
589 //     zZ[11] = 47.0; aA[11] = 107.8682; // Silver
590 //     zZ[12] = 27.0; aA[12] = 58.9332; // Cobolt
591 //     wW[0] = 0.019965;
592 //     wW[1] = 0.340961;
593 //     wW[2] = 0.041225;
594 //     wW[3] = 0.200352;
595 //     wW[4] = 0.000386;
596 //     wW[5] = 0.001467;
597 //     wW[6] = 0.000155;
598 //     wW[7] = 0.005113;
599 //     wW[8] = 0.000993;
600 //     wW[9] = 0.381262;
601 //     wW[10] = 0.008121;
602 //     wW[11] = 0.000000;
603 //     wW[12] = 0.000000;
604 //     if(fByThick){// New values seeITS_MatBudget_4B.xls
605 //      den = 1.5253276; // g/cm^3  Cell O370
606 //     }else{
607 //      den = 2.58423412; // g/cm^3 Cell L370
608 //     } // end if fByThick
609 //     //den = 6161.7/(3671.58978);//g/cm^3 Volume does not exclude holes
610 //     AliMixture(86,"AIRFMDSDD$",aA,zZ,den,+11,wW);
611 //     AliMedium(86,"AIRFMDSDD$",86,0,ifield,fieldm,tmaxfdAir,stemaxAir,
612 //            deemaxAir,epsilAir,stminAir);
613
614
615 //     wW[0] = 0.019777;
616 //     wW[1] = 0.325901;
617 //     wW[2] = 0.031848;
618 //     wW[3] = 0.147668;
619 //     wW[4] = 0.030609;
620 //     wW[5] = 0.013993;
621 //     wW[6] = 0.001479;
622 //     wW[7] = 0.048792;
623 //     wW[8] = 0.009477;
624 //     wW[9] = 0.350697;
625 //     wW[10] = 0.014546;
626 //     wW[11] = 0.005213;
627 //     wW[12] = 0.000000;
628 //     if(fByThick){// New values seeITS_MatBudget_4B.xls
629 //      den = 1.2464275; // g/cm^3   Cell O403
630 //     }else{
631 //      den = 1.28134409; // g/cm^3  Cell L403
632 //     } // end if fByThick
633 //     //den = 7666.3/(9753.553259); // volume does not exclude holes
634 //     AliMixture(87,"AIRFMDSSD$",aA,zZ,den,+12,wW); 
635 //     AliMedium(87,"AIRFMDSSD$",87,0,ifield,fieldm,tmaxfdAir,stemaxAir,
636 //            deemaxAir,epsilAir,stminAir);
637
638 //     wW[0] = 0.016302;
639 //     wW[1] = 0.461870;
640 //     wW[2] = 0.033662;
641 //     wW[3] = 0.163595;
642 //     wW[4] = 0.000315;
643 //     wW[5] = 0.001197;
644 //     wW[6] = 0.000127;
645 //     wW[7] = 0.004175;
646 //     wW[8] = 0.000811;
647 //     wW[9] = 0.311315;
648 //     wW[10] = 0.006631;
649 //     wW[11] = 0.000000;
650 //     wW[12] = 0.000000;
651 //     if(fByThick){// New values seeITS_MatBudget_4B.xls
652 //      den = 1.9353276; // g/cm^3  Cell N370
653 //     }else{
654 //      den = 3.2788626; // g/cm^3 Cell F370
655 //     } // end if fByThick
656 //     //den = 7667.1/(3671.58978); // Volume does not excludeholes
657 //     AliMixture(88,"ITS SANDW CFMDSDD$",aA,zZ,den,+11,wW); 
658 //     AliMedium(88,"ITS SANDW CFMDSDD$",88,0,ifield,fieldm,tmaxfd,stemax,
659 //            deemax,epsil,stmin);
660
661 //     wW[0] = 0.014065;
662 //     wW[1] = 0.520598;
663 //     wW[2] = 0.022650;
664 //     wW[3] = 0.105018;
665 //     wW[4] = 0.021768;
666 //     wW[5] = 0.009952;
667 //     wW[6] = 0.001051;
668 //     wW[7] = 0.034700;
669 //     wW[8] = 0.006740;
670 //     wW[9] = 0.249406;
671 //     wW[10] = 0.010345;
672 //     wW[11] = 0.0003707;
673 //     wW[12] = 0.000000;
674 //     if(fByThick){// New values seeITS_MatBudget_4B.xls
675 //      den = 1.6564275; // g/cm^3  Cell N304
676 //     }else{
677 //      den = 1.7028296; // g/cm^3  Cell F304
678 //     } // end if fByThick
679 //     //den = 1166.5/(3671.58978); // Volume does not exclude holes
680 //     AliMixture(89,"ITS SANDW CFMDSSD$",aA,zZ,den,+12,wW); 
681 //     AliMedium(89,"ITS SANDW CFMDSSD$",89,0,ifield,fieldm,tmaxfd,stemax,
682 //            deemax,epsil,stmin);
683
684 //     wW[0] = 0.005970;
685 //     wW[1] = 0.304704;
686 //     wW[2] = 0.042510;
687 //     wW[3] = 0.121715;
688 //     wW[4] = 0.001118;
689 //     wW[5] = 0.030948;
690 //     wW[6] = 0.003270;
691 //     wW[7] = 0.107910;
692 //     wW[8] = 0.020960;
693 //     wW[9] = 0.360895;
694 //     wW[10] = 0.000000;
695 //     wW[11] = 0.000000;
696 //     wW[12] = 0.000000;
697 //     if(fByThick){// New values seeITS_MatBudget_4B.xls
698 //      den = 80.31136576; // g/cm^3 Cell H329
699 //     }else{
700 //      den = 87.13062; // g/cm^3  Cell G329
701 //     } // end if fByThick
702 //     //den = 1251.3/(0.05*2.0*TMath::Pi()*(7.75*7.75 - 3.7*3.7)); // g/cm^3
703 //     AliMixture(97,"SPD SERVICES$",aA,zZ,den,+10,wW); 
704 //     AliMedium(97,"SPD SERVICES$",97,0,ifield,fieldm,tmaxfd,stemax,
705 //            deemax,epsil,stmin);
706
707 //     // Special media
708
709 //     AliMaterial(90,"SPD shield$", 12.011, 6., 1.93/10. , 22.1*10., 999);
710 //     AliMedium(90,"SPD shield$",90,0,ifield,fieldm,tmaxfdServ,stemaxServ,
711 //            deemaxServ,epsilServ,stminServ);
712
713 //     AliMaterial(91, "SPD End ladder$", 47.0447, 21.7963, 3.6374, 4.4711, 999); 
714 //     AliMedium(91,"SPD End ladder$",91,0,ifield,fieldm,tmaxfdServ,stemaxServ,
715 //            deemaxServ,epsilServ,stminServ);
716
717 //     AliMaterial(92, "SPD cone$",28.0855, 14., 2.33, 9.36, 999);    
718 //     AliMedium(92,"SPD cone$",92,0,ifield,fieldm,tmaxfdServ,stemaxServ,
719 //            deemaxServ,epsilServ,stminServ);
720
721 // //     Material with fractional Z not actually used
722 // //     AliMaterial(93, "SDD End ladder$", 69.9298, 29.8246, 0.3824, 36.5103, 999);
723 // //     AliMedium(93,"SDD End ladder$",93,0,ifield,fieldm,tmaxfdServ,stemaxServ,
724 // //               deemaxServ,epsilServ,stminServ);
725
726 //     AliMaterial(94, "SDD cone$",63.546, 29., 1.15, 1.265, 999);
727 //     AliMedium(94,"SDD cone$",94,0,ifield,fieldm,tmaxfdServ,stemaxServ,
728 //            deemaxServ,epsilServ,stminServ);
729
730 // //     Material with fractional Z not actually used
731 // //     AliMaterial(95, "SSD End ladder$", 32.0988, 15.4021, 0.68, 35.3238, 999); 
732 // //     AliMedium(95,"SSD End ladder$",95,0,ifield,fieldm,tmaxfdServ,stemaxServ,
733 // //     deemaxServ,epsilServ,stminServ);
734
735 //     AliMaterial(96, "SSD cone$",63.546, 29., 1.15, 1.265, 999);
736 //     AliMedium(96,"SSD cone$",96,0,ifield,fieldm,tmaxfdServ,stemaxServ,
737 //            deemaxServ,epsilServ,stminServ);
738
739
740     Int_t   ifield = gAlice->Field()->Integ();
741     Float_t fieldm = gAlice->Field()->Max();
742
743     Float_t tmaxfd = 0.1; // 1.0; // Degree
744     Float_t stemax = 1.0; // cm
745     Float_t deemax = 0.1; // 30.0; // Fraction of particle's energy 0<deemax<=1
746     Float_t epsil  = 1.0E-4; // 1.0; // cm
747     Float_t stmin  = 0.0; // cm "Default value used"
748
749     Float_t tmaxfdSi = 0.1; // .10000E+01; // Degree
750     Float_t stemaxSi = 0.0075; //  .10000E+01; // cm
751     Float_t deemaxSi = 0.1; // 0.30000E-02; // Fraction of particle's energy 0<deemax<=1
752     Float_t epsilSi  = 1.0E-4;// .10000E+01;
753     Float_t stminSi  = 0.0; // cm "Default value used"
754
755     Float_t tmaxfdAir = 0.1; // .10000E+01; // Degree
756     Float_t stemaxAir = .10000E+01; // cm
757     Float_t deemaxAir = 0.1; // 0.30000E-02; // Fraction of particle's energy 0<deemax<=1
758     Float_t epsilAir  = 1.0E-4;// .10000E+01;
759     Float_t stminAir  = 0.0; // cm "Default value used"
760
761     Float_t tmaxfdServ = 1.0; // 10.0; // Degree
762     Float_t stemaxServ = 1.0; // 0.01; // cm
763     Float_t deemaxServ = 0.5; // 0.1; // Fraction of particle's energy 0<deemax<=1
764     Float_t epsilServ  = 1.0E-3; // 0.003; // cm
765     Float_t stminServ  = 0.0; //0.003; // cm "Default value used"
766
767     // Freon PerFluorobuthane C4F10 see 
768     // http://st-support-cooling-electronics.web.cern.ch/
769     //        st-support-cooling-electronics/default.htm
770     Float_t afre[2]  = { 12.011,18.9984032 };
771     Float_t zfre[2]  = { 6., 9. };
772     Float_t wfre[2]  = { 4.,10. };
773     Float_t densfre  = 1.52;
774
775
776     //CM55J
777
778     Float_t aCM55J[4]={12.0107,14.0067,15.9994,1.00794};
779     Float_t zCM55J[4]={6.,7.,8.,1.};
780     Float_t wCM55J[4]={0.908508078,0.010387573,0.055957585,0.025146765};
781     Float_t dCM55J = 1.63;
782
783     //ALCM55J
784
785     Float_t aALCM55J[5]={12.0107,14.0067,15.9994,1.00794,26.981538};
786     Float_t zALCM55J[5]={6.,7.,8.,1.,13.};
787     Float_t wALCM55J[5]={0.817657902,0.0093488157,0.0503618265,0.0226320885,0.1};
788     Float_t dALCM55J = 1.9866;
789
790     //Si Chips
791
792     Float_t aSICHIP[6]={12.0107,14.0067,15.9994,1.00794,28.0855,107.8682};
793     Float_t zSICHIP[6]={6.,7.,8.,1.,14., 47.};
794     Float_t wSICHIP[6]={0.039730642,0.001396798,0.01169634,0.004367771,0.844665,0.09814344903};
795     Float_t dSICHIP = 2.36436;
796
797     //Inox
798     
799     Float_t aINOX[9]={12.0107,54.9380, 28.0855,30.9738,32.066,58.6928,55.9961,95.94,55.845};
800     Float_t zINOX[9]={6.,25.,14.,15.,16., 28.,24.,42.,26.};
801     Float_t wINOX[9]={0.0003,0.02,0.01,0.00045,0.0003,0.12,0.17,0.025,0.654};
802     Float_t dINOX = 8.03;
803
804     //SDD HV microcable
805
806     Float_t aHVm[5]={12.0107,1.00794,14.0067,15.9994,26.981538};
807     Float_t zHVm[5]={6.,1.,7.,8.,13.};
808     Float_t wHVm[5]={0.520088819984,0.01983871336,0.0551367996,0.157399667056, 0.247536};
809     Float_t dHVm = 1.6087;
810
811     //SDD LV+signal cable
812
813     Float_t aLVm[5]={12.0107,1.00794,14.0067,15.9994,26.981538};
814     Float_t zLVm[5]={6.,1.,7.,8.,13.};
815     Float_t wLVm[5]={0.21722436468,0.0082859922,0.023028867,0.06574077612, 0.68572};
816     Float_t dLVm = 2.1035;
817
818     //SDD hybrid microcab
819
820     Float_t aHLVm[5]={12.0107,1.00794,14.0067,15.9994,26.981538};
821     Float_t zHLVm[5]={6.,1.,7.,8.,13.};
822     Float_t wHLVm[5]={0.24281879711,0.00926228815,0.02574224025,0.07348667449, 0.64869};
823     Float_t dHLVm = 2.0502;
824
825     //SDD anode microcab
826
827     Float_t aALVm[5]={12.0107,1.00794,14.0067,15.9994,26.981538};
828     Float_t zALVm[5]={6.,1.,7.,8.,13.};
829     Float_t wALVm[5]={0.392653705471,0.0128595919215,0.041626868025,0.118832707289, 0.431909};
830     Float_t dALVm = 2.0502;
831
832     //X7R capacitors
833
834     Float_t aX7R[7]={137.327,47.867,15.9994,58.6928,63.5460,118.710,207.2};
835     Float_t zX7R[7]={56.,22.,8.,28.,29.,50.,82.};
836     Float_t wX7R[7]={0.251639432,0.084755042,0.085975822,0.038244751,0.009471271,0.321736471,0.2081768};
837     Float_t dX7R = 7.14567;
838
839     // AIR
840
841     Float_t aAir[4]={12.0107,14.0067,15.9994,39.948};
842     Float_t zAir[4]={6.,7.,8.,18.};
843     Float_t wAir[4]={0.000124,0.755267,0.231781,0.012827};
844     Float_t dAir = 1.20479E-3;
845
846     // Water
847
848     Float_t aWater[2]={1.00794,15.9994};
849     Float_t zWater[2]={1.,8.};
850     Float_t wWater[2]={0.111894,0.888106};
851     Float_t dWater   = 1.0;
852
853     // CERAMICS
854   //     94.4% Al2O3 , 2.8% SiO2 , 2.3% MnO , 0.5% Cr2O3
855     Float_t acer[5]  = { 26.981539,15.9994,28.0855,54.93805,51.9961 };
856     Float_t zcer[5]  = {       13.,     8.,    14.,     25.,    24. };
857     Float_t wcer[5]  = {.4443408,.5213375,.0130872,.0178135,.003421};
858     Float_t denscer  = 3.6;
859
860     //G10FR4
861
862     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};
863     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};
864     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};
865     Float_t densG10FR4= 1.8;
866     
867      //--- EPOXY  --- C18 H19 O3
868       Float_t aEpoxy[3] = {15.9994, 1.00794, 12.0107} ; 
869       Float_t zEpoxy[3] = {     8.,      1.,      6.} ; 
870       Float_t wEpoxy[3] = {     3.,     19.,     18.} ; 
871       Float_t dEpoxy = 1.8 ;
872
873       // rohacell: C9 H13 N1 O2
874     Float_t arohac[4] = {12.01,  1.01, 14.010, 16.};
875     Float_t zrohac[4] = { 6.,    1.,    7.,     8.};
876     Float_t wrohac[4] = { 9.,   13.,    1.,     2.};
877     Float_t drohac    = 0.05;
878
879     // If he/she means stainless steel (inox) + Aluminium and Zeff=15.3383 then
880 //
881 // %Al=81.6164 %inox=100-%Al
882
883     Float_t aInAl[5] = {27., 55.847,51.9961,58.6934,28.0855 };
884     Float_t zInAl[5] = {13., 26.,24.,28.,14. };
885     Float_t wInAl[5] = {.816164, .131443,.0330906,.0183836,.000919182};
886     Float_t dInAl    = 3.075;
887
888     // Kapton
889
890     Float_t aKapton[4]={1.00794,12.0107, 14.010,15.9994};
891     Float_t zKapton[4]={1.,6.,7.,8.};
892     Float_t wKapton[4]={0.026362,0.69113,0.07327,0.209235};
893     Float_t dKapton   = 1.42;
894
895     //SDD ruby sph.
896     Float_t aAlOxide[2]  = { 26.981539,15.9994};
897     Float_t zAlOxide[2]  = {       13.,     8.};
898     Float_t wAlOxide[2]  = {0.4707, 0.5293};
899     Float_t dAlOxide     = 3.97;
900
901
902     AliMaterial(1,"SI$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
903     AliMedium(1,"SI$",1,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
904
905     AliMaterial(2,"SPD SI CHIP$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
906     AliMedium(2,"SPD SI CHIP$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
907
908     AliMaterial(3,"SPD SI BUS$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
909     AliMedium(3,"SPD SI BUS$",3,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
910
911     AliMixture(4,"C (M55J)$",aCM55J,zCM55J,dCM55J,4,wCM55J);
912     AliMedium(4,"C (M55J)$",4,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
913
914     AliMixture(5,"AIR$",aAir,zAir,dAir,4,wAir);
915     AliMedium(5,"AIR$",5,0,ifield,fieldm,tmaxfdAir,stemaxAir,deemaxAir,epsilAir,stminAir);
916
917     AliMixture(6,"GEN AIR$",aAir,zAir,dAir,4,wAir);
918     AliMedium(6,"GEN AIR$",6,0,ifield,fieldm,tmaxfdAir,stemaxAir,deemaxAir,epsilAir,stminAir);
919
920     AliMixture(7,"SDD SI CHIP$",aSICHIP,zSICHIP,dSICHIP,6,wSICHIP);
921     AliMedium(7,"SDD SI CHIP$",7,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
922
923     AliMixture(9,"SDD C (M55J)$",aCM55J,zCM55J,dCM55J,4,wCM55J);
924     AliMedium(9,"SDD C (M55J)$",9,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
925
926     AliMixture(10,"SDD AIR$",aAir,zAir,dAir,4,wAir);
927     AliMedium(10,"SDD AIR$",10,0,ifield,fieldm,tmaxfdAir,stemaxAir,deemaxAir,epsilAir,stminAir);
928
929     AliMaterial(11,"AL$",0.26982E+02,0.13000E+02,0.26989E+01,0.89000E+01,0.99900E+03);
930     AliMedium(11,"AL$",11,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
931
932     AliMixture(12, "Water$",aWater,zWater,dWater,2,wWater);
933     AliMedium(12,"WATER$",12,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
934
935     AliMixture(13,"Freon$",afre,zfre,densfre,-2,wfre);
936     AliMedium(13,"Freon$",13,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
937
938     AliMaterial(14,"COPPER$",0.63546E+02,0.29000E+02,0.89600E+01,0.14300E+01,0.99900E+03);
939     AliMedium(14,"COPPER$",14,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
940     AliMixture(15,"CERAMICS$",acer,zcer,denscer,5,wcer);
941     AliMedium(15,"CERAMICS$",15,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
942
943     AliMixture(20,"SSD C (M55J)$",aCM55J,zCM55J,dCM55J,4,wCM55J);
944     AliMedium(20,"SSD C (M55J)$",20,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
945
946     AliMixture(21,"SSD AIR$",aAir,zAir,dAir,4,wAir);
947     AliMedium(21,"SSD AIR$",21,0,ifield,fieldm,tmaxfdAir,stemaxAir,deemaxAir,epsilAir,stminAir);
948
949     AliMixture(25,"G10FR4$",aG10FR4,zG10FR4,densG10FR4,14,wG10FR4);
950     AliMedium(25,"G10FR4$",25,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
951
952      AliMixture(26,"GEN C (M55J)$",aCM55J,zCM55J,dCM55J,4,wCM55J);
953     AliMedium(26,"GEN C (M55J)$",26,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
954
955     AliMixture(27,"GEN Air$",aAir,zAir,dAir,4,wAir);
956     AliMedium(27,"GEN Air$",27,0,ifield,fieldm,tmaxfdAir,stemaxAir,deemaxAir,epsilAir,stminAir);
957
958     AliMaterial(51,"SPD SI$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
959     AliMedium(51,"SPD SI$",51,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
960
961     AliMaterial(52,"SPD SI CHIP$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
962     AliMedium(52,"SPD SI CHIP$",52,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
963
964     AliMaterial(53,"SPD SI BUS$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
965     AliMedium(53,"SPD SI BUS$",53,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
966
967     AliMixture(54,"SPD C (M55J)$",aCM55J,zCM55J,dCM55J,4,wCM55J);
968     AliMedium(54,"SPD C (M55J)$",54,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
969
970     AliMixture(55,"SPD AIR$",aAir,zAir,dAir,4,wAir);
971     AliMedium(55,"SPD AIR$",55,0,ifield,fieldm,tmaxfdAir,stemaxAir,deemaxAir,epsilAir,stminAir);
972
973     AliMixture(56, "SPD KAPTON(POLYCH2)", aKapton, zKapton, dKapton, 4, wKapton);
974     AliMedium(56,"SPD KAPTON(POLYCH2)$",56,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
975
976     AliMixture(61,"EPOXY$",aEpoxy,zEpoxy,dEpoxy,-3,wEpoxy);
977     AliMedium(61,"EPOXY$",61,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
978
979     AliMaterial(62,"SILICON$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
980     AliMedium(62,"SILICON$",62,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
981
982     AliMixture(63, "KAPTONH(POLYCH2)", aKapton, zKapton, dKapton, 4, wKapton);
983     AliMedium(63,"KAPTONH(POLYCH2)$",63,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
984
985     AliMaterial(64,"ALUMINUM$",0.26982E+02,0.13000E+02,0.26989E+01,0.89000E+01,0.99900E+03);
986     AliMedium(64,"ALUMINUM$",64,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
987
988     AliMixture(65,"INOX$",aINOX,zINOX,dINOX,9,wINOX);
989     AliMedium(65,"INOX$",65,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
990
991     AliMixture(68,"ROHACELL$",arohac,zrohac,drohac,-4,wrohac);
992     AliMedium(68,"ROHACELL$",68,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
993
994      AliMixture(69,"SDD C AL (M55J)$",aALCM55J,zALCM55J,dALCM55J,5,wALCM55J);
995     AliMedium(69,"SDD C AL (M55J)$",69,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
996   
997     AliMixture(70, "SDDKAPTON (POLYCH2)", aKapton, zKapton, dKapton, 4, wKapton);
998     AliMedium(70,"SDDKAPTON (POLYCH2)$",70,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
999
1000      AliMaterial(71,"ITS SANDW A$",0.12011E+02,0.60000E+01,0.2115E+00,0.17479E+03,0.99900E+03);
1001     AliMedium(71,"ITS SANDW A$",71,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1002
1003     AliMaterial(72,"ITS SANDW B$",0.12011E+02,0.60000E+01,0.27000E+00,0.18956E+03,0.99900E+03);
1004     AliMedium(72,"ITS SANDW B$",72,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1005
1006     AliMaterial(73,"ITS SANDW C$",0.12011E+02,0.60000E+01,0.41000E+00,0.90868E+02,0.99900E+03);
1007     AliMedium(73,"ITS SANDW C$",73,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1008
1009     AliMaterial(74,"HEAT COND GLUE$",0.12011E+02,0.60000E+01,0.1930E+01,0.22100E+02,0.99900E+03);
1010     AliMedium(74,"HEAT COND GLUE$",74,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1011
1012     AliMaterial(75,"ELASTO SIL$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
1013     AliMedium(75,"ELASTO SIL$",75,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1014
1015     // SPD bus (data from Petra Riedler)
1016     Float_t aSPDbus[5] = {1.00794,12.0107,14.01,15.9994,26.982 };
1017     Float_t zSPDbus[5] = {1.,6.,7.,8.,13.};
1018     Float_t wSPDbus[5] = {0.023523,0.318053,0.009776,0.078057,0.570591};
1019     Float_t dSPDbus    = 2.128505;
1020
1021     //   AliMaterial(76,"SPDBUS(AL+KPT+EPOX)$",0.19509E+02,0.96502E+01,0.19060E+01,0.15413E+02,0.99900E+03);
1022     AliMixture(76,"SPDBUS(AL+KPT+EPOX)$",aSPDbus,zSPDbus,dSPDbus,5,wSPDbus);
1023     AliMedium(76,"SPDBUS(AL+KPT+EPOX)$",76,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1024                
1025     AliMixture(77,"SDD X7R capacitors$",aX7R,zX7R,dX7R,7,wX7R);
1026     AliMedium(77,"SDD X7R capacitors$",77,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1027
1028     AliMixture(78,"SDD ruby sph. Al2O3$",aAlOxide,zAlOxide,dAlOxide,2,wAlOxide);
1029     AliMedium(78,"SDD ruby sph. Al2O3$",78,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1030
1031     AliMaterial(79,"SDD SI insensitive$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
1032     AliMedium(79,"SDD SI insensitive$",79,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1033
1034     AliMixture(80,"SDD HV microcable$",aHVm,zHVm,dHVm,5,wHVm);
1035     AliMedium(80,"SDD HV microcable$",80,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1036
1037     AliMixture(81,"SDD LV+signal cable$",aLVm,zLVm,dLVm,5,wLVm);
1038     AliMedium(81,"SDD LV+signal cable$",81,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1039
1040     AliMixture(82,"SDD hybrid microcab$",aHLVm, zHLVm,dHLVm,5,wHLVm);
1041     AliMedium(82,"SDD hybrid microcab$",82,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1042
1043     AliMixture(83,"SDD anode microcab$",aALVm,zALVm,dALVm,5,wALVm);
1044     AliMedium(83,"SDD anode microcab$",83,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1045     Float_t aDSring[4]={12.0107,      1.00794,     14.0067,      15.9994};
1046     Float_t zDSring[4]={ 6.,          1.,           7.,           8.};
1047     Float_t wDSring[4]={ 0.854323888, 0.026408778,  0.023050265,  0.096217069};
1048     Float_t dDSring = 0.2875;
1049     AliMixture(84,"SDD/SSD rings$",aDSring,zDSring,dDSring,4,wDSring);
1050     AliMedium(84,"SDD/SSD rings$",84,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1051
1052     AliMixture(85,"inox/alum$",aInAl,zInAl,dInAl,5,wInAl);
1053     AliMedium(85,"inox/alum$",85,0,ifield,fieldm,tmaxfd,stemax,deemax,epsil,stmin);
1054
1055     // special media to take into account services in the SDD and SSD 
1056     // cones for the FMD
1057     //Begin_Html
1058     /*
1059       <A HREF="http://www.Physics.ohio-state.edu/~nilsen/ITS/ITS_MatBudget_4B.xls">
1060       </pre>
1061       <br clear=left>
1062       <font size=+2 color=blue>
1063       <p> The Exel spread sheet from which these density number come from.
1064       </font></A>
1065     */
1066     //End_Html
1067
1068     //  AliMaterial(86,"AIRFMDSDD$",0.14610E+02,0.73000E+01,0.12050E-02,0.30423E+05,0.99900E+03);
1069     Float_t aA[13],zZ[13],wW[13],den;
1070     // From Pierluigi Barberis calculations of 2SPD+1SDD October 2 2002.
1071     zZ[0] = 1.0; aA[0] = 1.00794; // Hydrogen
1072     zZ[1] = 6.0; aA[1] = 12.011; // Carbon
1073     zZ[2] = 7.0; aA[2] = 14.00674; // Nitrogen
1074     zZ[3] = 8.0; aA[3] = 15.9994; // Oxigen
1075     zZ[4] = 14.0; aA[4] = 28.0855; // Silicon
1076     zZ[5] = 24.0; aA[5] = 51.9961; //Cromium
1077     zZ[6] = 25.0; aA[6] = 54.938049; // Manganese
1078     zZ[7] = 26.0; aA[7] = 55.845; // Iron
1079     zZ[8] = 28.0; aA[8] = 58.6934; // Nickle
1080     zZ[9] = 29.0; aA[9] = 63.546; // Copper
1081     zZ[10] = 13.0; aA[10] = 26.981539; // Alulminum
1082     zZ[11] = 47.0; aA[11] = 107.8682; // Silver
1083     zZ[12] = 27.0; aA[12] = 58.9332; // Cobolt
1084     wW[0] = 0.019965;
1085     wW[1] = 0.340961;
1086     wW[2] = 0.041225;
1087     wW[3] = 0.200352;
1088     wW[4] = 0.000386;
1089     wW[5] = 0.001467;
1090     wW[6] = 0.000155;
1091     wW[7] = 0.005113;
1092     wW[8] = 0.000993;
1093     wW[9] = 0.381262;
1094     wW[10] = 0.008121;
1095     wW[11] = 0.000000;
1096     wW[12] = 0.000000;
1097     if(fByThick){// New values seeITS_MatBudget_4B.xls
1098         den = 1.5253276; // g/cm^3  Cell O370
1099     }else{
1100         den = 2.58423412; // g/cm^3 Cell L370
1101     } // end if fByThick
1102     //den = 6161.7/(3671.58978);//g/cm^3 Volume does not exclude holes
1103     AliMixture(86,"AIRFMDSDD$",aA,zZ,den,+11,wW);
1104     AliMedium(86,"AIRFMDSDD$",86,0,ifield,fieldm,tmaxfdAir,stemaxAir,
1105               deemaxAir,epsilAir,stminAir);
1106
1107     //AliMaterial(87,"AIRFMDSSD$",0.14610E+02,0.73000E+01,0.12050E-02,0.30423E+05,0.99900E+03);
1108     // From Pierluigi Barberis calculations of SSD October 2 2002.
1109     wW[0] = 0.019777;
1110     wW[1] = 0.325901;
1111     wW[2] = 0.031848;
1112     wW[3] = 0.147668;
1113     wW[4] = 0.030609;
1114     wW[5] = 0.013993;
1115     wW[6] = 0.001479;
1116     wW[7] = 0.048792;
1117     wW[8] = 0.009477;
1118     wW[9] = 0.350697;
1119     wW[10] = 0.014546;
1120     wW[11] = 0.005213;
1121     wW[12] = 0.000000;
1122     if(fByThick){// New values seeITS_MatBudget_4B.xls
1123         den = 1.2464275; // g/cm^3   Cell O403
1124     }else{
1125         den = 1.28134409; // g/cm^3  Cell L403
1126     } // end if fByThick
1127     //den = 7666.3/(9753.553259); // volume does not exclude holes
1128     AliMixture(87,"AIRFMDSSD$",aA,zZ,den,+12,wW); 
1129     AliMedium(87,"AIRFMDSSD$",87,0,ifield,fieldm,tmaxfdAir,stemaxAir,
1130               deemaxAir,epsilAir,stminAir);
1131
1132     //AliMaterial(88,"ITS SANDW CFMDSDD$",0.12011E+02,0.60000E+01,0.41000E+00,0.90868E+02,0.99900E+03);
1133     // From Pierluigi Barberis calculations of 1SDD+Carbon fiber October 2 2002
1134     wW[0] = 0.016302;
1135     wW[1] = 0.461870;
1136     wW[2] = 0.033662;
1137     wW[3] = 0.163595;
1138     wW[4] = 0.000315;
1139     wW[5] = 0.001197;
1140     wW[6] = 0.000127;
1141     wW[7] = 0.004175;
1142     wW[8] = 0.000811;
1143     wW[9] = 0.311315;
1144     wW[10] = 0.006631;
1145     wW[11] = 0.000000;
1146     wW[12] = 0.000000;
1147     if(fByThick){// New values seeITS_MatBudget_4B.xls
1148         den = 1.9353276; // g/cm^3  Cell N370
1149     }else{
1150         den = 3.2788626; // g/cm^3 Cell F370
1151     } // end if fByThick
1152     //den = 7667.1/(3671.58978); // Volume does not excludeholes
1153     AliMixture(88,"ITS SANDW CFMDSDD$",aA,zZ,den,+11,wW); 
1154     AliMedium(88,"ITS SANDW CFMDSDD$",88,0,ifield,fieldm,tmaxfd,stemax,
1155               deemax,epsil,stmin);
1156
1157     //AliMaterial(89,"ITS SANDW CFMDSSD$",0.12011E+02,0.60000E+01,0.41000E+00,0.90868E+02,0.99900E+03);
1158     // From Pierluigi Barberis calculations of SSD+Carbon fiber October 2 2002.
1159     wW[0] = 0.014065;
1160     wW[1] = 0.520598;
1161     wW[2] = 0.022650;
1162     wW[3] = 0.105018;
1163     wW[4] = 0.021768;
1164     wW[5] = 0.009952;
1165     wW[6] = 0.001051;
1166     wW[7] = 0.034700;
1167     wW[8] = 0.006740;
1168     wW[9] = 0.249406;
1169     wW[10] = 0.010345;
1170     wW[11] = 0.0003707;
1171     wW[12] = 0.000000;
1172     if(fByThick){// New values seeITS_MatBudget_4B.xls
1173         den = 1.6564275; // g/cm^3  Cell N304
1174     }else{
1175         den = 1.7028296; // g/cm^3  Cell F304
1176     } // end if fByThick
1177     //den = 1166.5/(3671.58978); // Volume does not exclude holes
1178     AliMixture(89,"ITS SANDW CFMDSSD$",aA,zZ,den,+12,wW); 
1179     AliMedium(89,"ITS SANDW CFMDSSD$",89,0,ifield,fieldm,tmaxfd,stemax,
1180               deemax,epsil,stmin);
1181
1182     //AliMaterial(97,"SPD SERVICES$",0.12011E+02,0.60000E+01,0.41000E+00,0.90868E+02,0.99900E+03);
1183     // From Pierluigi Barberis calculations of 1SPD October 2 2002.
1184     wW[0] = 0.005970;
1185     wW[1] = 0.304704;
1186     wW[2] = 0.042510;
1187     wW[3] = 0.121715;
1188     wW[4] = 0.001118;
1189     wW[5] = 0.030948;
1190     wW[6] = 0.003270;
1191     wW[7] = 0.107910;
1192     wW[8] = 0.020960;
1193     wW[9] = 0.360895;
1194     wW[10] = 0.000000;
1195     wW[11] = 0.000000;
1196     wW[12] = 0.000000;
1197     if(fByThick){// New values seeITS_MatBudget_4B.xls
1198         den = 80.31136576; // g/cm^3 Cell H329
1199     }else{
1200         den = 87.13062; // g/cm^3  Cell G329
1201     } // end if fByThick
1202     //den = 1251.3/(0.05*2.0*TMath::Pi()*(7.75*7.75 - 3.7*3.7)); // g/cm^3
1203     AliMixture(97,"SPD SERVICES$",aA,zZ,den,+10,wW); 
1204     AliMedium(97,"SPD SERVICES$",97,0,ifield,fieldm,tmaxfd,stemax,
1205               deemax,epsil,stmin);
1206
1207
1208     // Special media
1209
1210     AliMaterial(90,"SPD shield$", 12.011, 6., 1.93/10. , 22.1*10., 999);
1211     AliMedium(90,"SPD shield$",90,0,ifield,fieldm,tmaxfdServ,stemaxServ,deemaxServ,epsilServ,stminServ);
1212
1213     // SPD End Ladder (data from Petra Riedler)
1214     Float_t aSPDel[5] = {1.00794,12.0107,14.01,15.9994,63.54 };
1215     Float_t zSPDel[5] = {1.,6.,7.,8.,29.};
1216     Float_t wSPDel[5] = {0.004092,0.107274,0.011438,0.032476,0.844719};
1217     Float_t dSPDel    = 3.903403;
1218
1219     //   AliMaterial(91, "SPD End ladder$", 47.0447, 21.7963, 3.6374, 4.4711, 999); 
1220     AliMixture(91,"SPD End ladder$",aSPDel,zSPDel,dSPDel,5,wSPDel);
1221     AliMedium(91,"SPD End ladder$",91,0,ifield,fieldm,tmaxfdServ,stemaxServ,deemaxServ,epsilServ,stminServ);
1222
1223     AliMaterial(92, "SPD cone$",28.0855, 14., 2.33, 9.36, 999);    
1224     AliMedium(92,"SPD cone$",92,0,ifield,fieldm,tmaxfdServ,stemaxServ,deemaxServ,epsilServ,stminServ);
1225     /*  Material with fractional Z not actually used
1226     AliMaterial(93, "SDD End ladder$", 69.9298, 29.8246, 0.3824, 36.5103, 999);
1227     AliMedium(93,"SDD End ladder$",93,0,ifield,fieldm,tmaxfdServ,stemaxServ,deemaxServ,epsilServ,stminServ);
1228     */
1229     AliMaterial(94, "SDD cone$",63.546, 29., 1.15, 1.265, 999);
1230     AliMedium(94,"SDD cone$",94,0,ifield,fieldm,tmaxfdServ,stemaxServ,deemaxServ,epsilServ,stminServ);
1231     /* Material with fractional Z not actually used
1232     AliMaterial(95, "SSD End ladder$", 32.0988, 15.4021, 0.68, 35.3238, 999); 
1233     AliMedium(95,"SSD End ladder$",95,0,ifield,fieldm,tmaxfdServ,stemaxServ,deemaxServ,epsilServ,stminServ);
1234     */
1235     AliMaterial(96, "SSD cone$",63.546, 29., 1.15, 1.265, 999);
1236     AliMedium(96,"SSD cone$",96,0,ifield,fieldm,tmaxfdServ,stemaxServ,deemaxServ,epsilServ,stminServ);
1237
1238 }
1239
1240
1241 //______________________________________________________________________
1242 void AliITSv11::InitAliITSgeom(){
1243   //
1244   // Fill fITSgeom with the 3 sub-detector geometries
1245   //
1246
1247     const Int_t knlayers = 6;
1248     const Int_t kndeep = 3;
1249     const AliITSDetector idet[knlayers]={kSPD,kSPD,kSDD,kSDD,kSSD,kSSD};
1250     const TString names[knlayers] = {
1251
1252       "",  // lay=1
1253       "",  // lay=2
1254       "/ALIC_1/ITSV_1/ITSsddLayer3_1/ITSsddLadd_%d/ITSsddSensor_%d/ITSsddWafer_%d", // lay=3
1255       "/ALIC_1/ITSV_1/ITSsddLayer4_1/ITSsddLadd_%d/ITSsddSensor_%d/ITSsddWafer_%d", // lay=4
1256       "",  // lay=5
1257       ""}; // lay=6
1258
1259     const Int_t itsGeomTreeCopys[knlayers][kndeep]= {{10, 2, 4},// lay=1
1260                                                      {10, 4, 4},// lay=2
1261                                                      {14, 6, 1},// lay=3
1262                                                      {22, 8, 1},// lay=4
1263                                                      {34,22, 1},// lay=5
1264                                                      {38,25, 1}};//lay=6
1265     Int_t       nlad[knlayers],ndet[knlayers];
1266     Int_t       mod,lay,lad=0,det=0,i,j,k,cp0,cp1,cp2;
1267     TString path,shapeName;
1268     TGeoHMatrix materix;
1269     Double_t trans[3]={3*0.0},rot[10]={9*0.0,1.0};
1270     TArrayD shapePar;
1271     TArrayF shapeParF;
1272
1273     AliDebug(1,"Reading Geometry transformation directly from Modler.");
1274     mod = 0;
1275     for(i=0;i<knlayers;i++){
1276         k = 1;
1277         for(j=0;j<kndeep;j++) if(itsGeomTreeCopys[i][j]!=0)
1278             k *= TMath::Abs(itsGeomTreeCopys[i][j]);
1279         mod += k;
1280     } // end for i
1281
1282     if(GetITSgeom()!=0) delete GetITSgeom();
1283     SetITSgeom(0);
1284     nlad[0]=20;nlad[1]=40;nlad[2]=14;nlad[3]=22;nlad[4]=34;nlad[5]=38;
1285     ndet[0]= 4;ndet[1]= 4;ndet[2]= 6;ndet[3]= 8;ndet[4]=22;ndet[5]=25;
1286     AliITSgeom* geom = new AliITSgeom(0,6,nlad,ndet,mod);
1287     SetITSgeom(geom);
1288     mod = 0;
1289     for(lay=1;lay<=knlayers;lay++){
1290         for(cp0=1;cp0<=itsGeomTreeCopys[lay-1][0];cp0++){
1291             for(cp1=1;cp1<=itsGeomTreeCopys[lay-1][1];cp1++){
1292                 for(cp2=1;cp2<=itsGeomTreeCopys[lay-1][2];cp2++){
1293                     path.Form(names[lay-1].Data(),
1294                               cp0,cp1,cp2);
1295                     switch (lay){
1296                     case 1:{
1297                         det = cp2;
1298                         lad = cp1+2*(cp0-1);
1299                     }break;
1300                     case 2:{
1301                         det = cp2;
1302                         lad = cp1+4*(cp0-1);
1303                     } break;
1304                     case 3: case 4: case 5: case 6:{
1305                         det = cp1;
1306                         lad = cp0;
1307                     } break;
1308                     } // end switch
1309                          //AliInfo(Form("path=%s lay=%d lad=%d det=%d",
1310                          //             path.Data(),lay,lad,det));
1311                     gMC->GetTransformation(path.Data(),materix);
1312                     gMC->GetShape(path.Data(),shapeName,shapePar);
1313                     shapeParF.Set(shapePar.GetSize());
1314                     for(i=0;i<shapePar.GetSize();i++) shapeParF[i]=shapePar[i];
1315                     geom->CreateMatrix(mod,lay,lad,det,idet[lay-1],trans,rot);
1316                     geom->SetTrans(mod,materix.GetTranslation());
1317                     geom->SetRotMatrix(mod,materix.GetRotationMatrix());
1318                     switch (lay){
1319                     case 1: case 2:{
1320                         geom->ReSetShape(kSPD,new AliITSgeomSPD425Short(
1321                                 shapeParF.GetSize(),shapeParF.GetArray()));
1322                     }break;
1323                     case 3: case 4:{
1324                         geom->ReSetShape(kSDD,new AliITSgeomSDD256(
1325                                 shapeParF.GetSize(),shapeParF.GetArray()));
1326                     }break;
1327                     case 5: case 6:{
1328                         geom->ReSetShape(kSSD,new AliITSgeomSSD75and275(
1329                                 shapeParF.GetSize(),shapeParF.GetArray()));
1330                     }break;
1331                     default:{
1332                     }break;
1333                     } // end switch
1334                     mod++;
1335                 } /// end for cp2
1336             } // end for cp1
1337         } // end for cp0
1338     } // end for lay
1339     return;
1340
1341 //   fSDDgeom->ExportSensorGeometry(GetITSgeom(), +3, 0);  //SDD
1342
1343 }
1344
1345
1346 //______________________________________________________________________
1347 void AliITSv11::Init(){
1348   //
1349   //     Initialise the ITS after it has been created.
1350   //
1351
1352   //AliInfo(Form("Minor version %d",fMinorVersion));
1353     //
1354     if(fRead[0]=='\0') strncpy(fRead,fEuclidGeomDet,60);
1355     if(fWrite[0]=='\0') strncpy(fWrite,fEuclidGeomDet,60);
1356     if(GetITSgeom()!=0) SetITSgeom(0x0);
1357     AliITSgeom* geom = new AliITSgeom();
1358     SetITSgeom(geom);
1359     if(fGeomDetIn) GetITSgeom()->ReadNewFile(fRead);
1360     else this->InitAliITSgeom();
1361     if(fGeomDetOut) GetITSgeom()->WriteNewFile(fWrite);
1362     AliITS::Init();
1363     //
1364 }
1365
1366 //______________________________________________________________________
1367 void AliITSv11::SetDefaults(){
1368   //
1369   // Set response ans segmentation models for SPD, SDD and SSD
1370   //
1371      const Float_t kconv = 1.0e+04; // convert cm to microns
1372     AliInfo("Called");    
1373
1374     if(!fDetTypeSim) fDetTypeSim = new AliITSDetTypeSim();
1375     fDetTypeSim->SetITSgeom(GetITSgeom());
1376   
1377     AliITSgeomSPD  *s0;
1378     AliITSgeomSDD  *s1;
1379     AliITSgeomSSD  *s2;
1380     Int_t i;
1381     Float_t bx[256],bz[280];
1382    
1383     fDetTypeSim->ResetCalibrationArray();
1384     fDetTypeSim->ResetSegmentation();
1385     fDetTypeSim->SetDefaults();
1386     
1387     //SPD
1388     s0 = (AliITSgeomSPD*) GetITSgeom()->GetShape(kSPD);// Get shape info. Do it this way for now.
1389     AliITSsegmentationSPD* seg0 = (AliITSsegmentationSPD*)fDetTypeSim->GetSegmentationModel(0);
1390     seg0->SetDetSize(s0->GetDx()*2.*kconv, // base this on AliITSgeomSPD
1391                      s0->GetDz()*2.*kconv, // for now.
1392                      s0->GetDy()*2.*kconv); // x,z,y full width in microns.
1393     seg0->SetNPads(256,160);// Number of Bins in x and z
1394     for(i=000;i<256;i++) bx[i] =  50.0; // in x all are 50 microns.
1395     for(i=000;i<160;i++) bz[i] = 425.0; // most are 425 microns except below
1396     for(i=160;i<280;i++) bz[i] =   0.0; // Outside of detector.
1397     bz[ 31] = bz[ 32] = 625.0; // first chip boundry
1398     bz[ 63] = bz[ 64] = 625.0; // first chip boundry
1399     bz[ 95] = bz[ 96] = 625.0; // first chip boundry
1400     bz[127] = bz[128] = 625.0; // first chip boundry
1401     bz[160] = 425.0; // Set so that there is no zero pixel size for fNz.
1402     seg0->SetBinSize(bx,bz); // Based on AliITSgeomSPD for now.
1403     SetSegmentationModel(kSPD,seg0);
1404     // set digit and raw cluster classes to be used
1405     const char *kData0=(fDetTypeSim->GetCalibrationModel(GetITSgeom()->GetStartSPD()))->DataType();
1406     if (strstr(kData0,"real")) fDetTypeSim->SetDigitClassName(kSPD,"AliITSdigit");
1407     else fDetTypeSim->SetDigitClassName(kSPD,"AliITSdigitSPD");
1408
1409
1410
1411     // SDD
1412     s1 = (AliITSgeomSDD*) GetITSgeom()->GetShape(kSDD);// Get shape info. Do it this way for now.
1413     AliITSsegmentationSDD* seg1 = (AliITSsegmentationSDD*)fDetTypeSim->GetSegmentationModel(1);
1414     seg1->SetDetSize(s1->GetDx()*kconv, // base this on AliITSgeomSDD
1415                      s1->GetDz()*2.*kconv, // for now.
1416                      s1->GetDy()*2.*kconv); // x,z,y full width in microns.
1417     seg1->SetNPads(256,256);// Use AliITSgeomSDD for now
1418     SetSegmentationModel(kSDD,seg1);
1419     const char *kData1=(fDetTypeSim->GetCalibrationModel(GetITSgeom()->GetStartSDD()))->DataType();
1420     AliITSCalibrationSDD* rsp = (AliITSCalibrationSDD*)fDetTypeSim->GetCalibrationModel(GetITSgeom()->GetStartSDD());
1421     const char *kopt=rsp->GetZeroSuppOption();
1422     if((!strstr(kopt,"2D")) && (!strstr(kopt,"1D")) || strstr(kData1,"real") ){
1423         fDetTypeSim->SetDigitClassName(kSDD,"AliITSdigit");
1424     } else fDetTypeSim->SetDigitClassName(kSDD,"AliITSdigitSDD");
1425
1426
1427     // SSD
1428     s2 = (AliITSgeomSSD*) GetITSgeom()->GetShape(kSSD);// Get shape info. Do it this way for now.
1429     AliITSsegmentationSSD* seg2 = (AliITSsegmentationSSD*)fDetTypeSim->GetSegmentationModel(2);
1430     seg2->SetDetSize(s2->GetDx()*2.*kconv, // base this on AliITSgeomSSD
1431                      s2->GetDz()*2.*kconv, // for now.
1432                      s2->GetDy()*2.*kconv); // x,z,y full width in microns.
1433     seg2->SetPadSize(95.,0.); // strip x pitch in microns
1434     seg2->SetNPads(768,0); // number of strips on each side.
1435     seg2->SetAngles(0.0075,0.0275); // strip angels rad P and N side.
1436     seg2->SetAnglesLay5(0.0075,0.0275); // strip angels rad P and N side.
1437     seg2->SetAnglesLay6(0.0275,0.0075); // strip angels rad P and N side.
1438     SetSegmentationModel(kSSD,seg2); 
1439         const char *kData2=(fDetTypeSim->GetCalibrationModel(GetITSgeom()->GetStartSSD()))->DataType();
1440     if(strstr(kData2,"real") ) fDetTypeSim->SetDigitClassName(kSSD,"AliITSdigit");
1441     else fDetTypeSim->SetDigitClassName(kSSD,"AliITSdigitSSD");
1442     if(fgkNTYPES>3){
1443         Warning("SetDefaults",
1444                 "Only the four basic detector types are initialised!");
1445     }// end if
1446
1447     
1448     return;
1449 }
1450
1451
1452 //______________________________________________________________________
1453 void AliITSv11::DrawModule() const{
1454
1455 }
1456
1457 //______________________________________________________________________
1458 void AliITSv11::StepManager(){
1459   //
1460   //    Called for every step in the ITS, then calles the AliITShit class
1461   // creator with the information to be recoreded about that hit.
1462   //
1463     Int_t         copy, id;
1464     TLorentzVector position, momentum;
1465     static TLorentzVector position0;
1466     static Int_t stat0=0;
1467
1468     if(!(this->IsActive())){
1469         return;
1470     } // end if !Active volume.
1471
1472     if(!(gMC->TrackCharge())) return;
1473
1474     id=gMC->CurrentVolID(copy);
1475
1476     Bool_t sensvol = kFALSE;
1477     for(Int_t kk=0;kk<6;kk++)if(id == fIdSens[kk])sensvol=kTRUE;
1478     if(sensvol && (gMC->IsTrackExiting())){
1479         copy = fTrackReferences->GetEntriesFast();
1480         TClonesArray &lTR = *fTrackReferences;
1481         // Fill TrackReference structure with this new TrackReference.
1482         new(lTR[copy]) AliTrackReference(gAlice->GetMCApp()->GetCurrentTrackNumber());
1483     } // if Outer ITS mother Volume
1484
1485
1486     Int_t   copy1,copy2;  
1487     Int_t   vol[5];
1488     TClonesArray &lhits = *fHits;
1489     //
1490     // Track status
1491     vol[3] = 0;
1492     vol[4] = 0;
1493     if(gMC->IsTrackInside())      vol[3] +=  1;
1494     if(gMC->IsTrackEntering())    vol[3] +=  2;
1495     if(gMC->IsTrackExiting())     vol[3] +=  4;
1496     if(gMC->IsTrackOut())         vol[3] +=  8;
1497     if(gMC->IsTrackDisappeared()) vol[3] += 16;
1498     if(gMC->IsTrackStop())        vol[3] += 32;
1499     if(gMC->IsTrackAlive())       vol[3] += 64;
1500     //
1501     // Fill hit structure.
1502     if(!(gMC->TrackCharge())) return;
1503     //
1504     // Only entering charged tracks
1505     if((id = gMC->CurrentVolID(copy)) == fIdSens[0]) {
1506         vol[0] = 1;
1507         id = gMC->CurrentVolOffID(2,copy);
1508         //detector copy in the ladder = 1<->4  (ITS1 < I101 < I103 < I10A)
1509         vol[1] = copy;
1510         gMC->CurrentVolOffID(3,copy1);
1511         //ladder copy in the module   = 1<->2  (I10A < I12A)
1512         gMC->CurrentVolOffID(4,copy2);
1513         //module copy in the layer    = 1<->10 (I12A < IT12)
1514         vol[2] = copy1+(copy2-1)*2;//# of ladders in one module  = 2
1515     } else if(id == fIdSens[1]){
1516         vol[0] = 2;
1517         id = gMC->CurrentVolOffID(2,copy);
1518         //detector copy in the ladder = 1<->4  (ITS2 < I1D1 < I1D3 < I20A)
1519         vol[1] = copy;
1520         gMC->CurrentVolOffID(3,copy1);
1521         //ladder copy in the module   = 1<->4  (I20A < I12A)
1522         gMC->CurrentVolOffID(4,copy2);
1523         //module copy in the layer    = 1<->10 (I12A < IT12)
1524         vol[2] = copy1+(copy2-1)*4;//# of ladders in one module  = 4
1525     } else if(id == fIdSens[2]){
1526         vol[0] = 3;
1527         id = gMC->CurrentVolOffID(1,copy);
1528         //detector copy in the ladder = 1<->6  (ITS3 < I302 < I004)
1529         vol[1] = copy;
1530         id = gMC->CurrentVolOffID(2,copy);
1531         //ladder copy in the layer    = 1<->14 (I004 < IT34)
1532         vol[2] = copy;
1533     } else if(id == fIdSens[3]){
1534         vol[0] = 4;
1535         id = gMC->CurrentVolOffID(1,copy);
1536         //detector copy in the ladder = 1<->8  (ITS4 < I402 < I005)
1537         vol[1] = copy;
1538         id = gMC->CurrentVolOffID(2,copy);
1539         //ladder copy in the layer    = 1<->22 (I005 < IT34))
1540         vol[2] = copy;
1541     }else if(id == fIdSens[4]){
1542         vol[0] = 5;
1543         id = gMC->CurrentVolOffID(1,copy);
1544         //detector copy in the ladder = 1<->22  (ITS5 < I562 < I565)
1545         vol[1] = copy;
1546         id = gMC->CurrentVolOffID(2,copy);
1547         //ladder copy in the layer    = 1<->34 (I565 < IT56)
1548         vol[2] = copy;
1549     }else if(id == fIdSens[5]){
1550         vol[0] = 6;
1551         id = gMC->CurrentVolOffID(1,copy);
1552         //detector copy in the ladder = 1<->25  (ITS6 < I566 < I569)
1553         vol[1] = copy;
1554         id = gMC->CurrentVolOffID(2,copy);
1555         //ladder copy in the layer = 1<->38 (I569 < IT56)
1556         vol[2] = copy;
1557     } else {
1558         return; // not an ITS volume?
1559     } // end if/else if (gMC->CurentVolID(copy) == fIdSens[i])
1560     //
1561     gMC->TrackPosition(position);
1562     gMC->TrackMomentum(momentum);
1563     vol[4] = stat0;
1564     if(gMC->IsTrackEntering()){
1565         position0 = position;
1566         stat0 = vol[3];
1567         return;
1568     } // end if IsEntering
1569     // Fill hit structure with this new hit.
1570     
1571     new(lhits[fNhits++]) AliITShit(fIshunt,gAlice->GetMCApp()->GetCurrentTrackNumber(),vol,
1572                                    gMC->Edep(),gMC->TrackTime(),position,
1573                                    position0,momentum);
1574
1575     position0 = position;
1576     stat0 = vol[3];
1577
1578     return;
1579 }