--- PamelaLevel2/src/PamLevel2.cpp	2007/01/18 08:51:16	1.18
+++ PamelaLevel2/src/PamLevel2.cpp	2007/03/21 09:07:32	1.33
@@ -100,6 +100,11 @@
 //     nd_obj    = NDLevel2::GetNDLevel2();
 //     ac_obj    = AcLevel2::GetAcLevel2();
 //     orb_obj   = OrbitalInfo::GetOrbitalInfo();
+    
+    h0_obj    = 0;
+    trk0_obj  = 0;
+    calo0_obj  = 0;
+
     trk2_obj  = 0;
     trk1_obj  = 0;
     trkh_obj  = 0;
@@ -114,27 +119,61 @@
 
     run_obj   = 0;//new GL_RUN();
     soft_obj   = 0;// Emiliano
-    irun = -1;
-    runfirstentry = 0ULL;
-    runlastentry = 0ULL;
+    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;
-    TOF = true;
-    S4  = true;
-    ND  = true;
-    AC  = true;
-    ORB = true;
+    TRKh = false;
+    TRG  = true;
+    TOF  = true;
+    TOF0 = false;
+    S4   = true;
+    ND   = true;
+    AC   = true;
+    ORB  = true;
     
-    RUN = true;
+    RUN  = true;
+
+    SELLI = -1;
 
     tsorted=0;
     timage=0;
@@ -149,6 +188,9 @@
     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;
@@ -169,6 +211,21 @@
 	timage->Delete();
 	delete timage;
     }
