+ TObjArray* gainHistos=new TObjArray();
+ TObjArray* statusHistos=new TObjArray();
+
+ Char_t filnam[100],command[120];
+ for(Int_t iddl=0; iddl<kTotDDL;iddl++){
+ for(Int_t imod=0; imod<kModPerDDL;imod++){
+ for(Int_t isid=0;isid<kSides;isid++){
+ Int_t index=kSides*(kModPerDDL*iddl+imod)+isid;
+ if(isFilled[index]){
+ tpan[index]->ValidateAnodes();
+ tpan[index]->WriteToASCII();
+ gainHistos->AddLast(tpan[index]->GetGainAnodeHisto());
+ statusHistos->AddLast(tpan[index]->GetStatusAnodeHisto());
+ sprintf(filnam,"SDDbase_ddl%02dc%02d_sid%d.data",iddl,imod,isid);
+ sprintf(command,"tar -rf SDDbase_LDC.tar %s",filnam);
+ gSystem->Exec(command);
+ }
+ }
+ }
+ }