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

Diff of /PamelaLevel2/src/PamLevel2.cpp

Parent Directory | Revision Log | View Patch Patch

-revision 1.28 by mocchiut,
Sat Mar 17 07:44:24 2007 UTC
+revision 1.58 by pam-fi,
Tue Nov 27 19:34:08 2007 UTC
 Line 1
  #include <PamLevel2.h>
+ /////////////////////////////////////////////////////////////////////////////
+ /////////////////////////////////////////////////////////////////////////////
+ /////////////////////////////////////////////////////////////////////////////
+ /////////////////////////////////////////////////////////////////////////////
+ void GPamela::Clear(){
+     Irun   = 0;
+     Ievnt  = 0;
+     Ipa    = 0;
+     X0     = 0.;
+     Y0     = 0.;
+     Z0     = 0.;
+     Theta  = 0.;
+     Phi    = 0.;
+     P0     = 0.;
+     Nthtof  = 0;
+     Nthcat  = 0;
+     Nthcas  = 0;
+     Nthspe  = 0;
+     Nstrpx  = 0;
+     Nstrpy  = 0;
+     Nthcali = 0;
+     Nthcal  = 0;
+     Nthnd   = 0;
+     Nthcard = 0;
+ }
+ void GPamela::Delete(){
+     Clear();
+     delete []    Ipltof;
+     delete []    Ipaddle;
+     delete []    Ipartof;
+     delete []    Xintof;
+     delete []    Yintof;
+     delete []    Zintof;
+     delete []    Xouttof;
+     delete []    Youttof;
+     delete []    Zouttof;
+     delete []    Ereltof;
+     delete []    Timetof;
+     delete []    Pathtof;
+     delete []    P0tof;
+     delete []    Iparcat;
+     delete []    Icat;
+     delete []    Xincat;
+     delete []    Yincat;
+     delete []    Zincat;
+     delete []    Xoutcat;
+     delete []    Youtcat;
+     delete []    Zoutcat;
+     delete []    Erelcat;
+     delete []    Timecat;
+     delete []    Pathcat;
+     delete []    P0cat;
+     delete []    Iparcas;
+     delete []    Icas;
+     delete []    Xincas;
+     delete []    Yincas;
+     delete []    Zincas;
+     delete []    Xoutcas;
+     delete []    Youtcas;
+     delete []    Zoutcas;
+     delete []    Erelcas;
+     delete []    Timecas;
+     delete []    Pathcas;
+     delete []    P0cas;
+     delete []    Iparspe;
+     delete []    Itrpb;
+     delete []    Itrsl;
+     delete []    Itspa;
+     delete []    Xinspe;
+     delete []    Yinspe;
+     delete []    Zinspe;
+     delete []    Xoutspe;
+     delete []    Youtspe;
+     delete []    Zoutspe;
+     delete []    Xavspe;
+     delete []    Yavspe;
+     delete []    Zavspe;
+     delete []    Erelspe;
+     delete []    Pathspe;
+     delete []    P0spe;
+     delete []    Nxmult;
+     delete []    Nymult;
+     delete []    Npstripx;
+     delete []    Ntstripx;
+     delete []    Istripx;
+     delete []    Qstripx;
+     delete []    Xstripx;
+     delete []    Npstripy;
+     delete []    Ntstripy;
+     delete []    Istripy;
+     delete []    Qstripy;
+     delete []    Ystripy;
+     delete []    Icaplane;
+     delete []    Icastrip;
+     delete []    Icamod;
+     delete []    Enestrip;
+     delete []    Icapl;
+     delete []    Icasi;
+     delete []    Icast;
+     delete []    Xincal;
+     delete []    Yincal;
+     delete []    Zincal;
+     delete []    Erelcal;
+     delete []    Itubend;
+     delete []    Iparnd;
+     delete []    Xinnd;
+     delete []    Yinnd;
+     delete []    Zinnd;
+     delete []    Xoutnd;
+     delete []    Youtnd;
+     delete []    Zoutnd;
+     delete []    Erelnd;
+     delete []    Timend;
+     delete []    Pathnd;
+     delete []    P0nd;
+     delete []    Iparcard;
+     delete []    Icard;
+     delete []    Xincard;
+     delete []    Yincard;
+     delete []    Zincard;
+     delete []    Xoutcard;
+     delete []    Youtcard;
+     delete []    Zoutcard;
+     delete []    Erelcard;
+     delete []    Timecard;
+     delete []    Pathcard;
+     delete []    P0card;
+ };
+ void GPamela::SetBranchAddress( TChain* fhBookTree ){
+ //    cout << "fhBookTree "<<fhBookTree << endl;
+     // prepare tree
+     fhBookTree->SetBranchAddress("Irun",&Irun);
+     fhBookTree->SetBranchAddress("Ievnt",&Ievnt);
+     fhBookTree->SetBranchAddress("Ipa",&Ipa);
+     fhBookTree->SetBranchAddress("X0",&X0);
+     fhBookTree->SetBranchAddress("Y0",&Y0);
+     fhBookTree->SetBranchAddress("Z0",&Z0);
+     fhBookTree->SetBranchAddress("Theta",&Theta);
+     fhBookTree->SetBranchAddress("Phi",&Phi);
+     fhBookTree->SetBranchAddress("P0",&P0);
+     fhBookTree->SetBranchAddress("Nthtof",&Nthtof);
+     fhBookTree->SetBranchAddress("Ipltof",Ipltof);
+     fhBookTree->SetBranchAddress("Ipaddle",Ipaddle);
+     fhBookTree->SetBranchAddress("Ipartof",Ipartof);
+     fhBookTree->SetBranchAddress("Xintof",Xintof);
+     fhBookTree->SetBranchAddress("Yintof",Yintof);
+     fhBookTree->SetBranchAddress("Zintof",Zintof);
+     fhBookTree->SetBranchAddress("Xouttof",Xouttof);
+     fhBookTree->SetBranchAddress("Youttof",Youttof);
+     fhBookTree->SetBranchAddress("Zouttof",Zouttof);
+     fhBookTree->SetBranchAddress("Ereltof",Ereltof);
+     fhBookTree->SetBranchAddress("Timetof",Timetof);
+     fhBookTree->SetBranchAddress("Pathtof",Pathtof);
+     fhBookTree->SetBranchAddress("P0tof",P0tof);
+     fhBookTree->SetBranchAddress("Nthcat",&Nthcat);
+     fhBookTree->SetBranchAddress("Iparcat",Iparcat);
+     fhBookTree->SetBranchAddress("Icat",Icat);
+     fhBookTree->SetBranchAddress("Xincat",Xincat);
+     fhBookTree->SetBranchAddress("Yincat",Yincat);
+     fhBookTree->SetBranchAddress("Zincat",Zincat);
+     fhBookTree->SetBranchAddress("Xoutcat",Xoutcat);
+     fhBookTree->SetBranchAddress("Youtcat",Youtcat);
+     fhBookTree->SetBranchAddress("Zoutcat",Zoutcat);
+     fhBookTree->SetBranchAddress("Erelcat",Erelcat);
+     fhBookTree->SetBranchAddress("Timecat",Timecat);
+     fhBookTree->SetBranchAddress("Pathcat",Pathcat);
+     fhBookTree->SetBranchAddress("P0cat",P0cat);
+     fhBookTree->SetBranchAddress("Nthcas",&Nthcas);
+     fhBookTree->SetBranchAddress("Iparcas",Iparcas);
+     fhBookTree->SetBranchAddress("Icas",Icas);
+     fhBookTree->SetBranchAddress("Xincas",Xincas);
+     fhBookTree->SetBranchAddress("Yincas",Yincas);
+     fhBookTree->SetBranchAddress("Zincas",Zincas);
+     fhBookTree->SetBranchAddress("Xoutcas",Xoutcas);
+     fhBookTree->SetBranchAddress("Youtcas",Youtcas);
+     fhBookTree->SetBranchAddress("Zoutcas",Zoutcas);
+     fhBookTree->SetBranchAddress("Erelcas",Erelcas);
+     fhBookTree->SetBranchAddress("Timecas",Timecas);
+     fhBookTree->SetBranchAddress("Pathcas",Pathcas);
+     fhBookTree->SetBranchAddress("P0cas",P0cas);
+     fhBookTree->SetBranchAddress("Nthspe",&Nthspe);
+     fhBookTree->SetBranchAddress("Iparspe",Iparspe);
+     fhBookTree->SetBranchAddress("Itrpb",Itrpb);
+     fhBookTree->SetBranchAddress("Itrsl",Itrsl);
+     fhBookTree->SetBranchAddress("Itspa",Itspa);
+     fhBookTree->SetBranchAddress("Xinspe",Xinspe);
+     fhBookTree->SetBranchAddress("Yinspe",Yinspe);
+     fhBookTree->SetBranchAddress("Zinspe",Zinspe);
+     fhBookTree->SetBranchAddress("Xoutspe",Xoutspe);
+     fhBookTree->SetBranchAddress("Youtspe",Youtspe);
+     fhBookTree->SetBranchAddress("Zoutspe",Zoutspe);
+     fhBookTree->SetBranchAddress("Xavspe",Xavspe);
+     fhBookTree->SetBranchAddress("Yavspe",Yavspe);
+     fhBookTree->SetBranchAddress("Zavspe",Zavspe);
+     fhBookTree->SetBranchAddress("Erelspe",Erelspe);
+     fhBookTree->SetBranchAddress("Pathspe",Pathspe);
+     fhBookTree->SetBranchAddress("P0spe",P0spe);
+     fhBookTree->SetBranchAddress("Nxmult",Nxmult);
+     fhBookTree->SetBranchAddress("Nymult",Nymult);
+     fhBookTree->SetBranchAddress("Nstrpx",&Nstrpx);
+     fhBookTree->SetBranchAddress("Npstripx",Npstripx);
+     fhBookTree->SetBranchAddress("Ntstripx",Ntstripx);
+     fhBookTree->SetBranchAddress("Istripx",Istripx);
+     fhBookTree->SetBranchAddress("Qstripx",Qstripx);
+     fhBookTree->SetBranchAddress("Xstripx",Xstripx);
+     fhBookTree->SetBranchAddress("Nstrpy",&Nstrpy);
+     fhBookTree->SetBranchAddress("Npstripy",Npstripy);
+     fhBookTree->SetBranchAddress("Ntstripy",Ntstripy);
+     fhBookTree->SetBranchAddress("Istripy",Istripy);
+     fhBookTree->SetBranchAddress("Qstripy",Qstripy);
+     fhBookTree->SetBranchAddress("Ystripy",Ystripy);
+     fhBookTree->SetBranchAddress("Nthcali",&Nthcali);
+     fhBookTree->SetBranchAddress("Icaplane",Icaplane);
+     fhBookTree->SetBranchAddress("Icastrip",Icastrip);
+     fhBookTree->SetBranchAddress("Icamod",Icamod);
+     fhBookTree->SetBranchAddress("Enestrip",Enestrip);
+     fhBookTree->SetBranchAddress("Nthcal",&Nthcal);
+     fhBookTree->SetBranchAddress("Icapl",Icapl);
+     fhBookTree->SetBranchAddress("Icasi",Icasi);
+     fhBookTree->SetBranchAddress("Icast",Icast);
+     fhBookTree->SetBranchAddress("Xincal",Xincal);
+     fhBookTree->SetBranchAddress("Yincal",Yincal);
+     fhBookTree->SetBranchAddress("Zincal",Zincal);
+     fhBookTree->SetBranchAddress("Erelcal",Erelcal);
+     fhBookTree->SetBranchAddress("Nthnd",&Nthnd);
+     fhBookTree->SetBranchAddress("Itubend",Itubend);
+     fhBookTree->SetBranchAddress("Iparnd",Iparnd);
+     fhBookTree->SetBranchAddress("Xinnd",Xinnd);
+     fhBookTree->SetBranchAddress("Yinnd",Yinnd);
+     fhBookTree->SetBranchAddress("Zinnd",Zinnd);
+     fhBookTree->SetBranchAddress("Xoutnd",Xoutnd);
+     fhBookTree->SetBranchAddress("Youtnd",Youtnd);
+     fhBookTree->SetBranchAddress("Zoutnd",Zoutnd);
+     fhBookTree->SetBranchAddress("Erelnd",Erelnd);
+     fhBookTree->SetBranchAddress("Timend",Timend);
+     fhBookTree->SetBranchAddress("Pathnd",Pathnd);
+     fhBookTree->SetBranchAddress("P0nd",P0nd);
+     fhBookTree->SetBranchAddress("Nthcard",&Nthcard);
+     fhBookTree->SetBranchAddress("Iparcard",Iparcard);
+     fhBookTree->SetBranchAddress("Icard",Icard);
+     fhBookTree->SetBranchAddress("Xincard",Xincard);
+     fhBookTree->SetBranchAddress("Yincard",Yincard);
+     fhBookTree->SetBranchAddress("Zincard",Zincard);
+     fhBookTree->SetBranchAddress("Xoutcard",Xoutcard);
+     fhBookTree->SetBranchAddress("Youtcard",Youtcard);
+     fhBookTree->SetBranchAddress("Zoutcard",Zoutcard);
+     fhBookTree->SetBranchAddress("Erelcard",Erelcard);
+     fhBookTree->SetBranchAddress("Timecard",Timecard);
+     fhBookTree->SetBranchAddress("Pathcard",Pathcard);
+     fhBookTree->SetBranchAddress("P0card",P0card);
+ //    fhBookTree->SetBranchStatus("*",0);
+ }
+ ClassImp(GPamela);
+ /////////////////////////////////////////////////////////////////////////////
+ /////////////////////////////////////////////////////////////////////////////
+ /////////////////////////////////////////////////////////////////////////////
+ /////////////////////////////////////////////////////////////////////////////
  //--------------------------------------
  //
  //
