]> git.uio.no Git - u/mrichter/AliRoot.git/blobdiff - EMCAL/AliEMCALClusterizerv1.cxx
Moved to STEERBase
[u/mrichter/AliRoot.git] / EMCAL / AliEMCALClusterizerv1.cxx
index c629f9cc90edbfe1c17cb4f86c81ea5b19359fb0..090b8af37eaa14e90233f3c903760d2c57627820 100644 (file)
 
 /* $Id$ */
 
-//*-- Author: Yves Schutz (SUBATECH)  & Dmitri Peressounko (SUBATECH & Kurchatov Institute)
+//-- Author: Yves Schutz (SUBATECH)  & Dmitri Peressounko (SUBATECH & Kurchatov Institute)
 //  August 2002 Yves Schutz: clone PHOS as closely as possible and intoduction
 //                           of new  IO (à la PHOS)
+//  Mar 2007, Aleksei Pavlinov - new algoritmh of pseudo clusters
 //////////////////////////////////////////////////////////////////////////////
 //  Clusterization class. Performs clusterization (collects neighbouring active cells) and 
 //  unfolds the clusters having several local maxima.  
 //               // time - print benchmarking results
 
 // --- ROOT system ---
+#include <cassert>
 
-#include <TROOT.h>
+class TROOT;
 #include <TH1.h>
 #include <TFile.h> 
-#include <TFolder.h> 
+class TFolder;
 #include <TMath.h> 
 #include <TMinuit.h>
 #include <TTree.h> 
-#include <TSystem.h> 
+class TSystem; 
 #include <TBenchmark.h>
 #include <TBrowser.h>
+#include <TROOT.h>
+
 // --- Standard library ---
 
 
 // --- AliRoot header files ---
 #include "AliRunLoader.h"
 #include "AliRun.h"
-#include "AliEMCALLoader.h"
+#include "AliESD.h"
 #include "AliEMCALClusterizerv1.h"
 #include "AliEMCALRecPoint.h"
 #include "AliEMCALDigit.h"
 #include "AliEMCAL.h"
 #include "AliEMCALGeometry.h"
 #include "AliEMCALHistoUtilities.h"
+#include "AliEMCALRecParam.h"
+#include "AliEMCALReconstructor.h"
+#include "AliCDBManager.h"
 
-ClassImp(AliEMCALClusterizerv1)
+class AliCDBStorage;
+#include "AliCDBEntry.h"
 
-AliEMCALGeometry * geom = 0;
-//____________________________________________________________________________
-  AliEMCALClusterizerv1::AliEMCALClusterizerv1() : AliEMCALClusterizer()
-{
-  // default ctor (to be used mainly by Streamer)
-  
-  InitParameters() ; 
-  fDefaultInit = kTRUE ;
-  geom = AliEMCALGeometry::GetInstance();
-  geom->GetTransformationForSM(); // Global <-> Local
-}
+ClassImp(AliEMCALClusterizerv1)
 
 //____________________________________________________________________________
-AliEMCALClusterizerv1::AliEMCALClusterizerv1(const TString alirunFileName, const TString eventFolderName)
-:AliEMCALClusterizer(alirunFileName, eventFolderName)
+AliEMCALClusterizerv1::AliEMCALClusterizerv1()
+  : AliEMCALClusterizer(),
+    fHists(0),fPointE(0),fPointL1(0),fPointL2(0),
+    fPointDis(0),fPointMult(0),fDigitAmp(0),fMaxE(0),
+    fMaxL1(0),fMaxL2(0),fMaxDis(0),fGeom(0),
+    fDefaultInit(kFALSE),
+    fToUnfold(kFALSE),
+    fNumberOfECAClusters(0),fCalibData(0),
+    fADCchannelECA(0.),fADCpedestalECA(0.),fECAClusteringThreshold(0.),fECALocMaxCut(0.),
+    fECAW0(0.),fTimeCut(0.),fMinECut(0.)
 {
   // ctor with the indication of the file where header Tree and digits Tree are stored
   
   InitParameters() ; 
   Init() ;
-  fDefaultInit = kFALSE ; 
 }
 
 //____________________________________________________________________________
@@ -103,70 +108,94 @@ AliEMCALClusterizerv1::AliEMCALClusterizerv1(const TString alirunFileName, const
 }
 
 //____________________________________________________________________________
-const TString AliEMCALClusterizerv1::BranchName() const 
-{ 
-   return GetName();
-}
-
-//____________________________________________________________________________
-Float_t  AliEMCALClusterizerv1::Calibrate(Int_t amp) const
+Float_t  AliEMCALClusterizerv1::Calibrate(Int_t amp, Int_t AbsId) 
 {
-  //To be replased later by the method, reading individual parameters from the database 
-  return -fADCpedestalECA + amp * fADCchannelECA ; 
+  // Convert digitized amplitude into energy.
+  // Calibration parameters are taken from calibration data base for raw data,
+  // or from digitizer parameters for simulated data.
+
+  if(fCalibData){
+    
+    if (fGeom==0)
+      AliFatal("Did not get geometry from EMCALLoader") ;
+    
+    Int_t iSupMod = -1;
+    Int_t nModule  = -1;
+    Int_t nIphi   = -1;
+    Int_t nIeta   = -1;
+    Int_t iphi    = -1;
+    Int_t ieta    = -1;
+    
+    Bool_t bCell = fGeom->GetCellIndex(AbsId, iSupMod, nModule, nIphi, nIeta) ;
+    if(!bCell) {
+      fGeom->PrintGeometry();
+      Error("Calibrate()"," Wrong cell id number : %i", AbsId);
+      assert(0);
+    }
+
+    fGeom->GetCellPhiEtaIndexInSModule(iSupMod,nModule,nIphi, nIeta,iphi,ieta);
+
+    fADCchannelECA  = fCalibData->GetADCchannel (iSupMod,ieta,iphi);
+    fADCpedestalECA = fCalibData->GetADCpedestal(iSupMod,ieta,iphi);
+  
+   return -fADCpedestalECA + amp * fADCchannelECA ;        
+  }
+  else //Return energy with default parameters if calibration is not available
+    return -fADCpedestalECA + amp * fADCchannelECA ; 
+  
 }
 
 //____________________________________________________________________________
