/[PAMELA software]/PamelaLevel2/src/PamLevel2.cpp

Diff of /PamelaLevel2/src/PamLevel2.cpp

Parent Directory | Revision Log | View Patch Patch

-revision 1.16 by pam-fi,
Tue Jan 16 13:19:58 2007 UTC
+revision 1.43 by pam-fi,
Fri Aug 17 16:57:12 2007 UTC
 Line 85 
 void PamTrack::Delete(){
  //
  //--------------------------------------
  /**
-  * Constructor
+  * Default Constructor
   */
  PamLevel2::PamLevel2(){
+   Initialize();
+ };
+ /**
+  * Constructor with given dir, list and detectors
+  */
+ PamLevel2::PamLevel2(TString ddir,TString list,TString detlist){
+   Initialize();
+   GetPamTree(GetListOfLevel2Files(ddir,list),detlist);
+   GetRunTree(GetListOfLevel2Files(ddir,list));
+ };
+ /**
+  * Constructor with given dir and list
+  */
+ PamLevel2::PamLevel2(TString ddir,TString list){
+   Initialize();
+   GetPamTree(GetListOfLevel2Files(ddir,list),"");
+   GetRunTree(GetListOfLevel2Files(ddir,list));
+ };
+ void PamLevel2::Initialize(){
- //     trk2_obj  = TrkLevel2::GetTrkLevel2();
+     h0_obj    = 0;
- //     trk1_obj  = TrkLevel1::GetTrkLevel1();
+     trk0_obj  = 0;
- //     trkh_obj  = TrkHough::GetTrkHough();
+     calo0_obj  = 0;
- //     calo1_obj = CaloLevel1::GetCaloLevel1();
- //     calo2_obj = CaloLevel2::GetCaloLevel2();
- //     tof_obj   = ToFLevel2::GetToFLevel2();
- //     trig_obj  = TrigLevel2::GetTrigLevel2();
- //     s4_obj    = S4Level2::GetS4Level2();
- //     nd_obj    = NDLevel2::GetNDLevel2();
- //     ac_obj    = AcLevel2::GetAcLevel2();
- //     orb_obj   = OrbitalInfo::GetOrbitalInfo();
      trk2_obj  = 0;
      trk1_obj  = 0;
      trkh_obj  = 0;
-Line 114 
 PamLevel2::PamLevel2(){
+Line 130 
 PamLevel2::PamLevel2(){
      run_obj   = 0;//new GL_RUN();
      soft_obj   = 0;// Emiliano
+     irun = -1LL;
+     runfirstentry = 0LL;
+     runlastentry = 0LL;
+     l0_file = NULL;
+     l0_tree = NULL;
+     iroot   = -1;
+     dbc     = 0;
+     prevshift = 0;
+     run_tree = NULL;
+     run_tree_clone = NULL;
+     sel_tree = NULL;
+     sel_tree_clone = NULL;
+     irunentry = -1LL;
+     pam_tree = NULL;
+     for(Int_t i=0; i<NCLONES; i++ )pam_tree_clone[i]=NULL;
+     host = "mysql://localhost/pamelaprod";
+     user = "anonymous";
+     psw = "";
+     const char *pamdbhost=gSystem->Getenv("PAM_DBHOST");
+     const char *pamdbuser=gSystem->Getenv("PAM_DBUSER");
+     const char *pamdbpsw=gSystem->Getenv("PAM_DBPSW");
+     if ( !pamdbhost ) pamdbhost = "";
+     if ( !pamdbuser ) pamdbuser = "";
+     if ( !pamdbpsw ) pamdbpsw = "";
+     if ( strcmp(pamdbhost,"") ) host = pamdbhost;
+     if ( strcmp(pamdbuser,"") ) user = pamdbuser;
+     if ( strcmp(pamdbpsw,"") ) psw = pamdbpsw;
-     for(Int_t i=0; i<8; i++ )tree_clone[i]=NULL;
  //    sorted_tracks = 0;//new TRefArray();
+     CAL0 = false;
      CAL1 = true;
      CAL2 = true;
      TRK2 = true;
      TRK1 = false;
      TRKh = false;
-     TRG = true;
+     TRKh = false;
-     TOF = true;
+     TRG  = true;
-     S4  = true;
+     TOF  = true;
-     ND  = true;
+     TOF0 = false;
-     AC  = true;
+     S4   = true;
-     ORB = true;
+     ND   = true;
+     AC   = true;
+     ORB  = true;
-     RUN = true;
+     RUN  = true;
+     SELLI = -1;
+     ISGP = false;
      tsorted=0;
      timage=0;
+     howtosort = "+CAL+TOF";
+     //howtosort = "+TOF";
+     sortthr = 100.;
  };
  /**
-Line 147 
 void PamLevel2::Delete(){
+Line 205 
 void PamLevel2::Delete(){
      if(soft_obj)delete soft_obj; //Emiliano
  //    cout << "void PamLevel2::Clear()"<<endl;
+     if(h0_obj)   delete h0_obj;
+     if(trk0_obj) delete trk0_obj;
+     if(calo0_obj) delete calo0_obj;
      if(trk1_obj) delete trk1_obj;
      if(trk2_obj) delete trk2_obj;
      if(trkh_obj) delete trkh_obj;
-Line 167 
 void PamLevel2::Delete(){
+Line 228 
 void PamLevel2::Delete(){
          timage->Delete();
          delete timage;
      }
+     if(dbc){
+         dbc->Close();
+         delete dbc;
+     }
+     if(l0_file)l0_file->Close();
+     //    if(pam_tree)pam_tree->Delete();;
+   if ( pam_tree ){
+     //
+     // we have first to find which chains we have to delete, then delete the main chain and only after delete the friend chains. Any other order causes a segfault...
+     //
+     TList *temp = pam_tree->GetListOfFriends();
+     TList *contents  = new TList; // create chain friend list
+     contents->SetOwner();
+     TIter next(temp);
+     TChain *questo = 0;
+     while ( (questo = (TChain*) next()) ){
+       TString name =  questo->GetName();
+       contents->Add((TChain*)gROOT->FindObject(name.Data()));// add object to the list
+     };
+     //
+     // deleting the main chain
+     //
+     pam_tree->Delete();
+     //
+     // deleting the friends...
+     //
+     TIter next2(contents);
+     TChain *questa = 0;
+     while ( questa = (TChain*)next2() ){
+       TString name =  questa->GetName();
+       questa->Delete();
+       questa=NULL;
+     };
+     //
+   };
+   pam_tree = NULL;
+     if(run_tree)run_tree->Delete();;
+     if(sel_tree)sel_tree->Delete();;
+     for(Int_t i=0; i<NCLONES; i++ )if(pam_tree_clone[i])pam_tree_clone[i]->Delete();;
+     if(run_tree_clone)run_tree_clone->Delete();;
+     if(sel_tree_clone)sel_tree_clone->Delete();;
  };
  /**
-Line 177 
 void PamLevel2::Clear(){
+Line 285 
 void PamLevel2::Clear(){
  //    cout << "void PamLevel2::Clear()"<<endl;
  //
+ // This method is called once for every entry but RunInfo and SoftInfo do not change until the next run so we cannot clear them here unless we don't
+ // want to load them for each event even if they are the same...
+ //
  //    if(run_obj)delete run_obj;
-     if(run_obj) run_obj->Clear();  // Emiliano: Do not deallocate run_obj here, it will give segmentation fault! call clear instead
+ //    if(run_obj) run_obj->Clear();  // Emiliano: Do not deallocate run_obj here, it will give segmentation fault! call clear instead
-     if(soft_obj) soft_obj->Clear();
+ //    if(soft_obj) soft_obj->Clear();
+     if(h0_obj)   h0_obj->Clear();
+ //    if(trk0_obj) trk0_obj->Clear();
      if(trk1_obj) trk1_obj->Clear();
      if(trk2_obj) trk2_obj->Clear();
      if(trkh_obj) trkh_obj->Clear();
+     if(calo0_obj) calo0_obj->Clear();
      if(calo1_obj)calo1_obj->Clear();
      if(calo2_obj)calo2_obj->Clear();
      if(tof_obj)  tof_obj->Clear();
-Line 202 
 void PamLevel2::Clear(){
+Line 316 
 void PamLevel2::Clear(){
      if(timage){
          timage->Delete();
      }
  };
+ void PamLevel2::Reset(){
+   //
+   // First of all clear everything
+   //
+   Clear();
+   //
+   // close and reset chains and pointers
+   //
+   if ( pam_tree ){
+     //
+     // we have first to find which chains we have to delete, then delete the main chain and only after delete the friend chains. Any other order causes a segfault...
+     //
+     TList *temp = pam_tree->GetListOfFriends();
+     TList *contents  = new TList; // create chain friend list
+     contents->SetOwner();
+     TIter next(temp);
+     TChain *questo = 0;
+     while ( (questo = (TChain*) next()) ){
+       TString name =  questo->GetName();
+       contents->Add((TChain*)gROOT->FindObject(name.Data()));// add object to the list
+     };
+     //
+     // deleting the main chain
+     //
+     pam_tree->Delete();
+     //
+     // deleting the friends...
+     //
+     TIter next2(contents);
+     TChain *questa = 0;
+     while ( questa = (TChain*)next2() ){
+       TString name =  questa->GetName();
+       questa->Delete();
+       questa=NULL;
+     };
+     //
+   };
+   pam_tree = NULL;
+   //
+   if(run_tree)run_tree->Delete();;
+   run_tree = NULL;
+   if(sel_tree)sel_tree->Delete();;
+   sel_tree = NULL;
+   //
+   // Close file
+   //
+   if(l0_file)l0_file->Close("R");
+   l0_file = NULL;
+   //
+   h0_obj    = 0;
+   trk0_obj  = 0;
+   calo0_obj  = 0;
+   //
+   trk2_obj  = 0;
+   trk1_obj  = 0;
+   trkh_obj  = 0;
+   calo1_obj = 0;
+   calo2_obj = 0;
+   tof_obj   = 0;
+   trig_obj  = 0;
+   s4_obj    = 0;
+   nd_obj    = 0;
+   ac_obj    = 0;
+   orb_obj   = 0;
+   //
+   // Reset run pointers
+   //
+   run_obj   = 0;//new GL_RUN();
+   soft_obj   = 0;// Emiliano
+   irun = -1;
+   runfirstentry = 0ULL;
+   runlastentry = 0ULL;
+   //
+ };
+ Bool_t PamLevel2::IsGood(){
+   Bool_t goodev=true;
+   //  if(trk2_obj && trk2_obj->UnpackError() != 0 ) goodev = false;
+   if(calo2_obj && calo2_obj->good != 1) goodev = false;
+   if(tof_obj && tof_obj->unpackError != 0) goodev = false;
+   if(trig_obj && trig_obj->unpackError != 0) goodev = false;
+   if(s4_obj && s4_obj->unpackError != 0) goodev = false;
+   if(nd_obj && nd_obj->unpackError != 0) goodev = false;
+   if(ac_obj && ac_obj->unpackError != 255) goodev = false;
+     //  if(orb_obj)
+   return goodev;
+ };
  //--------------------------------------
  //
-Line 399 
 PamTrack* PamLevel2::GetStoredTrack(Int_
+Line 599 
 PamTrack* PamLevel2::GetStoredTrack(Int_
  }
  //--------------------------------------
  //
+ /**
+  * Sort physical (tracker) tracks and stores them in the TRefArray (of TrkTrack objects) which pointer is  PamLevel2::sorted_tracks. Left here as backward compatibility method.
+  **/
+ void PamLevel2::SortTracks(TString how){
+   printf(" WARNING! obsolete, use SortTracks() and SetSortingMethod(TString) instead! \n Setting sorting method to %s \n",how.Data());
+   howtosort = how;
+   SortTracks();
+ };
  //
  //--------------------------------------
  /**
-Line 412 
 PamTrack* PamLevel2::GetStoredTrack(Int_
+Line 622 
 PamTrack* PamLevel2::GetStoredTrack(Int_
   *
   * The total number of physical tracks is always given by GetNTracks() and the it-th physical track can be retrieved by means of the methods GetTrack(int it) and GetTrack(int it, TString how).
   */
- void PamLevel2::SortTracks(TString how){
+ void PamLevel2::SortTracks(){
+   TString how = howtosort;
- //    cout <<" PamLevel2::SortTracks(TString how) "<<endl;
+   //    cout <<" PamLevel2::SortTracks(TString how) "<<endl;
-     if( !trk2_obj ){
+   if( !trk2_obj ){
-         cout << "void PamLevel2::SortTracks(TString how):  TrkLevel2 not loaded !!!";
+     cout << "void PamLevel2::SortTracks():  TrkLevel2 not loaded !!!";
-         return;
+     return;
-     };
+   };
- //    cout << "call SortTracs() "<<endl;
+   //    cout << "call SortTracs() "<<endl;
    //Save current Object count
-     Int_t ObjectNumber = TProcessID::GetObjectCount();
+   Int_t ObjectNumber = TProcessID::GetObjectCount();
- //    cout << "ObjectNumber  "<<ObjectNumber <<endl;
+   //    cout << "ObjectNumber  "<<ObjectNumber <<endl;
- //     if(!sorted_tracks)sorted_tracks = new TRefArray();
+   //     if(!sorted_tracks)sorted_tracks = new TRefArray();
- //     sorted_tracks->Clear();
+   //     sorted_tracks->Clear();
- //    sorted_tracks.Clear();
+   //    sorted_tracks.Clear();
+   if(!tsorted)tsorted = new TClonesArray("PamTrack",trk2_obj->GetNTracks());
+   tsorted->Delete();
+   TClonesArray &ttsorted = *tsorted;
+   if(!timage)timage = new TClonesArray("PamTrack",trk2_obj->GetNTracks());
+   timage->Delete();
+   TClonesArray &ttimage = *timage;
-     if(!tsorted)tsorted = new TClonesArray("PamTrack",trk2_obj->GetNTracks());
-     tsorted->Delete();
-     TClonesArray &ttsorted = *tsorted;
-     if(!timage)timage = new TClonesArray("PamTrack",trk2_obj->GetNTracks());
-     timage->Delete();
-     TClonesArray &ttimage = *timage;
-     // loop over the tracks sorted by the tracker
+   //--------------------------------------------------
-     Bool_t use_TRK = how.Contains("TRK", TString::kIgnoreCase);
+   // retrieve sorting method
-     Bool_t use_CAL = how.Contains("CAL", TString::kIgnoreCase);
+   //--------------------------------------------------
-     Bool_t use_TOF = how.Contains("TOF", TString::kIgnoreCase);
+   Bool_t use_TRK = how.Contains("TRK", TString::kIgnoreCase);
+   Bool_t use_CAL = how.Contains("CAL", TString::kIgnoreCase);
-     if( !CAL2 &&  use_CAL) use_CAL = false;
+   Bool_t use_TOF = how.Contains("TOF", TString::kIgnoreCase);
-     if( !TOF &&  use_TOF) use_TOF = false;
+   if( !CAL2 &&  use_CAL) use_CAL = false;
-     if( !TRK2 ){
+   if( !TOF &&  use_TOF) use_TOF = false;
- //      cout << "SortTracks() : without tracker does not work!!! (not yet)" << endl;
-         return;
+   if( !TRK2 ){
-     };
+     //  cout << "SortTracks() : without tracker does not work!!! (not yet)" << endl;
+     return;
-     //   cout << "use_CAL "<<use_CAL<<" use_TOF "<<use_TOF<<" use_TRK "<<use_TRK <<endl;
+   };
-     for(Int_t i=0; i < trk2_obj->TrkLevel2::GetNTracks(); i++){
+   //   cout << "use_CAL "<<use_CAL<<" use_TOF "<<use_TOF<<" use_TRK "<<use_TRK <<endl;
-         TrkTrack   *ts = 0;
-         CaloTrkVar *cs = 0;
+   //--------------------------------------------------
-         ToFTrkVar  *os = 0;
+   // loop over "physical" tracks sorted by the tracker
+   //--------------------------------------------------
-         // get tracker tracks
+   for(Int_t i=0; i < trk2_obj->TrkLevel2::GetNTracks(); i++){
-         TrkTrack   *tp = trk2_obj->TrkLevel2::GetTrack(i);                    //tracker
-         CaloTrkVar *cp = GetCaloStoredTrack(tp->GetSeqNo());
+     TrkTrack   *ts = 0;
-         ToFTrkVar  *op = GetToFStoredTrack(tp->GetSeqNo());
+     CaloTrkVar *cs = 0;
+     ToFTrkVar  *os = 0;
-         TrkTrack   *ti = 0;              //tracker (image)
-         CaloTrkVar *ci = 0;
+     // get tracker tracks
-         ToFTrkVar  *oi = 0;
+     TrkTrack   *tp = trk2_obj->TrkLevel2::GetTrack(i); //tracker
- //      cout << "trk track n. "<<i << " "<<hex<< tp <<dec<< endl;
+     CaloTrkVar *cp = GetCaloStoredTrack(tp->GetSeqNo());
-         // if track has an image, check image selection
+     ToFTrkVar  *op = GetToFStoredTrack(tp->GetSeqNo());
-         if(tp->HasImage()){
+     TrkTrack   *ti = 0; //tracker (image)
+     CaloTrkVar *ci = 0;
+     ToFTrkVar  *oi = 0;
+     //  cout << "trk track n. "<<i << " "<<hex<< tp <<dec<< endl;
+     // if track has an image, check image selection
+     if(tp->HasImage()){
-             ti = trk2_obj->TrkLevel2::GetTrackImage(i);              //tracker (image)
+       ti = trk2_obj->TrkLevel2::GetTrackImage(i);              //tracker (image)
-             ci = GetCaloStoredTrack(ti->GetSeqNo());
+       ci = GetCaloStoredTrack(ti->GetSeqNo());
-             oi = GetToFStoredTrack(ti->GetSeqNo());
+       oi = GetToFStoredTrack(ti->GetSeqNo());
- //          cout << "its image "<<i << " "<<hex<< ti <<dec<< endl;
+       //            cout << "its image "<<i << " "<<hex<< ti <<dec<< endl;
-             //assign starting scores
+       //assign starting scores
-             Int_t tp_score = 0;  //main track sorted by the tracker
+       Int_t tp_score = 0;  //main track sorted by the tracker
-             Int_t ti_score = 0;  //image track
+       Int_t ti_score = 0;  //image track
-             // ------------------------
+       // -----------------------------------------------------------------------------------------
-             // calorimeter check
+       // calorimeter check
-             // ------------------------
+       // -----------------------------------------------------------------------------------------
-             // check the Y spatial residual on the first calorimeter plane
+       // check the Y spatial residual on the first calorimeter plane
-             // (cut on calorimeter variables from Emiliano)
+       // (cut on calorimeter variables from Emiliano)
-             if( use_CAL && !calo2_obj ){
+       if( use_CAL && !calo2_obj ){
-                 cout << "void PamLevel2::SortTracks(TString how): how= "<<how<<" but CaloLevel2 not loaded !!!";
+         cout << "void PamLevel2::SortTracks(): howtosort= "<<how<<" but CaloLevel2 not loaded !!!";
-                 return;
+         return;
-             };
+       };
-             if(
+       if(
-                 use_CAL            &&
+          use_CAL            &&
-                 calo2_obj->npcfit[1] > 15     &&   //no. of fit planes on Y view
+ //       calo2_obj->npcfit[1] > 5     &&   //no. of fit planes on Y view
-                 calo2_obj->varcfit[1] < 1000. &&  //fit variance on Y view
+ //       calo2_obj->varcfit[1] < 1000. &&  //fit variance on Y view
-                 true){
+          cp && ci &&
+          true){
-                 Float_t resy_p = cp->tbar[0][1] - calo2_obj->cbar[0][1]; if(resy_p < 0)resy_p= - resy_p;
+ //      Float_t resy_p = cp->tbar[0][1] - calo2_obj->cbar[0][1]; if(resy_p < 0)resy_p= - resy_p;
-                 Float_t resy_i = ci->tbar[0][1] - calo2_obj->cbar[0][1]; if(resy_i < 0)resy_i= - resy_i;
+ //      Float_t resy_i = ci->tbar[0][1] - calo2_obj->cbar[0][1]; if(resy_i < 0)resy_i= - resy_i;
-                 if(resy_p <= resy_i) tp_score++;
+ //      if(resy_p <= resy_i) tp_score++;
-                 else                 ti_score++;
+ //      else                 ti_score++;
- //              cout << "CALO "<<tp_score<<ti_score<<endl;
+           if( cp->npresh > ci->npresh) tp_score++;
+           if( cp->npresh < ci->npresh) ti_score++;
+           else ;//niente
+         //      cout << "CALO "<<tp_score<<ti_score<<endl;
+       };
+       // -----------------------------------------------------------------------------------------
+       // TOF check
+       // -----------------------------------------------------------------------------------------
+       // check the number of hit pmts along the track
+       // on S12 S21 and S32, where paddles are parallel to Y axis
+       if( use_TOF && !tof_obj ){
+         cout << "void PamLevel2::SortTracks(): howtosort= "<<how<<" but ToFLevel2 not loaded !!!";
+         return;
+       };
+       if( use_TOF && op && oi ){
+         //
+         Float_t sen = 0.;
+         for (Int_t ih=0; ih < op->npmtadc; ih++){
+           Int_t pl = tof_obj->GetPlaneIndex( (op->pmtadc).At(ih) );
+           if ( pl == 2 || pl == 3 || pl == 4 || pl == 5 ) sen += (op->dedx).At(ih);
+         };
+         for (Int_t ih=0; ih < oi->npmtadc; ih++){
+           Int_t pl = tof_obj->GetPlaneIndex( (oi->pmtadc).At(ih) );
+           if ( pl == 2 || pl == 3 || pl == 4 || pl == 5 ) sen += (oi->dedx).At(ih);
+         };
+         //
+         if (  sen >= sortthr ){
+           //printf(" IS A NUCLEUS! en = %f \n",sen);
+           //
+           // is a nucleus use a different algorithm
+           //
+           Int_t nz = 6; Float_t zin[6];                                          // << define TOF z-coordinates
+           for(Int_t ip=0; ip<nz; ip++)
+             zin[ip] = tof_obj->ToFLevel2::GetZTOF(tof_obj->ToFLevel2::GetToFPlaneID(ip));     // << read ToF plane z-coordinates
+           Trajectory *tr = new Trajectory(nz,zin);
+           //
+           Int_t nphit_p =0;
+           Int_t nphit_i =0;
+           Float_t enhit_p = 0.;
+           Float_t enhit_i = 0.;
+           //
+           for (Int_t ih=0; ih < op->npmtadc; ih++){
+             Int_t pl = tof_obj->GetPlaneIndex( (op->pmtadc).At(ih) );
+             if(pl == 1 || pl == 2 || pl == 5){
+               nphit_p++;
+               enhit_p += (op->dedx).At(ih);
+             };
+           };
+           //
+           tp->DoTrack2(tr);
+           //
+           if ( fabs(tr->y[0]-oi->ytofpos[0]) < 2. ){
+             for (Int_t ih=0; ih < op->npmtadc; ih++){
+               Int_t pl = tof_obj->GetPlaneIndex( (op->pmtadc).At(ih) );
+               if(pl == 0){
+                 nphit_p++;
+                 enhit_p += (op->dedx).At(ih);
+               };
+             };
+           };
+           if ( fabs(tr->y[3]-oi->ytofpos[1]) < 2. ){
+             for (Int_t ih=0; ih < op->npmtadc; ih++){
+               Int_t pl = tof_obj->GetPlaneIndex( (op->pmtadc).At(ih) );
+               if(pl == 3){
+                 nphit_p++;
+                 enhit_p += (op->dedx).At(ih);
+               };
+             };
+           };
+           if ( fabs(tr->y[4]-oi->ytofpos[2]) < 2. ){
+             for (Int_t ih=0; ih < op->npmtadc; ih++){
+               Int_t pl = tof_obj->GetPlaneIndex( (op->pmtadc).At(ih) );
+               if(pl == 4){
+                 nphit_p++;
+                 enhit_p += (op->dedx).At(ih);
+               };
+             };
+           };
+           for (Int_t ih=0; ih < oi->npmtadc; ih++){
+             Int_t pl = tof_obj->GetPlaneIndex( (oi->pmtadc).At(ih) );
+             if(pl == 1 || pl == 2 || pl == 5){
+               nphit_i++;
+               enhit_i += (op->dedx).At(ih);
+             };
+           };
+           //
+           ti->DoTrack2(tr);
+           //
+           if ( fabs(tr->y[0]-oi->ytofpos[0]) < 2. ){
+             for (Int_t ih=0; ih < oi->npmtadc; ih++){
+               Int_t pl = tof_obj->GetPlaneIndex( (oi->pmtadc).At(ih) );
+               if(pl == 0){
+                 nphit_i++;
+                 enhit_i += (op->dedx).At(ih);
+               };
              };
-             // ------------------------
+           };
-             // TOF check
+           if ( fabs(tr->y[3]-oi->ytofpos[1]) < 2. ){
-             // ------------------------
+             for (Int_t ih=0; ih < oi->npmtadc; ih++){
-             // check the number of hit pmts along the track
+               Int_t pl = tof_obj->GetPlaneIndex( (oi->pmtadc).At(ih) );
-             // on S12 S21 and S32, where paddles are parallel to Y axis
+               if(pl == 3){
-             if( use_TOF && !tof_obj ){
+                 nphit_i++;
-                 cout << "void PamLevel2::SortTracks(TString how): how= "<<how<<" but ToFLevel2 not loaded !!!";
+                 enhit_i += (op->dedx).At(ih);
-                 return;
+               };
              };
-             if( use_TOF ){
+           };
+           if ( fabs(tr->y[4]-oi->ytofpos[2]) < 2. ){
+             for (Int_t ih=0; ih < oi->npmtadc; ih++){
+               Int_t pl = tof_obj->GetPlaneIndex( (oi->pmtadc).At(ih) );
+               if(pl == 4){
+                 nphit_i++;
+                 enhit_i += (op->dedx).At(ih);
+               };
+             };
+           };
+           if(
+              use_TOF            &&
+              (nphit_p+nphit_i) !=0 &&
+              true){
+             //      printf(" seqno %i nphit_p %i nphit_i %i enhit_p %f enhit_i %f \n",trk2_obj->TrkLevel2::GetSeqNo(i),nphit_p,nphit_i,enhit_p,enhit_i);
+             //      printf(" score p %i score i %i \n",tp_score,ti_score);
+             //            if( enhit_p > enhit_i ) tp_score++;
+             //            if( nphit_p >= nphit_i && enhit_p > enhit_i ) tp_score++;
+             if ( nphit_p > nphit_i ) tp_score++;
+             if ( nphit_p < nphit_i ) ti_score++;
+             if ( nphit_p == nphit_i ){
+               if ( enhit_p > enhit_i ) tp_score++;
+               else ti_score++;
+             };
+             //      printf(" dopo score p %i score i %i \n",tp_score,ti_score);
+           };
+           delete tr;
+           //
+         } else {
+           //
+           // NOT a NUCLEUS
+           //
+           //printf(" NOT a NUCLEUS! en = %f \n",sen);
+           Int_t nphit_p =0;
+           Int_t nphit_i =0;
-                 Int_t nphit_p =0;
-                 Int_t nphit_i =0;
+           /*                            cout << "track: npmtadc "<< op->npmtadc << endl;
+             cout << "track: npmttdc "<< op->npmttdc << endl;
+             cout << "image: npmtadc "<< oi->npmtadc << endl;
+             cout << "image: npmttdc "<< oi->npmttdc << endl;*/
- /*                              cout << "track: npmtadc "<< op->npmtadc << endl;
+ //        for (Int_t ih=0; ih < op->npmtadc; ih++){
-                                 cout << "track: npmttdc "<< op->npmttdc << endl;
+ //          Int_t pl = tof_obj->GetPlaneIndex( (op->pmtadc).At(ih) );
-                                 cout << "image: npmtadc "<< oi->npmtadc << endl;
+ //          if(pl == 1 || pl == 2 || pl == 5)nphit_p++;
-                                 cout << "image: npmttdc "<< oi->npmttdc << endl;*/
+ //        };
-                 for (Int_t ih=0; ih < op->npmtadc; ih++){
+ //        for (Int_t ih=0; ih < oi->npmtadc; ih++){
-                     Int_t pl = tof_obj->GetPlaneIndex( (op->pmtadc).At(ih) );
+ //          Int_t pl = tof_obj->GetPlaneIndex( (oi->pmtadc).At(ih) );
-                     if(pl == 1 || pl == 2 || pl == 5)nphit_p++;
+ //          if(pl == 1 || pl == 2 || pl == 5)nphit_i++;
-                 };
+ //        };
+           // --- modified to count tdc signals (more efficient?)
+           // --- and to implement check on tdcflag
+           for (Int_t ih=0; ih < op->npmttdc; ih++){
+             Int_t pl = tof_obj->GetPlaneIndex( (op->pmttdc).At(ih) );
+ //          if( (op->tdcflag).At(ih)==0 && (pl == 1 || pl == 2 || pl == 5) )nphit_p++;
+             if( (op->tdcflag).At(ih)==0 )nphit_p++;
+           };
-                 for (Int_t ih=0; ih < oi->npmtadc; ih++){
+           for (Int_t ih=0; ih < oi->npmttdc; ih++){
-                     Int_t pl = tof_obj->GetPlaneIndex( (oi->pmtadc).At(ih) );
+             Int_t pl = tof_obj->GetPlaneIndex( (oi->pmttdc).At(ih) );
-                     if(pl == 1 || pl == 2 || pl == 5)nphit_i++;
+ //          if( (oi->tdcflag).At(ih)==0 && (pl == 1 || pl == 2 || pl == 5) )nphit_i++;
-                 };
+             if( (oi->tdcflag).At(ih)==0 )nphit_i++;
+           };
-                 if(
+           if(
-                     use_TOF            &&
+              (nphit_p+nphit_i) !=0 &&
-                     (nphit_p+nphit_i) !=0 &&
+              true){
-                     true){
-                     if( nphit_p >= nphit_i) tp_score++;
+             if     ( nphit_p > nphit_i) tp_score++;
-                     else ti_score++;
+             else if( nphit_p < nphit_i) ti_score++;
-                 };
+             else ;//niente
- //              cout << "TOF "<<tp_score<<ti_score<<endl;
+           };
-             };
+         };
-             if(tp_score == ti_score) use_TRK = true;
+         //      cout << "TOF "<<tp_score<<ti_score<<endl;
-             // ------------------------
+       };
-             // tracker check
-             // ------------------------
-             // chi**2 difference is not always large enough to distinguish among
+ //      if(tp_score == ti_score) use_TRK = true;
-             // the real track and its image.
-             // Tracker check will be applied always when calorimeter and tof information is ambiguous.
-             if(use_TRK){
+       // -----------------------------------------------------------------------------------------
-                 if(      tp->chi2 > 0 && tp->chi2 < ti->chi2 ) tp_score++ ;
+       // tracker check
-                 else if( ti->chi2 > 0 && ti->chi2 < tp->chi2 ) ti_score++ ;
+       // -----------------------------------------------------------------------------------------
- //              cout << "TRK "<<tp_score<<ti_score<<endl;
+       // chi**2 difference is not always large enough to distinguish among
-             };
+       // the real track and its image.
+       // Tracker check will be applied always when calorimeter and tof information is ambiguous.
+       // *** MODIFIED ON AUGUST 2007 ***
+       if(use_TRK){
+ //      if(      tp->chi2 > 0 && tp->chi2 < ti->chi2 ) tp_score++ ;
+ //      else if( ti->chi2 > 0 && ti->chi2 < tp->chi2 ) ti_score++ ;
+           // CHECK 1 : number of points along X
+           if ( tp->GetNX() >= ti->GetNX() )tp_score++ ;
+           if ( tp->GetNX() <= ti->GetNX() )ti_score++ ;
+           // CHECK 2 : number of points along Y
+           if ( tp->GetNY() >= ti->GetNY() )tp_score++ ;
+           if ( tp->GetNY() <= ti->GetNY() )ti_score++ ;
+           // CHECK 3 : chi**2 along X
+ //        if(      tp->GetChi2X() > 0 && (tp->GetChi2X() < ti->GetChi2X() || ti->GetChi2X() <=0) ) tp_score++ ;
+ //        if(      ti->GetChi2X() > 0 && (ti->GetChi2X() < tp->GetChi2X() || tp->GetChi2X() <=0) ) ti_score++ ;
+           // CHECK 4 : chi**2 along Y
+ //        if(      tp->GetChi2Y() > 0 && (tp->GetChi2Y() < ti->GetChi2Y() || ti->GetChi2Y() <=0) ) tp_score++ ;
+ //        if(      ti->GetChi2Y() > 0 && (ti->GetChi2Y() < tp->GetChi2Y() || tp->GetChi2Y() <=0) ) ti_score++ ;
+           // CHECK 5 : total chi**2
+ //        if(      tp->chi2 > 0 && (tp->chi2 < ti->chi2 || ti->chi2 <=0) ) tp_score++ ;
+ //        if(      ti->chi2 > 0 && (ti->chi2 < tp->chi2 || tp->chi2 <=0) ) ti_score++ ;
+         //      cout << "TRK "<<tp_score<<ti_score<<endl;
+       };
-             // ------------------------
-             // the winner is....
-             // ------------------------
+       // *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
-             if      (tp_score > ti_score) {
+       // the winner is....
- //              ts = tp;//the track sorted by the tracker!!
+       // *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
- //              cs = cp;
+       if      (tp_score > ti_score) {
- //              os = op;
-             }else if (tp_score < ti_score) {
-                 ts = ti;//its image!!
+       }else if (tp_score < ti_score) {
-                 cs = ci;
-                 os = oi;
+         ts = ti;//its image!!
-                 ti = tp;//its image!!
+         cs = ci;
-                 ci = cp;
+         os = oi;
-                 oi = op;
+         ti = tp;//its image!!
-                 tp = ts;//its image!!
+         ci = cp;
-                 cp = cs;
+         oi = op;
-                 op = os;
+         tp = ts;//its image!!
+         cp = cs;
+         op = os;
-             }else {
+       }else {
- //              ts = tp;
- //              cs = cp;
+ //      cout << "Warning - track image ambiguity not solved" << endl;
- //              os = op;
- //                              cout << "Warning - track image ambiguity not solved" << endl;
+       };
- //                              cout << ts->GetNtot() << " "<< ts->chi2 << " " << npcfit[1] << " "<< nphit_p << endl;
-             };
-         }else{
+     }else{
- //          ts = tp;
+       //            ts = tp;
- //          cs = cp;
+       //            cs = cp;
- //          os = op;
+       //            os = op;
-         };
+     };
- //      cout <<" SortTracks() "<<i<<" -- "<<ts<<endl;
+     //  cout <<" SortTracks() "<<i<<" -- "<<ts<<endl;
- //      sorted_tracks->Add(ts);//save the track in the sorted array
+     //  sorted_tracks->Add(ts);//save the track in the sorted array
- //      sorted_tracks.Add(ts);//save the track in the sorted array
+     //  sorted_tracks.Add(ts);//save the track in the sorted array
- //      sorted_tracks.Add(tp);//save the track in the sorted array
+     //  sorted_tracks.Add(tp);//save the track in the sorted array
- //      cout << "SortTracks:: sorted_tracks->Add(it) "<<i<<" "<<ts<<endl;
+     //  cout << "SortTracks:: sorted_tracks->Add(it) "<<i<<" "<<ts<<endl;
- //      cout<<"o "<<tp<<endl;
+     //  cout<<"o "<<tp<<endl;
- //      cout<<"o "<<cp<<endl;
+     //  cout<<"o "<<cp<<endl;
- //      cout<<"o "<<op<<endl;
+     //  cout<<"o "<<op<<endl;
-         new(ttsorted[i]) PamTrack(tp,cp,op);
+     new(ttsorted[i]) PamTrack(tp,cp,op);
-         new(ttimage[i])  PamTrack(ti,ci,oi);
+     new(ttimage[i])  PamTrack(ti,ci,oi);
-     };
+   };
-     if( tsorted->GetEntries() != trk2_obj->GetNTracks() ){
+   if( tsorted->GetEntries() != trk2_obj->GetNTracks() ){
-         cout << "void PamLevel2::SortTracks(TString how): tsorted->GetEntries() "<<tsorted->GetEntries()<<" != trk2_obj->GetNTracks() = "<<trk2_obj->GetNTracks() <<endl;
+     cout << "void PamLevel2::SortTracks(): tsorted->GetEntries() "<<tsorted->GetEntries()<<" != trk2_obj->GetNTracks() = "<<trk2_obj->GetNTracks() <<endl;
-         tsorted->Delete(); tsorted=0;
+     tsorted->Delete(); tsorted=0;
-         timage->Delete(); timage=0;
+     timage->Delete(); timage=0;
-     }
+   }
-     //Restore Object count
+   //Restore Object count
-     //To save space in the table keeping track of all referenced objects
+   //To save space in the table keeping track of all referenced objects
-     //We reset the object count to what it was at the beginning of the event.
+   //We reset the object count to what it was at the beginning of the event.
-     TProcessID::SetObjectCount(ObjectNumber);
+   TProcessID::SetObjectCount(ObjectNumber);
  };
  //--------------------------------------
-Line 638 
 void PamLevel2::SortTracks(TString how){
+Line 1027 
 void PamLevel2::SortTracks(TString how){
  TClonesArray *PamLevel2::GetTracks(){
  //  *-*-*-*-*-*-*-*-*-*-*-*-*
-     SortTracks("+CAL+TOF");
+     SortTracks();
  //  *-*-*-*-*-*-*-*-*-*-*-*-*
      return tsorted;
-Line 657 
 PamTrack *PamLevel2::GetTrack(int it){
+Line 1046 
 PamTrack *PamLevel2::GetTrack(int it){
  //    if(!trk2_obj) return 0;
- // //  *-*-*-*-*-*-*-*-*-*-*-*-*
+ // //  *-*-*-*+-*-*-*-*-*-*-*-*-*
  //     SortTracks("+CAL+TOF");
  // //  *-*-*-*-*-*-*-*-*-*-*-*-*
  // //    if(!sorted_tracks)return 0;
-Line 676 
 PamTrack *PamLevel2::GetTrack(int it){
+Line 1065 
 PamTrack *PamLevel2::GetTrack(int it){
  //    cout << "PamLevel2::GetTrack(int it) "<<endl;
  //  *-*-*-*-*-*-*-*-*-*-*-*-*
-     SortTracks("+CAL+TOF");
+     SortTracks();
  //  *-*-*-*-*-*-*-*-*-*-*-*-*
      if(!tsorted)return 0;
      if(!tsorted->GetEntries())return 0;
-Line 733 
 PamTrack *PamLevel2::GetTrackImage(int i
+Line 1122 
 PamTrack *PamLevel2::GetTrackImage(int i
  //  *-*-*-*-*-*-*-*-*-*-*-*-*
-     SortTracks("+CAL+TOF");
+     SortTracks();
  //  *-*-*-*-*-*-*-*-*-*-*-*-*
      if(!timage)return 0;
      if(!timage->GetEntries())return 0;
-Line 770 
 TTree *PamLevel2::GetPamTree(TFile *f, T
+Line 1159 
 TTree *PamLevel2::GetPamTree(TFile *f, T
  //     if( !detlist.IsNull() ) SetWhichTrees(detlist);
  //     else                    GetWhichTrees(f);
+   if ( pam_tree ){
+     printf("WARNING: TTree *PamLevel2::GetPamTree(TFile *fl, TString detlist) -- pam_tree already exists!\n ");
+     return pam_tree;
+   };
+   //
+     cout << "TTree *PamLevel2::GetPamTree(TFile *f, TString detlist ) -- obsolte "<<endl;
      SetWhichTrees(detlist);
      TTree *Trout =0;
-Line 777 
 TTree *PamLevel2::GetPamTree(TFile *f, T
+Line 1174 
 TTree *PamLevel2::GetPamTree(TFile *f, T
      TString fname = f->GetName();
      if(!CheckLevel2File(fname))return NULL;
-     UInt_t *found=0;
+ //    UInt_t *found=0;
      cout<< "GetPamTree(TFile*,TString): detector list --> ";
      if(TRK1)cout<<"TRK1 ";
-Line 792 
 TTree *PamLevel2::GetPamTree(TFile *f, T
+Line 1189 
 TTree *PamLevel2::GetPamTree(TFile *f, T
      if(S4)cout<<"S4 ";
      if(ORB)cout<<"ORB ";
      cout << endl;
+     if(SELLI)cout<<">>> Found selection-list <<<"<<endl;
      f->cd();
-Line 799 
 TTree *PamLevel2::GetPamTree(TFile *f, T
+Line 1197 
 TTree *PamLevel2::GetPamTree(TFile *f, T
      TTree *T = (TTree*)f->Get("Tracker");
      if(T && (TRK2||TRK1||TRKh)) {
          if(TRK2)T->SetBranchAddress("TrkLevel2", GetPointerTo("TrkLevel2"));
-         else    T->SetBranchStatus("TrkLevel2",0,found);
+ //      else    T->SetBranchStatus("TrkLevel2",0,found);
          if(TRK2)cout << "Tracker      : set branch address TrkLevel2"<<endl;
          if(TRK1)T->SetBranchAddress("TrkLevel1", GetPointerTo("TrkLevel1"));
-         else    T->SetBranchStatus("TrkLevel1",0,found);
+ //      else    T->SetBranchStatus("TrkLevel1",0,found);
          if(TRK1)cout << "Tracker      : set branch address TrkLevel1"<<endl;
          if(TRKh)T->SetBranchAddress("TrkHough", GetPointerTo("TrkHough"));
-         else    T->SetBranchStatus("TrkHough",0,found);
+ //      else    T->SetBranchStatus("TrkHough",0,found);
          if(TRKh)cout << "Tracker      : set branch address TrkHough"<<endl;
          if(!Trout)Trout=T;
          else Trout->AddFriend(T);
-Line 816 
 TTree *PamLevel2::GetPamTree(TFile *f, T
+Line 1214 
 TTree *PamLevel2::GetPamTree(TFile *f, T
      TTree *C = (TTree*)f->Get("Calorimeter");
      if(C && (CAL2||CAL1)) {
          if(CAL2)C->SetBranchAddress("CaloLevel2", GetPointerTo("CaloLevel2"));
-         else    C->SetBranchStatus("CaloLevel2",0,found);
+ //      else    C->SetBranchStatus("CaloLevel2",0,found);
          if(CAL2)cout << "Calorimeter  : set branch address CaloLevel2"<<endl;
          if(CAL1)C->SetBranchAddress("CaloLevel1", GetPointerTo("CaloLevel1"));
-         else    C->SetBranchStatus("CaloLevel1",0,found);
+ //      else    C->SetBranchStatus("CaloLevel1",0,found);
          if(CAL1)cout << "Calorimeter  : set branch address CaloLevel1"<<endl;
          if(!Trout)Trout=C;
          else Trout->AddFriend(C);
-Line 842 
 TTree *PamLevel2::GetPamTree(TFile *f, T
+Line 1240 
 TTree *PamLevel2::GetPamTree(TFile *f, T
      if(R && TRG) {
          R->SetBranchAddress("TrigLevel2", GetPointerTo("TrigLevel2"));
          cout << "Trigger      : set branch address TrigLevel2"<<endl;
-         if(!Trout)Trout=O;
+         if(!Trout)Trout=R;
          else Trout->AddFriend(R);
      }else{
          cout << "Trigger      : missing tree"<<endl;
-Line 852 
 TTree *PamLevel2::GetPamTree(TFile *f, T
+Line 1250 
 TTree *PamLevel2::GetPamTree(TFile *f, T
      if(S && S4) {
          S->SetBranchAddress("S4Level2", GetPointerTo("S4Level2"));
          cout << "S4           : set branch address S4Level2"<<endl;
-         if(!Trout)Trout=O;
+         if(!Trout)Trout=S;
          else Trout->AddFriend(S);
      }else{
          cout << "S4           : missing tree"<<endl;
-Line 862 
 TTree *PamLevel2::GetPamTree(TFile *f, T
+Line 1260 
 TTree *PamLevel2::GetPamTree(TFile *f, T
      if(N && ND) {
          N->SetBranchAddress("NDLevel2", GetPointerTo("NDLevel2"));
          cout << "NeutronD     : set branch address NDLevel2"<<endl;
-         if(!Trout)Trout=O;
+         if(!Trout)Trout=N;
          else Trout->AddFriend(N);
      }else{
          cout << "NeutronD     : missing tree"<<endl;
-Line 872 
 TTree *PamLevel2::GetPamTree(TFile *f, T
+Line 1270 
 TTree *PamLevel2::GetPamTree(TFile *f, T
      if(A && AC) {
          A->SetBranchAddress("AcLevel2", GetPointerTo("AcLevel2"));
          cout << "Anticounter  : set branch address AcLevel2"<<endl;
-         if(!Trout)Trout=O;
+         if(!Trout)Trout=A;
          else Trout->AddFriend(A);
      }else{
          cout << "Anticounter  : missing tree"<<endl;
-Line 882 
 TTree *PamLevel2::GetPamTree(TFile *f, T
+Line 1280 
 TTree *PamLevel2::GetPamTree(TFile *f, T
      if(B && ORB) {
          B->SetBranchAddress("OrbitalInfo", GetPointerTo("OrbitalInfo"));
          cout << "OrbitalInfo  : set branch address OrbitalInfo"<<endl;
-         if(!Trout)Trout=O;
+         if(!Trout)Trout=B;
          else Trout->AddFriend(B);
      }else{
          cout << "OrbitalInfo  : missing tree"<<endl;
      };
+     TTree *L = (TTree*)f->Get("SelectionList");
+     if(L && SELLI==1) {
+ //      L->SetBranchAddress("RunEntry",&irun);
+ //      cout << "SelectionList: set branch address RunEntry"<<endl;
+ //      L->SetBranchAddress("EventEntry",&irunentry);
+ //      cout << "SelectionList: set branch address EventEntry"<<endl;
+ //      if(!Trout)Trout=O;
+ //      else Trout->AddFriend("SelectionList");
+         cout << " TTree *PamLevel2::GetPamTree(TFile, TString) >>> SelectionList not implemente!!!!"<<endl;
+         sel_tree = 0;
+     }else{
+         cout << "SelectionList  : missing tree"<<endl;
+     };
      cout<<endl<<" Number of entries: "<<Trout->GetEntries()<<endl<<endl;
+     pam_tree = (TChain*)Trout;
      return Trout;
-Line 908 
 TList*  PamLevel2::GetListOfLevel2Files(
+Line 1322 
 TList*  PamLevel2::GetListOfLevel2Files(
      TString wdir = gSystem->WorkingDirectory();
-     if(ddir=="")ddir = wdir;
+     //    if(ddir=="")ddir = wdir;
  //      TSystemDirectory *datadir = new TSystemDirectory(gSystem->BaseName(ddir),ddir);
-     cout << "Level2 data directory : "<<  ddir << endl;
+     if ( ddir != ""){
+       cout << "Level2 data directory : "<<  ddir << endl;
+     } else {
+       cout << "Level2 data directory not given as input: trying to evaluate from list or taking working directory " << endl;
+     };
      TList *contents  = new TList; // create output list
      contents->SetOwner();
  //    char *fullpath;
-     const char *fullpath;
+ //    const char *fullpath;
      // if no input file list is given:
      if ( flisttxt != "" ){
  //      if( !gSystem->IsFileInIncludePath(flisttxt,&fullpath) ){
-         if( !(fullpath = gSystem->FindFile("./",flisttxt)) ){
+ //      if( !(fullpath = gSystem->FindFile("./",flisttxt)) ){
-             cout <<"File "<<flisttxt<<" not found"<<endl;
+ //          cout <<"File "<<flisttxt<<" not found"<<endl;
-             return 0;
+ //          return 0;
-         }
+ //      }
- //              flisttxt = gSystem->ConcatFileName(gSystem->DirName(flisttxt),gSystem->BaseName(flisttxt));
+ //      flisttxt = fullpath;
-         flisttxt = fullpath;
+       if ( !flisttxt.EndsWith(".root") ){
+         flisttxt = gSystem->ConcatFileName(gSystem->DirName(flisttxt),gSystem->BaseName(flisttxt));
          if( !gSystem->ChangeDirectory(ddir) ){
              cout << "Cannot change directory : "<<ddir<<endl;
-Line 937 
 TList*  PamLevel2::GetListOfLevel2Files(
+Line 1356 
 TList*  PamLevel2::GetListOfLevel2Files(
          cout <<"Input file list : " << flisttxt <<endl;
          ifstream in;
          in.open(flisttxt, ios::in); //open input file list
+         if(!in.good()){
+             cout <<" ERROR opening the file "<<endl;
+             gSystem->ChangeDirectory(wdir); // back to the working directory
+             return 0;
+         }
          int line=0;
          while (1) {
              TString file;
-Line 951 
 TList*  PamLevel2::GetListOfLevel2Files(
+Line 1375 
 TList*  PamLevel2::GetListOfLevel2Files(
              if(file.Contains("#"))file = file(0,file.First("#"));
  //          cout <<"(2) " << file << endl;
  //          if( gSystem->IsFileInIncludePath(file,&fullpath) ){
-             if( (fullpath = gSystem->FindFile(ddir,file)) ){
+ //          if( (fullpath = gSystem->FindFile(ddir,file)) ){
+             if( file.EndsWith(".root") ){
+               TString filedir;
+               if (ddir != ""){
+                 filedir = ddir; // take the input dir
+               } else {
+                 gSystem->ChangeDirectory(wdir); // back to the working directory
+                 filedir = gSystem->DirName(file); // this will take the path if exist in the list otherwise it will return automatically the working dir
+               };
+                 char *fullpath = gSystem->ConcatFileName(gSystem->DirName(filedir),gSystem->BaseName(file));
                  contents->Add(new TSystemFile(fullpath,gSystem->DirName(fullpath)));// add file to the list
+                 delete fullpath;
-             }else{
+             }
+ //          }else{
  //              if(file.Data()!="")cout << "File: "<<file<<" ---> missing "<< endl;
-             };
+ //          };
          };
          in.close();
+       } else {
+           if(flisttxt.Contains("#"))flisttxt = flisttxt(0,flisttxt.First("#"));
+           char *fullpath = gSystem->ConcatFileName(gSystem->DirName(flisttxt),gSystem->BaseName(flisttxt));
+           contents->Add(new TSystemFile(fullpath,gSystem->DirName(fullpath)));// add file to the list
+           delete fullpath;
+       };
      }else{
          cout << "No input file list given."<<endl;
          cout << "Check for existing root files."<<endl;
  //              cout << "Warking directory: "<< gSystem->WorkingDirectory()<< endl;
+         if ( ddir == "" ){
+           ddir = wdir;
+           cout << "Level2 data directory : "<<  ddir << endl;
+         };
          TSystemDirectory *datadir = new TSystemDirectory(gSystem->BaseName(ddir),ddir);
          TList *temp = datadir->GetListOfFiles();
  //              temp->Print();
-Line 979 
 TList*  PamLevel2::GetListOfLevel2Files(
+Line 1421 
 TList*  PamLevel2::GetListOfLevel2Files(
          while ( (questo = (TSystemFile*) next()) ) {
              TString name =  questo-> GetName();
              if( name.EndsWith(".root") ){
-                 const char *fullpath = gSystem->FindFile(ddir,name);
+ //              const char *fullpath = gSystem->FindFile(ddir,name);
  //              char *fullpath;
  //              gSystem->IsFileInIncludePath(name,&fullpath);
+                 char *fullpath = gSystem->ConcatFileName(gSystem->DirName(ddir),gSystem->BaseName(name));
                  contents->Add(new TSystemFile(fullpath,gSystem->DirName(fullpath)));
+                 delete fullpath;
              };
          }
          delete temp;
-Line 992 
 TList*  PamLevel2::GetListOfLevel2Files(
+Line 1436 
 TList*  PamLevel2::GetListOfLevel2Files(
      gSystem->ChangeDirectory(wdir); // back to the working directory
  //      cout << endl << "Selected files:" << endl;
  //      contents->Print();
-     cout << contents->GetEntries()<<" files selected\n";
+     cout << contents->GetEntries()<<" files \n";
  //      cout << endl;
  //      cout << "Working directory: "<< gSystem->WorkingDirectory()<< endl;
      return contents;
-Line 1008 
 TList*  PamLevel2::GetListOfLevel2Files(
+Line 1452 
 TList*  PamLevel2::GetListOfLevel2Files(
   * @return Pointer to a TChain
   */
  TChain *PamLevel2::GetPamTree(TList *fl, TString detlist ){
+   //
+   //
+   //
+   if ( pam_tree ){
+     printf("WARNING: TChain *PamLevel2::GetPamTree(TList *fl, TString detlist) -- pam_tree already exists!\n ");
+     return pam_tree;
+   };
+   //
      TChain *Trout =0;
-Line 1028 
 TChain *PamLevel2::GetPamTree(TList *fl,
+Line 1480 
 TChain *PamLevel2::GetPamTree(TList *fl,
      if(ORB)cout<<"ORB ";
      cout << endl;
-     TChain *T = 0;
+      TChain *T = 0;
-     TChain *C = 0;
+      TChain *C = 0;
-     TChain *O = 0;
+      TChain *O = 0;
-     TChain *R = 0;
+      TChain *R = 0;
-     TChain *S = 0;
+      TChain *S = 0;
-     TChain *N = 0;
+      TChain *N = 0;
-     TChain *A = 0;
+      TChain *A = 0;
-     TChain *B = 0;
+      TChain *B = 0;
+      TChain *L = 0;
      if(TRK2||TRK1||TRKh) T = new TChain("Tracker");
      if(CAL2||CAL1)       C = new TChain("Calorimeter");
-Line 1045 
 TChain *PamLevel2::GetPamTree(TList *fl,
+Line 1499 
 TChain *PamLevel2::GetPamTree(TList *fl,
      if(ND)               N = new TChain("NeutronD");
      if(AC)               A = new TChain("Anticounter");
      if(ORB)              B = new TChain("OrbitalInfo");
+      L = new TChain("SelectionList");
      // loop over files and create chains
      TIter next(fl);
-Line 1061 
 TChain *PamLevel2::GetPamTree(TList *fl,
+Line 1516 
 TChain *PamLevel2::GetPamTree(TList *fl,
              if(ND)               N->Add(name);
              if(AC)               A->Add(name);
              if(ORB)              B->Add(name);
+             if(SELLI==1)         L->Add(name);
          };
-     }
+     };
      cout << "done chain \n";
+     cout << "+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+" <<endl;
-     UInt_t *found=0;
+ //    UInt_t *found=0;
  // Tracker
      if(T && (TRK2||TRK1||TRKh)) {
          if(TRK2)T->SetBranchAddress("TrkLevel2", GetPointerTo("TrkLevel2"));
-         else    T->SetBranchStatus("TrkLevel2",0,found);
+ //      else    T->SetBranchStatus("TrkLevel2",0,found);
          if(TRK2)cout << "Tracker      : set branch address TrkLevel2"<<endl;
          if(TRK1)T->SetBranchAddress("TrkLevel1", GetPointerTo("TrkLevel1"));
-         else    T->SetBranchStatus("TrkLevel1",0,found);
+ //      else    T->SetBranchStatus("TrkLevel1",0,found);
          if(TRK1)cout << "Tracker      : set branch address TrkLevel1"<<endl;
          if(TRKh)T->SetBranchAddress("TrkHough", GetPointerTo("TrkHough"));
-         else    T->SetBranchStatus("TrkHough",0,found);
+ //      else    T->SetBranchStatus("TrkHough",0,found);
          if(TRKh)cout << "Tracker      : set branch address TrkHough"<<endl;
          if(!Trout)Trout=T;
          else Trout->AddFriend("Tracker");
      }else{
          cout << "Tracker      : missing tree"<<endl;
      };
      // Calorimeter
      if(C && (CAL2||CAL1)) {
          if(CAL2)C->SetBranchAddress("CaloLevel2", GetPointerTo("CaloLevel2"));
-         else    C->SetBranchStatus("CaloLevel2",0,found);
+ //      else    C->SetBranchStatus("CaloLevel2",0,found);
          if(CAL2)cout << "Calorimeter  : set branch address CaloLevel2"<<endl;
          if(CAL1)C->SetBranchAddress("CaloLevel1", GetPointerTo("CaloLevel1"));
-         else    C->SetBranchStatus("CaloLevel1",0,found);
+ //      else    C->SetBranchStatus("CaloLevel1",0,found);
          if(CAL1)cout << "Calorimeter  : set branch address CaloLevel1"<<endl;
          if(!Trout)Trout=C;
          else Trout->AddFriend("Calorimeter");
-Line 1150 
 TChain *PamLevel2::GetPamTree(TList *fl,
+Line 1607 
 TChain *PamLevel2::GetPamTree(TList *fl,
      }else{
          cout << "OrbitalInfo  : missing tree"<<endl;
      };
+     cout << "+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+" <<endl;
+     // Selection List
+     if(L && SELLI==1) {
+         cout<<">>> Found selection-list <<<"<<endl;
+         L->SetBranchAddress("RunEntry",&irun);
+         cout << "SelectionList: set branch address RunEntry"<<endl;
+         L->SetBranchAddress("EventEntry",&irunentry);
+         cout << "SelectionList: set branch address EventEntry"<<endl;
+         sel_tree = L;
+ //      if(!Trout)Trout=O;
+ //      else Trout->AddFriend("SelectionList");
+         cout << "----------------------------------------------------" <<endl;
+     }else{
+ //      cout << "SelectionList  : missing tree"<<endl;
+         if(L)L->Delete();
+     };
  //    cout<<endl<<" Number of entries: "<<Trout->GetEntries()<<endl<<endl;
+     pam_tree = Trout;
- //     // Tracker
- //     if(TRK2||TRK1||TRKh){
- //      if(!Tout)Tout=T;
- //      else Tout->AddFriend("Tracker");
- //     }
- //     // Calorimeter
- //     if(CAL2||CAL1) {
- //      if(!Tout)Tout=C;
- //      else Tout->AddFriend("Calorimeter");
- //     };
- //     // ToF
- //     if(TOF) {
- //      if(!Tout)Tout=O;
- //      else Tout->AddFriend("ToF");
- //     };
- //     // Trigger
- //     if(TRG) {
- //      if(!Tout)Tout=R;
- //      else Tout->AddFriend("Trigger");
- //     };
- //     // S4
- //     if(S4) {
- //      if(!Tout)Tout=S;
- //      else Tout->AddFriend("S4");
- //     };
- //     // Neutron Detector
- //     if(ND) {
- //      if(!Tout)Tout=N;
- //      else Tout->AddFriend("NeutronD");
- //     };
- //     // Anticounters
- //     if(AC) {
- //      if(!Tout)Tout=A;
- //      else Tout->AddFriend("Anticounter");
- //     };
- //     // OrbitalInfo
- //     if(ORB) {
- //      if(!Tout)Tout=B;
- //      else Tout->AddFriend("OrbitalInfo");
- //     };
- //    cout<<endl<<" Number of entries: "<<Tout->GetEntries()<<endl<<endl;
- //    if( Tout->GetEntries() )PamLevel2::SetBranchAddress( Tout );
      return Trout;
  }
-Line 1280 
 void PamLevel2::SetBranchAddress(TTree *
+Line 1710 
 void PamLevel2::SetBranchAddress(TTree *
          t->SetBranchAddress("OrbitalInfo", GetPointerTo("OrbitalInfo"));
          cout << "OrbitalInfo  : set branch address OrbitalInfo"<<endl;
      };
+     // SelectionList
+     if(SELLI==1) {
+         t->SetBranchAddress("RunEntry", &irun);
+         cout << "SelectionList: set branch address RunEntry"<<endl;
+         t->SetBranchAddress("EventEntry", &irunentry);
+         cout << "SelectionList: set branch address EventEntry"<<endl;
+     };
  }
  /**
-Line 1353 
 void PamLevel2::SetBranchAddress(TChain
+Line 1790 
 void PamLevel2::SetBranchAddress(TChain
          t->SetBranchAddress("OrbitalInfo", GetPointerTo("OrbitalInfo"));
          cout << "OrbitalInfo  : set branch address OrbitalInfo"<<endl;
      };
+     // SelectionList
+     if(SELLI==1) {
+         t->SetBranchAddress("RunEntry", &irun);
+         cout << "SelectionList: set branch address RunEntry"<<endl;
+         t->SetBranchAddress("EventEntry", &irunentry);
+         cout << "SelectionList: set branch address EventEntry"<<endl;
+     };
  }
-Line 1367 
 void PamLevel2::SetBranchAddress(TChain
+Line 1811 
 void PamLevel2::SetBranchAddress(TChain
   * @return Pointer to a TChain
   */
  TChain *PamLevel2::GetRunTree(TList *fl){
+   //
-     TChain *R = new TChain("Run");
+   //
+   //
+   if ( run_tree ){
+     printf("WARNING: TChain *PamLevel2::GetRunTree(TList *fl) -- run_tree already exists!\n ");
+     return run_tree;
+   };
+   //
+   TChain *R = new TChain("Run");
      // loop over files and create chains
      TIter next(fl);
-Line 1380 
 TChain *PamLevel2::GetRunTree(TList *fl)
+Line 1831 
 TChain *PamLevel2::GetRunTree(TList *fl)
              R->Add(name);
          };
      }
+     if(R->GetNtrees()){
-     R->SetBranchAddress("RunInfo", GetPointerTo("RunInfo"));
+         R->SetBranchAddress("RunInfo", GetPointerTo("RunInfo"));
-     cout << "Run         : set branch address RunInfo"<<endl;
+         cout << "Run         : set branch address RunInfo"<<endl;
-     R->SetBranchAddress("SoftInfo", GetPointerTo("SoftInfo")); // Emiliano
+         R->SetBranchAddress("SoftInfo", GetPointerTo("SoftInfo")); // Emiliano
-     cout << "Software    : set branch address SoftInfo"<<endl; // Emiliano
+         cout << "Software    : set branch address SoftInfo"<<endl; // Emiliano
+     }else{
+         delete R;
+         R=0;
+     }
+     run_tree = R;
      return R;
  }
-Line 1399 
 TChain *PamLevel2::GetRunTree(TList *fl)
+Line 1858 
 TChain *PamLevel2::GetRunTree(TList *fl)
   * @return Pointer to a TTree
   */
  TTree *PamLevel2::GetRunTree(TFile *f){
+   if ( run_tree ){
+     printf("WARNING: TTree *PamLevel2::GetRunTree(TFile *f) -- run_tree already exists!\n ");
+     return run_tree;
+   };
+     cout << "TTree *PamLevel2::GetRunTree(TFile *f) -- obsolte "<<endl;
-     TTree *R = (TTree*)f->Get("Run");
+     TTree *T = (TTree*)f->Get("Run");
-     R->SetBranchAddress("RunInfo", GetPointerTo("RunInfo"));
-     cout << "Run         : set branch address RunInfo"<<endl;
-     R->SetBranchAddress("SoftInfo", GetPointerTo("SoftInfo")); // Emiliano
-     cout << "Software    : set branch address SoftInfo"<<endl; // Emiliano
-     return R;
+     if(T){
+         T->SetBranchAddress("RunInfo", GetPointerTo("RunInfo"));
+         cout << "Run         : set branch address RunInfo"<<endl;
+         T->SetBranchAddress("SoftInfo", GetPointerTo("SoftInfo")); // Emiliano
+         cout << "Software    : set branch address SoftInfo"<<endl; // Emiliano
+     }
+     run_tree = (TChain*)T;
+     return T;
  }
+ /**
+  * Update the runinfo informations (to be used to have Run infos event by event basis)
+  * @param run Pointer to the chain/tree which contains run infos
+  * @return true if a new run has been read, false if it is still the same run
+  */
+ Bool_t PamLevel2::UpdateRunInfo(TChain *run, Long64_t iev){
+   //
+   // check if we have already called once GetEntry, if not call it
+   //
+     cout << "Bool_t PamLevel2::UpdateRunInfo(TChain *run, Long64_t iev) --- NON FUNZIONA BENISSIMO.... "<<endl;
+     if(!run){
+           cout << "Bool_t PamLevel2::UpdateRunInfo(TChain *run, ULong64_t iev) -- ERROR -- missing RunInfo tree "<<endl;
+           return(false);
+     }
+     if ( run->GetEntries() <= 0 ) return(false);
+   //
+   //  Int_t oldrun = irun;
+   Long64_t oldrun = irun;
+   // --------------------------------------
+   // if it is a full file (not preselected)
+   // --------------------------------------
+   if(SELLI==0){
+       //
+       // the absolute time is necessary to relate the event with the run
+       //
+       if( !GetOrbitalInfo() && !ISGP){
+           cout << "Bool_t PamLevel2::UpdateRunInfo(TChain *run, ULong64_t iev) -- ERROR -- missing OrbitalInfo "<<endl;
+           return(false);
+       }
+       ULong64_t abstime = 0;
+       if( GetOrbitalInfo() )abstime=GetOrbitalInfo()->absTime;
+       //
+       // the first time the routine is called, set run search from the beginning
+       //
+       if ( irun < 0LL ){
+           irun = 0LL;
+           run->GetEntry(irun);
+           runfirstentry = 0LL;
+           runlastentry += (Long64_t)(this->GetRunInfo()->NEVENTS);
+           if ( (Long64_t)(this->GetRunInfo()->NEVENTS) > 0LL ) runlastentry -= 1LL;
+           if( ISGP && run->GetEntries()!=1 ){
+               cout << "** WARNING ** simulated files are assumed to have 1 single run, not "<< run->GetEntries() << endl;
+               cout << "** WARNING ** run will not be updated"<<endl;
+           }
+       };
+       //
+       if(ISGP)abstime = GetRunInfo()->RUNHEADER_TIME; // BARBATRUCCO
+       //
+       if ( irun == run->GetEntries()-1LL &&
+            !(abstime >= GetRunInfo()->RUNHEADER_TIME &&
+              abstime <= GetRunInfo()->RUNTRAILER_TIME)
+             ){
+          irun = -1LL;
+          runfirstentry = 0LL;
+          runlastentry = -1LL;
+        };
+       // modificato il controllo sull'aggiornamento del run, per evitare problemi
+       // dovuti agli eventi annidati (NB! NEVENTS conta anche questi!!)
+       //
+       bool fromfirst = true;
+       //
+       while ( !(abstime >= GetRunInfo()->RUNHEADER_TIME && abstime <= GetRunInfo()->RUNTRAILER_TIME) && irun < run->GetEntries()-1LL ){
+ //      while ( iev > (runfirstentry+(ULong64_t)(this->GetRunInfo()->NEVENTS-1)) && irun < run->GetEntries() ){
+           irun++;
+           run->GetEntry(irun);
+           runfirstentry = runlastentry;
+           if ( (Long64_t)(this->GetRunInfo()->NEVENTS) > 0LL ) runfirstentry += 1LL;
+           runlastentry += (Long64_t)(this->GetRunInfo()->NEVENTS);
+ //        cout << " ))))) UPDATE RUN INFO (((((  @iev "<<iev<<" run "<<GetRunInfo()->ID<<" irun "<<irun<<endl;
+ //        cout << "runfirstentry "<<runfirstentry<<endl;
+           //      printf(" iev %llu %u %llu \n",iev,this->GetRunInfo()->NEVENTS,(ULong64_t)(runfirstentry+(ULong64_t)(this->GetRunInfo()->NEVENTS)));
+           //      printf(" abstime %u trailertime %u \n",abstime,GetRunInfo()->RUNTRAILER_TIME);
+           //      printf(" IDRUN %u \n",GetRunInfo()->ID);
+           //
+ //        prevshift = 0;
+           //
+           if ( irun == (Long64_t)(run->GetEntries()-1LL) && fromfirst && !(abstime >= GetRunInfo()->RUNHEADER_TIME && abstime <= GetRunInfo()->RUNTRAILER_TIME)){
+               printf(" resetting irun  (it should NOT happen!!!)\n");
+               fromfirst = false;
+               irun = 0;
+               run->GetEntry(irun);
+               runfirstentry = 0ULL;
+               runlastentry += (Long64_t)(this->GetRunInfo()->NEVENTS);
+               if ( (Long64_t)(this->GetRunInfo()->NEVENTS) > 0LL ) runlastentry -= 1LL;
+           };
+           //
+       };
+       //
+       if (
+            !(abstime >= GetRunInfo()->RUNHEADER_TIME &&
+              abstime <= GetRunInfo()->RUNTRAILER_TIME)
+           ) {
+           printf(" Something very wrong here: cannot find RUN containing absolute time %u \n",abstime);
+           return false;
+       }
+       //
+       if ( irun == oldrun || irun >= run->GetEntries() ) return(false);
+       //
+       //  printf(" iev %llu irun %i nevents %u 1st %llu last %llu \n",iev,irun,this->GetRunInfo()->NEVENTS,(ULong64_t)runfirstentry,(ULong64_t)runlastentry);
+       //
+       prevshift = 0;
+       cout << " ))))) UPDATE RUN INFO (((((  @iev "<<iev<<" run "<<GetRunInfo()->ID<<" irun "<<irun<<endl;
+ //      cout << "runfirstentry "<<runfirstentry<<endl;
+       return(true);
+   };
+   // ----------------------------------------------------
+   // if it is a preselected file (there is SelectionList)
+   // NBNB - the event tree MUST be read first
+   // ----------------------------------------------------
+   if(SELLI==1){
+       sel_tree->GetEntry(iev);
+ //      cout << irun << " "<< irunentry << endl;
+       if(irun != oldrun){
+           run->GetEntry(irun);
+           cout << " ))))) UPDATE RUN INFO (((((  @iev "<<iev<<" run "<<GetRunInfo()->ID<<" irun "<<irun<<endl;
+           prevshift = 0;
+           return true;
+       }
+       return false;
+   }
+   return false;
+   //
+ };
+ Bool_t PamLevel2::UpdateRunInfo(Long64_t iev){
+     if(!run_tree){
+         cout << " Bool_t PamLevel2::UpdateRunInfo(ULong64_t iev) -- ERROR -- run tree not loaded"<<endl;
+         return false;
+     }
+     if ( run_tree->GetEntries() <= 0 ) {
+         cout << " Bool_t PamLevel2::UpdateRunInfo(ULong64_t iev) -- ERROR -- run tree is empty"<<endl;
+         return(false);
+     }
+     Int_t oldrun = irun; // store current run index
+     // +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
+     // if it is a full file (not preselected)
+     // +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
+     if(SELLI==0){
+         ULong64_t abstime = 0;
+         ULong64_t obt     = 0;
+         if( GetOrbitalInfo() ){
+             abstime = GetOrbitalInfo()->absTime;
+             obt     = GetOrbitalInfo()->OBT;
+         }
+         // ---------------------------------------------------------------
+         // the absolute time is necessary to relate the event with the run
+         // ---------------------------------------------------------------
+         if( !GetOrbitalInfo() && !ISGP ){
+             cout << "Bool_t PamLevel2::UpdateRunInfo(Long64_t iev) -- ERROR -- missing OrbitalInfo "<<endl;
+             return(false);
+         }
+         // -----------------------------------------------------------------------
+         // the first time the routine is called, set run search from the beginning
+         // -----------------------------------------------------------------------
+         if ( irun < 0 ){
+             irun = 0LL;
+             irunentry = 0;
+             prevshift = 0;
+             run_tree->GetEntry(irun);
+             if( ISGP && run_tree->GetEntries()!=1 ){
+                 cout << "** WARNING ** simulated files are assumed to have 1 single run, not "<< run_tree->GetEntries() << endl;
+                 cout << "** WARNING ** run will not be updated"<<endl;
+             }
+         };
+         // -----------------------------------------------------------------------
+         // if it is simulation, assigh abstime by end (temporaneo!!!)
+         // -----------------------------------------------------------------------
+         if(ISGP){
+             abstime = GetRunInfo()->RUNHEADER_TIME; // BARBATRUCCO
+             obt     = GetRunInfo()->RUNHEADER_OBT; // BARBATRUCCO
+         }
+         //
+         bool fromfirst = true; // first loop over runs
+ //      Bool_t hasfrag = false;
+ //      if( GetRunInfo()->ID_RUN_FRAG!=0 && GetRunInfo()->ID_RUN_FRAG != GetRunInfo()->ID)hasfrag=true;
+ //      ULong64_t fragid = GetRunInfo()->ID_RUN_FRAG;
+         // ------------------------------------------------------
+         // loop over runs to find the one that contains the event
+         // ------------------------------------------------------
+         while (
+             (
+                 (
+                     !(abstime >= GetRunInfo()->RUNHEADER_TIME &&    // check on absolute time (s)
+                       abstime <= GetRunInfo()->RUNTRAILER_TIME) &&
+                     !(obt >= GetRunInfo()->RUNHEADER_OBT &&         // additional check on OBT (ms)
+                       obt <= GetRunInfo()->RUNTRAILER_OBT)
+                     )
+                 || GetRunInfo()->NEVENTS==0
+                 || !(irunentry < GetRunInfo()->NEVENTS-1-prevshift)
+                 )
+                 && irun < run_tree->GetEntries() ){
+             irun++;
+             // ------------------------------------
+             // if the end of run tree is reached...
+             // ------------------------------------
+             if( irun == run_tree->GetEntries() ){
+                 if(!fromfirst){
+                     // -----------------------------------------------------
+                     // if it happened already once and the run was not found
+                     // ---> exit with error
+                     // -----------------------------------------------------
+                     cout << "Bool_t PamLevel2::UpdateRunInfo(Long64_t iev) -- ERROR -- event entry #"<<iev<<" does not belong to any run (should not happen)" <<endl;
+                     return false;
+                 }
+                 // -----------------------------------------
+                 // ...otherwise repeat search from beginning
+                 // -----------------------------------------
+                 cout << "Bool_t PamLevel2::UpdateRunInfo(Long64_t iev) -- WARNING -- reached end of run tree. searchin again from beginning " <<endl;
+                 fromfirst = false;
+                 irun = 0LL;
+                 runfirstentry = 0LL;
+             }
+             // -------------------------------------------------------------------
+             // save the index of the first entry of the run, relative to pam_tree,
+             // and read a new run
+             // -------------------------------------------------------------------
+             if(irun>0)runfirstentry += (GetRunInfo()->NEVENTS)-prevshift;
+             irunentry = 0;
+             prevshift = 0;
+             run_tree->GetEntry(irun);
+             if(GetRunInfo()->RUNHEADER_OBT>GetRunInfo()->RUNTRAILER_OBT ){
+                 cout << "Bool_t PamLevel2::UpdateRunInfo(Long64_t iev) -- WARNING -- irun "<<irun<<"  has RUNHEADER_OBT>=RUNTRAILER_OBT " <<endl;
+                 cout << "                                                            (NB!! in this case some events are assigned to a wrong run)"<<endl;
+             }
+ //          if(hasfrag &&  fragid != GetRunInfo()->ID){
+ //              cout << "... where is the next fragment ??"<<endl;
+ //          }
+         };
+         // --------------------------------------
+         // if there was no need to update the run
+         // ---> exit with FALSE
+         // --------------------------------------
+         if ( irun == oldrun ) return(false);
+         // --------------------------------------
+         // ... otherwise
+         // ---> exit with TRUE
+         // --------------------------------------
+         cout << endl << " ))))) UPDATE RUN INFO (((((  @iev "<<iev<<" run "<<GetRunInfo()->ID<<" irun "<<irun<<endl;
+         // ----------------------------------------------------
+         // then check if the run has a fragment
+         // in this case we have to switch to the next fragment
+         // when the end of the first fragment is reached
+         // ----------------------------------------------------
+         if(
+             GetRunInfo()->ID_RUN_FRAG != 0 &&
+ //          GetRunInfo()->ID_RUN_FRAG != GetRunInfo()->ID &&
+             true ){
+             cout << "* fragment *"<<endl;
+         }
+         return(true);
+     };
+     // +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
+     // if it is a preselected file (there is SelectionList)
+     // +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
+     if(SELLI==1){
+         sel_tree->GetEntry(iev);
+         if(irun != oldrun){
+             run_tree->GetEntry(irun);
+             cout << endl << " ))))) UPDATE RUN INFO (((((  @iev "<<iev<<" run "<<GetRunInfo()->ID<<" irun "<<irun<<endl;
+             prevshift = 0;
+             return true;
+         }
+         return false;
+     }
+     return false;
+     //
+ };
+ /**
+  * Update the runinfo informations (to be used to have Run infos event by event basis)
+  * @param run Pointer to the chain/tree which contains run infos
+  * @return true if a new run has been read, false if it is still the same run
+  */
+ Bool_t PamLevel2::UpdateRunInfo(TTree *run, Long64_t iev){
+   return(UpdateRunInfo((TChain*)run,iev));
+ };
  //--------------------------------------
  //
  //
-Line 1422 
 TTree *PamLevel2::GetRunTree(TFile *f){
+Line 2191 
 TTree *PamLevel2::GetRunTree(TFile *f){
  void PamLevel2::SetWhichTrees(TString detlist){
      if(detlist.IsNull() || detlist.Contains("+ALL", TString::kIgnoreCase)){
+         CAL0 = false;
          CAL1 = true;
          CAL2 = true;
          TRK2 = true;
          TRK1 = false;
          TRKh = false;
+         TRK0 = false;
          TRG = true;
          TOF = true;
+         TOF0 = false;
          S4  = true;
          ND  = true;
          AC  = true;
          ORB = true;
      }else if( detlist.Contains("-ALL", TString::kIgnoreCase) ){
+         CAL0 = false;
          CAL1 = false;
          CAL2 = false;
          TRK2 = false;
          TRK1 = false;
          TRKh = false;
+         TRK0 = false;
          TRG = false;
          TOF = false;
+         TOF0 = false;
          S4  = false;
          ND  = false;
          AC  = false;
-Line 1452 
 void PamLevel2::SetWhichTrees(TString de
+Line 2227 
 void PamLevel2::SetWhichTrees(TString de
          if ( detlist.Contains("-CAL1", TString::kIgnoreCase) )CAL1=false;
          if ( detlist.Contains("+CAL1", TString::kIgnoreCase) )CAL1=true;
      };
+     if( detlist.Contains("CAL0", TString::kIgnoreCase) ){
+         if ( detlist.Contains("-CAL0", TString::kIgnoreCase) )CAL0=false;
+         if ( detlist.Contains("+CAL0", TString::kIgnoreCase) )CAL0=true;
+     };
      if( detlist.Contains("CAL2", TString::kIgnoreCase)){
          if ( detlist.Contains("-CAL2", TString::kIgnoreCase) )CAL2=false;
-Line 1464 
 void PamLevel2::SetWhichTrees(TString de
+Line 2244 
 void PamLevel2::SetWhichTrees(TString de
          CAL1=false;
      }
  //  -------------------------------------------------------------------------
+     if( detlist.Contains("TRK0", TString::kIgnoreCase) ){
+         if ( detlist.Contains("-TRK0", TString::kIgnoreCase) )TRK0=false;
+         if ( detlist.Contains("+TRK0", TString::kIgnoreCase) )TRK0=true;
+     };
      if( detlist.Contains("TRK1", TString::kIgnoreCase) ){
          if ( detlist.Contains("-TRK1", TString::kIgnoreCase) )TRK1=false;
          if ( detlist.Contains("+TRK1", TString::kIgnoreCase) )TRK1=true;
-Line 1492 
 void PamLevel2::SetWhichTrees(TString de
+Line 2277 
 void PamLevel2::SetWhichTrees(TString de
      if( detlist.Contains("-TOF", TString::kIgnoreCase) )TOF = false;
      else if( detlist.Contains("+TOF", TString::kIgnoreCase) )TOF = true;
+     if( detlist.Contains("-TOF0", TString::kIgnoreCase) )TOF0 = false;
+     else if( detlist.Contains("+TOF0", TString::kIgnoreCase) )TOF0 = true;
      if( detlist.Contains("-S4",  TString::kIgnoreCase) )S4  = false;
      else if( detlist.Contains("+S4",  TString::kIgnoreCase) )S4  = true;
-Line 1526 
 void PamLevel2::SetWhichTrees(TString de
+Line 2314 
 void PamLevel2::SetWhichTrees(TString de
   * Set tree/branch detector flags from the content of a tree
   */
  void  PamLevel2::GetWhichTrees(TFile* f){
+     cout << "void  PamLevel2::GetWhichTrees(TFile* f) --- WARNING!! --- ...potrebbe non funzionare "<<endl;
      // -----------
      // reset flags
      // -----------
-Line 1698 
 Bool_t  PamLevel2::CheckLevel2File(TStri
+Line 2489 
 Bool_t  PamLevel2::CheckLevel2File(TStri
      Bool_t RUN__ok    = false;
+     Bool_t SELLI__ok  = false;
      cout << "Checking file: "<<name<<endl;
      TFile *f = new TFile(name.Data());
-Line 1715 
 Bool_t  PamLevel2::CheckLevel2File(TStri
+Line 2506 
 Bool_t  PamLevel2::CheckLevel2File(TStri
      while( (key = (TKey*)next()) ){
+ //      cout << key->GetName() << endl;
  //      cout << key->GetName() << ""<<key->GetClassName()<<endl;
  //              cout << " Get tree: " << f->Get(key->GetName())<<endl;
  //      nev_previous = nev;
-Line 1725 
 Bool_t  PamLevel2::CheckLevel2File(TStri
+Line 2517 
 Bool_t  PamLevel2::CheckLevel2File(TStri
  //          return false;
  //      };
          if( !strcmp(key->GetName(),"Run"        ) )RUN__ok = true;
          //=========================================================
+         if( !strcmp(key->GetName(),"SelectionList"    ) ){
+             SELLI__ok = true;
+             if(SELLI==1){
+                 Int_t nevt = ((TTree*)f->Get("SelectionList"))->GetEntries();
+                 if( nev && nevt!=nev){
+                     cout << "File: "<< f->GetName() <<" discarded ---- SelectionList tree has "<<nevt<<" events instead of "<<nev<< endl;
+                     return false;
+                 }
+                 nev=nevt;
+             }
+         }
+         //=========================================================
          if( !strcmp(key->GetName(),"Trigger"    ) ){
              TRG__ok = true;
              if(TRG){
-Line 1839 
 Bool_t  PamLevel2::CheckLevel2File(TStri
+Line 2645 
 Bool_t  PamLevel2::CheckLevel2File(TStri
          };
      };
+     if( SELLI==-1 )SELLI = (Int_t)SELLI__ok;
+     if( SELLI==0 && SELLI__ok ){
+         cout << "File: "<< f->GetName() <<" discarded ---- found SelectionList (it is not a full-event file)" << endl;
+         return false;
+     }
+     if( SELLI==1 && !SELLI__ok ){
+         cout << "File: "<< f->GetName() <<" discarded ---- SelectionList missing" << endl;
+         return false;
+     }
+ //    cout << "SELLI "<<SELLI<<endl;
  //     cout<< "CheckLevel2File(TString): detector list --> ";
  //     if(TRK1__ok)cout<<"TRK1 ";
  //     if(TRK2__ok)cout<<"TRK2 ";
-Line 1948 
 void PamLevel2::CreateCloneTrees0( TChai
+Line 2766 
 void PamLevel2::CreateCloneTrees0( TChai
      cout << "Create clones of PAMELA trees "<<endl;
      Int_t i=0;
-     tree_clone[i] = fChain->GetTree()->CloneTree(0);
+     pam_tree_clone[i] = fChain->GetTree()->CloneTree(0);
-     TString name =  tree_clone[i]->GetName();
+     TString name =  pam_tree_clone[i]->GetName();
      name.Append("_clone");
- //    tree_clone[i]->SetName(name.Data());
+ //    pam_tree_clone[i]->SetName(name.Data());
-     cout << tree_clone[i]->GetName() <<endl;
+     cout << pam_tree_clone[i]->GetName() <<endl;
      i++;
      TList *li = fChain->GetListOfFriends();
-Line 1962 
 void PamLevel2::CreateCloneTrees0( TChai
+Line 2780 
 void PamLevel2::CreateCloneTrees0( TChai
      while( (T_friend = (TFriendElement*)next()) ){
  //      cout<<T_friend->IsA()->GetName()<<" "<<T_friend->GetName()<<hex << T_friend->GetTree() << dec<<endl;
  //      cout<<T_friend->GetTree()->GetName()<< endl;
-         tree_clone[i] = T_friend->GetTree()->CloneTree(0);
+         pam_tree_clone[i] = T_friend->GetTree()->CloneTree(0);
-         tree_clone[i]->SetAutoSave(1000000);
+         pam_tree_clone[i]->SetAutoSave(1000000);
-         name =  tree_clone[i]->GetName();
+         name =  pam_tree_clone[i]->GetName();
          name.Append("_clone");
- //      tree_clone[i]->SetName(name.Data());
+ //      pam_tree_clone[i]->SetName(name.Data());
-         cout << tree_clone[i]->GetName() << endl;
+         cout << pam_tree_clone[i]->GetName() << endl;
          i++;
      }
-Line 1982 
 void PamLevel2::CreateCloneTrees0( TChai
+Line 2800 
 void PamLevel2::CreateCloneTrees0( TChai
   */
  void PamLevel2::CreateCloneTrees(TFile *ofile){
+ //  if the pointer is null, create a default file
+     if(!ofile){
+         cout << "void PamLevel2::CreateCloneTrees(TFile*) -- WARNING -- Creating file: clone-tree.root "<<endl;
+         ofile = new TFile("clone-tree.root","recreate");
+     }
      ofile->cd();
      cout << "+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+" <<endl;
      cout << "Create new PAMELA trees "<<endl;
-     Int_t i=0;
+     run_tree_clone = new TTree("Run","PAMELA Level2 data from the GL_RUN table ");
+     run_tree_clone->Branch("RunInfo","GL_RUN",GetPointerTo("RunInfo"));
+     cout << "Run          : branch RunInfo"<<endl;
+     run_tree_clone->Branch("SoftInfo","SoftInfo",GetPointerTo("SoftInfo"));
+     cout << "Run          : branch SoftInfo"<<endl;
+     // ------------------
+     // replicate run tree
+     // ------------------
+     cout << "----------------------------------------------------"<<endl;
+     cout << "irun\t | RUN\t NEVENTS\t absolute time"<<endl;
+     for (Int_t i=0; i<run_tree->GetEntries(); i++){
+         run_tree->GetEntry(i);
+         cout << i<< "\t | "<<GetRunInfo()->ID<<"\t "<<GetRunInfo()->NEVENTS<< "\t "<<GetRunInfo()->RUNHEADER_TIME<<" <---> "<<GetRunInfo()->RUNTRAILER_TIME<<endl;
+         run_tree_clone->Fill();
+     }
+     cout << "----------------------------------------------------"<<endl;
+     sel_tree_clone = new TTree("SelectionList","List of selected events ");
+     sel_tree_clone->Branch("RunEntry",&irun,"runentry/L");
+     sel_tree_clone->Branch("EventEntry",&irunentry,"eventry/L");
+     Int_t i=0;
      if(TRK1||TRK2||TRKh){
-         tree_clone[i] = new TTree("Tracker","PAMELA tracker level2 data ");
+         pam_tree_clone[i] = new TTree("Tracker","PAMELA tracker level2 data ");
          if(TRK1) {
-             tree_clone[i]->Branch("TrkLevel1","TrkLevel1", GetPointerTo("TrkLevel1"));
+             pam_tree_clone[i]->Branch("TrkLevel1","TrkLevel1", GetPointerTo("TrkLevel1"));
-             tree_clone[i]->BranchRef();
+             pam_tree_clone[i]->BranchRef();
              cout << "Tracker      : branch TrkLevel1"<<endl;
+ //          cout << "CreateCloneTrees " << GetTrkLevel1()<<endl;
          };
          if(TRK2) {
-             tree_clone[i]->Branch("TrkLevel2", "TrkLevel2",GetPointerTo("TrkLevel2"));
+             pam_tree_clone[i]->Branch("TrkLevel2", "TrkLevel2",GetPointerTo("TrkLevel2"));
              cout << "Tracker      : branch TrkLevel2"<<endl;
          };
          if(TRKh) {
-             tree_clone[i]->Branch("TrkHough","TrkHough", GetPointerTo("TrkHough"));
+             pam_tree_clone[i]->Branch("TrkHough","TrkHough", GetPointerTo("TrkHough"));
              cout << "Tracker      : branch TrkHough"<<endl;
          };
          i++;
-Line 2009 
 void PamLevel2::CreateCloneTrees(TFile *
+Line 2859 
 void PamLevel2::CreateCloneTrees(TFile *
      // Calorimeter
      if(CAL1||CAL2){
-         tree_clone[i] = new TTree("Calorimeter","PAMELA calorimeter level2 data ");
+         pam_tree_clone[i] = new TTree("Calorimeter","PAMELA calorimeter level2 data ");
          if(CAL1) {
-             tree_clone[i]->Branch("CaloLevel1", "CaloLevel1", GetPointerTo("CaloLevel1"));
+             pam_tree_clone[i]->Branch("CaloLevel1", "CaloLevel1", GetPointerTo("CaloLevel1"));
              cout << "Calorimeter  : branch CaloLevel1"<<endl;
          };
          if(CAL2) {
-             tree_clone[i]->Branch("CaloLevel2","CaloLevel2", GetPointerTo("CaloLevel2"));
+             pam_tree_clone[i]->Branch("CaloLevel2","CaloLevel2", GetPointerTo("CaloLevel2"));
              cout << "Calorimeter  : branch CaloLevel2"<<endl;
          };
          i++;
-Line 2023 
 void PamLevel2::CreateCloneTrees(TFile *
+Line 2873 
 void PamLevel2::CreateCloneTrees(TFile *
      // ToF
      if(TOF) {
-         tree_clone[i] = new TTree("ToF","PAMELA ToF level2 data ");
+         pam_tree_clone[i] = new TTree("ToF","PAMELA ToF level2 data ");
-         tree_clone[i]->Branch("ToFLevel2","ToFLevel2", GetPointerTo("ToFLevel2"));
+         pam_tree_clone[i]->Branch("ToFLevel2","ToFLevel2", GetPointerTo("ToFLevel2"));
          cout << "ToF          : branch ToFLevel2"<<endl;
          i++;
      };
      // Trigger
      if(TRG) {
-         tree_clone[i] = new TTree("Trigger","PAMELA trigger level2 data ");
+         pam_tree_clone[i] = new TTree("Trigger","PAMELA trigger level2 data ");
-         tree_clone[i]->Branch("TrigLevel2","TrigLevel2", GetPointerTo("TrigLevel2"));
+         pam_tree_clone[i]->Branch("TrigLevel2","TrigLevel2", GetPointerTo("TrigLevel2"));
          cout << "Trigger      : branch TrigLevel2"<<endl;
          i++;
      };
      // S4
      if(S4) {
-         tree_clone[i] = new TTree("S4","PAMELA S4 level2 data ");
+         pam_tree_clone[i] = new TTree("S4","PAMELA S4 level2 data ");
-         tree_clone[i]->Branch("S4Level2","S4Level2", GetPointerTo("S4Level2"));
+         pam_tree_clone[i]->Branch("S4Level2","S4Level2", GetPointerTo("S4Level2"));
          cout << "S4           : branch S4Level2"<<endl;
          i++;
      };
      // Neutron Detector
      if(ND) {
-         tree_clone[i] = new TTree("NeutronD","PAMELA neutron detector level2 data ");
+         pam_tree_clone[i] = new TTree("NeutronD","PAMELA neutron detector level2 data ");
-         tree_clone[i]->Branch("NDLevel2","NDLevel2", GetPointerTo("NDLevel2"));
+         pam_tree_clone[i]->Branch("NDLevel2","NDLevel2", GetPointerTo("NDLevel2"));
          cout << "NeutronD     : branch NDLevel2"<<endl;
          i++;
      };
      // Anticounters
      if(AC) {
-         tree_clone[i] = new TTree("Anticounter","PAMELA anticounter detector level2 data ");
+         pam_tree_clone[i] = new TTree("Anticounter","PAMELA anticounter detector level2 data ");
-         tree_clone[i]->Branch("AcLevel2","AcLevel2", GetPointerTo("AcLevel2"));
+         pam_tree_clone[i]->Branch("AcLevel2","AcLevel2", GetPointerTo("AcLevel2"));
          cout << "Anticounter  : branch AcLevel2"<<endl;
          i++;
      };
      // OrbitalInfo
      if(ORB) {
-         tree_clone[i] = new TTree("OrbitalInfo","PAMELA oribital info  ");
+         pam_tree_clone[i] = new TTree("OrbitalInfo","PAMELA oribital info  ");
-         tree_clone[i]->Branch("OrbitalInfo","OrbitalInfo", GetPointerTo("OrbitalInfo"));
+         pam_tree_clone[i]->Branch("OrbitalInfo","OrbitalInfo", GetPointerTo("OrbitalInfo"));
          cout << "OrbitalInfo  : branch OrbitalInfo"<<endl;
          i++;
      };
-Line 2074 
 void PamLevel2::CreateCloneTrees(TFile *
+Line 2924 
 void PamLevel2::CreateCloneTrees(TFile *
   */
  //void PamLevel2::FillNewPamTree(TTree *T){
  void PamLevel2::FillCloneTrees(){
-     for(Int_t i=0; i<8; i++){
+ //    cout << "PamLevel2::FillCloneTrees()" << irunentry << endl;
-         if(tree_clone[i])tree_clone[i]->Fill();
+     for(Int_t i=0; i<NCLONES; i++){
+         if(pam_tree_clone[i])pam_tree_clone[i]->Fill();
      }
+     if(sel_tree_clone)sel_tree_clone->Fill();
  }
  TTree* PamLevel2::GetCloneTree(TString name){
-     for(Int_t i=0; i<8; i++){
+     for(Int_t i=0; i<NCLONES; i++){
-         if(tree_clone[i]){
+         if(pam_tree_clone[i]){
-             TString na = tree_clone[i]->GetName();
+             TString na = pam_tree_clone[i]->GetName();
-             if(!name.CompareTo(na))return tree_clone[i];
+             if(!name.CompareTo(na))return pam_tree_clone[i];
          };
      }
+     if(run_tree_clone){
+         TString na = run_tree_clone->GetName();
+         if(!name.CompareTo(na))return run_tree_clone;
+     }
+     if(sel_tree_clone){
+         TString na = sel_tree_clone->GetName();
+         if(!name.CompareTo(na))return sel_tree_clone;
+     }
      return NULL;
  }
  void PamLevel2::WriteCloneTrees(){
      cout << "+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+" <<endl;
      cout << "Write clones of PAMELA trees "<<endl;
-     for(Int_t i=0; i<8; i++){
+     cout << run_tree_clone->GetName()<<endl;
-         if(tree_clone[i]){
+     run_tree_clone->Write();
-             cout << tree_clone[i]->GetName()<<endl;
+     cout << sel_tree_clone->GetName()<<endl;
-             tree_clone[i]->Write();
+     sel_tree_clone->Write();
+     for(Int_t i=0; i<NCLONES; i++){
+         if(pam_tree_clone[i]){
+             cout << pam_tree_clone[i]->GetName()<<endl;
+             pam_tree_clone[i]->Write();
          };
      }
      cout << "+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+" <<endl;
-Line 2106 
 void PamLevel2::WriteCloneTrees(){
+Line 2972 
 void PamLevel2::WriteCloneTrees(){
  }
  /**
-  * Create a new (empty) Pamela trees
+  * Method to get level2-trees entry, the corresponding run entry and (if required) the level0 entry.
   */
- // TTree* PamLevel2::GetNewPamTree(){
+ //Int_t PamLevel2::GetEntry(Int_t iee){
+ Int_t PamLevel2::GetEntry(Long64_t iee){
+ //     cout << "-------------------------------------"<<endl;
+ //     cout << "Int_t PamLevel2::GetEntry("<<iee<<")"<<endl;
- //     if(tree_clone)return tree_clone;
+     if(!pam_tree){
+         cout << " Int_t PamLevel2::GetEntry(Int_t) -- ERROR -- level2 trees not loaded"<<endl;
+         return 0;
+     }
- //     TTree *Tout = 0;
+     //
- //     cout << "+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+" <<endl;
+     // This is a sort of bug: if you don't have the run tree you don't want to exit here you want to have loaded the event anyway...
- //     cout << "Create new PAMELA trees "<<endl;
+     //
+     //    if(!run_tree ){
+     //  cout << " Int_t PamLevel2::GetEntry(Int_t) -- ERROR -- run tree not loeaded"<<endl;
+     //  return 0;
+     //    }
+     Long64_t ii=0;
+     //-------------------------------
+     ii = iee;
+     if( !pam_tree->GetEntry(ii) ){
+         cout << " Int_t PamLevel2::GetEntry(Int_t) -- ERROR -- error reading pam tree"<<endl;
+         return 0;
+     }
+     //
+     // ... that's way I put it here. Notice that nothing change in the code (is backward compatible) since in any case you return with 0.
+     // in theory one would like to return 1 if run is not loaded but now I don't have the will to add that 2 lines of code and it is not
+     // a problem if you don't check the return code of getentry.
+     //
+     if(!run_tree ){
+         if ( TRK0 || CAL0 || TOF0 || RUN ) { //forse cosi` va bene per tornare 1?
+             cout << " Int_t PamLevel2::GetEntry(Int_t) -- ERROR -- run tree not loaded"<<endl;
+             return 0;
+         }  else {
+             return 1; //cosi` se non c'e` run esce qua...
+         }
+     }
+     //-------------------------------
+     ii = iee;
+ //    Bool_t UPDATED = UpdateRunInfo(run_tree,ii);
+ //    Bool_t UPDATED = UpdateRunInfo(ii);
+     UpdateRunInfo(ii);
+     if(SELLI==0)irunentry = iee-runfirstentry;
+ //    if(UPDATED && run_tree_clone)run_tree_clone->Fill();
+ //    cout << "PamLevel2::GetEntry("<<iee<<") "<<irun<<" "<<runfirstentry<<" "<<irunentry<<endl;
+ //     cout << "irunentry     "<<irunentry << endl;
+ //     cout << "runfirstentry "<<runfirstentry << endl;
+ //     cout << "nevents       "<<GetRunInfo()->NEVENTS<< endl;
+ //     if( TRK0 || CAL0 || TOF0 ){
+ //      if( !GetYodaEntry( ) ){
+ //          cout << " Int_t PamLevel2::GetEntry(Int_t) -- ERROR -- error reading level0 tree"<<endl;
+ //          return 0;
+ //      }
+ //     }
+     return 1;
+ }
+ TrkLevel0    *PamLevel2::GetTrkLevel0(){
+     if( !TRK0 )return NULL;
+     if( !GetYodaEntry( ) ){
+         cout << " Int_t PamLevel2::GetTrkLevel0() -- ERROR -- error reading level0 tree"<<endl;
+         return 0;
+     }
+     return trk0_obj;
+ };
+ CaloLevel0    *PamLevel2::GetCaloLevel0(){
+     if( !CAL0 )return NULL;
+     if( !GetYodaEntry( ) ){
+         cout << " Int_t PamLevel2::GetCaloLevel0() -- ERROR -- error reading level0 tree"<<endl;
+         return 0;
+     }
+     return calo0_obj;
+ };
+ /**
+  * Method to retrieve the level0 tree (YODA tree) that contains the current event.
+  * Given the run ID (...), if needed it query the DB and load the proper file.
+  * @return Pointer to the tree
+  */
+ TTree* PamLevel2::GetYodaTree( ){
+ //    cout << "TTree* PamLevel2::GetYodaTree( )"<<endl;
+     //===================================
+     // check if iroot has changed
+     //===================================
+     if( irun<0 ){
+         cout << "PamLevel2::GetYodaTree() -- ERROR -- irun = "<<irun<<endl;
+ //      cout << "In order to use this method you have to first load the RunInfo tree "<<endl;
+         return NULL;
+     }
+     Int_t irootnew = run_obj->ID_ROOT_L0;
+ //      cout << "iroot    "<<iroot<<endl;
+ //      cout << "irootnew "<<irootnew<<endl;
+     //===================================
+     // load the level0 file
+     // (if not already loaded)
+     //===================================
+     if( iroot != irootnew || !l0_tree){
+         iroot = irootnew;
+         //===================================
+         // open the DB connection
+         // (if not already opened)
+         //===================================
+         if(!dbc || (dbc && !dbc->IsConnected())){
+             cout<<"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"<<endl;
+             cout<<"Connecting to DB"<<endl;
+             cout<<"HOST "<<host<<endl;
+             cout<<"USER "<<user<<endl;
+             cout<<"PSW  "<<psw<<endl;
+             dbc = TSQLServer::Connect(host.Data(),user.Data(),psw.Data());
+             if( !dbc )return NULL;
+             if( !dbc->IsConnected() )return NULL;
+ //          cout<<"...done"<<endl;
+             cout<<"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"<<endl;
+         }else{
+ //          cout<<"DB already connected"<<endl;
+         }
+         GL_ROOT glroot = GL_ROOT();
+         if( glroot.Query_GL_ROOT(iroot,dbc) ){
+             cout << "TTree* PamLevel2::GetYodaTree( ) -- ERROR -- level0 file iroot = "<<iroot<< " does not exists"<<endl;
+             return NULL;
+         };
+         TString filename = glroot.PATH + glroot.NAME;
+         if(l0_file){
+             l0_file->Close();
+             l0_file->Delete();
+         }
+         cout << "Opening LEVEL0 file: "<< filename << endl;
+         FileStat_t t;
+         if( gSystem->GetPathInfo(filename.Data(),t) ){
+             cout << " PamLevel2::GetYodaTree() -- ERROR opening file "<<endl;
+             return NULL;
+         }
+         l0_file = new TFile(filename);
+         if( !l0_file )return NULL;
+         l0_tree = (TTree*)l0_file->Get("Physics");
+         if(!h0_obj)h0_obj = new EventHeader();
+         l0_tree->SetBranchAddress("Header" ,&h0_obj);
+         prevshift = 0;
+         //---------------------------------------------------
+         // TRACKER:
+         if(TRK0){
+             if(!trk0_obj){
+                 trk0_obj = new TrkLevel0();
+                 trk0_obj->Set();
+             };
+             l0_tree->SetBranchAddress("Tracker" ,trk0_obj->GetPointerToTrackerEvent());
+         }
+         //--------------------------------------------------
+         // CALORIMETER:
+         if(CAL0){
+             if(!calo0_obj){
+                 calo0_obj = new CaloLevel0();
+                 calo0_obj->Set();
+             };
+             l0_tree->SetBranchAddress("Calorimeter" ,calo0_obj->GetPointerToCalorimeterEvent());
+             //      cout << "PamLevel2::GetYodaTree() --- level0 calorimeter not implemented "<<endl;
+         }
+         //---------------------------------------------------
+         // TOF:
+         if(TOF0){
+             cout << "PamLevel2::GetYodaTree() --- level0 TOF not implemented "<<endl;
+         }
+     };
+     if(!dbc || (dbc && !dbc->IsConnected())){
+         cout << " TTree* PamLevel2::GetYodaTree( ) -- no DB connected... hai fatto qualche cazzata "<<endl;
+     }
+     if ( TRK0 ){
+         TrkParams::Load(6);
+         if( !TrkParams::IsLoaded(6) ){
+             cout << " TTree* PamLevel2::GetYodaTree( ) -- WARNING -- VK-mask not loaded"<<endl;
+         };
+         TrkParams::SetCalib(run_obj,dbc);
+         TrkParams::LoadCalib( );
+         if( !TrkParams::CalibIsLoaded() ){
+             cout << " TTree* PamLevel2::GetYodaTree( ) -- WARNING -- Calibration not loaded"<<endl;
+         };
+     }
+ //    cout << l0_tree << endl;
+     return l0_tree;
+ }
+ /**
+  * Method to retrieve the level0 tree (YODA tree) that contains the current event.
+  */
+ Int_t PamLevel2::GetYodaEntry(){
+ //    cout << "Int_t PamLevel2::GetYodaEntry()"<<endl;
+     if(!GetYodaTree())return 0;
- //     if(TRK1||TRK2||TRKh){
+     // patch
- //      TTree *T = new TTree("Tracker_clone","PAMELA tracker level2 data ");
+     if( irunentry < 0){
- //      if(TRK1) {
+ //      cout << "Int_t PamLevel2::GetYodaEntry() -- ATTENZIONE -- irunentry negativo?!?! "<<(Int_t)irunentry<<endl;
- //          trk1_clone = new TrkLevel1();
+         irunentry=0LL;
- //          T->Branch("TrkLevel1","TrkLevel1", &trk1_clone);
+     }
- //          T->BranchRef();
+     //  ---------------------------------
- //          cout << "Tracker      : branch TrkLevel1"<<endl;
+     //  if file is NOT a preselected file
- //      };
+     //  ---------------------------------
- //      if(TRK2) {
+     Long64_t quellagiusta = irunentry + (Long64_t)(run_obj->EV_FROM);
- //          trk2_clone = new TrkLevel2();
+ //     cout << " irunentry "<<irunentry<<endl;
- //          T->Branch("TrkLevel2", "TrkLevel2",&trk2_clone);
+ //     cout << " EV_FROM "<<run_obj->EV_FROM<<endl;
- //          cout << "Tracker      : branch TrkLevel2"<<endl;
+ //     cout << " quellagiusta = irunentry + EV_FROM "<< quellagiusta << endl;
- //      };
- //      if(TRKh) {
+ //     cout << " irun "<< irun << " irunentry "<< irunentry<<" run_obj->EV_FROM "<<run_obj->EV_FROM <<" quella giusta "<<quellagiusta << endl;
- //          trkh_clone = new TrkHough();
+ //     cout << " iroot "<<iroot<<" run_obj->ID_ROOT_L0 "<<run_obj->ID_ROOT_L0<<endl;
- //          T->Branch("TrkHough","TrkHough", &trkh_clone);
+ //     cout << " time "<< abstime << endl;
- //          cout << "Tracker      : branch TrkHough"<<endl;
+ //     cout << " trk_calib_used "<<run_obj->TRK_CALIB_USED<< endl;
- //      };
- //      if(!Tout)Tout=T;
+     ULong64_t obt     = 0;
- //      else Tout->AddFriend("Tracker_clone");
+     ULong64_t pktn    = 0;
- //     }
+     if( GetOrbitalInfo() ){
+         obt     = GetOrbitalInfo()->OBT;
+         pktn    = GetOrbitalInfo()->pkt_num;
+     }
- //     // Calorimeter
+     if( !GetOrbitalInfo() && !ISGP){
- //     if(CAL1||CAL2){
+         cout << "Int_t PamLevel2::GetYodaEntry() -- ERROR -- missing OrbitalInfo "<<endl;
- //      TTree *C = new TTree("Calorimeter_clone","PAMELA calorimeter level2 data ");
+         return 0;
- //      if(CAL1) {
+     }
- //          calo1_clone = new CaloLevel1();
+     if( obt==0 && pktn==0 && !ISGP ){
- //          C->Branch("CaloLevel1", "CaloLevel1", &calo1_clone);
+         cout << "Int_t PamLevel2::GetYodaEntry() -- ERROR -- level2 event corrupted ?? "<<endl;
- //          cout << "Calorimeter  : branch CaloLevel1"<<endl;
+         return 0;
- //      };
+     }
- //      if(CAL2) {
- //          calo2_clone = new CaloLevel2();
+     // ---------------------------------------------------------------------
- //          C->Branch("CaloLevel2","CaloLevel2", &calo2_clone);
+     // ATTENTION!!!
- //          cout << "Calorimeter  : branch CaloLevel2"<<endl;
+     // If data are not pre-processed with cleaner, the level0 tree may contain
- //      };
+     // spurious nested physics packets.
- //      if(!Tout)Tout=C;
+     // The GL_RUN variables EV_FROM, EV_TO and NEVENTS counts also these entries
- //      else Tout->AddFriend("Calorimeter_clone");
+     // while level2 tree DOES NOT!!
- //     }
+     // This means that "quellagiusta" in these cases is not correct.
+     // In order to retrieve the correct level0 event, I implemented a check
- //     // ToF
+     // of the OBT and pkt-number. In case of mismatch, the level0 entry number
- //     if(TOF) {
+     // is shift forward until when the packets match.
- //      TTree *O = new TTree("ToF_clone","PAMELA ToF level2 data ");
+     // ---------------------------------------------------------------------
- //      tof_clone = new ToFLevel2();
+     Int_t answer = 0;
- //      O->Branch("ToFLevel2","ToFLevel2", &tof_clone);
+     Int_t shift =0;
- //      cout << "ToF          : branch ToFLevel2"<<endl;
+     //    printf(" siamo qui %i %i \n",shift,prevshift);
- //      if(!Tout)Tout=O;
+     Int_t maxshift = 10;
- //      else Tout->AddFriend("ToF_clone");
+     do{
- //     };
+         if(shift>0){
- //     // Trigger
+             cout << " PKTNUM  L2 --- "<< pktn << " --- L0 --- "<< GetEventHeader()->GetPscuHeader()->GetCounter()<<endl;
- //     if(TRG) {
+             cout << "         RUN: ID "<< GetRunInfo()->ID << " ID_ROOT_L0 "<<run_obj->ID_ROOT_L0<<" ID_RUN_FRAG "<<GetRunInfo()->ID_RUN_FRAG << " EV_FROM "<<GetRunInfo()->EV_FROM  <<endl;
- //      TTree *R = new TTree("Trigger_clone","PAMELA trigger level2 data ");
+             cout << "         L2 <--> L0 mismatch ( irun "<<irun<<" irunentry "<<irunentry<<" shift "<<shift<<" prevshift "<<prevshift<<" )"<<endl;
- //      trig_clone = new TrigLevel2();
+         }
- //      R->Branch("TrigLevel2","TrigLevel2", &trig_clone);
+         answer = l0_tree->GetEntry(quellagiusta+(Long64_t)shift+(Long64_t)prevshift);
- //      cout << "Trigger      : branch TrigLevel2"<<endl;
+         shift++;
- //      if(!Tout)Tout=R;
+         if( !GetEventHeader() ){
- //      else Tout->AddFriend("Trigger_clone");
+             cout << "Int_t PamLevel2::GetYodaEntry() -- ERROR -- missing EventHeader "<<endl;
- //     };
+             return 0;
- //     // S4
+         }
- //     if(S4) {
- //      TTree *S = new TTree("S4_clone","PAMELA S4 level2 data ");
- //      s4_clone = new S4Level2();
- //      S->Branch("S4Level2","S4Level2", &s4_clone);
- //      cout << "S4           : branch S4Level2"<<endl;
- //      if(!Tout)Tout=S;
- //      else Tout->AddFriend("S4_clone");
- //     };
- //     // Neutron Detector
- //     if(ND) {
- //      TTree *N = new TTree("NeutronD_clone","PAMELA neutron detector level2 data ");
- //      nd_clone = new NDLevel2();
- //      N->Branch("NDLevel2","NDLevel2", &nd_clone);
- //      cout << "NeutronD     : branch NDLevel2"<<endl;
- //      if(!Tout)Tout=N;
- //      else Tout->AddFriend("NeutronD_clone");
- //     };
- //     // Anticounters
- //     if(AC) {
- //      TTree *A = new TTree("Anticounter_clone","PAMELA anticounter detector level2 data ");
- //      ac_clone = new AcLevel2();
- //      A->Branch("AcLevel2","AcLevel2", &ac_clone);
- //      cout << "Anticounter  : branch AcLevel2"<<endl;
- //      if(!Tout)Tout=A;
- //      else Tout->AddFriend("Anticounter_clone");
- //     };
- //     // OrbitalInfo
- //     if(ORB) {
- //      TTree *B = new TTree("OrbitalInfo_clone","PAMELA oribital info  ");
- //      orb_clone = new OrbitalInfo();
- //      B->Branch("OrbitalInfo","OrbitalInfo", &orb_clone);
- //      cout << "OrbitalInfo  : branch OrbitalInfo"<<endl;
- //      if(!Tout)Tout=B;
- //      else Tout->AddFriend("OrbitalInfo_clone");
- //     };
- //     cout << "+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+" <<endl;
- //     tree_clone = Tout;
+         if(ISGP){
- //     tree_clone->SetDirectory(0);
+             obt = (UInt_t)(GetEventHeader()->GetPscuHeader()->GetOrbitalTime()); //BARBATRUCCO
+             pktn = (UInt_t)(GetEventHeader()->GetPscuHeader()->GetCounter()); //BARBATRUCCO
+         }
- //     return Tout;
+ //      cout << "PKTNUM "<<shift<<" ==  L2 --- "<< pktn << " --- L0 --- "<< GetEventHeader()->GetPscuHeader()->GetCounter()<<endl;
- // }
+ //      cout << " L2 --- "<< obt << " --- L0 --- "<< GetEventHeader()->GetPscuHeader()->GetOrbitalTime()<<endl;
- // /**
+ //      if( (quellagiusta+shift) == l0_tree->GetEntries()+1 )cout << ">>> end of level0 tree <<<"<<endl;
- //  * Fill a tree (created with GetNewPamTree)
+ //      cout << " obt "<< obt << endl;
- //  *
+ //      cout << " GetEventHeader()->GetPscuHeader()->GetOrbitalTime() "<< GetEventHeader()->GetPscuHeader()->GetOrbitalTime() << endl;
- //  */
+ //      cout << " pktn "<< pktn << endl;
- // //void PamLevel2::FillNewPamTree(TTree *T){
+ //      cout << " GetEventHeader()->GetPscuHeader()->GetCounter() "<< GetEventHeader()->GetPscuHeader()->GetCounter() << endl;
- // void PamLevel2::FillNewPamTree(){
+ //      printf(" IDRUN %u \n",GetRunInfo()->ID);
+ //
+         if ( prevshift != 0 && (quellagiusta+(Long64_t)shift) == GetYodaTree()->GetEntries() ){
+           prevshift = 0;
+           shift = -1;
+         };
- //     if(trk1_clone)  *trk1_clone = *trk1_obj;
+     }while( ( obt != (UInt_t)(GetEventHeader()->GetPscuHeader()->GetOrbitalTime()) ||
- //     if(trk2_clone){
+               pktn != (UInt_t)(GetEventHeader()->GetPscuHeader()->GetCounter())       )
- //      trk2_clone->Clear();
+             && (quellagiusta+(Long64_t)shift) < GetYodaTree()->GetEntries() && shift < maxshift);
- //      trk2_obj->Copy(*trk2_clone);
- // //   *trk2_clone = *trk2_obj;
+     if ( (quellagiusta+(Long64_t)shift+(Long64_t)prevshift) > GetYodaTree()->GetEntries() || shift == maxshift ) {
- //     }
+         cout << " Big trouble here, no such event in Level0 data! " <<endl;
- //     if(trkh_clone)  *trkh_clone = *trkh_obj;
+         return 0;
- //     if(calo1_clone){
+     }
- // //   *calo1_clone = *calo1_obj;
+ //    cout << "LA ENTRY GIUSTA E`: "<<quellagiusta<<" (spero...)"<<endl;
- //      calo1_clone->Clear();
+ //    return GetYodaTree()->GetEntry(quellagiusta);
- //      calo1_obj->Copy(*calo1_clone);
+     if ( shift > 1 ) prevshift += (shift-1);
- //     }
- //     if(calo2_clone){
+     return answer;
- // //   *calo2_clone = *calo2_obj;
- //      calo2_clone->Clear();
+ }
- //      calo2_obj->Copy(*calo2_clone);
+ /**
- //     }
+  * \Brief Set DB connection
- //     if(tof_clone)   *tof_clone  = *tof_obj;
+  */
- //     if(trig_clone)  *trig_clone = *trig_obj;
+ Bool_t PamLevel2::SetDBConnection(){
- //     if(s4_clone)    *s4_clone   = *s4_obj;
- //     if(nd_clone)    *nd_clone   = *nd_obj;
+     cout<<"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"<<endl;
- //     if(ac_clone)    *ac_clone   = *ac_obj;
+     cout<<"Connecting to DB"<<endl;
- //     if(orb_clone)   *orb_clone  = *orb_obj;
+     cout<<"HOST "<<host<<endl;
+     cout<<"USER "<<user<<endl;
- //     TTree *T = tree_clone;
+     cout<<"PSW  "<<psw<<endl;
+     dbc = TSQLServer::Connect(host.Data(),user.Data(),psw.Data());
- //     T->Fill(); //fill main tree
+     if( !dbc )return false;
- // //    cout<<T->IsA()->GetName()<<" "<<T->GetName()<<endl;
+     if( !dbc->IsConnected() )return false;
- //     TList *li = T->GetListOfFriends();
+     cout<<"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"<<endl;
- //     TIter next(li);
+     return true;
- //     TFriendElement* T_friend=0;
- //     while( (T_friend = (TFriendElement*)next()) ){
- // //   cout<<T_friend->IsA()->GetName()<<" "<<T_friend->GetName()<<hex << T_friend->GetTree() << dec<<endl;
- //      T_friend->GetTree()->Fill();//fill friends
- //     }
- // }
+ }

 Legend:



Removed from v.1.16
 


changed lines


 
Added in v.1.43
 Legend:



Removed from v.1.16
 


changed lines


 
Added in v.1.43
-Removed from v.1.16
+Added in v.1.43

	ViewVC Help
Powered by ViewVC 1.1.23