Define run types to be processed by the TPC Shuttle preprocessor
[u/mrichter/AliRoot.git] / TPC / AliTPCPreprocessor.cxx
1 /**************************************************************************
2  * Copyright(c) 2007, ALICE Experiment at CERN, All rights reserved.      *
3  *                                                                        *
4  * Author: The ALICE Off-line Project.                                    *
5  * Contributors are mentioned in the code where appropriate.              *
6  *                                                                        *
7  * Permission to use, copy, modify and distribute this software and its   *
8  * documentation strictly for non-commercial purposes is hereby granted   *
9  * without fee, provided that the above copyright notice appears in all   *
10  * copies and that both the copyright notice and this permission notice   *
11  * appear in the supporting documentation. The authors make no claims     *
12  * about the suitability of this software for any purpose. It is          *
13  * provided "as is" without express or implied warranty.                  *
14  **************************************************************************/
15
16
17 #include "AliTPCPreprocessor.h"
18 #include "AliShuttleInterface.h"
19
20 #include "AliCDBMetaData.h"
21 #include "AliDCSValue.h"
22 #include "AliLog.h"
23 #include "AliTPCSensorTempArray.h"
24 #include "AliTPCROC.h"
25 #include "AliTPCCalROC.h"
26 #include "AliTPCCalPad.h"
27 #include "AliTPCCalibPedestal.h"
28 #include "AliTPCCalibPulser.h"
29 #include "AliTPCCalibCE.h"
30 #include "TFile.h"
31 #include "TTree.h"
32 #include "TGraph.h" 
33 #include "TEnv.h"
34 #include "TParameter.h"
35
36 #include <TTimeStamp.h>
37
38 const Int_t kValCutTemp = 100;               // discard temperatures > 100 degrees
39 const Int_t kDiffCutTemp = 5;                // discard temperature differences > 5 degrees
40 const TString kPedestalRunType = "PEDESTAL";  // pedestal run identifier
41 const TString kPulserRunType = "PULSER";   // pulser run identifier
42 const TString kPhysicsRunType = "PHYSICS";   // physics run identifier
43 const TString kStandAloneRunType = "STANDALONE"; // standalone run identifier
44 const TString kCosmicRunType = "COSMIC"; // cosmic run identifier
45 const TString kLaserRunType = "LASER";   // laser run identifier
46 const TString kDaqRunType = "DAQ"; // DAQ run identifier
47 const TString kAmandaTemp = "TPC_PT_%d_TEMPERATURE"; // Amanda string for temperature entries
48 //const Double_t kFitFraction = 0.7;                 // Fraction of DCS sensor fits required              
49 const Double_t kFitFraction = -1.0;          // Don't require minimum number of fits in commissioning run 
50
51 //
52 // This class is the SHUTTLE preprocessor for the TPC detector.
53 //
54
55 ClassImp(AliTPCPreprocessor)
56
57 //______________________________________________________________________________________________
58 AliTPCPreprocessor::AliTPCPreprocessor(AliShuttleInterface* shuttle) :
59   AliPreprocessor("TPC",shuttle),
60   fConfEnv(0), fTemp(0), fHighVoltage(0), fConfigOK(kTRUE), fROC(0)
61 {
62   // constructor
63   fROC = AliTPCROC::Instance();
64
65   // define run types to be processed
66   
67   AddRunType(kPedestalRunType);
68   AddRunType(kPulserRunType);
69   AddRunType(kPhysicsRunType);
70   AddRunType(kStandAloneRunType);
71   AddRunType(kCosmicRunType);
72   AddRunType(kLaserRunType);
73   AddRunType(kDaqRunType);
74   
75 }
76 //______________________________________________________________________________________________
77  AliTPCPreprocessor::AliTPCPreprocessor(const AliTPCPreprocessor&  ) :
78    AliPreprocessor("TPC",0),
79    fConfEnv(0), fTemp(0), fHighVoltage(0), fConfigOK(kTRUE), fROC(0)
80  {
81
82    Fatal("AliTPCPreprocessor", "copy constructor not implemented");
83 //
84 // //  fTemp = new AliTPCSensorTempArray(*(org.fTemp));
85  }
86
87 //______________________________________________________________________________________________
88 AliTPCPreprocessor::~AliTPCPreprocessor()
89 {
90   // destructor
91
92   delete fTemp;
93   delete fHighVoltage;
94 }
95 //______________________________________________________________________________________________
96 AliTPCPreprocessor& AliTPCPreprocessor::operator = (const AliTPCPreprocessor& )
97 {
98   Fatal("operator =", "assignment operator not implemented");
99   return *this;
100 }
101
102
103 //______________________________________________________________________________________________
104 void AliTPCPreprocessor::Initialize(Int_t run, UInt_t startTime,
105         UInt_t endTime)
106 {
107   // Creates AliTestDataDCS object -- start maps half an hour beforre actual run start
108
109   UInt_t startTimeLocal = startTime-1800;
110
111   AliPreprocessor::Initialize(run, startTimeLocal, endTime);
112
113         AliInfo(Form("\n\tRun %d \n\tStartTime %s \n\tEndTime %s", run,
114                 TTimeStamp((time_t)startTime,0).AsString(),
115                 TTimeStamp((time_t)endTime,0).AsString()));
116
117   // Preprocessor configuration
118
119         AliCDBEntry* entry = GetFromOCDB("Config", "Preprocessor");
120         if (entry) fConfEnv = (TEnv*) entry->GetObject();
121         if ( fConfEnv==0 ) {
122            Log("AliTPCPreprocsessor: Preprocessor Config OCDB entry missing.\n");
123            fConfigOK = kFALSE;
124            return;
125         }
126
127   // Temperature sensors
128
129        TTree *confTree = 0;
130
131        TString tempConf = fConfEnv->GetValue("Temperature","ON");
132        tempConf.ToUpper();
133        if (tempConf != "OFF" ) {
134         entry = GetFromOCDB("Config", "Temperature");
135         if (entry) confTree = (TTree*) entry->GetObject();
136         if ( confTree==0 ) {
137            Log("AliTPCPreprocsessor: Temperature Config OCDB entry missing.\n");
138            fConfigOK = kFALSE;
139            return;
140         }
141         fTemp = new AliTPCSensorTempArray(startTimeLocal, fEndTime, confTree, kAmandaTemp);
142         fTemp->SetValCut(kValCutTemp);
143         fTemp->SetDiffCut(kDiffCutTemp);
144        }
145
146   // High voltage measurements
147
148       TString hvConf = fConfEnv->GetValue("HighVoltage","ON");
149       hvConf.ToUpper();
150       if (hvConf != "OFF" ) { 
151         confTree=0;
152         entry=0;
153         entry = GetFromOCDB("Config", "HighVoltage");
154         if (entry) confTree = (TTree*) entry->GetObject();
155         if ( confTree==0 ) {
156            Log("AliTPCPreprocsessor: High Voltage Config OCDB entry missing.\n");
157            fConfigOK = kFALSE;
158            return;
159         }
160         fHighVoltage = new AliDCSSensorArray(startTimeLocal, fEndTime, confTree);
161       }
162 }
163
164 //______________________________________________________________________________________________
165 UInt_t AliTPCPreprocessor::Process(TMap* dcsAliasMap)
166 {
167   // Fills data into TPC calibrations objects
168
169   // Amanda servers provide information directly through dcsAliasMap
170
171   
172   if (!fConfigOK) return 9;
173   UInt_t result = 0;
174   TObjArray *resultArray = new TObjArray();
175   TString errorHandling = fConfEnv->GetValue("ErrorHandling","ON");
176   errorHandling.ToUpper();
177   TObject * status;
178
179   UInt_t dcsResult=0;
180   if (errorHandling == "OFF" ) {
181     if (!dcsAliasMap) dcsResult=1;
182     if (dcsAliasMap->GetEntries() == 0 ) dcsResult=1;  
183     status = new TParameter<int>("dcsResult",dcsResult);
184     resultArray->Add(status);
185   } else {
186     if (!dcsAliasMap) return 9;
187     if (dcsAliasMap->GetEntries() == 0 ) return 9;
188   }
189
190
191   
192
193   TString runType = GetRunType();
194
195   // Temperature sensors are processed by AliTPCCalTemp
196
197   TString tempConf = fConfEnv->GetValue("Temperature","ON");
198   tempConf.ToUpper();
199   if (tempConf != "OFF" ) {
200     UInt_t tempResult = MapTemperature(dcsAliasMap);
201     result=tempResult;
202     status = new TParameter<int>("tempResult",tempResult);
203     resultArray->Add(status);
204   }
205
206   // High Voltage recordings
207
208
209   TString hvConf = fConfEnv->GetValue("HighVoltage","ON");
210   hvConf.ToUpper();
211   if (hvConf != "OFF" ) { 
212    UInt_t hvResult = MapHighVoltage(dcsAliasMap);
213    result+=hvResult;
214    status = new TParameter<int>("hvResult",hvResult);
215    resultArray->Add(status);
216  }
217
218   // Other calibration information will be retrieved through FXS files
219   //  examples:
220   //    TList* fileSourcesDAQ = GetFile(AliShuttleInterface::kDAQ, "pedestals");
221   //    const char* fileNamePed = GetFile(AliShuttleInterface::kDAQ, "pedestals", "LDC1");
222   //
223   //    TList* fileSourcesHLT = GetFile(AliShuttleInterface::kHLT, "calib");
224   //    const char* fileNameHLT = GetFile(AliShuttleInterface::kHLT, "calib", "LDC1");
225
226   // pedestal entries
227
228   if(runType == kPedestalRunType) {
229     Int_t numSources = 1;
230     Int_t pedestalSource[2] = {AliShuttleInterface::kDAQ,AliShuttleInterface::kHLT} ;
231     TString source = fConfEnv->GetValue("Pedestal","DAQ");
232     source.ToUpper();
233     if (source != "OFF" ) { 
234      if ( source == "HLT") pedestalSource[0] = AliShuttleInterface::kHLT;
235      if (!GetHLTStatus()) pedestalSource[0] = AliShuttleInterface::kDAQ;
236      if (source == "HLTDAQ" ) {
237          numSources=2;
238          pedestalSource[0] = AliShuttleInterface::kHLT;
239          pedestalSource[1] = AliShuttleInterface::kDAQ;
240      }
241      if (source == "DAQHLT" ) numSources=2;
242      UInt_t pedestalResult=0;
243      for (Int_t i=0; i<numSources; i++ ) {      
244        UInt_t pedestalResult = ExtractPedestals(pedestalSource[i]);
245        if ( pedestalResult == 0 ) break;
246      }
247      result += pedestalResult;
248      status = new TParameter<int>("pedestalResult",pedestalResult);
249      resultArray->Add(status);
250     }
251   }
252
253   // pulser trigger processing
254
255   if(runType == kPulserRunType) {
256     Int_t numSources = 1;
257     Int_t pulserSource[2] = {AliShuttleInterface::kDAQ,AliShuttleInterface::kHLT} ;
258     TString source = fConfEnv->GetValue("Pulser","DAQ");
259     source.ToUpper();
260     if ( source != "OFF") { 
261      if ( source == "HLT") pulserSource[0] = AliShuttleInterface::kHLT;
262      if (!GetHLTStatus()) pulserSource[0] = AliShuttleInterface::kDAQ;
263      if (source == "HLTDAQ" ) {
264          numSources=2;
265          pulserSource[0] = AliShuttleInterface::kHLT;
266          pulserSource[1] = AliShuttleInterface::kDAQ;
267      }
268      if (source == "DAQHLT" ) numSources=2;
269      UInt_t pulserResult=0;
270      for (Int_t i=0; i<numSources; i++ ) {      
271        pulserResult = ExtractPulser(pulserSource[i]);
272        if ( pulserResult == 0 ) break;
273      }
274      result += pulserResult;
275      status = new TParameter<int>("pulserResult",pulserResult);
276      resultArray->Add(status);
277     }
278   }
279
280
281
282   // Central Electrode processing
283
284 //  if( runType == kPhysicsRunType || runType == kStandAloneRunType || 
285 //      runType == kDaqRunType ) {    
286
287    if (true) {                 // do CE processing for all run types
288     Int_t numSources = 1;
289     Int_t ceSource[2] = {AliShuttleInterface::kDAQ,AliShuttleInterface::kHLT} ;
290     TString source = fConfEnv->GetValue("CE","DAQ");
291     source.ToUpper();
292     if ( source != "OFF" ) { 
293      if ( source == "HLT") ceSource[0] = AliShuttleInterface::kHLT;
294      if (!GetHLTStatus()) ceSource[0] = AliShuttleInterface::kDAQ;
295      if (source == "HLTDAQ" ) {
296         numSources=2;
297         ceSource[0] = AliShuttleInterface::kHLT;
298         ceSource[1] = AliShuttleInterface::kDAQ;
299      }
300      if (source == "DAQHLT" ) numSources=2;
301      UInt_t ceResult=0;
302      for (Int_t i=0; i<numSources; i++ ) {      
303        ceResult = ExtractCE(ceSource[i]);
304        if ( ceResult == 0 ) break;
305      }
306      result += ceResult;
307      status = new TParameter<int>("ceResult",ceResult);
308      resultArray->Add(status);
309     }
310   }
311   
312   if (errorHandling == "OFF" ) {
313     AliCDBMetaData metaData;
314     metaData.SetBeamPeriod(0);
315     metaData.SetResponsible("Haavard Helstrup");
316     metaData.SetComment("Preprocessor AliTPC status.");
317     Store("Calib", "PreprocStatus", resultArray, &metaData, 0, kFALSE);
318     resultArray->Delete();
319     return 0;
320   } else { 
321     return result;
322   }
323 }
324 //______________________________________________________________________________________________
325 UInt_t AliTPCPreprocessor::MapTemperature(TMap* dcsAliasMap)
326 {
327
328    // extract DCS temperature maps. Perform fits to save space
329
330   UInt_t result=0;
331   TMap *map = fTemp->ExtractDCS(dcsAliasMap);
332   if (map) {
333     fTemp->MakeSplineFit(map);
334     Double_t fitFraction = 1.0*fTemp->NumFits()/fTemp->NumSensors(); 
335     if (fitFraction > kFitFraction ) {
336       AliInfo(Form("Temperature values extracted, fits performed.\n"));
337     } else { 
338       Log ("Too few temperature maps fitted. \n");
339       result = 9;
340     }
341   } else {
342     Log("No temperature map extracted. \n");
343     result=9;
344   }
345   delete map;
346   // Now store the final CDB file
347
348   if ( result == 0 ) {
349         AliCDBMetaData metaData;
350         metaData.SetBeamPeriod(0);
351         metaData.SetResponsible("Haavard Helstrup");
352         metaData.SetComment("Preprocessor AliTPC data base entries.");
353
354         Bool_t storeOK = Store("Calib", "Temperature", fTemp, &metaData, 0, kFALSE);
355         if ( !storeOK )  result=1;
356
357    }
358
359    return result;
360
361 }
362
363 //______________________________________________________________________________________________
364 UInt_t AliTPCPreprocessor::MapHighVoltage(TMap* dcsAliasMap)
365 {
366
367    // extract DCS HV maps. Perform fits to save space
368
369   UInt_t result=0;
370   TMap *map = fHighVoltage->ExtractDCS(dcsAliasMap);
371   if (map) {
372     fHighVoltage->MakeSplineFit(map);
373     Double_t fitFraction = 1.0*fHighVoltage->NumFits()/fHighVoltage->NumSensors(); 
374     if (fitFraction > kFitFraction ) {
375       AliInfo(Form("High voltage recordings extracted, fits performed.\n"));
376     } else { 
377       Log ("Too few high voltage recordings fitted. \n");
378       result = 9;
379     }
380   } else {
381     Log("No high voltage recordings extracted. \n");
382     result=9;
383   }
384   delete map;
385   // Now store the final CDB file
386
387   if ( result == 0 ) {
388         AliCDBMetaData metaData;
389         metaData.SetBeamPeriod(0);
390         metaData.SetResponsible("Haavard Helstrup");
391         metaData.SetComment("Preprocessor AliTPC data base entries.");
392
393         Bool_t storeOK = Store("Calib", "HighVoltage", fHighVoltage, &metaData, 0, kFALSE);
394         if ( !storeOK )  result=1;
395
396    }
397
398    return result;
399
400 }
401
402
403 //______________________________________________________________________________________________
404
405 UInt_t AliTPCPreprocessor::ExtractPedestals(Int_t sourceFXS)
406 {
407  //
408  //  Read pedestal file from file exchage server
409  //  Keep original entry from OCDB in case no new pedestals are available
410  //
411  AliTPCCalPad *calPadPed=0;
412  AliCDBEntry* entry = GetFromOCDB("Calib", "Pedestals");
413  if (entry) calPadPed = (AliTPCCalPad*)entry->GetObject();
414  if ( calPadPed==NULL ) {
415      Log("AliTPCPreprocsessor: No previous TPC pedestal entry available.\n");
416      calPadPed = new AliTPCCalPad("PedestalsMean","PedestalsMean");
417  }
418
419  AliTPCCalPad *calPadRMS=0;
420  entry = GetFromOCDB("Calib", "PadNoise");
421  if (entry) calPadRMS = (AliTPCCalPad*)entry->GetObject();
422  if ( calPadRMS==NULL ) {
423      Log("AliTPCPreprocsessor: No previous TPC noise entry available.\n");
424      calPadRMS = new AliTPCCalPad("PedestalsRMS","PedestalsRMS");
425  }
426
427
428  UInt_t result=0;
429
430  Int_t nSectors = fROC->GetNSectors();
431  TList* list = GetFileSources(sourceFXS,"pedestals");
432  
433  if (list && list->GetEntries()>0) {
434
435 //  loop through all files from LDCs
436
437     Bool_t changed=false;
438     UInt_t index = 0;
439     while (list->At(index)!=NULL) {
440      TObjString* fileNameEntry = (TObjString*) list->At(index);
441      if (fileNameEntry!=NULL) {
442         TString fileName = GetFile(sourceFXS, "pedestals",
443                                          fileNameEntry->GetString().Data());
444         TFile *f = TFile::Open(fileName);
445         if (!f) {
446           Log ("Error opening pedestal file.");
447           result =2;
448           break;
449         }
450         AliTPCCalibPedestal *calPed;
451         f->GetObject("tpcCalibPedestal",calPed);
452         if ( !calPed ) {
453           Log ("No pedestal calibration object in file.");
454           result = 2;
455           break;
456         }
457
458         //  replace entries for the sectors available in the present file
459
460         changed=true;
461         for (Int_t sector=0; sector<nSectors; sector++) {
462            AliTPCCalROC *rocPed=calPed->GetCalRocPedestal(sector, kFALSE);
463            if ( rocPed )  calPadPed->SetCalROC(rocPed,sector);
464            AliTPCCalROC *rocRMS=calPed->GetCalRocRMS(sector, kFALSE);
465            if ( rocRMS )  calPadRMS->SetCalROC(rocRMS,sector);
466         }
467       }
468      ++index;
469     }  // while(list)
470 //
471 //  Store updated pedestal entry to OCDB
472 //
473     if (changed) {
474      AliCDBMetaData metaData;
475      metaData.SetBeamPeriod(0);
476      metaData.SetResponsible("Haavard Helstrup");
477      metaData.SetComment("Preprocessor AliTPC data base entries."); 
478  
479      Bool_t storeOK = Store("Calib", "Pedestals", calPadPed, &metaData, 0, kTRUE);
480      if ( !storeOK ) ++result;
481      storeOK = Store("Calib", "PadNoise", calPadRMS, &metaData, 0, kTRUE);
482      if ( !storeOK ) ++result;
483     }
484   } else {
485     Log ("Error: no entries in input file list!");
486     result = 1;
487   }
488
489   return result;
490 }
491
492 //______________________________________________________________________________________________
493
494
495 UInt_t AliTPCPreprocessor::ExtractPulser(Int_t sourceFXS)
496 {
497  //
498  //  Read pulser calibration file from file exchage server
499  //  Keep original entry from OCDB in case no new pulser calibration is available
500  //
501  TObjArray    *pulserObjects=0;
502  AliTPCCalPad *pulserTmean=0;
503  AliTPCCalPad *pulserTrms=0;
504  AliTPCCalPad *pulserQmean=0;
505  AliCDBEntry* entry = GetFromOCDB("Calib", "Pulser");
506  if (entry) pulserObjects = (TObjArray*)entry->GetObject();
507  if ( pulserObjects==NULL ) {
508      Log("AliTPCPreprocsessor: No previous TPC pulser entry available.\n");
509      pulserObjects = new TObjArray;    
510  }
511
512  pulserTmean = (AliTPCCalPad*)pulserObjects->FindObject("PulserTmean");
513  if ( !pulserTmean ) {
514     pulserTmean = new AliTPCCalPad("PulserTmean","PulserTmean");
515     pulserObjects->Add(pulserTmean);
516  }
517  pulserTrms = (AliTPCCalPad*)pulserObjects->FindObject("PulserTrms");
518  if ( !pulserTrms )  { 
519     pulserTrms = new AliTPCCalPad("PulserTrms","PulserTrms");
520     pulserObjects->Add(pulserTrms);
521  }
522  pulserQmean = (AliTPCCalPad*)pulserObjects->FindObject("PulserQmean");
523  if ( !pulserQmean )  { 
524     pulserQmean = new AliTPCCalPad("PulserQmean","PulserQmean");
525     pulserObjects->Add(pulserQmean);
526  }
527
528
529  UInt_t result=0;
530
531  Int_t nSectors = fROC->GetNSectors();
532  TList* list = GetFileSources(sourceFXS,"pulser");
533  
534  if (list && list->GetEntries()>0) {
535
536 //  loop through all files from LDCs
537
538     Bool_t changed=false;
539     UInt_t index = 0;
540     while (list->At(index)!=NULL) {
541      TObjString* fileNameEntry = (TObjString*) list->At(index);
542      if (fileNameEntry!=NULL) {
543         TString fileName = GetFile(sourceFXS, "pulser",
544                                          fileNameEntry->GetString().Data());
545         TFile *f = TFile::Open(fileName);
546         if (!f) {
547           Log ("Error opening pulser file.");
548           result =2;
549           break;
550         }
551         AliTPCCalibPulser *calPulser;
552         f->GetObject("tpcCalibPulser",calPulser);
553         if ( !calPulser ) {
554           Log ("No pulser calibration object in file.");
555           result = 2;
556           break;
557         }
558
559         //  replace entries for the sectors available in the present file
560
561         changed=true;
562         for (Int_t sector=0; sector<nSectors; sector++) {
563            AliTPCCalROC *rocTmean=calPulser->GetCalRocT0(sector);
564            if ( rocTmean )  pulserTmean->SetCalROC(rocTmean,sector);
565            AliTPCCalROC *rocTrms=calPulser->GetCalRocRMS(sector);
566            if ( rocTrms )  pulserTrms->SetCalROC(rocTrms,sector);
567            AliTPCCalROC *rocQmean=calPulser->GetCalRocQ(sector);
568            if ( rocQmean )  pulserQmean->SetCalROC(rocQmean,sector);
569         }
570       }
571      ++index;
572     }  // while(list)
573 //
574 //  Store updated pedestal entry to OCDB
575 //
576     if (changed) {
577      AliCDBMetaData metaData;
578      metaData.SetBeamPeriod(0);
579      metaData.SetResponsible("Haavard Helstrup");
580      metaData.SetComment("Preprocessor AliTPC data base entries.");
581
582      Bool_t storeOK = Store("Calib", "Pulser", pulserObjects, &metaData, 0, kTRUE);
583      if ( !storeOK ) ++result;
584     }  
585   } else {
586     Log ("Error: no entries in input file list!");
587     result = 1;
588   }
589
590   return result;
591 }
592
593 UInt_t AliTPCPreprocessor::ExtractCE(Int_t sourceFXS)
594 {
595  //
596  //  Read Central Electrode file from file exchage server
597  //  Keep original entry from OCDB in case no new CE calibration is available
598  //
599  TObjArray    *ceObjects=0;
600  AliTPCCalPad *ceTmean=0;
601  AliTPCCalPad *ceTrms=0;
602  AliTPCCalPad *ceQmean=0;
603  TObjArray    *rocTtime=0;  
604  TObjArray    *rocQtime=0;  
605
606  AliCDBEntry* entry = GetFromOCDB("Calib", "CE");
607  if (entry) ceObjects = (TObjArray*)entry->GetObject();
608  if ( ceObjects==NULL ) {
609      Log("AliTPCPreprocsessor: No previous TPC central electrode entry available.\n");
610      ceObjects = new TObjArray;    
611  }
612
613  Int_t nSectors = fROC->GetNSectors();
614
615  ceTmean = (AliTPCCalPad*)ceObjects->FindObject("CETmean");
616  if ( !ceTmean ) {
617     ceTmean = new AliTPCCalPad("CETmean","CETmean");
618     ceObjects->Add(ceTmean);
619  }
620  ceTrms = (AliTPCCalPad*)ceObjects->FindObject("CETrms");
621  if ( !ceTrms )  { 
622     ceTrms = new AliTPCCalPad("CETrms","CETrms");
623     ceObjects->Add(ceTrms);
624  }
625  ceQmean = (AliTPCCalPad*)ceObjects->FindObject("CEQmean");
626  if ( !ceQmean )  { 
627     ceQmean = new AliTPCCalPad("CEQmean","CEQmean");
628     ceObjects->Add(ceQmean);
629  }
630  //!new from here please have a look!!!
631  rocTtime = (TObjArray*)ceObjects->FindObject("rocTtime");
632  if ( !rocTtime ) {
633      rocTtime = new TObjArray(nSectors);
634      rocTtime->SetName("rocTtime");
635      ceObjects->Add(rocTtime);
636  }
637  
638  rocQtime = (TObjArray*)ceObjects->FindObject("rocQtime");
639  if ( !rocQtime ) {
640      rocQtime = new TObjArray(nSectors);
641      rocQtime->SetName("rocQtime");
642      ceObjects->Add(rocQtime);
643  }
644
645
646  UInt_t result=0;
647
648  TList* list = GetFileSources(sourceFXS,"CE");
649  
650  if (list && list->GetEntries()>0) {
651
652 //  loop through all files from LDCs
653
654     UInt_t index = 0;
655     while (list->At(index)!=NULL) {
656      TObjString* fileNameEntry = (TObjString*) list->At(index);
657      if (fileNameEntry!=NULL) {
658         TString fileName = GetFile(sourceFXS, "CE",
659                                          fileNameEntry->GetString().Data());
660         TFile *f = TFile::Open(fileName);
661         if (!f) {
662           Log ("Error opening central electrode file.");
663           result =2;
664           break;
665         }
666         AliTPCCalibCE *calCE;
667         f->GetObject("tpcCalibCE",calCE);
668
669         //  replace entries for the sectors available in the present file
670
671         for (Int_t sector=0; sector<nSectors; sector++) {
672            AliTPCCalROC *rocTmean=calCE->GetCalRocT0(sector);
673            if ( rocTmean )  ceTmean->SetCalROC(rocTmean,sector);
674            AliTPCCalROC *rocTrms=calCE->GetCalRocRMS(sector);
675            if ( rocTrms )  ceTrms->SetCalROC(rocTrms,sector);
676            AliTPCCalROC *rocQmean=calCE->GetCalRocQ(sector);
677            if ( rocQmean )  ceQmean->SetCalROC(rocQmean,sector);
678            TGraph *grT=calCE->MakeGraphTimeCE(sector,0,2); // T time graph
679            if ( grT ) rocTtime->AddAt(grT,sector);         
680            TGraph *grQ=calCE->MakeGraphTimeCE(sector,0,3); // Q time graph
681            if ( grQ ) rocTtime->AddAt(grQ,sector);         
682         }
683       }
684      ++index;
685     }  // while(list)
686 //
687 //  Store updated pedestal entry to OCDB
688 //
689     AliCDBMetaData metaData;
690     metaData.SetBeamPeriod(0);
691     metaData.SetResponsible("Haavard Helstrup");
692     metaData.SetComment("Preprocessor AliTPC data base entries.");
693
694     Bool_t storeOK = Store("Calib", "CE", ceObjects, &metaData, 0, kTRUE);
695     if ( !storeOK ) ++result;
696     
697   } else {
698     Log ("Error: no entries!");
699     result = 1;
700   }
701
702   return result;
703 }