]> git.uio.no Git - u/mrichter/AliRoot.git/blobdiff - PHOS/AliPHOSGetter.cxx
Coding convention obeyed
[u/mrichter/AliRoot.git] / PHOS / AliPHOSGetter.cxx
index a25894937faa9162fe583dc6ec9e169ce38d8cb1..d52cb66c5a2ed0bc22373e599444d463f90d949f 100644 (file)
               Everywhere reading the treese TTree->GetEvent(i)
               is replaced by reading the branches TBranch->GetEntry(0)
 */
+/* $Log:
+   08.2002 Dmitri Peressounko:
+
+*/
 
 //_________________________________________________________________________
 //  A singleton. This class should be used in the analysis stage to get 
@@ -35,7 +39,7 @@
 //  for(Int_t irecp = 0; irecp < gime->NRecParticles() ; irecp++)
 //     AliPHOSRecParticle * part = gime->RecParticle(1) ;
 //     ................
-//  please->GetEvent(event) ;    // reads new event from galice.root
+//  gime->Event(event) ;    // reads new event from galice.root
 //                  
 //*-- Author: Yves Schutz (SUBATECH) & Dmitri Peressounko (RRC KI & SUBATECH)
 //*--         Completely redesigned by Dmitri Peressounko March 2001  
 //*--         systematic usage of TFolders without changing the interface        
 //////////////////////////////////////////////////////////////////////////////
 
-
 // --- ROOT system ---
-
 #include "TFile.h"
 #include "TTree.h"
 #include "TROOT.h"
 #include "TObjString.h"
 #include "TFolder.h"
+#include "TParticle.h"
 
 // --- Standard library ---
-#include <iostream.h>
 
 // --- AliRoot header files ---
-
 #include "AliRun.h"
+#include "AliConfig.h"
 #include "AliPHOSGetter.h"
 #include "AliPHOS.h"
 #include "AliPHOSDigitizer.h"
 #include "AliPHOSSDigitizer.h"
-#include "AliPHOSClusterizer.h"
 #include "AliPHOSClusterizerv1.h"
-#include "AliPHOSTrackSegmentMaker.h"
 #include "AliPHOSTrackSegmentMakerv1.h"
 #include "AliPHOSTrackSegment.h"
-#include "AliPHOSPID.h" 
 #include "AliPHOSPIDv1.h" 
 #include "AliPHOSGeometry.h"
-
+#include "AliPHOSRaw2Digits.h"
+//#include "AliPHOSCalibrationDB.h"
+#include "AliPHOSBeamTestEvent.h"
 ClassImp(AliPHOSGetter)
   
   AliPHOSGetter * AliPHOSGetter::fgObjGetter = 0 ; 
+  TFile * AliPHOSGetter::fgFile = 0 ; 
 
 //____________________________________________________________________________ 
