| 13 | 
 #include <TClassEdit.h> | 
 #include <TClassEdit.h> | 
| 14 | 
 #include <TObject.h> | 
 #include <TObject.h> | 
| 15 | 
 #include <TList.h> | 
 #include <TList.h> | 
| 16 | 
 #include <TArrayL.h> | 
 #include <TArrayI.h> | 
| 17 | 
 #include <TSystem.h> | 
 #include <TSystem.h> | 
| 18 | 
 #include <TSystemDirectory.h> | 
 #include <TSystemDirectory.h> | 
| 19 | 
 #include <TString.h> | 
 #include <TString.h> | 
| 26 | 
 #include <stdlib.h> | 
 #include <stdlib.h> | 
| 27 | 
 #include <math.h> | 
 #include <math.h> | 
| 28 | 
 // | 
 // | 
| 29 | 
  | 
 // RunInfo header | 
| 30 | 
  | 
 // | 
| 31 | 
  | 
 #include <RunInfo.h> | 
| 32 | 
  | 
 #include <GLTables.h> | 
| 33 | 
  | 
 // | 
| 34 | 
 // YODA headers | 
 // YODA headers | 
| 35 | 
 // | 
 // | 
| 36 | 
 #include <PamelaRun.h> | 
 #include <PamelaRun.h> | 
 | 
 #include <RegistryEvent.h> | 
  | 
| 37 | 
 #include <PscuHeader.h> | 
 #include <PscuHeader.h> | 
| 38 | 
 #include <PscuEvent.h> | 
 #include <PscuEvent.h> | 
| 39 | 
 #include <EventHeader.h> | 
 #include <EventHeader.h> | 
 | 
 #include <RegistryEvent.h> | 
  | 
| 40 | 
 #include <physics/neutronDetector/NeutronEvent.h> | 
 #include <physics/neutronDetector/NeutronEvent.h> | 
| 41 | 
 #include <physics/neutronDetector/NeutronRecord.h> | 
 #include <physics/neutronDetector/NeutronRecord.h> | 
 | 
 //#include <yodaUtility.h> | 
  | 
| 42 | 
 // | 
 // | 
| 43 | 
 // RunInfo header | 
 // RunInfo header | 
| 44 | 
 // | 
 // | 
| 45 | 
 #include <RunInfo.h> | 
 //#include <RunInfo.h> | 
| 46 | 
 #include <GLTables.h> | 
 //#include <GLTables.h> | 
| 47 | 
 // | 
 // | 
| 48 | 
 // This program headers | 
 // This program headers | 
| 49 | 
 // | 
 // | 
| 57 | 
 // CORE ROUTINE | 
 // CORE ROUTINE | 
| 58 | 
 // | 
 // | 
| 59 | 
 // | 
 // | 
| 60 | 
 int NDCore(ULong64_t run, TFile *file, TSQLServer *dbc, Int_t NDargc, char *NDargv[]){ | 
 int NDCore(UInt_t run, TFile *file, GL_TABLES *glt, Int_t NDargc, char *NDargv[]){ | 
 | 
   //   | 
  | 
 | 
   Int_t i = 0; | 
  | 
| 61 | 
   // | 
   // | 
| 62 | 
   TString processFolder = "NDFolder"; | 
   // Set these to true to have a verbose output. | 
 | 
   // | 
  | 
 | 
   // Set these to true to have a very verbose output. | 
  | 
| 63 | 
   // | 
   // | 
| 64 | 
   Bool_t debug = false; | 
   Bool_t debug = false; | 
 | 
   // | 
  | 
| 65 | 
   Bool_t verbose = false; | 
   Bool_t verbose = false; | 
| 66 | 
   // | 
   // | 
| 67 | 
  | 
   // Output directory is the working directoy. | 
| 68 | 
  | 
   // | 
| 69 | 
  | 
   const char* outDir = gSystem->DirName(gSystem->DirName(file->GetPath())); | 
| 70 | 
  | 
   //   | 
| 71 | 
  | 
   Int_t i = 0; | 
| 72 | 
  | 
   TString processFolder = Form("NDFolder_%u",run); | 
| 73 | 
   if ( NDargc > 0 ){ | 
   if ( NDargc > 0 ){ | 
| 74 | 
     i = 0; | 
     i = 0; | 
| 75 | 
     while ( i < NDargc ){ | 
     while ( i < NDargc ){ | 
| 84 | 
         verbose = true; | 
         verbose = true; | 
| 85 | 
       }; | 
       }; | 
| 86 | 
       if ( (!strcmp(NDargv[i],"--debug")) || (!strcmp(NDargv[i],"-g")) ) { | 
       if ( (!strcmp(NDargv[i],"--debug")) || (!strcmp(NDargv[i],"-g")) ) { | 
| 87 | 
  | 
         debug = true; | 
| 88 | 
         verbose= true; | 
         verbose= true; | 
| 89 | 
       }; | 
       }; | 
| 90 | 
       i++; | 
       i++; | 
| 91 | 
     }; | 
     }; | 
| 92 | 
   }; | 
   }; | 
| 93 | 
   // | 
   // | 
| 94 | 
   const char* outDir = gSystem->DirName(gSystem->DirName(file->GetPath())); | 
  | 
