]> git.uio.no Git - u/mrichter/AliRoot.git/blobdiff - PHOS/AliPHOSSDigitizer.cxx
fixing small memory leak
[u/mrichter/AliRoot.git] / PHOS / AliPHOSSDigitizer.cxx
index 89e5dab9eb430af8af345f326fc295d506c7a286..3cb16338d7d1022c51b664413bbbcf80a3694839 100644 (file)
 
 /* $Id$ */
 
+/* History of cvs commits:
+ *
+ * $Log$
+ * Revision 1.56  2007/10/19 18:04:29  schutz
+ * The standalone QA data maker is called from AliSimulation and AliReconstruction outside the event loop; i.e. re-reading the data. The QA data making in the event loop has been commented out.
+ *
+ * Revision 1.55  2007/10/14 21:08:10  schutz
+ * Introduced the checking of QA results from previous step before entering the event loop
+ *
+ * Revision 1.54  2007/10/10 09:05:10  schutz
+ * Changing name QualAss to QA
+ *
+ * Revision 1.53  2007/09/30 17:08:20  schutz
+ * Introducing the notion of QA data acquisition cycle (needed by online)
+ *
+ * Revision 1.52  2007/09/26 14:22:18  cvetan
+ * Important changes to the reconstructor classes. Complete elimination of the run-loaders, which are now steered only from AliReconstruction. Removal of the corresponding Reconstruct() and FillESD() methods.
+ *
+ * Revision 1.51  2007/08/07 14:12:03  kharlov
+ * Quality assurance added (Yves Schutz)
+ */
+
 //_________________________________________________________________________
 // This is a TTask that makes SDigits out of Hits
 // The name of the TTask is also the title of the branch that will contain 
@@ -34,7 +56,7 @@
 // User case:
 //  root [0] AliPHOSSDigitizer * s = new AliPHOSSDigitizer("galice.root")
 //  Warning in <TDatabasePDG::TDatabasePDG>: object already instantiated
-//  root [1] s->ExecuteTask()
+//  root [1] s->Digitize()
 //             // Makes SDigitis for all events stored in galice.root
 //  root [2] s->SetPedestalParameter(0.001)
 //             // One can change parameters of digitization
 //             deb all  - print # and list of produced SDigits
 //             tim - print benchmarking information
 //
-//*-- Author :  Dmitri Peressounko (SUBATECH & KI) 
+//-- Author :  Dmitri Peressounko (SUBATECH & KI) 
 //////////////////////////////////////////////////////////////////////////////
 
 
 // --- ROOT system ---
-#include "TFile.h"
-#include "TTask.h"
-#include "TTree.h"
-#include "TSystem.h"
-#include "TROOT.h"
-#include "TFolder.h"
 #include "TBenchmark.h"
-#include "TGeometry.h"
 
 // --- Standard library ---
 
 // --- AliRoot header files ---
-#include "AliRun.h"
-#include "AliHeader.h"
+#include "AliLog.h"
+#include "AliPHOSGeometry.h" 
 #include "AliPHOSDigit.h"
-#include "AliPHOSGeometry.h"
-#include "AliPHOSGetter.h"
+#include "AliPHOSLoader.h"
 #include "AliPHOSHit.h"
 #include "AliPHOSSDigitizer.h"
 
@@ -75,241 +89,237 @@ ClassImp(AliPHOSSDigitizer)
 
            
 //____________________________________________________________________________ 
-  AliPHOSSDigitizer::AliPHOSSDigitizer():TTask("","") 
+AliPHOSSDigitizer::AliPHOSSDigitizer() : 
+  TNamed("",""),
+  fPrimThreshold(0.f),
+  fDefaultInit(kTRUE),
+  fEventFolderName(""),
+  fInit(kFALSE),
+  fSDigitsInRun(0),
+  fFirstEvent(0),
+  fLastEvent(0)
 {
   // ctor
-  InitParameters() ;
-  fDefaultInit = kTRUE ; 
+  // Intialize the quality assurance data maker        
 }
 
 //____________________________________________________________________________ 
