void kratta_calib_unpack()
{
// ----  Load libraries   ----------------------------------------------
  gROOT->LoadMacro("$VMCWORKDIR/gconfig/basiclibs.C");            
  basiclibs();                                                    
  gSystem->Load("libGeoBase");
  gSystem->Load("libParBase");
  gSystem->Load("libBase");
  gSystem->Load("libMbs");
  gSystem->Load("libMbsAPI");
  gSystem->Load("libTATOFEvent");
  gSystem->Load("libTCAMACEvent");
  gSystem->Load("libTCHIEvent");
  gSystem->Load("libTLANDEvent");
  gSystem->Load("libTKRATEvent");    
  gSystem->Load("libTRootEvent");
  gSystem->Load("libTMbsInfo");
  gSystem->Load("libTCHIGridCsI");
  gSystem->Load("libMBSUnpack");
  gSystem->Load("libMerger");
  gSystem->Load("libTMBALLEvent");
  gSystem->Load("libAnaCHI");    
      
                                                        
  ///Load libs for kratta analysis
  gSystem->Load("libTRootKRATEvent");
  gSystem->Load("libKrattaReTab");
  gSystem->Load("libKrattaEneLib");
  gSystem->Load("libKrattaPartIdent");
  gSystem->Load("libSwiatowid");
  gSystem->Load("libTKratCalib");
                
  gSystem->Load("libTKratAnaStep1");       
  gSystem->Load("libTKratAnaStep2");
  gSystem->Load("libKratMktreedst");
  gSystem->Load("libTKRATEventParam");
  

  
// ---------------------------------------------------------------------

  TString InFiles = "runlist.dat" ;
  TString OutFile = "results_kratta_calib_unpack.root";

  FairRunAna *fRun= new FairRunAna();
  fRun->SetOutputFile(OutFile);

  /**
  FairRuntimeDb* rtdb = fRun->GetRuntimeDb();
  FairParRootFileIo* parInput1 = new FairParRootFileIo();
  parInput1->open(parFile.Data());
  rtdb->setFirstInput(parInput1);
  */

  MBSUnpack *MBSunpack        = new MBSUnpack("MBS unpack", InFiles);  
                                                                       
  LANDUnpack *LANDunpack      = new LANDUnpack("LAND unpack");         
  CHIUnpack *CHIunpack        = new CHIUnpack("Chimera unpack");       
  MBUnpack *MBunpack          = new MBUnpack("MicroBall unpack");      

  CAMACUnpack   *CAMACunpack  = new CAMACUnpack("CAMAC unpack");
  ATOFUnpack    *ATOFunpack   = new ATOFUnpack("ATOF unpack");
                                                                       
  KRATUnpack *KRATunpack      = new KRATUnpack("KRATTA unpack" );      
  TKratAnaStep1 *KRATanaStep1 = new TKratAnaStep1( );
  TKratAnaStep2 *KRATanaStep2 = new TKratAnaStep2( );                  
  Merger *AsyMerger           = new Merger("Asy Merger");              
  AnaCHI *anaCHI              = new AnaCHI("Analyze CHIMERA DATA");
  
  
  TKratCalib  *pTKratCalib    = new TKratCalib("TKratCalib" );

// -------------- Configure tasks --------------------------------------
  //KRATunpack->SetVerboseLevel(10);
  KRATunpack->SetKratContOutName ("KRAT_EVT_RAW"); 
  //KRATunpack->SaveOutputIntoTree();
  
  KRATanaStep1->SetVerboseLevel(10);
  KRATanaStep1->SetKratContInName ("KRAT_EVT_RAW"); 
  KRATanaStep1->SetKratContOutName ("KRAT_EVT_PAR"); 
  KRATanaStep1->SaveOutputIntoTree();
  
  KRATanaStep2->SetKratContInName ("KRAT_EVT_PAR"); 
  
  //pTKratCalib->SetVerboseLevel(10);
  pTKratCalib->SetKratContInName ("KRAT_EVT_PAR"); 
  pTKratCalib->SetKratContOutName ("KRAT_EVT_CAL"); 
  pTKratCalib->SaveOutputIntoTree();
               
// -------------- Add tasks to Fairroot manager ------------------------
  // add those tasks which you want to use
  ///Lvl 0
  fRun->AddTask(MBSunpack);
  fRun->AddTask(LANDunpack);
  fRun->AddTask(CHIunpack);
  fRun->AddTask(CAMACunpack);
  fRun->AddTask(ATOFunpack);   
  fRun->AddTask(MBunpack);
  fRun->AddTask(KRATunpack);
  fRun->AddTask(AsyMerger);
  
  ///Lvl 1
  fRun->AddTask(anaCHI);
  fRun->AddTask(KRATanaStep1);
  
  ///Lvl 2
  fRun->AddTask(KRATanaStep2);
  fRun->AddTask(pTKratCalib);
   

// -------------- Init and launch analysis -----------------------------

  fRun->Init();
  
  Int_t eventsToAnalyse  = 100;
  
  //fRun->Run(0, eventsToAnalyse);
  fRun->RunOnLmdFiles(); ///193728

  cout << "kratta_calib_unpack.C - done" << endl;
  cout << "eventsToAnalyse= " << eventsToAnalyse << endl;
  cout << "TEST_PASSED" << endl; /// for testing only
  cout << "Result saved in file: " << endl;
  cout << OutFile << endl;
  
}