]> git.uio.no Git - u/mrichter/AliRoot.git/blobdiff - STEER/AliStack.cxx
Adding track references at decay points (M.Ivanov)
[u/mrichter/AliRoot.git] / STEER / AliStack.cxx
index b52b29c0c764b19c211940513a936f787eaea1ec..373e869c76bc0603a7e04dd615d7a1d9068f0e0e 100644 (file)
  * provided "as is" without express or implied warranty.                  *
  **************************************************************************/
 
-/*
-$Log$
-Revision 1.4  2001/05/25 07:25:20  hristov
-AliStack destructor corrected (I.Hrivnacova)
-
-Revision 1.3  2001/05/22 14:33:16  hristov
-Minor changes
-
-Revision 1.2  2001/05/17 05:49:39  fca
-Reset pointers to daughters
-
-Revision 1.1  2001/05/16 14:57:22  alibrary
-New files for folders and Stack
-
-*/
+/* $Id$ */
 
 ///////////////////////////////////////////////////////////////////////////////
 //                                                                           //
@@ -35,75 +21,102 @@ New files for folders and Stack
 //                                                                           //
 ///////////////////////////////////////////////////////////////////////////////
 
-#include <iostream.h>
  
+#include <TFile.h>
+#include <TFolder.h>
 #include <TObjArray.h>
 #include <TParticle.h>
+#include <TParticlePDG.h>
 #include <TTree.h>
-#include <TFile.h>
-#include <TFolder.h>
-#include <TROOT.h>
 
-#include "AliStack.h"
-#include "AliRun.h"
-#include "AliModule.h"
 #include "AliHit.h"
-//#include "ETrackBits.h"
+#include "AliModule.h"
+#include "AliRun.h"
+#include "AliRunLoader.h"
+#include "AliStack.h"
 
 ClassImp(AliStack)
 
-//_____________________________________________________________________________
-AliStack::AliStack(Int_t size)
+//_______________________________________________________________________
+AliStack::AliStack():
+  fParticles(0),
+  fParticleMap(0),
+  fParticleFileMap(0),
+  fParticleBuffer(0),
+  fTreeK(0),
+  fNtrack(0),
+  fNprimary(0),
+  fCurrent(-1),
+  fCurrentPrimary(-1),
+  fHgwmk(0),
+  fLoadPoint(0),
+  fEventFolderName(AliConfig::fgkDefaultEventFolderName)
 {
   //
-  //  Constructor
+  // Default constructor
   //
-  
-  // Create the particles arrays 
-  fParticles      = new TClonesArray("TParticle",1000);
-  fParticleMap    = new TObjArray(size);
-  fParticleBuffer = new TParticle();
-  fNtrack         =  0;
-  fNprimary      =  0;
-  fCurrent        = -1;
-  fCurrentPrimary = -1;
-  fTreeK          =  0;
 }
 
+//_______________________________________________________________________
+AliStack::AliStack(Int_t size, const char* evfoldname):
+  fParticles(new TClonesArray("TParticle",1000)),
+  fParticleMap(new TObjArray(size)),
+  fParticleFileMap(0),
+  fParticleBuffer(0),
+  fTreeK(0),
+  fNtrack(0),
+  fNprimary(0),
+  fCurrent(-1),
+  fCurrentPrimary(-1),
+  fHgwmk(0),
+  fLoadPoint(0),
+  fEventFolderName(evfoldname)
+{
+  //
+  //  Constructor
+  //
+}
 
-//_____________________________________________________________________________
-AliStack::AliStack()
+//_______________________________________________________________________
+AliStack::AliStack(const AliStack& st):
+  TVirtualMCStack(st),
+  fParticles(0),
+  fParticleMap(0),
+  fParticleFileMap(0),
+  fParticleBuffer(0),
+  fTreeK(0),
+  fNtrack(0),
+  fNprimary(0),
+  fCurrent(-1),
+  fCurrentPrimary(-1),
+  fHgwmk(0),
+  fLoadPoint(0)
 {
   //
-  //  Default constructor
+  // Copy constructor
   //
-  
-  // Create the particles arrays 
-  fParticles      = new TClonesArray("TParticle",1000);
-  fParticleMap    = new TObjArray(10000);
-  fParticleBuffer = new TParticle();
-  fNtrack         =  0;
-  fCurrent        = -1;
-  fNprimary      =  0;
-  fCurrentPrimary = -1;
-  fTreeK          =  0;
+  st.Copy(*this);
 }
 
