// Jerzy.Lukasik@ifj.edu.pl
{

const char *dirname = "/u/lukasik/s394/mktreedst/fit/KrattaEneDat/old_5";
TSystemDirectory dir(dirname, dirname);
TList *files = dir.GetListOfFiles();
if(files){
  TSystemFile *file;
  TString fname;
  TString fname0;
  TIter next(files);
  while((file=(TSystemFile*)next())){
    fname = file->GetName();
    fname0 = file->GetName();
    if(!file->IsDirectory() 
    && fname.BeginsWith("cal_cutgpextra") 
    && fname.EndsWith("root"))
    {
      printf("%s\n",fname.Data());
      TString full_fname = fname.Prepend("/");
      full_fname.Prepend(dirname);
      TFile *fcutgstar = new TFile(full_fname,"read");
      TCanvas *tc1 = (TCanvas*)fcutgstar->Get("c1")->Clone();
      fcutgstar->Close();
      delete fcutgstar;
      TCutG   *tcg = (TCutG*)tc1->FindObject("CUTG");
      tcg->SetName("CUTGPEXTRA");
      tc1->Update();
      printf("%s \n",tcg->GetName());
      printf("%s\n",fname.Data());
      TString full_fname0 = fname0.Prepend("/u/lukasik/s394/mktreedst/fit/KrattaEneDat/");
      TFile *fcutgstarout = new TFile(full_fname0,"recreate");
      printf("%s\n",full_fname0.Data());
      tc1->Write();
      fcutgstarout->Close();
      delete fcutgstarout;
    }
  }
}

}