-void AliEMCALClusterizerv1::Exec(Option_t * option)
+void AliEMCALClusterizerv1::Digits2Clusters(Option_t * option)
 {
-  // Steering method to perform clusterization for events
-  // in the range from fFirstEvent to fLastEvent.
-  // This range is optionally set by SetEventRange().
-  // if fLastEvent=-1 (by default), then process events until the end.
+  // Steering method to perform clusterization for the current event 
+  // in AliEMCALLoader
 
   if(strstr(option,"tim"))
     gBenchmark->Start("EMCALClusterizer"); 
   
   if(strstr(option,"print"))
     Print("") ; 
+  //Get calibration parameters from file or digitizer default values.
+  GetCalibrationParameters() ;
 
-  //AliEMCALGetter * gime = AliEMCALGetter::Instance() ;
-  AliRunLoader *rl = AliRunLoader::GetRunLoader();
-  AliEMCALLoader *emcalLoader = dynamic_cast<AliEMCALLoader*>(rl->GetDetectorLoader("EMCAL"));
 
-  if (fLastEvent == -1) 
-    fLastEvent = rl->GetNumberOfEvents() - 1;
-  Int_t nEvents   = fLastEvent - fFirstEvent + 1;
+  fNumberOfECAClusters = 0;
 
-  Int_t ievent ;
-  rl->LoadDigits("EMCAL");
-  for (ievent = fFirstEvent; ievent <= fLastEvent; ievent++) {
-    rl->GetEvent(ievent);
-    GetCalibrationParameters() ;
+  MakeClusters() ;  //only the real clusters
 
-    fNumberOfECAClusters = 0;
-           
-    MakeClusters() ;
+  if(fToUnfold)
+    MakeUnfolding() ;
 
-    if(fToUnfold)
-      MakeUnfolding() ;
+  Int_t index ;
 
-    WriteRecPoints() ;
+  //Evaluate position, dispersion and other RecPoint properties for EC section                      
+  for(index = 0; index < fRecPoints->GetEntries(); index++) {
+      dynamic_cast<AliEMCALRecPoint *>(fRecPoints->At(index))->EvalAll(fECAW0,fDigitsArr) ;
+  }
 
-    if(strstr(option,"deb"))  
-      PrintRecPoints(option) ;
+  fRecPoints->Sort() ;
 
-    //increment the total number of recpoints per run   
-    fRecPointsInRun += emcalLoader->RecPoints()->GetEntriesFast() ;  
+  for(index = 0; index < fRecPoints->GetEntries(); index++) {
+    (dynamic_cast<AliEMCALRecPoint *>(fRecPoints->At(index)))->SetIndexInList(index) ;
+    (dynamic_cast<AliEMCALRecPoint *>(fRecPoints->At(index)))->Print();
   }
+
+  fTreeR->Fill();
   
-  Unload();
+  if(strstr(option,"deb") || strstr(option,"all"))  
+    PrintRecPoints(option) ;
+
+  AliDebug(1,Form("EMCAL Clusterizer found %d Rec Points",fRecPoints->GetEntriesFast()));
 
   if(strstr(option,"tim")){
     gBenchmark->Stop("EMCALClusterizer");
-    printf("Exec took %f seconds for Clusterizing %f seconds per event", 
-        gBenchmark->GetCpuTime("EMCALClusterizer"), gBenchmark->GetCpuTime("EMCALClusterizer")/nEvents );
-  }
-
+    printf("Exec took %f seconds for Clusterizing", 
+          gBenchmark->GetCpuTime("EMCALClusterizer"));
+  }    
 }
 
 //____________________________________________________________________________