-AliPHOSSDigitizer::AliPHOSSDigitizer(const char * headerFile, const char * sDigitsTitle, const Bool_t toSplit):
-TTask(sDigitsTitle, headerFile)
+AliPHOSSDigitizer::AliPHOSSDigitizer(const char * alirunFileName, 
+                                    const char * eventFolderName):
+  TNamed("PHOSSDigitizer", alirunFileName),
+  fPrimThreshold(0.f),
+  fDefaultInit(kFALSE),
+  fEventFolderName(eventFolderName),
+  fInit(kFALSE),
+  fSDigitsInRun(0),
+  fFirstEvent(0),
+  fLastEvent(0)
 {
   // ctor
   InitParameters() ; 
-  fToSplit = toSplit ;
   Init();
   fDefaultInit = kFALSE ; 
 }
 
+//____________________________________________________________________________
+AliPHOSSDigitizer::AliPHOSSDigitizer(const AliPHOSSDigitizer& sd) :
+  TNamed(sd.GetName(), sd.GetTitle()),
+  fPrimThreshold(sd.fPrimThreshold),
+  fDefaultInit(kFALSE),
+  fEventFolderName(sd.fEventFolderName),
+  fInit(kFALSE),
+  fSDigitsInRun(sd.fSDigitsInRun),
+  fFirstEvent(sd.fFirstEvent),
+  fLastEvent(sd.fLastEvent)
+{ 
+  // cpy ctor
+}
+
+//_____________________________________________________________________________
+AliPHOSSDigitizer& AliPHOSSDigitizer::operator = (const AliPHOSSDigitizer& qa)
+{
+// assignment operator
+
+  this->~AliPHOSSDigitizer();
+  new(this) AliPHOSSDigitizer(qa);
+  return *this;
+}
+
 //____________________________________________________________________________ 
-AliPHOSSDigitizer::~AliPHOSSDigitizer()
+AliPHOSSDigitizer::~AliPHOSSDigitizer() 
 {
-  // dtor
-  
-  fSplitFile = 0 ; 
+  //dtor
 }
 
 //____________________________________________________________________________ 
 void AliPHOSSDigitizer::Init()
 {
-  // Initialization: open root-file, allocate arrays for hits and sdigits,
-  // attach task SDigitizer to the list of PHOS tasks
-  // 
-  // Initialization can not be done in the default constructor
-  //============================================================= YS
-  //  The initialisation is now done by AliPHOSGetter
+  // Uses the Loader to access the required files
   
-  if( strcmp(GetTitle(), "") == 0 )
-    SetTitle("galice.root") ;
-
-  AliPHOSGetter * gime = AliPHOSGetter::GetInstance(GetTitle(), GetName(),fToSplit) ;  
-  if ( gime == 0 ) {
-    Error("Init" ,"Could not obtain the Getter object !") ;  
-    return ;
-  } 
+  fInit = kTRUE ; 
   
-  gime->PostSDigits( GetName(), GetTitle() ) ; 
-
-  fSplitFile = 0 ;
-  if(fToSplit){
-    // construct the name of the file as /path/PHOS.SDigits.root
-    // First - extract full path if necessary
-    TString sDigitsFileName(GetTitle()) ;
-    Ssiz_t islash = sDigitsFileName.Last('/') ;
-    if(islash<sDigitsFileName.Length())
-      sDigitsFileName.Remove(islash+1,sDigitsFileName.Length()) ;
-    else
-      sDigitsFileName="" ;
-    // Next - append the file name 
-    sDigitsFileName+="PHOS.SDigits." ;
-    if((strcmp(GetName(),"Default")!=0)&&(strcmp(GetName(),"")!=0)){
-      sDigitsFileName+=GetName() ;
-      sDigitsFileName+="." ;
-    }
-    sDigitsFileName+="root" ;
-    // Finally - check if the file already opened or open the file
-    fSplitFile = static_cast<TFile*>(gROOT->GetFile(sDigitsFileName.Data()));   
-    if(!fSplitFile)
-      fSplitFile =  TFile::Open(sDigitsFileName.Data(),"update") ;
-  }
-
-  TString sdname(GetName() );
-  sdname.Append(":") ;
-  sdname.Append(GetTitle() ) ;
-  SetName(sdname) ;
-  gime->PostSDigitizer(this) ;
+  //to prevent cleaning of this object while GetEvent is called
+  AliRunLoader* rl = AliRunLoader::GetRunLoader(fEventFolderName) ;
+  if (!rl) AliRunLoader::Open(GetTitle(), fEventFolderName) ; 
 }
 
 //____________________________________________________________________________ 
 void AliPHOSSDigitizer::InitParameters()
 { 
-  fA             = 0;
-  fB             = 10000000.;
+  // initializes the parameters for digitization
   fPrimThreshold = 0.01 ;
   fSDigitsInRun  = 0 ;
-  fSplitFile     = 0 ; 
-  fToSplit       = kFALSE ;
 }
 
 //____________________________________________________________________________