+
+    if(dbc){ 
+	dbc->Close();
+	delete dbc;
+    }
+    
+    if(l0_file)l0_file->Close();
+    if(pam_tree)pam_tree->Delete();;
+    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();;
+    
+
 };
 
 /**
@@ -186,6 +243,9 @@
 //    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(h0_obj)   h0_obj->Clear();	
+//    if(trk0_obj) trk0_obj->Clear();	
+    if(calo0_obj) calo0_obj->Clear();	
     if(trk1_obj) trk1_obj->Clear();	
     if(trk2_obj) trk2_obj->Clear();
     if(trkh_obj) trkh_obj->Clear();
@@ -498,6 +558,7 @@
 		use_CAL            &&
 		calo2_obj->npcfit[1] > 15     &&   //no. of fit planes on Y view
 		calo2_obj->varcfit[1] < 1000. &&  //fit variance on Y view
+		cp && ci &&
 		true){
 
 		
@@ -519,7 +580,7 @@
 		cout << "void PamLevel2::SortTracks(TString how): how= "<<how<<" but ToFLevel2 not loaded !!!";
 		return;
 	    };
-	    if( use_TOF ){
+	    if( use_TOF && op && oi ){
 		
 		Int_t nphit_p =0;
 		Int_t nphit_i =0;
@@ -775,6 +836,9 @@
 
 //     if( !detlist.IsNull() ) SetWhichTrees(detlist);
 //     else                    GetWhichTrees(f);
+    
+    cout << "TTree *PamLevel2::GetPamTree(TFile *f, TString detlist ) -- obsolte "<<endl;
+
     SetWhichTrees(detlist);
 
     TTree *Trout =0;
@@ -782,7 +846,7 @@
     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 ";
@@ -797,6 +861,7 @@
     if(S4)cout<<"S4 ";
     if(ORB)cout<<"ORB ";
     cout << endl;
+    if(SELLI)cout<<">>> Found selection-list <<<"<<endl;
 
     f->cd();
 
@@ -804,13 +869,13 @@
     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);
@@ -821,10 +886,10 @@
     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);
@@ -892,8 +957,24 @@
     }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;
     
@@ -932,6 +1013,7 @@
 // 	    return 0;
 // 	}	
 // 	flisttxt = fullpath;
+      if ( !flisttxt.EndsWith(".root") ){
 
 	flisttxt = gSystem->ConcatFileName(gSystem->DirName(flisttxt),gSystem->BaseName(flisttxt));
 
@@ -963,15 +1045,21 @@
 //	    cout <<"(2) " << file << endl;
 //	    if( gSystem->IsFileInIncludePath(file,&fullpath) ){
 //	    if( (fullpath = gSystem->FindFile(ddir,file)) ){
-	    char *fullpath = gSystem->ConcatFileName(gSystem->DirName(ddir),gSystem->BaseName(file));
-	    contents->Add(new TSystemFile(fullpath,gSystem->DirName(fullpath)));// add file to the list
-	    delete fullpath;
+	    if( file.EndsWith(".root") ){
+		char *fullpath = gSystem->ConcatFileName(gSystem->DirName(ddir),gSystem->BaseName(file));
+		contents->Add(new TSystemFile(fullpath,gSystem->DirName(fullpath)));// add file to the list
+		delete fullpath;
+	    }
 //	    }else{
 //		if(file.Data()!="")cout << "File: "<<file<<" ---> missing "<< endl;
 //	    };
 	};
 	in.close();
-	
+      } else {
+	  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;
@@ -1049,6 +1137,8 @@
     TChain *N = 0;
     TChain *A = 0;
     TChain *B = 0;
+
+    TChain *L = 0;
     
     if(TRK2||TRK1||TRKh) T = new TChain("Tracker");	
     if(CAL2||CAL1)       C = new TChain("Calorimeter");
@@ -1058,6 +1148,8 @@
     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);
@@ -1074,22 +1166,23 @@
 	    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";
 
-    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");
@@ -1099,10 +1192,10 @@
     // 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");
@@ -1163,55 +1256,26 @@
     }else{
 	cout << "OrbitalInfo  : missing tree"<<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");
+    }else{
+//	cout << "SelectionList  : missing tree"<<endl;
+	if(L)L->Delete();
+    };
     
 //    cout<<endl<<" Number of entries: "<<Trout->GetEntries()<<endl<<endl;
 
-    
-//     // 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 );
-    
+    pam_tree = Trout;
+
     return Trout;
 }
 
@@ -1293,6 +1357,13 @@
 	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;
+    };
     
 }
 /**
@@ -1366,6 +1437,13 @@
 	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;
+    };
     
 }
 
@@ -1393,12 +1471,20 @@
 	    R->Add(name);
 	};
     }
+
+    if(R->GetNtrees()){
     
-    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
-    
+	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
+    }else{
+	delete R;
+	R=0;
+    }
+
+    run_tree = R;
+
     return R;
     
 }
@@ -1413,14 +1499,19 @@
  */
 TTree *PamLevel2::GetRunTree(TFile *f){
 
+    cout << "TTree *PamLevel2::GetRunTree(TFile *f) -- obsolte "<<endl;
 
     TTree *R = (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
-    
+    if(R){
+	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
+    }
+
+    run_tree = (TChain*)R;
+
     return R;
     
 }
@@ -1429,40 +1520,186 @@
  * @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, ULong64_t iev){
+Bool_t PamLevel2::UpdateRunInfo(TChain *run, Long64_t iev){
   //
   // check if we have already called once GetEntry, if not call it
   //
   if ( run->GetEntries() <= 0 ) return(false);
   //
-  Int_t oldrun = irun;
-  if ( irun < 0 ){
-    irun = 0;
-    run->GetEntry(0);
-    runfirstentry = 0ULL;
-    runlastentry += (ULong64_t)(this->GetRunInfo()->NEVENTS) - 1ULL;
-  };
-  while ( iev > (runfirstentry+(ULong64_t)(this->GetRunInfo()->NEVENTS-1)) && irun < run->GetEntries() ){
-    //    printf(" iev %llu %u %llu \n",iev,this->GetRunInfo()->NEVENTS,(ULong64_t)(runfirstentry+(ULong64_t)(this->GetRunInfo()->NEVENTS)));
-    irun++;
-    run->GetEntry(irun);
-    runfirstentry = runlastentry+1ULL;
-    runlastentry += (ULong64_t)(this->GetRunInfo()->NEVENTS);
+  
+//  Int_t oldrun = irun;
+  Long64_t oldrun = irun;
+  // --------------------------------------
+  // if it is a full file (not preselected)
+  // --------------------------------------
+  if(SELLI==0){
+
+      if( !GetOrbitalInfo() ){
+	  cout << "Bool_t PamLevel2::UpdateRunInfo(TChain *run, ULong64_t iev) -- ERROR -- missing OrbitalInfo "<<endl;
+	  return(false);
+      }
+
+      if ( irun < 0 ){
+	  irun = 0;
+	  run->GetEntry(irun);
+ 	  runfirstentry = 0LL;
+ 	  runlastentry += (Long64_t)(this->GetRunInfo()->NEVENTS);
+ 	  if ( (Long64_t)(this->GetRunInfo()->NEVENTS) > 0LL ) runlastentry -= 1LL;
+// 	  cout << " ))))) UPDATE RUN INFO (((((  @iev "<<iev<<" run "<<GetRunInfo()->ID<<" irun "<<irun<<endl;
+// 	  cout << "runfirstentry "<<runfirstentry<<endl;
+// 	  return(true); 
+      };      
+
+      // modificato il controllo sull'aggiornamento del run, per evitare problemi
+      // dovuti agli eventi annidati (NB! NEVENTS conta anche questi!!)
+      //
+      bool fromfirst = true;
+      //
+      while ( !(GetOrbitalInfo()->absTime >= GetRunInfo()->RUNHEADER_TIME && GetOrbitalInfo()->absTime <= GetRunInfo()->RUNTRAILER_TIME) && irun < run->GetEntries()-1 ){
+//      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",GetOrbitalInfo()->absTime,GetRunInfo()->RUNTRAILER_TIME);
+	  //	  printf(" IDRUN %u \n",GetRunInfo()->ID);
+	  //
+// 	  prevshift = 0;
+	  //
+	  if ( irun == run->GetEntries()-1 && fromfirst && !(GetOrbitalInfo()->absTime >= GetRunInfo()->RUNHEADER_TIME && GetOrbitalInfo()->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 ( !fromfirst && 
+	   !(GetOrbitalInfo()->absTime >= GetRunInfo()->RUNHEADER_TIME && 
+	     GetOrbitalInfo()->absTime <= GetRunInfo()->RUNTRAILER_TIME) 
+	  ) {
+	  printf(" Something very wrong here: cannot find RUN containing absolute time %u \n",GetOrbitalInfo()->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 ( 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);
-  //
-  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);
+      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(ULong64_t iev){
+//   //
+//   // check if we have already called once GetEntry, if not call it
+//   //
+//     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;
+//   // --------------------------------------
+//   // if it is a full file (not preselected)
+//   // --------------------------------------
+//   if(SELLI==0){
+
+//       if( !GetOrbitalInfo() ){
+// 	  cout << "Bool_t PamLevel2::UpdateRunInfo(TChain *run, ULong64_t iev) -- ERROR -- missing OrbitalInfo "<<endl;
+// 	  return(false);
+//       }
+
+//       if ( irun < 0 ){
+// 	  irun = 0;
+// 	  run_tree->GetEntry(irun);
+// 	  runfirstentry = iev;
+// 	  if( iev != 0){
+// 	      cout << "Bool_t PamLevel2::UpdateRunInfo(TChain *run, ULong64_t iev) -- WARNING -- "<<endl; 
+// 	  }
+//       };      
+
+//       bool fromfirst = true;
+
+//       while ( !(GetOrbitalInfo()->absTime >= GetRunInfo()->RUNHEADER_TIME && GetOrbitalInfo()->absTime <= GetRunInfo()->RUNTRAILER_TIME) && irun < run->GetEntries() ){
+// 	  irun++;
+// 	  if( irun == run->GetEntries() ){
+// 	      if(!fromfirst){
+// 		  cout << "Bool_t PamLevel2::UpdateRunInfo(TChain *run, ULong64_t iev) -- ERROR -- event entry #"<<iev<<" does not belong to any run (should not happen)" <<endl;
+// 		  return false;
+// 	      }
+// 	      cout << "Bool_t PamLevel2::UpdateRunInfo(TChain *run, ULong64_t iev) -- ERROR -- reached end of run tree. searchin again from beginning (should not happen)" <<endl;
+// 	      fromfirst = false;
+// 	      irun =0;
+// 	  }
+// 	  run_tree->GetEntry(irun);
+// 	  runfirstentry = iev;
+//       };
+//       //
+//       if ( irun == oldrun ) return(false);
+//       //
+//       cout << " ))))) UPDATE RUN INFO (((((  @iev "<<iev<<" run "<<GetRunInfo()->ID<<" irun "<<irun<<endl;
+//       cout << "runfirstentry "<<runfirstentry<<endl;
+//       prevshift = 0;
+//       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);
+//       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;
+//   //
+// };
 /**
  * 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, ULong64_t iev){
+Bool_t PamLevel2::UpdateRunInfo(TTree *run, Long64_t iev){
   return(UpdateRunInfo((TChain*)run,iev));
 };
 
@@ -1477,25 +1714,31 @@
 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;
@@ -1507,6 +1750,11 @@
 	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;
@@ -1519,6 +1767,11 @@
 	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;
@@ -1547,6 +1800,9 @@
     
     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;
@@ -1581,7 +1837,10 @@
  * 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
     // -----------
@@ -1753,7 +2012,7 @@
     
     Bool_t RUN__ok    = false;
     
-    
+    Bool_t SELLI__ok  = false;
 
     cout << "Checking file: "<<name<<endl;
     TFile *f = new TFile(name.Data());
@@ -1770,6 +2029,7 @@
 
     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;
@@ -1780,9 +2040,23 @@
 // 	    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){
@@ -1894,7 +2168,19 @@
 	};	
 
     };
+
+    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 ";
@@ -2003,11 +2289,11 @@
     cout << "Create clones of PAMELA trees "<<endl;
     
     Int_t i=0;
-    tree_clone[i] = fChain->GetTree()->CloneTree(0);
-    TString name =  tree_clone[i]->GetName();
+    pam_tree_clone[i] = fChain->GetTree()->CloneTree(0);
+    TString name =  pam_tree_clone[i]->GetName();
     name.Append("_clone");
-//    tree_clone[i]->SetName(name.Data());
-    cout << tree_clone[i]->GetName() <<endl;
+//    pam_tree_clone[i]->SetName(name.Data());
+    cout << pam_tree_clone[i]->GetName() <<endl;
     i++;
 
     TList *li = fChain->GetListOfFriends();
@@ -2017,12 +2303,12 @@
     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);
-	tree_clone[i]->SetAutoSave(1000000);
-	name =  tree_clone[i]->GetName();
+	pam_tree_clone[i] = T_friend->GetTree()->CloneTree(0);
+	pam_tree_clone[i]->SetAutoSave(1000000);
+	name =  pam_tree_clone[i]->GetName();
 	name.Append("_clone");
-//	tree_clone[i]->SetName(name.Data());
-	cout << tree_clone[i]->GetName() << endl;
+//	pam_tree_clone[i]->SetName(name.Data());
+	cout << pam_tree_clone[i]->GetName() << endl;
 	i++;
     }
     
@@ -2042,21 +2328,35 @@
     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;
+	    
+
+
+    sel_tree_clone = new TTree("SelectionList","List of selected events ");
+    sel_tree_clone->Branch("RunEntry",&irun,"runentry/I");
+    sel_tree_clone->Branch("EventEntry",&irunentry,"eventry/I");
+    
+
+    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"));
-	    tree_clone[i]->BranchRef();
+	    pam_tree_clone[i]->Branch("TrkLevel1","TrkLevel1", GetPointerTo("TrkLevel1"));
+	    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++;
@@ -2064,13 +2364,13 @@
 
     // 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++;
@@ -2078,43 +2378,43 @@
 
     // ToF    
     if(TOF) {
-	tree_clone[i] = new TTree("ToF","PAMELA ToF level2 data ");	
-	tree_clone[i]->Branch("ToFLevel2","ToFLevel2", GetPointerTo("ToFLevel2"));
+	pam_tree_clone[i] = new TTree("ToF","PAMELA ToF level2 data ");	
+	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 ");	
-	tree_clone[i]->Branch("TrigLevel2","TrigLevel2", GetPointerTo("TrigLevel2"));
+	pam_tree_clone[i] = new TTree("Trigger","PAMELA trigger level2 data ");	
+	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 ");	
-	tree_clone[i]->Branch("S4Level2","S4Level2", GetPointerTo("S4Level2"));
+	pam_tree_clone[i] = new TTree("S4","PAMELA S4 level2 data ");	
+	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 ");	
-	tree_clone[i]->Branch("NDLevel2","NDLevel2", GetPointerTo("NDLevel2"));
+	pam_tree_clone[i] = new TTree("NeutronD","PAMELA neutron detector level2 data ");	
+	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 ");	
-	tree_clone[i]->Branch("AcLevel2","AcLevel2", GetPointerTo("AcLevel2"));
+	pam_tree_clone[i] = new TTree("Anticounter","PAMELA anticounter detector level2 data ");	
+	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  ");	
-	tree_clone[i]->Branch("OrbitalInfo","OrbitalInfo", GetPointerTo("OrbitalInfo"));
+	pam_tree_clone[i] = new TTree("OrbitalInfo","PAMELA oribital info  ");	
+	pam_tree_clone[i]->Branch("OrbitalInfo","OrbitalInfo", GetPointerTo("OrbitalInfo"));
 	cout << "OrbitalInfo  : branch OrbitalInfo"<<endl;
 	i++;
     };
@@ -2129,31 +2429,47 @@
  */
 //void PamLevel2::FillNewPamTree(TTree *T){
 void PamLevel2::FillCloneTrees(){
-        
-    for(Int_t i=0; i<8; i++){
-	if(tree_clone[i])tree_clone[i]->Fill();
+    
+//    cout << "PamLevel2::FillCloneTrees()" << irunentry << endl;
+
+    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++){	
-	if(tree_clone[i]){
-	    TString na = tree_clone[i]->GetName();
-	    if(!name.CompareTo(na))return tree_clone[i];
+    for(Int_t i=0; i<NCLONES; i++){	
+	if(pam_tree_clone[i]){
+	    TString na = pam_tree_clone[i]->GetName();
+	    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++){	
-	if(tree_clone[i]){
-	    cout << tree_clone[i]->GetName()<<endl;
-	    tree_clone[i]->Write();
+    cout << run_tree_clone->GetName()<<endl;    
+    run_tree_clone->Write();
+    cout << sel_tree_clone->GetName()<<endl;    
+    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;
@@ -2161,160 +2477,257 @@
 }
 
 /**
- * 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){
+    
+    if(!pam_tree){
+	cout << " Int_t PamLevel2::GetEntry(Int_t) -- ERROR -- level2 trees not loaded"<<endl;
+	return 0;
+    }
+
+
+    //
+    // 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...
+    //
+    //    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);
+    if(SELLI==0)irunentry = iee-runfirstentry;
+    if(UPDATED && run_tree_clone)run_tree_clone->Fill();
+
+//    cout << "PamLevel2::GetEntry("<<iee<<") "<<irun<<" "<<runfirstentry<<" "<<irunentry<<endl;
 
-//     if(tree_clone)return tree_clone;
+    if( TRK0 || CAL0 || TOF0 )GetYodaEntry( );
 
-//     TTree *Tout = 0;
+    return 1;
+
+}
+
+/**
+ * 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 "<<endl;
+	cout << "In order to use this method you have to load the RunInfo tree "<<endl;
+	cout << "with the method TChain* PamLevel2::GetRunTree(TString, TString)"<<endl;
+//	cout << " - read the event with PamLevel2::GetEntry(Int_t)"<<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;
     
-//     cout << "+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+" <<endl;
-//     cout << "Create new PAMELA trees "<<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;
     
+    // patch
+    if( irunentry < 0){
+	cout << "Int_t PamLevel2::GetYodaEntry() -- ATTENZIONE -- irunentry negativo?!?! "<<(Int_t)irunentry<<endl;
+	irunentry=0LL;
+    }
+    //  ---------------------------------
+    //  if file is NOT a preselected file
+    //  ---------------------------------
+    Long64_t quellagiusta = irunentry + (Long64_t)(run_obj->EV_FROM);
     
-//     if(TRK1||TRK2||TRKh){
-// 	TTree *T = new TTree("Tracker_clone","PAMELA tracker level2 data ");	
-// 	if(TRK1) {
-// 	    trk1_clone = new TrkLevel1();
-// 	    T->Branch("TrkLevel1","TrkLevel1", &trk1_clone);
-// 	    T->BranchRef();
-// 	    cout << "Tracker      : branch TrkLevel1"<<endl;
-// 	};
-// 	if(TRK2) {
-// 	    trk2_clone = new TrkLevel2();
-// 	    T->Branch("TrkLevel2", "TrkLevel2",&trk2_clone);
-// 	    cout << "Tracker      : branch TrkLevel2"<<endl;	    
-// 	};
-// 	if(TRKh) {
-// 	    trkh_clone = new TrkHough();
-// 	    T->Branch("TrkHough","TrkHough", &trkh_clone);
-// 	    cout << "Tracker      : branch TrkHough"<<endl;
-// 	};
-// 	if(!Tout)Tout=T;
-// 	else Tout->AddFriend("Tracker_clone");
-//     }
 
-//     // Calorimeter
-//     if(CAL1||CAL2){
-// 	TTree *C = new TTree("Calorimeter_clone","PAMELA calorimeter level2 data ");	
-// 	if(CAL1) {
-// 	    calo1_clone = new CaloLevel1();
-// 	    C->Branch("CaloLevel1", "CaloLevel1", &calo1_clone);
-// 	    cout << "Calorimeter  : branch CaloLevel1"<<endl;
-// 	};
-// 	if(CAL2) {
-// 	    calo2_clone = new CaloLevel2();
-// 	    C->Branch("CaloLevel2","CaloLevel2", &calo2_clone);
-// 	    cout << "Calorimeter  : branch CaloLevel2"<<endl;
-// 	};
-// 	if(!Tout)Tout=C;
-// 	else Tout->AddFriend("Calorimeter_clone");
-//     }    
-
-//     // ToF    
-//     if(TOF) {
-// 	TTree *O = new TTree("ToF_clone","PAMELA ToF level2 data ");	
-// 	tof_clone = new ToFLevel2();
-// 	O->Branch("ToFLevel2","ToFLevel2", &tof_clone);
-// 	cout << "ToF          : branch ToFLevel2"<<endl;
-// 	if(!Tout)Tout=O;
-// 	else Tout->AddFriend("ToF_clone");
-//     };
-//     // Trigger
-//     if(TRG) {
-// 	TTree *R = new TTree("Trigger_clone","PAMELA trigger level2 data ");	
-// 	trig_clone = new TrigLevel2();
-// 	R->Branch("TrigLevel2","TrigLevel2", &trig_clone);
-// 	cout << "Trigger      : branch TrigLevel2"<<endl;
-// 	if(!Tout)Tout=R;
-// 	else Tout->AddFriend("Trigger_clone");
-//     };
-//     // 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;
+//     cout << " irun "<< irun << " irunentry "<< irunentry<<" run_obj->EV_FROM "<<run_obj->EV_FROM <<" quella giusta "<<quellagiusta << endl;
+//     cout << " iroot "<<iroot<<" run_obj->ID_ROOT_L0 "<<run_obj->ID_ROOT_L0<<endl;
+//     cout << " time "<< GetOrbitalInfo()->absTime << endl;
+//     cout << " trk_calib_used "<<run_obj->TRK_CALIB_USED<< endl;
+    
+    if( !GetOrbitalInfo() ){
+	cout << "Int_t PamLevel2::GetYodaEntry() -- ERROR -- missing OrbitalInfo "<<endl;
+	return 0;
+    }
+
+    // ---------------------------------------------------------------------
+    // ATTENTION!!!
+    // If data are not pre-processed with cleaner, the level0 tree may contain
+    // spurious nested physics packets.
+    // The GL_RUN variables EV_FROM, EV_TO and NEVENTS counts also these entries
+    // 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
+    // of the OBT and pkt-number. In case of mismatch, the level0 entry number
+    // is shift forward until when the packets match.
+    // ---------------------------------------------------------------------
+    Int_t answer = 0;
+    Int_t shift =0;
+    //    printf(" siamo qui %i %i \n",shift,prevshift);
+    do{
+	if(shift>0){	 
+	    cout << " level0 <--> level2 mismatch ( irun "<<irun<<" irunentry "<<irunentry<<" shift "<<shift<<" prevshift "<<prevshift<<" )"<<endl;
+	}
+	answer = l0_tree->GetEntry(quellagiusta+(Long64_t)shift+(Long64_t)prevshift);
+	shift++;
+	if( !GetEventHeader() ){
+	    cout << "Int_t PamLevel2::GetYodaEntry() -- ERROR -- missing EventHeader "<<endl;
+	    return 0;
+	}
+	cout << "PKTNUM "<<shift<<" ==  L2 --- "<< GetOrbitalInfo()->pkt_num << " --- L0 --- "<< GetEventHeader()->GetPscuHeader()->GetCounter()<<endl;
+//	cout << " L2 --- "<< GetOrbitalInfo()->OBT << " --- L0 --- "<< GetEventHeader()->GetPscuHeader()->GetOrbitalTime()<<endl;
+// 	if( (quellagiusta+shift) == l0_tree->GetEntries()+1 )cout << ">>> end of level0 tree <<<"<<endl; 
+// 	cout << " GetOrbitalInfo()->OBT "<< GetOrbitalInfo()->OBT << endl;
+// 	cout << " GetEventHeader()->GetPscuHeader()->GetOrbitalTime() "<< GetEventHeader()->GetPscuHeader()->GetOrbitalTime() << endl;
+// 	cout << " GetOrbitalInfo()->pkt_num "<< GetOrbitalInfo()->pkt_num << endl;
+// 	cout << " GetEventHeader()->GetPscuHeader()->GetCounter() "<< GetEventHeader()->GetPscuHeader()->GetCounter() << endl;
+//	printf(" IDRUN %u \n",GetRunInfo()->ID);
+//
+	if ( prevshift != 0 && (quellagiusta+(Long64_t)shift) == GetYodaTree()->GetEntries() ){
+	  prevshift = 0;
+	  shift = -1;
+	};
 
-//     tree_clone = Tout;
-//     tree_clone->SetDirectory(0);
+    }while( ( GetOrbitalInfo()->OBT != (UInt_t)(GetEventHeader()->GetPscuHeader()->GetOrbitalTime()) || GetOrbitalInfo()->pkt_num != (UInt_t)(GetEventHeader()->GetPscuHeader()->GetCounter())) && (quellagiusta+(Long64_t)shift) < GetYodaTree()->GetEntries() );
 
-//     return Tout;
-// }
-// /**
-//  * Fill a tree (created with GetNewPamTree)
-//  *
-//  */
-// //void PamLevel2::FillNewPamTree(TTree *T){
-// void PamLevel2::FillNewPamTree(){
-        
+    if ( (quellagiusta+(Long64_t)shift) == GetYodaTree()->GetEntries() ) cout << " Big trouble here, no such event in Level0 data! " <<endl;
+
+//    cout << "LA ENTRY GIUSTA E`: "<<quellagiusta<<" (spero...)"<<endl;
+//    return GetYodaTree()->GetEntry(quellagiusta);
+    if ( shift > 1 ) prevshift += (shift-1);
+    
+    return answer;
+    
+}
 
-//     if(trk1_clone)  *trk1_clone = *trk1_obj;
-//     if(trk2_clone){
-// 	trk2_clone->Clear();
-// 	trk2_obj->Copy(*trk2_clone);
-// //	*trk2_clone = *trk2_obj;
-//     }
-//     if(trkh_clone)  *trkh_clone = *trkh_obj;
-//     if(calo1_clone){
-// //	*calo1_clone = *calo1_obj;
-// 	calo1_clone->Clear();
-// 	calo1_obj->Copy(*calo1_clone);
-//     }
-//     if(calo2_clone){
-// //	*calo2_clone = *calo2_obj;
-// 	calo2_clone->Clear();
-// 	calo2_obj->Copy(*calo2_clone);
-//     }
-//     if(tof_clone)   *tof_clone  = *tof_obj;
-//     if(trig_clone)  *trig_clone = *trig_obj;
-//     if(s4_clone)    *s4_clone   = *s4_obj;
-//     if(nd_clone)    *nd_clone   = *nd_obj;
-//     if(ac_clone)    *ac_clone   = *ac_obj;
-//     if(orb_clone)   *orb_clone  = *orb_obj;
-
-//     TTree *T = tree_clone;
-
-//     T->Fill(); //fill main tree
-// //    cout<<T->IsA()->GetName()<<" "<<T->GetName()<<endl;
-//     TList *li = T->GetListOfFriends();
-//     TIter next(li);
-//     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
-//     }
 
-// }