@@ -177,20 +206,13 @@ Bool_t AliEMCALClusterizerv1::FindFit(AliEMCALRecPoint * emcRP, AliEMCALDigit **
   // The initial values for fitting procedure are set equal to the positions of local maxima.
   // Cluster will be fitted as a superposition of nPar/3 electromagnetic showers
 
-  AliEMCALLoader *emcalLoader = dynamic_cast<AliEMCALLoader*>(AliRunLoader::GetRunLoader()->GetDetectorLoader("EMCAL"));
-  TClonesArray *digits = emcalLoader->Digits();
-  /*
-  AliEMCALGetter * gime = AliEMCALGetter::Instance() ; 
-  TClonesArray * digits = gime->Digits() ; 
-  */
-
   gMinuit->mncler();                     // Reset Minuit's list of paramters
   gMinuit->SetPrintLevel(-1) ;           // No Printout
   gMinuit->SetFCN(AliEMCALClusterizerv1::UnfoldingChiSquare) ;  
                                          // To set the address of the minimization function 
   TList * toMinuit = new TList();
   toMinuit->AddAt(emcRP,0) ;
-  toMinuit->AddAt(digits,1) ;
+  toMinuit->AddAt(fDigitsArr,1) ;
   
   gMinuit->SetObjectFit(toMinuit) ;         // To tranfer pointer to UnfoldingChiSquare
 
@@ -206,11 +228,12 @@ Bool_t AliEMCALClusterizerv1::FindFit(AliEMCALRecPoint * emcRP, AliEMCALDigit **
   for(iDigit = 0; iDigit < nDigits; iDigit++){
     digit = maxAt[iDigit]; 
 
-    Int_t relid[2] ;
     Float_t x = 0.;
     Float_t z = 0.;
-    geom->AbsToRelNumbering(digit->GetId(), relid) ;
-    geom->PosInAlice(relid, x, z) ;
+    //   have to be tune for TRD1; May 31,06
+    //   Int_t relid[2] ;
+    //   fGeom->AbsToRelNumbering(digit->GetId(), relid) ; // obsolete method
+    //   fGeom->PosInAlice(relid, x, z) ;                  // obsolete method
 
     Float_t energy = maxAtEnergy[iDigit] ;
 
@@ -265,17 +288,38 @@ Bool_t AliEMCALClusterizerv1::FindFit(AliEMCALRecPoint * emcRP, AliEMCALDigit **
 //____________________________________________________________________________
 void AliEMCALClusterizerv1::GetCalibrationParameters() 
 {
-  // Gets the parameters for the calibration from the digitizer
-  //AliEMCALGetter * gime = AliEMCALGetter::Instance() ;
-  AliEMCALLoader *emcalLoader = dynamic_cast<AliEMCALLoader*>(AliRunLoader::GetRunLoader()->GetDetectorLoader("EMCAL"));
-
-  if ( !emcalLoader->Digitizer() ) 
-    emcalLoader->LoadDigitizer();
-  AliEMCALDigitizer * dig = dynamic_cast<AliEMCALDigitizer*>(emcalLoader->Digitizer());
-
-  fADCchannelECA   = dig->GetECAchannel() ;
-  fADCpedestalECA  = dig->GetECApedestal();
-//PH  cout<<"ChannelECA, peds "<<fADCchannelECA<<" "<<fADCpedestalECA<<endl;
+  // Set calibration parameters:
+  // if calibration database exists, they are read from database,
+  // otherwise, they are taken from digitizer.
+  //
+  // It is a user responsilibity to open CDB before reconstruction, 
+  // for example: 
+  // AliCDBStorage* storage = AliCDBManager::Instance()->GetStorage("local://CalibDB");
+
+  //Check if calibration is stored in data base
+
+  if(!fCalibData && (AliCDBManager::Instance()->IsDefaultStorageSet()))
+    {
+      AliCDBEntry *entry = (AliCDBEntry*) 
+       AliCDBManager::Instance()->Get("EMCAL/Calib/Data");
+      if (entry) fCalibData =  (AliEMCALCalibData*) entry->GetObject();
+    }
+  
+  if(!fCalibData)
+    AliFatal("Calibration parameters not found in CDB!");
+  //  Please fix it!! Or better just remove it...
+//    if(!fCalibData)
+//      {
+//        //If calibration is not available use default parameters
+//        //Loader
+//        if ( !emcalLoader->Digitizer() ) 
+//      emcalLoader->LoadDigitizer();
+//        AliEMCALDigitizer * dig = dynamic_cast<AliEMCALDigitizer*>(emcalLoader->Digitizer());
+       
+//        fADCchannelECA   = dig->GetECAchannel() ;
+//        fADCpedestalECA  = dig->GetECApedestal();
+//      }
 }
 
 //____________________________________________________________________________
@@ -285,17 +329,17 @@ void AliEMCALClusterizerv1::Init()
   // Attach the Clusterizer task to the list of EMCAL tasks
   
   AliRunLoader *rl = AliRunLoader::GetRunLoader();
-  geom = dynamic_cast<AliEMCAL*>(rl->GetAliRun()->GetDetector("EMCAL"))->GetGeometry();
-  geom->GetTransformationForSM(); // Global <-> Local
-  AliInfo(Form("geom 0x%x",geom));
+  if (rl->GetAliRun() && rl->GetAliRun()->GetDetector("EMCAL"))
+    fGeom = dynamic_cast<AliEMCAL*>(rl->GetAliRun()->GetDetector("EMCAL"))->GetGeometry();
+  else 
+    fGeom =  AliEMCALGeometry::GetInstance(AliEMCALGeometry::GetDefaultGeometryName());
+
+  AliDebug(1,Form("geom 0x%x",fGeom));
 
-//Sub  fNTowers = geom->GetNZ() *  geom->GetNPhi() ;
-  fNTowers =400; // ?
   if(!gMinuit) 
     gMinuit = new TMinuit(100) ;
- //Sub if ( !gime->Clusterizer() ) 
- //Sub   gime->PostClusterizer(this); 
- fHists = BookHists();
+
+  fHists = BookHists();
 }
 
 //____________________________________________________________________________
@@ -304,43 +348,55 @@ void AliEMCALClusterizerv1::InitParameters()
   // Initializes the parameters for the Clusterizer
   fNumberOfECAClusters = 0;
 
-  fECAClusteringThreshold   = 0.5;  // value obtained from Alexei
   fECALocMaxCut = 0.03; // ??
 
-  fECAW0     = 4.5 ;
-  fTimeGate = 1.e-8 ; 
+  fTimeCut = 300e-9 ; // 300 ns time cut (to be tuned) 
   fToUnfold = kFALSE ;
-  fRecPointsInRun  = 0 ;
-  fMinECut = 0.01; // have to be tune
+
+  fCalibData               = 0 ;
+
+  const AliEMCALRecParam* recParam = AliEMCALReconstructor::GetRecParam();
+  if(!recParam) {
+    AliFatal("Reconstruction parameters for EMCAL not set!");
+  }
+  else {
+    fECAClusteringThreshold = recParam->GetClusteringThreshold();
+    fECAW0                  = recParam->GetW0();
+    fMinECut                = recParam->GetMinECut();
+    AliDebug(1,Form("Reconstruction parameters: fECAClusteringThreshold=%.3f, fECAW=%.3f, fMinECut=%.3f",
+                fECAClusteringThreshold,fECAW0,fMinECut));
+  }
+
 }
 
 //____________________________________________________________________________
 Int_t AliEMCALClusterizerv1::AreNeighbours(AliEMCALDigit * d1, AliEMCALDigit * d2) const
 {
-  // Gives the neighbourness of two digits = 0 are not neighbour but continue searching 
+  // Gives the neighbourness of two digits = 0 are not neighbour ; continue searching 
   //                                       = 1 are neighbour
-  //                                       = 2 is in different SM, quit from searching
+  //                                       = 2 is in different SM; continue searching 
   // neighbours are defined as digits having at least a common vertex 
   // The order of d1 and d2 is important: first (d1) should be a digit already in a cluster 
   //                                      which is compared to a digit (d2)  not yet in a cluster  
 
   static Int_t rv; 
-  static Int_t nSupMod1=0, nTower1=0, nIphi1=0, nIeta1=0, iphi1=0, ieta1=0;
-  static Int_t nSupMod2=0, nTower2=0, nIphi2=0, nIeta2=0, iphi2=0, ieta2=0;
+  static Int_t nSupMod1=0, nModule1=0, nIphi1=0, nIeta1=0, iphi1=0, ieta1=0;
+  static Int_t nSupMod2=0, nModule2=0, nIphi2=0, nIeta2=0, iphi2=0, ieta2=0;
   static Int_t rowdiff, coldiff;
   rv = 0 ; 
 
-  geom->GetCellIndex(d1->GetId(), nSupMod1,nTower1,nIphi1,nIeta1);
-  geom->GetCellIndex(d2->GetId(), nSupMod2,nTower2,nIphi2,nIeta2);
+  fGeom->GetCellIndex(d1->GetId(), nSupMod1,nModule1,nIphi1,nIeta1);
+  fGeom->GetCellIndex(d2->GetId(), nSupMod2,nModule2,nIphi2,nIeta2);
   if(nSupMod1 != nSupMod2) return 2; // different SM
 
-  geom->GetCellPhiEtaIndexInSModule(nSupMod1,nTower1,nIphi1,nIeta1, iphi1,ieta1);
-  geom->GetCellPhiEtaIndexInSModule(nSupMod2,nTower2,nIphi2,nIeta2, iphi2,ieta2);
+  fGeom->GetCellPhiEtaIndexInSModule(nSupMod1,nModule1,nIphi1,nIeta1, iphi1,ieta1);
+  fGeom->GetCellPhiEtaIndexInSModule(nSupMod2,nModule2,nIphi2,nIeta2, iphi2,ieta2);
 
   rowdiff = TMath::Abs(iphi1 - iphi2);  
   coldiff = TMath::Abs(ieta1 - ieta2) ;  
   
-  if (( coldiff <= 1 )  && ( rowdiff <= 1 )) rv = 1;  // neighbours with at least commom vertex
+  // neighbours with at least commom side; May 11, 2007
+  if ((coldiff==0 && abs(rowdiff)==1) || (rowdiff==0 && abs(coldiff)==1)) rv = 1;  
  
   if (gDebug == 2 && rv==1) 
   printf("AreNeighbours: neighbours=%d, id1=%d, relid1=%d,%d \n id2=%d, relid2=%d,%d \n", 
@@ -349,155 +405,89 @@ Int_t AliEMCALClusterizerv1::AreNeighbours(AliEMCALDigit * d1, AliEMCALDigit * d
   return rv ; 
 }
 
-//____________________________________________________________________________
-void AliEMCALClusterizerv1::Unload() 
-{
-  // Unloads the Digits and RecPoints
-  AliEMCALLoader *emcalLoader = dynamic_cast<AliEMCALLoader*>(AliRunLoader::GetRunLoader()->GetDetectorLoader("EMCAL"));
-    
-  emcalLoader->UnloadDigits() ; 
-  emcalLoader->UnloadRecPoints() ; 
-}
-//____________________________________________________________________________
-void AliEMCALClusterizerv1::WriteRecPoints()
-{
-
-  // Creates new branches with given title
-  // fills and writes into TreeR.
-
-  AliEMCALLoader *emcalLoader = dynamic_cast<AliEMCALLoader*>(AliRunLoader::GetRunLoader()->GetDetectorLoader("EMCAL"));
-
-  TObjArray * aECARecPoints = emcalLoader->RecPoints() ; 
-
-  TClonesArray * digits = emcalLoader->Digits() ; 
-  TTree * treeR = emcalLoader->TreeR();  
-  if ( treeR==0 ) {
-    emcalLoader->MakeRecPointsContainer();
-    treeR = emcalLoader->TreeR();  
-  }
-  Int_t index ;
-
-  //Evaluate position, dispersion and other RecPoint properties for EC section
-  for(index = 0; index < aECARecPoints->GetEntries(); index++)
-    (dynamic_cast<AliEMCALRecPoint *>(aECARecPoints->At(index)))->EvalAll(fECAW0,digits) ;
-  
-  aECARecPoints->Sort() ;
-
-  for(index = 0; index < aECARecPoints->GetEntries(); index++) {
-    (dynamic_cast<AliEMCALRecPoint *>(aECARecPoints->At(index)))->SetIndexInList(index) ;
-    (dynamic_cast<AliEMCALRecPoint *>(aECARecPoints->At(index)))->Print();
-  }
-
-  Int_t bufferSize = 32000 ;    
-  Int_t splitlevel = 0 ; 
-
-  //EC section branch
-  
-  TBranch * branchECA = 0;
-  if ((branchECA = treeR->GetBranch("EMCALECARP")))
-    branchECA->SetAddress(&aECARecPoints);
-  else
-    treeR->Branch("EMCALECARP","TObjArray",&aECARecPoints,bufferSize,splitlevel);
-  treeR->Fill() ;
-
-  emcalLoader->WriteRecPoints("OVERWRITE");
-  //emcalLoader->WriteClusterizer("OVERWRITE");
-  //emcalLoader->WriteReconstructioner("OVERWRITE");
-}
-
 //____________________________________________________________________________
 void AliEMCALClusterizerv1::MakeClusters()
 {
   // Steering method to construct the clusters stored in a list of Reconstructed Points
   // A cluster is defined as a list of neighbour digits
+  // Mar 03, 2007 by PAI
 
-  AliEMCALLoader *emcalLoader = dynamic_cast<AliEMCALLoader*>(AliRunLoader::GetRunLoader()->GetDetectorLoader("EMCAL"));
+  if (fGeom==0) AliFatal("Did not get geometry from EMCALLoader");
 
-  TObjArray * aECARecPoints = emcalLoader->RecPoints() ; 
-    
-  if (geom==0) 
-     AliFatal("Did not get geometry from EMCALLoader");
+  fRecPoints->Clear();
 
-  aECARecPoints->Clear();
+  // Set up TObjArray with pointers to digits to work on 
+  TObjArray *digitsC = new TObjArray();
+  TIter nextdigit(fDigitsArr);
+  AliEMCALDigit *digit;
+  while ( (digit = dynamic_cast<AliEMCALDigit*>(nextdigit())) ) {
+    digitsC->AddLast(digit);
+  }
 
-  TClonesArray * digits  = emcalLoader->Digits() ; 
-  TClonesArray * digitsC =  dynamic_cast<TClonesArray*>(digits->Clone());
+  double e = 0.0, ehs = 0.0;
+  TIter nextdigitC(digitsC);
 
-  TIter nextdigit(digitsC) ;
-  AliEMCALDigit * digit;
-  double e=0.0, ehs = 0.0;
-  while ( (digit = dynamic_cast<AliEMCALDigit *>(nextdigit())) ) { // clean up digits
-    e = Calibrate(digit->GetAmp());
+  while ( (digit = dynamic_cast<AliEMCALDigit *>(nextdigitC())) ) { // clean up digits
+    e = Calibrate(digit->GetAmp(), digit->GetId());
     AliEMCALHistoUtilities::FillH1(fHists, 10, digit->GetAmp());
     AliEMCALHistoUtilities::FillH1(fHists, 11, e);
-    if(e < fMinECut ) digitsC->Remove(digit);
-    else              ehs += e;
-  }  
-  cout << " Number of digits " << digits->GetEntries() << " -> (e>" <<fMinECut <<")";
-  cout << digitsC->GetEntries()<< " ehs "<<ehs<<endl; 
-
-  // Clusterization starts    
-  //  cout << "Outer Loop" << endl;
-  int ineb=0;
-  nextdigit.Reset();
-  AliEMCALRecPoint * recPoint = 0 ; 
-  while ( (digit = dynamic_cast<AliEMCALDigit *>(nextdigit())) ) { // scan over the list of digitsC
-    recPoint = 0 ; 
-    TArrayI clusterECAdigitslist(1000); // what is this   
-
-    if(geom->CheckAbsCellId(digit->GetId()) && (Calibrate(digit->GetAmp()) > fECAClusteringThreshold  ) ){
-      Int_t iDigitInECACluster = 0; // start a new Tower RecPoint
-      if(fNumberOfECAClusters >= aECARecPoints->GetSize()) aECARecPoints->Expand(2*fNumberOfECAClusters+1) ;
-      AliEMCALRecPoint * rp = new  AliEMCALRecPoint("") ; 
-      aECARecPoints->AddAt(rp, fNumberOfECAClusters) ;
-      recPoint = dynamic_cast<AliEMCALRecPoint *>(aECARecPoints->At(fNumberOfECAClusters)) ; 
+    if ( e < fMinECut || digit->GetTimeR() > fTimeCut ) 
+      digitsC->Remove(digit);
+    else    
+      ehs += e;
+  } 
+  AliDebug(1,Form("MakeClusters: Number of digits %d  -> (e %f), ehs %d\n",
+                 fDigitsArr->GetEntries(),fMinECut,ehs));
+
+  nextdigitC.Reset();
+
+  while ( (digit = dynamic_cast<AliEMCALDigit *>(nextdigitC())) ) { // scan over the list of digitsC
+    TArrayI clusterECAdigitslist(fDigitsArr->GetEntries());
+
+    if(fGeom->CheckAbsCellId(digit->GetId()) && (Calibrate(digit->GetAmp(), digit->GetId()) > fECAClusteringThreshold  ) ){
+      // start a new Tower RecPoint
+      if(fNumberOfECAClusters >= fRecPoints->GetSize()) fRecPoints->Expand(2*fNumberOfECAClusters+1) ;
+      AliEMCALRecPoint *recPoint = new  AliEMCALRecPoint("") ; 
+      fRecPoints->AddAt(recPoint, fNumberOfECAClusters) ;
+      recPoint = dynamic_cast<AliEMCALRecPoint *>(fRecPoints->At(fNumberOfECAClusters)) ; 
       fNumberOfECAClusters++ ; 
-      recPoint->AddDigit(*digit, Calibrate(digit->GetAmp())) ; 
-      clusterECAdigitslist[iDigitInECACluster] = digit->GetIndexInList() ;     
-      iDigitInECACluster++ ; 
+
+      recPoint->SetClusterType(AliESDCaloCluster::kEMCALClusterv1);
+
+      recPoint->AddDigit(*digit, Calibrate(digit->GetAmp(), digit->GetId())) ; 
+      TObjArray clusterDigits;
+      clusterDigits.AddLast(digit);    
       digitsC->Remove(digit) ; 
-      AliDebug(1,Form("MakeClusters: OK id = %d, ene = %f , thre = %f \n", digit->GetId(),
-      Calibrate(digit->GetAmp()), fECAClusteringThreshold));  
-      nextdigit.Reset(); // will start from beggining
+
+      AliDebug(1,Form("MakeClusters: OK id = %d, ene = %f , cell.th. = %f \n", digit->GetId(),
+      Calibrate(digit->GetAmp(),digit->GetId()), fECAClusteringThreshold));  
       
-      AliEMCALDigit * digitN = 0; // digi neighbor
-      Int_t index = 0 ;
-
-      // Find the neighbours
-      while (index < iDigitInECACluster){ // scan over digits already in cluster 
-       digit =  (AliEMCALDigit*)digits->At(clusterECAdigitslist[index]);
-       index++ ; 
-        while ( (digitN = (AliEMCALDigit *)nextdigit())) { // scan over the reduced list of digits 
-         //          if( Calibrate(digitN->GetAmp()) < fMinECut  )  digitsC->Remove(digitN);
-         ineb = AreNeighbours(digit, digitN);       // call (digit,digitN) in THAT oder !!!!! 
-          switch (ineb ) {
-            case 0 :   // not a neighbour
-             break ;
-           case 1 :   // are neighbours 
-             recPoint->AddDigit(*digitN, Calibrate( digitN->GetAmp()) ) ;
-             clusterECAdigitslist[iDigitInECACluster] = digitN->GetIndexInList() ; 
-             iDigitInECACluster++ ; 
-             digitsC->Remove(digitN) ;
-              break ;
-             case 2 :   // different SM
-              break ;
-         } // switch
-        } // scan over the reduced list of digits
+      // Grow cluster by finding neighbours
+      TIter nextClusterDigit(&clusterDigits);
+      while ( (digit = dynamic_cast<AliEMCALDigit*>(nextClusterDigit())) ) { // scan over digits in cluster 
+       TIter nextdigitN(digitsC); 
+        AliEMCALDigit *digitN = 0; // digi neighbor
+        while ( (digitN = (AliEMCALDigit *)nextdigitN()) ) { // scan over all digits to look for neighbours
+         if (AreNeighbours(digit, digitN)==1) {      // call (digit,digitN) in THAT oder !!!!! 
+           recPoint->AddDigit(*digitN, Calibrate(digitN->GetAmp(),digitN->GetId()) ) ;
+           clusterDigits.AddLast(digitN) ; 
+           digitsC->Remove(digitN) ; 
+         } // if(ineb==1)
+        } // scan over digits
       } // scan over digits already in cluster
-      nextdigit.Reset() ;  // will start from beggining
-    }
-  } // while digit  
-  if(recPoint) cout << "cl.e " << recPoint->GetEnergy() << endl; 
+      if(recPoint)
+        AliDebug(2,Form("MakeClusters: %d digitd, energy %f \n", clusterDigits.GetEntries(), recPoint->GetEnergy())); 
+    } // If seed found
+  } // while digit 
+
   delete digitsC ;
-  AliDebug(1,Form("total no of clusters %d from %d digits",fNumberOfECAClusters,digits->GetEntriesFast())); 
+
+  AliDebug(1,Form("total no of clusters %d from %d digits",fNumberOfECAClusters,fDigitsArr->GetEntriesFast())); 
 }
 
-//____________________________________________________________________________
 void AliEMCALClusterizerv1::MakeUnfolding() const
 {
   Fatal("AliEMCALClusterizerv1::MakeUnfolding", "--> Unfolding not implemented") ;
 }
 
 //____________________________________________________________________________
@@ -545,18 +535,12 @@ void AliEMCALClusterizerv1::Print(Option_t * /*option*/)const
     
     // Print parameters
  
-    TString taskName(GetName()) ;
-    taskName.ReplaceAll(Version(), "") ;
+    TString taskName(Version()) ;
     
     printf("--------------- "); 
     printf(taskName.Data()) ; 
     printf(" "); 
-    printf(GetTitle()) ; 
-    printf("-----------\n");  
-    printf("Clusterizing digits from the file: "); 
-    printf(taskName.Data());  
-    printf("\n                           Branch: "); 
-    printf(GetName()); 
+    printf("Clusterizing digits: "); 
     printf("\n                       ECA Local Maximum cut    = %f", fECALocMaxCut); 
     printf("\n                       ECA Logarithmic weight   = %f", fECAW0); 
     if(fToUnfold)
@@ -574,29 +558,29 @@ void AliEMCALClusterizerv1::Print(Option_t * /*option*/)const
 void AliEMCALClusterizerv1::PrintRecPoints(Option_t * option)
 {
   // Prints list of RecPoints produced at the current pass of AliEMCALClusterizer
-  AliEMCALLoader *emcalLoader = dynamic_cast<AliEMCALLoader*>(AliRunLoader::GetRunLoader()->GetDetectorLoader("EMCAL"));
-  TObjArray * aECARecPoints = emcalLoader->RecPoints() ; 
-    
-  printf("PrintRecPoints: Clusterization result:") ; 
+  if(strstr(option,"deb")) {
+    printf("PrintRecPoints: Clusterization result:") ; 
   
-  printf("event # %d\n", emcalLoader->GetRunLoader()->GetEventNumber() ) ;
-  printf("           Found %d ECA Rec Points\n ", 
-        aECARecPoints->GetEntriesFast()) ; 
+    printf("           Found %d ECA Rec Points\n ", 
+        fRecPoints->GetEntriesFast()) ; 
+  }
 
-  fRecPointsInRun +=  aECARecPoints->GetEntriesFast() ; 
-  
   if(strstr(option,"all")) {
-    Int_t index =0;
-    printf("\n-----------------------------------------------------------------------\n") ;
-    printf("Clusters in ECAL section\n") ;
-    printf("Index    Ene(GeV) Multi Module     phi     r   theta    X    Y      Z   Dispersion Lambda 1   Lambda 2  # of prim  Primaries list\n") ;      
+    if(strstr(option,"deb")) {
+      printf("\n-----------------------------------------------------------------------\n") ;
+      printf("Clusters in ECAL section\n") ;
+      printf("Index    Ene(GeV) Multi Module     GX    GY   GZ  lX    lY   lZ   Dispersion Lambda 1   Lambda 2  # of prim  Primaries list\n") ;
+    }
+   Int_t index =0;
    Float_t maxE=0; 
    Float_t maxL1=0; 
    Float_t maxL2=0; 
    Float_t maxDis=0; 
 
-    for (index = 0 ; index < aECARecPoints->GetEntries() ; index++) {
-      AliEMCALRecPoint * rp = dynamic_cast<AliEMCALRecPoint * >(aECARecPoints->At(index)) ; 
+    AliEMCALHistoUtilities::FillH1(fHists, 12, double(fRecPoints->GetEntries()));
+
+    for (index = 0 ; index < fRecPoints->GetEntries() ; index++) {
+      AliEMCALRecPoint * rp = dynamic_cast<AliEMCALRecPoint * >(fRecPoints->At(index)) ; 
       TVector3  globalpos;  
       //rp->GetGlobalPosition(globalpos);
       TVector3  localpos;  
@@ -606,6 +590,7 @@ void AliEMCALClusterizerv1::PrintRecPoints(Option_t * option)
       Int_t * primaries; 
       Int_t nprimaries;
       primaries = rp->GetPrimaries(nprimaries);
+      if(strstr(option,"deb")) 
       printf("\n%6d  %8.4f  %3d     %4.1f    %4.1f %4.1f  %4.1f %4.1f %4.1f    %4.1f   %4f  %4f    %2d     : ", 
             rp->GetIndexInList(), rp->GetEnergy(), rp->GetMultiplicity(),
             globalpos.X(), globalpos.Y(), globalpos.Z(), localpos.X(), localpos.Y(), localpos.Z(), 
@@ -617,43 +602,48 @@ void AliEMCALClusterizerv1::PrintRecPoints(Option_t * option)
              maxL2=lambda[1];
              maxDis=rp->GetDispersion();
       }
-      pointE->Fill(rp->GetEnergy());
-      pointL1->Fill(lambda[0]);
-      pointL2->Fill(lambda[1]);
-      pointDis->Fill(rp->GetDispersion());
-      pointMult->Fill(rp->GetMultiplicity());
+      fPointE->Fill(rp->GetEnergy());
+      fPointL1->Fill(lambda[0]);
+      fPointL2->Fill(lambda[1]);
+      fPointDis->Fill(rp->GetDispersion());
+      fPointMult->Fill(rp->GetMultiplicity());
       ///////////// 
-      for (Int_t iprimary=0; iprimary<nprimaries; iprimary++) {
-       printf("%d ", primaries[iprimary] ) ; 
-      } 
+      if(strstr(option,"deb")){ 
+        for (Int_t iprimary=0; iprimary<nprimaries; iprimary++) {
+         printf("%d ", primaries[iprimary] ) ; 
+        }
+      }
     }
 
-      MaxE->Fill(maxE);
-      MaxL1->Fill(maxL1);
-      MaxL2->Fill(maxL2);
-      MaxDis->Fill(maxDis);
-
+      fMaxE->Fill(maxE);
+      fMaxL1->Fill(maxL1);
+      fMaxL2->Fill(maxL2);
+      fMaxDis->Fill(maxDis);
 
+    if(strstr(option,"deb"))
     printf("\n-----------------------------------------------------------------------\n");
   }
 }
 TList* AliEMCALClusterizerv1::BookHists()
 {
+  //set up histograms for monitoring clusterizer performance
+
   gROOT->cd();
 
-       pointE = new TH1F("pointE","point energy", 2000, 0.0, 150.);
-       pointL1 = new TH1F("pointL1","point L1", 1000, 0.0, 3.);
-       pointL2 = new TH1F("pointL2","point L2", 1000, 0.0, 3.);
-       pointDis = new TH1F("pointDis","point Dis", 1000, 0.0, 3.);
-       pointMult = new TH1F("pointMult","point Mult", 100, 0.0, 100.);
-       digitAmp = new TH1F("digitAmp","Digit Amplitude", 2000, 0.0, 5000.);
-       MaxE = new TH1F("maxE","Max point energy", 2000, 0.0, 150.);
-       MaxL1 = new TH1F("maxL1","Max point L1", 1000, 0.0, 3.);
-       MaxL2 = new TH1F("maxL2","Max point L2", 1000, 0.0, 3.);
-       MaxDis = new TH1F("maxDis","Max point Dis", 1000, 0.0, 3.); // 9
+       fPointE = new TH1F("00_pointE","point energy", 2000, 0.0, 150.);
+       fPointL1 = new TH1F("01_pointL1","point L1", 1000, 0.0, 3.);
+       fPointL2 = new TH1F("02_pointL2","point L2", 1000, 0.0, 3.);
+       fPointDis = new TH1F("03_pointDisp","point dispersion", 1000, 0.0, 10.);
+       fPointMult = new TH1F("04_pointMult","#cell in point(cluster)", 101, -0.5, 100.5);
+       fDigitAmp = new TH1F("05_digitAmp","Digit Amplitude", 2000, 0.0, 5000.);
+       fMaxE = new TH1F("06_maxE","Max point energy", 2000, 0.0, 150.);
+       fMaxL1 = new TH1F("07_maxL1","Largest (first) of eigenvalue of covariance matrix", 1000, 0.0, 3.);
+       fMaxL2 = new TH1F("08_maxL2","Smalest (second) of eigenvalue of covariace matrix", 1000, 0.0, 3.);
+       fMaxDis = new TH1F("09_maxDis","Point dispersion", 1000, 0.0, 10.); // 9
        //
-        new TH1F("adcOfDigits","adc of digits(threshold control)", 1001, -0.5, 1000.5);   // 10
-        new TH1F("energyOfDigits","energy of digits(threshold control)", 1000, 0.0, 1.);  // 11
+        new TH1F("10_adcOfDigits","adc of digits(threshold control)", 1001, -0.5, 1000.5);   // 10
+        new TH1F("11_energyOfDigits","energy of digits(threshold control)", 1000, 0.0, 1.);  // 11
+        new TH1F("12_numberOfPoints","number of points(clusters)", 101, -0.5, 100.5);        // 12
 
   return AliEMCALHistoUtilities::MoveHistsToList("EmcalClusterizerv1ControlHists", kFALSE);
 }
@@ -663,8 +653,27 @@ void AliEMCALClusterizerv1::SaveHists(const char *fn)
   AliEMCALHistoUtilities::SaveListOfHists(fHists, fn, kTRUE);
 }
 
-void AliEMCALClusterizerv1::Browse(TBrowser* b)
+void  AliEMCALClusterizerv1::PrintRecoInfo()
 {
-  if(fHists) b->Add(fHists);
-  TTask::Browse(b);
+  printf(" AliEMCALClusterizerv1::PrintRecoInfo() : version %s \n", Version() );
+  TH1F *h = (TH1F*)fHists->At(12);
+  if(h) {
+    printf(" ## Multiplicity of RecPoints ## \n");
+    for(int i=1; i<=h->GetNbinsX(); i++) {
+      int nbin = int((*h)[i]);
+      int mult = int(h->GetBinCenter(i));
+      if(nbin > 0) printf(" %i : %5.5i %6.3f %% \n", mult, nbin, 100.*nbin/h->GetEntries()); 
+    }    
+  }
+}
+
+void AliEMCALClusterizerv1::DrawLambdasHists()
+{
+  if(fMaxL1) {
+    fMaxL1->Draw();
+    if(fMaxL2) fMaxL2->Draw("same");
+    if(fMaxDis) {
+      fMaxDis->Draw("same");
+    }
+  }
 }