-void AliPHOSSDigitizer::Exec(Option_t *option) 
+void AliPHOSSDigitizer::Digitize(Option_t *option) 
 { 
-  // Collects all hits in the same active volume into digit
-
-  if( strcmp(GetName(), "") == 0 )
-    Init() ;
+  // Steering method to produce summable digits for events
+  // in the range from fFirstEvent to fLastEvent.
+  // This range is optionally set by SetEventRange().
+  // if fLastEvent=-1 (by default), then process events until the end.
+  //
+  // Summable digit is a sum of all hits in the same active
+  // volume into digit
   
   if (strstr(option, "print") ) {
-    Print("") ; 
+    Print() ; 
     return ; 
   }
 
   if(strstr(option,"tim"))
     gBenchmark->Start("PHOSSDigitizer");
   
-  //Check, if this branch already exits
-  AliPHOSGetter * gime = AliPHOSGetter::GetInstance() ;
-  if(gime->BranchExists("SDigits") ) 
-    return;   
-
-  TString sdname(GetName()) ;
-  sdname.Remove(sdname.Index(GetTitle())-1) ;
-   
-  Int_t nevents = gime->MaxEvent() ; 
-  Int_t ievent ;
-  for(ievent = 0; ievent < nevents; ievent++){
-    gime->Event(ievent,"H") ;
-    const TClonesArray * hits = gime->Hits() ;
-    TClonesArray * sdigits = gime->SDigits(sdname.Data()) ;
+/*
+       // check the QA result for RAWS
+  AliQAv1 * qa = AliQAv1::Instance(AliQAv1::kPHOS) ; 
+  if ( qa->IsSet(AliQAv1::kPHOS, AliQAv1::kRAW, AliQAv1::kFATAL)) {
+       AliFatal("QA status in RAW was Fatal") ;
+  } else if ( qa->IsSet(AliQAv1::kPHOS, AliQAv1::kRAW, AliQAv1::kERROR)) {
+       AliError("QA status in RAW was Error") ;
+  } else if ( qa->IsSet(AliQAv1::kPHOS, AliQAv1::kRAW, AliQAv1::kWARNING) ) {
+       AliWarning("QA status in RAW was Warning") ;
+  } else if ( qa->IsSet(AliQAv1::kPHOS, AliQAv1::kRAW, AliQAv1::kINFO) ) {
+       AliInfo("QA status in RAW was Info") ;
+  }
+*/
+  AliRunLoader* rl = AliRunLoader::GetRunLoader(fEventFolderName) ;
+  AliPHOSLoader * phosLoader = static_cast<AliPHOSLoader*>(rl->GetLoader("PHOSLoader"));
+  
+  //switch off reloading of this task while getting event
+  if (!fInit) { // to prevent overwrite existing file
+    AliError( Form("Give a version name different from %s", fEventFolderName.Data()) ) ;
+    return ;
+  }
+  
+  if (fLastEvent == -1) 
+    fLastEvent = rl->GetNumberOfEvents() - 1 ;
+  else 
+    fLastEvent = TMath::Min(fFirstEvent, rl->GetNumberOfEvents()); // only one event at the time 
+  Int_t nEvents   = fLastEvent - fFirstEvent + 1;
+  
+  Int_t ievent, i;
+
+  for (ievent = fFirstEvent; ievent <= fLastEvent; ievent++) {    
+    rl->GetEvent(ievent) ;
+    TTree * treeS = phosLoader->TreeS(); 
+    if(!treeS){
+      phosLoader->MakeTree("S");
+      treeS = phosLoader->TreeS();
+    }
+
+    phosLoader->CleanHits() ; 
+    phosLoader->LoadHits("READ") ;
+
+    TClonesArray * hits    = phosLoader->Hits() ;
+    TClonesArray * sdigits = phosLoader->SDigits() ;
+    if( !sdigits ) {
+      phosLoader->MakeSDigitsArray() ; 
+      sdigits = phosLoader->SDigits() ;
+    }
     sdigits->Clear();
     Int_t nSdigits = 0 ;
-    
+
     //Now make SDigits from hits, for PHOS it is the same, so just copy    
-    Int_t nPrim =  static_cast<Int_t>((gAlice->TreeH())->GetEntries()) ; 
-    // Attention nPrim is the number of primaries tracked by Geant 
-    // and this number could be different to the number of Primaries in TreeK;
-    Int_t iprim ;
-    for (iprim = 0 ; iprim < nPrim ; iprim ++) { 
-      //=========== Get the PHOS branch from Hits Tree for the Primary iprim
-      gime->Track(iprim) ;
-      Int_t i;
-      for ( i = 0 ; i < hits->GetEntries() ; i++ ) {
-       AliPHOSHit * hit = dynamic_cast<AliPHOSHit *>(hits->At(i)) ;
-       // Assign primary number only if contribution is significant
-       
-       if( hit->GetEnergy() > fPrimThreshold)
-         new((*sdigits)[nSdigits]) AliPHOSDigit(hit->GetPrimary(),hit->GetId(),
-                                                Digitize(hit->GetEnergy()), hit->GetTime()) ;
-       else
-         new((*sdigits)[nSdigits]) AliPHOSDigit( -1              , hit->GetId(), 
-                                                 Digitize(hit->GetEnergy()), hit->GetTime()) ;
-       nSdigits++ ;    
-       
-      }
+    for ( i = 0 ; i < hits->GetEntries() ; i++ ) {
       
-    } // loop over iprim
-    
+      AliPHOSHit * hit = static_cast<AliPHOSHit *>(hits->At(i)) ;
+      // Assign primary number only if contribution is significant
+      
+      if( hit->GetEnergy() > fPrimThreshold)
+       new((*sdigits)[nSdigits]) AliPHOSDigit(hit->GetPrimary(),hit->GetId(),
+                                              hit->GetEnergy() ,hit->GetTime()) ;
+      else
+       new((*sdigits)[nSdigits]) AliPHOSDigit(-1               ,hit->GetId(), 
+                                              hit->GetEnergy() ,hit->GetTime()) ;
+      nSdigits++ ;     
+      
+    }
     sdigits->Sort() ;
-    
+
     nSdigits = sdigits->GetEntriesFast() ;
+
     fSDigitsInRun += nSdigits ;  
     sdigits->Expand(nSdigits) ;
     
-    Int_t i ;
-    for (i = 0 ; i < nSdigits ; i++) { 
-      AliPHOSDigit * digit = dynamic_cast<AliPHOSDigit *>(sdigits->At(i)) ; 
+    for (i = 0 ; i < nSdigits ; i++) {       
+      AliPHOSDigit * digit = static_cast<AliPHOSDigit *>(sdigits->At(i)) ;
       digit->SetIndexInList(i) ;     
     }
-
-    //Now write SDigits
-    
-    if((gAlice->TreeS() == 0)|| (fSplitFile))  
-      gAlice->MakeTree("S", fSplitFile);
     
-    if(fSplitFile)
-      fSplitFile->cd() ;
+//    // make Quality Assurance data
+//
+//    if (GetQADataMaker()->IsCycleDone() ) {
+//      GetQADataMaker()->EndOfCycle(AliQAv1::kHITS) ; 
+//       GetQADataMaker()->EndOfCycle(AliQAv1::kSDIGITS) ; 
+//      GetQADataMaker()->StartOfCycle(AliQAv1::kHITS) ; 
+//       GetQADataMaker()->StartOfCycle(AliQAv1::kSDIGITS, kTRUE) ; 
+//   }
+//    GetQADataMaker()->Exec(AliQAv1::kHITS, hits) ; 
+//    GetQADataMaker()->Exec(AliQAv1::kSDIGITS, sdigits) ; 
+//    GetQADataMaker()->Increment() ;
+       
+    //Now write SDigits
 
+    
     //First list of sdigits
+
     Int_t bufferSize = 32000 ;
-    TBranch * sdigitsBranch = gAlice->TreeS()->Branch("PHOS",&sdigits,bufferSize);
-    sdigitsBranch->SetTitle(sdname);
-    
-    //Next - SDigitizer
-    Int_t splitlevel = 0 ;
-    AliPHOSSDigitizer * sd = this ;
-    TBranch * sdigitizerBranch = gAlice->TreeS()->Branch("AliPHOSSDigitizer","AliPHOSSDigitizer",
-                                                        &sd,bufferSize,splitlevel);
-    sdigitizerBranch->SetTitle(sdname);
-    
+    TBranch * sdigitsBranch = treeS->Branch("PHOS",&sdigits,bufferSize);
     sdigitsBranch->Fill() ;
-    sdigitizerBranch->Fill() ;
 
-    gAlice->TreeS()->AutoSave() ;
-        
+    phosLoader->WriteSDigits("OVERWRITE");
+
     if(strstr(option,"deb"))
       PrintSDigits(option) ;
-  }
+      
+  }// event loop
   
+//  //Write the quality assurance data 
+//  GetQADataMaker()->EndOfCycle(AliQAv1::kHITS) ;    
+//  GetQADataMaker()->EndOfCycle(AliQAv1::kSDIGITS) ;    
+//  GetQADataMaker()->Finish() ;
+
+  Unload();
+
   if(strstr(option,"tim")){
     gBenchmark->Stop("PHOSSDigitizer");
     Info("Exec","   took %f seconds for SDigitizing  %f seconds per event",
-        gBenchmark->GetCpuTime("PHOSSDigitizer"), gBenchmark->GetCpuTime("PHOSSDigitizer")/nevents) ;
-  }
-}
-
-//__________________________________________________________________
-void AliPHOSSDigitizer::SetSDigitsBranch(const char * title )
-{
-  // Setting title to branch SDigits 
-
-  TString stitle(title) ;
-
-  // check if branch with title already exists
-  TBranch * sdigitsBranch    = 
-    static_cast<TBranch*>(gAlice->TreeS()->GetListOfBranches()->FindObject("PHOS")) ; 
-  TBranch * sdigitizerBranch =  
-    static_cast<TBranch*>(gAlice->TreeS()->GetListOfBranches()->FindObject("AliPHOSSDigitizer")) ;
-  const char * sdigitsTitle    = sdigitsBranch ->GetTitle() ;  
-  const char * sdigitizerTitle = sdigitizerBranch ->GetTitle() ;
-  if ( stitle.CompareTo(sdigitsTitle)==0 || stitle.CompareTo(sdigitizerTitle)==0 ){
-    Error("SetSDigitsBranch", "Cannot overwrite existing branch with title %s", title) ;
-    return ;
+        gBenchmark->GetCpuTime("PHOSSDigitizer"), 
+        gBenchmark->GetCpuTime("PHOSSDigitizer")/nEvents) ;
   }
   
-  Info("SetSDigitsBranch", "-> Changing SDigits file from %s to %s", GetName(), title) ;
-
-  SetName(title) ; 
-    
-  // Post to the WhiteBoard
-  AliPHOSGetter * gime = AliPHOSGetter::GetInstance() ; 
-  gime->PostSDigits( title, GetTitle()) ; 
 }
 