-AliPHOSGetter::AliPHOSGetter(const char* headerFile, const char* branchTitle )
+AliPHOSGetter::AliPHOSGetter(const char* headerFile, const char* branchTitle, const Bool_t toSplit )
 {
-  //Initialize  all lists
+  // This is the ctor called by GetInstance and the only one that can be used 
 
-  fHeaderFile         = headerFile ; 
-  fSDigitsTitle       = branchTitle ; 
-  fDigitsTitle        = branchTitle ; 
-  fRecPointsTitle     = branchTitle ; 
-  fRecParticlesTitle  = branchTitle ; 
-  fTrackSegmentsTitle = branchTitle ; 
+  if( fHeaderFile.Contains("_") ) {
+    Fatal("AliPHOSGetter", "Invalid file name (_ not allowed) %s", fHeaderFile.Data() ) ;
+  }
 
-  fPrimaries = new TObjArray(1) ;
+  //Initialize  all data
 
-  //open headers file
-  TFile * file = (TFile*) gROOT->GetFile(fHeaderFile.Data() ) ;
+  fFailed = kFALSE ;   
+  fDebug  = 0 ; 
+  fAlice  = 0 ; 
+  fBTE    = 0 ;
 
- if(file == 0){    //if file was not opened yet, read gAlice
-    if(fHeaderFile.Contains("rfio")) // if we read file using HPSS
-      file =   TFile::Open(fHeaderFile.Data(),"update") ;
-    else
-      file = new TFile(fHeaderFile.Data(),"update") ;
+  fToSplit    = toSplit ;
+  fHeaderFile = headerFile ; 
+
+  fPrimaries = new TObjArray(1) ;
+
+  fModuleFolder    = dynamic_cast<TFolder*>(gROOT->FindObjectAny("Folders/Run/Configuration/Modules")); 
+  fPrimariesFolder = dynamic_cast<TFolder*>(gROOT->FindObjectAny("Folders/RunMC/Event/Data")); 
+  fHitsFolder      = dynamic_cast<TFolder*>(gROOT->FindObjectAny("Folders/RunMC/Event/Data/Hits")); 
+  fSDigitsFolder   = dynamic_cast<TFolder*>(gROOT->FindObjectAny("Folders/RunMC/Event/Data/SDigits")); 
+  fDigitsFolder    = dynamic_cast<TFolder*>(gROOT->FindObjectAny("Folders/Run/Event/Data")); 
+  fRecoFolder      = dynamic_cast<TFolder*>(gROOT->FindObjectAny("Folders/Run/Event/RecData")); 
+  fQAFolder        = dynamic_cast<TFolder*>(gROOT->FindObjectAny("Folders/Run/Conditions/QA")); 
+  fTasksFolder     = dynamic_cast<TFolder*>(gROOT->FindObjectAny("Folders/Tasks")) ; 
+
+  //Set titles to branches and create PHOS specific folders
+  SetTitle(branchTitle) ;
+
+  if ( fHeaderFile != "aliroot"  ) { // to call the getter without a file
+    //open headers file
+    fgFile = static_cast<TFile*>(gROOT->GetFile(fHeaderFile.Data() ) ) ;
+
+    if(!fgFile) {    //if file was not opened yet, read gAlice
+      fgFile = TFile::Open(fHeaderFile.Data(),"update") ;
+      if (!fgFile->IsOpen()) {
+       Error("AliPHOSGetter", "Cannot open %s", fHeaderFile.Data() ) ; 
+       fFailed = kTRUE ;
+        return ;  
+      }
+    }
+    gAlice = dynamic_cast<AliRun *>(fgFile->Get("gAlice")) ;
+  }
   
-  if (!file->IsOpen()) {
-    cerr << "ERROR : AliPHOSGetter::AliPHOSGetter -> Cannot open " << fHeaderFile.Data() << endl ; 
-    abort() ; 
+  if (!gAlice) {
+    Error("AliPHOSGetter", "Cannot find gAlice in %s", fHeaderFile.Data() ) ; 
+    fFailed = kTRUE ;
+    return ; 
   }
-    
-     gAlice = (AliRun *) file->Get("gAlice") ;
-    
-    if (!gAlice) {
-      cerr << "ERROR : AliPHOSGetter::AliPHOSGetter -> Cannot find gAlice in " << fHeaderFile.Data() << endl ; 
-      abort() ; 
+  if (!PHOS()) {
+    if (fDebug)
+      Info("AliPHOSGetter", "-> Posting PHOS to Folders") ; 
+    if (gAlice->GetDetector("PHOS")) {
+      AliConfig * conf = AliConfig::Instance() ; 
+      conf->Add(static_cast<AliDetector*>(gAlice->GetDetector("PHOS"))) ; 
+      conf->Add(static_cast<AliModule*>(gAlice->GetDetector("PHOS"))) ; 
     }
+    else 
+      Error("AliPHOSGetter", "detector PHOS not found") ;    
   }
+
+  fDebug=0;
 }
 
 //____________________________________________________________________________ 
-void AliPHOSGetter::CreateWhiteBoard() const
+AliPHOSGetter::~AliPHOSGetter()
 {
-  // Posts a few item to the white board (folders)
+  // dtor
+  if (fPrimaries) {
+    fPrimaries->Delete() ; 
+    delete fPrimaries ; 
+  }
+
+  TFolder * phosF = dynamic_cast<TFolder *>(fSDigitsFolder->FindObject("PHOS")) ;
+  TCollection * folderslist = phosF->GetListOfFolders() ; 
+  TIter next(folderslist) ; 
+  TFolder * folder = 0 ; 
+  while ( (folder = static_cast<TFolder*>(next())) ) 
+    phosF->Remove(folder) ; 
   
-  // -- the geometry
-  Post(fHeaderFile, "G") ; 
+  if (fgFile) { 
+    fgFile->Close() ;  
+    delete fgFile ;
+    fgFile = 0 ;
+  }
+  fgObjGetter = 0 ; 
   
-  // -- the hits
-  Post(fHeaderFile, "H") ; 
-    
 }
 
 //____________________________________________________________________________ 
-AliPHOSGetter * AliPHOSGetter::GetInstance()
+void AliPHOSGetter::CloseFile()
 {
-  // Returns the pointer of the unique instance already defined
-  
-  AliPHOSGetter * rv = 0 ;
-  if ( fgObjGetter )
-    rv = fgObjGetter ;
-  else
-    cout << "AliPHOSGetter::GetInstance ERROR: not yet initialized" << endl ;
-
-  return rv ;
+  // delete gAlice
+
+  if(gAlice)
+    delete gAlice ;  
+  gAlice = 0 ; 
+  if(fAlice)
+    delete fAlice ; 
+  fAlice = 0 ; 
 }
 
 //____________________________________________________________________________ 
-AliPHOSGetter * AliPHOSGetter::GetInstance(const char* headerFile,
-                                          const char* branchTitle)
-{
-  // Creates and returns the pointer of the unique instance
-  // Must be called only when the environment has changed 
-
-
-  if ( fgObjGetter )      // delete it if already exists
-    delete fgObjGetter ; 
+const TFolder * AliPHOSGetter::Folder(const TString what) const {
 
-  fgObjGetter = new AliPHOSGetter(headerFile,branchTitle) ; 
-  
-  // Posts a few item to the white board (folders)
-  fgObjGetter->CreateWhiteBoard() ;
-
-  // Get the first event into the arrays posted on the white board
-  // branchTitle = 0, means simulation run and no event yet 
-  if (branchTitle) 
-    fgObjGetter->Event(0) ;
+  // returns the PHOS folder required by what
+  // what = hits, sdigits, digits
 
-  return fgObjGetter ; 
-  
+  if ( what == "hits" ) 
+    return dynamic_cast<const TFolder *>(fHitsFolder->FindObject("PHOS")) ; 
+  else if ( what == "sdigits" ) 
+    return  dynamic_cast<const TFolder *>(fSDigitsFolder->FindObject("PHOS")) ; 
+  else if ( what == "digits" ) 
+    return  dynamic_cast<const TFolder *>(fDigitsFolder->FindObject("PHOS")) ; 
+  else {
+    Error("GetFolder", " %s illegal option (hits, sdigits, digits)", what.Data() ) ; 
+    return 0 ; 
+  }
 }
 
 //____________________________________________________________________________ 
- const  AliPHOS * AliPHOSGetter::PHOS() const 
+AliPHOSGetter * AliPHOSGetter::GetInstance()
 {
-  // returns the PHOS object 
-  return ( (AliPHOS*)gAlice->GetDetector("PHOS") ); 
-}  
+  // Returns the pointer of the unique instance already defined
+  
+  if ( fgObjGetter ) {
+    return fgObjGetter ;
+  }
+  else {
+    //Warning("GetInstance", "not yet initialized") ;
+    return 0 ; 
+  }
+}
 
 //____________________________________________________________________________ 
-  const AliPHOSGeometry *  AliPHOSGetter::PHOSGeometry() const 
+AliPHOSGetter * AliPHOSGetter::GetInstance(const char* headerFile,
+                                          const char* branchTitle,
+                                           const Bool_t toSplit)
 {
-  // retrieves the geometr from the folder
+  // Creates and returns the pointer of the unique instance
+  // Must be called only when the environment has changed
 
-  TString path("YSAlice/WhiteBoard/Geometry/PHOS/") ;
-  path += PHOS()->GetTitle() ;
-  return (AliPHOSGeometry*)gROOT->FindObjectAny(path.Data()) ; 
-}
+  if(!fgObjGetter){
+    fgObjGetter = new AliPHOSGetter(headerFile,branchTitle,toSplit) ;
+    if(fgObjGetter->fFailed)
+      return 0;
+    else
+      return fgObjGetter ;
+  }
 
-//____________________________________________________________________________ 
-void AliPHOSGetter::Post(const char * headerFile, const char * opt, const char * name, const Int_t event) const 
-{
-  // Adds a new folder for summable digits 
-  TString foldertitle ; 
-  if ( event >= 0 ) 
-    foldertitle += event ; 
-  else 
-    foldertitle = "" ; 
+  //First checks, if header file already opened
+  if(!fgObjGetter->fgFile){
+     fgObjGetter = new AliPHOSGetter(headerFile,branchTitle,toSplit) ;
+    if(fgObjGetter->fFailed)
+      return 0;
+    else
+      return fgObjGetter ;
+  }
 
-  TFolder * aliceF  = (TFolder*)gROOT->FindObjectAny("YSAlice") ; 
-  if ( strcmp(opt, "G") == 0 ) { // Geometry
-    // the hierarchy is //YSALICE/WhiteBoard/Geometry/PHOS/
-    AliPHOSGeometry * geom = AliPHOSGeometry::GetInstance(PHOS()->GetTitle(),"") ;  
-    TFolder * geomF  = (TFolder*)aliceF->FindObject("WhiteBoard/Geometry/PHOS") ; 
-    if ( !geomF ) {
-      cerr << "ERROR: AliPHOSGetter::Post G -> Folder WhiteBoard/Geometry/PHOS/" << " not found!" << endl;
-      abort() ; 
-    }    
-    else 
-      geomF->Add((TObject*)geom) ; 
-   
-  } else if ( strcmp(opt, "H") == 0 ) { // Hits
-    // the hierarchy is //YSALICE/WhiteBoard/SDigits/PHOS/Hits
-    TClonesArray * hits = new TClonesArray("AliPHOSHit",1000) ;
-    hits->SetName("Hits") ; 
-    TFolder * hitsF  = (TFolder*)aliceF->FindObject("WhiteBoard/Hits/PHOS") ; 
-    if ( !hitsF ) {
-      cerr << "ERROR: AliPHOSGetter::Post H -> Folder WhiteBoard/Hits/PHOS/" << " not found!" << endl;
-      abort() ; 
-    }    
-    else 
-      hitsF->Add(hits) ; 
-
-  } else if ( strcmp(opt, "S") == 0 ) { // summable digits
-    // the hierarchy is //YSALICE/WhiteBoard/SDigits/PHOS/headerFile/sdigitsname
-    // because you can have sdigits from several hit files for mixing
-    TClonesArray * sdigits = new TClonesArray("AliPHOSDigit",1000) ;
-    TString sdigitsName ; 
-    if (name) 
-      sdigitsName = name ;
-    else 
-      sdigitsName = "SDigits" ;        
-    sdigits->SetName( sdigitsName.Data() ) ; 
-    TFolder * sdigitsF  = (TFolder*)aliceF->FindObject("WhiteBoard/SDigits/PHOS") ;
-    TFolder * sdigitsF2 = 0 ; 
-    TString subdir(headerFile) ;
-    if ( !(sdigitsF2=(TFolder*)sdigitsF->FindObject(subdir)) ) 
-      sdigitsF2 = sdigitsF->AddFolder(subdir, foldertitle); 
-    else {
-      if ( sdigitsF2->FindObject( sdigitsName.Data() ) ) {
-       cerr <<"INFO: AliPHOSGetter::Post S -> Folder " << subdir << ", " << foldertitle
-            << " already exists!" << endl ;  
-       return ; 
-      }
+  if(fgObjGetter->fHeaderFile.CompareTo(headerFile)==0){ //Opened the same header file
+    if((fgObjGetter->fBranchTitle.CompareTo(branchTitle) == 0)&&   //Open the same branch title
+       (toSplit==fgObjGetter->fToSplit)){                          //Nothing should be cleaned
     }
-    if ( !sdigitsF2 ) {
-      cerr << "ERROR: AliPHOSGetter::Post S -> Folder WhiteBoard/SDigits/PHOS/" << subdir << " not created!" << endl;
-      abort() ; 
+    else{ //Clean all data and AliPHOS...zers
+      if(fgObjGetter->fToSplit)
+       fgObjGetter->CloseSplitFiles() ;
+      fgObjGetter->CleanWhiteBoard() ;
+      fgObjGetter->fToSplit = toSplit ;
+      fgObjGetter->SetTitle(branchTitle) ;
     }
-    else 
-      sdigitsF2->Add(sdigits) ;
-
-  } else if ( strcmp(opt, "Ser") == 0 ) { // sdigizer
-    // the hierarchy is //YSALICE/tasks/Digitizer/PHOS/sdigitsname
-    AliPHOSSDigitizer * sdigitizer = new AliPHOSSDigitizer() ; 
-    TString sdigitsName ; 
-    if (name) 
-      sdigitsName = name ;
-    else 
-      sdigitsName = "SDigitizer" ;
-    sdigitizer->SetName( sdigitsName.Data() ) ; 
-    TTask * sdigitsF  = (TTask*)aliceF->FindObject("tasks/SDigitizer") ; 
-    if ( !sdigitsF ) {
-      cerr << "ERROR: AliPHOSGetter::Post Ser -> Task tasks/SDigitizer" << " not found!" << endl;
-      abort() ; 
-    }        
-    TTask * phos = (TTask*)sdigitsF->GetListOfTasks()->FindObject("PHOS") ; 
-    if ( !phos )  {
-      cerr <<"ERROR: AliPHOSGetter::Post Ser -> tasks/SDigitizer/PHOS" << " not found!" << endl; 
-      abort() ; 
-    } else {
-      AliPHOSSDigitizer * phossd = (AliPHOSSDigitizer*)phos->GetListOfTasks()->FindObject(sdigitsName.Data()) ; 
-      if (phossd) { 
-       cout << "INFO: AliPHOSGetter::Post Ser -> Task " << sdigitsName.Data() << " already exists" << endl ; 
-       return ; 
-      } else 
-       phos->Add(sdigitizer) ;
-    } 
-
-  } else if ( strcmp(opt, "D") == 0 ) { // digits
-    // the hierarchy is //YSALICE/WhiteBoard/Digits/PHOS/digitsname
-    TClonesArray * digits  = new TClonesArray("AliPHOSDigit",20000) ;
-    TString digitsName ; 
-    if (name) 
-      digitsName = name ;
-    else 
-      digitsName = "Digits" ;  
-    digits->SetName( digitsName.Data() ) ; 
-    TFolder * digitsF  = (TFolder*)aliceF->FindObject("WhiteBoard/Digits/PHOS") ;
-    if ( !digitsF ) {
-      cerr << "ERROR: AliPHOSGetter::Post D -> Folder WhiteBoard/Digits/PHOS/" << " not found!" << endl;
-      abort() ; 
-    }    
-    digitsF->SetTitle(foldertitle) ; 
-    if ( digitsF->FindObject( digitsName.Data() ) ) {
-      cerr <<"INFO: AliPHOSGetter::Post D -> Object " << digitsName.Data() 
-          << " already exists!" << endl ;  
-      return ; 
-    } 
-    else 
-      digitsF->Add(digits) ;  
-
-  } else if ( strcmp(opt, "Der") == 0 ) { // sdigizer
-    // the hierarchy is //YSALICE/tasks/Digitizer/PHOS/digitsname
-    AliPHOSDigitizer * digitizer = new AliPHOSDigitizer() ; 
-    TString digitsName ; 
-    if (name) 
-      digitsName = name ;
-    else 
-      digitsName = "Digitizer" ;
-    digitizer->SetName( digitsName.Data() ) ; 
-    TTask * digitsF  = (TTask*)aliceF->FindObject("tasks/Digitizer") ; 
-    if ( !digitsF ) {
-      cerr << "ERROR: AliPHOSGetter::Post Der -> Task tasks/Digitizer" << " not found!" << endl;
-      abort() ; 
-    }        
-    TTask * phos = (TTask*)digitsF->GetListOfTasks()->FindObject("PHOS") ; 
-    if ( !phos )  {
-      cerr <<"ERROR: AliPHOSGetter::Post Der -> tasks/Digitizer/PHOS" << " not found!" << endl; 
-      abort() ; 
-    } else {
-      AliPHOSDigitizer * phosd = (AliPHOSDigitizer*)phos->GetListOfTasks()->FindObject(digitsName.Data()) ; 
-      if (phosd) { 
-       cout << "INFO: AliPHOSGetter::Post Der -> Task " << digitsName.Data() << " already exists" << endl ; 
-       return ; 
-      } else 
-       phos->Add(digitizer) ;
+  }
+  else{  //Close already opened files, clean memory and open new header file
+    if(gAlice){ //should first delete gAlice, then close file
+      //Should be in dtor of PHOS, but if one changes path ...
+      fgObjGetter->fModuleFolder->Remove(fgObjGetter->fModuleFolder->FindObject("PHOS")) ; 
+      delete gAlice ;      
     }
-  } else if ( strcmp(opt, "R") == 0 ) { // RecPoints
-    // the hierarchy is //YSALICE/WhiteBoard/RecPoints/PHOS/emc/recpointsname
-    //                  //YSALICE/WhiteBoard/RecPoints/PHOS/cpv/recpointsname
-    TObjArray * emcrp  = new TObjArray(100) ;
-    TObjArray * cpvrp  = new TObjArray(100) ;
-    TString recpointsName ; 
-    if (name) 
-      recpointsName = name ;
-    else       
-      recpointsName = "RecPoints" ;    
-    emcrp->SetName( recpointsName.Data() ) ; 
-    cpvrp->SetName( recpointsName.Data() ) ; 
-    TFolder * emcrpF  = (TFolder*)aliceF->FindObject("WhiteBoard/RecPoints/PHOS/emc") ; 
-    TFolder * cpvrpF  = (TFolder*)aliceF->FindObject("WhiteBoard/RecPoints/PHOS/cpv") ;
-    emcrpF->SetTitle(foldertitle) ; 
-    cpvrpF->SetTitle(foldertitle) ; 
-    if ( !emcrpF || !cpvrpF ) {
-      cerr << "ERROR: AliPHOSGetter::Post R -> Folder WhiteBoard/RecPoints/PHOS/emc(cpv)" << " not found!" << endl;
-      abort() ; 
-    }    
-    // TString title("PHOS Digits") ; 
-    if ( emcrpF->FindObject( recpointsName.Data() ) ||  cpvrpF->FindObject( recpointsName.Data() ) ) {
-      cerr <<"INFO: AliPHOSGetter::Post R -> Object " << recpointsName.Data() 
-          << " already exists!" << endl ;  
-      return ; 
-    } 
-    else {
-      emcrpF->Add(emcrp) ;  
-      cpvrpF->Add(cpvrp) ;
-    }  
-
-  } else if ( strcmp(opt, "Rer") == 0 ) { // clusterizer
-    // the hierarchy is //YSALICE/tasks/Reconstructionner/PHOS/recpointsname
-    AliPHOSClusterizer * clusterizer; 
-    if ( strstr(name, "clu-v1") != 0 )   
-        clusterizer = new AliPHOSClusterizerv1() ;
-    else {
-      cerr << "ERROR: AliPHOSGetter::Post Rer -> " << name << " unknown clusterizer version" << endl ;  
-      abort() ; 
-    }
-    TString recpointsName ; 
-    if (name) 
-      recpointsName = name ;
-    else 
-      recpointsName = "Clusterizer" ;
-    clusterizer->SetName( recpointsName.Data() ) ; 
-    TTask * reF  = (TTask*)aliceF->FindObject("tasks/Reconstructioner") ; 
-    if ( !reF ) {
-      cerr << "ERROR: AliPHOSGetter::Post Rer -> Task tasks/Reconstructioner" << " not found!" << endl;
-      abort() ; 
-    }        
-    TTask * phos = (TTask*)reF->GetListOfTasks()->FindObject("PHOS") ; 
-    if ( !phos )  {
-      cerr <<"ERROR: AliPHOSGetter::Post Rer -> tasks/Reconstructioner/PHOS" << " not found!" << endl; 
-      abort() ; 
-    } else {
-       AliPHOSClusterizer * phoscl = (AliPHOSClusterizer*)phos->GetListOfTasks()->FindObject(recpointsName.Data()) ; 
-      if (phoscl) { 
-       cout << "INFO: AliPHOSGetter::Post Rer -> Task " << recpointsName.Data() << " already exists" << endl ; 
-       return ; 
-      } else 
-       phos->Add(clusterizer) ;
-    }
-
-  } else if ( strcmp(opt, "T") == 0 ) { //TrackSegments
-    // the hierarchy is //YSALICE/WhiteBoard/TrackSegments/PHOS/tracksegmentsname
-
-    TClonesArray * tracksegments  = new TClonesArray("AliPHOSTrackSegment", 200) ;
-    TString tracksegmentsName ; 
-    if (name) 
-      tracksegmentsName = name ;
-    else       
-      tracksegmentsName = "TrackSegments" ;    
-    tracksegments->SetName( tracksegmentsName.Data() ) ; 
-    TFolder * tracksegmentsF  = (TFolder*)aliceF->FindObject("WhiteBoard/TrackSegments/PHOS") ; 
-    tracksegmentsF->SetTitle(foldertitle) ;  
-    if ( !tracksegmentsF) {
-      cerr << "ERROR: AliPHOSGetter::Post T -> Folder WhiteBoard/TrackSegments/PHOS" << " not found!" << endl;
-      abort() ; 
-    }    
-    if ( tracksegmentsF->FindObject( tracksegmentsName.Data() ) ) {
-      cerr <<"INFO: AliPHOSGetter::Post T -> Object " << tracksegmentsName.Data() 
-          << " already exists!" << endl ;  
-      return ; 
-    } 
-    else 
-      tracksegmentsF->Add(tracksegments) ;  
-
-  } else if ( strcmp(opt, "Ter") == 0 ) { // TrackSegmentsMaker
-    // the hierarchy is //YSALICE/tasks/Reconstructionner/PHOS/tracksegmentsname
-    AliPHOSTrackSegmentMaker * tracksegmentmaker ; 
-    if ( strstr(name, "tsm-v1") != 0 )   
-        tracksegmentmaker = new AliPHOSTrackSegmentMakerv1() ;
-    else {
-      cerr << "ERROR: AliPHOSGetter::Post Ter -> " << name << " unknown track segment maker version" << endl ;  
-      abort() ; 
-    }
-    TString tracksegmentsName ; 
-    if (name) 
-      tracksegmentsName = name ;
-    else 
-      tracksegmentsName = "TrackSegmentMaker" ;
-    tracksegmentmaker->SetName( tracksegmentsName.Data() ) ; 
-    TTask * reF  = (TTask*)aliceF->FindObject("tasks/Reconstructioner") ; 
-    if ( !reF ) {
-      cerr << "ERROR: AliPHOSGetter::Post Ter -> Task tasks/Reconstructioner" << " not found!" << endl;
-      abort() ; 
-    }        
-    TTask * phos = (TTask*)reF->GetListOfTasks()->FindObject("PHOS") ; 
-    if ( !phos )  {
-      cerr <<"ERROR: AliPHOSGetter::Post Ter -> tasks/Reconstructioner/PHOS" << " not found!" << endl; 
-      abort() ; 
-    } else {
-       AliPHOSTrackSegmentMaker * phosts = (AliPHOSTrackSegmentMaker*)phos->GetListOfTasks()->FindObject(tracksegmentsName.Data()) ; 
-      if (phosts) { 
-       cout << "INFO: AliPHOSGetter::Post Ter -> Task " << tracksegmentsName.Data() << " already exists" << endl ; 
-       return ; 
-      } else 
-       phos->Add(tracksegmentmaker) ;
-    }
-  
-  } else if ( strcmp(opt, "P") == 0 ) { // RecParticles
-    // the hierarchy is //YSALICE/WhiteBoard/RecParticles/PHOS/recparticlesname
-
-    TClonesArray * recparticles  = new TClonesArray("AliPHOSRecParticle", 200) ;
-    TString recparticlesName ; 
-    if (name) 
-      recparticlesName = name ;
-    else       
-      recparticlesName = "RecParticles" ;      
-    recparticles->SetName( recparticlesName.Data() ) ; 
-    TFolder * recparticlesF  = (TFolder*)aliceF->FindObject("WhiteBoard/RecParticles/PHOS") ; 
-    recparticlesF->SetTitle(foldertitle) ;  
-    if ( !recparticlesF) {
-      cerr << "ERROR: AliPHOSGetter::Post P -> Folder WhiteBoard/RecParticles/PHOS" << " not found!" << endl;
-      abort() ; 
-    }    
-    if ( recparticlesF->FindObject( recparticlesName.Data() ) ) {
-      cerr <<"INFO: AliPHOSGetter::Post P -> Object " << recparticlesName.Data() 
-          << " already exists!" << endl ;  
-      return ; 
-    } 
-    else 
-      recparticlesF->Add(recparticles) ;  
-
-  } else if ( strcmp(opt, "Per") == 0 ) { // PID Maker
-    // the hierarchy is //YSALICE/tasks/Reconstructionner/PHOS/recparticlesname
-    AliPHOSPID * pid ; 
-    if ( strstr(name, "pid-v1") != 0 )   
-        pid = new AliPHOSPIDv1() ;
-    else {
-      cerr << "ERROR: AliPHOSGetter::Post Per -> " << name << " unknown PID maker version" << endl ;  
-      abort() ; 
-    }
-    TString recparticlesName ; 
-    if (name) 
-      recparticlesName = name ;
-    else 
-      recparticlesName = "PID" ;
-    pid->SetName( recparticlesName.Data() ) ; 
-    TTask * reF  = (TTask*)aliceF->FindObject("tasks/Reconstructioner") ; 
-    if ( !reF ) {
-      cerr << "ERROR: AliPHOSGetter::Post Per -> Task tasks/Reconstructioner" << " not found!" << endl;
-      abort() ; 
-    }        
-    TTask * phos = (TTask*)reF->GetListOfTasks()->FindObject("PHOS") ; 
-    if ( !phos )  {
-      cerr <<"ERROR: AliPHOSGetter::Post Per -> tasks/Reconstructioner/PHOS" << " not found!" << endl; 
-      abort() ; 
-    } else {
-       AliPHOSPID * phospid = (AliPHOSPID*)phos->GetListOfTasks()->FindObject(recparticlesName.Data()) ; 
-      if (phospid) { 
-       cout << "INFO: AliPHOSGetter::Post Per -> Task " << recparticlesName.Data() << " already exists" << endl ; 
-       return ; 
-      } else 
-       phos->Add(pid) ;
+    if(fgObjGetter->fgFile){
+      fgObjGetter->fgFile->Close() ;
+      fgObjGetter->fgFile=0;
     }
-  } 
-  else if ( strcmp(opt, "QA") == 0 ) { // Alarms
-    // the hierarchy is //YSALICE/WhiteBoard/Alarms/PHOS/
-
-    TFolder * alarmsF  = new TFolder() ;
-    TString alarmsName ; 
-    if (name) 
-      alarmsName = name ;
-    else       
-      alarmsName = "Alarm with no name" ;      
-    alarmsF->SetName( alarmsName.Data() ) ; 
-    alarmsF->SetTitle(foldertitle) ;  
-    TFolder * qaaF  = (TFolder*)aliceF->FindObject("WhiteBoard/QAAlarms") ; 
-    if ( !qaaF) {
-      cerr << "ERROR: AliPHOSGetter::Post QA -> Folder WhiteBoard/QAAlarms/" << " not found!" << endl;
-      return ; 
-    }    
-    if ( qaaF->FindObject( alarmsName.Data() ) ) 
-      qaaF->RecursiveRemove(  qaaF->FindObject( alarmsName.Data() ) ) ; 
-    
-    qaaF->Add(alarmsF) ;  
+    if(fgObjGetter->fToSplit)
+      fgObjGetter->CloseSplitFiles() ;
+    fgObjGetter->CleanWhiteBoard() ;    
+    fgObjGetter = new AliPHOSGetter(headerFile,branchTitle,toSplit) ;
 
   }
+  return fgObjGetter ; 
+  
 }
 
 //____________________________________________________________________________ 
-const TParticle * AliPHOSGetter::Primary(Int_t index) const
+const Bool_t AliPHOSGetter::BranchExists(const TString recName) const
 {
-  // Return primary particle numbered by <index>
+  //Looks in the tree Tree"name" if branch with current name olready exists
+
+  TString filename("") ;
+  TString name, dataname, zername ;
+  if(recName == "SDigits"){
+    filename=fSDigitsFileName ;
+    name = "TreeS0" ;
+    dataname = "PHOS" ;
+    zername = "AliPHOSSDigitizer" ;
+  }
+  else
+    if(recName == "Digits"){
+      filename=fDigitsFileName ;
+      name = "TreeD0" ;
+      dataname = "PHOS" ;
+      zername = "AliPHOSDigitizer" ;
+    }
+    else
+      if(recName == "RecPoints"){
+       filename=fRecPointsFileName ;
+       name = "TreeR0" ;
+       dataname = "PHOSEmcRP" ;
+       zername = "AliPHOSClusterizer" ;
+      }
+      else
+       if(recName == "TrackSegments"){
+         filename=fTrackSegmentsFileName ;
+         name = "TreeR0" ;
+         dataname = "PHOSTS" ;
+         zername = "AliPHOSTrackSegmentMaker" ;
+       }        
+       else
+         if(recName == "RecParticles"){
+           filename= fRecParticlesFileName ;
+           name = "TreeR0" ;
+           dataname = "PHOSRP" ;
+           zername = "AliPHOSPID" ;
+         }
+         else
+           return kFALSE ;
+
+  TFile * file ;
+  TTree * tree ;
+  if(fToSplit){
+    file = static_cast<TFile*>(gROOT->GetFile(filename.Data() ) ) ;
+    if(!file)
+      file = TFile::Open(fSDigitsFileName.Data(),"update");
+  }
+  else
+    file = fgFile ;
 
-  if(index < 0) 
-    return 0 ;
+  tree = (TTree *)file->Get(name.Data()) ;
   
-  Int_t primaryIndex = index % 10000000 ; 
-  Int_t primaryList = (Int_t ) ((index-primaryIndex)/10000000.)  ;
-  
-  if ( primaryList > 0  ) {
-    cout << " Getter does not support currently Mixing of primary " << endl ;
-    cout << "   can not return primary: " << index<< " (list "<< primaryList<< " primary # " << primaryIndex << " )"<<endl ;
-    return 0;
+  if(!tree ) 
+    return kFALSE ;
+
+  TObjArray * lob = static_cast<TObjArray*>(tree->GetListOfBranches()) ;
+  TIter next(lob) ; 
+  TBranch * branch = 0 ;  
+  TString titleName(fBranchTitle);
+  titleName+=":";
+  while ((branch = (static_cast<TBranch*>(next())))) {
+    TString branchName(branch->GetName() ) ; 
+    TString branchTitle(branch->GetTitle() ) ;  
+    if ( branchName.BeginsWith(dataname) && branchTitle.BeginsWith(fBranchTitle) ){  
+      Warning("BranchExists", "branch %s with title %s already exists in %s", dataname.Data(), fBranchTitle.Data(), name.Data() ) ;
+      return kTRUE ;
+    }
+    if ( branchName.BeginsWith(zername) &&  branchTitle.BeginsWith(titleName) ){
+      Warning("BranchExists", "branch AliPHOS... with title %s already exists in %s", branch->GetTitle(), name.Data() ) ;     
+      return kTRUE ; 
+    }
   }
-  
-  return gAlice->Particle(primaryIndex) ;
+  //We can't delete three if gAlice points to it... To be redisigned somehow???!!!
+  if(!fToSplit){
+    if(name.Contains("TreeS"))
+      if(tree!=gAlice->TreeS())
+       tree->Delete();
+    if(name.Contains("TreeD"))
+      if(tree!=gAlice->TreeD())
+       tree->Delete();
+    if(name.Contains("TreeR"))
+      if(tree!=gAlice->TreeR())
+       tree->Delete();    
+  }
+  return kFALSE ;
   
 }
 
 //____________________________________________________________________________ 
-void AliPHOSGetter::ReadTreeD()
+void AliPHOSGetter::ListBranches(Int_t event) const  
 {
-  // Read the digit tree gAlice->TreeD()  
-  if(gAlice->TreeD()== 0){
-    cerr <<   "ERROR: AliPHOSGetter::ReadTreeD: can not read TreeD " << endl ;
-  return ;
-  }
+  // Iterates over branches in each TreeH, TreeS, TreeD and TreeR and
+  // prints lists of branches to stdout
+  // (I don't know why this method is needed. Yu.Kharlov)
   
-  TObjArray * lob = (TObjArray*)gAlice->TreeD()->GetListOfBranches() ;
-  TIter next(lob) ; 
   TBranch * branch = 0 ; 
-  TBranch * digitsbranch = 0 ; 
-  TBranch * digitizerbranch = 0 ; 
-  Bool_t phosfound = kFALSE, digitizerfound = kFALSE ; 
-  
-  while ( (branch = (TBranch*)next()) && (!phosfound || !digitizerfound) ) {
-    if ( (strcmp(branch->GetName(), "PHOS")==0) && (strcmp(branch->GetTitle(), fDigitsTitle)==0) ) {
-      digitsbranch = branch ; 
-      phosfound = kTRUE ;
-    }
-    else if ( (strcmp(branch->GetName(), "AliPHOSDigitizer")==0) && (strcmp(branch->GetTitle(), fDigitsTitle)==0) ) {
-      digitizerbranch = branch ; 
-      digitizerfound = kTRUE ; 
-    }
-  }
-
-  if ( !phosfound || !digitizerfound ) {
-    cerr << "WARNING: AliPHOSGetter::ReadTreeD -> Cannot find Digits and/or Digitizer with name " << fDigitsTitle << endl ;
+  if (gAlice->GetEvent(event) == -1)
     return ; 
-  }   
-
- // Post the Digits
-  Post(fHeaderFile, "D", fDigitsTitle) ; 
   
-   // Post the Digitizer
-  Post(fHeaderFile, "Der", fDigitsTitle) ; 
-
-  TClonesArray * digits = Digits(fDigitsTitle) ; 
-  digits->Clear() ; 
-  digitsbranch   ->SetAddress(&digits) ;
-
-  AliPHOSDigitizer * digitizer = Digitizer(fDigitsTitle) ;
-  digitizerbranch->SetAddress(&digitizer) ;
+  TTree * t =  gAlice->TreeH() ; 
+  if(t){
+    Info("ListBranches", "-> ****** Hits    : ") ; 
+    TObjArray * lob = t->GetListOfBranches() ;
+    TIter next(lob) ; 
+    while ( (branch = static_cast<TBranch*>(next())) )
+      Info("ListBranches", "             %s", branch->GetName()) ; 
+  } else
+    Warning("ListBranches", "TreeH not found for event %d", event ) ;  
+  
+  t = gAlice->TreeS() ;
+  if(t){
+    Info("ListBranches", "-> ****** SDigits : ") ; 
+    TObjArray * lob = t->GetListOfBranches() ;
+    TIter next(lob) ; 
+    while ( (branch = static_cast<TBranch*>(next())) )
+      Info("ListBranches", "             %s %s", branch->GetName(), branch->GetTitle()) ; 
+  } else 
+    Warning("ListBranches", "TreeS not found for event %d", event)  ;  
+  
+  
+  t = gAlice->TreeD() ;
+  if(t){
+    Info("ListBranches", "-> ****** Digits  : ") ; 
+    TObjArray * lob = t->GetListOfBranches() ;
+    TIter next(lob) ; 
+    while ( (branch = static_cast<TBranch*>(next())) )
+      Info("ListBranches", "             %s %s", branch->GetName(), branch->GetTitle()) ; 
+  } else 
+    Warning("ListBranches", "TreeD not found for event %d", event) ;  
+  
 
-  digitsbranch   ->GetEntry(0) ;
-  digitizerbranch->GetEntry(0) ;
+  t = gAlice->TreeR() ;
+  if(t){
+    Info("ListBranches", "-> ****** Recon   : ") ; 
+    TObjArray * lob = t->GetListOfBranches() ;
+    TIter next(lob) ; 
+    while ( (branch = static_cast<TBranch*>(next())) )
+     Info("ListBranches", "             %s %s", branch->GetName(), branch->GetTitle()) ; 
+  } else 
+    Warning("ListBranches", "TreeR not found for event %d", event) ;  
   
 }
 
 //____________________________________________________________________________ 
-void AliPHOSGetter::ReadTreeH()
+void AliPHOSGetter::NewBranch(TString name, Int_t event)  
 {
-  // Read the first entry of PHOS branch in hit tree gAlice->TreeH()
+  // Set titles for (S)Digits, RecPoints, TSegments and RecParticles branches
 
-  if(gAlice->TreeH()== 0){
-    cerr <<   "ERROR: AliPHOSGetter::ReadTreeH: -> Cannot read TreeH " << endl ;
-    return ;
-  }
+  fBranchTitle = fSDigitsTitle = fDigitsTitle = fRecPointsTitle = fTrackSegmentsTitle = fRecParticlesTitle =  name ; 
+  Event(event) ; 
+}
+
+//____________________________________________________________________________ 
+Bool_t AliPHOSGetter::NewFile(TString name)  
+{
+  // Open a new file
+  fHeaderFile = name ; 
+  fgFile->Close() ; 
+  fFailed = kFALSE; 
+
+  fgFile = static_cast<TFile*>(gROOT->GetFile(fHeaderFile.Data() ) ) ;
+  if(!fgFile) {    //if file was not opened yet, read gAlice
+    fgFile = TFile::Open(fHeaderFile.Data(),"update") ;
+    if (!fgFile->IsOpen()) {
+      Error("NewFile", "Cannot open %s", fHeaderFile.Data() ) ; 
+      fFailed = kTRUE ;
+      return fFailed ;  
+    }
+    gAlice = static_cast<AliRun *>(fgFile->Get("gAlice")) ;
+  } 
   
-  TBranch * hitsbranch = (TBranch*)gAlice->TreeH()->GetListOfBranches()->FindObject("PHOS") ;
-  if ( !hitsbranch ) {
-    cerr << "WARNING:  AliPHOSGetter::ReadTreeH -> Cannot find branch PHOS" << endl ; 
-  } else {
-    TClonesArray * hits = Hits() ; 
-    hits->Clear() ; 
-    hitsbranch->SetAddress(&hits) ;
-    hitsbranch->GetEntry(0) ;
+  if (!gAlice) {
+    Error("AliPHOSGetter", "Cannot find gAlice in %s", fHeaderFile.Data() ) ; 
+    fFailed = kTRUE ;
+    return fFailed ; 
   }
+  return fFailed ; 
 }
 
 //____________________________________________________________________________ 
-void AliPHOSGetter::ReadTreeQA()
+const AliPHOS * AliPHOSGetter::PHOS() 
 {
-  // Read the digit tree gAlice->TreeQA()
-  // so far only PHOS knows about this Tree  
+  // returns the PHOS object 
+  AliPHOS * phos = dynamic_cast<AliPHOS*>(fModuleFolder->FindObject("PHOS")) ;  
+  if (!phos) 
+    if (fDebug)
+      Warning("PHOS", "-> PHOS module not found in Folders") ; 
+  return phos ; 
+}  
 
-  if(PHOS()->TreeQA()== 0){
-    cerr <<   "ERROR: AliPHOSGetter::ReadTreeQA: can not read TreeQA " << endl ;
-    return ;
-  }
+//____________________________________________________________________________ 
+const AliPHOSGeometry * AliPHOSGetter::PHOSGeometry() 
+{
+  // Returns PHOS geometry
+
+  AliPHOSGeometry * rv = 0 ; 
+  if (PHOS() )
+    rv =  PHOS()->GetGeometry() ;
+  return rv ; 
+} 
+
+//____________________________________________________________________________ 
+const Bool_t AliPHOSGetter::PostPrimaries(void) const 
+{  //------- Primaries ----------------------
+
+  // the hierarchy is //Folders/RunMC/Event/Data/Primaries
   
-  TBranch * qabranch = PHOS()->TreeQA()->GetBranch("PHOS") ; 
-  if (!qabranch) { 
-    cerr << "WARNING: AliPHOSGetter::ReadTreeQA -> Cannot find QA Alarms for PHOS" << endl ;
-    return ; 
-  }   
+  TFolder * primariesFolder = dynamic_cast<TFolder*>(fPrimariesFolder->FindObject("Primaries")) ; 
+  if ( !primariesFolder ) {
+    if (fDebug) {
+      Warning("PostPrimaries", "-> Folder //%s/Primaries/ not found!", fPrimariesFolder->GetName()) ;
+      Info("PostPrimaries", "-> Adding Folder //%s/Primaries", fPrimariesFolder->GetName()) ;
+    }
+    primariesFolder = fPrimariesFolder->AddFolder("Primaries", "Primaries particles from TreeK") ; 
+  }    
+  TClonesArray *primaries=  new TClonesArray("TParticle",1000) ;
+  primaries->SetName("Primaries") ;
+  primariesFolder->Add(primaries) ; 
+  
+  return kTRUE;
+} 
+
+//____________________________________________________________________________ 
+TObject** AliPHOSGetter::PrimariesRef(void) const 
+{  //------- Primaries ----------------------
 
- // Post the QA Alarms
-  Post(fHeaderFile, "QA", "PHOS") ; 
-  TFolder * alarmsF = Alarms() ; 
-  alarmsF->Clear() ; 
-  qabranch->SetAddress(&alarmsF) ;
-  qabranch->GetEntry(0) ;
   
+  // the hierarchy is //Folders/RunMC/Event/Data/Primaries
+  if ( !fPrimariesFolder ) {
+    Fatal("PrimariesRef", "Folder //%s not found", fPrimariesFolder) ;
+  }    
+  TFolder * primariesFolder = dynamic_cast<TFolder *>(fPrimariesFolder->FindObject("Primaries")) ;
+  if ( !primariesFolder ) {
+    Fatal("PrimariesRef", "Folder //%s/Primaries/ not found", fPrimariesFolder) ;  
+  }
+  TObject * p = primariesFolder->FindObject("Primaries") ;
+  if(!p) {
+    Fatal("PrimariesRef","%s /Primaries not found !", primariesFolder->GetName() ) ; 
+  }
+
+  return primariesFolder->GetListOfFolders()->GetObjectRef(p) ;
 }
 
 //____________________________________________________________________________ 
-void AliPHOSGetter::ReadTreeR()
-{
-  // Read the reconstrunction tree gAlice->TreeR()
+const Bool_t AliPHOSGetter::PostHits(void) const 
+{  //------- Hits ----------------------
 
-  if(gAlice->TreeR()== 0){
-    cout <<   "ERROR: AliPHOSGetter::ReadTreeR: can not read TreeR " << endl ;
-   return ;
-  }
-  // RecPoints 
-  TObjArray * lob = (TObjArray*)gAlice->TreeR()->GetListOfBranches() ;
-  TIter next(lob) ; 
-  TBranch * branch = 0 ; 
-  TBranch * emcbranch = 0 ; 
-  TBranch * cpvbranch = 0 ; 
-  TBranch * clusterizerbranch = 0 ; 
-  Bool_t phosemcrpfound = kFALSE, phoscpvrpfound = kFALSE, clusterizerfound = kFALSE ; 
+  // the hierarchy is //Folders/RunMC/Event/Data/PHOS/Hits
   
-  while ( (branch = (TBranch*)next()) && (!phosemcrpfound || !phoscpvrpfound || !clusterizerfound) ) {
-    if ( (strcmp(branch->GetName(), "PHOSEmcRP")==0) && (strcmp(branch->GetTitle(), fRecPointsTitle)==0) ) {
-      emcbranch = branch ; 
-      phosemcrpfound = kTRUE ;
+  TFolder * phosFolder = dynamic_cast<TFolder*>(fHitsFolder->FindObject("PHOS")) ; 
+  if ( !phosFolder ) {
+    if (fDebug) {
+      Warning("PostHits", "-> Folder //%s/PHOS/ not found!", fHitsFolder) ;
+      Info("PostHits", "-> Adding Folder //%s/PHOS/", fHitsFolder) ;
     }
-    else if ( (strcmp(branch->GetName(), "PHOSCpvRP")==0) && (strcmp(branch->GetTitle(), fRecPointsTitle)==0) ) {
-      cpvbranch = branch ; 
-      phoscpvrpfound = kTRUE ;
-    }
-    else if ( (strcmp(branch->GetName(), "AliPHOSClusterizer")==0) && (strcmp(branch->GetTitle(), fRecPointsTitle)==0) ) {
-      clusterizerbranch = branch ; 
-      clusterizerfound = kTRUE ; 
-    }
-  }
+    phosFolder = fHitsFolder->AddFolder("PHOS", "Hits from PHOS") ; 
+  }    
+  TClonesArray *hits=  new TClonesArray("AliPHOSHit",1000) ;
+  hits->SetName("Hits") ;
+  phosFolder->Add(hits) ; 
+  
+  return kTRUE;
+} 
 
-  if ( !phosemcrpfound || !phoscpvrpfound || !clusterizerfound ) {
-    cerr << "WARNING: AliPHOSGetter::ReadTreeR -> Cannot find RecPoints and/or Clusterizer with name " << fRecPointsTitle << endl ;
-    return ; 
-  }   
+//____________________________________________________________________________ 
+TObject** AliPHOSGetter::HitsRef(void) const 
+{  //------- Hits ----------------------
+
+  
+  // the hierarchy is //Folders/RunMC/Event/Data/PHOS/Hits
+  if ( !fHitsFolder ) {
+    Fatal("HitsRef", "Folder //%s not found !", fHitsFolder) ;
+  }    
  
- // Post the RecPoints
-  Post(fHeaderFile, "R", fRecPointsTitle) ; 
-
-  // Post the Clusterizer
-  //  Need the version first
-  AliPHOSClusterizer * clusterizer = 0 ; 
-  clusterizerbranch->SetAddress(&clusterizer) ;
-  clusterizerbranch->GetEntry(0) ;
-  TString clusterizerName(fRecPointsTitle) ; 
-  clusterizerName.Append(clusterizer->Version()) ; 
-  delete clusterizer ;
-  Post(fHeaderFile, "Rer", clusterizerName) ; 
-
-  TObjArray * emcRecPoints = EmcRecPoints(fRecPointsTitle) ;
-  emcRecPoints->Clear() ; 
-  emcbranch->SetAddress(&emcRecPoints) ;
-
-  TObjArray * cpvRecPoints = CpvRecPoints(fRecPointsTitle) ;
-  cpvRecPoints->Clear() ; 
-  cpvbranch->SetAddress(&cpvRecPoints) ;
-
-  clusterizer = Clusterizer(clusterizerName) ;
-  clusterizerbranch->SetAddress(&clusterizer) ;
-
-  emcbranch        ->GetEntry(0) ;
-  cpvbranch        ->GetEntry(0) ;
-  clusterizerbranch->GetEntry(0) ;
+  TFolder * phosFolder = dynamic_cast<TFolder *>(fHitsFolder->FindObject("PHOS")) ;
+  if ( !phosFolder ) {
+    Fatal("HitsRef", "Folder //%s/PHOS/ not found !", fHitsFolder) ;  
+  }
  
-  // TrackSegments
-  next.Reset() ; 
-  TBranch * tsbranch = 0 ; 
-  TBranch * tsmakerbranch = 0 ; 
-  Bool_t phostsfound = kFALSE, tsmakerfound = kFALSE ; 
-  
-  while ( (branch = (TBranch*)next()) && (!phostsfound || !tsmakerfound) ) {
-    if ( (strcmp(branch->GetName(), "PHOSTS")==0) && (strcmp(branch->GetTitle(), fTrackSegmentsTitle)==0) ) {
-      tsbranch = branch ; 
-      phostsfound = kTRUE ;
-    }
-    else if ( (strcmp(branch->GetName(), "AliPHOSTrackSegmentMaker")==0) && (strcmp(branch->GetTitle(), fTrackSegmentsTitle)==0) ) {
-      tsmakerbranch = branch ; 
-      tsmakerfound  = kTRUE ; 
-    }
+  TObject * h = phosFolder->FindObject("Hits") ;
+  if(!h) {
+    Fatal("HitsRef", "%s/Hits not fount !", phosFolder->GetName() ) ; 
   }
 
-  if ( !phostsfound || !tsmakerfound ) {
-    cerr << "WARNING: AliPHOSGetter::ReadTreeR -> Cannot find TrackSegments and/or TrackSegmentMaker with name " << fTrackSegmentsTitle << endl ;
-    return ; 
-  } 
+  return phosFolder->GetListOfFolders()->GetObjectRef(h) ;
+}
 
- // Post the TrackSegments
-  Post(fHeaderFile, "T", fTrackSegmentsTitle) ; 
-
-  // Post the TrackSegment Maker
-  //  Need the version first
-  AliPHOSTrackSegmentMaker * tsmaker = 0 ; 
-  tsmakerbranch->SetAddress(&tsmaker) ;
-  tsmakerbranch->GetEntry(0) ;
-  TString tsmakerName(fTrackSegmentsTitle) ; 
-  tsmakerName.Append(tsmaker->Version()) ; 
-  delete tsmaker ;
-  Post(fHeaderFile, "Ter", tsmakerName) ; 
-
-  TClonesArray * tracksegments = TrackSegments(fTrackSegmentsTitle) ;
-  tracksegments->Clear() ; 
-  tsbranch->SetAddress(&tracksegments) ;
-  tsmaker = TrackSegmentMaker(tsmakerName) ; 
-  tsmakerbranch->SetAddress(&tsmaker) ;
+//____________________________________________________________________________ 
+const Bool_t AliPHOSGetter::PostSDigits(const char * name, const char * headerFile) const 
+{  //---------- SDigits -------------------------
 
-  tsmakerbranch    ->GetEntry(0) ;
-  tsbranch         ->GetEntry(0) ;
-   
-  // RecParticles
-  next.Reset() ; 
-  TBranch * rpabranch = 0 ; 
-  TBranch * pidbranch = 0 ; 
-  Bool_t phosrpafound = kFALSE, pidfound = kFALSE ; 
   
-  while ( (branch = (TBranch*)next()) && (!phosrpafound || !pidfound) ) {
-    if ( (strcmp(branch->GetName(), "PHOSRP")==0) && (strcmp(branch->GetTitle(), fRecParticlesTitle)==0) ) {
-      rpabranch = branch ; 
-      phosrpafound = kTRUE ;
+  // the hierarchy is //Folders/RunMC/Event/Data/PHOS/SDigits/headerFile/sdigitsname
+  // because you can have sdigits from several hit files for mixing
+  
+  TFolder * phosFolder = dynamic_cast<TFolder*>(fSDigitsFolder->FindObject("PHOS")) ;
+  if ( !phosFolder ) {
+    if (fDebug) {
+      Warning("PostSDigits", "-> Folder //%s/PHOS/ not found!", fSDigitsFolder) ;
+      Info("PostSDigits", "-> Adding Folder //%s/PHOS/", fHitsFolder) ;
     }
-    else if ( (strcmp(branch->GetName(), "AliPHOSPID")==0) && (strcmp(branch->GetTitle(), fRecParticlesTitle)==0) ) {
-      pidbranch = branch ; 
-      pidfound  = kTRUE ; 
+    phosFolder = fSDigitsFolder->AddFolder("PHOS", "SDigits from PHOS") ; 
+  }    
+
+  
+  TString subdir(headerFile) ;
+  if(fToSplit){
+    subdir.Remove(subdir.Last('/')+1,subdir.Length()) ;
+    subdir.ReplaceAll("/","_") ; 
+    subdir+="PHOS.SDigits." ;
+    if(name && (strcmp(name,"Default")!=0)){
+      subdir+=name ;
+      subdir+="." ;
     }
+    subdir+="root" ;
   }
+    
+  TFolder * phosSubFolder = dynamic_cast<TFolder*>(phosFolder->FindObject(subdir)) ; 
+  if ( !phosSubFolder ) 
+    phosSubFolder = phosFolder->AddFolder(subdir, ""); 
+  
 
-  if ( !phosrpafound || !pidfound ) {
-    cerr << "WARNING: AliPHOSGetter::ReadTreeR -> Cannot find RecParticles and/or PID with name " << fRecParticlesTitle << endl ;
-    return ; 
-  } 
+  TObject * sd  = phosSubFolder->FindObject(name); 
+  if ( !sd ) {
+    TClonesArray * sdigits = new TClonesArray("AliPHOSDigit",1) ;
+    sdigits->SetName(name) ;
+    phosSubFolder->Add(sdigits) ;
+  }
+  
+  return kTRUE;
+} 
+//____________________________________________________________________________ 
+TObject** AliPHOSGetter::SDigitsRef(const char * name, const char * foldername) const 
+{  //------- SDigits ----------------------
+  
+  // the hierarchy is //Folders/RunMC/Event/Data/PHOS/SDigits/filename/SDigits
 
-  // Post the RecParticles
-  Post(fHeaderFile, "P", fRecParticlesTitle) ; 
+  if ( !fSDigitsFolder ) {
+    Fatal("SDigitsRef", "Folder //%s not found !", fSDigitsFolder) ;
+  }    
+  TFolder * phosFolder = static_cast<TFolder *>(fSDigitsFolder->FindObject("PHOS")) ;
+  if ( !phosFolder ) {
+    Fatal("SDigitsRef", "Folder //%s/PHOS not found !", fSDigitsFolder) ;
+  }
 
-  // Post the PID
-  //  Need the version first
-  AliPHOSPID * pid = 0 ; 
-  pidbranch->SetAddress(&pid) ;
-  pidbranch->GetEntry(0) ;
-  TString pidName(fRecParticlesTitle) ; 
-  pidName.Append(pid->Version()) ; 
-  delete pid ;
+  TFolder * phosSubFolder = 0 ;
 
-  Post(fHeaderFile, "Per", pidName) ; 
+  phosSubFolder = dynamic_cast<TFolder *>(phosFolder->FindObject(foldername)) ;
+  
+  if(!phosSubFolder) {
+    Fatal("SDigitsRef", "Folder //Folders/RunMC/Event/Data/PHOS/%s not found !", foldername) ;
+  }
 
-  TClonesArray * recParticles = RecParticles(fRecParticlesTitle) ; 
-  recParticles->Clear() ; 
-  rpabranch->SetAddress(&recParticles) ;
+  TObject * dis = phosSubFolder->FindObject(name) ;
+  if(!dis){
+    Fatal("SDigitsRef", "object %s not found !", name) ; 
+  }
+
+  return phosSubFolder->GetListOfFolders()->GetObjectRef(dis) ;
 
-  pid = PID(pidName) ; 
-  pidbranch->SetAddress(&pid) ;
-  
-  pidbranch        ->GetEntry(0) ;
-  rpabranch        ->GetEntry(0) ;
-  
 }
 
 //____________________________________________________________________________ 
-void AliPHOSGetter::ReadTreeS()
-{
-  // Read the summable digits tree gAlice->TreeS()  
-
-  if(gAlice->TreeS()== 0){
-    cerr <<   "ERROR: AliPHOSGetter::ReadTreeS -> Cannot find TreeS " << endl ;
-    return ;
+const Bool_t AliPHOSGetter::PostSDigitizer(AliPHOSSDigitizer * sdigitizer) const 
+{  
+  //---------- SDigitizer -------------------------
+  // the hierarchy is //Folders/Tasks/SDigitizer/PHOS/sdigitsname
+
+
+  TTask * sd  = dynamic_cast<TTask*>(fTasksFolder->FindObject("SDigitizer")) ; 
+
+  if ( !sd ) {
+    Error("PostDigitizer", "Task //%s/SDigitizer not found !", fTasksFolder) ;
+    return kFALSE ;
+  }        
+  TTask * phos = dynamic_cast<TTask*>(sd->GetListOfTasks()->FindObject("PHOS")) ; 
+  if ( !phos )  {
+    if (fDebug) {
+      Warning("PostSDigitizer", "->//%s/SDigitizer/PHOS/ not found!", fTasksFolder) ;  
+      Info("PostSDigitizer", "-> Adding //%s/SDigitizer/PHOS/", fTasksFolder) ;
+    }
+    phos = new TTask("PHOS", "") ; 
+    sd->Add(phos) ; 
+  } 
+  AliPHOSSDigitizer * phossd  = dynamic_cast<AliPHOSSDigitizer *>(phos->GetListOfTasks()->FindObject( sdigitizer->GetName() )); 
+  if (phossd) { 
+    if (fDebug)
+      Info("PostSDigitizer", "-> Task %s already exists", sdigitizer->GetName()) ; 
+    phos->GetListOfTasks()->Remove(phossd) ;
   }
+  phos->Add(sdigitizer) ;      
+  return kTRUE; 
   
-  TObjArray * lob = (TObjArray*)gAlice->TreeS()->GetListOfBranches() ;
-  TIter next(lob) ; 
+}
+
+//____________________________________________________________________________ 
+TObject** AliPHOSGetter::SDigitizerRef(const char * name) const 
+{  
+  //---------- return task SDigitizer -------------------------
+
+  TTask * sd  = dynamic_cast<TTask*>(fTasksFolder->FindObject("SDigitizer")) ; 
+  if ( !sd ) {
+    Fatal("SDigitizerRef", "Task //%s/SDigitizer not found !", fTasksFolder) ;
+  }        
+
+  TTask * phos = dynamic_cast<TTask*>(sd->GetListOfTasks()->FindObject("PHOS")) ; 
+  if ( !phos )  {
+    Fatal("SDigitizerRef", "//%s/SDigitizer/PHOS not found !", fTasksFolder) ;
+  }        
+
+  TTask * task = dynamic_cast<TTask*>(phos->GetListOfTasks()->FindObject(name)) ; 
+
+  return phos->GetListOfTasks()->GetObjectRef(task) ;
+
+}
+
+//____________________________________________________________________________ 
+const Bool_t AliPHOSGetter::PostSDigitizer(const char * name, const char * file) const 
+{  
+  //---------- SDigitizer -------------------------
+  // the hierarchy is //Folders/Tasks/SDigitizer/PHOS/sdigitsname
+
+  TTask * sd  = dynamic_cast<TTask*>(fTasksFolder->FindObject("SDigitizer")) ; 
+  if ( !sd ) {
+    Error("PostSDigitizer", "Task //%s/SDigitizer not found !", fTasksFolder) ;
+    return kFALSE ;
+  }        
+
+  TTask * phos = dynamic_cast<TTask*>(sd->GetListOfTasks()->FindObject("PHOS")) ; 
+  if ( !phos )  {
+    if (fDebug) {
+      Error("PostSDigitizer", "->  //%s/SDigitizer/PHOS/ not found!", fTasksFolder) ;
+      Info("PostSDigitizer", "-> Adding  //%s/SDigitizer/PHOS", fTasksFolder) ;
+    }
+    phos = new TTask("PHOS", "") ; 
+    sd->Add(phos) ; 
+  } 
+
+  TString sdname(name) ;
+  sdname.Append(":") ;
+  sdname.Append(file);
+  sdname.ReplaceAll("/","_") ; 
+  AliPHOSSDigitizer * phossd  = dynamic_cast<AliPHOSSDigitizer *>(phos->GetListOfTasks()->FindObject( sdname )); 
+  if (!phossd) {
+    phossd = new AliPHOSSDigitizer() ;  
+    //Note, we can not call constructor with parameters: it will call Getter and scew up everething
+    phossd->SetName(sdname) ;
+    phossd->SetTitle(file) ;
+    phos->Add(phossd) ;        
+  }
+  return kTRUE; 
+  
+}
+
+//____________________________________________________________________________ 
+const Bool_t AliPHOSGetter::PostDigits(const char * name) const 
+{  //---------- Digits -------------------------
+
+  // the hierarchy is //Folders/Run/Event/Data/PHOS/SDigits/name
+
+  TFolder * phosFolder  = dynamic_cast<TFolder*>(fDigitsFolder->FindObject("PHOS")) ;
+
+  if ( !phosFolder ) {
+    if (fDebug) {
+      Warning("PostDigitizer", "-> Folder //%s/PHOS/ not found!", fDigitsFolder) ;
+      Info("PostDigitizer", "-> Adding Folder //%s/PHOS/", fDigitsFolder) ;
+    }
+    phosFolder = fDigitsFolder->AddFolder("PHOS", "Digits from PHOS") ;  
+  }    
+  TObject*  dig = phosFolder->FindObject( name ) ;
+  if ( !dig ) {
+    TClonesArray * digits = new TClonesArray("AliPHOSDigit",1000) ;
+    digits->SetName(name) ;
+    phosFolder->Add(digits) ;  
+  }
+  return kTRUE; 
+}
+
+//____________________________________________________________________________ 
+TObject** AliPHOSGetter::DigitsRef(const char * name) const 
+{
+  //------- Digits ----------------------
+    // the hierarchy is //Folders/Run/Event/Data/PHOS/Digits/name
+
+  if ( !fDigitsFolder ) {
+    Fatal("DigitsRef", "Folder //%s not found !", fDigitsFolder) ;
+  }    
+  
+  TFolder * phosFolder  = dynamic_cast<TFolder*>(fDigitsFolder->FindObject("PHOS")) ; 
+  if ( !phosFolder ) {
+    Fatal("DigitsRef", "Folder //%s/PHOS/ not found !", fDigitsFolder) ;
+  }    
+
+  TObject * d = phosFolder->FindObject(name) ;
+  if(!d) {
+    Fatal("DigitsRef", "object %s not found !", name) ; 
+  }
+
+  return phosFolder->GetListOfFolders()->GetObjectRef(d) ;
+
+}
+
+//____________________________________________________________________________ 
+const Bool_t AliPHOSGetter::PostDigitizer(AliPHOSDigitizer * digitizer) const 
+{
+  //---------- Digitizer -------------------------
+  
+  TTask * sd  = dynamic_cast<TTask*>(fTasksFolder->FindObject("Digitizer")) ; 
+
+  if ( !sd ) {
+    Error("PostDigitizer", "Task //%s/Digitizer not found !", fTasksFolder) ;
+    return kFALSE ;
+  }        
+  TTask * phos = dynamic_cast<TTask*>(sd->GetListOfTasks()->FindObject("PHOS")) ; 
+  if ( !phos )  {
+    if (fDebug) {
+      Error("PostDigitizer", "//%s/Digitizer/PHOS not found!", fTasksFolder) ;
+      Info("PostDigitizer", "Adding //%s/Digitizer/PHOS", fTasksFolder) ; 
+    }
+    phos = new TTask("PHOS", "") ; 
+    sd->Add(phos) ; 
+  } 
+
+    AliPHOSDigitizer * phosd = dynamic_cast<AliPHOSDigitizer*>(phos->GetListOfTasks()->FindObject(digitizer->GetName())) ; 
+    if (phosd) { 
+      phosd->Delete() ;
+      phos->GetListOfTasks()->Remove(phosd) ;
+    }
+    phos->Add(digitizer) ; 
+    return kTRUE; 
+}  
+
+//____________________________________________________________________________ 
+const Bool_t AliPHOSGetter::PostDigitizer(const char * name) const 
+{
+  //---------- Digitizer -------------------------
+  // the hierarchy is //Folders/Tasks/SDigitizer/PHOS/sdigitsname
+
+  TTask * d  = dynamic_cast<TTask*>(fTasksFolder->FindObject("Digitizer")) ; 
+  if ( !d ) {
+    Error("PostDigitizer", "Task //%s/Digitizer not found !", fTasksFolder) ;
+    return kFALSE ;
+  }        
+
+  TTask * phos = dynamic_cast<TTask*>(d->GetListOfTasks()->FindObject("PHOS")) ; 
+  if ( !phos )  {
+    if (fDebug) {
+      Warning("PostDigitizer", "//%s/Digitizer/PHOS not found!", fTasksFolder) ; 
+      Info("PostDigitizer", "Adding //%s/Digitizer/PHOS", fTasksFolder) ;
+    }
+    phos = new TTask("PHOS", "") ; 
+    d->Add(phos) ; 
+} 
+
+  TTask * phosd = dynamic_cast<TTask*>(phos->GetListOfTasks()->FindObject(fDigitsTitle)) ; 
+  if (!phosd) { 
+    if(strcmp(name, "Digitizer")==0){
+      phosd = new AliPHOSDigitizer() ;
+      phosd->SetName(fDigitsTitle) ;
+      phosd->SetTitle(fHeaderFile) ;
+      phos->Add(phosd) ;
+    } 
+    else{
+      phosd = new AliPHOSRaw2Digits() ;
+      phosd->SetName(fDigitsTitle) ;
+      phosd->SetTitle(fHeaderFile) ;
+      phos->Add(phosd) ;
+    }      
+  }
+  return kTRUE;  
+}
+
+//____________________________________________________________________________ 
+TObject** AliPHOSGetter::DigitizerRef(const char * name) const 
+{  
+  // -------------- Return Digitizer task ------------------------------------
+  TTask * sd  = dynamic_cast<TTask*>(fTasksFolder->FindObject("Digitizer")) ; 
+  if ( !sd ) {
+    Fatal("DigitizerRef", "Task //%s/Digitizer not found !", fTasksFolder) ;
+  }        
+
+  TTask * phos = dynamic_cast<TTask*>(sd->GetListOfTasks()->FindObject("PHOS")) ; 
+  if ( !phos )  {
+    Fatal("DigitizerRef", "//%s/Digitizer/PHOS", fTasksFolder) ;
+  }        
+
+  TTask * task = dynamic_cast<TTask*>(phos->GetListOfTasks()->FindObject(name)) ; 
+
+  return phos->GetListOfTasks()->GetObjectRef(task) ;
+
+}
+//____________________________________________________________________________ 
+const Bool_t AliPHOSGetter::PostRecPoints(const char * name) const 
+{ // -------------- RecPoints -------------------------------------------
+  
+  // the hierarchy is //Folders/Run/Event/RecData/PHOS/EMCARecPoints/name
+  // the hierarchy is //Folders/Run/Event/RecData/PHOS/CPVRecPoints/name
+
+  TFolder * phosFolder  = dynamic_cast<TFolder*>(fRecoFolder->FindObject("PHOS")) ; 
+  
+  if ( !phosFolder ) {
+    if (fDebug) {
+      Warning("PostRecPoints", "-> Folder //%s/PHOS/ not found!", fRecoFolder->GetName()) ;
+      Info("PostRecPoints", "-> Adding Folder //%s/PHOS/", fRecoFolder->GetName()) ;
+    }
+    phosFolder = fRecoFolder->AddFolder("PHOS", "Reconstructed data from PHOS") ;  
+  }    
+  
+  // EMCA RecPoints 
+  TFolder * phosRPoEMCAFolder  = dynamic_cast<TFolder*>(phosFolder->FindObject("EMCARecPoints")) ;
+  if ( !phosRPoEMCAFolder ) {
+    if (fDebug) {
+      Warning("PostRecPoints", "-> Folder //%s/PHOS/EMCARecPoints/ not found!", fRecoFolder->GetName()) ;
+      Info("PostRecPoints", "-> Adding Folder //%s/PHOS/EMCARecPoints", fRecoFolder->GetName()) ;
+    }
+    phosRPoEMCAFolder = phosFolder->AddFolder("EMCARecPoints", "EMCA RecPoints from PHOS") ;  
+  }    
+  
+  TObject * erp = phosFolder->FindObject( name ) ;
+  if ( !erp )   {
+    TObjArray * emcrp = new TObjArray(100) ;
+    emcrp->SetName(name) ;
+    phosRPoEMCAFolder->Add(emcrp) ;  
+  }
+
+  // CPV RecPoints 
+  TFolder * phosRPoCPVFolder  = dynamic_cast<TFolder*>(phosFolder->FindObject("CPVRecPoints")) ;
+  if ( !phosRPoCPVFolder ) {
+    if (fDebug) {
+      Warning("PostRecPoints", "-> Folder //%s/PHOS/CPVRecPoints/ not found!", fRecoFolder->GetName()) ;
+      Info("PostRecPoints", "-> Adding Folder //%s/PHOS/CPVRecPoints/", fRecoFolder->GetName()) ;
+    }
+    phosRPoCPVFolder = phosFolder->AddFolder("CPVRecPoints", "CPV RecPoints from PHOS") ;  
+  }    
+  
+  TObject * crp =  phosRPoCPVFolder->FindObject( name ) ;
+  if ( !crp )   {
+    TObjArray * cpvrp = new TObjArray(100) ;
+    cpvrp->SetName(name) ;
+    phosRPoCPVFolder->Add(cpvrp) ;  
+  }
+  return kTRUE; 
+}
+
+//____________________________________________________________________________ 
+TObject** AliPHOSGetter::EmcRecPointsRef(const char * name) const 
+{ // -------------- RecPoints -------------------------------------------
+  
+  // the hierarchy is //Folders/Run/Event/RecData/PHOS/EMCARecPoints/name
+   
+  if ( !fRecoFolder ) {
+    Fatal("EmcRecPointsRef", "Folder //%s not found !", fRecoFolder->GetName() ) ;
+  }    
+
+  TFolder * phosFolder  = dynamic_cast<TFolder*>(fRecoFolder->FindObject("PHOS/EMCARecPoints")) ; 
+  if ( !phosFolder ) {
+     Fatal("EmcRecPointsRef", "Folder //%s/PHOS/EMCARecPoints/ not found !", fRecoFolder->GetName() ) ;
+  }    
+
+
+  TObject * erp = phosFolder->FindObject(name ) ;
+  if ( !erp )   {
+    Fatal("EmcRecPointsRef", "object %s not found !", name) ; 
+  }
+  return phosFolder->GetListOfFolders()->GetObjectRef(erp) ;
+  
+} 
+
+//____________________________________________________________________________ 
+TObject** AliPHOSGetter::CpvRecPointsRef(const char * name) const 
+{ // -------------- RecPoints -------------------------------------------
+  
+  // the hierarchy is //Folders/Run/Event/RecData/PHOS/CPVRecPoints/name
+   
+  if ( !fRecoFolder ) {
+    Fatal("CpvRecPointsRef", "Folder //%s not found !", fRecoFolder->GetName() ) ;
+  }    
+
+  TFolder * phosFolder  = dynamic_cast<TFolder*>(fRecoFolder->FindObject("PHOS/CPVRecPoints")) ; 
+  if ( !phosFolder ) {
+    Fatal("CpvRecPointsRef", "Folder //%s/PHOS/CPVRecPoints/ not found !", fRecoFolder->GetName() ) ;
+  }    
+
+  TObject * crp = phosFolder->FindObject(name ) ;
+  if ( !crp )   {
+    Fatal("CpvRecPointsRef", "object %s nott found", name ) ; 
+  }
+  return phosFolder->GetListOfFolders()->GetObjectRef(crp) ;
+  
+} 
+
+//____________________________________________________________________________ 
+const Bool_t AliPHOSGetter::PostClusterizer(AliPHOSClusterizer * clu) const 
+{ // ------------------ AliPHOSClusterizer ------------------------
+  
+  // the hierarchy is //Folders/Tasks/Reconstructioner/PHOS/sdigitsname
+
+  TTask * tasks  = dynamic_cast<TTask*>(fTasksFolder->FindObject("Reconstructioner")) ; 
+
+  if ( !tasks ) {
+    Error("PostClusterizer", "Task //%s/Reconstructioner not found !", fTasksFolder) ;
+    return kFALSE ;
+  }        
+        
+  TTask * phos = dynamic_cast<TTask*>(tasks->GetListOfTasks()->FindObject("PHOS")) ; 
+  if ( !phos )  {
+    if (fDebug) {
+      Warning("PostClusterizer", "//%s/Reconstructioner/PHOS not found!", fTasksFolder) ; 
+      Info("PostClusterizer", "Adding //%s/Reconstructioner/PHOS", fTasksFolder) ; 
+    }
+    phos = new TTask("PHOS", "") ; 
+    tasks->Add(phos) ; 
+  } 
+
+  AliPHOSClusterizer * phoscl = dynamic_cast<AliPHOSClusterizer*>(phos->GetListOfTasks()->FindObject(clu->GetName())) ; 
+  if (phoscl) { 
+    if (fDebug)
+      Info("PostClusterizer", "Task %s already exists", clu->GetName()) ; 
+    phoscl->Delete() ; 
+    phos->GetListOfTasks()->Remove(phoscl) ;
+  }
+  phos->Add(clu) ;      
+  return kTRUE; 
+} 
+
+//____________________________________________________________________________ 
+TObject** AliPHOSGetter::ClusterizerRef(const char * name) const 
+{
+  // ------------------ AliPHOSClusterizer ------------------------
+  
+  TTask * tasks  = dynamic_cast<TTask*>(fTasksFolder->FindObject("Reconstructioner")) ; 
+
+  if ( !tasks ) {
+    Fatal("ClusterizerRef", "Task //%s/Reconstructioner not found !", fTasksFolder->GetName() ) ;
+  }        
+        
+  TTask * phos = dynamic_cast<TTask*>(tasks->GetListOfTasks()->FindObject("PHOS")) ; 
+  if ( !phos )  {
+    Fatal("ClusterizerRef", " //%s/Reconstructioner/PHOS not founf !", fTasksFolder->GetName() ) ; 
+  }   
+
+  TList * l = phos->GetListOfTasks() ; 
+  TIter it(l) ;
+  TTask * task ;
+  TTask * clu = 0 ;
+  TString cluname(name) ;
+  cluname+=":clu" ;
+  while((task = static_cast<TTask *>(it.Next()) )){
+    TString taskname(task->GetName()) ;
+    if(taskname.BeginsWith(cluname)){
+      clu = task ;
+      break ;
+    }
+  }
+
+  if(!clu) {
+    Fatal("ClusterizerRef", "Task //%s/Reconstructioner/clusterizer/%s not found", fTasksFolder->GetName(), name) ;
+  }
+
+  return l->GetObjectRef(clu) ;
+
+}
+
+//____________________________________________________________________________ 
+const Bool_t AliPHOSGetter::PostClusterizer(const char * name) const 
+{ // ------------------ AliPHOSClusterizer ------------------------
+
+  // the hierarchy is //Folders/Tasks/Reconstructioner/PHOS/sdigitsname
+  
+  TTask * tasks  = dynamic_cast<TTask*>(fTasksFolder->FindObject("Reconstructioner")) ; 
+
+  if ( !tasks ) {
+    Error("PostClusterizer", "Task//%s/Reconstructioner not found !", fTasksFolder) ; 
+    return kFALSE ;
+  }        
+  
+  TTask * phos = dynamic_cast<TTask*>(tasks->GetListOfTasks()->FindObject("PHOS")) ; 
+  if ( !phos )  {
+    if (fDebug) {
+      Warning("PostClusterizer", "//%s/Reconstructioner/PHOS not found!", fTasksFolder) ;
+      Info("PostClusterizer", "Adding //%s/Reconstructioner/PHOS", fTasksFolder) ;
+    }
+    phos = new TTask("PHOS", "") ; 
+    tasks->Add(phos) ; 
+  } 
+
+  TList * l = phos->GetListOfTasks() ;   
+  TIter it(l) ;
+  TString clun(name) ;
+  clun+=":clu" ; 
+  TTask * task ;
+  while((task = static_cast<TTask *>(it.Next()) )){
+    TString taskname(task->GetName()) ;
+    if(taskname.BeginsWith(clun))
+      return kTRUE ;
+  }
+
+  AliPHOSClusterizerv1 * phoscl = new AliPHOSClusterizerv1() ;
+  clun+="-v1" ; 
+  phoscl->SetName(clun) ;
+  phoscl->SetTitle(fHeaderFile) ;
+  phos->Add(phoscl) ;
+  return kTRUE; 
+  
+}
+
+//____________________________________________________________________________ 
+const Bool_t AliPHOSGetter::PostTrackSegments(const char * name) const 
+{ // ---------------TrackSegments -----------------------------------
+  
+  // the hierarchy is //Folders/Run/Event/RecData/PHOS/TrackSegments/name
+
+  TFolder * phosFolder  = dynamic_cast<TFolder*>(fRecoFolder->FindObject("PHOS")) ; 
+  
+  if ( !phosFolder ) {
+    if (fDebug) {
+      Warning("PostTrackSegments", "-> Folder //%s/PHOS/ not found", fRecoFolder->GetName()) ;
+      Info("PostTrackSegments", "-> Adding Folder //%s/PHOS", fRecoFolder->GetName()) ;
+    }
+    phosFolder = fRecoFolder->AddFolder("PHOS", "Reconstructed data from PHOS") ;  
+  }    
+
+  TFolder * phosTSFolder  = dynamic_cast<TFolder*>(phosFolder->FindObject("TrackSegments")) ;
+  if ( !phosTSFolder ) {
+    if (fDebug) {
+      Warning("PostTrackSegments", "-> Folder //%s/PHOS/TrackSegments/ not found!", fRecoFolder->GetName() ) ; 
+      Info("PostTrackSegments", "-> Adding Folder //%s/PHOS/TrackSegments/", fRecoFolder->GetName()) ; 
+    }
+    phosTSFolder = phosFolder->AddFolder("TrackSegments", "TrackSegments from PHOS") ;  
+  }    
+  
+  TObject * tss =  phosTSFolder->FindObject( name ) ;
+  if (!tss) {
+    TClonesArray * ts = new TClonesArray("AliPHOSTrackSegment",100) ;
+    ts->SetName(name) ;
+    phosTSFolder->Add(ts) ;  
+  }
+  return kTRUE; 
+} 
+
+//____________________________________________________________________________ 
+TObject** AliPHOSGetter::TrackSegmentsRef(const char * name) const 
+{ // ---------------TrackSegments -----------------------------------
+  
+  // the hierarchy is //Folders/Run/Event/RecData/PHOS/TrackSegments/name
+
+ if ( !fRecoFolder ) {
+    Fatal("TrackSegmentsRef", "Folder //%s not found !", fRecoFolder->GetName() ) ;
+  }    
+
+  TFolder * phosFolder  = dynamic_cast<TFolder*>(fRecoFolder->FindObject("PHOS/TrackSegments")) ; 
+  if ( !phosFolder ) {
+    Fatal("TrackSegmentsRef", "Folder //%s/PHOS/TrackSegments/ not found !", fRecoFolder->GetName() ) ;
+  }    
+  
+  TObject * tss =  phosFolder->FindObject(name) ;
+  if (!tss) {
+    Fatal("TrackSegmentsRef", "object %s not found !", name) ;  
+  }
+  return phosFolder->GetListOfFolders()->GetObjectRef(tss) ;
+} 
+
+//____________________________________________________________________________ 
+const Bool_t AliPHOSGetter::PostTrackSegmentMaker(AliPHOSTrackSegmentMaker * tsmaker) const 
+{ //------------Track Segment Maker ------------------------------
+  
+  // the hierarchy is //Folders/Tasks/Reconstructioner/PHOS/sdigitsname
+
+  TTask * tasks  = dynamic_cast<TTask*>(fTasksFolder->FindObject("Reconstructioner")) ; 
+
+  if ( !tasks ) {
+    Error("PostTrackSegmentMaker", "Task //%s/Reconstructioner not found !", fTasksFolder) ;
+    return kFALSE ;
+  }        
+        
+  TTask * phos = dynamic_cast<TTask*>(tasks->GetListOfTasks()->FindObject("PHOS")) ; 
+  if ( !phos )  {
+    if (fDebug) {
+      Warning("PostTrackSegmentMaker", "//%s/Reconstructioner/PHOS not found!", fTasksFolder) ; 
+      Info("PostTrackSegmentMaker", "Adding //%s/Reconstructioner/PHOS", fTasksFolder) ;
+    }
+    phos = new TTask("PHOS", "") ; 
+    tasks->Add(phos) ; 
+  } 
+
+  AliPHOSTrackSegmentMaker * phosts = 
+    dynamic_cast<AliPHOSTrackSegmentMaker*>(phos->GetListOfTasks()->FindObject(tsmaker->GetName())) ; 
+  if (phosts) { 
+    phosts->Delete() ;
+    phos->GetListOfTasks()->Remove(phosts) ;
+  }
+  phos->Add(tsmaker) ;      
+  return kTRUE; 
+  
+} 
+//____________________________________________________________________________ 
+const Bool_t AliPHOSGetter::PostTrackSegmentMaker(const char * name) const 
+{ 
+  //------------Track Segment Maker ------------------------------
+  // the hierarchy is //Folders/Tasks/Reconstructioner/PHOS/sdigitsname
+  
+  TTask * tasks  = dynamic_cast<TTask*>(fTasksFolder->FindObject("Reconstructioner")) ; 
+  
+  if ( !tasks ) {
+    Error("PostTrackSegmentMaker", "Task //%s/Reconstructioner not found !", fTasksFolder->GetName() ) ;
+    return kFALSE ;
+  }        
+  
+  TTask * phos = dynamic_cast<TTask*>(tasks->GetListOfTasks()->FindObject("PHOS")) ; 
+  if ( !phos )  {
+    if (fDebug) {
+      Warning("PostTrackSegmentMaker", "//%s/Reconstructioner/PHOS not found!", fTasksFolder->GetName() ) ; 
+      Info("PostTrackSegmentMaker", "Adding //%s/Reconstructioner/PHOS", fTasksFolder->GetName()) ;
+    }
+    phos = new TTask("PHOS", "") ; 
+    tasks->Add(phos) ; 
+  } 
+
+  TList * l = phos->GetListOfTasks() ;   
+  TIter it(l) ;
+  TString tsn(name);
+  tsn+=":tsm" ; 
+  TTask * task ;
+  while((task = static_cast<TTask *>(it.Next()) )){
+    TString taskname(task->GetName()) ;
+    if(taskname.BeginsWith(tsn))
+      return kTRUE ;
+  }
+  
+  AliPHOSTrackSegmentMakerv1 * phosts = new AliPHOSTrackSegmentMakerv1() ;
+  tsn+="-v1" ;
+  phosts->SetName(tsn) ;
+  phosts->SetTitle(fHeaderFile) ;
+  phos->Add(phosts) ;      
+  return kTRUE; 
+  
+} 
+
+//____________________________________________________________________________ 
+TObject** AliPHOSGetter::TSMakerRef(const char * name) const 
+{
+  //------------Track Segment Maker ------------------------------
+  
+  TTask * tasks  = dynamic_cast<TTask*>(fTasksFolder->FindObject("Reconstructioner")) ; 
+
+  if ( !tasks ) {
+    Fatal("TSMakerRef", "Task //%s/Reconstructioner not found !", fTasksFolder->GetName() ) ;
+  }        
+        
+  TTask * phos = dynamic_cast<TTask*>(tasks->GetListOfTasks()->FindObject("PHOS")) ; 
+  if ( !phos )  {
+    Fatal("TSMakerRef", "//%s/Reconstructioner/PHOS not found !", fTasksFolder->GetName() ) ; 
+  }   
+
+  TList * l = phos->GetListOfTasks() ; 
+  TIter it(l) ;
+  TTask * task ;
+  TTask * tsm = 0 ;
+  TString tsmname(name) ;
+  tsmname+=":tsm" ;
+  while((task = static_cast<TTask *>(it.Next()) )){
+    TString taskname(task->GetName()) ;
+    if(taskname.BeginsWith(tsmname)){
+      tsm = task ;
+      break ;
+    }
+  }
+  
+  if(!tsm) {
+   Fatal("TSMakerRef", "Task //%s/Reconstructioner/PHOS/TrackSegmentMarker/%s not found !", fTasksFolder->GetName(),  name) ;
+  }
+  return l->GetObjectRef(tsm) ;
+
+} 
+
+//____________________________________________________________________________ 
+const Bool_t AliPHOSGetter::PostRecParticles(const char * name) const 
+{  // -------------------- RecParticles ------------------------
+  
+  // the hierarchy is //Folders/Run/Event/RecData/PHOS/RecParticles/name
+
+  TFolder * phosFolder  = dynamic_cast<TFolder*>(fRecoFolder->FindObject("PHOS")) ; 
+  
+  if ( !phosFolder ) {
+    if (fDebug) {
+      Warning("PostRecParticles", "-> Folder //%s/PHOS/ not found!", fRecoFolder->GetName()) ;
+      Info("PostRecParticles", "-> Adding Folder //%s/PHOS/", fRecoFolder->GetName()) ;
+    }
+    phosFolder = fRecoFolder->AddFolder("PHOS", "Reconstructed data from PHOS") ;  
+  }    
+
+ TFolder * phosRPaFolder  = dynamic_cast<TFolder*>(phosFolder->FindObject("RecParticles")) ;
+  if ( !phosRPaFolder ) {
+    if (fDebug) {
+      Warning("PostRecParticles", "-> Folder //%s/PHOS/RecParticles/ not found!", fRecoFolder->GetName()) ;
+      Info("PostRecParticles", "-> Adding Folder //%s/PHOS/RecParticles/", fRecoFolder->GetName()) ;
+    }
+    phosRPaFolder = phosFolder->AddFolder("RecParticles", "RecParticles from PHOS") ;  
+  } 
+
+  TObject * rps = phosRPaFolder->FindObject( name )  ;
+  if ( !rps ) {
+    TClonesArray * rp = new TClonesArray("AliPHOSRecParticle",100) ;
+    rp->SetName(name) ;    
+    phosRPaFolder->Add(rp) ;  
+  }
+  return kTRUE; 
+} 
+
+//____________________________________________________________________________ 
+TObject** AliPHOSGetter::RecParticlesRef(const char * name) const 
+{ // ---------------RecParticles -----------------------------------
+  
+  // the hierarchy is //Folders/Run/Event/RecData/PHOS/TrackSegments/name
+
+ if ( !fRecoFolder ) {
+    Fatal("RecParticlesRef", "Folder//%s not found !", fRecoFolder->GetName() ) ; 
+  }    
+
+  TFolder * phosFolder  = dynamic_cast<TFolder*>(fRecoFolder->FindObject("PHOS/RecParticles")) ; 
+  if ( !phosFolder ) {
+    Fatal("RecParticlesRef", "Folder //%s/PHOS/RecParticles/ not found !", fRecoFolder->GetName() ) ;
+  }    
+
+  TObject * tss =  phosFolder->FindObject(name  ) ;
+  if (!tss) {
+    Fatal("RecParticlesRef", "object %s not found !", name) ; 
+  }
+  return phosFolder->GetListOfFolders()->GetObjectRef(tss) ;
+}
+//____________________________________________________________________________ 
+const UShort_t AliPHOSGetter::EventPattern(void)
+{
+  // Return the pattern (trigger bit register) of the beam-test event
+  if(fBTE)
+    return fBTE->GetPattern() ;
+  else
+    return 0 ;
+}
+//____________________________________________________________________________ 
+const Float_t AliPHOSGetter::BeamEnergy(void)
+{
+  // Return the beam energy of the beam-test event
+  if(fBTE)
+    return fBTE->GetBeamEnergy() ;
+  else
+    return 0 ;
+}
+//____________________________________________________________________________ 
+const Bool_t AliPHOSGetter::PostPID(AliPHOSPID * pid) const 
+{ 
+  // ------------AliPHOS PID -----------------------------
+
+  TTask * tasks  = dynamic_cast<TTask*>(fTasksFolder->FindObject("Reconstructioner")) ; 
+
+  if ( !tasks ) {
+    Error("PostPID", "Task //%s/Reconstructioner not found !", fTasksFolder) ;
+    return kFALSE ;
+  }        
+  
+  TTask * phos = dynamic_cast<TTask*>(tasks->GetListOfTasks()->FindObject("PHOS")) ; 
+  if ( !phos )  {
+    if (fDebug) {
+      Warning("PostPID", "//%s/Reconstructioner/PHOS not found!", fTasksFolder) ; 
+      Info("PostPID", "Adding //%s/Reconstructioner/PHOS", fTasksFolder) ;
+    }
+    phos = new TTask("PHOS", "") ; 
+    tasks->Add(phos) ; 
+  } 
+
+  AliPHOSPID * phospid = dynamic_cast<AliPHOSPID*>(phos->GetListOfTasks()->FindObject(pid->GetName())) ; 
+  if (phospid) { 
+    if (fDebug)
+      Info("PostPID", "-> Task %s qlready exists", pid->GetName()) ; 
+    phos->GetListOfTasks()->Remove(phospid) ;
+  }
+  
+  phos->Add(pid) ;      
+  return kTRUE; 
+} 
+
+//____________________________________________________________________________ 
+const Bool_t AliPHOSGetter::PostPID(const char * name) const 
+{     
+  // the hierarchy is //Folders/Tasks/Reconstructioner/PHOS/sdigitsname
+  
+  TTask * tasks  = dynamic_cast<TTask*>(fTasksFolder->FindObject("Reconstructioner")) ; 
+
+  if ( !tasks ) {
+    Error("PostPID", "Task //%s/Reconstructioner not found !", fTasksFolder->GetName() ) ;
+    return kFALSE ;
+  }        
+  
+  TTask * phos = dynamic_cast<TTask*>(tasks->GetListOfTasks()->FindObject("PHOS")) ; 
+  if ( !phos )  {
+    if (fDebug) {
+      Warning("PostPID", "//%s/Reconstructioner/PHOS not found!", fTasksFolder->GetName()) ; 
+      Info("PostPID", "Adding //%s/Reconstructioner/PHOS", fTasksFolder->GetName()) ;
+    }
+    phos = new TTask("PHOS", "") ; 
+    tasks->Add(phos) ; 
+  } 
+
+  TList * l = phos->GetListOfTasks() ;   
+  TIter it(l) ;
+  TString pidname(name) ;
+  pidname+=":pid" ;
+  TTask * task ;
+  while((task = static_cast<TTask *>(it.Next()) )){
+    TString taskname(task->GetName()) ;
+    if(taskname.BeginsWith(pidname))
+      return kTRUE ;
+  }
+  AliPHOSPIDv1 * phospid = new AliPHOSPIDv1() ;
+  pidname+="-v1" ;
+  phospid->SetName(pidname) ; 
+  phospid->SetTitle(fHeaderFile) ;
+  phos->Add(phospid) ;      
+  
+  return kTRUE; 
+} 
+
+//____________________________________________________________________________ 
+TObject** AliPHOSGetter::PIDRef(const char * name) const 
+{
+  //------------PID ------------------------------
+
+  TTask * tasks  = dynamic_cast<TTask*>(fTasksFolder->FindObject("Reconstructioner")) ; 
+
+  if ( !tasks ) {
+    Fatal("PIDRef", "Task //%s/Reconstructioner not found !", fTasksFolder->GetName() ) ;
+  }        
+        
+  TTask * phos = dynamic_cast<TTask*>(tasks->GetListOfTasks()->FindObject("PHOS")) ; 
+  if ( !phos )  {
+    Fatal("PIDRef", "//%s/Reconstructioner/PHOS not found !", fTasksFolder->GetName() ) ; 
+  }   
+  
+  TList * l = phos->GetListOfTasks() ; 
+  TIter it(l) ;
+  TTask * task ;
+  TTask * pid = 0 ;
+  TString pidname(name) ;
+  pidname+=":pid" ;
+  while((task = static_cast<TTask *>(it.Next()) )){
+    TString taskname(task->GetName()) ;
+    if(taskname.BeginsWith(pidname)){
+      pid = task ;
+      break ;
+    }
+  }
+  
+  if(!pid) {
+    Fatal("PIDRef", "Task //%s/Reconstructioner/PHOS/PID/%s not found !", fTasksFolder->GetName(), name) ;
+  }
+  
+    return l->GetObjectRef(pid) ;
+} 
+
+//____________________________________________________________________________ 
+const Bool_t AliPHOSGetter::PostQA(void) const 
+{ // ------------------ QA ---------------------------------
+
+  // the hierarchy is //Folders/Run/Conditions/QA/PHOS/alarmsName
+
+  TFolder * phosFolder = dynamic_cast<TFolder*>(fQAFolder->FindObject("PHOS")) ; 
+  if ( !phosFolder ) {
+    if (fDebug) {
+      Warning("PostQA", "-> Folder //%s/PHOS/ not found!", fQAFolder) ;
+      Info("PostQA", "-> Adding Folder //%s/PHOS", fQAFolder) ;
+    }
+    phosFolder = fQAFolder->AddFolder("PHOS", "QA from PHOS") ; 
+  }      
+
+  return kTRUE;
+}
+
+//____________________________________________________________________________ 
+TObject** AliPHOSGetter::AlarmsRef(void) const 
+{  //------- Alarms ----------------------
+
+  
+  // the hierarchy is //Folders/Run/Conditions/QA/PHOS
+  if ( !fQAFolder ) {
+    Fatal("AlarmsRef", "Folder //%s not found !", fQAFolder) ;
+  }    
+  TFolder * phosFolder = dynamic_cast<TFolder *>(fQAFolder->FindObject("PHOS")) ;
+  if ( !phosFolder ) {
+    Fatal("AlarmsRef", "Folder //%s/PHOS/ not found !", fQAFolder) ;
+  }
+   
+  return fQAFolder->GetListOfFolders()->GetObjectRef(phosFolder) ;
+}
+
+
+//____________________________________________________________________________ 
+TTree * AliPHOSGetter::TreeK(TString filename)  
+{
+
+  // returns TreeK from file filename
+  // usefull in case of split file
+
+  if ( filename.IsNull() ) 
+    filename = fHeaderFile ; 
+
+  TFile * file = 0 ; 
+  file = static_cast<TFile*>(gROOT->GetFile(filename.Data() ) ) ;
+//   if (file && (filename != fHeaderFile) ) {  // file already open 
+//     file->Close() ; 
+//     //delete fAlice ; 
+//   }
+  if(!file || !file->IsOpen())    
+    file = TFile::Open(filename.Data(), "read") ;
+  if(filename != fHeaderFile ){
+    fAlice = dynamic_cast<AliRun *>(file->Get("gAlice")) ;
+  } 
+  TString treeName("TreeK") ; 
+  treeName += EventNumber()  ; 
+  TTree * tree = dynamic_cast<TTree *>(file->Get(treeName.Data())) ;
+  if (!tree && fDebug)  
+    Warning("TreeK", "-> %s not found in %s", treeName.Data(), filename.Data()) ; 
+  
+  return tree ;                      
+}
+
+//____________________________________________________________________________ 
+TTree * AliPHOSGetter::TreeH(TString filename)  
+{
+
+  // returns TreeH from file filename
+  // usefull in case of split file
+
+  if ( filename.IsNull() ) 
+    filename = fHeaderFile ; 
+
+  TFile * file = 0 ; 
+  file = static_cast<TFile*>(gROOT->GetFile(filename.Data() ) ) ;
+  if (!file) { // file not open yet
+    file = TFile::Open(filename.Data(), "read") ; 
+  }
+  TString treeName("TreeH") ; 
+  treeName += EventNumber()  ; 
+  TTree * tree = static_cast<TTree *>(file->Get(treeName.Data())) ;
+  if (!tree && fDebug)  
+    Warning("TreeH", "-> %s not found in %s", treeName.Data(), filename.Data()) ; 
+  
+  return tree ;                      
+}
+
+//____________________________________________________________________________ 
+TTree * AliPHOSGetter::TreeS(TString filename)  
+{
+
+  // returns TreeS from file filename
+  // usefull in case of split file
+
+  if ( filename.IsNull() ) 
+    filename = fHeaderFile ; 
+
+  TFile * file = 0 ; 
+  file = static_cast<TFile*>(gROOT->GetFile(filename.Data() ) ) ;
+  if (!file) { // file not open yet
+    file = TFile::Open(filename.Data(), "read") ; 
+  }
+  TString treeName("TreeS") ; 
+  treeName += EventNumber()  ; 
+  TTree * tree = static_cast<TTree *>(file->Get(treeName.Data())) ;
+  if (!tree && fDebug)  
+    Warning("TreeS", "-> %s not found in %s", treeName.Data(), filename.Data() ); 
+  
+  return tree ;                      
+}
+
+//____________________________________________________________________________ 
+TTree * AliPHOSGetter::TreeD(TString filename)  
+{
+
+  // returns TreeD from file filename
+  // usefull in case of split file
+
+  if ( filename.IsNull() ) 
+    filename = fHeaderFile ; 
+
+  TFile * file = 0 ; 
+  file = static_cast<TFile*>(gROOT->GetFile(filename.Data() ) ) ;
+  if (!file) { // file not open yet
+    file = TFile::Open(filename.Data(), "read") ; 
+  }
+  TString treeName("TreeD") ; 
+  treeName += EventNumber()  ; 
+  TTree * tree = static_cast<TTree *>(file->Get(treeName.Data())) ;
+  if (!tree && fDebug)  
+    Warning("TreeD", "-> %s not found in %s", treeName.Data(), filename.Data()) ; 
+  
+  return tree ;                      
+}
+
+//____________________________________________________________________________ 
+const TParticle * AliPHOSGetter::Primary(Int_t index) const 
+{
+  // Return primary particle numbered by <index>
+
+  if(index < 0) 
+    return 0 ;
+  TParticle *  p = 0 ;
+  if (fAlice) 
+    p = fAlice->Particle(index) ; 
+  else 
+    p = gAlice->Particle(index) ; 
+  
+  return p ; 
+    
+}
+
+//____________________________________________________________________________ 
+const TParticle * AliPHOSGetter::Secondary(TParticle* p, Int_t index) const
+{
+  // Return first (index=1) or second (index=2) secondary particle of primary particle p 
+
+  if(index <= 0) 
+    return 0 ;
+  if(index > 2)
+    return 0 ;
+
+  if(p) {
+  Int_t daughterIndex = p->GetDaughter(index-1) ; 
+  return  gAlice->Particle(daughterIndex) ; 
+  }
+  else
+    return 0 ;
+}
+
+//____________________________________________________________________________ 
+Int_t AliPHOSGetter::ReadTreeD(const Int_t event)
+{
+  // Read the digit tree gAlice->TreeD()  
+  
+  TTree * treeD ;
+  if(fToSplit){
+    TFile * file = static_cast<TFile*>(gROOT->GetFile(fDigitsFileName)); 
+    if(!file) 
+      file = TFile::Open(fDigitsFileName) ;      
+    // Get Digits Tree header from file
+    TString treeName("TreeD") ;
+    treeName += event ; 
+    treeD = dynamic_cast<TTree*>(file->Get(treeName.Data()));
+    if(!treeD){ // TreeD not found in header file
+      if (fDebug)
+       Warning("ReadTreeD", "-> Cannot find TreeD in %s", fDigitsFileName.Data()) ;
+      return 1;
+    }
+  }
+  else
+    treeD = gAlice->TreeD() ;
+  
+  TObjArray * lob = static_cast<TObjArray*>(treeD->GetListOfBranches()) ;
+  TIter next(lob) ; 
+  TBranch * branch = 0 ; 
+  TBranch * digitsbranch = 0 ; 
+  TBranch * digitizerbranch = 0 ; 
+  Bool_t phosfound = kFALSE, digitizerfound = kFALSE ; 
+  
+  while ( (branch = static_cast<TBranch*>(next())) && (!phosfound || !digitizerfound) ) {
+    if ( (strcmp(branch->GetName(), "PHOS")==0) && (strcmp(branch->GetTitle(), fDigitsTitle)==0) ) {
+      digitsbranch = branch ; 
+      phosfound = kTRUE ;
+    }
+    else if ( ((strcmp(branch->GetName(), "AliPHOSDigitizer")==0)||
+              (strcmp(branch->GetName(), "AliPHOSRaw2Digits")==0)) &&
+             (strcmp(branch->GetTitle(), fDigitsTitle)==0) ) {
+      digitizerbranch = branch ; 
+      digitizerfound = kTRUE ; 
+    }
+  }
+  
+  if ( !phosfound || !digitizerfound ) {
+    if (fDebug)
+      Warning("ReadTreeD", "-> Cannot find Digits and/or Digitizer with name %s", fDigitsTitle.Data()) ;
+    return 2; 
+  }   
+  
+  //read digits
+  if(!Digits(fDigitsTitle) ) 
+    PostDigits(fDigitsTitle);
+  else
+    Digits(fDigitsTitle)->Clear() ;
+  digitsbranch->SetAddress(DigitsRef(fDigitsTitle)) ;
+  digitsbranch->GetEntry(0) ;
+  
+  // read  the Digitizer
+  if(Digitizer()){
+    if(strcmp(Digitizer()->IsA()->GetName(),digitizerbranch->GetName())!=0){
+      RemoveTask("D", fDigitsTitle) ;
+      if(strcmp(digitizerbranch->GetName(), "AliPHOSDigitizer")==0)
+       PostDigitizer("Digitizer") ;
+      else
+       PostDigitizer("Raw2Digits") ;
+    }
+  }
+  else{
+    if(strcmp(digitizerbranch->GetName(), "AliPHOSDigitizer")==0)
+      PostDigitizer("Digitizer") ;
+    else
+      PostDigitizer("Raw2Digits") ;
+  }
+    
+
+  digitizerbranch->SetAddress(DigitizerRef(fDigitsTitle)) ;
+  digitizerbranch->GetEntry(0) ;
+  
+
+//   if((!fcdb)&&(strcmp(digitizerbranch->GetName(), "AliPHOSRaw2Digits")==0))
+//     ReadCalibrationDB("Primordial","beamtest.root") ;
+
+
+  if(gAlice->TreeD()!=treeD)
+    treeD->Delete();
+
+  return 0 ; 
+}
+//____________________________________________________________________________ 
+//void AliPHOSGetter::ReadCalibrationDB(const char * database,const char * filename){
+//
+//  if(fcdb && (strcmp(database,fcdb->GetTitle())==0))
+//    return ;
+//
+//  TFile * file = gROOT->GetFile(filename) ;
+//  if(!file)
+//    file = TFile::Open(filename);
+//  if(!file){
+//    Error ("ReadCalibrationDB", "Cannot open file %s", filename) ;
+//    return ;
+//  }
+//  if(fcdb)
+//    fcdb->Delete() ;
+//  fcdb = dynamic_cast<AliPHOSCalibrationDB *>(file->Get("AliPHOSCalibrationDB")) ;
+//  if(!fcdb)
+//    Error ("ReadCalibrationDB", "No database %s in file %s", database, filename) ;
+//}
+
+//____________________________________________________________________________ 
+Int_t AliPHOSGetter::ReadTreeH()
+{
+  // Read the first entry of PHOS branch in hit tree gAlice->TreeH()
+  
+  TTree * treeH = gAlice->TreeH() ;
+
+  if(!treeH) {// TreeH not found in header file
+    if (fDebug) 
+      Warning("ReadTreeH", "-> Cannot find TreeH in %s", fHeaderFile.Data() ) ;
+    
+    TString searchFileName("PHOS.Hits") ; 
+    if((strcmp(fBranchTitle.Data(),"Default")!=0)&&(strcmp(fBranchTitle.Data(),"")!=0)){
+      searchFileName+="." ;
+      searchFileName += fBranchTitle ;
+    }
+    searchFileName+=".root" ;
+    
+    if ( (treeH = TreeH(searchFileName)) ) { //found TreeH in the file which contains the hits
+      if (fDebug) 
+       Info("ReadTreeH", "-> TreeH found in %s", searchFileName.Data()) ; 
+      
+    } else {
+      Error("ReadTreeH", "TreeH not found") ; 
+      return 1;
+    }  
+  }
+  
+  TBranch * hitsbranch = static_cast<TBranch*>(treeH->GetBranch("PHOS")) ;
+  if ( !hitsbranch ) {
+    if (fDebug)
+      Warning("ReadTreeH", "-> Cannot find branch PHOS") ; 
+    return 2;
+  }
+  if(!Hits())
+    PostHits() ;
+
+  if (hitsbranch->GetEntries() > 1 ) {
+    (dynamic_cast<TClonesArray*> (*HitsRef()))->Clear() ;
+    TClonesArray * tempo =  new TClonesArray("AliPHOSHit",1000) ;
+    TClonesArray * hits = dynamic_cast<TClonesArray*>(*HitsRef()) ; 
+    hitsbranch->SetAddress(&tempo) ;
+    Int_t index = 0 ; 
+    Int_t i = 0 ;
+    for (i = 0 ; i < hitsbranch->GetEntries() ; i++) {
+      hitsbranch->GetEntry(i) ;
+      Int_t j = 0 ; 
+      for ( j = 0 ; j < tempo->GetEntries() ; j++) { 
+       const AliPHOSHit * hit = static_cast<const AliPHOSHit *>(tempo->At(j)) ; 
+       new((*hits)[index]) AliPHOSHit( *hit ) ;
+       index++ ; 
+      }
+    }
+    delete tempo ; 
+  }
+  else {
+    (dynamic_cast<TClonesArray*> (*HitsRef()))->Clear() ;
+    hitsbranch->SetAddress(HitsRef()) ;
+    hitsbranch->GetEntry(0) ;
+  }
+  return 0 ; 
+}
+
+//____________________________________________________________________________ 
+void AliPHOSGetter::Track(const Int_t itrack) 
+{
+  // Read the first entry of PHOS branch in hit tree gAlice->TreeH()
+
+  if(gAlice->TreeH()== 0){
+    Error("Track", "Cannot read TreeH") ;
+    return ;
+  }
+  
+  TBranch * hitsbranch = dynamic_cast<TBranch*>(gAlice->TreeH()->GetListOfBranches()->FindObject("PHOS")) ;
+  if ( !hitsbranch ) {
+    if (fDebug)
+      Warning("Track", "Cannot find branch PHOS") ; 
+    return ;
+  }  
+  if(!Hits())
+    PostHits() ;
+
+  (dynamic_cast<TClonesArray*> (*HitsRef()))->Clear() ;
+  hitsbranch->SetAddress(HitsRef()) ;
+  hitsbranch->GetEntry(itrack) ;
+
+}
+
+//____________________________________________________________________________ 
+void AliPHOSGetter::ReadTreeQA()
+{
+  // Read the digit tree gAlice->TreeQA()
+  // so far only PHOS knows about this Tree  
+
+  if(PHOS()->TreeQA()== 0){
+    Error("ReadTreeQA", "Cannot read TreeQA") ;
+    return ;
+  }
+  
+  TBranch * qabranch = PHOS()->TreeQA()->GetBranch("PHOS") ; 
+  if (!qabranch) { 
+    if (fDebug)
+      Warning("ReadTreeQA", "Cannot find QA Alarms for PHOS");
+    return ; 
+  }   
+  
+  if(!Alarms())
+    PostQA() ; 
+
+  qabranch->SetAddress(AlarmsRef()) ;
+
+  qabranch->GetEntry(0) ;
+//   PostQA("PHOS") ; 
+//   TFolder * alarmsF = Alarms() ; 
+//   alarmsF->Clear() ; 
+//   qabranch->SetAddress(&alarmsF) ;
+//   qabranch->GetEntry(0) ;
+  
+}
+
+//____________________________________________________________________________ 
+Int_t AliPHOSGetter::ReadTreeR(const Int_t event)
+{
+  // Read the reconstrunction tree gAlice->TreeR()
+  // A particularity has been introduced here :
+  //  if gime->Event(ievent,"R") is called branches with the current title are read, the current title
+  //   being for example give in AliPHOSPID(fileName, title)
+  //  if gime(Event(ievent, "RA") is called the title of the branches is not checked anymore, "A" stands for any
+  // This is a feature needed by PID to be able to reconstruct several times particles (each time a ther title is given)
+  // from a given set of TrackSegments (with a given name)
+  // This is why any is NOT used to read the branch of RecParticles
+  // any migh have become obsolete : to be checked
+  // See AliPHOSPIDv1    
+
+  //first - clean if necessary
+  if(EmcRecPoints(fRecPointsTitle)){
+    EmcRecPoints(fRecPointsTitle)->Delete() ;
+    CpvRecPoints(fRecPointsTitle)->Delete() ;
+  }
+  //clear TrackSegments
+  if(TrackSegments(fTrackSegmentsTitle))
+    TrackSegments(fTrackSegmentsTitle)->Clear() ;
+  if(RecParticles(fRecParticlesTitle))
+    RecParticles(fRecParticlesTitle)->Clear() ;
+       
+  TTree * treeR ;
+  if(fToSplit){
+    TFile * file = static_cast<TFile*>(gROOT->GetFile(fRecPointsFileName)); 
+    if(!file) 
+      file = TFile::Open(fRecPointsFileName) ;      
+    // Get Digits Tree header from file
+    TString treeName("TreeR") ;
+    treeName += event ; 
+    treeR = dynamic_cast<TTree*>(file->Get(treeName.Data()));
+    if(!treeR){ // TreeR not found in header file
+      if (fDebug)
+       Warning("ReadTreeD", "-> Cannot find TreeR in %s", fRecPointsFileName.Data()) ;
+      return 1;
+    }
+  }
+  else
+    treeR = gAlice->TreeR() ;
+  
+  // RecPoints 
+  TObjArray * lob = static_cast<TObjArray*>(treeR->GetListOfBranches()) ;
+  TIter next(lob) ; 
   TBranch * branch = 0 ; 
-  TBranch * sdigitsbranch = 0 ; 
-  TBranch * sdigitizerbranch = 0 ; 
+  TBranch * emcbranch = 0 ; 
+  TBranch * cpvbranch = 0 ; 
+  TBranch * clusterizerbranch = 0 ; 
+  Bool_t phosemcrpfound = kFALSE, phoscpvrpfound = kFALSE, clusterizerfound = kFALSE ; 
+
+  
+  while ( (branch = static_cast<TBranch*>(next())) && (!phosemcrpfound || !phoscpvrpfound || !clusterizerfound) ) {
+    if(strcmp(branch->GetTitle(), fRecPointsTitle)==0 ) {
+      if ( strcmp(branch->GetName(), "PHOSEmcRP")==0) {
+       emcbranch = branch ; 
+       phosemcrpfound = kTRUE ;
+      }
+      else if ( strcmp(branch->GetName(), "PHOSCpvRP")==0) {
+       cpvbranch = branch ; 
+       phoscpvrpfound = kTRUE ;
+      }
+      else if(strcmp(branch->GetName(), "AliPHOSClusterizer")==0){
+       clusterizerbranch = branch ; 
+       clusterizerfound = kTRUE ; 
+      }
+    }
+  }
+
+  if ( !phosemcrpfound || !phoscpvrpfound || !clusterizerfound) {
+    if (fDebug)
+      Warning("ReadTreeR", "-> Cannot find RecPoints and/or Clusterizer with name %s", fRecPointsTitle.Data() ) ;
+  } else { 
+    if(!EmcRecPoints(fRecPointsTitle) ) 
+      PostRecPoints(fRecPointsTitle) ;
+    emcbranch->SetAddress(EmcRecPointsRef(fRecPointsTitle)) ;
+    emcbranch->GetEntry(0) ;
+
+    cpvbranch->SetAddress(CpvRecPointsRef(fRecPointsTitle)) ; 
+    cpvbranch->GetEntry(0) ;  
+    
+    if(!Clusterizer(fRecPointsTitle) )
+      PostClusterizer(fRecPointsTitle) ;
+    
+    clusterizerbranch->SetAddress(ClusterizerRef(fRecPointsTitle)) ;
+    clusterizerbranch->GetEntry(0) ;
+  }
+  
+  //------------------- TrackSegments ---------------------
+  next.Reset() ; 
+  TBranch * tsbranch = 0 ; 
+  TBranch * tsmakerbranch = 0 ; 
+  Bool_t phostsfound = kFALSE, tsmakerfound = kFALSE ; 
+  while ( (branch = static_cast<TBranch*>(next())) && (!phostsfound || !tsmakerfound) ) {
+    if(strcmp(branch->GetTitle(), fTrackSegmentsTitle)==0 )  {
+      if ( strcmp(branch->GetName(), "PHOSTS")==0){
+       tsbranch = branch ; 
+       phostsfound = kTRUE ;
+      }
+      else if(strcmp(branch->GetName(), "AliPHOSTrackSegmentMaker")==0) {
+       tsmakerbranch = branch ; 
+       tsmakerfound  = kTRUE ; 
+      }
+    }
+  }
+
+  if ( !phostsfound || !tsmakerfound ) {
+    if (fDebug)
+      Warning("ReadTreeR", "-> Cannot find TrackSegments and/or TrackSegmentMaker with name %s", fTrackSegmentsTitle.Data() ) ;
+  } else { 
+    // Read and Post the TrackSegments
+    if(!TrackSegments(fTrackSegmentsTitle))
+      PostTrackSegments(fTrackSegmentsTitle) ;
+    tsbranch->SetAddress(TrackSegmentsRef(fTrackSegmentsTitle)) ;
+    tsbranch->GetEntry(0) ;
+
+    // Read and Post the TrackSegment Maker
+    if(!TrackSegmentMaker(fTrackSegmentsTitle))
+      PostTrackSegmentMaker(fTrackSegmentsTitle) ;
+    tsmakerbranch->SetAddress(TSMakerRef(fTrackSegmentsTitle)) ;
+    tsmakerbranch->GetEntry(0) ;
+ }
+  
+  
+  //------------ RecParticles ----------------------------
+  next.Reset() ; 
+  TBranch * rpabranch = 0 ; 
+  TBranch * pidbranch = 0 ; 
+  Bool_t phosrpafound = kFALSE, pidfound = kFALSE ; 
+  
+  while ( (branch = static_cast<TBranch*>(next())) && (!phosrpafound || !pidfound) ) 
+    if(strcmp(branch->GetTitle(), fRecParticlesTitle)==0) {   
+      if ( strcmp(branch->GetName(), "PHOSRP")==0) {   
+       rpabranch = branch ; 
+       phosrpafound = kTRUE ;
+      }
+      else if (strcmp(branch->GetName(), "AliPHOSPID")==0) {
+       pidbranch = branch ; 
+       pidfound  = kTRUE ; 
+      }
+    }
+  
+  if ( !phosrpafound || !pidfound ) {
+    if (fDebug)
+      Warning("ReadTreeR", "-> Cannot find RecParticles and/or PID with name %s", fRecParticlesTitle.Data() ) ; 
+  } else { 
+    // Read and Post the RecParticles
+    if(!RecParticles(fRecParticlesTitle)) 
+      PostRecParticles(fRecParticlesTitle) ;
+    rpabranch->SetAddress(RecParticlesRef(fRecParticlesTitle)) ;
+    rpabranch->GetEntry(0) ;
+    // Read and Post the PID
+    if(!PID(fRecParticlesTitle))
+      PostPID(fRecParticlesTitle) ;
+    pidbranch->SetAddress(PIDRef(fRecParticlesTitle)) ;
+    pidbranch->GetEntry(0) ;
+  }
+
+  if(gAlice->TreeR()!=treeR)
+    treeR->Delete();
+  return 0 ; 
+}
+
+//____________________________________________________________________________ 
+Int_t AliPHOSGetter::ReadTreeS(const Int_t event)
+{
+  // Reads the SDigits treeS from all files  
+  // Files, which should be opened are listed in phosF
+  // So, first get list of files
+  TFolder * phosF = dynamic_cast<TFolder *>(fSDigitsFolder->FindObject("PHOS")) ;
+  if (!phosF) 
+    phosF = fSDigitsFolder->AddFolder("PHOS", "SDigits from PHOS") ; 
+  TCollection * folderslist = phosF->GetListOfFolders() ; 
+  
+  // Now iterate over the list of files and read TreeS into Whiteboard
+  TIter next(folderslist) ; 
+  TFolder * folder = 0 ; 
+  TFile * file; 
+  TTree * treeS = 0;
+  while ( (folder = static_cast<TFolder*>(next())) ) {
+    TString fileName("") ;
+    fileName = folder->GetName() ; 
+    fileName.ReplaceAll("_","/") ; 
+    file = static_cast<TFile*>(gROOT->GetFile(fileName)); 
+    if(!file) 
+      file = TFile::Open(fileName) ;      
+    // Get SDigits Tree header from file
+    TString treeName("TreeS") ;
+    treeName += event ; 
+    treeS = dynamic_cast<TTree*>(file->Get(treeName.Data()));
+
+    if(!treeS){ // TreeS not found in header file
+      if (fDebug)
+       Warning("ReadTreeS", "-> Cannot find TreeS in %s", fileName.Data()) ;
+      return 1;
+    }
+    
+    //set address of the SDigits and SDigitizer
+    TBranch   * sdigitsBranch    = 0;
+    TBranch   * sdigitizerBranch = 0;
+    TBranch   * branch           = 0 ;  
+    TObjArray * lob = static_cast<TObjArray*>(treeS->GetListOfBranches()) ;
+    TIter next(lob) ; 
+    Bool_t phosfound = kFALSE, sdigitizerfound = kFALSE ; 
+
+    while ( (branch = static_cast<TBranch*>(next())) && (!phosfound || !sdigitizerfound) ) {
+      if ( (strcmp(branch->GetName(), "PHOS")==0) && (strcmp(branch->GetTitle(), fSDigitsTitle)==0) ) {
+       phosfound = kTRUE ;
+       sdigitsBranch = branch ; 
+      }
+      
+      else if ( (strcmp(branch->GetName(), "AliPHOSSDigitizer")==0) && 
+               (strcmp(branch->GetTitle(), fSDigitsTitle)==0) ) {
+       sdigitizerfound = kTRUE ; 
+       sdigitizerBranch = branch ;
+      }
+    }
+    if ( !phosfound || !sdigitizerfound ) {
+      if (fDebug)
+       Warning("ReadSDigits", "-> Digits and/or Digitizer branch with name %s not found", GetName()) ;
+      return 2; 
+    }   
+    
+    if ( !folder->FindObject(fSDigitsTitle) ){  
+      TClonesArray * sdigits = new TClonesArray("AliPHOSDigit",1) ;
+      sdigits->SetName(fSDigitsTitle) ;
+      folder->Add(sdigits) ;
+    }
+
+    ((TClonesArray*) (*SDigitsRef(fSDigitsTitle,folder->GetName())))->Clear() ;
+    sdigitsBranch->SetAddress(SDigitsRef(fSDigitsTitle,folder->GetName())) ;
+    sdigitsBranch->GetEntry(0) ;
+    
+    TString sdname(fSDigitsTitle) ;
+    sdname+=":" ;
+    sdname+=folder->GetName() ;
+    if(!SDigitizer(sdname) ) 
+      PostSDigitizer(fSDigitsTitle,folder->GetName()) ;
+    sdigitizerBranch->SetAddress(SDigitizerRef(sdname)) ;
+    sdigitizerBranch->GetEntry(0) ; 
+    if(gAlice->TreeS()!=treeS)
+      treeS->Delete();
+  }    
+  return 0 ; 
+}
+
+//____________________________________________________________________________ 
+void AliPHOSGetter::ReadTreeS(TTree * treeS, Int_t input)
+{
+  // Read the summable digits fron treeS()  
+
+  TString filename("mergefile") ;
+  filename+= input ;
+
+  TFolder * phosFolder = dynamic_cast<TFolder*>(fSDigitsFolder->FindObject("PHOS")) ; 
+  if ( !phosFolder ) { 
+   phosFolder = fSDigitsFolder->AddFolder("PHOS", "SDigits from PHOS") ; 
+  } 
+  TFolder * folder=(TFolder*)phosFolder->FindObject(filename) ;
+  //set address of the SDigits and SDigitizer
+  TBranch   * sdigitsBranch    = 0;
+  TBranch   * sdigitizerBranch = 0;
+  TBranch   * branch           = 0 ;  
+  TObjArray * lob = (TObjArray*)treeS->GetListOfBranches() ;
+  TIter next(lob) ; 
   Bool_t phosfound = kFALSE, sdigitizerfound = kFALSE ; 
   
   while ( (branch = (TBranch*)next()) && (!phosfound || !sdigitizerfound) ) {
-    if ( (strcmp(branch->GetName(), "PHOS")==0) && (strcmp(branch->GetTitle(), fSDigitsTitle)==0) ) {
-      sdigitsbranch = branch ; 
+    if ( strcmp(branch->GetName(), "PHOS")==0) {
       phosfound = kTRUE ;
+      sdigitsBranch = branch ; 
     }
-    else if ( (strcmp(branch->GetName(), "AliPHOSSDigitizer")==0) && (strcmp(branch->GetTitle(), fSDigitsTitle)==0) ) {
-      sdigitizerbranch = branch ; 
+    
+    else if ( strcmp(branch->GetName(), "AliPHOSSDigitizer")==0) {
       sdigitizerfound = kTRUE ; 
+      sdigitizerBranch = branch ;
     }
   }
-
   if ( !phosfound || !sdigitizerfound ) {
-    cerr << "WARNING: AliPHOSGetter::ReadTreeS -> Cannot find SDigits and/or SDigitizer with name " << fSDigitsTitle << endl ;
+    if (fDebug)
+      Warning("ReadTreeS", "-> Digits and/or Digitizer branch not found") ;
     return ; 
   }   
-
-  // -- the SDigits 
-  Post(fHeaderFile, "S", fSDigitsTitle) ; 
-
-  // Post the SDigitizer
-  Post(fHeaderFile, "Ser", fSDigitsTitle) ; 
   
-  TClonesArray * sdigits = SDigits(fSDigitsTitle) ; 
-  sdigits->Clear() ; 
-  sdigitsbranch->SetAddress(&sdigits) ;
+  if (!folder || !(folder->FindObject(sdigitsBranch->GetTitle()) ) )
+    PostSDigits(sdigitsBranch->GetTitle(),filename) ;
 
-  AliPHOSSDigitizer * sdigitizer = SDigitizer(fSDigitsTitle) ;
-  sdigitizerbranch->SetAddress(&sdigitizer) ;
+  sdigitsBranch->SetAddress(SDigitsRef(sdigitsBranch->GetTitle(),folder->GetName())) ;
+  sdigitsBranch->GetEntry(0) ;
+  
+  TString sdname(sdigitsBranch->GetTitle()) ;
+  sdname+=":" ;
+  sdname+=filename ;
+  
+  if(!SDigitizer(sdigitsBranch->GetTitle()) )
+    PostSDigitizer(sdigitsBranch->GetTitle(),filename) ;
+  sdigitizerBranch->SetAddress(SDigitizerRef(sdname)) ;
+  sdigitizerBranch->GetEntry(0) ;
+  if(gAlice->TreeS()!=treeS)
+    treeS->Delete();
+}    
 
-  sdigitsbranch->GetEvent(0) ;
-  sdigitizerbranch->GetEvent(0) ;
-    
-}
 
 //____________________________________________________________________________ 
 void AliPHOSGetter::ReadPrimaries()
 {
-  // Reads specific branches of primaries
+  // a lot simplified.... if 2 files are opened then we have a problem
+
+  TClonesArray * ar = 0  ; 
+  if(! (ar = Primaries()) ) { 
+    PostPrimaries() ;
+    ar = Primaries() ; 
+  }
+  ar->Delete() ; 
   
-  fNPrimaries = gAlice->GetNtrack();
+  if (TreeK(fHeaderFile)) { // treeK found in header file
+    if (fDebug) 
+      Info("ReadPrimaries", "-> TreeK found in %s", fHeaderFile.Data() ); 
+    fNPrimaries = gAlice->GetNtrack() ; 
+    fAlice = 0 ; 
   
-  //   //Check, is it necessary to open new files
-  //   TArrayI* events = fDigitizer->GetCurrentEvents() ; 
-  //   TClonesArray * filenames = fDigitizer->GetHeadersFiles() ;
-//   Int_t input ;
-//   for(input = 0; input < filenames->GetEntriesFast(); input++){
+  } else { // treeK not found in header file
+    Error("ReadPrimaries", "TreeK not found") ; 
+    return ;  
+  }
 
-//     TObjString * filename = (TObjString *) filenames->At(input) ;
+  Int_t index = 0 ; 
+  for (index = 0 ; index < fNPrimaries; index++) { 
+    new ((*ar)[index]) TParticle(*(Primary(index)));
+  }
+}
 
-//     //Test, if this file already open
-//     TFile *file = (TFile*) gROOT->GetFile( filename->GetString() ) ;
-//     if(file == 0)
-//       file = new TFile( filename->GetString()) ;
-//     file->cd() ;
-    
-//     // Get Kine Tree from file
-// //     char treeName[20];
-// //     sprintf(treeName,"TreeK%d",events->At(input));
-// //     TTree * treeK = (TTree*)gDirectory->Get(treeName);
-// //     if (treeK) 
-// //       treeK->SetBranchAddress("Particles", &fParticleBuffer);
-// //     else    
-// //       cout << "AliPHOSGetter: cannot find Kine Tree for event:" << events->At(input) << endl;
-
-// //     // Create the particle stack
-// //     if(!fParticles) fParticles = new TClonesArray("TParticle",1000);
-// //     // Build the pointer list
-// //     if(fParticleMap) {     <----
-// //       fParticleMap->Clear();
-// //       fParticleMap->Expand(treeK->GetEntries());
-// //     } else
-// //       fParticleMap = new TObjArray(treeK->GetEntries());
-    
-//     // From gAlice->Particle(i) 
+//____________________________________________________________________________ 
+void AliPHOSGetter::Event(const Int_t event, const char* opt)  
+{
+  // Reads the content of all Tree's S, D and R
 
+  if (event >= gAlice->TreeE()->GetEntries() ) {
+    Error("Event", "%d not found in TreeE !", event) ; 
+    return ; 
+  }
 
-// //   if(!(*fParticleMap)[i]) {
-// //     Int_t nentries = fParticles->GetEntries();
-    
-// //     // algorithmic way of getting entry index
-// //     // (primary particles are filled after secondaries)
-// //     Int_t entry;
-// //     if (i<fHeader.GetNprimary())
-// //       entry = i+fHeader.GetNsecondary();
-// //     else 
-// //       entry = i-fHeader.GetNprimary();
-      
-// //     // only check the algorithmic way and give
-// //     // the fatal error if it is wrong
-// //     if (entry != fParticleFileMap[i]) {
-// //       Fatal("Particle",
-// //         "!!!! The algorithmic way is WRONG: !!!\n entry: %d map: %d",
-// //  entry, fParticleFileMap[i]); 
-// //     }  
-      
-// //     fTreeK->GetEntry(fParticleFileMap[i]);
-// //     new ((*fParticles)[nentries]) TParticle(*fParticleBuffer);
-// //     fParticleMap->AddAt((*fParticles)[nentries],i);
-// //   }
-// //   return (TParticle *) (*fParticleMap)[i];
+  TBranch * btb = gAlice->TreeE()->GetBranch("AliPHOSBeamTestEvent") ;
+  if(btb){
+    if(!fBTE)
+      fBTE = new AliPHOSBeamTestEvent() ;
+    btb->SetAddress(&fBTE) ;
+    btb->GetEntry(event) ;
+  }
+  else{
+    if(fBTE){
+      delete fBTE ;
+      fBTE = 0 ;
+    }
+  }
 
-   
-    
-//   }
+  Bool_t any = kFALSE ; 
+  if (strstr(opt,"A") ) // do not check the title of the branches
+    any = kTRUE; 
 
+  gAlice->GetEvent(event) ; 
 
-//   //scan over opened files and read corresponding TreeK##
+  if( strstr(opt,"R") )
+    ReadTreeR(event) ;
 
-  return ;
-}
-//____________________________________________________________________________ 
-void AliPHOSGetter::Event(Int_t event)
-{
-  // Reads the content of all Tree's S, D and R
-  
-  if ( event > gAlice->TreeE()->GetEntries() ) {
-    cerr << "ERROR: AliPHOSGetter::Event -> There are only " << gAlice->TreeE()->GetEntries() << " events in this file" << endl ; 
-    return ;
-  }
-  
-  gAlice->GetEvent(event) ;
-  
-  ReadTreeH() ;
-  ReadTreeS() ;
-  ReadTreeD() ;
-  ReadTreeR() ;
-  ReadTreeQA() ;
-  ReadPrimaries() ;
+  if( strstr(opt,"D") )
+    ReadTreeD(event) ;
+
+  if(strstr(opt,"S") )
+    ReadTreeS(event) ;
+
+  if(strstr(opt,"H") )
+    ReadTreeH() ;
+   
+  if( strstr(opt,"Q") )
+    ReadTreeQA() ;
+
+  if( strstr(opt,"P") || (strcmp(opt,"")==0) )
+    ReadPrimaries() ;
 
 }
 
 //____________________________________________________________________________ 
-const TObject * AliPHOSGetter::ReturnO(TString what, TString name, TString file) const 
+TObject * AliPHOSGetter::ReturnO(TString what, TString name, TString file) const 
 {
   // get the object named "what" from the folder
-  // folders are named like //YSAlice/WhiteBoard/what/PHOS/name
+  // folders are named like //Folders
 
   if ( file.IsNull() ) 
     file = fHeaderFile ; 
-  TString path("WhiteBoard/") ;
-  if ( name.IsNull() ) {
-    if ( what.CompareTo("Hits") == 0 ) {
-      path += what ; 
-      path += "/PHOS/"; 
-      path += what ; 
-    }
-    else if ( what.CompareTo("SDigits") == 0 ) { 
-      path += what ; 
-      path += "/PHOS/"; 
-      path += file ; 
-      path += "/" ; 
-      path += fSDigitsTitle ; 
-    }
-    else if ( what.CompareTo("Digits") == 0 ){
-      path += what ; 
-      path += "/PHOS/"; 
-      path += fDigitsTitle ;
-    } 
-    else if ( what.CompareTo("EmcRecPoints") == 0 ) {
-      path += "RecPoints/PHOS/";  
-      path += "emc/" ; 
-      path += fRecPointsTitle ; 
-    }
-    else if ( what.CompareTo("CpvRecPoints") == 0 ) {
-      path += "RecPoints/PHOS/";  
-      path += "cpv/" ; 
-      path += fRecPointsTitle ; 
-    }
-    else if ( what.CompareTo("TrackSegments") == 0 ) {
-      path += "TrackSegments/PHOS/";  
-      path += fTrackSegmentsTitle ; 
-    }  
-    else if ( what.CompareTo("RecParticles") == 0 ) {
-      path += "RecParticles/PHOS/";  
-      path += fRecParticlesTitle ; 
-    }  
-     else if ( what.CompareTo("Alarms") == 0 ) {
-      path += "QAAlarms/PHOS";   
-    }  
-  } 
-  else {
-    if ( what.CompareTo("SDigits") == 0 ) { 
-      path += what ; 
-      path += "/PHOS/"; 
-      path += file ; 
-      path += "/" ; 
-      path += name ;
-    } 
-    else if ( what.CompareTo("Digits") == 0 ) {
-      path += what ; 
-      path += "/PHOS/"; 
-      path += name ; 
-    }
-    else if ( what.CompareTo("EmcRecPoints") == 0 ) {
-      path += "RecPoints/PHOS/";  
-      path += "emc/" ; 
-      path += name ; 
-    }
-    else if ( what.CompareTo("CpvRecPoints") == 0 ) {
-      path += "RecPoints/PHOS/";  
-      path += "cpv/" ; 
-      path += name ; 
-    }  
-    else if ( what.CompareTo("TrackSegments") == 0 ) {
-      path += "TrackSegments/PHOS/";  
-      path += name ; 
-    } 
-    else if ( what.CompareTo("RecParticles") == 0 ) {
-      path += "RecParticles/PHOS/";  
-      path += name ; 
+  if( name.IsNull() )
+    name = fBranchTitle ;
+
+  TFolder * folder = 0 ;
+  TObject * phosO  = 0 ; 
+
+  if ( what.CompareTo("Primaries") == 0 ) {
+    folder = dynamic_cast<TFolder *>(fPrimariesFolder->FindObject("Primaries")) ; 
+    if (folder) 
+      phosO  = dynamic_cast<TObject *>(folder->FindObject("Primaries")) ;  
+    else 
+      return 0 ; 
+  }
+  else if ( what.CompareTo("Hits") == 0 ) {
+    folder = dynamic_cast<TFolder *>(fHitsFolder->FindObject("PHOS")) ; 
+    if (folder) 
+      phosO  = dynamic_cast<TObject *>(folder->FindObject("Hits")) ;  
+  }
+  else if ( what.CompareTo("SDigits") == 0 ) {
+    if(fToSplit){
+      file.Remove(file.Last('/')+1,file.Length()-file.Last('/')-1) ;
+      file.ReplaceAll("/","_") ; 
+      file+="PHOS.SDigits." ;
+      if(name && (strcmp(name,"Default")!=0)){
+       file+=name ;
+       file+="." ;
+      }
+      file+="root" ;
+    }
+    TString path = "PHOS/" + file  ;
+    folder = dynamic_cast<TFolder *>(fSDigitsFolder->FindObject(path.Data())) ; 
+    if (folder) { 
+      if (name.IsNull())
+       name = fSDigitsTitle ; 
+      phosO  = dynamic_cast<TObject *>(folder->FindObject(name)) ; 
+    }
+  }
+  else if ( what.CompareTo("Digits") == 0 ){
+    folder = dynamic_cast<TFolder *>(fDigitsFolder->FindObject("PHOS")) ; 
+    if (folder) { 
+      if (name.IsNull())
+       name = fDigitsTitle ; 
+      phosO  = dynamic_cast<TObject *>(folder->FindObject(name)) ; 
     } 
-    else if ( what.CompareTo("Alarms") == 0 ) {
-      path += "QAAlarms/PHOS/";  
-      path += name ; 
+  }
+  else if ( what.CompareTo("EmcRecPoints") == 0 ) {
+    folder = dynamic_cast<TFolder *>(fRecoFolder->FindObject("PHOS/EMCARecPoints")) ; 
+    if (folder) { 
+      if (name.IsNull())
+       name = fRecPointsTitle ; 
+      phosO  = dynamic_cast<TObject *>(folder->FindObject(name)) ;
     } 
   }
-  path.Prepend("YSAlice/") ;
-  TObject * phosO  = (TObject*)gROOT->FindObjectAny(path) ; 
+  else if ( what.CompareTo("CpvRecPoints") == 0 ) {
+    folder = dynamic_cast<TFolder *>(fRecoFolder->FindObject("PHOS/CPVRecPoints")) ; 
+    if (folder) { 
+      if (name.IsNull())
+       name = fRecPointsTitle ; 
+      phosO  = dynamic_cast<TObject *>(folder->FindObject(name)) ; 
+    }   
+  }
+  else if ( what.CompareTo("TrackSegments") == 0 ) {
+    folder = dynamic_cast<TFolder *>(fRecoFolder->FindObject("PHOS/TrackSegments")) ; 
+    if (folder) { 
+      if (name.IsNull())
+       name = fTrackSegmentsTitle ; 
+      phosO  = dynamic_cast<TObject *>(folder->FindObject(name)) ; 
+    }   
+  }
+  else if ( what.CompareTo("RecParticles") == 0 ) {
+    folder = dynamic_cast<TFolder *>(fRecoFolder->FindObject("PHOS/RecParticles")) ; 
+   if (folder) { 
+      if (name.IsNull())
+       name = fRecParticlesTitle ; 
+      phosO  = dynamic_cast<TObject *>(folder->FindObject(name)) ;
+    }   
+ }
+  else if ( what.CompareTo("Alarms") == 0 ){ 
+      phosO = dynamic_cast<TFolder *>(fQAFolder->FindObject("PHOS")) ;        
+  }
   if (!phosO) {
-    cerr << "ERROR : AliPHOSGetter::ReturnO -> Object " << path << " not found!" << endl ; 
-    abort() ;
+    if(fDebug)
+      Warning("ReturnO", "Object %s not found in PHOS", what.Data() ) ; 
+    return 0 ;
   }
+
   return phosO ;
 }
   
@@ -1050,35 +2333,32 @@ const TObject * AliPHOSGetter::ReturnO(TString what, TString name, TString file)
 const TTask * AliPHOSGetter::ReturnT(TString what, TString name) const 
 {
   // get the TTask named "what" from the folder
-  // folders are named like //YSAlice/Tasks/what/PHOS/name
+  // folders are named like //Folders/Tasks/what/PHOS/name
 
-  TString path("tasks") ;
-  if ( what.CompareTo("SDigitizer") == 0 ) 
-    path += "/SDigitizer" ;
-  else if ( what.CompareTo("Digitizer") == 0 ) 
-    path += "/Digitizer" ; 
-  else if ( what.CompareTo("Clusterizer") == 0 ) 
-    path += "/Reconstructioner" ; 
+  TString search(what) ; 
+  if ( what.CompareTo("Clusterizer") == 0 ) 
+    search = "Reconstructioner" ; 
   else if ( what.CompareTo("TrackSegmentMaker") == 0 ) 
-    path += "/Reconstructioner" ; 
+    search = "Reconstructioner" ; 
   else if ( what.CompareTo("PID") == 0 ) 
-    path += "/Reconstructioner" ; 
+    search = "Reconstructioner" ; 
+  else if ( what.CompareTo("QATasks") == 0 ) 
+    search = "QA" ; 
 
-  TFolder * aliceF  = (TFolder*)gROOT->FindObjectAny("YSAlice") ; 
-  TTask * aliceT  = (TTask*)aliceF->FindObject(path) ; 
+  TTask * tasks = dynamic_cast<TTask*>(fTasksFolder->FindObject(search)) ; 
 
-  if (!aliceT) {
-    cerr << "ERROR: AliPHOSGetter::ReturnT -> Task " << path << " not found!" << endl ;  
-    abort() ;
+  if (!tasks) {
+    Error("ReturnT", "Task %s not found !", what.Data() ) ;  
+    return 0 ; 
   }
 
-  TTask * phosT = (TTask*)aliceT->GetListOfTasks()->FindObject("PHOS") ; 
+  TTask * phosT = dynamic_cast<TTask*>(tasks->GetListOfTasks()->FindObject("PHOS")) ; 
   if (!phosT) { 
-    cerr << "ERROR: AliPHOSGetter::ReturnT -> Task " << path << "/PHOS not found!" << endl ;  
-    abort() ;
+     Error("ReturnT", "Task %s/PHOS not found !", what.Data() ) ;  
+    return 0 ; 
   }
-  TList * l = phosT->GetListOfTasks() ; 
+  
+  TList * list = phosT->GetListOfTasks() ; 
  
   if (what.CompareTo("SDigitizer") == 0) {  
     if ( name.IsNull() )
@@ -1089,20 +2369,412 @@ const TTask * AliPHOSGetter::ReturnT(TString what, TString name) const
   } else  if (what.CompareTo("Clusterizer") == 0){ 
     if ( name.IsNull() )
       name =  fRecPointsTitle ;
+    name.Append(":clu") ;
   }
   else  if (what.CompareTo("TrackSegmentMaker") == 0){ 
     if ( name.IsNull() )
       name =  fTrackSegmentsTitle ;
+    name.Append(":tsm") ;
   }
   else  if (what.CompareTo("PID") == 0){ 
     if ( name.IsNull() )
       name =  fRecParticlesTitle ;
+    name.Append(":pid") ;
+  }
+  else  if (what.CompareTo("QATasks") == 0){ 
+    if ( name.IsNull() )
+      return phosT ;
+  }
+  
+  TIter it(list) ;
+  TTask * task = 0 ; 
+  while((task = static_cast<TTask *>(it.Next()) )){
+    TString taskname(task->GetName()) ;
+    if(taskname.BeginsWith(name))
+      return task ;
+  }
+  
+  if(fDebug)
+    Warning("ReturnT", "-> Task %s/PHOS/%s not found", search.Data(), name.Data() ) ; 
+  return 0 ;
+}
+
+//____________________________________________________________________________ 
+void AliPHOSGetter::RemoveTask(TString opt, TString name) const 
+{
+  // remove a task from the folder
+  // path is fTasksFolder/SDigitizer/PHOS/name
+  
+  TTask * task = 0 ; 
+  TTask * phos = 0 ; 
+  TList * lofTasks = 0 ; 
+
+  if (opt == "S") { // SDigitizer
+    task = dynamic_cast<TTask*>(fTasksFolder->FindObject("SDigitizer")) ;
+    if (!task) 
+      return ; 
+  }
+  else if (opt == "D") { // Digitizer
+    task = dynamic_cast<TTask*>(fTasksFolder->FindObject("Digitizer")) ;
+    if (!task) 
+      return ; 
+  }
+  else if (opt == "C" || opt == "T" || opt == "P"  ) { // Clusterizer, TrackSegmentMaker, PID
+    task = dynamic_cast<TTask*>(fTasksFolder->FindObject("Reconstructioner")) ;
+    if (!task) 
+      return ; 
+  }
+  else {
+    Warning("RemoveTask", "Unknown option %s", opt.Data() ); 
+    return ; 
+  }
+  phos =  dynamic_cast<TTask*>(task->GetListOfTasks()->FindObject("PHOS")) ;
+  if (!phos)
+    return ; 
+  lofTasks = phos->GetListOfTasks() ;
+  if (!lofTasks) 
+    return ; 
+  TObject * obj = lofTasks->FindObject(name) ; 
+  if (obj) 
+    lofTasks->Remove(obj) ;
+   
+}
+
+//____________________________________________________________________________ 
+void AliPHOSGetter::RemoveObjects(TString opt, TString name) const 
+{
+  // remove SDigits from the folder
+  // path is fSDigitsFolder/fHeaderFileName/name
+
+  TFolder * phos     = 0 ; 
+  TFolder * phosmain = 0 ; 
+
+  if (opt == "H") { // Hits
+    phos = dynamic_cast<TFolder*>(fHitsFolder->FindObject("PHOS")) ;
+    if (!phos) 
+      return ;
+    name = "Hits" ; 
+  }
+
+  else if ( opt == "S") { // SDigits
+    phosmain = dynamic_cast<TFolder*>(fSDigitsFolder->FindObject("PHOS")) ;
+    if (!phosmain) 
+      return ;
+    phos = dynamic_cast<TFolder*>(phosmain->FindObject(fHeaderFile)) ;
+    if (!phos) 
+      return ;
+  }
+  
+  else if (opt == "D") { // Digits
+    phos = dynamic_cast<TFolder*>(fDigitsFolder->FindObject("PHOS")) ;
+    if (!phos) 
+      return ;
+  }
+
+  else if (opt == "RE") { // EMCARecPoints
+    phos = dynamic_cast<TFolder*>(fRecoFolder->FindObject("PHOS/EMCARecPoints")) ;
+    if (!phos) 
+      return ;
+  }
+
+  else if (opt == "RC") { // CPVRecPoints
+    phos = dynamic_cast<TFolder*>(fRecoFolder->FindObject("PHOS/CPVRecPoints")) ;
+    if (!phos) 
+      return ;
+  }  
+
+  else if (opt == "T") { // TrackSegments
+    phos = dynamic_cast<TFolder*>(fRecoFolder->FindObject("PHOS/TrackSegments")) ;
+    if (!phos) 
+      return ;
+  }
+
+  else if (opt == "P") { // RecParticles
+    phos = dynamic_cast<TFolder*>(fRecoFolder->FindObject("PHOS/RecParticles")) ;
+    if (!phos) 
+      return ;
+  }
+  
+  else {
+    Warning("RemoveObjects", "Unknown option %s", opt.Data() ) ; 
+    return ; 
+  }
+  
+  TObjArray * ar  = dynamic_cast<TObjArray*>(phos->FindObject(name)) ; 
+  if (ar) { 
+    phos->Remove(ar) ;
+    ar->Delete() ; 
+    delete ar ; 
+  }
+
+  if (opt == "S") 
+    phosmain->Remove(phos) ; 
+  
+}
+
+//____________________________________________________________________________ 
+void AliPHOSGetter::RemoveSDigits() const 
+{
+  // Clean SDigit array
+
+  TFolder * phos= dynamic_cast<TFolder*>(fSDigitsFolder->FindObject("PHOS")) ;
+  if (!phos) 
+    return ;
+  
+  phos->SetOwner() ; 
+  phos->Clear() ; 
+}
+
+//____________________________________________________________________________ 
+void AliPHOSGetter::CleanWhiteBoard(void)
+{
+  // Delete all PHOS objects from folders
+
+  TFolder * phosmain = 0 ; 
+  TFolder * phos ;
+  TObjArray * ar ;
+  TList * lofTasks = 0 ; 
+  TTask * task = 0 ; 
+  TTask * phost = 0 ; 
+  
+  // Hits  
+  phos = dynamic_cast<TFolder*>(fHitsFolder->FindObject("PHOS")) ;
+  if (phos){  
+    TObjArray * ar  = dynamic_cast<TObjArray*>(phos->FindObject("Hits")) ; 
+    if (ar) { 
+      phos->Remove(ar) ;
+      ar->Delete() ; 
+      delete ar ; 
+    }
+  }
+  
+  // SDigits
+  phosmain = dynamic_cast<TFolder*>(fSDigitsFolder->FindObject("PHOS")) ;
+  if (phosmain){ 
+    phos = dynamic_cast<TFolder*>(phosmain->FindObject(fHeaderFile)) ;
+    if (phos) {
+      ar  = dynamic_cast<TObjArray*>(phos->FindObject(fSDigitsTitle)) ; 
+      if (ar) { 
+       phos->Remove(ar) ;
+       ar->Delete() ; 
+       delete ar ; 
+      }
+    }
+    phosmain->Remove(phos) ; 
+  }
+
+  
+  // Digits
+  phos = dynamic_cast<TFolder*>(fDigitsFolder->FindObject("PHOS")) ;
+  if (phos){ 
+    ar  = dynamic_cast<TObjArray*>(phos->FindObject(fDigitsTitle)) ; 
+    if (ar) { 
+      phos->Remove(ar) ;
+      ar->Delete() ; 
+      delete ar ; 
+    }
+  }
+
+
+  // EMCARecPoints
+  phos = dynamic_cast<TFolder*>(fRecoFolder->FindObject("PHOS/EMCARecPoints")) ;
+  if (phos){ 
+    ar  = dynamic_cast<TObjArray*>(phos->FindObject(fRecPointsTitle)) ; 
+    if (ar) { 
+      phos->Remove(ar) ;
+      ar->Delete() ; 
+      delete ar ; 
+    }
+  }
+
+  
+  // CPVRecPoints
+  phos = dynamic_cast<TFolder*>(fRecoFolder->FindObject("PHOS/CPVRecPoints")) ;
+  if (phos){ 
+    ar  = dynamic_cast<TObjArray*>(phos->FindObject(fRecPointsTitle)) ; 
+    if (ar) { 
+      phos->Remove(ar) ;
+      ar->Delete() ; 
+      delete ar ; 
+    }
+  }  
+
+  
+  // TrackSegments
+  phos = dynamic_cast<TFolder*>(fRecoFolder->FindObject("PHOS/TrackSegments")) ;
+  if (phos) { 
+    ar  = dynamic_cast<TObjArray*>(phos->FindObject(fTrackSegmentsTitle)) ; 
+    if (ar) { 
+      phos->Remove(ar) ;
+      ar->Delete() ; 
+      delete ar ; 
+    }
+  }
+  
+
+
+  // RecParticles
+  phos = dynamic_cast<TFolder*>(fRecoFolder->FindObject("PHOS/RecParticles")) ;
+  if (phos){ 
+    ar  = dynamic_cast<TObjArray*>(phos->FindObject(fRecParticlesTitle)) ; 
+    if (ar) { 
+      phos->Remove(ar) ;
+      ar->Delete() ; 
+      delete ar ; 
+    }
+  }
+
+
+  //---- Now Tasks ----------- 
+
+  TObject * obj ;
+  TString sdname(fSDigitsTitle);
+  
+  // Digitizer
+  task = dynamic_cast<TTask*>(fTasksFolder->FindObject("Digitizer")) ;
+  if (task){ 
+    phost =  dynamic_cast<TTask*>(task->GetListOfTasks()->FindObject("PHOS")) ;
+    if (phost){
+      lofTasks = phost->GetListOfTasks() ;
+      if (lofTasks){ 
+       obj = lofTasks->FindObject(sdname.Data()) ; 
+       if (obj) 
+         lofTasks->Remove(obj) ;
+      }
+    }      
   }
   
-  TTask * task = (TTask*)l->FindObject(name) ; 
 
-  if (!task)
-    cout << "WARNING: AliPHOSGetter::ReturnT -> Task " << path << "/" << name << " not found!" << endl ; 
+  sdname.Append(":") ;
+  // Clusterizer, TrackSegmentMaker, PID
+  task = dynamic_cast<TTask*>(fTasksFolder->FindObject("Reconstructioner")) ;
+  if (task){ 
+    phost =  dynamic_cast<TTask*>(task->GetListOfTasks()->FindObject("PHOS")) ;
+    if (phost){
+      lofTasks = phost->GetListOfTasks() ;
+      TIter next(lofTasks);
+      while((obj=next())){ 
+       TString oname(obj->GetName()) ;
+       if (oname.BeginsWith(sdname)){ 
+         lofTasks->Remove(obj) ;
+       }
+      }
+    }  
+  }
+
+
+  // SDigitizer
+  sdname.Append(fHeaderFile) ;
+  task = dynamic_cast<TTask*>(fTasksFolder->FindObject("SDigitizer")) ;
+  if (task) {
+    phost =  dynamic_cast<TTask*>(task->GetListOfTasks()->FindObject("PHOS")) ;
+    if (phost){
+      lofTasks = phost->GetListOfTasks() ;
+      if (lofTasks){ 
+       obj = lofTasks->FindObject(sdname.Data()) ; 
+       if (obj) 
+         lofTasks->Remove(obj) ;
+      }
+    }
+  }  
+
+}
+//____________________________________________________________________________ 
+void AliPHOSGetter::SetTitle(const char * branchTitle ) 
+{
+  // Set branch titles and add folders with PHOS data
+
+  fBranchTitle        = branchTitle ;
+  fSDigitsTitle       = branchTitle ; 
+  fDigitsTitle        = branchTitle ; 
+  fRecPointsTitle     = branchTitle ; 
+  fRecParticlesTitle  = branchTitle ; 
+  fTrackSegmentsTitle = branchTitle ; 
+  if(fToSplit){
+    //First - extract full path if necessary
+    TString sFileName(fHeaderFile) ;
+    Ssiz_t islash = sFileName.Last('/') ;
+    if(islash<sFileName.Length())
+      sFileName.Remove(islash+1,sFileName.Length()) ;
+    else
+      sFileName="" ;
+    //Now construct file names
+    fSDigitsFileName       = sFileName ;
+    fDigitsFileName        = sFileName ; 
+    fRecPointsFileName     = sFileName ; 
+    fRecParticlesFileName  = sFileName ; 
+    fTrackSegmentsFileName = sFileName ; 
+    fSDigitsFileName      += "PHOS.SDigits." ;
+    fDigitsFileName       += "PHOS.Digits." ; 
+    fRecPointsFileName    += "PHOS.RecData." ; 
+    fTrackSegmentsFileName+= "PHOS.RecData." ; 
+    fRecParticlesFileName += "PHOS.RecData." ; 
+    if((strcmp(fBranchTitle.Data(),"Default")!=0)&&(strcmp(fBranchTitle.Data(),"")!=0)){
+      fSDigitsFileName      += fBranchTitle ;
+      fSDigitsFileName      += "." ;
+      fDigitsFileName       += fBranchTitle ; 
+      fDigitsFileName       += "." ; 
+      fRecPointsFileName    += fBranchTitle ; 
+      fRecPointsFileName    += "." ; 
+      fRecParticlesFileName += fBranchTitle ; 
+      fRecParticlesFileName += "." ; 
+      fTrackSegmentsFileName+= fBranchTitle ; 
+      fTrackSegmentsFileName+= "." ; 
+    }
+    fSDigitsFileName      += "root" ;
+    fDigitsFileName       += "root" ; 
+    fRecPointsFileName    += "root" ; 
+    fRecParticlesFileName += "root" ; 
+    fTrackSegmentsFileName+= "root" ; 
+  }else{
+    fSDigitsFileName       = fHeaderFile ;
+
+    fDigitsFileName        = "" ; 
+    fRecPointsFileName     = "" ; 
+    fRecParticlesFileName  = "" ; 
+    fTrackSegmentsFileName = "" ; 
+  }
+  TFolder * phosFolder ; 
+  phosFolder = dynamic_cast<TFolder*>(fHitsFolder->FindObject("PHOS")) ; 
+  if ( !phosFolder ) 
+    phosFolder = fHitsFolder->AddFolder("PHOS", "Hits from PHOS") ; 
+
+  phosFolder = dynamic_cast<TFolder*>(fSDigitsFolder->FindObject("PHOS")) ;
+  if ( !phosFolder ) 
+    phosFolder = fSDigitsFolder->AddFolder("PHOS", "SDigits from PHOS") ; 
+
+  //Make folder for SDigits
+  fSDigitsFileName.ReplaceAll("/","_") ;
+  phosFolder->AddFolder(fSDigitsFileName.Data(),"");
+
+  phosFolder  = dynamic_cast<TFolder*>(fDigitsFolder->FindObject("PHOS")) ;
+  if ( !phosFolder ) 
+    phosFolder = fDigitsFolder->AddFolder("PHOS", "Digits from PHOS") ;  
+
+  phosFolder  = dynamic_cast<TFolder*>(fRecoFolder->FindObject("PHOS")) ; 
+  if ( !phosFolder )
+    phosFolder = fRecoFolder->AddFolder("PHOS", "Reconstructed data from PHOS") ;  
   
-  return task ;
+}
+//____________________________________________________________________________ 
+void AliPHOSGetter::CloseSplitFiles(void)
+{
+  // Close files opened in a split mode
+  TFile * file ;
+  file = static_cast<TFile*>(gROOT->GetFile(fSDigitsFileName.Data() ) ) ;
+  if(file)
+    file->Close() ;
+  file = static_cast<TFile*>(gROOT->GetFile(fDigitsFileName.Data() ) ) ;
+  if(file)
+    file->Close() ;
+  file = static_cast<TFile*>(gROOT->GetFile(fRecPointsFileName.Data() ) ) ;
+  if(file)
+    file->Close() ;
+  file = static_cast<TFile*>(gROOT->GetFile(fTrackSegmentsFileName.Data() ) ) ;
+  if(file)
+    file->Close() ;
+  file = static_cast<TFile*>(gROOT->GetFile(fRecParticlesFileName.Data() ) ) ;
+  if(file)
+    file->Close() ;
+
 }