| 95 | 
   // Variables for level2  | 
   // Variables for level2  | 
| 96 | 
   // | 
   // | 
| 97 | 
   TTree *NDtr = 0; | 
   TTree *NDtr = 0; | 
| 98 | 
   Long64_t nevents = 0LL; | 
   UInt_t nevents = 0; | 
| 99 | 
   // | 
   // | 
| 100 | 
   // variables needed to reprocess data | 
   // Variables needed to reprocess data | 
| 101 | 
   // | 
   // | 
| 102 | 
   TString NDversion; | 
   TString NDversion; | 
| 103 | 
   ItoRunInfo *runinfo = 0; | 
   ItoRunInfo *runinfo = 0; | 
| 104 | 
   TArrayL *runlist = 0; | 
   TArrayI *runlist = 0; | 
| 105 | 
   TTree *NDtrclone = 0; | 
   TTree *NDtrclone = 0; | 
| 106 | 
   Bool_t reproc = false; | 
   Bool_t reproc = false; | 
| 107 | 
   Bool_t reprocall = false; | 
   Bool_t reprocall = false; | 
| 110 | 
   UInt_t numbofrun = 0; | 
   UInt_t numbofrun = 0; | 
| 111 | 
   stringstream ftmpname; | 
   stringstream ftmpname; | 
| 112 | 
   TString fname; | 
   TString fname; | 
| 113 | 
   Long64_t totfileentries = 0ULL; | 
   UInt_t totfileentries = 0; | 
| 114 | 
   Long64_t idRun = 0LL; | 
   UInt_t idRun = 0; | 
| 115 | 
   Int_t tmpSize =0; | 
   Int_t tmpSize =0; | 
| 116 | 
   Float_t yTrig =0; | 
   Float_t yTrig =0; | 
| 117 | 
   Float_t yUpperBackground =0; | 
   Float_t yUpperBackground =0; | 
| 122 | 
   Int_t code = 0; | 
   Int_t code = 0; | 
| 123 | 
   Int_t sgnl; | 
   Int_t sgnl; | 
| 124 | 
   // | 
   // | 
| 125 | 
  | 
   Long64_t maxsize = 10000000000LL;   | 
| 126 | 
  | 
   TTree::SetMaxTreeSize(maxsize); | 
| 127 | 
  | 
   // | 
| 128 | 
  | 
   // | 
| 129 | 
   // ND level2 classes | 
   // ND level2 classes | 
| 130 | 
   // | 
   // | 
| 131 | 
   NDLevel2 *nd = new NDLevel2(); | 
   NDLevel2 *nd = new NDLevel2(); | 
| 136 | 
   TFile *l0File = 0; | 
   TFile *l0File = 0; | 
| 137 | 
   TTree *l0tr = 0; | 
   TTree *l0tr = 0; | 
| 138 | 
   TBranch *l0head = 0; | 
   TBranch *l0head = 0; | 
 | 
   TBranch *l0registry = 0; | 
  | 
| 139 | 
   TBranch *l0ND =0; | 
   TBranch *l0ND =0; | 
 | 
   pamela::RegistryEvent *l0reg=0; | 
  | 
| 140 | 
   pamela::EventHeader *eh = 0; | 
   pamela::EventHeader *eh = 0; | 
| 141 | 
  | 
   pamela::PscuHeader *ph = 0; | 
| 142 | 
   pamela::neutron::NeutronRecord *l0nr = 0; | 
   pamela::neutron::NeutronRecord *l0nr = 0; | 
| 143 | 
   pamela::neutron::NeutronEvent  *l0ne = 0; | 
   pamela::neutron::NeutronEvent  *l0ne = 0; | 
| 144 | 
   // | 
   // | 
| 149 | 
   stringstream file3; | 
   stringstream file3; | 
| 150 | 
   stringstream qy; | 
   stringstream qy; | 
| 151 | 
   Int_t totevent = 0; | 
   Int_t totevent = 0; | 
| 152 | 
   ULong64_t atime = 0ULL; | 
   UInt_t atime = 0; | 
| 153 | 
   Int_t ei = 0;  | 
   UInt_t re = 0; | 
 | 
   Int_t re = 0; | 
  | 
| 154 | 
   // | 
   // | 
| 155 | 
   // Working filename | 
   // Working filename | 
| 156 | 
   // | 
   // | 
| 165 | 
   TTree *tempND = 0; | 
   TTree *tempND = 0; | 
| 166 | 
   stringstream tempname; | 
   stringstream tempname; | 
| 167 | 
   stringstream NDfolder; | 
   stringstream NDfolder; | 
| 168 | 
  | 
   Bool_t myfold = false; | 
| 169 | 
   tempname.str(""); | 
   tempname.str(""); | 
| 170 | 
   tempname << outDir; | 
   tempname << outDir; | 
| 171 | 
   tempname << "/" << processFolder.Data(); | 
   tempname << "/" << processFolder.Data(); | 
| 172 | 
   NDfolder.str(""); | 
   NDfolder.str(""); | 
| 173 | 
   NDfolder << tempname.str().c_str(); | 
   NDfolder << tempname.str().c_str(); | 
 | 
   gSystem->MakeDirectory(NDfolder.str().c_str()); | 
  | 