-
 //__________________________________________________________________
-void AliPHOSSDigitizer::Print(Option_t* option)const
+void AliPHOSSDigitizer::Print(const Option_t *)const
 {
   // Prints parameters of SDigitizer
-  TString message ; 
-  message  = "\n------------------- %s -------------\n" ;  
-  message += "   Writing SDigits to branch with title  %s\n" ;
-  message += "   with digitization parameters  A = %f\n" ; 
-  message += "                                 B = %f\n" ;
-  message += "   Threshold for Primary assignment= %f\n" ; 
-  message += "---------------------------------------------------\n" ;
-  Info("Print", message.Data(),  GetName(),  GetName(), fA, fB, fPrimThreshold ) ;
+  Info("Print", "\n------------------- %s -------------", GetName() ) ; 
+  printf("   Writing SDigits to branch with title  %s\n", fEventFolderName.Data()) ;
+  printf("   Threshold for Primary assignment= %f\n", fPrimThreshold)  ; 
+  printf("---------------------------------------------------\n") ;
   
 }
 
@@ -319,7 +329,7 @@ Bool_t AliPHOSSDigitizer::operator==( AliPHOSSDigitizer const &sd )const
   // Equal operator.
   // SDititizers are equal if their pedestal, slope and threshold are equal
 
-  if( (fA==sd.fA)&&(fB==sd.fB)&&(fPrimThreshold==sd.fPrimThreshold))
+  if(fPrimThreshold==sd.fPrimThreshold)
     return kTRUE ;
   else
     return kFALSE ;
