flight/macros/FTrkQLook_EXPERT.cxx

/**
 * FTrkQLook_EXPERT
 *
 * autor: D.Fedele
 * version 2.0
 * Parameters:
 *      file - the data file to analyze
 *      fromevent - first event to analyze
 *      toevent - last event to analyze
 *      outdir - total path of output file 
 *      outfile - extension of output file (pdf,ps,gif,jpg)
 * 
 * 
 */
//
#include <fstream>
//
#include <TPaveText.h>
#include <TLatex.h>
#include <TCanvas.h>
#include <TGraph.h>
#include <TTree.h>
#include <TStyle.h>
//
#include <physics/tracker/TrackerEvent.h>
#include <PscuHeader.h>
#include <EventHeader.h>
#include <RunHeaderEvent.h>
#include <TrkAlarmEvent.h>
#include <tsbt/TsbTRecord.h>
#include <tsbt/TsbTEvent.h>
//
#define MAXSTORAGE 50000

void stringcopy(TString& s1, const TString& s2, Int_t from=0, Int_t to=0){    
  if ( to == 0 ){
    Int_t t2length = s2.Length();
    s1 = "";
    to = t2length;
  };
  for (Int_t i = from; i<to; i++){
    s1.Append(s2[i],1);
  };
};


void FTrkQLook_EXPERT(TString file,Int_t fromevent,Int_t toevent, TString outdir, TString outfile)
{
  // 
  //   obtain information about the data file and select the output dir
  const string filepath=file.Data(); 
  Int_t dwpos = filepath.rfind("/");
  Int_t dwpos1 = filepath.find(".root");
  TString fpath=(filepath.c_str());
  TString base,ffile ;
  stringcopy(ffile,fpath,dwpos+1,dwpos1);
  stringcopy(base,fpath,0,dwpos);
  if(dwpos>0) base+="/";

  TString out;
  if(outdir.Length()==0){
    out = base;
  }else{
    out = outdir;
  } 

  //
  // inizialise the variables and open the file
  pamela::TsbTEvent  *event = 0;
  pamela::TsbTRecord *record = 0;
  pamela::tracker::TrackerEvent *te=0;
  pamela::EventHeader *eh=0,*aleh=0,*eH=0,*eT=0;
  pamela::PscuHeader *ph=0,*pH=0;
  pamela::TrkAlarmEvent *al=0;
  pamela::RunHeaderEvent *reh=0;

  TFile *datafile = new TFile(file);

  TTree *tree = (TTree*)datafile->Get("TsbT");
  tree->SetBranchAddress("TsbT",&event);
  tree->SetBranchAddress("Header",&eT);

  TTree *altr = (TTree*)datafile->Get("TrkAlarm");
  altr->SetBranchAddress("TrkAlarm",&al);
  altr->SetBranchAddress("Header",&aleh);

  TTree *tr   = (TTree*)datafile->Get("Physics");
  tr->SetBranchAddress("Tracker",&te);
  tr->SetBranchAddress("Header",&eh);
   
  TTree *otr  = (TTree*)datafile->Get("RunHeader");
  otr->SetBranchAddress("Header",&eH);
  otr->SetBranchAddress("RunHeader",&reh);

  Long64_t nevent = tr->GetEntries();
  Long64_t neventH = otr->GetEntries();
  Long64_t tnevent = tree->GetEntries();
  Long64_t alnevent = altr->GetEntries();
  Int_t minevent=0;
  Int_t maxevent=0; 

  printf("Number of total events: %lld\n",nevent);
  printf("Number of header events: %lld\n",neventH);
  printf("Number of TsbT events: %lld\n",tnevent);
  printf("Number of TrkAlarm packet events: %lld\n",alnevent);

  if (nevent<=0){
    datafile->Close();
    return;
  }
  if ( fromevent > toevent && toevent>0 ){
    printf("It must be fromevent < toevent \n");
    return;
  }
  if ( fromevent > nevent || fromevent < 0 ) {
    printf("You can choose fromevent between 0 (all) and %lld \n",nevent);
    return;
  }
  if ( toevent > nevent || toevent < 0 ) {
    printf("You can choose toevent between 0 (all) and %lld \n",nevent);
    return;
  }
  if ( fromevent == 0 ) {
    minevent = 0;
    maxevent = nevent;
  } else {
    minevent = fromevent;
    if ( toevent > 0 ){
      maxevent = toevent+1;
    } else if (toevent > nevent) {         
      maxevent = nevent;
    } else {       
      maxevent = toevent+1;   
    }
    nevent=maxevent-minevent ;
  }

  Long64_t obt=0;
  const Int_t sizeH=neventH;
  ULong64_t HOBT[sizeH];
  Int_t trk_cal_us[sizeH],countrun=1;
  for (Int_t vi=0; vi<sizeH;vi++){
    HOBT[vi]=0;
    trk_cal_us[vi]=0;
  }
  for (Int_t ev=0; ev<neventH; ev++){
    otr->GetEntry(ev);
    pH = eH->GetPscuHeader();
    HOBT[ev]= pH->GetOrbitalTime();
    trk_cal_us[ev]=reh->TRK_CALIB_USED;
    if((HOBT[ev]<HOBT[ev-1]) && ev>0)
      countrun+=1;
    //   printf("\n%lld\t\tcountrun=%d\n",HOBT[ev],countrun);
  }
  countrun+=(Int_t)nevent/30000;
  //  printf("\ncountrun=%d\n",countrun);

  //
  // other variables definitions
  stringstream oss1,oss2,oss3,oss4,fromfile,isfile,tit;
  Int_t ALARM=0;
  Int_t WARNING[12];

  //
  // information about the entries for the temperatures
  Int_t tmpSize=0,siztmp=0,maxsize=0;
  for (Int_t ev=0; ev<tnevent; ev++){
    tree->GetEntry(ev);
    tmpSize = event->Records->GetEntries();
    maxsize+=tmpSize;
  }
  const Int_t tsize=maxsize;
  Int_t tempt[tsize][5],xt[tsize], tempt_tmp[tsize];
  //
  // information about the temperatures
  for (Int_t ev=0; ev<tnevent; ev++){
    tree->GetEntry(ev);
    tmpSize = event->Records->GetEntries();
    for (Int_t j = 0; j < tmpSize; j++){
      record = (pamela::TsbTRecord*)event->Records->At(j);
      xt[siztmp]=record->RECORD_OBT;  //0.051*record->RECORD_OBT;   
      for (Int_t z = 0; z < 5; z++){
        tempt[siztmp][z] = record->TEMPERATURES[z+1];    
      }
      siztmp++;
    }
  }
  
  //
  // open the output text files for the alarms
  TString fname1 = out+ffile; 
  TString fname = out+ffile;
  int slen=fname.Length();
  int last=fname.Last('_');
  if(last<(slen-1))fname.Append('_');   
  fname.Append("FTrk-DSP-report.txt");
  ofstream alarm(fname,ios::out);
  alarm << "TRACKER DSP REPORT - Downlink " << ffile<< endl;
  fname1.Append("_FTrkAlarm-pkt-report.txt");
  ofstream alarm1(fname1,ios::out);
  alarm1 << "TrkAlarm pkt REPORT - Downlink " << ffile<< endl;

  //
  // write the file for the TrkAlarm packet
  if(alnevent==0) alarm1 <<endl<< "------>  NO ALARM!!! <-------"<< endl;
  else{
    for (Int_t ev=0; ev<alnevent; ev++){
      altr->GetEntry(ev);
      ph = aleh->GetPscuHeader();

      if(ph->GetOrbitalTime()<obt && ev>0)
        alarm1<<endl<<"NEW CPU BOOT"<<endl;
      obt=ph->GetOrbitalTime();
        
      alarm1 << "================================================="<< endl;
      alarm1 << "PSCU-Pkt N. "<< ph->GetCounter() ;
      alarm1 << " - OBT "<< ph->GetOrbitalTime() << " ms"<<endl;
      alarm1 << "(ROOT-tree entry "<<ev<<")"<<endl;
      alarm1 << "================================================="<< endl<<endl;
        
      alarm1 << "Alarm variables (range 0-1)"<<endl;
      alarm1 << " ALARM[1]= "<< hex<< (Int_t)al->ALARM[1]<<dec<<endl;
      alarm1 << " ALARM[2]= "<< hex<< (Int_t)al->ALARM[2]<<dec<<endl;
      alarm1 << " CmdDuringTrig= "<< hex<<(Int_t)al->CmdDuringTrig<<endl;
      alarm1 << " FinalCheck= "<< hex<<(Int_t)al->FinalCheck<<endl;
      alarm1 << " FlashData= "<< hex<<(Int_t)al->FlashData<<endl;
      alarm1 << " FlashShutdown= "<< hex<<(Int_t)al->FlashShutdown<<endl;
      alarm1 << " FlashUpset= "<< hex<<(Int_t)al->FlashUpset<<endl;
      alarm1 << " InterCheck= "<< hex<<(Int_t)al->InterCheck<<endl;
      alarm1 << " UnknownCmd= "<< hex<<(Int_t)al->UnknownCmd<<endl<<endl;
        
      alarm1 << "Alarm variables (range 0-3F)"<<endl;
      alarm1 << " CmdIDMA= "<< hex<<(Int_t)al->CmdIDMA<<endl;
      alarm1 << " DSPSoft= "<< hex<<(Int_t)al->DSPSoft<<endl;
      alarm1 << " TrigIDMA= "<< hex<<(Int_t)al->TrigIDMA<<endl<<endl;
        
      alarm1 << "Alarm bits (range 0-1)"<<endl;
      alarm1 << " Aswr= "<< hex<<(Int_t)al->Aswr<<endl;
      alarm1 << " BID[1]= "<< hex<<(Int_t)al->BID[0]<<endl;
      alarm1 << " BID[2]= "<< hex<<(Int_t)al->BID[1]<<endl;
      alarm1 << " BID[3]= "<< hex<<(Int_t)al->BID[2]<<endl;
      alarm1 << " BID[4]= "<< hex<<(Int_t)al->BID[3]<<endl;
      alarm1 << " BID[5]= "<< hex<<(Int_t)al->BID[4]<<endl;
      alarm1 << " BID[6]= "<< hex<<(Int_t)al->BID[5]<<endl;
      alarm1 << " BID[7]= "<< hex<<(Int_t)al->BID[6]<<endl;
      alarm1 << " CmdNum= "<< hex<<(Int_t)al->CmdNum<<endl;
      alarm1 << " DSPBusy= "<< hex<<(Int_t)al->DSPBusy<<endl;
      alarm1 << " DSPMask= "<< hex<<(Int_t)al->DSPMask<<endl;
      alarm1 << " FlashOn= "<< hex<<(Int_t)al->FlashOn<<endl;
      alarm1 << " PNum= "<< hex<<(Int_t)al->PNum<<endl;
      alarm1 << " TrigMask= "<< hex<<(Int_t)al->TrigMask<<dec<<endl;
      alarm1 << "================================================="<< endl<<endl;
      
    }
  }


  gStyle->SetLabelSize(0.05,"x");
  gStyle->SetLabelSize(0.06,"y");
  gStyle->SetStatFontSize(0.075);
  gStyle->SetOptStat(1110);
  gStyle->SetFillColor(10);  
  gStyle->SetTitleFillColor(10);  
  gStyle->SetTitleFontSize(0.1);
  gStyle->SetTitleOffset(0.8,"y");
  gStyle->SetTitleOffset(0.9,"x");
  gStyle->SetTitleSize(0.06,"y");
  gStyle->SetTitleSize(0.055,"x");


  //***************************************************************************************
  // LOOP on each event
  //***************************************************************************************

  if (fromevent!=0)
    printf("\n Scan of events from %i to %i ... \n",minevent,maxevent-1);
  else 
    printf("\n Scan of events from %i to %i ... \n",minevent+1,maxevent);


  Int_t minev=minevent,maxev=maxevent,countTEMP=0;
  TCanvas *CompTimeCanv[countrun],*EventNumCanv[countrun],*LandauCanv1[countrun],*LandauCanv2[countrun],*LandauCanv3[countrun];
  TCanvas *IlluminaCanv[countrun],*TempCanv[countrun];
  TGraph *comprtime[12][countrun],*temp[5][countrun],*eventnumb[countrun];
  TH1F *landau1[12][countrun],*landau2[12][countrun],*landau3[12][countrun],*illuminazione[12][countrun];

    
  for(Int_t ii=0; ii<countrun;ii++){
    TPaveText *pt1;
    TPad *pt,*pt0;
    TPad *pad1[12],*pad2[12],*pad3[12],*pad4[12],*pad5[12],*pad6[5];          //pad for histos
  
    ofstream warning(out + "warning.txt",ios::out);

    //****************************************************************************************
    //Output figures --- First sheet:
    //****************************************************************************************
    fromfile.str("");
    fromfile<<"FTrkQLook_EXPERT      File: "<<ffile;
    isfile<<"COMPRESSIONTIME vs. OBT   pag"<<ii+1;
    CompTimeCanv[ii]=new TCanvas(isfile.str().c_str(),isfile.str().c_str(),900,1200);
    CompTimeCanv[ii]->SetFillColor(10);
    CompTimeCanv[ii]->Range(0,0,100,100);
    TLatex *t=new TLatex();
    t->SetTextFont(32);
    t->SetTextColor(1);
    t->SetTextAlign(12);
    t->SetTextSize(0.02);
    t->DrawLatex(2.,98.7,fromfile.str().c_str());
    TLatex *t1=new TLatex();
    t1->SetTextFont(32);
    t1->SetTextColor(1);
    t1->SetTextAlign(12);
    t1->SetTextSize(0.02);
    t1->DrawLatex(62.,98.7,isfile.str().c_str());
    isfile.str("");

    //****************************************************************************************
    //Output figures --- Second sheet:
    //****************************************************************************************

    isfile<<"WARNINGS on DSP EVENT NUMBER   pag"<<ii+1;
    EventNumCanv[ii]=new TCanvas(isfile.str().c_str(),isfile.str().c_str(),900,1200);
    EventNumCanv[ii]->SetFillColor(10);
    EventNumCanv[ii]->Range(0,0,100,100);
    t->SetTextFont(32);
    t->SetTextColor(1);
    t->SetTextAlign(12);
    t->SetTextSize(0.02);
    t->DrawLatex(2.,98.7,fromfile.str().c_str());
    t1->SetTextFont(32);
    t1->SetTextColor(1);
    t1->SetTextAlign(12);
    t1->SetTextSize(0.02);
    t1->DrawLatex(65.,98.7,isfile.str().c_str());
    isfile.str("");

    //****************************************************************************************
    //Output figures --- Third sheet:
    //****************************************************************************************

    isfile<<"Cluster Signal ladder1   pag"<<ii+1;
    LandauCanv1[ii]=new TCanvas(isfile.str().c_str(),isfile.str().c_str(),900,1200);
    LandauCanv1[ii]->SetFillColor(10);
    LandauCanv1[ii]->Range(0,0,100,100);

    t->SetTextFont(32);
    t->SetTextColor(1);
    t->SetTextAlign(12);
    t->SetTextSize(0.02);
    t->DrawLatex(2.,98.7,fromfile.str().c_str());
    t1->SetTextFont(32);
    t1->SetTextColor(1);
    t1->SetTextAlign(12);
    t1->SetTextSize(0.02);
    t1->DrawLatex(65.,98.7,isfile.str().c_str());
    isfile.str("");
  
    //****************************************************************************************
    //Output figures --- Third sheet:
    //****************************************************************************************

    isfile<<"Cluster Signal ladder2   pag"<<ii+1;
    LandauCanv2[ii]=new TCanvas(isfile.str().c_str(),isfile.str().c_str(),900,1200);
    LandauCanv2[ii]->SetFillColor(10);
    LandauCanv2[ii]->Range(0,0,100,100);

    t->SetTextFont(32);
    t->SetTextColor(1);
    t->SetTextAlign(12);
    t->SetTextSize(0.02);
    t->DrawLatex(2.,98.7,fromfile.str().c_str());
    t1->SetTextFont(32);
    t1->SetTextColor(1);
    t1->SetTextAlign(12);
    t1->SetTextSize(0.02);
    t1->DrawLatex(65.,98.7,isfile.str().c_str());
    isfile.str("");

    //****************************************************************************************
    //Output figures --- Third sheet:
    //****************************************************************************************

    isfile<<"Cluster Signal ladder3   pag"<<ii+1;
    LandauCanv3[ii]=new TCanvas(isfile.str().c_str(),isfile.str().c_str(),900,1200);
    LandauCanv3[ii]->SetFillColor(10);
    LandauCanv3[ii]->Range(0,0,100,100);

    t->SetTextFont(32);
    t->SetTextColor(1);
    t->SetTextAlign(12);
    t->SetTextSize(0.02);
    t->DrawLatex(2.,98.7,fromfile.str().c_str());
    t1->SetTextFont(32);
    t1->SetTextColor(1);
    t1->SetTextAlign(12);
    t1->SetTextSize(0.02);
    t1->DrawLatex(65.,98.7,isfile.str().c_str());
    isfile.str("");
  
    //****************************************************************************************
    //Output figures --- Fourth sheet:
    //****************************************************************************************

    isfile<<"lighting of the views   pag"<<ii+1;
    IlluminaCanv[ii]=new TCanvas(isfile.str().c_str(),isfile.str().c_str(),900,1200);
    IlluminaCanv[ii]->SetFillColor(10);
    IlluminaCanv[ii]->Range(0,0,100,100);
    t->SetTextFont(32);
    t->SetTextColor(1);
    t->SetTextAlign(12);
    t->SetTextSize(0.02);
    t->DrawLatex(2.,98.7,fromfile.str().c_str());
    t1->SetTextFont(32);
    t1->SetTextColor(1);
    t1->SetTextAlign(12);
    t1->SetTextSize(0.02);
    t1->DrawLatex(70.,98.7,isfile.str().c_str());
    isfile.str("");

    //****************************************************************************************
    //Output figures --- Fifth sheet:
    //****************************************************************************************
 
    isfile<<"Temperatures vs OBT   pag"<<ii+1;
    TempCanv[ii]=new TCanvas(isfile.str().c_str(),isfile.str().c_str(),900,1200);
    TempCanv[ii]->SetFillColor(10);
    TempCanv[ii]->Range(0,0,100,100);

    t->SetTextFont(32);
    t->SetTextColor(1);
    t->SetTextAlign(12);
    t->SetTextSize(0.02);
    t->DrawLatex(2.,98.7,fromfile.str().c_str());
    t1->SetTextFont(32);
    t1->SetTextColor(1);
    t1->SetTextAlign(12);
    t1->SetTextSize(0.02);
    t1->DrawLatex(78.,98.7,isfile.str().c_str());
    isfile.str("");
  
    //*************************************************************************************
    //book pads and histos
    //***************************************************************************************
    Float_t posy = 0.95;    // up y-coord - top pads
    Float_t hpad = 0;   // pad height
    Float_t posx1=0;          // left  x-coord - pad column
    Float_t posx0=0;          //       x-coord - column division
    Float_t wrel = 0;     // relative x size of first sub-column
    Float_t marg = 0.004;   // margin among pads
    Float_t tposy = 0.95;    // up y-coord - top pads
    Float_t thpad = 0;   // pad height
    Float_t tposx1=0;          // left  x-coord - pad column
    Float_t tposx0=0;          //       x-coord - column division
    Float_t twrel = 0;     // relative x size of first sub-column
    Float_t tmarg = 0.004;   // margin among pads

    hpad = (posy-marg*11)/6;
    wrel = (1-marg*4)/2;
    thpad = (tposy-tmarg*5)/3;
    twrel = (1-tmarg*4)/2;

    for(Int_t n = 0; n<12; n++) {
    
      if ( (n+1)%2==1 ) {
        if(n>1) posy = posy-(marg*2+hpad);
        posx1 = marg;
        posx0 = posx1 + wrel;
      }
      else {
        posx1 = posx0 + 2*marg;
        posx0 = posx1 + wrel;
      }
    
      if ( (n+1)%2==1 ) {
        if(n>1) tposy = tposy-(tmarg*2+thpad);
        tposx1 = tmarg;
        tposx0 = tposx1 + twrel;
      }
      else {
        tposx1 = tposx0 + 2*tmarg;
        tposx0 = tposx1 + twrel;
      }


      /* -----------> pad for histograms  */
      pad1[n] = new TPad("pad1"," ",posx1,posy-hpad,posx0,posy,18,0,0);
      pad2[n] = new TPad("pad2"," ",posx1,posy-hpad,posx0,posy,18,0,0);
      pad3[n] = new TPad("pad3"," ",posx1,posy-hpad,posx0,posy,18,0,0);
      pad4[n] = new TPad("pad4"," ",posx1,posy-hpad,posx0,posy,18,0,0);
      pad5[n] = new TPad("pad5"," ",posx1,posy-hpad,posx0,posy,18,0,0);
      if(n<5) pad6[n] = new TPad("pad6"," ",tposx1,tposy-thpad,tposx0,tposy,18,0,0);


      /* -----------> HISTOGRAMS          */
 
      tit<<"DSP "<<n+1;
      oss1<<"DSP  "<<n*100+ii;
      oss2<<"DSPh  "<<n*100+ii;
      oss3<<"DSP h "<<n*100+ii;
      oss4<<"DSP   h"<<n*100+ii;
     
      landau1[n][ii]= new TH1F(oss1.str().c_str(),tit.str().c_str(),401,-0.5,1200.5);
      landau2[n][ii]= new TH1F(oss2.str().c_str(),tit.str().c_str(),401,-0.5,1200.5);
      landau3[n][ii]= new TH1F(oss3.str().c_str(),tit.str().c_str(),401,-0.5,1200.5);

      illuminazione[n][ii]= new TH1F(oss4.str().c_str(),tit.str().c_str(),3073,-0.5,3072.5);

      tit.str("");
      oss1.str("");
      oss2.str("");
      oss3.str("");
      oss4.str("");
    };            
   

    //    printf("\nprova0\n");


    //**********************************************************************************
    // Fill Graphs and Histos
    //**********************************************************************************
   
    //
    // information about the tracker data
    Int_t warning_dspnumber=0;
    Float_t x[MAXSTORAGE];
    Float_t yc[MAXSTORAGE][12];
    Float_t eventint[MAXSTORAGE];
    
    for (Int_t ev=minev; ev<maxevent; ev++){
      tr->GetEntry(ev);
      ph = eh->GetPscuHeader();

      if(ev==maxevent-1) maxev=maxevent-1;

      if((ph->GetOrbitalTime()<x[ev-minev-1] && ev-minev!=0) || ev-minev==MAXSTORAGE){
        maxev=ev;
        //      printf("prova12  ev=%d\tev-minev=%d\n",ev,ev-minev);
        break;
      }
      else{
        //      if(ii==32)printf("\nprova1  %d\tev-minev=%d\n",ev,ev-minev);
        x[(ev-minev)]= ph->GetOrbitalTime();
        ALARM=0;
        
        Int_t dsp=0;
        for(Int_t i=0; i<12; i++){
          dsp=te->DSPnumber[i]-1;
          yc[(ev-minev)][dsp]= 0.051*te->compressiontime[i];
          
          for(Int_t j=0;j<3;j++){
            if(te->signcluster[i][j]!=0){
              if((te->addrcluster[i][j]>6 && te->addrcluster[i][j]<505) ||(te->addrcluster[i][j]>518 && te->addrcluster[i][j]<1018)){
        //      if((dsp==1 && te->addrcluster[i][2]>767 && te->addrcluster[i][2]<1024) || (dsp==6 && te->addrcluster[i][0]>511 && te->addrcluster[i][0]<769) ||(dsp==6 && te->addrcluster[i][1]>0 && te->addrcluster[i][1]<769) ||(dsp==6 && te->addrcluster[i][2]>511 && te->addrcluster[i][2]<769) ||(dsp==11 && te->addrcluster[i][0]>767 && te->addrcluster[i][0]<1024))
//                continue;
//              else
                  illuminazione[dsp][ii]->Fill((Float_t)((j*1024.)+te->addrcluster[i][j]));
              }
            }
          }
          if(!(dsp%2)){
            if(te->signcluster[i][0]!=0) landau1[dsp][ii]->Fill((Float_t)(1024.-te->signcluster[i][0]));
            if(te->signcluster[i][1]!=0) landau2[dsp][ii]->Fill((Float_t)(1024.-te->signcluster[i][1]));
            if(te->signcluster[i][2]!=0) landau3[dsp][ii]->Fill((Float_t)(1024.-te->signcluster[i][2]));
          }
          else{
            if(te->signcluster[i][0]!=0) landau1[dsp][ii]->Fill((Float_t)te->signcluster[i][0]);
            if(te->signcluster[i][1]!=0) landau2[dsp][ii]->Fill((Float_t)te->signcluster[i][1]);
            if(te->signcluster[i][2]!=0) landau3[dsp][ii]->Fill((Float_t)te->signcluster[i][2]);
          }
          
          WARNING[i]=0;
          if(te->fc[i]!=0 || te->fl1[i]!=0 || te->fl2[i]!=0 || te->fl3[i]!=0 || te->fl4[i]!=0 || te->fl5[i]!=0 || te->fl6[i]!=0){
            ALARM = 1;      //general alarm
            WARNING[i] = 1; // DSP warning
          };

          if(te->alarm[i]!=0){ // hardware alarm
            ALARM = 1;
          };
      
          //**************************************************************************************
          // warning for internal number
          //**************************************************************************************
          if(i<=10){
            if(te->eventn[i]!=te->eventn[i+1]){
              warning_dspnumber++;
              warning<< "==> WARNING!!    Check entry "<< ev<<" (DSP "<<dsp<<")" <<endl<< 
                "eventn["<<i<<"]= "<<te->eventn[i]<<"!= eventn["<<i+1<<"]= "<< te->eventn[i+1]<<endl;
            }
            else 
              eventint[(ev-minev)]=te->eventn[0];
          }
        }

        if(ev<=maxevent-1){

          if((ev-minev)>=1 && eventint[(ev-minev)]!=eventint[(ev-minev)-1]+1 && eventint[(ev-minev)]!=1){
            warning_dspnumber++;
            warning<< "==> WARNING!!    Check entry "<< ev<<endl<<
              " DSP event num.= "<< eventint[(ev-minev)]<<
              " is different from (previus+1) ="<<eventint[(ev-minev)-1]+1 <<"\n"<<endl;
          }
        }
      
        //********************************************************************************************
        // file ALARM
        //********************************************************************************************

        if(ALARM==1) {  
          alarm <<endl<< "================================================="<< endl;
          alarm << "PSCU-Pkt N. "<< ph->GetCounter() ;
          alarm << " - OBT "<< ph->GetOrbitalTime() << " ms"<<endl;
          alarm << "(ROOT-tree entry "<<ev<<")"<<endl;
          alarm << "================================================="<< endl;
          
          alarm << " DSPn";
          alarm << " Event";
          alarm << " Words";
          alarm << " crc";
          alarm << "  FC";
          alarm << " FL1";
          alarm << " FL2";
          alarm << " FL3";
          alarm << " FL4";
          alarm << " FL5";
          alarm << " FL6" << endl;
          
          for(Int_t i=0; i<12 ; i++){
            alarm.width(5); alarm << te->DSPnumber[i];
            alarm.width(6); alarm << te->eventn[i];
            alarm.width(6); alarm << te->DATAlength[i];
            alarm.width(4); alarm << te->crc[i];
            alarm.width(4); alarm << te->fc[i];
            alarm.width(4); alarm << te->fl1[i];
            alarm.width(4); alarm << te->fl2[i];
            alarm.width(4); alarm << te->fl3[i];
            alarm.width(4); alarm << te->fl4[i];
            alarm.width(4); alarm << te->fl5[i];
            alarm.width(4); alarm << te->fl6[i];
            if(te->alarm[i]!=0)alarm<<" >> ALARM ";
            if(WARNING[i]!=0)alarm<<" (DSP warning) ";
            alarm    << endl;
          }
        }
      }
    }
    if(ALARM==0) alarm << endl<< "------>  NO ALARM!!! <-------"<<endl;
    if(warning_dspnumber==0) warning<<"NONE"<<endl;

    //    printf("prova2\n");

    Float_t maxhist=0;
    TBox b;
    b.SetFillColor(6);
    b.SetFillStyle(3945);

    for (Int_t i=0; i<12 ; i++){ 
      Float_t yyc[maxev-minev];
      for (Int_t v=0; v<maxev-minev; v++){
        yyc[v]=yc[v][i];
      }
    
      //    printf("prova3\n");
      LandauCanv1[ii]->cd();
      pad1[i]->SetFillColor(10);
      pad1[i]->SetFrameFillColor(10);
      pad1[i]->Draw();
      pad1[i]->cd();
      landau1[i][ii]->SetLineColor(1);
      landau1[i][ii]->GetXaxis()->SetTitle("max signal");
      landau1[i][ii]->GetXaxis()->CenterTitle();
      landau1[i][ii]->Draw("");
      LandauCanv1[ii]->Update();

      LandauCanv2[ii]->cd();
      pad4[i]->SetFillColor(10);
      pad4[i]->SetFrameFillColor(10);
      pad4[i]->Draw();
      pad4[i]->cd();
      landau2[i][ii]->SetLineColor(1);
      landau2[i][ii]->SetFillColor(1);
      landau2[i][ii]->GetXaxis()->SetTitle("max signal");
      landau2[i][ii]->GetXaxis()->CenterTitle();
      landau2[i][ii]->Draw("");
      LandauCanv2[ii]->Update();

      LandauCanv3[ii]->cd();
      pad5[i]->SetFillColor(10);
      pad5[i]->SetFrameFillColor(10);
      pad5[i]->Draw();
      pad5[i]->cd();
      landau3[i][ii]->GetXaxis()->SetTitle("max signal");
      landau3[i][ii]->GetXaxis()->CenterTitle();
      landau3[i][ii]->Draw("");
      LandauCanv3[ii]->Update();

      //     printf("prova4\n");
      IlluminaCanv[ii]->cd();
      pad2[i]->SetFillColor(10);
      pad2[i]->SetFrameFillColor(10);
      pad2[i]->SetLogy();
      pad2[i]->Draw();
      pad2[i]->cd();
      // illuminazione[i][ii]->SetStats(KFALSE);
      illuminazione[i][ii]->GetXaxis()->SetTitle("strip with max signal");
      illuminazione[i][ii]->GetXaxis()->CenterTitle();
      illuminazione[i][ii]->Draw("");
      if(i==1){
        maxhist= illuminazione[i][ii]->GetMaximum();
        b.DrawBox(2816.,0.,3060.,maxhist);
      }
      else if(i==6){
        maxhist= illuminazione[i][ii]->GetMaximum();
        b.DrawBox(2560.,0.,2816.,maxhist);
        b.DrawBox(512.,0.,768.,maxhist);
        b.DrawBox(1024.,0.,1792.,maxhist);
      }
      else if(i==11){
        maxhist= illuminazione[i][ii]->GetMaximum();
        b.DrawBox(768.,0.,1024.,maxhist);
      }
      IlluminaCanv[ii]->Update();

      //     printf("prova5\n");


      CompTimeCanv[ii]->cd();
      pad3[i]->SetFillColor(10);
      pad3[i]->SetFrameFillColor(10);
      pad3[i]->Draw();
      pad3[i]->cd();
      comprtime[i][ii]= new TGraph(maxev-minev,x,yyc);
      oss1<<"DSP  "<<i+1;
      comprtime[i][ii]->SetTitle(oss1.str().c_str());
      comprtime[i][ii]->GetXaxis()->SetTitle("OBT (ms)");
      comprtime[i][ii]->GetXaxis()->CenterTitle();
      comprtime[i][ii]->GetYaxis()->SetTitle("compressiontime (ms)");
      comprtime[i][ii]->GetYaxis()->CenterTitle();
      comprtime[i][ii]->GetYaxis()->SetRangeUser(0,2);
      comprtime[i][ii]->Draw("ap"); 
      oss1.str(""); 
      CompTimeCanv[ii]->Update();
    };
   
    //  printf("prova6\n");
    EventNumCanv[ii]->cd();
    pt0=new TPad("pt0"," ",0.704,0.004,0.996,0.98);
    pt1 = new TPaveText(0.004,0.004,0.986,0.996);
    pt = new TPad("pt"," ",0.004,0.004,0.7,0.98,18,0,0);
    pt1->SetFillColor(10);
    pt1->ReadFile(out + "warning.txt");
    pt1->SetTextAlign(22);
    pt1->SetTextSize(0.035);
    pt0->SetFillColor(10);
    pt0->SetFrameFillColor(10);
    pt0->Draw();
    pt0->cd();
    pt1->Draw();
    EventNumCanv[ii]->cd();
    pt->SetFillColor(10);
    pt->SetFrameFillColor(10);
    pt->Draw();
    pt->cd();
    eventnumb[ii]=new TGraph(maxev-minev,x,eventint);
    eventnumb[ii]->SetTitle("");
    eventnumb[ii]->GetXaxis()->SetLabelSize(0.04);
    eventnumb[ii]->GetXaxis()->SetTitleSize(0.04);
    eventnumb[ii]->GetXaxis()->SetTitle("OBT (ms)");
    eventnumb[ii]->GetXaxis()->CenterTitle();
    eventnumb[ii]->GetXaxis()->SetTickLength(0.01);
    eventnumb[ii]->GetXaxis()->SetTitleOffset(1.2);
    eventnumb[ii]->GetYaxis()->SetLabelSize(0.04);
    eventnumb[ii]->GetYaxis()->SetTitleSize(0.04);
    eventnumb[ii]->GetYaxis()->SetTitle("DSP event-number");
    eventnumb[ii]->GetYaxis()->CenterTitle();
    eventnumb[ii]->GetYaxis()->SetTitleOffset(1.5);
    eventnumb[ii]->SetMarkerStyle(21);
    eventnumb[ii]->SetMarkerColor(kBlue);
    eventnumb[ii]->SetMarkerSize(0.3);
    eventnumb[ii]->Draw("ap");
    EventNumCanv[ii]->Update();

    //    printf("prova7\n");

    obt=0;
    for(Int_t i=0; i<5; i++){
      Int_t v=0;
      for (Int_t ev=countTEMP; ev<tsize; ev++){
        tree->GetEntry(ev);
        ph=eT->GetPscuHeader();
        
        if(ph->GetOrbitalTime()<obt && ev>countTEMP){
          countTEMP=ev;
          break;
        }
        else{
          obt=ph->GetOrbitalTime();
          tempt_tmp[v++]=(Int_t)(((3.3*tempt[ev][i]/4096)-0.586)/0.0231);
        }
      }
      TempCanv[ii]->cd();
      tit<<"T"<<i+5<<" (magnetic module "<<i+1<<")";
      pad6[i]->SetFillColor(10);
      pad6[i]->Draw();
      pad6[i]->cd();
      temp[i][ii]= new TGraph(v,xt,tempt_tmp);
      temp[i][ii]->SetTitle(tit.str().c_str());
      temp[i][ii]->GetXaxis()->SetLabelSize(0.04);
      temp[i][ii]->GetXaxis()->SetTitleSize(0.04);
      temp[i][ii]->GetXaxis()->SetTitle("OBT (ms)");
      temp[i][ii]->GetXaxis()->CenterTitle();
      temp[i][ii]->GetXaxis()->SetTitleOffset(0.85);
      temp[i][ii]->GetYaxis()->SetTitleOffset(1.2);
      temp[i][ii]->GetYaxis()->SetLabelOffset(0.001);
      temp[i][ii]->GetYaxis()->SetLabelSize(0.04);
      temp[i][ii]->GetYaxis()->SetTitleSize(0.04);
      temp[i][ii]->GetYaxis()->SetTitle("Temperatures ( ^{o}C)");
      temp[i][ii]->GetYaxis()->CenterTitle();
      temp[i][ii]->SetMarkerStyle(21);
      temp[i][ii]->SetMarkerSize(0.2);
      temp[i][ii]->Draw("ap");
      tit.str("");
      TempCanv[ii]->Update();
    }
    
    //    printf("prova8\n");
    minev=maxev;
    //    printf("\ncountrun=%d\n",ii);
    if(maxev==maxevent-1) {
      countrun=ii+1;
      break;
    }
 
    warning.close();
  }

  //*****************************************
  //close all files
  //*****************************************  
  alarm.close();

  printf("... end of packets. \n");
  //*************************************************************************
  // Save output Files
  //*************************************************************************
  stringstream out1,out2,out3,command;
  
  for(Int_t fl=0;fl<countrun;fl++){
    if(!strcmp(outfile.Data(),"ps")||!strcmp(outfile.Data(),"pdf")){
      out1.str("");
      out2.str("");
      out3.str("");
      
      out1<<ffile<<"_FTrkQLook_EXPERT.ps(";
      out2<<ffile<<"_FTrkQLook_EXPERT.ps";
      out3<<ffile<<"_FTrkQLook_EXPERT.ps)";
    
      if(countrun==1){
        CompTimeCanv[fl]->Print(out+out1.str().c_str(),"Portrait");
        EventNumCanv[fl]->Print(out+out2.str().c_str(),"Portrait");
        LandauCanv1[fl]->Print(out+out2.str().c_str(),"Portrait");
        LandauCanv2[fl]->Print(out+out2.str().c_str(),"Portrait");
        LandauCanv3[fl]->Print(out+out2.str().c_str(),"Portrait");
        IlluminaCanv[fl]->Print(out+out2.str().c_str(),"Portrait");
        TempCanv[fl]->Print(out+out3.str().c_str(),"Portrait");
      }
      else if(countrun>=1){
        if(fl==0) CompTimeCanv[fl]->Print(out+out1.str().c_str(),"Portrait");
        else CompTimeCanv[fl]->Print(out+out2.str().c_str(),"Portrait");
        EventNumCanv[fl]->Print(out+out2.str().c_str(),"Portrait");
        LandauCanv1[fl]->Print(out+out2.str().c_str(),"Portrait");
        LandauCanv2[fl]->Print(out+out2.str().c_str(),"Portrait");
        LandauCanv3[fl]->Print(out+out2.str().c_str(),"Portrait");
        IlluminaCanv[fl]->Print(out+out2.str().c_str(),"Portrait");
        if(fl!=countrun-1) TempCanv[fl]->Print(out+out2.str().c_str(),"Portrait");
        else TempCanv[fl]->Print(out+out3.str().c_str(),"Portrait");
      }
    }
    else{
      out1.str("");
      out1<<ffile<<"_FTrkQLook_EXPERT-CompTime-pag"<<fl+1<<"."<<outfile.Data();
      CompTimeCanv[fl]->Print(out+out1.str().c_str());
      out1.str("");
      out1<<ffile<<"_FTrkQLook_EXPERT-Temp-pag"<<fl+1<<"."<<outfile.Data();
      TempCanv[fl]->Print(out+out1.str().c_str());
      out1.str("");
      out1<<ffile<<"_FTrkQLook_EXPERT-EvNum-pag"<<fl+1<<"."<<outfile.Data();
      EventNumCanv[fl]->Print(out+out1.str().c_str());
      out1.str("");
      out1<<ffile<<"_FTrkQLook_EXPERT-LandauL1-pag"<<fl+1<<"."<<outfile.Data();
      LandauCanv1[fl]->Print(out+out1.str().c_str());
      out1.str("");
      out1<<ffile<<"_FTrkQLook_EXPERT-LandauL2-pag"<<fl+1<<"."<<outfile.Data();
      LandauCanv2[fl]->Print(out+out1.str().c_str());
      out1.str("");
      out1<<ffile<<"_FTrkQLook_EXPERT-LandauL3-pag"<<fl+1<<"."<<outfile.Data();
      LandauCanv3[fl]->Print(out+out1.str().c_str());
      out1.str("");
      out1<<ffile<<"_FTrkQLook_EXPERT-Lighting-pag"<<fl+1<<"."<<outfile.Data();
      IlluminaCanv[fl]->Print(out+out1.str().c_str());
    }
  }  

  if(!strcmp(outfile.Data(),"pdf")){
    stringstream com;
    com<<"ps2pdf13 "<<out<<ffile<<"_FTrkQLook_EXPERT.ps "<<out<<ffile<<"_FTrkQLook_EXPERT.pdf";
    system(com.str().c_str());
    printf("\n---> ps file converted in pdf format!\n");
    com.str("");
    com<<"rm -f "<<out<<ffile<<"_FTrkQLook_EXPERT.ps ";
    system(com.str().c_str());
    printf("---> ps file removed!\n\n");
    com.str("");
  }

  command.str("");
  command<<"rm -f "<<out<<"warning.txt";
  system(command.str().c_str());
  
  gROOT->Reset();
  return;
}