| 174 | 
   tempname << "/NDtree_run"; | 
   tempname << "/NDtree_run"; | 
| 175 | 
   tempname << run << ".root";   | 
   tempname << run << ".root";   | 
| 176 | 
  | 
   UInt_t totnorun = 0; | 
| 177 | 
   // | 
   // | 
| 178 | 
   // DB classes | 
   // DB classes | 
| 179 | 
   // | 
   // | 
| 180 | 
   GL_ROOT *glroot = new GL_ROOT(); | 
   GL_ROOT *glroot = new GL_ROOT(); | 
| 181 | 
  | 
   GL_TIMESYNC *dbtime = 0; | 
| 182 | 
   // | 
   // | 
| 183 | 
   // Let's start! | 
   // Let's start! | 
| 184 | 
   // | 
   // | 
| 186 | 
   // if run != 0 we must process only that run but first we have to check if the tree MyDetector2 already exist in the file | 
   // if run != 0 we must process only that run but first we have to check if the tree MyDetector2 already exist in the file | 
| 187 | 
   // if it exists we are reprocessing data and we must delete that entries, if not we must create it. | 
   // if it exists we are reprocessing data and we must delete that entries, if not we must create it. | 
| 188 | 
   //  | 
   //  | 
| 189 | 
   if ( run == 0ULL )  reproc = true; | 
   if ( run == 0 )  reproc = true; | 
| 190 | 
   // | 
   // | 
| 191 | 
   // | 
   // | 
| 192 | 
   // Output file is "outputfile" | 
   // Output file is "outputfile" | 
| 209 | 
   sgnl = 0; | 
   sgnl = 0; | 
| 210 | 
   sgnl = runinfo->Update(run, "ND",NDversion); | 
   sgnl = runinfo->Update(run, "ND",NDversion); | 