@@ -330,38 +340,38 @@ void AliPHOSSDigitizer::PrintSDigits(Option_t * option)
 {
   // Prints list of digits produced in the current pass of AliPHOSDigitizer
 
+  AliRunLoader* rl = AliRunLoader::GetRunLoader(fEventFolderName) ;
+  AliPHOSLoader * phosLoader = static_cast<AliPHOSLoader*>(rl->GetLoader("PHOSLoader"));
 
-  AliPHOSGetter * gime = AliPHOSGetter::GetInstance() ; 
-  TString sdname(GetName()) ;
-  sdname.Remove(sdname.Index(GetTitle())-1) ;
-  const TClonesArray * sdigits = gime->SDigits(sdname.Data()) ;
+  // Get PHOS Geometry object
+  AliPHOSGeometry *geom;
+  if (!(geom = AliPHOSGeometry::GetInstance())) 
+        geom = AliPHOSGeometry::GetInstance("IHEP","");
 
-  TString message ; 
-  message  = "\nAliPHOSSDigitiser: event " ;
-  message += gAlice->GetEvNumber(); 
-  message += "\n      Number of entries in SDigits list " ;  
-  message += sdigits->GetEntriesFast() ; 
+  const TClonesArray * sdigits = phosLoader->SDigits() ;
   
+  Info( "\nPrintSDigits", "event # %d %d sdigits", 
+       gAlice->GetEvNumber(), sdigits->GetEntriesFast() ) ; 
+
   if(strstr(option,"all")||strstr(option,"EMC")){
     
     //loop over digits
     AliPHOSDigit * digit;
-    message += "\nEMC sdigits\n" ;
-    message += "Digit Id    Amplitude     Index     Nprim  Primaries list\n" ;       
-    Int_t maxEmc = gime->PHOSGeometry()->GetNModules()*gime->PHOSGeometry()->GetNCristalsInModule() ;
+    printf("\nEMC sdigits\n") ; 
+    Int_t maxEmc = geom->GetNModules() * geom->GetNCristalsInModule() ;
     Int_t index ;
     for (index = 0 ; (index < sdigits->GetEntriesFast()) && 
-        ((dynamic_cast<AliPHOSDigit *> (sdigits->At(index)))->GetId() <= maxEmc) ; index++) {
-      digit = dynamic_cast<AliPHOSDigit *>( sdigits->At(index) ) ;
-      if(digit->GetNprimary() == 0) 
-       continue;
-      message += digit->GetId() ; 
-      message += digit->GetAmp() ;
-      message += digit->GetIndexInList() ;
-      message += digit->GetNprimary() ;
+        ((static_cast<AliPHOSDigit *> (sdigits->At(index)))->GetId() <= maxEmc) ; index++) {
+      digit = static_cast<AliPHOSDigit *>( sdigits->At(index) ) ;
+      //  if(digit->GetNprimary() == 0) 
+      //       continue;
+//       printf("%6d  %8d    %6.5e %4d      %2d :\n", // YVK
+      printf("%6d  %.4f    %6.5e %4d      %2d :\n",
+             digit->GetId(), digit->GetEnergy(), digit->GetTime(), digit->GetIndexInList(), digit->GetNprimary()) ;  
       Int_t iprimary;
-      for (iprimary=0; iprimary<digit->GetNprimary(); iprimary++)
-       message += digit->GetPrimary(iprimary+1) ;
+      for (iprimary=0; iprimary<digit->GetNprimary(); iprimary++) {
+       printf("%d ",digit->GetPrimary(iprimary+1) ) ; 
+      }  
     }    
   }
 
@@ -369,37 +379,30 @@ void AliPHOSSDigitizer::PrintSDigits(Option_t * option)
     
     //loop over CPV digits
     AliPHOSDigit * digit;
-    
-    message += "CPV sdigits\n" ;
-    message += "Digit Id Amplitude Index Nprim  Primaries list\n" ;
-    Int_t maxEmc = gime->PHOSGeometry()->GetNModules()*gime->PHOSGeometry()->GetNCristalsInModule() ;
+    printf("\nCPV sdigits\n") ; 
+    Int_t maxEmc = geom->GetNModules() * geom->GetNCristalsInModule() ;
     Int_t index ;
     for (index = 0 ; index < sdigits->GetEntriesFast(); index++) {
-      digit = dynamic_cast<AliPHOSDigit *>( sdigits->At(index) ) ;
+      digit = static_cast<AliPHOSDigit *>( sdigits->At(index) ) ;
       if(digit->GetId() > maxEmc){
-       message += "\n" ; 
-       message += digit->GetId() ; 
-       message += "   " ; 
-       message += digit->GetAmp() ;
-       message += "   " ; 
-       message += digit->GetIndexInList() ;
-       message += "   " ; 
-       message += digit->GetNprimary() ;
-       message += "   " ; 
+       printf("\n%6d  %8d    %4d      %2d :",
+               digit->GetId(), digit->GetAmp(), digit->GetIndexInList(), digit->GetNprimary()) ;  
        Int_t iprimary;
        for (iprimary=0; iprimary<digit->GetNprimary(); iprimary++) {
-         message += digit->GetPrimary(iprimary+1) ;
-         message += "," ; 
+         printf("%d ",digit->GetPrimary(iprimary+1) ) ; 
        }
       }    
     }
   }
-  Info("PrintSDigits", message.Data() ) ;
 }
 
 //____________________________________________________________________________ 
-void AliPHOSSDigitizer::UseHitsFrom(const char * filename)
+void AliPHOSSDigitizer::Unload() const
 {
-  SetTitle(filename) ; 
-  Init() ; 
+  // Unloads the objects from the folder
+  AliRunLoader* rl = AliRunLoader::GetRunLoader(fEventFolderName) ;
+  AliPHOSLoader * phosLoader = static_cast<AliPHOSLoader*>(rl->GetLoader("PHOSLoader"));
+  
+  phosLoader->UnloadHits() ; 
+  phosLoader->UnloadSDigits() ; 
 }