fortran loop removed
[u/mrichter/AliRoot.git] / EMCAL / AliEMCAL.cxx
CommitLineData
2012850d 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/* $Id$ */
17
18//_________________________________________________________________________
19// Base Class for EMCAL description:
ffa6d63b 20// This class contains material definitions
21// for the EMCAL - It does not place the detector in Alice
2012850d 22//*-- Author: Yves Schutz (SUBATECH)
b13bbe81 23//
24//*-- Additional Contributions: Sahal Yacoob (LBNL/UCT)
25//
2012850d 26//////////////////////////////////////////////////////////////////////////////
27
2012850d 28// --- ROOT system ---
b13bbe81 29class TFile;
88cb7938 30#include <TFolder.h>
31#include <TROOT.h>
32#include <TTree.h>
33#include <TVirtualMC.h>
2012850d 34
05a92d59 35// --- Standard library ---
70479d0e 36#include <Rstrstream.h>
2012850d 37
05a92d59 38// --- AliRoot header files ---
2012850d 39#include "AliMagF.h"
88cb7938 40#include "AliEMCAL.h"
05a92d59 41#include "AliEMCALGeometry.h"
88cb7938 42#include "AliEMCALLoader.h"
05a92d59 43//#include "AliEMCALQAChecker.h"
88cb7938 44#include "AliRun.h"
2012850d 45
46ClassImp(AliEMCAL)
2012850d 47//____________________________________________________________________________
48AliEMCAL::AliEMCAL():AliDetector()
49{
05a92d59 50 // Default ctor
51 fName="EMCAL";
52 //fQATask = 0;
53 fTreeQA = 0;
1d7b3dd6 54 fGeom = 0 ;
2012850d 55}
05a92d59 56
2012850d 57//____________________________________________________________________________
05a92d59 58AliEMCAL::AliEMCAL(const char* name, const char* title): AliDetector(name,title)
59{
60 // ctor : title is used to identify the layout
61
62 //fQATask = 0;
63 fTreeQA = 0;
1fe0f889 64 fGeom = 0;
2012850d 65}
05a92d59 66
2012850d 67//____________________________________________________________________________
05a92d59 68AliEMCAL::~AliEMCAL()
69{
70
2012850d 71}
72
73//____________________________________________________________________________
05a92d59 74void AliEMCAL::CreateMaterials()
75{
2012850d 76 // Definitions of materials to build EMCAL and associated tracking media.
77 // media number in idtmed are 1599 to 1698.
78
79 // --- Air ---
80 AliMaterial(0, "Air$", 14.61, 7.3, 0.001205, 30420., 67500., 0, 0) ;
81
b13bbe81 82
2012850d 83 // --- Lead ---
84 AliMaterial(1, "Pb$", 207.2, 82, 11.35, 0.56, 0., 0, 0) ;
85
b13bbe81 86
87 // --- The polysterene scintillator (CH) ---
88 Float_t aP[2] = {12.011, 1.00794} ;
89 Float_t zP[2] = {6.0, 1.0} ;
90 Float_t wP[2] = {1.0, 1.0} ;
91 Float_t dP = 1.032 ;
92
93 AliMixture(2, "Polystyrene$", aP, zP, dP, -2, wP) ;
94
95 // --- Aluminium ---
96 AliMaterial(3, "Al$", 26.98, 13., 2.7, 8.9, 999., 0, 0) ;
97 // --- Absorption length is ignored ^
98
a63e0d5e 99 // --- Copper ---
100 AliMaterial(4, "Cu$", 63.546, 29, 8.96, 1.43, 14.8, 0, 0) ;
101 // --- Absorption length is ignored ^
b13bbe81 102
2012850d 103
104 // DEFINITION OF THE TRACKING MEDIA
105
106 // for EMCAL: idtmed[1599->1698] equivalent to fIdtmed[0->100]
107 Int_t * idtmed = fIdtmed->GetArray() - 1599 ;
108 Int_t isxfld = gAlice->Field()->Integ() ;
109 Float_t sxmgmx = gAlice->Field()->Max() ;
b13bbe81 110
111
2012850d 112
113 // Air -> idtmed[1599]
114 AliMedium(0, "Air $", 0, 0,
115 isxfld, sxmgmx, 10.0, 1.0, 0.1, 0.1, 10.0, 0, 0) ;
116
a63e0d5e 117 // The Lead -> idtmed[1600]
2012850d 118
119 AliMedium(1, "Lead $", 1, 0,
120 isxfld, sxmgmx, 10.0, 0.1, 0.1, 0.1, 0.1, 0, 0) ;
121
b13bbe81 122
123 // The scintillator of the CPV made of Polystyrene scintillator -> idtmed[1601]
124 AliMedium(2, "CPV scint. $", 2, 1,
61e0abb5 125 isxfld, sxmgmx, 10.0, 0.001, 0.1, 0.001, 0.001, 0, 0) ;
b13bbe81 126
a63e0d5e 127 // Various Aluminium parts made of Al -> idtmed[1602]
b13bbe81 128 AliMedium(3, "Al parts $", 3, 0,
129 isxfld, sxmgmx, 10.0, 0.1, 0.1, 0.001, 0.001, 0, 0) ;
130
a63e0d5e 131 // Copper for HCal (post shower) -> idtmed[1603]
132 AliMedium(4, "Copper $", 4, 0,
133 isxfld, sxmgmx, 10.0, 0.1, 0.1, 0.001, 0.001, 0, 0) ;
b13bbe81 134
2012850d 135
2012850d 136
b13bbe81 137// --- Set decent energy thresholds for gamma and electron tracking
2012850d 138
139 // Tracking threshold for photons and electrons in Lead
ffa6d63b 140 gMC->Gstpar(idtmed[1600],"CUTGAM",0.00008) ;
141 gMC->Gstpar(idtmed[1600],"CUTELE",0.001) ;
142 gMC->Gstpar(idtmed[1600],"BCUTE",0.0001) ;
2012850d 143
144 // --- Generate explicitly delta rays in Lead ---
145 gMC->Gstpar(idtmed[1600], "LOSS",3.) ;
146 gMC->Gstpar(idtmed[1600], "DRAY",1.) ;
05a92d59 147 gMC->Gstpar(idtmed[1600], "DCUTE",0.00001) ;
148 gMC->Gstpar(idtmed[1600], "DCUTM",0.00001) ;
149
a63e0d5e 150// --- in aluminium parts ---
b13bbe81 151 gMC->Gstpar(idtmed[1602], "LOSS",3.) ;
152 gMC->Gstpar(idtmed[1602], "DRAY",1.) ;
05a92d59 153 gMC->Gstpar(idtmed[1602], "DCUTE",0.00001) ;
154 gMC->Gstpar(idtmed[1602], "DCUTM",0.00001) ;
b13bbe81 155
a63e0d5e 156// --- in copper parts ---
157 gMC->Gstpar(idtmed[1603], "LOSS",3.) ;
158 gMC->Gstpar(idtmed[1603], "DRAY",1.) ;
159 gMC->Gstpar(idtmed[1603], "DCUTE",0.00001) ;
160 gMC->Gstpar(idtmed[1603], "DCUTM",0.00001) ;
161
162
61e0abb5 163
ffa6d63b 164// --- and finally thresholds for photons and electrons in the scintillator ---
61e0abb5 165 gMC->Gstpar(idtmed[1601],"CUTGAM",0.00008) ;
166 gMC->Gstpar(idtmed[1601],"CUTELE",0.001) ;
167 gMC->Gstpar(idtmed[1601],"BCUTE",0.0001) ;
168
169
2012850d 170}
05a92d59 171
172//____________________________________________________________________________
173AliEMCALGeometry * AliEMCAL::GetGeometry() const
174{
175 // gets the pointer to the AliEMCALGeometry unique instance
05a92d59 176
1d7b3dd6 177 if (fGeom)
178 return fGeom ;
179 else
180 return AliEMCALGeometry::GetInstance(GetTitle(),"") ;
05a92d59 181}
182
2012850d 183//____________________________________________________________________________
184void AliEMCAL::SetTreeAddress()
185{
186
187 TBranch *branch;
188 char branchname[20];
189 sprintf(branchname,"%s",GetName());
190
191 // Branch address for hit tree
88cb7938 192 TTree *treeH = TreeH();
193 if (treeH) {
2012850d 194 branch = treeH->GetBranch(branchname);
88cb7938 195 if (branch)
196 {
197 if (fHits == 0x0) fHits= new TClonesArray("AliEMCALHit",1000);
198 //Info("SetTreeAddress","<%s> Setting Hits Address",GetName());
199 branch->SetAddress(&fHits);
200 }
201 else
202 {
203 Warning("SetTreeAddress","<%s> Failed",GetName());
204 }
2012850d 205 }
2012850d 206}
05a92d59 207//____________________________________________________________________________
208void AliEMCAL::WriteQA()
209{
88cb7938 210
05a92d59 211 // Make TreeQA in the output file.
88cb7938 212
05a92d59 213 if(fTreeQA == 0)
214 fTreeQA = new TTree("TreeQA", "QA Alarms") ;
215 // Create Alarms branches
88cb7938 216 Int_t bufferSize = 32000 ;
217 Int_t splitlevel = 0 ;
218
219 TFolder* topfold = GetLoader()->GetTopFolder(); //get top aliroot folder; skowron
220 TString emcalqafn(AliConfig::Instance()->GetQAFolderName()+"/"); //get name of QAaut folder relative to top event; skowron
221 emcalqafn+=GetName(); //hard wired string!!! add the detector name to the pathname; skowron
222 TFolder * alarmsF = (TFolder*)topfold->FindObjectAny(emcalqafn); //get the folder
223
224 if (alarmsF == 0x0)
225 {
226 Error("WriteQA","Can not find folder with qa alarms");
227 return;
228 }
229 TString branchName(alarmsF->GetName());
230 TBranch * alarmsBranch = fTreeQA->Branch(branchName,"TFolder", &alarmsF, bufferSize, splitlevel);
231 TString branchTitle = branchName + " QA alarms" ;
232 alarmsBranch->SetTitle(branchTitle);
233 alarmsBranch->Fill() ;
234
235 //fTreeQA
05a92d59 236}
2012850d 237
88cb7938 238//____________________________________________________________________________
239AliLoader* AliEMCAL::MakeLoader(const char* topfoldername)
240{
241//different behaviour than standard (singleton getter)
242// --> to be discussed and made eventually coherent
243 fLoader = new AliEMCALLoader(GetName(),topfoldername);
244 return fLoader;
245}