| 211 | 
   if ( sgnl ){ | 
   if ( sgnl ){ | 
| 212 | 
     //printf(" ND - ERROR: RunInfo exited with non-zero status\n"); | 
     if ( debug ) printf(" ND - ERROR: RunInfo exited with non-zero status\n"); | 
| 213 | 
     code = sgnl; | 
     code = sgnl; | 
| 214 | 
     goto closeandexit; | 
     goto closeandexit; | 
| 215 | 
   } else { | 
   } else { | 
| 232 | 
   // | 
   // | 
| 233 | 
   numbofrun = runinfo->GetNoRun(); | 
   numbofrun = runinfo->GetNoRun(); | 
| 234 | 
   // | 
   // | 
| 235 | 
  | 
   // | 
| 236 | 
  | 
   // | 
| 237 | 
  | 
   totnorun = runinfo->GetRunEntries(); | 
| 238 | 
  | 
   // | 
| 239 | 
   // Try to access the S4 tree in the file, if it exists we are reprocessing data if not we are processing a new run | 
   // Try to access the S4 tree in the file, if it exists we are reprocessing data if not we are processing a new run | 
| 240 | 
   // | 
   // | 
| 241 | 
   NDtrclone = (TTree*)file->Get("NeutronD"); | 
   NDtrclone = (TTree*)file->Get("NeutronD"); | 
| 245 | 
     // tree does not exist, we are not reprocessing | 
     // tree does not exist, we are not reprocessing | 
| 246 | 
     // | 
     // | 
| 247 | 
     reproc = false; | 
     reproc = false; | 
| 248 | 
     if ( run == 0ULL ) { | 
     if ( run == 0 ) { | 
| 249 | 
       if (verbose) printf(" ND - WARNING: you are reprocessing data but ND tree does not exist!\n"); | 
       if (verbose) printf(" ND - WARNING: you are reprocessing data but ND tree does not exist!\n"); | 
| 250 | 
     } | 
     } | 
| 251 | 
     if ( runinfo->IsReprocessing() && run != 0ULL ) { | 
     if ( runinfo->IsReprocessing() && run != 0 ) { | 
| 252 | 
       if (verbose) printf(" ND - WARNING: it seems you are not reprocessing data but ND\n versioning information already exists in RunInfo.\n"); | 
       if (verbose) printf(" ND - WARNING: it seems you are not reprocessing data but ND\n versioning information already exists in RunInfo.\n"); | 
| 253 | 
     } | 
     } | 
| 254 | 
   } else { | 
   } else { | 
| 255 | 
     // | 
     // | 
| 256 | 
  | 
     NDtrclone->SetAutoSave(900000000000000LL); | 
| 257 | 
  | 
     // | 
| 258 | 
     // tree exists, we are reprocessing data. Are we reprocessing a single run or all the file? | 
     // tree exists, we are reprocessing data. Are we reprocessing a single run or all the file? | 
| 259 | 
     // | 
     // | 
| 260 | 
     reproc = true; | 
     reproc = true; | 
| 261 | 
     // | 
     // | 
| 262 | 
     // update versioning information  | 
     // update versioning information  | 
| 263 | 
     // | 
     // | 
 | 
     // sgnl = runinfo->Update(run, "ND",NDversion); | 
  | 
| 264 | 
     if (verbose) printf("\n Preparing the pre-processing...\n"); | 
     if (verbose) printf("\n Preparing the pre-processing...\n"); | 
| 265 | 
     // | 
     // | 
| 266 | 
     if ( run == 0ULL ){ | 
     if ( run == 0 || totnorun == 1 ){ | 
| 267 | 
       // | 
       // | 
| 268 | 
       // we are reprocessing all the file | 
       // we are reprocessing all the file | 
| 269 | 
       // if we are reprocessing everything we don't need to copy any old event and we can just work with the new tree and delete the old one immediately | 
       // if we are reprocessing everything we don't need to copy any old event and we can just work with the new tree and delete the old one immediately | 
| 278 | 
       // | 
       // | 
| 279 | 
       reprocall = false; | 
       reprocall = false; | 
| 280 | 
       // | 
       // | 
| 281 | 
       if (verbose) printf("\n ND - WARNING: Reprocessing run number %llu \n",run); | 
       if (verbose) printf("\n ND - WARNING: Reprocessing run number %u \n",run); | 
| 282 | 
       // | 
       // | 
| 283 | 
       // copying old tree to a new file | 
       // copying old tree to a new file | 
| 284 | 
       // | 
       // | 
| 285 | 
  | 
       gSystem->MakeDirectory(NDfolder.str().c_str()); | 
| 286 | 
  | 
       myfold = true; | 
| 287 | 
       tempfile = new TFile(tempname.str().c_str(),"RECREATE"); | 
       tempfile = new TFile(tempname.str().c_str(),"RECREATE"); | 
| 288 | 
       tempND = NDtrclone->CloneTree(-1,"fast"); | 
       tempND = NDtrclone->CloneTree(-1,"fast"); | 
| 289 | 
       tempND->SetName("NeutronD-old");  | 
       tempND->SetName("NeutronD-old");  | 
| 303 | 
   //  | 
   //  | 
| 304 | 
   file->cd(); | 
   file->cd(); | 
| 305 | 
   NDtr = new TTree("NeutronD-new","PAMELA Level2 NeutronD data"); | 
   NDtr = new TTree("NeutronD-new","PAMELA Level2 NeutronD data"); | 
| 306 | 
  | 
   NDtr->SetAutoSave(900000000000000LL); | 
| 307 | 
   NDtr->Branch("NDLevel2","NDLevel2",&nd); | 
   NDtr->Branch("NDLevel2","NDLevel2",&nd); | 
| 308 | 
   // | 
   // | 
| 309 | 
   if ( reproc && !reprocall ){ | 
   if ( reproc && !reprocall ){ | 
| 312 | 
     // | 
     // | 
| 313 | 
     tempfile = new TFile(tempname.str().c_str(),"READ"); | 
     tempfile = new TFile(tempname.str().c_str(),"READ"); | 
| 314 | 
     NDtrclone = (TTree*)tempfile->Get("NeutronD-old"); | 
     NDtrclone = (TTree*)tempfile->Get("NeutronD-old"); | 
| 315 | 
  | 
     NDtrclone->SetAutoSave(900000000000000LL); | 
| 316 | 
     NDtrclone->SetBranchAddress("NDLevel2",&ndclone); | 
     NDtrclone->SetBranchAddress("NDLevel2",&ndclone); | 
| 317 | 
     //       | 
     //       | 
| 318 | 
     if ( nobefrun > 0 ){ | 
     if ( nobefrun > 0 ){ | 
| 319 | 
       if (verbose) { | 
       if (verbose) { | 
| 320 | 
         printf("\n Pre-processing: copying events from the old tree before the processed run\n");    | 
         printf("\n Pre-processing: copying events from the old tree before the processed run\n");    | 
| 321 | 
         printf(" Copying %u events in the file which are before the beginning of the run %llu \n",nobefrun,run); | 
         printf(" Copying %u events in the file which are before the beginning of the run %u \n",nobefrun,run); | 
| 322 | 
         printf(" Start copying at event number 0, end copying at event number %u \n",nobefrun); | 
         printf(" Start copying at event number 0, end copying at event number %u \n",nobefrun); | 
| 323 | 
       } | 
       } | 
| 324 | 
       for (UInt_t j = 0; j < nobefrun; j++){ | 
       for (UInt_t j = 0; j < nobefrun; j++){ | 
| 325 | 
         // | 
         // | 
| 326 | 
         NDtrclone->GetEntry(j);    | 
         if ( NDtrclone->GetEntry(j) <= 0 ) throw -36;      | 
| 327 | 
         // | 
         // | 
| 328 | 
         // copy ndclone to mydec | 
         // copy ndclone to mydec | 
| 329 | 
         // | 
         // | 
| 330 | 
         nd = new NDLevel2(); | 
         //      nd = new NDLevel2(); | 
| 331 | 
  | 
         //      nd->Clear(); | 
| 332 | 
         memcpy(&nd,&ndclone,sizeof(ndclone)); | 
         memcpy(&nd,&ndclone,sizeof(ndclone)); | 
| 333 | 
         // | 
         // | 
| 334 | 
         // Fill entry in the new tree | 
         // Fill entry in the new tree | 
| 353 | 
     idRun = runlist->At(irun); | 
     idRun = runlist->At(irun); | 
| 354 | 
     if (verbose) { | 
     if (verbose) { | 
| 355 | 
       printf("\n\n\n ####################################################################### \n"); | 
       printf("\n\n\n ####################################################################### \n"); | 
| 356 | 
       printf("                    PROCESSING RUN NUMBER %i \n",(int)idRun); | 
       printf("                    PROCESSING RUN NUMBER %u \n",idRun); | 
| 357 | 
       printf(" ####################################################################### \n\n\n"); | 
       printf(" ####################################################################### \n\n\n"); | 
| 358 | 
     } | 
     } | 
| 359 | 
     // | 
     // | 
| 360 | 
     runinfo->ID_REG_RUN = 0ULL; | 
     runinfo->ID_ROOT_L0 = 0; | 
| 361 | 
     // | 
     // | 
| 362 | 
     // store in the runinfo class the GL_RUN variables for our run | 
     // store in the runinfo class the GL_RUN variables for our run | 
| 363 | 
     // | 
     // | 
| 364 | 
     sgnl = 0; | 
     sgnl = 0; | 
| 365 | 
     sgnl = runinfo->GetRunInfo(idRun); | 
     sgnl = runinfo->GetRunInfo(idRun); | 
| 366 | 
     if ( sgnl ){ | 
     if ( sgnl ){ | 
| 367 | 
       //printf(" ND - ERROR: RunInfo exited with non-zero status\n"); | 
       if ( debug ) printf(" ND - ERROR: RunInfo exited with non-zero status\n"); | 
| 368 | 
       code = sgnl; | 
       code = sgnl; | 
| 369 | 
       goto closeandexit; | 
       goto closeandexit; | 
| 370 | 
     } else { | 
     } else { | 
| 371 | 
       sgnl = 0; | 
       sgnl = 0; | 
| 372 | 
     }; | 
     }; | 
| 373 | 
     // | 
     // | 
| 374 | 
     // now you can access that variables using the RunInfo class this way runinfo->ID_REG_RUN | 
     // now you can access that variables using the RunInfo class this way runinfo->ID_ROOT_L0 | 
| 375 | 
     // | 
     // | 
| 376 | 
     if ( runinfo->ID_REG_RUN == 0 ){ | 
     if ( runinfo->ID_ROOT_L0 == 0 ){ | 
| 377 | 
       //printf("\n ND - ERROR: no run with ID_RUN = %i \n\n Exiting... \n\n",(int)idRun); | 
       if ( debug ) printf("\n ND - ERROR: no run with ID_RUN = %u \n\n Exiting... \n\n",idRun); | 
| 378 | 
       code = -5; | 
       code = -5; | 
| 379 | 
       goto closeandexit;     | 
       goto closeandexit;     | 
| 380 | 
     }; | 
     }; | 
| 381 | 
     // | 
     // | 
| 382 | 
  | 
     // prepare the timesync for the db | 
| 383 | 
  | 
     // | 
| 384 | 
  | 
     TString host = glt->CGetHost(); | 
| 385 | 
  | 
     TString user = glt->CGetUser(); | 
| 386 | 
  | 
     TString psw = glt->CGetPsw(); | 
| 387 | 
  | 
     TSQLServer *dbc = TSQLServer::Connect(host.Data(),user.Data(),psw.Data());     | 
| 388 | 
  | 
     if ( !dbc->IsConnected() ) throw -604; | 
| 389 | 
  | 
     stringstream myquery; | 
| 390 | 
  | 
     myquery.str(""); | 
| 391 | 
  | 
     myquery << "SET time_zone='+0:00'; SET sql_mode = 'NO_UNSIGNED_SUBTRACTION';"; | 
| 392 | 
  | 
     delete dbc->Query(myquery.str().c_str()); | 
| 393 | 
  | 
     dbtime = new GL_TIMESYNC(runinfo->ID_ROOT_L0,"ID",dbc); | 
| 394 | 
  | 
     // | 
| 395 | 
     // Search in the DB the path and name of the LEVEL0 file to be processed. | 
     // Search in the DB the path and name of the LEVEL0 file to be processed. | 
| 396 | 
     // | 
     // | 
| 397 | 
     glroot->Query_GL_ROOT(runinfo->ID_REG_RUN,dbc); | 
     //    if ( !dbc->IsConnected() ) throw -604; | 
| 398 | 
  | 
     glroot->Query_GL_ROOT(runinfo->ID_ROOT_L0,dbc); | 
| 399 | 
     // | 
     // | 
| 400 | 
     ftmpname.str(""); | 
     ftmpname.str(""); | 
| 401 | 
     ftmpname << glroot->PATH.Data() << "/"; | 
     ftmpname << glroot->PATH.Data() << "/"; | 
| 404 | 
     // | 
     // | 
| 405 | 
     // print out informations | 
     // print out informations | 
| 406 | 
     // | 
     // | 
| 407 | 
     totevent = runinfo->EV_REG_PHYS_TO - runinfo->EV_REG_PHYS_FROM + 1; | 
     totevent = runinfo->NEVENTS; | 
| 408 | 
     if (verbose) { | 
     if (verbose) { | 
| 409 | 
       printf("\n LEVEL0 data file: %s \n",fname.Data()); | 
       printf("\n LEVEL0 data file: %s \n",fname.Data()); | 
| 410 | 
       printf(" RUN HEADER absolute time is:  %llu \n",runinfo->RUNHEADER_TIME); | 
       printf(" RUN HEADER absolute time is:  %u \n",runinfo->RUNHEADER_TIME); | 
| 411 | 
       printf(" RUN TRAILER absolute time is: %llu \n",runinfo->RUNTRAILER_TIME); | 
       printf(" RUN TRAILER absolute time is: %u \n",runinfo->RUNTRAILER_TIME); | 
| 412 | 
       printf(" %i events to be processed for run %llu: from %i to %i (reg entries)\n\n",totevent,idRun,runinfo->EV_REG_PHYS_FROM,runinfo->EV_REG_PHYS_TO); | 
       printf(" %i events to be processed for run %u: from %i to %i \n\n",totevent,idRun,runinfo->EV_FROM,runinfo->EV_FROM+totevent); | 
| 413 | 
     } | 
     } | 
| 414 | 
     // | 
     // | 
| 415 | 
  | 
     //    if ( !totevent ) goto closeandexit; | 
| 416 | 
  | 
     // | 
| 417 | 
     // Open Level0 file | 
     // Open Level0 file | 
| 418 | 
     // | 
     // | 
| 419 | 
  | 
     if ( l0File ) l0File->Close(); | 
| 420 | 
     l0File = new TFile(fname.Data()); | 
     l0File = new TFile(fname.Data()); | 
| 421 | 
     if ( !l0File ) { | 
     if ( !l0File ) { | 
| 422 | 
       //printf(" ND - ERROR: problems opening  Level0 file\n"); | 
       if ( debug ) printf(" ND - ERROR: problems opening  Level0 file\n"); | 
| 423 | 
       code = -6; | 
       code = -6; | 
| 424 | 
       goto closeandexit; | 
       goto closeandexit; | 
| 425 | 
     }; | 
     }; | 
| 426 | 
     l0tr = (TTree*)l0File->Get("Physics"); | 
     l0tr = (TTree*)l0File->Get("Physics"); | 
| 427 | 
     if ( !l0tr ) { | 
     if ( !l0tr ) { | 
| 428 | 
       //printf(" ND - ERROR: no Physics tree in Level0 file\n"); | 
       if ( debug ) printf(" ND - ERROR: no Physics tree in Level0 file\n"); | 
| 429 | 
       l0File->Close(); | 
       l0File->Close(); | 
| 430 | 
       code = -7; | 
       code = -7; | 
| 431 | 
       goto closeandexit; | 
       goto closeandexit; | 
| 432 | 
     }; | 
     }; | 
| 433 | 
     l0head = l0tr->GetBranch("Header"); | 
     l0head = l0tr->GetBranch("Header"); | 
| 434 | 
     if ( !l0head ) { | 
     if ( !l0head ) { | 
| 435 | 
       //printf(" ND - ERROR: no Header branch in Level0 tree\n"); | 
       if ( debug ) printf(" ND - ERROR: no Header branch in Level0 tree\n"); | 
| 436 | 
       l0File->Close(); | 
       l0File->Close(); | 
| 437 | 
       code = -8; | 
       code = -8; | 
| 438 | 
       goto closeandexit;     | 
       goto closeandexit;     | 
| 439 | 
     }; | 
     }; | 
 | 
     l0registry = l0tr->GetBranch("Registry"); | 
  | 
 | 
     if ( !l0registry ) { | 
  | 
 | 
       //printf(" ND - ERROR: no Registry branch in Level0 tree\n"); | 
  | 
 | 
       l0File->Close(); | 
  | 
 | 
       code = -9; | 
  | 
 | 
       goto closeandexit;     | 
  | 
 | 
     }; | 
  | 
| 440 | 
     l0ND = l0tr->GetBranch("Neutron"); | 
     l0ND = l0tr->GetBranch("Neutron"); | 
| 441 | 
     if ( !l0ND ) { | 
     if ( !l0ND ) { | 
| 442 | 
       //printf(" ND - ERROR: no ND branch in Level0 tree\n"); | 
       if ( debug ) printf(" ND - ERROR: no ND branch in Level0 tree\n"); | 
| 443 | 
       l0File->Close(); | 
       l0File->Close(); | 
| 444 | 
       code = -603; | 
       code = -603; | 
| 445 | 
       goto closeandexit; | 
       goto closeandexit; | 
| 446 | 
     }; | 
     }; | 
| 447 | 
  | 
  | 
| 448 | 
     // | 
     // | 
 | 
     l0tr->SetBranchAddress("Registry", &l0reg); | 
  | 
| 449 | 
     l0tr->SetBranchAddress("Neutron", &l0ne); | 
     l0tr->SetBranchAddress("Neutron", &l0ne); | 
| 450 | 
     l0tr->SetBranchAddress("Header", &eh);  | 
     l0tr->SetBranchAddress("Header", &eh);  | 
| 451 | 
     // | 
     // | 
| 452 | 
     nevents = l0registry->GetEntries(); | 
     nevents = l0ND->GetEntries(); | 
| 453 | 
     // | 
     // | 
| 454 | 
     if ( nevents < 1 ) { | 
     if ( nevents < 1 && totevent ) { | 
| 455 | 
       //printf(" ND - ERROR: Level0 file is empty\n\n"); | 
       if ( debug ) printf(" ND - ERROR: Level0 file is empty\n\n"); | 
| 456 | 
       l0File->Close(); | 
       l0File->Close(); | 
| 457 | 
       code = -11; | 
       code = -11; | 
| 458 | 
       goto closeandexit; | 
       goto closeandexit; | 
| 459 | 
     }; | 
     }; | 
| 460 | 
     // | 
     // | 
| 461 | 
     if ( runinfo->EV_REG_PHYS_TO > nevents-1 ) { | 
     if ( runinfo->EV_TO > nevents-1 && totevent ) { | 
| 462 | 
       //printf(" ND - ERROR: too few entries in the registry tree\n"); | 
       if ( debug ) printf(" ND - ERROR: too few entries in the tree\n"); | 
| 463 | 
       l0File->Close(); | 
       l0File->Close(); | 
| 464 | 
       code = -12; | 
       code = -12; | 
| 465 | 
       goto closeandexit; | 
       goto closeandexit; | 
| 469 | 
     // | 
     // | 
| 470 | 
     if (verbose) printf("\n Ready to start! \n\n Processed events: \n\n"); | 
     if (verbose) printf("\n Ready to start! \n\n Processed events: \n\n"); | 
| 471 | 
     // | 
     // | 
| 472 | 
     for ( re = runinfo->EV_REG_PHYS_FROM; re <= runinfo->EV_REG_PHYS_TO; re++){ | 
     if ( dbc ){ | 
| 473 | 
  | 
       dbc->Close(); | 
| 474 | 
  | 
       delete dbc; | 
| 475 | 
  | 
       dbc = 0; | 
| 476 | 
  | 
     }; | 
| 477 | 
  | 
     // | 
| 478 | 
  | 
     for ( re = runinfo->EV_FROM; re < (runinfo->EV_FROM+runinfo->NEVENTS); re++){ | 
| 479 | 
       // | 
       // | 
| 480 | 
       if ( procev%1000 == 0 && procev > 0 && verbose ) printf(" %iK \n",procev/1000);    | 
       if ( procev%1000 == 0 && procev > 0 && verbose ) printf(" %iK \n",procev/1000);    | 
| 481 | 
       // | 
       // | 
| 482 | 
       l0registry->GetEntry(re); | 
       if ( l0head->GetEntry(re) <= 0 ) throw -36; | 
| 483 | 
       // | 
       // | 
| 484 | 
       // absolute time of this event | 
       // absolute time of this event | 
| 485 | 
       // | 
       // | 
| 486 | 
       atime = l0reg->absTime; | 
       ph = eh->GetPscuHeader(); | 
| 487 | 
       // | 
       atime = dbtime->DBabsTime(ph->GetOrbitalTime());   | 
 | 
       // physics events is at entry number ei where | 
  | 
 | 
       // | 
  | 
 | 
       ei = l0reg->event; | 
  | 
| 488 | 
       // | 
       // | 
| 489 | 
       // paranoid check | 
       // paranoid check | 
| 490 | 
       // | 
       // | 
| 491 | 
       if ( (atime > runinfo->RUNTRAILER_TIME) || (atime < runinfo->RUNHEADER_TIME)  ) { | 
       if ( (atime > (runinfo->RUNTRAILER_TIME+1)) || (atime < (runinfo->RUNHEADER_TIME-1))  ) { | 
| 492 | 
         if (verbose) printf(" ND - WARNING: event at time outside the run time window, skipping it\n"); | 
         if (verbose) printf(" ND - WARNING: event at time outside the run time window, skipping it\n"); | 
| 493 | 
         goto jumpev; | 
         goto jumpev; | 
| 494 | 
       }; | 
       }; | 
| 497 | 
       // | 
       // | 
| 498 | 
       // start processing | 
       // start processing | 
| 499 | 
       // | 
       // | 
| 500 | 
       nd = new NDLevel2(); | 
       nd->Clear(); | 
| 501 | 
       l0ND->GetEntry(ei); | 
       // | 
| 502 | 
  | 
       if ( l0ND->GetEntry(re) <= 0 ) throw -36; | 
| 503 | 
       tmpSize = l0ne->Records->GetEntries(); | 
       tmpSize = l0ne->Records->GetEntries(); | 
| 504 | 
       if (!tmpSize) continue; | 
       if ( tmpSize && l0ne->unpackError == 0 ){ | 
| 505 | 
       if (l0ne->unpackError == 1) continue; | 
         for (Int_t j = 0; j < tmpSize; j++){ | 
| 506 | 
       for (Int_t j = 0; j < tmpSize; j++){ | 
           l0nr = (pamela::neutron::NeutronRecord*)l0ne->Records->At(j); | 
| 507 | 
         l0nr = (pamela::neutron::NeutronRecord*)l0ne->Records->At(j); | 
           yTrig            = yTrig             + (float)l0nr->trigPhysics; | 
| 508 | 
         yTrig            = yTrig             + (float)l0nr->trigPhysics; | 
           yUpperBackground  = yUpperBackground  + (float)l0nr->upperBack; | 
| 509 | 
         yUpperBackground  = yUpperBackground  + (float)l0nr->upperBack; | 
           yBottomBackground = yBottomBackground + (float)l0nr->bottomBack; | 
| 510 | 
         yBottomBackground = yBottomBackground + (float)l0nr->bottomBack; | 
         } | 
| 511 | 
       } | 
         nd->upperBack = yUpperBackground; | 
| 512 | 
       nd->upperBack = yUpperBackground; | 
         nd->bottomBack = yBottomBackground; | 
| 513 | 
       nd->bottomBack = yBottomBackground; | 
         nd->trigPhysics = yTrig;              | 
| 514 | 
       nd->trigPhysics = yTrig;        | 
       }; | 
| 515 | 
      | 
       // | 
| 516 | 
  | 
       nd->unpackError = l0ne->unpackError; | 
| 517 | 
  | 
       // | 
| 518 | 
       NDtr->Fill();        // Fill tree NDLevel2 in the root file | 
       NDtr->Fill();        // Fill tree NDLevel2 in the root file | 
| 519 | 
  | 
       // | 
| 520 | 
       yUpperBackground =0; | 
       yUpperBackground =0; | 
| 521 | 
       yBottomBackground =0; | 
       yBottomBackground =0; | 
| 522 | 
       yTrig=0;        | 
       yTrig=0;        | 
| 529 | 
     // | 
     // | 
| 530 | 
     // Here you may want to clear some variables before processing another run   | 
     // Here you may want to clear some variables before processing another run   | 
| 531 | 
     // | 
     // | 
| 532 | 
     ei = 0; | 
     delete dbtime; | 
| 533 | 
   }; // process all the runs | 
   }; // process all the runs | 
| 534 | 
   // | 
   // | 
| 535 | 
   if (verbose) printf("\n Finished processing data \n"); | 
   if (verbose) printf("\n Finished processing data \n"); | 
| 549 | 
         // | 
         // | 
| 550 | 
         // Get entry from old tree | 
         // Get entry from old tree | 
| 551 | 
         // | 
         // | 
| 552 | 
         NDtrclone->GetEntry(j);    | 
         if ( NDtrclone->GetEntry(j) <= 0 ) throw -36;      | 
| 553 | 
         // | 
         // | 
| 554 | 
         // copy ndclone to nd | 
         // copy ndclone to nd | 
| 555 | 
         // | 
         // | 
| 556 | 
         nd = new NDLevel2(); | 
         //      nd->Clear(); | 
| 557 | 
         memcpy(&nd,&ndclone,sizeof(ndclone)); | 
         memcpy(&nd,&ndclone,sizeof(ndclone)); | 
| 558 | 
         // | 
         // | 
| 559 | 
         // Fill entry in the new tree | 
         // Fill entry in the new tree | 
| 568 | 
   // | 
   // | 
| 569 | 
   if ( l0File ) l0File->Close(); | 
   if ( l0File ) l0File->Close(); | 
| 570 | 
   if ( tempfile ) tempfile->Close();             | 
   if ( tempfile ) tempfile->Close();             | 
| 571 | 
   gSystem->Unlink(tempname.str().c_str()); | 
   if ( myfold ) gSystem->Unlink(tempname.str().c_str()); | 
| 572 | 
  | 
   // | 
 | 
   //if ( code < 0 ) printf("\n ND - ERROR: an error occurred, try to save anyway...\n"); | 
  | 
 | 
   //printf("\n Writing and closing rootple\n"); | 
  | 
 | 
   if ( runinfo ) runinfo->Close();     | 
  | 
| 573 | 
   if ( NDtr ) NDtr->SetName("NeutronD");     | 
   if ( NDtr ) NDtr->SetName("NeutronD");     | 
| 574 | 
   if ( file ){ | 
   if ( file ){ | 
| 575 | 
     file->cd(); | 
     file->cd(); | 
| 576 | 
     file->Write(); | 
     if ( NDtr ) NDtr->Write("NeutronD", TObject::kOverwrite); //  10RED bug fixed | 
| 577 | 
   }; | 
   }; | 
| 578 | 
   // | 
   // | 
| 579 | 
   gSystem->Unlink(NDfolder.str().c_str()); | 
   if ( myfold ) gSystem->Unlink(NDfolder.str().c_str()); | 
| 580 | 
   // | 
   // | 
| 581 | 
   // the end | 
   // the end | 
| 582 | 
   // | 
   // | 
| 583 | 
   if (verbose) printf("\n Exiting...\n"); | 
   if ( verbose ) printf("\n Exiting...\n"); | 
| 584 | 
   if(NDtr)NDtr->Delete(); | 
   //  if ( NDtr ) NDtr->Delete(); | 
| 585 | 
  | 
   // | 
| 586 | 
  | 
   //  if ( nd ) delete nd; | 
| 587 | 
  | 
   //if ( ndclone ) delete ndclone; | 
| 588 | 
  | 
   if ( glroot ) delete glroot; | 
| 589 | 
  | 
   if ( runinfo ) runinfo->Close();     | 
| 590 | 
  | 
   if ( runinfo ) delete runinfo;  | 
| 591 | 
  | 
   // | 
| 592 | 
   if(code < 0)  throw code; | 
   if(code < 0)  throw code; | 
| 593 | 
   return(code); | 
   return(code); | 
| 594 | 
 } | 
 } |