-Line 11 
 PamTrack::PamTrack(){
+Line 285 
 PamTrack::PamTrack(){
      calo_track = 0;
      tof_track  = 0;
      candeleteobj = 0;
+     pscore = 0;
+     iscore = 0;
  };
  //--------------------------------------
  //
-Line 60 
 void PamTrack::Clear(){
+Line 336 
 void PamTrack::Clear(){
          calo_track = 0;
          tof_track  = 0;
      }
+     pscore = 0;
+     iscore = 0;
  }
  void PamTrack::Delete(){
  //    cout << "PamTrack::Delete() "<<candeleteobj<<endl;
-Line 85 
 void PamTrack::Delete(){
+Line 364 
 void PamTrack::Delete(){
  //
  //--------------------------------------
  /**
-  * Constructor
+  * Default Constructor
   */
  PamLevel2::PamLevel2(){
+     Initialize();
+ };
+ /**
+  * Constructor
+  * @param ddir Name of directory where level2 files are stored.
+  * @param list Name of an ascii file containing the list of file names
+  * @param detlist Options to chose what to load.
+  * Possible options are:
+  *       +AUTO --> load all trees/branches in the input files
+  *       +(-)ALL --> inlcude(exclude) all trees/branches
+  *       +(-)TRK1+(-)TRK2+(-)CAL1+(-)CAL2+(-)TOF+(-)TRG+(-)ND+(-)S4+(-)ORB+(-)AC --> inlcude(exclude) trees and branches
+  *       +(-)TRK0 --> include(exclude) tracker level0 tree
+  *       +(-)GP --> include exclude GPAMELA output tree
+  * If no options are specified, the default is assumed. Default is:
+  * +TRK2+CAL2+CAL1+TOF+TRG+ND+AC+S4+ORB
+  */
+ PamLevel2::PamLevel2(TString ddir,TString list,TString detlist){
+     Initialize();
+     TList*  listf = GetListOfLevel2Files(ddir,list);
+     GetPamTree(listf,detlist);
+     GetRunTree(listf);
+ };
+ /**
+  * Constructor
+  * @param ddir Name of directory where level2 files are stored.
+  * @param list Name of an ascii file containing the list of file names
+  * Default trees/branches are loaded. Default is:
+  * +TRK2+CAL2+CAL1+TOF+TRG+ND+AC+S4+ORB
+  */
+ PamLevel2::PamLevel2(TString ddir,TString list){
+     Initialize();
+     TList*  listf = GetListOfLevel2Files(ddir,list);
+     GetPamTree(listf,"");
+     GetRunTree(listf);
+ };
+ void PamLevel2::Initialize(){
- //     trk2_obj  = TrkLevel2::GetTrkLevel2();
- //     trk1_obj  = TrkLevel1::GetTrkLevel1();
- //     trkh_obj  = TrkHough::GetTrkHough();
- //     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();
      h0_obj    = 0;
      trk0_obj  = 0;
+     calo0_obj  = 0;
      trk2_obj  = 0;
      trk1_obj  = 0;
-Line 115 
 PamLevel2::PamLevel2(){
+Line 423 
 PamLevel2::PamLevel2(){
      nd_obj    = 0;
      ac_obj    = 0;
      orb_obj   = 0;
+     gp_obj    = 0;
      run_obj   = 0;//new GL_RUN();
      soft_obj   = 0;// Emiliano
-     irun = -1;
+     irun = -1LL;
-     runfirstentry = 0ULL;
+     irunt = -1LL;
-     runlastentry = 0ULL;
+     runfirstentry = 0LL;
+     runlastentry = 0LL;
      l0_file = NULL;
      l0_tree = NULL;
      iroot   = -1;
      dbc     = 0;
+     prevshift = 0;
+     maxshift = 10; //EMILIANO
-     irun = -1;
      run_tree = NULL;
      run_tree_clone = NULL;
      sel_tree = NULL;
      sel_tree_clone = NULL;
-     irunentry = -1;
+     irunentry = -1LL;
      pam_tree = NULL;
      for(Int_t i=0; i<NCLONES; i++ )pam_tree_clone[i]=NULL;
+     totdltime[0] = 0LL;
+     totdltime[1] = 0LL;
+     totdltime[2] = 0LL;
      host = "mysql://localhost/pamelaprod";
      user = "anonymous";
      psw = "";
-Line 159 
 PamLevel2::PamLevel2(){
+Line 475 
 PamLevel2::PamLevel2(){
      CAL2 = true;
      TRK2 = true;
      TRK1 = false;
-     TRKh = false;
+     TRK0 = false;
      TRKh = false;
      TRG  = true;
      TOF  = true;
-Line 167 
 PamLevel2::PamLevel2(){
+Line 483 
 PamLevel2::PamLevel2(){
      S4   = true;
      ND   = true;
      AC   = true;
      ORB  = true;
+     GP   = false;
      RUN  = true;
      SELLI = -1;
+     ISGP = false;
      tsorted=0;
      timage=0;
+     howtosort = "+CAL+TOF";
+     //howtosort = "+TOF";
+     sortthr = 100.;
  };
  /**
-Line 188 
 void PamLevel2::Delete(){
+Line 511 
 void PamLevel2::Delete(){
  //    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 199 
 void PamLevel2::Delete(){
+Line 523 
 void PamLevel2::Delete(){
      if(nd_obj)   delete nd_obj;
      if(ac_obj)   delete ac_obj;
      if(orb_obj)  delete orb_obj;
+     if(gp_obj)   delete gp_obj;
      if(tsorted){
          tsorted->Delete();
-Line 215 
 void PamLevel2::Delete(){
+Line 540 
 void PamLevel2::Delete(){
      }
      if(l0_file)l0_file->Close();
-     if(pam_tree)pam_tree->Delete();;
+     //    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();;
+     if(irunoffset) delete [] irunoffset;
  };
-Line 241 
 void PamLevel2::Clear(){
+Line 599 
 void PamLevel2::Clear(){
  //    if(soft_obj) soft_obj->Clear();
      if(h0_obj)   h0_obj->Clear();
-     if(trk0_obj) trk0_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 253 
 void PamLevel2::Clear(){
+Line 612 
 void PamLevel2::Clear(){
      if(nd_obj)   nd_obj->Clear();
      if(ac_obj)   ac_obj->Clear();
      if(orb_obj)  orb_obj->Clear();
+     if(gp_obj)   gp_obj->Clear();
  //    if(sorted_tracks)sorted_tracks->Clear();
  //    sorted_tracks.Clear();
-Line 263 
 void PamLevel2::Clear(){
+Line 623 
 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;
+     gp_obj    = 0;
+     //
+     // Reset run pointers
+     //
+     run_obj   = 0;//new GL_RUN();
+     soft_obj   = 0;// Emiliano
+     irun = -1;
+     irunt = -1;
+     runfirstentry = 0ULL;
+     runlastentry = 0ULL;
+     //
+     totdltime[0] = 0LL;
+     totdltime[1] = 0LL;
+     totdltime[2] = 0LL;
+     //
+ };
+ 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 331 
 void *PamLevel2::GetPointerTo(const char
+Line 783 
 void *PamLevel2::GetPointerTo(const char
          if(!orb_obj)   orb_obj   = new OrbitalInfo();
          return &orb_obj;
      };
+     if(!objname.CompareTo("GPamela")){
+         if(!gp_obj)   gp_obj   = new GPamela();
+         return &gp_obj;
+     };
      if(!objname.CompareTo("RunInfo"))return &run_obj;
-Line 346 
 void *PamLevel2::GetPointerTo(const char
+Line 802 
 void *PamLevel2::GetPointerTo(const char
   * Retrieves the calorimeter track matching the seqno-th tracker stored track.
   * (If seqno = -1 retrieves the self-trigger calorimeter track)
   */
-  CaloTrkVar *PamLevel2::GetCaloStoredTrack(int seqno){
+ CaloTrkVar *PamLevel2::GetCaloStoredTrack(int seqno){
-      if( !calo2_obj )return 0;
+     if( !calo2_obj )return 0;
-      if( calo2_obj->CaloLevel2::ntrk()==0 ){
+     if( calo2_obj->CaloLevel2::ntrk()==0 ){
-          cout << "PamLevel2::GetCaloStoredTrack(int) : requested tracker SeqNo "<< seqno <<" but no Calorimeter tracks are stored"<<endl;
+         cout << "PamLevel2::GetCaloStoredTrack(int) : requested tracker SeqNo "<< seqno <<" but no Calorimeter tracks are stored"<<endl;
-          return NULL;
+         return NULL;
-      };
+     };
-      CaloTrkVar *c = 0;
+     CaloTrkVar *c = 0;
-      Int_t it_calo=0;
+     Int_t it_calo=0;
-      do{
+     do{
-          c = calo2_obj->CaloLevel2::GetCaloTrkVar(it_calo);
+         c = calo2_obj->CaloLevel2::GetCaloTrkVar(it_calo);
-          it_calo++;
+         it_calo++;
-      } while( c && seqno != c->trkseqno && it_calo < calo2_obj->CaloLevel2::ntrk());
+     } while( c && seqno != c->trkseqno && it_calo < calo2_obj->CaloLevel2::ntrk());
-      if(!c || seqno != c->trkseqno){
+     if(!c || seqno != c->trkseqno){
-          c = 0;
+         c = 0;
-          if(seqno!=-1)cout << "PamLevel2::GetCaloStoredTrack(int) : requested tracker SeqNo "<< seqno <<" does not match Calorimeter stored tracks"<<endl;
+         if(seqno!=-1)cout << "PamLevel2::GetCaloStoredTrack(int) : requested tracker SeqNo "<< seqno <<" does not match Calorimeter stored tracks"<<endl;
-      };
+     };
-      return c;
+     return c;
-  };
+ };
  //--------------------------------------
-  //
+ //
-  //
+ //
  //--------------------------------------
  /**
-   * Retrieves the ToF track matching the seqno-th tracker stored track.
+  * Retrieves the ToF track matching the seqno-th tracker stored track.
-   * (If seqno = -1 retrieves the tracker-independent tof track)
+  * (If seqno = -1 retrieves the tracker-independent tof track)
   */
-  ToFTrkVar *PamLevel2::GetToFStoredTrack(int seqno){
+ ToFTrkVar *PamLevel2::GetToFStoredTrack(int seqno){
-      if( !tof_obj )return 0;
+     if( !tof_obj )return 0;
-      if( tof_obj->ToFLevel2::ntrk()==0 ){
+     if( tof_obj->ToFLevel2::ntrk()==0 ){
-          cout << "PamLevel2::GetToFStoredTrack(int) : requested tracker SeqNo "<< seqno <<" but no ToF tracks are stored"<<endl;
+         cout << "PamLevel2::GetToFStoredTrack(int) : requested tracker SeqNo "<< seqno <<" but no ToF tracks are stored"<<endl;
-          return NULL;
+         return NULL;
-      };
+     };
-      ToFTrkVar *c = 0;
+     ToFTrkVar *c = 0;
-      Int_t it_tof=0;
+     Int_t it_tof=0;
-      do{
+     do{
-          c = tof_obj->ToFLevel2::GetToFTrkVar(it_tof);
+         c = tof_obj->ToFLevel2::GetToFTrkVar(it_tof);
-          it_tof++;
+         it_tof++;
-      } while( c && seqno != c->trkseqno && it_tof < tof_obj->ToFLevel2::ntrk());
+     } while( c && seqno != c->trkseqno && it_tof < tof_obj->ToFLevel2::ntrk());
-      if(!c || seqno != c->trkseqno){
+     if(!c || seqno != c->trkseqno){
-          c = 0;
+         c = 0;
-          if(seqno!=-1)cout << "PamLevel2::GetToFStoredTrack(int) : requested tracker SeqNo "<< seqno <<" does not match ToF stored tracks"<<endl;
+         if(seqno!=-1)cout << "PamLevel2::GetToFStoredTrack(int) : requested tracker SeqNo "<< seqno <<" does not match ToF stored tracks"<<endl;
-      };
+     };
-      return c;
+     return c;
-  };
+ };
  //--------------------------------------
-  //
+ //
-  //
+ //
  //--------------------------------------
  /**
   * Give the pamela track associated to a tracker track, retrieving related calorimeter and tof track information.
   */
-  PamTrack* PamLevel2::GetPamTrackAlong(TrkTrack* t){
+ PamTrack* PamLevel2::GetPamTrackAlong(TrkTrack* t){
-      cout <<"PamLevel2::GetPamTrackAlong(TrkTrack* t) **obsolete** "<<endl;
+     cout <<"PamLevel2::GetPamTrackAlong(TrkTrack* t) **obsolete** "<<endl;
-      cout <<"(if you use it, remember to delete the PamTrack object)"<<endl;
+     cout <<"(if you use it, remember to delete the PamTrack object)"<<endl;
-      CaloTrkVar *c = 0;
+     CaloTrkVar *c = 0;
-      ToFTrkVar  *o = 0;
+     ToFTrkVar  *o = 0;
-      if(CAL2) c = GetCaloStoredTrack(t->GetSeqNo());
+     if(CAL2) c = GetCaloStoredTrack(t->GetSeqNo());
-      if(TOF) o = GetToFStoredTrack(t->GetSeqNo());
+     if(TOF) o = GetToFStoredTrack(t->GetSeqNo());
  //    if(t && c && o)track = new PamTrack(t,c,o);
-      PamTrack *track = new PamTrack(t,c,o);
+     PamTrack *track = new PamTrack(t,c,o);
-      return track;
+     return track;
-  };
+ };
  //--------------------------------------
  //
  //
-Line 460 
 PamTrack* PamLevel2::GetStoredTrack(Int_
+Line 916 
 PamTrack* PamLevel2::GetStoredTrack(Int_
  }
  //--------------------------------------
  //
+ /**
+  * Sort physical (tracker) 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();
+ };
  //
  //--------------------------------------
  /**
-  * Sort physical (tracker) tracks and stores them in the TRefArray (of TrkTrack objects) which pointer is  PamLevel2::sorted_tracks.
+  * Sort physical (tracker) tracks.
   * @param how String to set the sorting cryterium (es: "CAL" or "TRK+CAL+TOF" ecc...).
   * Sorting cryteria:
   * TRK: lower chi**2
   * CAL: lower Y spatial residual on the first calorimeter plane
   * TOF: bigger numebr of hit PMTs along the track, on S12 S21 S32 (where paddles are along the Y axis).
+  * S1: (ask Emiliano)
+  * S2: (ask Emiliano)
+  * S3: (ask Emiliano)
+  * GP: more GP hits
   * The default sorting cryterium is "TOF+CAL".
   *
   * 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 ){
-         cout << "void PamLevel2::SortTracks(TString how):  TrkLevel2 not loaded !!!";
+         cout << "void PamLevel2::SortTracks():  TrkLevel2 not loaded !!!";
          return;
      };
- //    cout << "call SortTracs() "<<endl;
+     //Save current Object count
-   //Save current Object count
      Int_t ObjectNumber = TProcessID::GetObjectCount();
- //    cout << "ObjectNumber  "<<ObjectNumber <<endl;
+     // create TCloneArrays to store tracks and its images
- //     if(!sorted_tracks)sorted_tracks = new TRefArray();
- //     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;
-     // loop over the tracks sorted by the tracker
+     //--------------------------------------------------
+     // retrieve sorting method
+     //--------------------------------------------------
      Bool_t use_TRK = how.Contains("TRK", TString::kIgnoreCase);
      Bool_t use_CAL = how.Contains("CAL", TString::kIgnoreCase);
      Bool_t use_TOF = how.Contains("TOF", TString::kIgnoreCase);
+     Bool_t use_S1 = how.Contains("S1", TString::kIgnoreCase);
+     Bool_t use_S2 = how.Contains("S2", TString::kIgnoreCase);
+     Bool_t use_S3 = how.Contains("S3", TString::kIgnoreCase);
+     Bool_t use_GP = how.Contains("GP", TString::kIgnoreCase);
+     if ( use_TOF ){
+         use_S1 = true;
+         use_S2 = true;
+         use_S3 = true;
+     };
      if( !CAL2 &&  use_CAL) use_CAL = false;
-     if( !TOF &&  use_TOF) use_TOF = false;
+     if( !TOF ){
+         use_TOF = false;
+         use_S1  = false;
+         use_S2  = false;
+         use_S3  = false;
+     }
+     if( !GP ){
+         use_GP  = false;
+     }
      if( !TRK2 ){
- //      cout << "SortTracks() : without tracker does not work!!! (not yet)" << endl;
+         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;
+     //--------------------------------------------------
+     // loop over "physical" tracks sorted by the tracker
+     //--------------------------------------------------
      for(Int_t i=0; i < trk2_obj->TrkLevel2::GetNTracks(); i++){
          TrkTrack   *ts = 0;
-Line 520 
 void PamLevel2::SortTracks(TString how){
+Line 1010 
 void PamLevel2::SortTracks(TString how){
          ToFTrkVar  *os = 0;
          // get tracker tracks
-         TrkTrack   *tp = trk2_obj->TrkLevel2::GetTrack(i);                    //tracker
+         TrkTrack   *tp = trk2_obj->TrkLevel2::GetTrack(i); //tracker
          CaloTrkVar *cp = GetCaloStoredTrack(tp->GetSeqNo());
          ToFTrkVar  *op = GetToFStoredTrack(tp->GetSeqNo());
-         TrkTrack   *ti = 0;              //tracker (image)
+         TrkTrack   *ti = 0; //tracker (image)
          CaloTrkVar *ci = 0;
          ToFTrkVar  *oi = 0;
- //      cout << "trk track n. "<<i << " "<<hex<< tp <<dec<< endl;
+         //      cout << "trk track n. "<<i << " "<<hex<< tp <<dec<< endl;
          // if track has an image, check image selection
+         Int_t tp_score = 0;  //main track sorted by the tracker
+         Int_t ti_score = 0;  //image track
+         Int_t totp_score = 0;  //main track sorted by the tracker
+         Int_t toti_score = 0;  //image track
          if(tp->HasImage()){
              ti = trk2_obj->TrkLevel2::GetTrackImage(i);              //tracker (image)
              ci = GetCaloStoredTrack(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
-             Int_t tp_score = 0;  //main track sorted by the tracker
+             tp_score = 0;  //main track sorted by the tracker
-             Int_t ti_score = 0;  //image track
+             ti_score = 0;  //image track
-             // ------------------------
+             // -----------------------------------------------------------------------------------------
+             // *****************************************************************************************
+             // -----------------------------------------------------------------------------------------
              // calorimeter check
-             // ------------------------
+             // -----------------------------------------------------------------------------------------
-             // check the Y spatial residual on the first calorimeter plane
-             // (cut on calorimeter variables from Emiliano)
              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;
              };
+             if( use_CAL && !cp &&  ci ){
+                 ti_score++;
+                 toti_score++;
+             };
+             if( use_CAL &&  cp && !ci ){
+                 tp_score++;
+                 totp_score++;
+             };
              if(
                  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){
-                 Float_t resy_p = cp->tbar[0][1] - calo2_obj->cbar[0][1]; if(resy_p < 0)resy_p= - resy_p;
+                 if(
-                 Float_t resy_i = ci->tbar[0][1] - calo2_obj->cbar[0][1]; if(resy_i < 0)resy_i= - resy_i;
+                     cp->npresh > ci->npresh &&
+                     true){
-                 if(resy_p <= resy_i) tp_score++;
+                     tp_score++;
-                 else                 ti_score++;
+                     totp_score++;
+                 };
+                 if(
+                     cp->npresh < ci->npresh &&
+                     true){
+                     ti_score++;
+                     toti_score++;
+                 };
- //              cout << "CALO "<<tp_score<<ti_score<<endl;
+                 //      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 ){
+             if( (use_TOF || use_S1 || use_S2 || use_S3 ) && !tof_obj ){
-                 cout << "void PamLevel2::SortTracks(TString how): how= "<<how<<" but ToFLevel2 not loaded !!!";
+                 cout << "void PamLevel2::SortTracks(): howtosort= "<<how<<" but ToFLevel2 not loaded !!!";
                  return;
              };
-             if( use_TOF && op && oi ){
+             //
+             if( (use_TOF || use_S1 || use_S2 || use_S3 ) && !op && oi ){
-                 Int_t nphit_p =0;
+                 ti_score++;
-                 Int_t nphit_i =0;
+                 toti_score++;
+             };
+             if( (use_TOF || use_S1 || use_S2 || use_S3 ) && op && !oi ){
- /*                              cout << "track: npmtadc "<< op->npmtadc << endl;
+                 tp_score++;
-                                 cout << "track: npmttdc "<< op->npmttdc << endl;
+                 totp_score++;
-                                 cout << "image: npmtadc "<< oi->npmtadc << endl;
+             };
-                                 cout << "image: npmttdc "<< oi->npmttdc << endl;*/
+             if( (use_TOF || use_S1 || use_S2 || use_S3 ) && 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 == 1 || pl == 2 || pl == 5)nphit_p++;
+                     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 == 1 || pl == 2 || pl == 5)nphit_i++;
+                     if ( pl == 2 || pl == 3 || pl == 4 || pl == 5 ) sen += (oi->dedx).At(ih);
                  };
+                 //
+                 if (  sen >= sortthr && false){ // temporary disabled NUCLEI special algorithm since the new one should work for every particle (to be checked!)
+                     //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);
+                             };
+                         };
+                     };
+                     if ( fabs(tr->y[3]-oi->ytofpos[1]) < 2. ){
+                         for (Int_t ih=0; ih < oi->npmtadc; ih++){
+                             Int_t pl = tof_obj->GetPlaneIndex( (oi->pmtadc).At(ih) );
+                             if(pl == 3){
+                                 nphit_i++;
+                                 enhit_i += (op->dedx).At(ih);
+                             };
+                         };
+                     };
+                     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(
+                     if(
-                     use_TOF            &&
+                         (use_TOF || use_S1 || use_S2 || use_S3)            &&
-                     (nphit_p+nphit_i) !=0 &&
+                         (nphit_p+nphit_i) !=0 &&
-                     true){
+                         true){
-                     if( nphit_p >= nphit_i) tp_score++;
+                         //          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);
-                     else ti_score++;
+                         //          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;
+                     /*                          cout << "track: npmtadc "<< op->npmtadc << endl;
+                                                 cout << "track: npmttdc "<< op->npmttdc << endl;
+                                                 cout << "image: npmtadc "<< oi->npmtadc << endl;
+                                                 cout << "image: npmttdc "<< oi->npmttdc << endl;*/
+ //        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++;
+ //        };
+ //        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++;
+ //        };
+                     // --- 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 ( (use_S1 && ( pl == 0 || pl == 1 )) || (use_S2 && ( pl == 2 || pl == 3 )) || (use_S3 && ( pl == 4 || pl == 5 )) ){
+                             if( (op->tdcflag).At(ih)==0 )nphit_p++;
+                         };
+                     };
+                     for (Int_t ih=0; ih < oi->npmttdc; ih++){
+                         Int_t pl = tof_obj->GetPlaneIndex( (oi->pmttdc).At(ih) );
+ //          if( (oi->tdcflag).At(ih)==0 && (pl == 1 || pl == 2 || pl == 5) )nphit_i++;
+                         if ( (use_S1 && ( pl == 0 || pl == 1 )) || (use_S2 && ( pl == 2 || pl == 3 )) || (use_S3 && ( pl == 4 || pl == 5 )) ){
+                             if( (oi->tdcflag).At(ih)==0 )nphit_i++;
+                         };
+                     };
+                     if(
+                         (nphit_p+nphit_i) !=0 &&
+                         true){
+                         if ( nphit_p != nphit_i ){
+                             totp_score += nphit_p;
+                             toti_score += nphit_i;
+                             tp_score+=nphit_p;
+                             ti_score+=nphit_i;
+                         };
+                         //          if     ( nphit_p > nphit_i) tp_score+=nphit_p;
+                         //          else if( nphit_p < nphit_i) ti_score+=nphit_i;
+                         //          else ;//niente
+                     };
                  };
- //              cout << "TOF "<<tp_score<<ti_score<<endl;
+                 //      cout << "TOF "<<tp_score<<ti_score<<endl;
              };
-             if(tp_score == ti_score) use_TRK = true;
-             // ------------------------
+ //      if(tp_score == ti_score) use_TRK = true;
+             // -----------------------------------------------------------------------------------------
+             // *****************************************************************************************
+             // -----------------------------------------------------------------------------------------
              // tracker check
-             // ------------------------
+             // -----------------------------------------------------------------------------------------
              // 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++ ;
+ //      if(      tp->chi2 > 0 && tp->chi2 < ti->chi2 ) tp_score++ ;
-                 else if( ti->chi2 > 0 && ti->chi2 < tp->chi2 ) ti_score++ ;
+ //      else if( ti->chi2 > 0 && ti->chi2 < tp->chi2 ) ti_score++ ;
- //              cout << "TRK "<<tp_score<<ti_score<<endl;
+                 // CHECK 1 : number of points along X
+                 if ( tp->GetNX() >= ti->GetNX() ){
+                     tp_score++ ;
+                     totp_score++ ;
+                 };
+                 if ( tp->GetNX() <= ti->GetNX() ){
+                     ti_score++ ;
+                     toti_score++ ;
+                 };
+                 // CHECK 2 : number of points along Y
+                 if ( tp->GetNY() >= ti->GetNY() ){
+                     tp_score++ ;
+                     totp_score++ ;
+                 };
+                 if ( tp->GetNY() <= ti->GetNY() ){
+                     ti_score++ ;
+                     toti_score++ ;
+                 };
+                 //      cout << "TRK "<<tp_score<<ti_score<<endl;
              };
-             // ------------------------
+             // -----------------------------------------------------------------------------------------
+             // *****************************************************************************************
+             // -----------------------------------------------------------------------------------------
+             // GPamela check
+             // -----------------------------------------------------------------------------------------
+             //---------------------------------------------------
+             // count the number of GP hits
+             //---------------------------------------------------
+             if(use_GP){
+                 int ngphits_p=0;
+                 int ngphits_i=0;
+                 float toll = 0.02; //200 micron
+                 for(int ih=0; ih<GetGPamela()->Nthspe; ih++){
+                     int ip = (Int_t) GetGPamela()->Itrpb[ih] - 1;
+                     if(
+                         tp &&
+                         tp->YGood(ip) &&
+                         fabs(tp->ym[ip]- GetGPamela()->Yavspe[ih])<toll &&
+                         true) ngphits_p++;
+                     if( ti &&
+                         ti->YGood(ip) &&
+                         fabs(ti->ym[ip]- GetGPamela()->Yavspe[ih])<toll &&
+                         true) ngphits_i++;
+                 }
+                 if(
+                     ngphits_p > ngphits_i &&
+                     true){
+                     tp_score++ ;
+                     totp_score++ ;
+                 }
+                 if(
+                     ngphits_p < ngphits_i &&
+                     true){
+                     ti_score++ ;
+                     toti_score++ ;
+                 }
+             }
+             // *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
              // the winner is....
-             // ------------------------
+             // *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
              if      (tp_score > ti_score) {
- //              ts = tp;//the track sorted by the tracker!!
- //              cs = cp;
- //              os = op;
              }else if (tp_score < ti_score) {
                  ts = ti;//its image!!
                  cs = ci;
                  os = oi;
+                 Int_t totis = toti_score;
                  ti = tp;//its image!!
                  ci = cp;
-Line 640 
 void PamLevel2::SortTracks(TString how){
+Line 1381 
 void PamLevel2::SortTracks(TString how){
                  cp = cs;
                  op = os;
+                 toti_score = totp_score;
+                 totp_score = totis;
              }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{
- //          ts = tp;
+             totp_score = 1;
- //          cs = cp;
+             toti_score = 0;
- //          os = op;
+             //      ts = tp;
+             //      cs = cp;
+             //      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(ttimage[i])  PamTrack(ti,ci,oi);
+         ((PamTrack*)(ttsorted[i]))->SetPScore(totp_score);
+         ((PamTrack*)(ttsorted[i]))->SetIScore(toti_score);
+         ((PamTrack*)(ttimage[i]))->SetPScore(totp_score);
+         ((PamTrack*)(ttimage[i]))->SetIScore(toti_score);
      };
      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;
          timage->Delete(); timage=0;
      }
-Line 700 
 void PamLevel2::SortTracks(TString how){
+Line 1451 
 void PamLevel2::SortTracks(TString how){
  TClonesArray *PamLevel2::GetTracks(){
  //  *-*-*-*-*-*-*-*-*-*-*-*-*
-     SortTracks("+CAL+TOF");
+     SortTracks();
  //  *-*-*-*-*-*-*-*-*-*-*-*-*
      return tsorted;
-  };
+ };
  //--------------------------------------
-  //
+ //
-  //
+ //
  //--------------------------------------
  /**
   * Retrieves the it-th Pamela "physical" track.
-Line 719 
 PamTrack *PamLevel2::GetTrack(int it){
+Line 1470 
 PamTrack *PamLevel2::GetTrack(int it){
  //    if(!trk2_obj) return 0;
- // //  *-*-*-*-*-*-*-*-*-*-*-*-*
+ // //  *-*-*-*+-*-*-*-*-*-*-*-*-*
  //     SortTracks("+CAL+TOF");
  // //  *-*-*-*-*-*-*-*-*-*-*-*-*
  // //    if(!sorted_tracks)return 0;
-Line 738 
 PamTrack *PamLevel2::GetTrack(int it){
+Line 1489 
 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 795 
 PamTrack *PamLevel2::GetTrackImage(int i
+Line 1546 
 PamTrack *PamLevel2::GetTrackImage(int i
  //  *-*-*-*-*-*-*-*-*-*-*-*-*
-     SortTracks("+CAL+TOF");
+     SortTracks();
  //  *-*-*-*-*-*-*-*-*-*-*-*-*
      if(!timage)return 0;
      if(!timage->GetEntries())return 0;
-Line 830 
 PamTrack *PamLevel2::GetTrackImage(int i
+Line 1581 
 PamTrack *PamLevel2::GetTrackImage(int i
   */
  TTree *PamLevel2::GetPamTree(TFile *f, TString detlist ){
- //     if( !detlist.IsNull() ) SetWhichTrees(detlist);
+     if( detlist.Contains("+AUTO", TString::kIgnoreCase) ) {
- //     else                    GetWhichTrees(f);
+         cout << "+AUTO"<<endl;
+         GetWhichTrees(f);
+     };
+     SetWhichTrees(detlist);
+     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);
+ //    SetWhichTrees(detlist);
      TTree *Trout =0;
-Line 856 
 TTree *PamLevel2::GetPamTree(TFile *f, T
+Line 1616 
 TTree *PamLevel2::GetPamTree(TFile *f, T
      if(ND)cout<<"ND ";
      if(S4)cout<<"S4 ";
      if(ORB)cout<<"ORB ";
+     if(GP)cout<<"GP ";
      cout << endl;
      if(SELLI)cout<<">>> Found selection-list <<<"<<endl;
-Line 908 
 TTree *PamLevel2::GetPamTree(TFile *f, T
+Line 1669 
 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 918 
 TTree *PamLevel2::GetPamTree(TFile *f, T
+Line 1679 
 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 928 
 TTree *PamLevel2::GetPamTree(TFile *f, T
+Line 1689 
 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 938 
 TTree *PamLevel2::GetPamTree(TFile *f, T
+Line 1699 
 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 948 
 TTree *PamLevel2::GetPamTree(TFile *f, T
+Line 1709 
 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;
      };
+     // GPamela
+     TTree *G = (TTree*)f->Get("h20");
+     if(G && GP) {
+         if(!gp_obj)gp_obj=new GPamela();
+ //      ------------------------------------
+ //      ATTENZIONE!!!
+ //      non so per quale arcano motivo,
+ //      per l'albero di gpamela il branch address lo devo settare
+ //      DOPO aver fatto friend
+ //      FGRRRVZZZZUTSALKJMSLKJ!!!
+ //      ------------------------------------
+ //      gp_obj->SetBranchAddress(G); //ho dovuto fare in maniera diversa dagli altri
+ //      cout << "h20          : set branch address GPamela "<<endl;
+         if(!Trout)Trout=G;
+         else Trout->AddFriend(G);
+     }else{
+ //      cout << "h20          : missing tree"<<endl;
+     };
      TTree *L = (TTree*)f->Get("SelectionList");
      if(L && SELLI==1) {
- //      L->SetBranchAddress("RunEntry",&irun);
+         cout << " TTree *PamLevel2::GetPamTree(TFile, TString) >>> SelectionList not implemented!!!!"<<endl;
- //      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;
-Line 970 
 TTree *PamLevel2::GetPamTree(TFile *f, T
+Line 1745 
 TTree *PamLevel2::GetPamTree(TFile *f, T
      cout<<endl<<" Number of entries: "<<Trout->GetEntries()<<endl<<endl;
+ //      ------------------------------------
+ //      ATTENZIONE!!!
+ //      non so per quale arcano motivo,
+ //      per l'albero di gpamela il branch address lo devo settare
+ //      DOPO aver fatto friend
+ //      FGRRRVZZZZUTSALKJMSLKJ!!!
+ //      ------------------------------------
+     if(G && GP) {
+         gp_obj->SetBranchAddress(Trout); //ho dovuto fare in maniera diversa dagli altri
+         cout << "h20          : set branch address GPamela "<<endl;
+     }else{
+         cout << "h20          : missing tree"<<endl;
+     };
      pam_tree = (TChain*)Trout;
      return Trout;
-Line 990 
 TList*  PamLevel2::GetListOfLevel2Files(
+Line 1779 
 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();
-Line 1009 
 TList*  PamLevel2::GetListOfLevel2Files(
+Line 1801 
 TList*  PamLevel2::GetListOfLevel2Files(
  //          return 0;
  //      }
  //      flisttxt = fullpath;
-       if ( !flisttxt.EndsWith(".root") ){
+         if ( !flisttxt.EndsWith(".root") ){
-         flisttxt = gSystem->ConcatFileName(gSystem->DirName(flisttxt),gSystem->BaseName(flisttxt));
+             flisttxt = gSystem->ConcatFileName(gSystem->DirName(flisttxt),gSystem->BaseName(flisttxt));
-         if( !gSystem->ChangeDirectory(ddir) ){
+             if( !gSystem->ChangeDirectory(ddir) ){
-             cout << "Cannot change directory : "<<ddir<<endl;
+                 cout << "Cannot change directory : "<<ddir<<endl;
-             return 0;
+                 return 0;
-         }
-         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;
-             in >> file;
-             if (!in.good()) break;
-             line++;
- //          cout <<"(1) " << file << endl;
-             if(file.IsNull()){
-                 cout << "-- list interrupted at line "<<line <<endl;
-                 break;
              }
-             if(file.Contains("#"))file = file(0,file.First("#"));
+             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;
+                 in >> file;
+                 if (!in.good()) break;
+                 line++;
+ //          cout <<"(1) " << file << endl;
+                 if(file.IsNull()){
+                     cout << "-- list interrupted at line "<<line <<endl;
+                     break;
+                 }
+                 if(file.Contains("#"))file = file(0,file.First("#"));
  //          cout <<"(2) " << file << endl;
  //          if( gSystem->IsFileInIncludePath(file,&fullpath) ){
  //          if( (fullpath = gSystem->FindFile(ddir,file)) ){
-             if( file.EndsWith(".root") ){
+                 if( file.EndsWith(".root") ){
-                 char *fullpath = gSystem->ConcatFileName(gSystem->DirName(ddir),gSystem->BaseName(file));
+                     TString filedir;
-                 contents->Add(new TSystemFile(fullpath,gSystem->DirName(fullpath)));// add file to the list
+                     if (ddir != ""){
-                 delete fullpath;
+                         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{
  //              if(file.Data()!="")cout << "File: "<<file<<" ---> missing "<< endl;
  //          };
-         };
+             };
-         in.close();
+             in.close();
-       } else {
+         } else {
-           char *fullpath = gSystem->ConcatFileName(gSystem->DirName(flisttxt),gSystem->BaseName(flisttxt));
+             if(flisttxt.Contains("#"))flisttxt = flisttxt(0,flisttxt.First("#"));
-           contents->Add(new TSystemFile(fullpath,gSystem->DirName(fullpath)));// add file to the list
+             char *fullpath = gSystem->ConcatFileName(gSystem->DirName(flisttxt),gSystem->BaseName(flisttxt));
-           delete fullpath;
+             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 1105 
 TList*  PamLevel2::GetListOfLevel2Files(
+Line 1909 
 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;
- //    if( !detlist.IsNull() )SetWhichTrees(detlist);
+     // -------------------------------------------
-     SetWhichTrees(detlist);
+     // set flags to include/exclude trees/branches
+     // -------------------------------------------
-     cout<< "GetPamTree(TList*,TString): input detector list --> ";
+     if( detlist.Contains("+AUTO", TString::kIgnoreCase) ) {
-     if(TRK1)cout<<"TRK1 ";
+         if( fl->GetEntries()>0 ){
-     if(TRK2)cout<<"TRK2 ";
+             cout << "+AUTO"<<endl;
-     if(TRKh)cout<<"TRKH ";
+             TFile *fprimo = new TFile( fl->At(0)->GetName() );
-     if(CAL1)cout<<"CAL1 ";
+             GetWhichTrees(fprimo);
-     if(CAL2)cout<<"CAL2 ";
+             fprimo->Close();// AAAAARGGGGGHHHHH!!!!!!! non commentare questa riga, altrimenti si incasina il TChain
-     if(TOF)cout<<"TOF ";
+             fprimo->Delete();
-     if(TRG)cout<<"TRG ";
+         }
-     if(AC)cout<<"AC ";
+     };
-     if(ND)cout<<"ND ";
+     SetWhichTrees(detlist);
-     if(S4)cout<<"S4 ";
-     if(ORB)cout<<"ORB ";
-     cout << endl;
+     // -------------------------------------------
+     // build chains
+     // -------------------------------------------
      TChain *T = 0;
      TChain *C = 0;
      TChain *O = 0;
-Line 1133 
 TChain *PamLevel2::GetPamTree(TList *fl,
+Line 1946 
 TChain *PamLevel2::GetPamTree(TList *fl,
      TChain *N = 0;
      TChain *A = 0;
      TChain *B = 0;
+     TChain *G = 0;
      TChain *L = 0;
-Line 1144 
 TChain *PamLevel2::GetPamTree(TList *fl,
+Line 1958 
 TChain *PamLevel2::GetPamTree(TList *fl,
      if(ND)               N = new TChain("NeutronD");
      if(AC)               A = new TChain("Anticounter");
      if(ORB)              B = new TChain("OrbitalInfo");
+     if(GP)               G = new TChain("h20");
-      L = new TChain("SelectionList");
+     L = new TChain("SelectionList");
      // loop over files and create chains
      TIter next(fl);
-Line 1162 
 TChain *PamLevel2::GetPamTree(TList *fl,
+Line 1976 
 TChain *PamLevel2::GetPamTree(TList *fl,
              if(ND)               N->Add(name);
              if(AC)               A->Add(name);
              if(ORB)              B->Add(name);
+             if(GP)               G->Add(name);
              if(SELLI==1)         L->Add(name);
          };
-     }
+     };
-     cout << "done chain \n";
+     cout << "done chains\n";
+     cout << "+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+" <<endl;
+     // -------------------------------------------
+     // make friends
+     // -------------------------------------------
- //    UInt_t *found=0;
  // Tracker
+     cout << "Friends: "<<endl;
      if(T && (TRK2||TRK1||TRKh)) {
-         if(TRK2)T->SetBranchAddress("TrkLevel2", GetPointerTo("TrkLevel2"));
- //      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);
-         if(TRK1)cout << "Tracker      : set branch address TrkLevel1"<<endl;
-         if(TRKh)T->SetBranchAddress("TrkHough", GetPointerTo("TrkHough"));
- //      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 << "+Tacker"<<endl;
-         cout << "Tracker      : missing tree"<<endl;
      };
      // Calorimeter
      if(C && (CAL2||CAL1)) {
-         if(CAL2)C->SetBranchAddress("CaloLevel2", GetPointerTo("CaloLevel2"));
- //      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);
-         if(CAL1)cout << "Calorimeter  : set branch address CaloLevel1"<<endl;
          if(!Trout)Trout=C;
          else Trout->AddFriend("Calorimeter");
-     }else{
+ //      cout << "+Calorimeter"<<endl;
-         cout << "Calorimeter  : missing tree"<<endl;
      };
      // ToF
      if(O && TOF) {
-         O->SetBranchAddress("ToFLevel2", GetPointerTo("ToFLevel2"));
-         cout << "ToF          : set branch address ToFLevel2"<<endl;
          if(!Trout)Trout=O;
          else Trout->AddFriend("ToF");
-     }else{
+ //      cout << "+ToF"<<endl;
-         cout << "ToF         : missing tree"<<endl;
      };
      // Trigger
      if(R && TRG) {
-         R->SetBranchAddress("TrigLevel2", GetPointerTo("TrigLevel2"));
-         cout << "Trigger      : set branch address TrigLevel2"<<endl;
          if(!Trout)Trout=O;
          else Trout->AddFriend("Trigger");
-     }else{
+ //      cout << "+Trigger"<<endl;
-         cout << "Trigger      : missing tree"<<endl;
      };
      // S4
      if(S && S4) {
-         S->SetBranchAddress("S4Level2", GetPointerTo("S4Level2"));
-         cout << "S4           : set branch address S4Level2"<<endl;
          if(!Trout)Trout=O;
          else Trout->AddFriend("S4");
-     }else{
+ //      cout << "+S4"<<endl;
-         cout << "S4           : missing tree"<<endl;
      };
      // Neutron Detector
      if(N && ND) {
-         N->SetBranchAddress("NDLevel2", GetPointerTo("NDLevel2"));
-         cout << "NeutronD     : set branch address NDLevel2"<<endl;
          if(!Trout)Trout=O;
          else Trout->AddFriend("NeutronD");
-     }else{
+ //      cout << "+NeutronD"<<endl;
-         cout << "NeutronD     : missing tree"<<endl;
      };
      // Anticounters
      if(A && AC) {
-         A->SetBranchAddress("AcLevel2", GetPointerTo("AcLevel2"));
-         cout << "Anticounter  : set branch address AcLevel2"<<endl;
          if(!Trout)Trout=O;
          else Trout->AddFriend("Anticounter");
-     }else{
+ //      cout << "+Anticounter"<<endl;
-         cout << "Anticounter  : missing tree"<<endl;
      };
      // Orbital Info
      if(B && ORB) {
-         B->SetBranchAddress("OrbitalInfo", GetPointerTo("OrbitalInfo"));
-         cout << "OrbitalInfo  : set branch address OrbitalInfo"<<endl;
          if(!Trout)Trout=O;
          else Trout->AddFriend("OrbitalInfo");
-     }else{
+ //      cout << "+OrbitalInfo"<<endl;
-         cout << "OrbitalInfo  : missing tree"<<endl;
+     };
+     // GPamela
+     if(G && GP) {
+         if(!Trout)Trout=G;
+         else Trout->AddFriend("h20");
+ //      cout << "+h20"<<endl;
      };
+ //  =====================================
+ //  SET BRANCH-ADDRESS AFTER CHAIN+FRIEND
+ //  =====================================
+     SetBranchAddress(Trout);
+ //  ------------------------------------
+ //  finally handle selection trees...
+ //  (it is not friend of pamela tree)
+ //  ------------------------------------
+     cout << "+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+" <<endl;
      // Selection List
      if(L && SELLI==1) {
          cout<<">>> Found selection-list <<<"<<endl;
-         L->SetBranchAddress("RunEntry",&irun);
+ //      L->SetBranchAddress("RunEntry",&irun);
+         L->SetBranchAddress("RunEntry",&irunt);//NEWNEW
          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 << "+SelectionList"<<endl;
+         cout << "+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+" <<endl;
      }else{
  //      cout << "SelectionList  : missing tree"<<endl;
          if(L)L->Delete();
      };
- //    cout<<endl<<" Number of entries: "<<Trout->GetEntries()<<endl<<endl;
-     pam_tree = Trout;
+ //  --------------------------------------------
+ //  return the pamela chain with all the friends
+ //  --------------------------------------------
+     pam_tree = Trout;
      return Trout;
  }
-Line 1297 
 void PamLevel2::SetBranchAddress(TTree *
+Line 2107 
 void PamLevel2::SetBranchAddress(TTree *
      ND     = ND  & t->GetBranchStatus("NDLevel2");
      AC     = AC  & t->GetBranchStatus("AcLevel2");
      ORB    = ORB & t->GetBranchStatus("OrbitalInfo");
+     GP     = GP  & t->GetBranchStatus("h20");
      // Tracker
-Line 1353 
 void PamLevel2::SetBranchAddress(TTree *
+Line 2164 
 void PamLevel2::SetBranchAddress(TTree *
          t->SetBranchAddress("OrbitalInfo", GetPointerTo("OrbitalInfo"));
          cout << "OrbitalInfo  : set branch address OrbitalInfo"<<endl;
      };
-     // SelectionList
+     // GPamela
-     if(SELLI==1) {
+     if(GP) {
-         t->SetBranchAddress("RunEntry", &irun);
+ //      GetPointerTo("GPamela");
-         cout << "SelectionList: set branch address RunEntry"<<endl;
+         if(!gp_obj)gp_obj = new GPamela();
-         t->SetBranchAddress("EventEntry", &irunentry);
+         gp_obj->SetBranchAddress(t); //ho dovuto fare in maniera diversa dagli altri
-         cout << "SelectionList: set branch address EventEntry"<<endl;
+         cout << "h20          : set branch address GPamela "<<endl;
      };
  }
-Line 1367 
 void PamLevel2::SetBranchAddress(TTree *
+Line 2178 
 void PamLevel2::SetBranchAddress(TTree *
   */
  void PamLevel2::SetBranchAddress(TChain *t){
-     TRK2    = TRK2 & t->GetBranchStatus("TrkLevel2");
+ //     TRK2    = TRK2 & t->GetBranchStatus("TrkLevel2");
-     TRK1    = TRK1 & t->GetBranchStatus("TrkLevel1");
+ //     TRK1    = TRK1 & t->GetBranchStatus("TrkLevel1");
-     TRKh    = TRKh & t->GetBranchStatus("TrkHough");
+ //     TRKh    = TRKh & t->GetBranchStatus("TrkHough");
-     CAL1    = CAL1 & t->GetBranchStatus("CaloLevel1");
+ //     CAL1    = CAL1 & t->GetBranchStatus("CaloLevel1");
-     CAL2    = CAL2 & t->GetBranchStatus("CaloLevel2");
+ //     CAL2    = CAL2 & t->GetBranchStatus("CaloLevel2");
-     TOF    = TOF & t->GetBranchStatus("ToFLevel2");
+ //     TOF    = TOF & t->GetBranchStatus("ToFLevel2");
-     TRG    = TRG & t->GetBranchStatus("TrigLevel2");
+ //     TRG    = TRG & t->GetBranchStatus("TrigLevel2");
-     S4     = S4  & t->GetBranchStatus("S4Level2");
+ //     S4     = S4  & t->GetBranchStatus("S4Level2");
-     ND     = ND  & t->GetBranchStatus("NDLevel2");
+ //     ND     = ND  & t->GetBranchStatus("NDLevel2");
-     AC     = AC  & t->GetBranchStatus("AcLevel2");
+ //     AC     = AC  & t->GetBranchStatus("AcLevel2");
-     ORB    = ORB & t->GetBranchStatus("OrbitalInfo");
+ //     ORB    = ORB & t->GetBranchStatus("OrbitalInfo");
+ //    GP     = GP & t->GetBranchStatus("h20");
      // Tracker
-      if(TRK2) {
+     if(TRK2) {
          t->SetBranchAddress("TrkLevel2", GetPointerTo("TrkLevel2"));
          cout << "Tracker      : set branch address TrkLevel2"<<endl;
      };
-Line 1388 
 void PamLevel2::SetBranchAddress(TChain
+Line 2200 
 void PamLevel2::SetBranchAddress(TChain
          t->SetBranchAddress("TrkLevel1", GetPointerTo("TrkLevel1"));
          cout << "Tracker      : set branch address TrkLevel1"<<endl;
      };
-      if(TRKh) {
+     if(TRKh) {
          t->SetBranchAddress("TrkHough", GetPointerTo("TrkHough"));
          cout << "Tracker      : set branch address TrkHough"<<endl;
-      };
+     };
      // Calorimeter
      if(CAL2) {
-Line 1433 
 void PamLevel2::SetBranchAddress(TChain
+Line 2245 
 void PamLevel2::SetBranchAddress(TChain
          t->SetBranchAddress("OrbitalInfo", GetPointerTo("OrbitalInfo"));
          cout << "OrbitalInfo  : set branch address OrbitalInfo"<<endl;
      };
-     // SelectionList
+     // GPamela
-     if(SELLI==1) {
+ //    cout <<"GP "<<GP<<endl;
-         t->SetBranchAddress("RunEntry", &irun);
+     if(GP) {
-         cout << "SelectionList: set branch address RunEntry"<<endl;
+ //      GetPointerTo("GPamela");
-         t->SetBranchAddress("EventEntry", &irunentry);
+         if(!gp_obj)gp_obj = new GPamela();
-         cout << "SelectionList: set branch address EventEntry"<<endl;
+         gp_obj->SetBranchAddress(t); //ho dovuto fare in maniera diversa dagli altri
+         cout << "h20          : set branch address GPamela "<<endl;
      };
+     // SelectionList
+ //     if(SELLI==1){
+ //      t->SetBranchAddress("RunEntry",&irunt);//NEWNEW
+ //      cout << "SelectionList: set branch address RunEntry"<<endl;
+ //      t->SetBranchAddress("EventEntry",&irunentry);
+ //      cout << "SelectionList: set branch address EventEntry"<<endl;
+ //     }
  }
-Line 1454 
 void PamLevel2::SetBranchAddress(TChain
+Line 2275 
 void PamLevel2::SetBranchAddress(TChain
   * @return Pointer to a TChain
   */
  TChain *PamLevel2::GetRunTree(TList *fl){
+     //
+     //
+     //
+     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
-Line 1474 
 TChain *PamLevel2::GetRunTree(TList *fl)
+Line 2302 
 TChain *PamLevel2::GetRunTree(TList *fl)
          cout << "Run         : set branch address RunInfo"<<endl;
          R->SetBranchAddress("SoftInfo", GetPointerTo("SoftInfo")); // Emiliano
          cout << "Software    : set branch address SoftInfo"<<endl; // Emiliano
+         irunoffset = new int[R->GetNtrees()];
+         cout << "----------------------------------------------------"<<endl;
+         cout << "irun\t | ";
+         cout << "tree\t |";
+ //      cout << "offset\t |";
+         cout << "RUN\t";
+         cout << "FRAG\t";
+         cout << "NEVENTS\t";
+         cout << "absolute time\t\t\t";
+         cout << "on-board time";
+         cout<<endl;
+         for (Int_t ii=0; ii<R->GetEntries(); ii++){
+             R->GetEntry(ii);
+             cout << ii<< "\t | ";
+             cout << R->GetTreeNumber()<< "\t |";
+ //          cout << R->GetChainOffset()<< "\t |";
+             cout <<GetRunInfo()->ID<<"\t";
+             cout <<GetRunInfo()->ID_RUN_FRAG<<"\t";
+             cout <<GetRunInfo()->NEVENTS<< "\t";
+             cout <<GetRunInfo()->RUNHEADER_TIME<<" <---> "<<GetRunInfo()->RUNTRAILER_TIME <<"\t";
+             cout <<GetRunInfo()->RUNHEADER_OBT<<" <---> "<<GetRunInfo()->RUNTRAILER_OBT<<"\t";
+             cout <<endl;
+             irunoffset[R->GetTreeNumber()]=R->GetChainOffset();
+         }
+         cout << "----------------------------------------------------"<<endl;
      }else{
          delete R;
          R=0;
-Line 1494 
 TChain *PamLevel2::GetRunTree(TList *fl)
+Line 2351 
 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");
-     if(R){
+     if(T){
-         R->SetBranchAddress("RunInfo", GetPointerTo("RunInfo"));
+         T->SetBranchAddress("RunInfo", GetPointerTo("RunInfo"));
          cout << "Run         : set branch address RunInfo"<<endl;
-         R->SetBranchAddress("SoftInfo", GetPointerTo("SoftInfo")); // Emiliano
+         T->SetBranchAddress("SoftInfo", GetPointerTo("SoftInfo")); // Emiliano
          cout << "Software    : set branch address SoftInfo"<<endl; // Emiliano
      }
-     run_tree = (TChain*)R;
+     run_tree = (TChain*)T;
-     return R;
+     return T;
  }
  /**
-Line 1516 
 TTree *PamLevel2::GetRunTree(TFile *f){
+Line 2379 
 TTree *PamLevel2::GetRunTree(TFile *f){
   * @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
+     // check if we have already called once GetEntry, if not call it
-   //
+     //
-   if ( run->GetEntries() <= 0 ) return(false);
+     cout << "Bool_t PamLevel2::UpdateRunInfo(TChain *run, Long64_t iev) --- ATTENZIONE --- NON E` MANTENUTA!!!!!!!.... "<<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;
+     //  Int_t oldrun = irun;
-   // --------------------------------------
+     Long64_t oldrun = irun;
-   // if it is a full file (not preselected)
-   // --------------------------------------
+     // --------------------------------------
-   if(SELLI==0){
+     // if it is a full file (not preselected)
-       if ( irun < 0 ){
+     // --------------------------------------
-           irun = 0;
+     if(SELLI==0){
-           run->GetEntry(irun);
-           runfirstentry = 0ULL;
+         //
-           runlastentry += (ULong64_t)(this->GetRunInfo()->NEVENTS) - 1ULL;
+         // the absolute time is necessary to relate the event with the run
-           return(true);
+         //
-       };
+         if( !GetOrbitalInfo() && !ISGP){
+             cout << "Bool_t PamLevel2::UpdateRunInfo(TChain *run, ULong64_t iev) -- ERROR -- missing OrbitalInfo "<<endl;
-       if( !GetOrbitalInfo() ){
+             return(false);
-           cout << "Bool_t PamLevel2::UpdateRunInfo(TChain *run, ULong64_t iev) -- ERROR -- missing OrbitalInfo "<<endl;
+         }
-           return(false);
-       }
+         ULong64_t abstime = 0;
-       // modificato il controllo sull'aggiornamento del run, per evitare problemi
+         if( GetOrbitalInfo() )abstime=GetOrbitalInfo()->absTime;
-       // dovuti agli eventi annidati (NB! NEVENTS conta anche questi!!)
-       while ( GetOrbitalInfo()->absTime > GetRunInfo()->RUNTRAILER_TIME && irun < run->GetEntries() ){
+         //
+         // 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;
+             irunt = -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() ){
-           //    printf(" iev %llu %u %llu \n",iev,this->GetRunInfo()->NEVENTS,(ULong64_t)(runfirstentry+(ULong64_t)(this->GetRunInfo()->NEVENTS)));
+             irun++;
-           irun++;
+             run->GetEntry(irun);
-           run->GetEntry(irun);
+             runfirstentry = runlastentry;
-           runfirstentry = runlastentry+1ULL;
+             if ( (Long64_t)(this->GetRunInfo()->NEVENTS) > 0LL ) runfirstentry += 1LL;
-           runlastentry += (ULong64_t)(this->GetRunInfo()->NEVENTS);
+             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 %llu \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
+     // -----------------------------------------------------------------------
+     // the first time the routine is called, set run search from the beginning
+     // -----------------------------------------------------------------------
+     if ( irun < 0 ){
+         irun = 0LL;
+         irunt = 0LL;
+         irunentry = 0;
+         prevshift = 0;
+         run_tree->GetEntry(irun);
+         if( !GetOrbitalInfo() )cout << "** WARNING ** missing OrbitalInfo ---> run info might be not correctly updated "<<endl;
+     };
+     // ---------------------------------------------------------------
+     // retrieve OBT and absolute time of the event
+     // ---------------------------------------------------------------
+     ULong64_t abstime = 0LL;
+     ULong64_t obt     = 0LL;
+     if( GetOrbitalInfo() ){
+         abstime = GetOrbitalInfo()->absTime;
+         obt     = GetOrbitalInfo()->OBT;
+ //      cout << " ABS >>> "<<abstime<<" OBT >>> "<<obt<<" "<<endl;
+     }else{
+         abstime = GetRunInfo()->RUNHEADER_TIME;
+         obt     = GetRunInfo()->RUNHEADER_OBT;
+     }
+ //    cout << ISGP << " "<<abstime<<endl;
+     // ---------------------------------------------------------------
+     // 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);
+ //     }
+     // -----------------------------------------------------------------------
+     // if it is simulation, assign abstime by hand (temporaneo!!!)
+     // -----------------------------------------------------------------------
+ //     if(ISGP){
+ //      abstime = GetRunInfo()->RUNHEADER_TIME; // BARBATRUCCO
+ //      obt     = GetRunInfo()->RUNHEADER_OBT; // BARBATRUCCO
+ //     }
+     // +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
+     // if it is a full file (not preselected)
+     // +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
+     if(SELLI==0){
+         // ---------------------------------------------------------------
+         // increment dead and live-time counters
+         // (only when reading a file not preselected)
+         // ---------------------------------------------------------------
+         if(SELLI==0){
+             if( GetTrigLevel2() ){
+                 totdltime[0]+=GetTrigLevel2()->dltime[0];
+                 totdltime[1]+=GetTrigLevel2()->dltime[1];
+             }
+             totdltime[2]++;
+         }
+ //      cout << setw(10)<<totdltime[0]<<setw(10)<<totdltime[1]<<setw(10)<<totdltime[2]<<endl;
+ //      // ---------------------------------------------------------------
+ //      // retrieve OBT and absolute time of the event
+ //      // ---------------------------------------------------------------
+ //      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);
+ //      }
-       //
+ //      // -----------------------------------------------------------------------
-       if
+ //      // the first time the routine is called, set run search from the beginning
-  ( irun == oldrun || irun >= run->GetEntries() ) return(false);
+ //      // -----------------------------------------------------------------------
-       //
+ //      if ( irun < 0 ){
-       //  printf(" iev %llu irun %i nevents %u 1st %llu last %llu \n",iev,irun,this->GetRunInfo()->NEVENTS,(ULong64_t)runfirstentry,(ULong64_t)runlastentry);
+ //          irun = 0LL;
-       //
+ //          irunt = 0LL;
-       return(true);
+ //          irunentry = 0;
-   };
+ //          prevshift = 0;
-   // ----------------------------------------------------
+ //          run_tree->GetEntry(irun);
-   // if it is a preselected file (there is SelectionList)
-   // NBNB - the event tree MUST be read first
+ //          if( ISGP && run_tree->GetEntries()!=1 ){
-   // ----------------------------------------------------
+ //              cout << "** WARNING ** simulated files are assumed to have 1 single run, not "<< run_tree->GetEntries() << endl;
-   if(SELLI==1){
+ //              cout << "** WARNING ** run will not be updated"<<endl;
-       sel_tree->GetEntry(iev);
+ //          }
-       if(irun != oldrun){
+ //      };
-           run->GetEntry(irun);
-           return true;
+ //      // -----------------------------------------------------------------------
-       }
+ //      // if it is simulation, assign abstime by hand (temporaneo!!!)
-       return false;
+ //      // -----------------------------------------------------------------------
-   }
+ //      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) // ERRORE!!! fa saltare i run con 1 evento
+                 || !(irunentry <= GetRunInfo()->NEVENTS-1-prevshift)
+                 )
+             && irun < run_tree->GetEntries() ){
+             // - - - - - - - - - - - - -
+             // irunentry = position of current entry, relative to the run
+             // prevshift = shift needed to synchronize l0 and l2 data (nested events)
+             // - - - - - - - - - - - - -
+             // -----------------------------------------
+             // store dead and live-time of previous run
+             // -----------------------------------------
+ //          if(SELLI==0){
+                 if(fromfirst){
+                     if(oldrun==irun){
+                         /// decrement counters
+                         if( GetTrigLevel2()){
+                             totdltime[0]-=GetTrigLevel2()->dltime[0];//live-time
+                             totdltime[1]-=GetTrigLevel2()->dltime[1];//dead-time
+                         }
+                         totdltime[2]--;                              //event counter
+                         cout << endl;
+                         cout << "n.events     : "<<totdltime[2]<<endl;
+                         cout << "RUN LIVE-TIME: "<<totdltime[0]*0.16<<" ms"<<endl;
+                         cout << "RUN DEAD-TIME: "<<totdltime[1]*0.01<<" ms"<<endl;
+                     }else{
+                         totdltime[0]=0;//live-time
+                         totdltime[1]=0;//dead-time
+                         totdltime[2]=0;                             //event counter
+                         cout << " *** JUMP RUN *** irun "<<irun<<endl;
+                     }
+                     /// add an entry
+                     if(run_tree_clone)
+                         if(run_tree_clone->GetBranch("DeadLiveTime")->GetEntries() < run_tree->GetEntries())
+                             run_tree_clone->GetBranch("DeadLiveTime")->Fill();
+                     /// reset counters
+                     if( GetTrigLevel2() ){
+                         totdltime[0]=GetTrigLevel2()->dltime[0];//live-time
+                         totdltime[1]=0;                         //dead-time
+                     }
+                     totdltime[2]=1;                             //event counter
+                 }
+ //          }
+             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);
+             irunt = irun - irunoffset[run_tree->GetTreeNumber()];
+             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)
+     // +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
+     // irun  = run entry relative to the chain
+     // irunt = run entry relative to the tree
+     if(SELLI==1){
+         sel_tree->GetEntry(iev);// read irunt from SelectionList
+         irun = irunt + irunoffset[sel_tree->GetTreeNumber()];//NEWNEW
+         if(irun != oldrun ){
+             if( irun < run_tree->GetEntries() )run_tree->GetEntry(irun);
+             // check if the time is ok (with merged files it is not...)
+             // if not loop over run and look for the proper entry
+             bool SECONDO_GIRO=false;
+             Long64_t irun_start   = irun;
+             int      offset_start = irunoffset[sel_tree->GetTreeNumber()];
+             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
+                     )
+ //              && irun < run_tree->GetEntries()
+                 ){
+                 cout << " (test) ";
+                 cout << " tree "<<sel_tree->GetTreeNumber();
+                 cout << " irunt "<<irunt;
+                 cout << " offset "<<irunoffset[sel_tree->GetTreeNumber()];
+                 cout << " abs "<<abstime;
+                 cout <<" >> "<<GetRunInfo()->RUNHEADER_TIME<<" "<<GetRunInfo()->RUNTRAILER_TIME;
+                 cout << " obt "<<obt;
+                 cout <<" >> "<<GetRunInfo()->RUNHEADER_OBT<<" "<<GetRunInfo()->RUNTRAILER_OBT;
+                 cout << " *** JUMP RUN *** irun "<<irun;
+ //              if(!SECONDO_GIRO)cout << " (don't worry)";
+ //              else             cout << " (start worring...)";
+                 cout << endl;
+ //              irun++;
+                 irunoffset[sel_tree->GetTreeNumber()]++;
+                 irun = irunt + irunoffset[sel_tree->GetTreeNumber()];//NEWNEW
+                 if(irun == run_tree->GetEntries() && SECONDO_GIRO){
+ //              if(irun == irun_start ){
+                     cout << " ...grrrvzzkhhhajsdkj!!!! "<<endl;
+                     irunoffset[sel_tree->GetTreeNumber()] = offset_start;
+                     return false;
+                 }
+                 if( irun >= run_tree->GetEntries() || irun < 0){
+                     cout << "irun = "<<irun<<" >>  search from the beginning... <<"<<endl;
+                     SECONDO_GIRO=true;
+                     irun=0;
+                     irunoffset[sel_tree->GetTreeNumber()]=-irunt;
+                 }
+                 run_tree->GetEntry(irun);
+             }
-   return false;
+             cout << " (test) ";
-   //
+             cout << " tree "<<sel_tree->GetTreeNumber();
+             cout << " irunt "<<irunt;
+             cout << " offset "<<irunoffset[sel_tree->GetTreeNumber()];
+             cout << " abs "<<abstime;
+             cout <<" >> "<<GetRunInfo()->RUNHEADER_TIME<<" "<<GetRunInfo()->RUNTRAILER_TIME;
+             cout << " obt "<<obt;
+             cout <<" >> "<<GetRunInfo()->RUNHEADER_OBT<<" "<<GetRunInfo()->RUNTRAILER_OBT;
+             cout << endl;
+             cout << endl << " ))))) UPDATE RUN INFO (((((  @iev "<<iev<<" run "<<GetRunInfo()->ID<<" irun "<<irun<<endl;
+             cout << 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));
+     return(UpdateRunInfo((TChain*)run,iev));
  };
  //--------------------------------------
-Line 1591 
 Bool_t PamLevel2::UpdateRunInfo(TTree *r
+Line 2850 
 Bool_t PamLevel2::UpdateRunInfo(TTree *r
  /**
   * Set which trees shoul be analysed
   * @param detlist TString containing the sequence of trees required
- */
+  */
  void PamLevel2::SetWhichTrees(TString detlist){
-     if(detlist.IsNull() || detlist.Contains("+ALL", TString::kIgnoreCase)){
+ //    if(detlist.IsNull() || detlist.Contains("+ALL", TString::kIgnoreCase)){
-         CAL0 = false;
+     if( detlist.Contains("+ALL", TString::kIgnoreCase)){
+         cout << " ======================================================== "<<endl;
+         cout << "                       (( WARNING ))                      "<<endl;
+         cout << " The meaning of the option +ALL has changed!!             "<<endl;
+         cout << " Now it includes really all (level0+level1+level2+gpamela)"<<endl;
+         cout << " and the file is discarded if it does not contain         "<<endl;
+         cout << " all trees or  if level0 files are not available!!        "<<endl;
+         cout << " ======================================================== "<<endl;
+         CAL0 = true;
          CAL1 = true;
          CAL2 = true;
          TRK2 = true;
-         TRK1 = false;
+         TRK1 = true;
-         TRKh = false;
+         TRKh = true;
-         TRK0 = false;
+         TRK0 = true;
          TRG = true;
          TOF = true;
-         TOF0 = false;
+         TOF0 = true;
          S4  = true;
          ND  = true;
          AC  = true;
          ORB = true;
+         GP  = true;
      }else if( detlist.Contains("-ALL", TString::kIgnoreCase) ){
          CAL0 = false;
          CAL1 = false;
-Line 1624 
 void PamLevel2::SetWhichTrees(TString de
+Line 2894 
 void PamLevel2::SetWhichTrees(TString de
          ND  = false;
          AC  = false;
          ORB = false;
+         GP  = false;
      };
  //  -------------------------------------------------------------------------
-Line 1697 
 void PamLevel2::SetWhichTrees(TString de
+Line 2968 
 void PamLevel2::SetWhichTrees(TString de
      if( detlist.Contains("-ORB", TString::kIgnoreCase) )ORB = false;
      else if( detlist.Contains("+ORB", TString::kIgnoreCase) )ORB = true;
+     if( detlist.Contains("-GP", TString::kIgnoreCase) )GP = false;
+     else if( detlist.Contains("+GP", TString::kIgnoreCase) )GP = true;
+     cout<< "tree/branch list from input --> ";
+     if(TRK0)cout<<"TRK0 ";
+     if(TRK1)cout<<"TRK1 ";
+     if(TRK2)cout<<"TRK2 ";
+     if(TRKh)cout<<"TRKH ";
+     if(CAL0)cout<<"CAL0 ";
+     if(CAL1)cout<<"CAL1 ";
+     if(CAL2)cout<<"CAL2 ";
+     if(TOF)cout<<"TOF ";
+     if(TRG)cout<<"TRG ";
+     if(AC)cout<<"AC ";
+     if(ND)cout<<"ND ";
+     if(S4)cout<<"S4 ";
+     if(ORB)cout<<"ORB ";
+     if(GP)cout<<"GP ";
+     cout << endl;
  //     cout<< "Set detector list --> ";
  //     if(TRK1)cout<<"TRK1 ";
  //     if(TRK2)cout<<"TRK2 ";
  //     if(TRKh)cout<<"TRKH ";
  //     if(CAL1)cout<<"CAL1 ";
  //     if(CAL2)cout<<"CAL2 ";
+ //     if(TOF0)cout<<"TOF0 ";
  //     if(TOF)cout<<"TOF ";
  //     if(TRG)cout<<"TRG ";
  //     if(AC)cout<<"AC ";
-Line 1721 
 void  PamLevel2::GetWhichTrees(TFile* f)
+Line 3012 
 void  PamLevel2::GetWhichTrees(TFile* f)
-     cout << "void  PamLevel2::GetWhichTrees(TFile* f) --- WARNING!! --- ...potrebbe non funzionare "<<endl;
+ //    cout << "void  PamLevel2::GetWhichTrees(TFile* f) --- WARNING!! --- ...potrebbe non funzionare "<<endl;
      // -----------
      // reset flags
      // -----------
-Line 1736 
 void  PamLevel2::GetWhichTrees(TFile* f)
+Line 3027 
 void  PamLevel2::GetWhichTrees(TFile* f)
      ND     = false;
      AC     = false;
      ORB    = false;
+     GP     = false;
      RUN    = false;
-Line 1826 
 void  PamLevel2::GetWhichTrees(TFile* f)
+Line 3118 
 void  PamLevel2::GetWhichTrees(TFile* f)
                  TRK2 = false;
                  TRKh = false;
              }else nev=nevt;
-             T->Delete();
+ //          T->Delete();
          };
          //=========================================================
          if( !strcmp(key->GetName(),"Calorimeter"    ) ){
-Line 1842 
 void  PamLevel2::GetWhichTrees(TFile* f)
+Line 3134 
 void  PamLevel2::GetWhichTrees(TFile* f)
                  CAL1 = false;
                  CAL2 = false;
              }else nev=nevt;
-             T->Delete();
+ //          T->Delete();
          };
+         //=========================================================
+         if( !strcmp(key->GetName(),"h20") ){
+             GP = true;
+             Int_t nevt = ((TTree*)f->Get("h20"))->GetEntries();
+             if( nev && nevt!=nev){
+                 cout << "File: "<< f->GetName() <<" h20 tree has "<<nevt<<" events instead of "<<nev<< endl;
+                 GP = false;
+             }else nev=nevt;
+         }
      };
-     delete lk;
+ //    delete lk;
- //     cout<< "Get detector list from input file --> ";
+     cout<< "tree/branch list from file  --> ";
- //     if(TRK1)cout<<"TRK1 ";
+     if(TRK1)cout<<"TRK1 ";
- //     if(TRK2)cout<<"TRK2 ";
+     if(TRK2)cout<<"TRK2 ";
- //     if(TRKh)cout<<"TRKH ";
+     if(TRKh)cout<<"TRKH ";
- //     if(CAL1)cout<<"CAL1 ";
+     if(CAL1)cout<<"CAL1 ";
- //     if(CAL2)cout<<"CAL2 ";
+     if(CAL2)cout<<"CAL2 ";
- //     if(TOF)cout<<"TOF ";
+     if(TOF)cout<<"TOF ";
- //     if(TRG)cout<<"TRG ";
+     if(TRG)cout<<"TRG ";
- //     if(AC)cout<<"AC ";
+     if(AC)cout<<"AC ";
- //     if(ND)cout<<"ND ";
+     if(ND)cout<<"ND ";
- //     if(S4)cout<<"S4 ";
+     if(S4)cout<<"S4 ";
- //     if(ORB)cout<<"ORB ";
+     if(ORB)cout<<"ORB ";
- //     cout << endl;
+     if(GP)cout<<"GP ";
+     cout << endl;
      return ;
-Line 1890 
 Bool_t  PamLevel2::CheckLevel2File(TStri
+Line 3192 
 Bool_t  PamLevel2::CheckLevel2File(TStri
      Bool_t ND__ok     = false;
      Bool_t AC__ok     = false;
      Bool_t ORB__ok    = false;
+     Bool_t GP__ok     = false;
      Bool_t RUN__ok    = false;
      Bool_t SELLI__ok  = false;
-     cout << "Checking file: "<<name<<endl;
+ //    cout << "Checking file: "<<name<<endl;
      TFile *f = new TFile(name.Data());
      if( !f || f->IsZombie() ){
          cout << "File: "<< f->GetName() <<" discarded ---- Non valid root file"<< endl; return false;
-Line 1921 
 Bool_t  PamLevel2::CheckLevel2File(TStri
+Line 3224 
 Bool_t  PamLevel2::CheckLevel2File(TStri
  //          return false;
  //      };
+         //=========================================================
+         // check if the file
          if( !strcmp(key->GetName(),"Run"        ) )RUN__ok = true;
-Line 2047 
 Bool_t  PamLevel2::CheckLevel2File(TStri
+Line 3353 
 Bool_t  PamLevel2::CheckLevel2File(TStri
              };
              T->Delete();
          };
+         //=========================================================
+         if( !strcmp(key->GetName(),"h20") ){
+             ISGP = true;
+             GP__ok = true;
+             if(GP){
+                 Int_t nevt = ((TTree*)f->Get("h20"))->GetEntries();
+                 if( nev && nevt!=nev){
+                     cout << "File: "<< f->GetName() <<" discarded ---- OrbitalInfo tree has "<<nevt<<" events instead of "<<nev<< endl;
+                     return false;
+                 }
+                 nev=nevt;
+             }
+         }
      };
-Line 2136 
 Bool_t  PamLevel2::CheckLevel2File(TStri
+Line 3455 
 Bool_t  PamLevel2::CheckLevel2File(TStri
          cout << "File: "<< f->GetName() <<" discarded ---- Missing Trigger tree"<< endl;
          return false;
      };
+     if(GP && !GP__ok){
+         cout << "File: "<< f->GetName() <<" discarded ---- Missing h20 tree"<< endl;
+         return false;
+     };
  //    lk->Delete();
-Line 2154 
 Bool_t  PamLevel2::CheckLevel2File(TStri
+Line 3477 
 Bool_t  PamLevel2::CheckLevel2File(TStri
  //     if(ND)cout<<"ND ";
  //     if(S4)cout<<"S4 ";
  //     if(ORB)cout<<"ORB ";
+ //     if(GP)cout<<"GP ";
  //     cout << endl;
      return true;
-Line 2204 
 void PamLevel2::CreateCloneTrees0( TChai
+Line 3528 
 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;
-Line 2215 
 void PamLevel2::CreateCloneTrees(TFile *
+Line 3547 
 void PamLevel2::CreateCloneTrees(TFile *
      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;
+     // ------------------------------------
+     // add branch with dead and live times
+     // ------------------------------------
+     run_tree_clone->Branch("DeadLiveTime",totdltime,"dltime[3]/l");
+     cout << "Run          : branch DeadLiveTime"<<endl;
      sel_tree_clone = new TTree("SelectionList","List of selected events ");
-     sel_tree_clone->Branch("RunEntry",&irun,"runentry/I");
+ //    sel_tree_clone->Branch("RunEntry",&irun,"runentry/L");
-     sel_tree_clone->Branch("EventEntry",&irunentry,"eventry/I");
+     sel_tree_clone->Branch("RunEntry",&irunt,"runentry/L");//NEWNEW
+     sel_tree_clone->Branch("EventEntry",&irunentry,"eventry/L");
      Int_t i=0;
-Line 2230 
 void PamLevel2::CreateCloneTrees(TFile *
+Line 3579 
 void PamLevel2::CreateCloneTrees(TFile *
              pam_tree_clone[i]->Branch("TrkLevel1","TrkLevel1", GetPointerTo("TrkLevel1"));
              pam_tree_clone[i]->BranchRef();
              cout << "Tracker      : branch TrkLevel1"<<endl;
-             cout << "CreateCloneTrees " << GetTrkLevel1()<<endl;
+ //          cout << "CreateCloneTrees " << GetTrkLevel1()<<endl;
          };
          if(TRK2) {
              pam_tree_clone[i]->Branch("TrkLevel2", "TrkLevel2",GetPointerTo("TrkLevel2"));
-Line 2299 
 void PamLevel2::CreateCloneTrees(TFile *
+Line 3648 
 void PamLevel2::CreateCloneTrees(TFile *
          cout << "OrbitalInfo  : branch OrbitalInfo"<<endl;
          i++;
      };
+     // GPamela
+     if(GP) {
+         pam_tree_clone[i] = new TTree("h20","PAMELA oribital info  ");
+         pam_tree_clone[i]->Branch("GPamela","GPamela", GetPointerTo("GPamela"),32000,1);//split
+         cout << "OrbitalInfo  : branch OrbitalInfo"<<endl;
+         i++;
+     };
      cout << "+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+" <<endl;
  }
-Line 2343 
 TTree* PamLevel2::GetCloneTree(TString n
+Line 3699 
 TTree* PamLevel2::GetCloneTree(TString n
  void PamLevel2::WriteCloneTrees(){
      cout << "+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+" <<endl;
      cout << "Write clones of PAMELA trees "<<endl;
      cout << run_tree_clone->GetName()<<endl;
+     if(run_tree_clone->GetBranch("DeadLiveTime")->GetEntries() < run_tree->GetEntries())
+         run_tree_clone->GetBranch("DeadLiveTime")->Fill();
      run_tree_clone->Write();
      cout << sel_tree_clone->GetName()<<endl;
      sel_tree_clone->Write();
-Line 2360 
 void PamLevel2::WriteCloneTrees(){
+Line 3718 
 void PamLevel2::WriteCloneTrees(){
  /**
   * Method to get level2-trees entry, the corresponding run entry and (if required) the level0 entry.
   */
- Int_t PamLevel2::GetEntry(Int_t iee){
+ //Int_t PamLevel2::GetEntry(Int_t iee){
+ Int_t PamLevel2::GetEntry(Long64_t iee){
+ //     cout << "-------------------------------------"<<endl;
+ //     cout << "Int_t PamLevel2::GetEntry("<<iee<<")"<<endl;
      if(!pam_tree){
          cout << " Int_t PamLevel2::GetEntry(Int_t) -- ERROR -- level2 trees not loaded"<<endl;
          return 0;
-Line 2376 
 Int_t PamLevel2::GetEntry(Int_t iee){
+Line 3738 
 Int_t PamLevel2::GetEntry(Int_t iee){
      //  return 0;
      //    }
-     Int_t ii=0;
+     Long64_t ii=0;
      //-------------------------------
      ii = iee;
-     if( !pam_tree->GetEntry(ii) ) return 0;
+     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.
-Line 2387 
 Int_t PamLevel2::GetEntry(Int_t iee){
+Line 3752 
 Int_t PamLevel2::GetEntry(Int_t iee){
      // a problem if you don't check the return code of getentry.
      //
      if(!run_tree ){
-         cout << " Int_t PamLevel2::GetEntry(Int_t) -- ERROR -- run tree not loaded"<<endl;
+         if ( TRK0 || CAL0 || TOF0 || RUN ) { //forse cosi` va bene per tornare 1?
-         return 0;
+             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(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();
+ //    if(UPDATED && run_tree_clone)run_tree_clone->Fill();
  //    cout << "PamLevel2::GetEntry("<<iee<<") "<<irun<<" "<<runfirstentry<<" "<<irunentry<<endl;
-     if( TRK0 || CAL0 || TOF0 )GetYodaEntry( );
+ //     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.
-Line 2419 
 TTree* PamLevel2::GetYodaTree( ){
+Line 3818 
 TTree* PamLevel2::GetYodaTree( ){
      // check if iroot has changed
      //===================================
      if( irun<0 ){
-         cout << "PamLevel2::GetYodaTree() -- ERROR "<<endl;
+         cout << "PamLevel2::GetYodaTree() -- ERROR -- irun = "<<irun<<endl;
-         cout << "In order to use this method you have to load the RunInfo tree "<<endl;
+ //      cout << "In order to use this method you have to first 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 << "iroot    "<<iroot<<endl;
- //     cout << "irootnew "<<irootnew<<endl;
+ //      cout << "irootnew "<<irootnew<<endl;
      //===================================
      // load the level0 file
-Line 2439 
 TTree* PamLevel2::GetYodaTree( ){
+Line 3836 
 TTree* PamLevel2::GetYodaTree( ){
          // open the DB connection
          // (if not already opened)
          //===================================
-         if(!dbc || (dbc && !dbc->IsConnected())){
+         if(!dbc || (dbc && !dbc->IsConnected()))SetDBConnection();
-             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;
-Line 2474 
 TTree* PamLevel2::GetYodaTree( ){
+Line 3858 
 TTree* PamLevel2::GetYodaTree( ){
          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){
-Line 2483 
 TTree* PamLevel2::GetYodaTree( ){
+Line 3868 
 TTree* PamLevel2::GetYodaTree( ){
              };
              l0_tree->SetBranchAddress("Tracker" ,trk0_obj->GetPointerToTrackerEvent());
          }
-         //---------------------------------------------------
+         //--------------------------------------------------
          // CALORIMETER:
          if(CAL0){
-             cout << "PamLevel2::GetYodaTree() --- level0 calorimeter not implemented "<<endl;
+             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:
-Line 2494 
 TTree* PamLevel2::GetYodaTree( ){
+Line 3884 
 TTree* PamLevel2::GetYodaTree( ){
              cout << "PamLevel2::GetYodaTree() --- level0 TOF not implemented "<<endl;
          }
+         dbc->Close(); // EMILIANO, do not leave open connections, open only when needed
      };
-     if(!dbc || (dbc && !dbc->IsConnected())){
+ //     if(!dbc || (dbc && !dbc->IsConnected())){
-         cout << " TTree* PamLevel2::GetYodaTree( ) -- no DB connected... hai fatto qualche cazzata "<<endl;
+ //      cout << " TTree* PamLevel2::GetYodaTree( ) -- no DB connected... hai fatto qualche cazzata "<<endl;
-     }
+ //     }
-     TrkParams::SetCalib(run_obj,dbc);
+     if ( TRK0 ){
+         TrkParams::Load(6);
+         if( !TrkParams::IsLoaded(6) ){
+             cout << " TTree* PamLevel2::GetYodaTree( ) -- WARNING -- VK-mask not loaded"<<endl;
+         };
+         if(!dbc || (dbc && !dbc->IsConnected()))SetDBConnection();
+         TrkParams::SetCalib(run_obj,dbc);
+         TrkParams::LoadCalib( );
+         if( !TrkParams::CalibIsLoaded() ){
+             cout << " TTree* PamLevel2::GetYodaTree( ) -- WARNING -- Calibration not loaded"<<endl;
+         };
+         dbc->Close(); // EMILIANO, do not leave open connections, open only when needed
+     }
  //    cout << l0_tree << endl;
      return l0_tree;
  }
-Line 2518 
 Int_t PamLevel2::GetYodaEntry(){
+Line 3922 
 Int_t PamLevel2::GetYodaEntry(){
      if(!GetYodaTree())return 0;
      // patch
-     if( (Int_t)irunentry < 0){
+     if( irunentry < 0){
-         cout << "Int_t PamLevel2::GetYodaEntry() -- ATTENZIONE -- irunentry negativo?!?! "<<(Int_t)irunentry<<endl;
+ //      cout << "Int_t PamLevel2::GetYodaEntry() -- ATTENZIONE -- irunentry negativo?!?! "<<(Int_t)irunentry<<endl;
-         irunentry=0;
+         irunentry=0LL;
      }
      //  ---------------------------------
      //  if file is NOT a preselected file
      //  ---------------------------------
-     UInt_t quellagiusta = irunentry + run_obj->EV_FROM;
+     Long64_t quellagiusta = irunentry + (Long64_t)(run_obj->EV_FROM);
+ //     cout << " irunentry "<<irunentry<<endl;
+ //     cout << " EV_FROM "<<run_obj->EV_FROM<<endl;
+ //     cout << " quellagiusta = irunentry + EV_FROM "<< quellagiusta << 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 << " time "<< abstime << endl;
  //     cout << " trk_calib_used "<<run_obj->TRK_CALIB_USED<< endl;
-     if( !GetOrbitalInfo() ){
+     ULong64_t obt     = 0;
+     ULong64_t pktn    = 0;
+     if( GetOrbitalInfo() ){
+         obt     = GetOrbitalInfo()->OBT;
+         pktn    = GetOrbitalInfo()->pkt_num;
+     }
+     if( !GetOrbitalInfo() && !ISGP){
          cout << "Int_t PamLevel2::GetYodaEntry() -- ERROR -- missing OrbitalInfo "<<endl;
          return 0;
      }
+     if( obt==0 && pktn==0 && !ISGP ){
+         cout << "Int_t PamLevel2::GetYodaEntry() -- ERROR -- level2 event corrupted ?? "<<endl;
+         return 0;
+     }
      // ---------------------------------------------------------------------
      // ATTENTION!!!
-Line 2551 
 Int_t PamLevel2::GetYodaEntry(){
+Line 3968 
 Int_t PamLevel2::GetYodaEntry(){
      // ---------------------------------------------------------------------
      Int_t answer = 0;
      Int_t shift =0;
+     //    printf(" siamo qui %i %i \n",shift,prevshift);
+     //    Int_t maxshift = 50; // EMILIANO
      do{
          if(shift>0){
-             cout << " level0 <--> level2 mismatch ( irun "<<irun<<" irunentry "<<irunentry<<" shift "<<shift<<" )"<<endl;
+             cout << " PKTNUM  L2 --- "<< pktn << " --- L0 --- "<< GetEventHeader()->GetPscuHeader()->GetCounter()<<endl;
+             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;
+             cout << "         L2 <--> L0 mismatch ( irun "<<irun<<" irunentry "<<irunentry<<" shift "<<shift<<" prevshift "<<prevshift<<" )"<<endl;
          }
-         answer = l0_tree->GetEntry(quellagiusta+shift);
+         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;
          }
+         if(ISGP){
+             obt = (UInt_t)(GetEventHeader()->GetPscuHeader()->GetOrbitalTime()); //BARBATRUCCO
+             pktn = (UInt_t)(GetEventHeader()->GetPscuHeader()->GetCounter()); //BARBATRUCCO
+         }
+ //      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;
- //      cout << " GetOrbitalInfo()->OBT "<< GetOrbitalInfo()->OBT << endl;
+ //      cout << " obt "<< obt << endl;
  //      cout << " GetEventHeader()->GetPscuHeader()->GetOrbitalTime() "<< GetEventHeader()->GetPscuHeader()->GetOrbitalTime() << endl;
- //      cout << " GetOrbitalInfo()->pkt_num "<< GetOrbitalInfo()->pkt_num << endl;
+ //      cout << " pktn "<< pktn << 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;
+         };
-     }while( ( GetOrbitalInfo()->OBT != (UInt_t)(GetEventHeader()->GetPscuHeader()->GetOrbitalTime()) || GetOrbitalInfo()->pkt_num != (UInt_t)(GetEventHeader()->GetPscuHeader()->GetCounter())) && (quellagiusta+shift) < GetYodaTree()->GetEntries() );
+     }while( ( obt != (UInt_t)(GetEventHeader()->GetPscuHeader()->GetOrbitalTime()) ||
+               pktn != (UInt_t)(GetEventHeader()->GetPscuHeader()->GetCounter())       )
+             && (quellagiusta+(Long64_t)shift) < GetYodaTree()->GetEntries() && shift < maxshift);
+     if ( (quellagiusta+(Long64_t)shift+(Long64_t)prevshift) > GetYodaTree()->GetEntries() || shift == maxshift ) {
+         cout << " Big trouble here, no such event in Level0 data! " <<endl;
+         return 0;
+     }
  //    cout << "LA ENTRY GIUSTA E`: "<<quellagiusta<<" (spero...)"<<endl;
  //    return GetYodaTree()->GetEntry(quellagiusta);
+     if ( shift > 1 ) prevshift += (shift-1);
      return answer;
  }
+ /**
+  * \Brief Set DB connection
+  */
+ Bool_t PamLevel2::SetDBConnection(){
+     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 false;
+     if( !dbc->IsConnected() )return false;
+     stringstream myquery;  // EMILIANO
+     myquery.str("");  // EMILIANO
+     myquery << "SET time_zone='+0:00'";  // EMILIANO
+     dbc->Query(myquery.str().c_str());  // EMILIANO
+     cout<<"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"<<endl;
+     return true;
+ }
+ /**
+  * \Brief Add a friend to the pamela chain.
+  * @param cname name of the chain to be added
+  */
+ TChain* PamLevel2::AddFriend(TString cname){
+     if(!GetPamTree()){
+         cout << " TChain* PamLevel2::AddFriend(TString cname) --- a pamela tree must be created first"<<endl;
+         return NULL;
+     }
+     TChain *c = new TChain( cname.Data() );
+     TIter next( GetPamTree()->GetListOfFiles() );
+     Int_t nf = 0;
+     TChainElement* element = 0;
+     while ((element = (TChainElement*) next())) {
+         c->Add(element->GetTitle());
+         nf++;
+     }
+     GetPamTree()->AddFriend(cname.Data());
+     cout << "external chain created and added to pamela friends :"<<cname<<endl;
+     cout << "n.files "<<nf<<endl;
+     return c;
+ }

 Legend:



Removed from v.1.28
 


changed lines


 
Added in v.1.58
 Legend:



Removed from v.1.28
 


changed lines


 
Added in v.1.58
-Removed from v.1.28
+Added in v.1.58

	ViewVC Help
Powered by ViewVC 1.1.23