+//_______________________________________________________________________
+void AliStack::Copy(AliStack&) const
+{
+  Fatal("Copy","Not implemented!\n");
+}
 
-//_____________________________________________________________________________
+//_______________________________________________________________________
 AliStack::~AliStack()
 {
   //
   // Destructor
   //
   
-  delete fParticleBuffer;
   if (fParticles) {
     fParticles->Delete();
     delete fParticles;
   }
   delete fParticleMap;
-  delete fTreeK;
+  //PH???  delete fTreeK;
 }
 
 //
@@ -111,9 +124,9 @@ AliStack::~AliStack()
 //
 
 //_____________________________________________________________________________
-void AliStack::SetTrack(Int_t done, Int_t parent, Int_t pdg, Float_t *pmom,
-                     Float_t *vpos, Float_t *polar, Float_t tof,
-                     AliMCProcess mech, Int_t &ntr, Float_t weight)
+void AliStack::PushTrack(Int_t done, Int_t parent, Int_t pdg, Float_t *pmom,
+                        Float_t *vpos, Float_t *polar, Float_t tof,
+                        TMCProcess mech, Int_t &ntr, Float_t weight, Int_t is)
 { 
   //
   // Load a track on the stack
@@ -130,10 +143,6 @@ void AliStack::SetTrack(Int_t done, Int_t parent, Int_t pdg, Float_t *pmom,
   // ntr      on output the number of the track stored
   //
 
-  Float_t mass;
-  const Int_t kfirstdaughter=-1;
-  const Int_t klastdaughter=-1;
-  const Int_t kS=0;
   //  const Float_t tlife=0;
   
   //
@@ -143,52 +152,31 @@ void AliStack::SetTrack(Int_t done, Int_t parent, Int_t pdg, Float_t *pmom,
   // also, this method is potentially dangerous if the mass
   // used in the MC is not the same of the PDG database
   //
-  mass = TDatabasePDG::Instance()->GetParticle(pdg)->Mass();
-  Float_t e=TMath::Sqrt(mass*mass+pmom[0]*pmom[0]+
-                       pmom[1]*pmom[1]+pmom[2]*pmom[2]);
-  
-//  printf("Loading  mass %f ene %f No %d ip %d parent %d done %d pos %f %f %f mom %f %f %f kS %d m \n",
-//  mass,e,fNtrack,pdg,parent,done,vpos[0],vpos[1],vpos[2],pmom[0],pmom[1],pmom[2],kS);
-
-  TClonesArray &particles = *fParticles;
-  TParticle* particle
-   = new(particles[fLoadPoint++]) 
-     TParticle(pdg, kS, parent, -1, kfirstdaughter, klastdaughter,
-               pmom[0], pmom[1], pmom[2], e, vpos[0], vpos[1], vpos[2], tof);
-  particle->SetPolarisation(TVector3(polar[0],polar[1],polar[2]));
-  particle->SetWeight(weight);
-  particle->SetUniqueID(mech);
-  if(!done) particle->SetBit(kDoneBit);
-  
+    TParticlePDG* pmc =  TDatabasePDG::Instance()->GetParticle(pdg);
+    if (pmc) {
+       Float_t mass = TDatabasePDG::Instance()->GetParticle(pdg)->Mass();
+       Float_t e=TMath::Sqrt(mass*mass+pmom[0]*pmom[0]+
+                             pmom[1]*pmom[1]+pmom[2]*pmom[2]);
+       
+//    printf("Loading  mass %f ene %f No %d ip %d parent %d done %d pos %f %f %f mom %f %f %f kS %d m \n",
+//        mass,e,fNtrack,pdg,parent,done,vpos[0],vpos[1],vpos[2],pmom[0],pmom[1],pmom[2],kS);
   
-  //  Declare that the daughter information is valid
-  particle->SetBit(kDaughtersBit);
-  //  Add the particle to the stack
-  fParticleMap->AddAtAndExpand(particle, fNtrack);
 
-  if(parent>=0) {
-    particle = (TParticle*) fParticleMap->At(parent);
-    particle->SetLastDaughter(fNtrack);
-    if(particle->GetFirstDaughter()<0) particle->SetFirstDaughter(fNtrack);
-  } 
-  else { 
-    //
-    // This is a primary track. Set high water mark for this event
-    fHgwmk = fNtrack;
-    //
-    // Set also number if primary tracks
-    fNprimary = fHgwmk+1;
-    fCurrentPrimary++;
-  }
-  ntr = fNtrack++;
+       PushTrack(done, parent, pdg, pmom[0], pmom[1], pmom[2], e,
+                vpos[0], vpos[1], vpos[2], tof, polar[0], polar[1], polar[2],
+                mech, ntr, weight, is);
+    } else {
+       Warning("PushTrack", "Particle type %d not defined in PDG Database !\n", pdg);
+       Warning("PushTrack", "Particle skipped !\n");
+    }
 }
 
 //_____________________________________________________________________________
-void AliStack::SetTrack(Int_t done, Int_t parent, Int_t pdg,
+void AliStack::PushTrack(Int_t done, Int_t parent, Int_t pdg,
                      Double_t px, Double_t py, Double_t pz, Double_t e,
                      Double_t vx, Double_t vy, Double_t vz, Double_t tof,
                      Double_t polx, Double_t poly, Double_t polz,
-                     AliMCProcess mech, Int_t &ntr, Float_t weight)
+                     TMCProcess mech, Int_t &ntr, Double_t weight, Int_t is)
 { 
   //
   // Load a track on the stack
@@ -212,14 +200,13 @@ void AliStack::SetTrack(Int_t done, Int_t parent, Int_t pdg,
   // it is passed by argument e.
 
 
-  const Int_t kS=0;
   const Int_t kFirstDaughter=-1;
   const Int_t kLastDaughter=-1;
   
   TClonesArray &particles = *fParticles;
   TParticle* particle
     = new(particles[fLoadPoint++]) 
-      TParticle(pdg, kS, parent, -1, kFirstDaughter, kLastDaughter,
+      TParticle(pdg, is, parent, -1, kFirstDaughter, kLastDaughter,
                px, py, pz, e, vx, vy, vz, tof);
    
   particle->SetPolarisation(polx, poly, polz);
@@ -234,9 +221,14 @@ void AliStack::SetTrack(Int_t done, Int_t parent, Int_t pdg,
   fParticleMap->AddAtAndExpand(particle, fNtrack);//CHECK!!
 
   if(parent>=0) {
-    particle = (TParticle*) fParticleMap->At(parent);
-    particle->SetLastDaughter(fNtrack);
-    if(particle->GetFirstDaughter()<0) particle->SetFirstDaughter(fNtrack);
+    particle = dynamic_cast<TParticle*>(fParticleMap->At(parent));
+    if (particle) {
+      particle->SetLastDaughter(fNtrack);
+      if(particle->GetFirstDaughter()<0) particle->SetFirstDaughter(fNtrack);
+    }
+    else {
+      printf("Error in AliStack::PushTrack: Parent %d does not exist\n",parent);
+    }
   } 
   else { 
     //
@@ -251,52 +243,41 @@ void AliStack::SetTrack(Int_t done, Int_t parent, Int_t pdg,
 }
 
 //_____________________________________________________________________________
-void AliStack::GetNextTrack(Int_t &mtrack, Int_t &ipart, Float_t *pmom,
-                         Float_t &e, Float_t *vpos, Float_t *polar,
-                         Float_t &tof)
+TParticle*  AliStack::PopNextTrack(Int_t& itrack)
 {
   //
-  // Return next track from stack of particles
+  // Returns next track from stack of particles
   //
   
 
   TParticle* track = GetNextParticle();
-//  cout << "GetNextTrack():" << fCurrent << fNprimary << endl;
-
-  if(track) {
-    mtrack=fCurrent;
-    ipart=track->GetPdgCode();
-    pmom[0]=track->Px();
-    pmom[1]=track->Py(); 
-    pmom[2]=track->Pz();
-    e      =track->Energy();
-    vpos[0]=track->Vx();
-    vpos[1]=track->Vy();
-    vpos[2]=track->Vz();
-    TVector3 pol;
-    track->GetPolarisation(pol);
-    polar[0]=pol.X();
-    polar[1]=pol.Y();
-    polar[2]=pol.Z();
-    tof=track->T();
-    track->SetBit(kDoneBit);
-    //cout << "Filled params" << endl;
-  }
-  else 
-    mtrack=-1;
 
-  //
-  // stop and start timer when we start a primary track
-  Int_t nprimaries = fNprimary;
-  if (fCurrent >= nprimaries) return;
-  if (fCurrent < nprimaries-1) { 
-    fTimer.Stop();
-    track=(TParticle*) fParticleMap->At(fCurrent+1);
-    //    track->SetProcessTime(fTimer.CpuTime());
+  if (track) {
+    itrack = fCurrent;
+    track->SetBit(kDoneBit);
   }
-  fTimer.Start();
+  else
+    itrack = -1;
+  
+  fCurrentTrack = track;
+  return track;
 }
 
+//_____________________________________________________________________________
+TParticle*  AliStack::PopPrimaryForTracking(Int_t i)
+{
+  //
+  // Returns i-th primary particle if it is flagged to be tracked,
+  // 0 otherwise
+  //
+  
+  TParticle* particle = Particle(i);
+  
+  if (!particle->TestBit(kDoneBit))
+    return particle;
+  else
+    return 0;
+}      
 
 //_____________________________________________________________________________
 void AliStack::PurifyKine()
@@ -322,7 +303,11 @@ void AliStack::PurifyKine()
     if(i<=fHgwmk) map[i]=i ; 
     else {
       map[i] = -99;
-      if((part=(TParticle*) particles.At(i))) { 
+      if((part=dynamic_cast<TParticle*>(particles.At(i)))) {
+//
+//        Check of this track should be kept for physics reasons 
+          if (KeepPhysics(part)) KeepTrack(i);
+//
           part->ResetBit(kDaughtersBit);
           part->SetFirstDaughter(-1);
           part->SetLastDaughter(-1);
@@ -332,7 +317,7 @@ void AliStack::PurifyKine()
   // Invalid daughter information for the parent of the first particle
   // generated. This may or may not be the current primary according to
   // whether decays have been recorded among the primaries
-  part = (TParticle *)particles.At(fHgwmk+1);
+  part = dynamic_cast<TParticle*>(particles.At(fHgwmk+1));
   particles.At(part->GetFirstMother())->ResetBit(kDaughtersBit);
   // Second pass, build map between old and new numbering
   for(i=fHgwmk+1; i<fNtrack; i++) {
@@ -342,7 +327,7 @@ void AliStack::PurifyKine()
       map[i]=nkeep;
       // If old and new are different, have to move the pointer
       if(i!=nkeep) particles[nkeep]=particles.At(i);
-      part = (TParticle*) particles.At(nkeep);
+      part = dynamic_cast<TParticle*>(particles.At(nkeep));
       
       // as the parent is always *before*, it must be already
       // in place. This is what we are checking anyway!
@@ -356,10 +341,10 @@ void AliStack::PurifyKine()
   
   // Fix daughters information
   for (i=fHgwmk+1; i<nkeep; i++) {
-    part = (TParticle *)particles.At(i);
+    part = dynamic_cast<TParticle*>(particles.At(i));
     parent = part->GetFirstMother();
     if(parent>=0) {
-      father = (TParticle *)particles.At(parent);
+      father = dynamic_cast<TParticle*>(particles.At(parent));
       if(father->TestBit(kDaughtersBit)) {
       
        if(i<father->GetFirstDaughter()) father->SetFirstDaughter(i);
@@ -377,10 +362,10 @@ void AliStack::PurifyKine()
   TList* hitLists = gAlice->GetHitLists();
   TIter next(hitLists);
   TCollection *hitList;
-  while((hitList = (TCollection*)next())) {
+  while((hitList = dynamic_cast<TCollection*>(next()))) {
     TIter nexthit(hitList);
     AliHit *hit;
-    while((hit = (AliHit*)nexthit())) {
+    while((hit = dynamic_cast<AliHit*>(nexthit()))) {
       hit->SetTrack(map[hit->GetTrack()]);
     }
   }
@@ -389,23 +374,26 @@ void AliStack::PurifyKine()
   // This for detectors which have a special mapping mechanism
   // for hits, such as TPC and TRD
   //
-
+  
    TObjArray* modules = gAlice->Modules();
    TIter nextmod(modules);
    AliModule *detector;
-   while((detector = (AliModule*)nextmod())) {
+   while((detector = dynamic_cast<AliModule*>(nextmod()))) {
      detector->RemapTrackHitIDs(map.GetArray());
+     detector->RemapTrackReferencesIDs(map.GetArray());
    }
-  
+   //
+   gAlice->RemapTrackReferencesIDs(map.GetArray());
+
    // Now the output bit, from fHgwmk to nkeep we write everything and we erase
    if(nkeep>fParticleFileMap.GetSize()) fParticleFileMap.Set(Int_t (nkeep*1.5));
 
    for (i=fHgwmk+1; i<nkeep; ++i) {
-     fParticleBuffer = (TParticle*) particles.At(i);
-     fParticleFileMap[i]=(Int_t) fTreeK->GetEntries();
-     fTreeK->Fill();
-     particles[i]=0;
-   }
+     fParticleBuffer = dynamic_cast<TParticle*>(particles.At(i));
+     fParticleFileMap[i]=static_cast<Int_t>(TreeK()->GetEntries());
+     TreeK()->Fill();
+     particles[i]=fParticleBuffer=0;
+    }
 
    for (i=nkeep; i<fNtrack; ++i) particles[i]=0;
 
@@ -418,25 +406,52 @@ void AliStack::PurifyKine()
    //   delete [] map;
 }
 
+Bool_t AliStack::KeepPhysics(TParticle* part)
+{
+    //
+    // Some particles have to kept on the stack for reasons motivated
+    // by physics analysis. Decision is put here.
+    //
+    Bool_t keep = kFALSE;
+    //
+    // Keep first-generation daughter from primaries with heavy flavor 
+    //
+    Int_t parent = part->GetFirstMother();
+    if (parent >= 0 && parent <= fHgwmk) {
+       TParticle* father = dynamic_cast<TParticle*>(Particles()->At(parent));
+       Int_t kf = father->GetPdgCode();
+       kf = TMath::Abs(kf);
+       Int_t kfl = kf;
+       // meson ?
+       if  (kfl > 10) kfl/=100;
+       // baryon
+       if (kfl > 10) kfl/=10;
+       if (kfl > 10) kfl/=10;
+       if (kfl >= 4) {
+           keep = kTRUE;
+       }
+    }
+    return keep;
+}
+
 //_____________________________________________________________________________
 void AliStack::FinishEvent()
 {
-  //
-  // Write out the kinematics that was not yet filled
-  //
+//
+// Write out the kinematics that was not yet filled
+//
   
-  // Update event header
+// Update event header
 
 
-  if (!fTreeK) {
+  if (!TreeK()) {
 //    Fatal("FinishEvent", "No kinematics tree is defined.");
 //    Don't panic this is a probably a lego run
       return;
-      
   }  
   
   CleanParents();
-  if(fTreeK->GetEntries() ==0) {
+  if(TreeK()->GetEntries() ==0) {
     // set the fParticleFileMap size for the first time
     fParticleFileMap.Set(fHgwmk+1);
   }
@@ -445,28 +460,29 @@ void AliStack::FinishEvent()
   TObject *part;
   for(Int_t i=0; i<fHgwmk+1; ++i) 
     if((part=fParticleMap->At(i))) {
-      fParticleBuffer = (TParticle*) part;
-      fParticleFileMap[i]= (Int_t) fTreeK->GetEntries();
-      fTreeK->Fill();
-      (*fParticleMap)[i]=0;      
+      fParticleBuffer = dynamic_cast<TParticle*>(part);
+      fParticleFileMap[i]= static_cast<Int_t>(TreeK()->GetEntries());
+      TreeK()->Fill();
+      //PH      (*fParticleMap)[i]=fParticleBuffer=0;      
+      fParticleBuffer=0;      
+      fParticleMap->AddAt(0,i);      
       
       // When all primaries were filled no particle!=0
       // should be left => to be removed later.
       if (allFilled) printf("Why != 0 part # %d?\n",i);
     }
-    else {
+    else 
+     {
       // // printf("Why = 0 part # %d?\n",i); => We know.
       // break;
-         // we don't break now in order to be sure there is no
-        // particle !=0 left.
-        // To be removed later and replaced with break.
-      if(!allFilled) allFilled = kTRUE;
-    } 
-  //cout << "Nof particles: " << fNtrack << endl;
-  //Reset();   
+      // we don't break now in order to be sure there is no
+      // particle !=0 left.
+      // To be removed later and replaced with break.
+       if(!allFilled) allFilled = kTRUE;
+     } 
 } 
-
 //_____________________________________________________________________________
+
 void AliStack::FlagTrack(Int_t track)
 {
   //
@@ -477,7 +493,7 @@ void AliStack::FlagTrack(Int_t track)
 
   Int_t curr=track;
   while(1) {
-    particle=(TParticle*)fParticleMap->At(curr);
+    particle=dynamic_cast<TParticle*>(fParticleMap->At(curr));
     
     // If the particle is flagged the three from here upward is saved already
     if(particle->TestBit(kKeepBit)) return;
@@ -506,12 +522,13 @@ void  AliStack::Reset(Int_t size)
   //
   // Resets stack
   //
-
+  
   fNtrack=0;
   fNprimary=0;
   fHgwmk=0;
   fLoadPoint=0;
   fCurrent = -1;
+  fTreeK = 0x0;
   ResetArrays(size);
 }
 
@@ -522,13 +539,19 @@ void  AliStack::ResetArrays(Int_t size)
   // Resets stack arrays
   //
 
-  fParticles->Clear();
-  fParticleMap->Clear();
-  if (size>0) fParticleMap->Expand(size);  
+  if (fParticles) 
+    fParticles->Clear();
+  else
+    fParticles = new TClonesArray("TParticle",1000);
+  if (fParticleMap) {
+    fParticleMap->Clear();
+    if (size>0) fParticleMap->Expand(size);}
+  else
+    fParticleMap = new TObjArray(size);
 }
 
 //_____________________________________________________________________________
-void AliStack::SetHighWaterMark(Int_t nt)
+void AliStack::SetHighWaterMark(Int_t)
 {
   //
   // Set high water mark for last track in event
@@ -548,15 +571,12 @@ TParticle* AliStack::Particle(Int_t i)
   //
   // Return particle with specified ID
   
-  if(!(*fParticleMap)[i]) {
-    Int_t nentries = fParticles->GetEntries();
+  //PH  if(!(*fParticleMap)[i]) {
+  if(!fParticleMap->At(i)) {
+    Int_t nentries = fParticles->GetEntriesFast();
     // algorithmic way of getting entry index
     // (primary particles are filled after secondaries)
-    Int_t entry;
-    if (i<fNprimary)
-       entry = i+fNtrack-fNprimary;
-    else 
-       entry = i-fNprimary;
+    Int_t entry = TreeKEntry(i);
     // check whether algorithmic way and 
     // and the fParticleFileMap[i] give the same;
     // give the fatal error if not
@@ -566,28 +586,71 @@ TParticle* AliStack::Particle(Int_t i)
        entry, fParticleFileMap[i]); 
     } 
       
-    fTreeK->GetEntry(entry);
+    TreeK()->GetEntry(entry);
     new ((*fParticles)[nentries]) TParticle(*fParticleBuffer);
     fParticleMap->AddAt((*fParticles)[nentries],i);
   }
-  return (TParticle *) (*fParticleMap)[i];
+  //PH  return dynamic_cast<TParticle *>((*fParticleMap)[i]);
+  return dynamic_cast<TParticle*>(fParticleMap->At(i));
 }
 
 //_____________________________________________________________________________
-Int_t AliStack::GetPrimary(Int_t id) const
+TParticle* AliStack::ParticleFromTreeK(Int_t id) const
+{
+// 
+// return pointer to TParticle with label id
+//
+  Int_t entry;
+  if ((entry = TreeKEntry(id)) < 0) return 0;
+  if (fTreeK->GetEntry(entry)<=0) return 0;
+  return fParticleBuffer;
+}
+
+//_____________________________________________________________________________
+Int_t AliStack::TreeKEntry(Int_t id) const 
+{
+//
+// return entry number in the TreeK for particle with label id
+// return negative number if label>fNtrack
+//
+  Int_t entry;
+  if (id<fNprimary)
+    entry = id+fNtrack-fNprimary;
+  else 
+    entry = id-fNprimary;
+  return entry;
+}
+
+//_____________________________________________________________________________
+Int_t AliStack::GetCurrentParentTrackNumber() const
+{
+  //
+  // Return number of the parent of the current track
+  //
+  
+  TParticle* current = (TParticle*)fParticleMap->At(fCurrent);
+
+  if (current) 
+    return current->GetFirstMother();
+  else {
+    Warning("GetCurrentParentTrackNumber", "Current track not found in the stack");
+    return -1;
+  }  
+}
+//_____________________________________________________________________________
+Int_t AliStack::GetPrimary(Int_t id)
 {
   //
   // Return number of primary that has generated track
   //
   
   int current, parent;
-  TParticle *part;
   //
   parent=id;
   while (1) {
     current=parent;
-    part = (TParticle *)fParticleMap->At(current);
-    parent=part->GetFirstMother();
+    parent=Particle(current)->GetFirstMother();
     if(parent<0) return current;
   }
 }
@@ -599,7 +662,8 @@ void AliStack::DumpPart (Int_t i) const
   // Dumps particle i in the stack
   //
   
-  ((TParticle*) (*fParticleMap)[i])->Print();
+  //PH  dynamic_cast<TParticle*>((*fParticleMap)[i])->Print();
+  dynamic_cast<TParticle*>(fParticleMap->At(i))->Print();
 }
 
 //_____________________________________________________________________________
@@ -611,8 +675,7 @@ void AliStack::DumpPStack ()
 
   Int_t i;
 
-  printf(
-        "\n\n=======================================================================\n");
+  printf("\n\n=======================================================================\n");
   for (i=0;i<fNtrack;i++) 
     {
       TParticle* particle = Particle(i);
@@ -624,8 +687,7 @@ void AliStack::DumpPStack ()
         Warning("DumpPStack", "No particle with id %d.", i); 
     }   
 
-  printf(
-        "\n=======================================================================\n\n");
+  printf("\n=======================================================================\n\n");
   
   // print  particle file map
   printf("\nParticle file map: \n");
@@ -647,7 +709,7 @@ void AliStack::DumpLoadedStack() const
         "\n\n=======================================================================\n");
   for (Int_t i=0;i<fNtrack;i++) 
     {
-      TParticle* particle = (TParticle*) particles[i];
+      TParticle* particle = dynamic_cast<TParticle*>(particles[i]);
       if (particle) {
         printf("-> %d ",i); particle->Print();
         printf("--------------------------------------------------------------\n");
@@ -677,7 +739,7 @@ void AliStack::CleanParents()
   TParticle *part;
   int i;
   for(i=0; i<fHgwmk+1; i++) {
-    part = (TParticle *)particles.At(i);
+    part = dynamic_cast<TParticle*>(particles.At(i));
     if(part) if(!part->TestBit(kDaughtersBit)) {
       part->SetFirstDaughter(-1);
       part->SetLastDaughter(-1);
@@ -697,11 +759,9 @@ TParticle* AliStack::GetNextParticle()
   // search secondaries
   //for(Int_t i=fNtrack-1; i>=0; i--) {
   for(Int_t i=fNtrack-1; i>fHgwmk; i--) {
-      particle = (TParticle*) fParticleMap->At(i);
+      particle = dynamic_cast<TParticle*>(fParticleMap->At(i));
       if ((particle) && (!particle->TestBit(kDoneBit))) {
          fCurrent=i;    
-         //cout << "GetNextParticle() - secondary " 
-         // << fNtrack << " " << fHgwmk << " " << fCurrent << endl;
          return particle;
       }   
   }    
@@ -709,87 +769,135 @@ TParticle* AliStack::GetNextParticle()
   // take next primary if all secondaries were done
   while (fCurrentPrimary>=0) {
       fCurrent = fCurrentPrimary;    
-      particle = (TParticle*) fParticleMap->At(fCurrentPrimary--);
+      particle = dynamic_cast<TParticle*>(fParticleMap->At(fCurrentPrimary--));
       if ((particle) && (!particle->TestBit(kDoneBit))) {
-         //cout << "GetNextParticle() - primary " 
-         //   << fNtrack << " " << fHgwmk << " " << fCurrent << endl;
          return particle;
       } 
   }
   
   // nothing to be tracked
   fCurrent = -1;
-    //cout << "GetNextParticle() - none  " 
-    //   << fNtrack << " " << fHgwmk << " " << fCurrent << endl;
   return particle;  
 }
+//__________________________________________________________________________________________
 
+TTree* AliStack::TreeK()
+{
+//returns TreeK
+  if (fTreeK)
+   {
+     return fTreeK;
+   }
+  else
+   {
+     AliRunLoader *rl = AliRunLoader::GetRunLoader(fEventFolderName);
+     if (rl == 0x0)
+      {
+        Fatal("TreeK","Can not get RunLoader from event folder named %s",fEventFolderName.Data());
+        return 0x0;//pro forma
+      }
+    fTreeK = rl->TreeK();
+    if ( fTreeK == 0x0)
+     {
+      Error("TreeK","Can not get TreeK from RL. Ev. Folder is %s",fEventFolderName.Data());
+     }
+    else
+     {
+      ConnectTree();
+     }
+   }
+  return fTreeK;//never reached
+}
 //__________________________________________________________________________________________
-void AliStack::MakeTree(Int_t event, const char *file)
+
+void AliStack::ConnectTree()
 {
 //
-//  Make Kine tree and creates branch for writing particles
-//  
-  TBranch *branch=0;
-  // Make Kinematics Tree
-  char hname[30];
-  //    printf("\n MakeTree called %d", event);
-  if (!fTreeK) {
-    sprintf(hname,"TreeK%d",event);
-    fTreeK = new TTree(hname,"Kinematics");
-    //  Create a branch for particles
-    branch = fTreeK->Branch("Particles", "TParticle", &fParticleBuffer, 4000, 1);          
-    fTreeK->Write(0,TObject::kOverwrite);
-  }
+//  Creates branch for writing particles
+//
+  if (AliLoader::fgDebug) Info("ConnectTree","Connecting TreeK");
+  if (fTreeK == 0x0)
+   {
+    if (TreeK() == 0x0)
+     {
+      Fatal("ConnectTree","Parameter is NULL");//we don't like such a jokes
+      return;
+     }
+    return;//in this case TreeK() calls back this method (ConnectTree) 
+           //tree after setting fTreeK, the rest was already executed
+           //it is safe to return now
+   }
+
+ //  Create a branch for particles   
+  
+  if (AliLoader::fgDebug) 
+   Info("ConnectTree","Tree name is %s",fTreeK->GetName());
+   
+  if (fTreeK->GetDirectory())
+   {
+     if (AliLoader::fgDebug)    
+      Info("ConnectTree","and dir is %s",fTreeK->GetDirectory()->GetName());
+   }    
+  else
+    Warning("ConnectTree","DIR IS NOT SET !!!");
+  
+  TBranch *branch=fTreeK->GetBranch(AliRunLoader::fgkKineBranchName);
+  if(branch == 0x0)
+   {
+    branch = fTreeK->Branch(AliRunLoader::fgkKineBranchName, "TParticle", &fParticleBuffer, 4000);
+    if (AliLoader::fgDebug) Info("ConnectTree","Creating Branch in Tree");
+   }  
+  else
+   {
+    if (AliLoader::fgDebug) Info("ConnectTree","Branch Found in Tree");
+    branch->SetAddress(&fParticleBuffer);
+   }
+  if (branch->GetDirectory())
+   {
+    if (AliLoader::fgDebug) 
+      Info("ConnectTree","Branch Dir Name is %s",branch->GetDirectory()->GetName());
+   } 
+  else
+    Warning("ConnectTree","Branch Dir is NOT SET");
 }
+//__________________________________________________________________________________________
 
-//_____________________________________________________________________________
-void AliStack::BeginEvent(Int_t event)
+
+void AliStack::BeginEvent()
 {
 // start a new event
-//
-//
-    fNprimary = 0;
-    fNtrack   = 0;
-    
-    char hname[30];
-    if(fTreeK) {
-       fTreeK->Reset();
-       sprintf(hname,"TreeK%d",event);
-       fTreeK->SetName(hname);
-    }
+ Reset();
 }
 
 //_____________________________________________________________________________
 void AliStack::FinishRun()
 {
 // Clean TreeK information
-    if (fTreeK) {
-       delete fTreeK; fTreeK = 0;
-    }
 }
-
 //_____________________________________________________________________________
-void AliStack::GetEvent(Int_t event)
+
+Bool_t AliStack::GetEvent()
 {
 //
 // Get new event from TreeK
-    // Reset/Create the particle stack
-    if (fTreeK) delete fTreeK;
-    
-    // Get Kine Tree from file
-    char treeName[20];
-    sprintf(treeName,"TreeK%d",event);
-    fTreeK = (TTree*)gDirectory->Get(treeName);
 
-    if (fTreeK) fTreeK->SetBranchAddress("Particles", &fParticleBuffer);
+    // Reset/Create the particle stack
+    fTreeK = 0x0;
 
-  else    
-      Error("GetEvent","cannot find Kine Tree for event:%d\n",event);
-//
-//    printf("\n primaries %d", fNprimary);
-//    printf("\n tracks    %d", fNtrack);    
-//
-    Int_t size = (Int_t)fTreeK->GetEntries();
+    if (TreeK() == 0x0) //forces connecting
+     {
+      Error("GetEvent","cannot find Kine Tree for current event\n");
+      return kFALSE;
+     }
+      
+    Int_t size = (Int_t)TreeK()->GetEntries();
     ResetArrays(size);
+    return kTRUE;
+}
+//_____________________________________________________________________________
+
+void AliStack::SetEventFolderName(const char* foldname)
+{
+ //Sets event folder name
+ fEventFolderName = foldname;
 }