* about the suitability of this software for any purpose. It is *
* provided "as is" without express or implied warranty. *
**************************************************************************/
-
/* $Id$ */
//_________________________________________________________________________
//*-- Author: Laurent Aphecetche & Yves Schutz (SUBATECH)
//////////////////////////////////////////////////////////////////////////////
+
// --- ROOT system ---
class TFile;
-#include "TTree.h"
-#include "TTask.h"
#include "TROOT.h"
-#include "TFolder.h"
+#include "TTree.h"
+#include "TFolder.h"
// --- Standard library ---
#include "AliRun.h"
#include "AliMagF.h"
#include "AliPHOSGeometry.h"
+#include "AliPHOSQAChecker.h"
ClassImp(AliPHOS)
+//____________________________________________________________________________
+AliPHOS:: AliPHOS() : AliDetector()
+{
+ // Create folder and task hierarchy
+ fName="PHOS";
+}
//____________________________________________________________________________
- AliPHOS::AliPHOS():AliDetector()
+AliPHOS::AliPHOS(const char* name, const char* title): AliDetector(name, title)
{
- // ctor. creates task PHOS
- TTask * phosTask = new TTask("PHOS","");
- TTask * roottasks = (TTask*)gROOT->GetRootFolder()->FindObject("Tasks") ;
- roottasks->Add(phosTask) ;
}
+
//____________________________________________________________________________
- AliPHOS::AliPHOS(const char* name, const char* title=""):AliDetector(name, title)
-{
- // ctor. creates task PHOS
- TTask * phosTask = new TTask("PHOS","");
- TTask * roottasks = (TTask*)gROOT->GetRootFolder()->FindObject("Tasks") ;
- roottasks->Add(phosTask) ;
+AliPHOS::~AliPHOS()
+{
+ // remove the alice folder and alice QA task that PHOS creates instead of AliRun
+
}
//____________________________________________________________________________
Float_t aTI[2] = {12.011, 1.00794} ;
Float_t zTI[2] = {6.0, 1.0} ;
Float_t wTI[2] = {1.0, 1.0} ;
- Float_t dTI = 0.1 ;
+ Float_t dTI = 0.04 ;
AliMixture(7, "Thermo Insul.$", aTI, zTI, dTI, -2, wTI) ;
// --- Stainless steel (let it be pure iron) ---
AliMaterial(17, "Steel$", 55.845, 26, 7.87, 1.76, 0., 0, 0) ;
+
+
+ // --- Fiberglass ---
+ Float_t aFG[4] = {16.0, 28.09, 12.011, 1.00794} ;
+ Float_t zFG[4] = {8.0, 14.0, 6.0, 1.0} ;
+ Float_t wFG[4] = {292.0, 68.0, 462.0, 736.0} ;
+ Float_t dFG = 1.9 ;
+
+ AliMixture(18, "Fibergla$", aFG, zFG, dFG, -4, wFG) ;
+
+ // --- Cables in Air box ---
+ // SERVICES
+
+ Float_t aCA[4] = { 1.,12.,55.8,63.5 };
+ Float_t zCA[4] = { 1.,6.,26.,29. };
+ Float_t wCA[4] = { .014,.086,.42,.48 };
+ Float_t dCA = 0.8 ; //this density is raw estimation, if you know better - correct
+
+ AliMixture(19, "Cables $", aCA, zCA, dCA, -4, wCA) ;
+
+
+
// --- Air ---
AliMaterial(99, "Air$", 14.61, 7.3, 0.001205, 30420., 67500., 0, 0) ;
// The Silicon of the pin diode to read out the calorimeter crystal -> idtmed[705]
AliMedium(6, "Si PIN $", 6, 0,
- isxfld, sxmgmx, 10.0, 0.1, 0.1, 0.01, 0.00001, 0, 0) ;
+ isxfld, sxmgmx, 10.0, 0.1, 0.1, 0.01, 0.01, 0, 0) ;
// The thermo insulating material of the box which contains the calorimeter module -> idtmed[706]
AliMedium(7, "Thermo Insul.$", 7, 0,
AliMedium(17, "Steel $", 17, 0,
isxfld, sxmgmx, 10.0, 0.1, 0.1, 0.1, 0.0001, 0, 0) ;
+ // Fibergalss -> idtmed[717]
+ AliMedium(18, "Fiberglass$", 18, 0,
+ isxfld, sxmgmx, 10.0, 0.1, 0.1, 0.1, 0.1, 0, 0) ;
+
+ // Cables in air -> idtmed[718]
+ AliMedium(19, "Cables $", 19, 0,
+ isxfld, sxmgmx, 10.0, 0.1, 0.1, 0.1, 0.1, 0, 0) ;
+
// Air -> idtmed[798]
AliMedium(99, "Air $", 99, 0,
isxfld, sxmgmx, 10.0, 1.0, 0.1, 0.1, 10.0, 0, 0) ;
gMC->Gstpar(idtmed[701], "LOSS",3.) ;
gMC->Gstpar(idtmed[701], "DRAY",1.) ;
// --- and in PIN diode
- //setting local cuts to 10 keV OHO 20.04.2001
gMC->Gstpar(idtmed[705], "LOSS",3) ;
gMC->Gstpar(idtmed[705], "DRAY",1) ;
- gMC->Gstpar(idtmed[705], "STRA",1.);
- gMC->Gstpar(idtmed[705], "CUTGAM",1.E-5) ;
- gMC->Gstpar(idtmed[705], "CUTELE",1.E-5) ;
- gMC->Gstpar(idtmed[705], "CUTNEU",1.E-5) ;
- gMC->Gstpar(idtmed[705], "CUTHAD",1.E-5) ;
- gMC->Gstpar(idtmed[705], "CUTMUO",1.E-5) ;
- gMC->Gstpar(idtmed[705], "BCUTE",1.E-5) ;
- gMC->Gstpar(idtmed[705], "BCUTM",1.E-5) ;
- gMC->Gstpar(idtmed[705], "DCUTE",1.E-5) ;
- gMC->Gstpar(idtmed[705], "DCUTM",1.E-5) ;
- gMC->Gstpar(idtmed[705], "PPCUTM",1.E-5) ;
- //
// --- and in the passive convertor
gMC->Gstpar(idtmed[712], "LOSS",3) ;
gMC->Gstpar(idtmed[712], "DRAY",1) ;
gMC->Gstpar(idtmed[715], "STRA",2.) ;
}
+//____________________________________________________________________________
+AliPHOSGeometry * AliPHOS::GetGeometry() const
+{
+ // gets the pointer to the AliPHOSGeometry unique instance
+
+ return AliPHOSGeometry::GetInstance(GetTitle(),"") ;
+
+}
+
//____________________________________________________________________________
void AliPHOS::SetTreeAddress()
{
- // called by AliRun
+
+
// TBranch *branch;
// AliDetector::SetTreeAddress();
}
}
+//____________________________________________________________________________
+void AliPHOS::WriteQA()
+{
+
+ // Make TreeQA in the output file.
+
+ if(fTreeQA == 0)
+ fTreeQA = new TTree("TreeQA", "QA Alarms") ;
+ // Create Alarms branches
+ Int_t bufferSize = 32000 ;
+ Int_t splitlevel = 0 ;
+ TFolder * alarmsF = (TFolder*)gROOT->FindObjectAny("Folders/Run/Conditions/QA/PHOS") ;
+ TString branchName(alarmsF->GetName());
+ TBranch * alarmsBranch = fTreeQA->Branch(branchName,"TFolder", &alarmsF, bufferSize, splitlevel);
+ TString branchTitle = branchName + " QA alarms" ;
+ alarmsBranch->SetTitle(branchTitle);
+ alarmsBranch->Fill() ;
+
+ //fTreeQA->Fill() ;
+}