]> git.uio.no Git - u/mrichter/AliRoot.git/blobdiff - TRD/AliTRDPreprocessor.cxx
Add newline
[u/mrichter/AliRoot.git] / TRD / AliTRDPreprocessor.cxx
index 74ab4f872b44b099e5eb91f128461e3288af9ab5..eb66cfd98063802a9b255ea5fec9424d86141fc2 100644 (file)
 // and stores both reference data and spline fits results                 //
 // in the CDB                                                             //
 //                                                                        //
-// Author                                                               //
+// Authors:                                                               //
 //   R. Bailhache (R.Bailhache@gsi.de)                                    //
 //   W. Monange   (w.monange@gsi.de)                                      //
+//   F. Kramer    (kramer@ikf.uni-frankfurt.de)                           //
 //                                                                        //
 ////////////////////////////////////////////////////////////////////////////
 
-#include "AliTRDPreprocessor.h"
+#include <fstream>
 
 #include <TFile.h>
 #include <TProfile2D.h>
-#include <TStopwatch.h>
 #include <TObjString.h>
 #include <TString.h>
 #include <TList.h>
-#include <TCollection.h>
+#include <TSAXParser.h>
 
 #include "AliCDBMetaData.h"
 #include "AliLog.h"
 
+#include "AliTRDPreprocessor.h"
 #include "AliTRDSensorArray.h"
 #include "AliTRDCalibraFit.h"
 #include "AliTRDCalibraMode.h"
 #include "AliTRDCalibPadStatus.h"
-#include "Cal/AliTRDCalDet.h"
+#include "AliTRDSaxHandler.h"
+#include "AliTRDgeometry.h"
+#include "Cal/AliTRDCalPad.h"
 #include "Cal/AliTRDCalPadStatus.h"
+#include "Cal/AliTRDCalDCS.h"
+#include "Cal/AliTRDCalSingleChamberStatus.h"
+#include "Cal/AliTRDCalROC.h"
 
 ClassImp(AliTRDPreprocessor)
 
 //______________________________________________________________________________________________
 AliTRDPreprocessor::AliTRDPreprocessor(AliShuttleInterface *shuttle)
-                   :AliPreprocessor("TRD", shuttle)
+  :AliPreprocessor("TRD", shuttle)
+  ,fVdriftHLT(0)
 {
   //
   // Constructor
   //
 
+  AddRunType("PHYSICS");
+  AddRunType("STANDALONE");
+  AddRunType("PEDESTAL");
+  AddRunType("DAQ");
+  
 }
 
 //______________________________________________________________________________________________
@@ -90,452 +102,964 @@ UInt_t AliTRDPreprocessor::Process(TMap* dcsAliasMap)
   // Process DCS and calibration part for HLT
   //
 
-  UInt_t result = 0;
+  TString runType = GetRunType();
+  Log(Form("runtype %s\n",runType.Data()));
+  
+  // always process the configuration data
+  Int_t DCSConfigReturn = ProcessDCSConfigData();
+  if(DCSConfigReturn) return DCSConfigReturn; 
+  
+  if (runType=="PEDESTAL"){
+    if(ExtractPedestals()) return 1;
+    return 0;
+  } 
 
+  if ((runType=="PHYSICS") || (runType=="STANDALONE") || (runType=="DAQ")){
+    // DCS
+    if(ProcessDCS(dcsAliasMap)) return 1; 
+    if(runType=="PHYSICS"){
+      // HLT if On
+      //TString runPar = GetRunParameter("HLTStatus");
+      //if(runPar=="1") {
+      if(GetHLTStatus()) {
+       if(ExtractHLT()) return 1; // for testing!
+      } 
+      // DAQ if HLT failed
+      if(!fVdriftHLT) {
+       if(ExtractDriftVelocityDAQ()) return 1; // for testing!
+      }
+    }
+  }
+  
+  return 0;  
+  
+}
+//______________________________________________________________________________
+Bool_t AliTRDPreprocessor::ProcessDCS()
+{
   //
-  // DCS
+  // Default process DCS method
   //
-  
+
+  TString runType = GetRunType();
+  if ((runType == "PHYSICS") || (runType == "STANDALONE")) {
+    return kTRUE;
+  }
+  return kFALSE;
+
+}
+
+//______________________________________________________________________________
+Bool_t AliTRDPreprocessor::ProcessDCS(TMap *dcsAliasMap)
+{
+  //
+  // Process DCS method
+  //
+
+  Bool_t error = kFALSE;
+
   AliCDBMetaData metaData;
   metaData.SetBeamPeriod(0);
   metaData.SetResponsible("Wilfried Monange/Raphaelle Bailhache");
   metaData.SetComment("TRD calib test");
+
+  Log("****** DCS ******\n");
        
-       
-  Log ("****** DCS ******\n");
-       
-  TObjArray * list = AliTRDSensorArray::GetList ();
+  TObjArray * list=AliTRDSensorArray::GetList ();
        
   if (list == 0x0) {
-         Log ("Error during AliTRDSensorArray::GetList");
-         Log ("DCS will not be processing");
-  }else { 
-       
-       Int_t nEntries = list->GetEntries ();
-       Log (Form ("%d alias loaded", nEntries));
+    Log ("Error during AliTRDSensorArray::GetList");
+    Log ("DCS will not be processing");
+    return kTRUE;
+  }
+
+  Int_t nEntries = list->GetEntries ();
+  Log (Form ("%d alias loaded", nEntries));
                
-       Bool_t * results = new Bool_t [nEntries];
-       Int_t  * nGraph = new Int_t [nEntries];
+  Bool_t * results=new Bool_t [nEntries];
+  Int_t  * nGraph=new Int_t [nEntries];
                
-       for (Int_t iAlias = 0; iAlias < nEntries; iAlias++) {
+  for (Int_t iAlias = 0; iAlias < nEntries; iAlias++) {
                        
-               AliTRDSensorArray * oneTRDDCS = (AliTRDSensorArray *)list->At (iAlias);
+    AliTRDSensorArray * oneTRDDCS = (AliTRDSensorArray *)list->At (iAlias);
                        
-               oneTRDDCS->SetStartTime (TTimeStamp (fStartTime));
-               oneTRDDCS->SetEndTime (TTimeStamp (fEndTime));
+    oneTRDDCS->SetStartTime (TTimeStamp (fStartTime));
+    oneTRDDCS->SetEndTime (TTimeStamp (fEndTime));
                        
-               Log (Form("Processing DCS : \"%s\"", 
-                       oneTRDDCS->GetStoreName ().Data ()));
+    Log(Form("Processing DCS : \"%s\"", oneTRDDCS->GetStoreName ().Data ()));
                        
-               TMap * map = oneTRDDCS->ExtractDCS (dcsAliasMap);
-               
-               nGraph [iAlias] = map->GetEntries ();
+    TMap * map;
+
+    map=oneTRDDCS->ExtractDCS (dcsAliasMap);
                
-               if (nGraph [iAlias] == 0) {
-                       Log("No TGraph for this dcsDatapointAlias : not stored");
-                       results [iAlias] = kFALSE;
-                       result |= kEStoreRefDCS;
-                       continue;
-               }
+    nGraph [iAlias] = map->GetEntries ();
                
-               oneTRDDCS->SetGraph (map);
-
-               results [iAlias] = Store("Calib", 
-                                                                oneTRDDCS->GetStoreName ().Data (), 
-                                                                oneTRDDCS,  
-                                                                &metaData,
-                                                                0, 
-                                                                kTRUE); 
+    if (nGraph [iAlias] == 0) {
+      Log("No TGraph for this dcsDatapointAlias : not stored");
+      results [iAlias] = kFALSE;
+      //error  = kTRUE;
+      continue;
+    }
                
-               /*      
-               results [iAlias] = StoreReferenceData("Calib", 
-                                                                                               oneTRDDCS->GetStoreName ().Data (), 
-                                                                                               oneTRDDCS, 
-                                                                                               &metaData); 
-               */
-               if (!results [iAlias]) {
-                       AliError("Problem during StoreRef DCS"); 
-                       result |= kEStoreRefDCS;
-               }
-                       
-               delete map;
-                       
-               /*
-                       //BEGIN TEST
-               oneTRDDCS->SetDiffCut2 (0.1);
-               map = oneTRDDCS->ExtractDCS (dcsAliasMap);
-               oneTRDDCS->SetGraph (map);
-                       
-               StoreReferenceData("Calib", 
-                                                       (oneTRDDCS->GetStoreName ()+"Cut").Data(), 
-                                                       oneTRDDCS, &metaData); 
-               delete map;
-                       //END TEST
-               */
-       }
+    oneTRDDCS->SetGraph(map);
+    results[iAlias]=Store("Calib", oneTRDDCS->GetStoreName().Data(), oneTRDDCS, &metaData, 0, kFALSE); 
+    delete map;                
+
+    //results [iAlias] = StoreReferenceData("Calib", oneTRDDCS->GetStoreName ().Data (), oneTRDDCS, &metaData); 
+
+    if (!results[iAlias]) {
+      AliError("Problem during StoreRef DCS");
+      //error=kTRUE;
+    }
+
+    //BEGIN TEST (should not be removed ...)
+    /*
+    oneTRDDCS->ClearGraph();
+    oneTRDDCS->ClearFit();
+    oneTRDDCS->SetDiffCut2 (0.1);
+    map=oneTRDDCS->ExtractDCS (dcsAliasMap);
+    oneTRDDCS->SetGraph (map);
+    Store("Calib", ("cut_"+oneTRDDCS->GetStoreName()).Data(), oneTRDDCS, &metaData, 0, kTRUE); 
+    delete map;
+
+
+    if(iAlias==1 || iAlias==19) continue;
+    
+    oneTRDDCS->ClearGraph();
+    oneTRDDCS->ClearFit();
+    oneTRDDCS->SetDiffCut2(0);
+    map=oneTRDDCS->ExtractDCS(dcsAliasMap);
+    oneTRDDCS->MakeSplineFit(map);
+    Store("Calib", ("fit_"+oneTRDDCS->GetStoreName()).Data() , oneTRDDCS, &metaData, 0, kTRUE); 
+    delete map;
+
+     
+    oneTRDDCS->ClearGraph(); 
+    oneTRDDCS->ClearFit();
+    oneTRDDCS->SetDiffCut2 (0.1);
+    map=oneTRDDCS->ExtractDCS (dcsAliasMap);
+    oneTRDDCS->MakeSplineFit(map);
+    Store("Calib", ("cutfit_"+oneTRDDCS->GetStoreName()).Data() , oneTRDDCS, &metaData, 0, kTRUE); 
+    delete map;
+    */    
+    //END TEST
+
+  }
+
+  // Check errors
+  Int_t nbCount = 0;
+  for (Int_t iAlias = 0; iAlias < nEntries; iAlias++) {
+    if (results[iAlias]) {
+      nbCount++;
+    }
+  }
+  if(nbCount == 0) error = kTRUE;
+
                
-       Log ("         Summury of DCS :\n");
-       Log (Form("%30s %10s %10s", "dcsDatapointAlias", "Stored ?", "# graph"));
-       for (Int_t iAlias = 0; iAlias < nEntries; iAlias++) {
-               AliTRDSensorArray * oneTRDDCS = (AliTRDSensorArray *)list->At (iAlias);
-               Log (Form ("%30s %10s %4d", 
-                       oneTRDDCS->GetStoreName ().Data (),
-                       results[iAlias] ? "ok" : "X",
-                       nGraph [iAlias]));
+  Log ("         Summury of DCS :\n");
+  Log (Form("%30s %10s %10s", "dcsDatapointAlias", "Stored ?", "# graph"));
+  for (Int_t iAlias = 0; iAlias < nEntries; iAlias++) {
+    AliTRDSensorArray * oneTRDDCS = (AliTRDSensorArray *)list->At (iAlias);
+    Log (Form ("%30s %10s %4d", 
+              oneTRDDCS->GetStoreName ().Data (),
+              results[iAlias] ? "ok" : "X",
+              nGraph [iAlias]));
+  }
+  Log ("*********** End of DCS **********");
+  
+  delete results;
+  delete nGraph;
+
+  return error;
+
+}
+
+//______________________________________________________________________________________________
+Bool_t AliTRDPreprocessor::ExtractPedestals()
+{
+  //
+  // Pedestal running on LDCs at the DAQ
+  //
+
+  //
+  // The reference data are stored in:
+  // PadStatus1 for sm-00-01-02-09-10-11
+  // PadStatus2 for sm-03-04-05-12-13-14
+  // PadStatus3 for sm-06-07-08-15-16-17
+  // PadStatus0 if nothing found..means problems
+  //
+
+  Bool_t error = kFALSE;
+
+  // Init a AliTRDCalibPadStatus
+  AliTRDCalibPadStatus calPedSum = AliTRDCalibPadStatus();
+
+  AliCDBMetaData metaData;
+  metaData.SetBeamPeriod(0);
+  metaData.SetResponsible("Raphaelle Bailhache");
+  metaData.SetComment("TRD calib test");
+  
+  // Sum the contributions of the LDCs
+  TList * listpad = GetFileSources(kDAQ,"PADSTATUS");
+  if (!listpad) {
+    Log("No list found for the PEDESTRAL Run");
+    return kTRUE;
+  }
+  
+  // loop through all files from LDCs  
+  UInt_t index = 0;
+  while (listpad->At(index)!=NULL) {
+    TObjString* fileNameEntry = (TObjString*) listpad->At(index);
+    if (fileNameEntry != NULL)
+      {
+        TString fileName = GetFile(kDAQ, "PADSTATUS",
+                                  fileNameEntry->GetString().Data());
+       if(fileName.Length() ==0){
+         Log(Form("Error by retrieving the file %d for the pedestal",(Int_t)index));
+         delete listpad;
+         return kTRUE;
        }
-       Log ("*********** End of DCS **********");
        
-       delete results;
-       delete nGraph;
+       TFile *f = TFile::Open(fileName);
+       AliTRDCalibPadStatus *calPed;
+       f->GetObject("calibpadstatus",calPed);
+       
+       if(calPed){
+         
+         Int_t ldc = 0; 
+
+         // analyse
+         //calPed->AnalyseHisto();
+                 
+         // Add to the calPedSum
+         for (Int_t idet=0; idet<540; idet++) {
+           AliTRDCalROC *rocMean  = calPed->GetCalRocMean(idet, kFALSE);
+           if ( rocMean )  {
+             calPedSum.SetCalRocMean(rocMean,idet);
+             ldc = (Int_t) (idet / 30);
+           }
+           AliTRDCalROC *rocRMS = calPed->GetCalRocRMS(idet, kFALSE);
+           if ( rocRMS )  {
+             calPedSum.SetCalRocRMS(rocRMS,idet);
+           }
+           AliTRDCalROC *rocMeand  = calPed->GetCalRocMeand(idet, kFALSE);
+           if ( rocMeand )  {
+             calPedSum.SetCalRocMeand(rocMeand,idet);
+           }
+           AliTRDCalROC *rocRMSd = calPed->GetCalRocRMSd(idet, kFALSE);
+           if ( rocRMSd )  {
+             calPedSum.SetCalRocRMSd(rocRMSd,idet);
+           }
+         }// det loop
+
+         if((ldc==0) || (ldc==1) || (ldc==2)) ldc = 1;
+         if((ldc==3) || (ldc==4) || (ldc==5)) ldc = 2;
+         if((ldc==6) || (ldc==7) || (ldc==8)) ldc = 3;
+         if((ldc==9) || (ldc==10) || (ldc==11)) ldc = 4;
+         if((ldc==12) || (ldc==13) || (ldc==14)) ldc = 5;
+         if((ldc==15) || (ldc==16) || (ldc==17)) ldc = 6;
+       
+         // store as reference data
+         TString name("PadStatus");
+         name += ldc;
+         if(!StoreReferenceData("DAQData",(const char *)name,(TObject *) calPed,&metaData)){
+           Log(Form("Error storing AliTRDCalibPadStatus object %d as reference data",(Int_t)index));
+           error = kTRUE;
+         }
+
+       } // calPed
+      } // fileNameEntry
+    ++index;
+  }// while (list)
+
+  Log(Form("%d elements found in the list for the pedestal",(Int_t)index));
+  if(index==0){
+    delete listpad;
+    return kTRUE;
   }
 
   //
-  // Process the calibration data for the HLT part
+  // Create pedestal 
   //
-
- // Objects for HLT and DAQ zusammen
-  AliTRDCalibraFit *calibra = AliTRDCalibraFit::Instance();
-  Bool_t hltVdrifthisto = kFALSE;
-  // Store the infos for the detector
-  AliCDBMetaData *md1= new AliCDBMetaData(); 
-  md1->SetObjectClassName("AliTRDCalDet");
-  md1->SetResponsible("Raphaelle Bailhache");
-  md1->SetBeamPeriod(0);
-  md1->SetComment("TRD calib test");
-  // Store the infos for the pads
-  AliCDBMetaData *md2= new AliCDBMetaData(); 
-  md2->SetObjectClassName("AliTRDCalPad");
-  md2->SetResponsible("Raphaelle Bailhache");
-  md2->SetBeamPeriod(0);
-  md2->SetComment("TRD calib test");
+    
+  // Create Pad Status
+  AliTRDCalPadStatus *calPadStatus = calPedSum.CreateCalPadStatus();
+  // Create Noise 
+  //Make the AliTRDCalPad
+  AliTRDCalPad *calPad2 = calPedSum.CreateCalPad();
+  //Make the AliTRDCalDet correspondant
+  AliTRDCalDet *calDet = calPedSum.CreateCalDet();
  
   //
-  // Process the calibration data for the HLT part
+  // Take the noise and Pad status from the previous OCDB
   //
 
-  // How long does it take for the HLT part?
-  TStopwatch timer;
-  timer.Start();
-
-  //Run type
-  TString runType = GetRunType();
-  Log(Form("Run type for run %d: %s", fRun, runType.Data()));
-  if (strcmp(runType, "PHYSICS") != 0){
-    Log("Nothing to do for HLT!");
-  }
-  else{
-    // note that the parameters are returned as character strings!
-    const char* nEvents = GetRunParameter("totalEvents");
-    if (nEvents) {
-      Log(Form("Number of events for run %d: %s",fRun, nEvents));
-    } else {
-      Log(Form("Number of events not put in logbook!"));
-    }
+  AliTRDCalPad *calPadPrevious=0;
+  AliCDBEntry* entry = GetFromOCDB("Calib", "PadNoise");
+  if (entry) calPadPrevious = (AliTRDCalPad*)entry->GetObject();
+  if ( calPadPrevious==NULL ) {
+     Log("AliTRDPreprocsessor: No previous TRD pad noise entry available.\n");
+     calPadPrevious = new AliTRDCalPad("PadNoise", "PadNoise");
+  }
 
-    // Take the file from the HLT file exchange server
-    TList *filesourceshlt = GetFileSources(kHLT,"GAINDRIFTPRF");
-    if (!filesourceshlt) {
-      Log(Form("No sources found for GAINDRIFTPRF for run %d !",fRun));
-      result |= kEListFileHLT;
-    }
-    else{
-      if (filesourceshlt->GetSize() != 1) {
-       Log(Form("More than one source found for GAINDRIFTPRF for run %d!",fRun));
-       filesourceshlt->Print();
-       result |= kEListFileHLT;
+  AliTRDCalPadStatus *calPadStatusPrevious=0;
+  entry = GetFromOCDB("Calib", "PadStatus");
+  if (entry) calPadStatusPrevious = (AliTRDCalPadStatus*)entry->GetObject();
+  if ( calPadStatusPrevious==NULL ) {
+    Log("AliTRDPreprocsessor: No previous TRD pad status entry available.\n");
+    calPadStatusPrevious = new AliTRDCalPadStatus("padstatus", "padstatus");
+    for (Int_t idet=0; idet<540; ++idet)
+      {
+       AliTRDCalSingleChamberStatus *calROC = calPadStatusPrevious->GetCalROC(idet);
+       for(Int_t k = 0; k < calROC->GetNchannels(); k++){
+         calROC->SetStatus(k,AliTRDCalPadStatus::kMasked);
+       }
       }
-      else {
+  }
 
-       //Debug mode
-       //calibra->SetDebugLevel(2);       //Debug
+  
+  // Loop over detectors for check
+  for (Int_t det=0; det<AliTRDgeometry::kNdet; ++det)  {
+    
+    // noise
+    AliTRDCalROC *calROCPreviousNoise = calPadPrevious->GetCalROC(det);
+    AliTRDCalROC *calROCNoise         = calPad2->GetCalROC(det);
 
-       // Loop over the files taken from the HLT
-       TIter iter(filesourceshlt);
-       TObjString *sourcehlt;
-       while ((sourcehlt = dynamic_cast<TObjString *> (iter.Next()))) {
+    // padstatus
+    AliTRDCalSingleChamberStatus *calROCPreviousStatus = calPadStatusPrevious->GetCalROC(det);
+    AliTRDCalSingleChamberStatus *calROCStatus         = calPadStatus->GetCalROC(det);
     
-         TString filenamehlt = GetFile(kHLT,"GAINDRIFTPRF",sourcehlt->GetName());
-         if (filenamehlt.Length() == 0) {
-           Log(Form("Error retrieving file from source %d failed!", sourcehlt->GetName()));
-           result |= kEOpenFileHLT;
-         }
-         else{
+    
+    // loop over first half and second half chamber
+    for(Int_t half = 0; half < 2; half++){
+
+      Bool_t data         = AreThereDataPedestal(calROCStatus,(Bool_t)half);
+      //printf("There are data for the detector %d the half %d: %d\n",det,half,data);
+      if(!data){
+       // look if data in the OCDB
+       Bool_t dataPrevious = AreThereDataPedestal(calROCPreviousStatus,(Bool_t)half);
+       // if no data at all, set to default value
+       if(!dataPrevious){
+         SetDefaultStatus(*calROCStatus,(Bool_t)half);
+         SetDefaultNoise(*calROCNoise,(Bool_t)half);
+       }
+       else{
+         // if data, set to previous value
+         SetStatus(*calROCStatus,calROCPreviousStatus,(Bool_t)half);
+         SetNoise(*calROCNoise,calROCPreviousNoise,(Bool_t)half);
+       }
+      }
+    }
+  }
+  
+  //
+  // Store  
+  //  
 
-           // Init some things
-           TH2I         *histogain           = 0x0; // Histogram taken from HLT for gain factor
-           TProfile2D   *histodriftvelocity  = 0x0; // Profile taken from HLT for drift velocity and time0
-           TProfile2D   *histoprf            = 0x0; // Profile taken from HLT for prf
+  AliCDBMetaData md3; 
+  md3.SetObjectClassName("AliTRDCalPadStatus");
+  md3.SetResponsible("Raphaelle Bailhache");
+  md3.SetBeamPeriod(1);
+  md3.SetComment("TRD calib test");
+  if(!Store("Calib","PadStatus"    ,(TObject *)calPadStatus, &md3, 0, kTRUE)){
+    Log("Error storing the pedestal");
+    delete listpad;
+    return kTRUE;
+  }
 
+  AliCDBMetaData md4; 
+  md4.SetObjectClassName("AliTRDCalPad");
+  md4.SetResponsible("Raphaelle Bailhache");
+  md4.SetBeamPeriod(1);
+  md4.SetComment("TRD calib test");
+  if(!Store("Calib","PadNoise"    ,(TObject *)calPad2, &md4, 0, kTRUE)){
+    Log("Error storing the pedestal");
+    delete listpad;
+    return kTRUE;
+  }
+  
+  AliCDBMetaData md5; 
+  md5.SetObjectClassName("AliTRDCalDet");
+  md5.SetResponsible("Raphaelle Bailhache");
+  md5.SetBeamPeriod(1);
+  md5.SetComment("TRD calib test");
+  if(!Store("Calib","DetNoise"    ,(TObject *)calDet, &md5, 0, kTRUE)){
+    Log("Error storing the pedestal");
+    delete listpad;
+    return kTRUE;
+  }  
 
-           // Take the histos
-           TFile *filehlt = TFile::Open(filenamehlt);
-           histogain = (TH2I *) filehlt->Get("CH2d");
-           histogain->SetDirectory(0);
-           if (!histogain) {
-             Log("Error retrieving 2D histos for gain failed!");
-             result |= kETakeHistoHLT;
-           }
-           histodriftvelocity = (TProfile2D *) filehlt->Get("PH2d");
-           histodriftvelocity->SetDirectory(0);
-           if (!histodriftvelocity) {
-             Log("Error retrieving 2D Profile for average pulse height failed!");
-             result |= kETakeHistoHLT;
-           }
-           histoprf = (TProfile2D *) filehlt->Get("PRF2d");
-           histoprf->SetDirectory(0);
-           if (!histoprf) {
-             Log("Error retrieving 2D Profile for Pad Response Function failed!");
-             result |= kETakeHistoHLT;
-           }
-           filehlt->Close();
-           
-           // try to fit them and store
-           if (histogain) {
-             if(!StoreReferenceData("HLTData","Gain",(TObject *) histogain,&metaData)){
-               Log("Error storing 2D histos for gain as reference data");
-               result |= kEStoreHistoHLT;
-             }
-             Log("Take the CH reference data. Now we will try to fit\n");
-             calibra->SetMinEntries(100); // If there is less than 100 entries in the histo: no fit
-             calibra->AnalyseCH(histogain);
-             Int_t nbtg = 6*4*18*((Int_t) ((AliTRDCalibraMode *)calibra->GetCalibraMode())->GetDetChamb0(0))
-               + 6*  18*((Int_t) ((AliTRDCalibraMode *)calibra->GetCalibraMode())->GetDetChamb2(0));
-             Int_t nbfit       = calibra->GetNumberFit();
-             Int_t nbE         = calibra->GetNumberEnt();
-             if ((nbtg >                  0) && 
-                 (nbfit        >= 0.95*nbE)) {
-               TObjArray object             = calibra->GetVectorFit();
-               AliTRDCalDet *objgaindet   = calibra->CreateDetObjectGain(&object,calibra->GetScaleFitFactor(),kTRUE);
-               TObject *objgainpad        = calibra->CreatePadObjectGain();
-               if(!Store("Calib","ChamberGainFactor",(TObject *) objgaindet         ,md1,0,kTRUE)){
-                 Log("Error storing the calibration object for the chamber gain");
-                 result |= kEStoreCalHLT;
-               }
-               if(!Store("Calib","LocalGainFactor"  ,(TObject *) objgainpad         ,md2,0,kTRUE)){
-                 Log("Error storing the calibration object for the local gain factor");
-                 result |= kEStoreCalHLT;
-               }
-             }
-             else{
-               Log("Not enough statistics for the gain");
-               result |= kEFitHistoHLT;
-             }
-             calibra->ResetVectorFit();
-           }
-    
-           if (histodriftvelocity) {
-             if(!StoreReferenceData("HLTData","VdriftT0",(TObject *) histodriftvelocity,&metaData)){
-               Log("Error storing 2D Profile for average pulse height as reference data");
-               result |= kEStoreHistoHLT;
-             }
-             Log("Take the PH reference data. Now we will try to fit\n");
-             calibra->SetMinEntries(100*20); // If there is less than 2000
-             calibra->AnalysePH(histodriftvelocity);
-             Int_t nbtg = 6*4*18*((Int_t) ((AliTRDCalibraMode *)calibra->GetCalibraMode())->GetDetChamb0(1))
-               + 6*  18*((Int_t) ((AliTRDCalibraMode *)calibra->GetCalibraMode())->GetDetChamb2(1));
-             Int_t nbfit        = calibra->GetNumberFit();
-             Int_t nbE          = calibra->GetNumberEnt();
-             if ((nbtg >                  0) && 
-                 (nbfit        >= 0.95*nbE)) {
-               TObjArray object  = calibra->GetVectorFit();
-               AliTRDCalDet *objdriftvelocitydet = calibra->CreateDetObjectVdrift(&object,kTRUE);
-               TObject *objdriftvelocitypad      = calibra->CreatePadObjectVdrift();
-               object              = calibra->GetVectorFit2();
-               AliTRDCalDet *objtime0det  = calibra->CreateDetObjectT0(&object,kTRUE);
-               TObject *objtime0pad       = calibra->CreatePadObjectT0();
-               if(!Store("Calib","ChamberVdrift"    ,(TObject *) objdriftvelocitydet,md1,0,kTRUE)){
-                 Log("Error storing the calibration object for the chamber vdrift");
-                 result |= kEStoreCalHLT;    
-               }
-               if(!Store("Calib","ChamberT0"        ,(TObject *) objtime0det        ,md1,0,kTRUE)){
-                 Log("Error storing the calibration object for the chamber t0");
-                 result |= kEStoreCalHLT;    
-               }
-               if(!Store("Calib","LocalVdrift"      ,(TObject *) objdriftvelocitypad,md2,0,kTRUE)){
-                 Log("Error storing the calibration object for the local drift velocity");
-                 result |= kEStoreCalHLT;
-               }
-               if(!Store("Calib","LocalT0"          ,(TObject *) objtime0pad        ,md2,0,kTRUE)){
-                 Log("Error storing the calibration object for the local time0");
-                 result |= kEStoreCalHLT;
-               }
-               hltVdrifthisto = kTRUE;
-             }
-             else{
-               Log("Not enough statistics for the average pulse height");
-               result |= kEFitHistoHLT;
-             }      
-             calibra->ResetVectorFit();
-           }
-           
-           if (histoprf) {
-             if(!StoreReferenceData("HLTData","PRF",(TObject *) histoprf,&metaData)){
-               Log("Error storing the 2D Profile for Pad Response Function as reference data");
-               result |= kEStoreHistoHLT;
-             }
-             Log("Take the PRF reference data. Now we will try to fit\n");
-             calibra->SetMinEntries(100*20); // If there is less than 2000
-             calibra->AnalysePRFMarianFit(histoprf);
-             Int_t nbtg = 6*4*18*((Int_t) ((AliTRDCalibraMode *)calibra->GetCalibraMode())->GetDetChamb0(2))
-               + 6*  18*((Int_t) ((AliTRDCalibraMode *)calibra->GetCalibraMode())->GetDetChamb2(2));
-             Int_t nbfit        = calibra->GetNumberFit();
-             Int_t nbE          = calibra->GetNumberEnt();
-             if ((nbtg >                  0) && 
-                 (nbfit        >= 0.95*nbE)) {
-               TObjArray object              = calibra->GetVectorFit();
-               TObject *objPRFpad          = calibra->CreatePadObjectPRF(&object);
-               if(!Store("Calib","PRFWidth"         ,(TObject *) objPRFpad          ,md2,0,kTRUE)){
-                 Log("Error storing the calibration object for the Pad Response Function");
-                 result |= kEStoreCalHLT;
-               }
-             }
-             else{
-               Log("Not enough statistics for the Pad Response Function");
-               result |= kEFitHistoHLT;
-             }
-             calibra->ResetVectorFit();
-           }
-         } // if HLT openfile
-       } // while iter list
-      } // if HLT size of tlist
-    } //if HLT tlist
-    delete filesourceshlt;
-  } //if run type physics
-  // time
-  timer.Stop();
-  timer.Print();
+  delete listpad;
+  return error; 
+  
+}
+
+//__________________________________________________________________
+Bool_t AliTRDPreprocessor::AreThereDataPedestal(AliTRDCalSingleChamberStatus * const calROCStatus
+                                              , Bool_t second)
+{
 
   //
-  // Process the calibration data for the DAQ part
+  // Data for this half chamber
   //
 
-  // How long does it take for the DAQ part?
-  timer.Reset();
-  timer.Start();
+  Bool_t data         = kFALSE;
+  Int_t nCols         = calROCStatus->GetNcols();
+  Int_t nCol0         = 0;
+  Int_t nColE         = (Int_t) nCols/2 - 2;
+  if(second) {
+    nCol0 = nColE + 4;
+    nColE = nCols;
+  }
+
+  Int_t totalnumberofpads = 0;
+  Int_t totalnumberofdata = 0; 
+
+  for(Int_t col = nCol0; col < nColE; col++){
+    for(Int_t row = 0; row < calROCStatus->GetNrows(); row++){
+      totalnumberofpads++;
+      //printf("ismasked %d\n",(Int_t)calROCStatus->IsMasked(col,row));
+      if(!calROCStatus->GetStatus(col,row)) {
+       data = kTRUE;
+       totalnumberofdata++;
+      }
+    }
+  }
+  if(totalnumberofdata < (Int_t)(totalnumberofpads/2)) data = kFALSE;
+
+  return data;
   
+}
+//__________________________________________________________________
+void AliTRDPreprocessor::SetDefaultStatus(AliTRDCalSingleChamberStatus &calROCStatus, Bool_t second){
+
+  //
+  // default status for this half chamber
+  //
+
+  Int_t nCols         = calROCStatus.GetNcols();
+  Int_t nCol0         = 0;
+  Int_t nColE         = (Int_t) nCols/2;
+  if(second) {
+    nCol0 = nColE;
+    nColE = nCols;
+  }
+  for(Int_t col = nCol0; col < nColE; col++){
+    for(Int_t row = 0; row < calROCStatus.GetNrows(); row++){
+      calROCStatus.SetStatus(col,row,0);
+    }
+  }
+}
+//__________________________________________________________________
+void AliTRDPreprocessor::SetStatus(AliTRDCalSingleChamberStatus &calROCStatus, AliTRDCalSingleChamberStatus *calROCStatusPrevious,Bool_t second){
+
+  //
+  // previous status for this half chamber
+  //
+
+  Int_t nCols         = calROCStatus.GetNcols();
+  Int_t nCol0         = 0;
+  Int_t nColE         = (Int_t) nCols/2;
+  if(second) {
+    nCol0 = nColE;
+    nColE = nCols;
+  }
+  for(Int_t col = nCol0; col < nColE; col++){
+    for(Int_t row = 0; row < calROCStatus.GetNrows(); row++){
+      calROCStatus.SetStatus(col,row,calROCStatusPrevious->GetStatus(col,row));
+    }
+  }
+}
+//__________________________________________________________________
+void AliTRDPreprocessor::SetDefaultNoise(AliTRDCalROC &calROCNoise, Bool_t second){
+
+  //
+  // default noise for this half chamber
+  //
+
+  Int_t nCols         = calROCNoise.GetNcols();
+  Int_t nCol0         = 0;
+  Int_t nColE         = (Int_t) nCols/2;
+  if(second) {
+    nCol0 = nColE;
+    nColE = nCols;
+  }
+  for(Int_t col = nCol0; col < nColE; col++){
+    for(Int_t row = 0; row < calROCNoise.GetNrows(); row++){
+      calROCNoise.SetValue(col,row,0.12);
+    }
+  }
+}
+//__________________________________________________________________
+void AliTRDPreprocessor::SetNoise(AliTRDCalROC &calROCNoise, AliTRDCalROC *calROCNoisePrevious, Bool_t second){
+
+  //
+  // previous noise for this half chamber
+  //
+
+  Int_t nCols         = calROCNoise.GetNcols();
+  Int_t nCol0         = 0;
+  Int_t nColE         = (Int_t) nCols/2;
+  if(second) {
+    nCol0 = nColE;
+    nColE = nCols;
+  }
+  for(Int_t col = nCol0; col < nColE; col++){
+    for(Int_t row = 0; row < calROCNoise.GetNrows(); row++){
+      calROCNoise.SetValue(col,row,calROCNoisePrevious->GetValue(col,row));
+    }
+  }
+}
+//______________________________________________________________________________________________
+Bool_t AliTRDPreprocessor::ExtractDriftVelocityDAQ()
+{
+  //
+  // Drift velocity DA running on monitoring servers at the DAQ
+  //
+
+  Bool_t error = kFALSE; 
+
+  // Objects for HLT and DAQ zusammen
+  AliTRDCalibraFit *calibra = AliTRDCalibraFit::Instance();
+  AliCDBMetaData metaData;
+  metaData.SetBeamPeriod(0);
+  metaData.SetResponsible("Raphaelle Bailhache");
+  metaData.SetComment("TRD calib test");
+  // Store the infos for the detector
+  AliCDBMetaData md1; 
+  md1.SetObjectClassName("AliTRDCalDet");
+  md1.SetResponsible("Raphaelle Bailhache");
+  md1.SetBeamPeriod(0);
+  md1.SetComment("TRD calib test");
+  // Store the infos for the pads
+  AliCDBMetaData md2; 
+  md2.SetObjectClassName("AliTRDCalPad");
+  md2.SetResponsible("Raphaelle Bailhache");
+  md2.SetBeamPeriod(0);
+  md2.SetComment("TRD calib test");
+
   // Take the file from the DAQ file exchange server
-  TList *filesourcesdaq = GetFileSources(kDAQ,"PADSTATUSVDRIFT");
-  if (!filesourcesdaq) {
-    Log(Form("No sources found for GAINDRIFTPRF for run %d !",fRun));
-    result |= kEListFileDAQ;
-  }
-  else{
-    if (filesourcesdaq->GetSize() != 1) {
-      Log(Form("More than one source found for PADSTATUSVDRIFT for run %d!",fRun));
-      filesourcesdaq->Print();
-      result |= kEListFileDAQ;
+  TList *listdaq = GetFileSources(kDAQ,"VDRIFT");
+  if (!listdaq) {
+    Log("No list found for vdrift (DAQ)");
+    return kTRUE;
+  }
+  
+  if(listdaq->GetSize() !=1){
+    Log(Form("Problem on the size of the list: %d (DAQ)",listdaq->GetSize()));
+    delete listdaq;
+    return kTRUE;
+  }
+  
+  TObjString* fileNameEntry = (TObjString*) listdaq->At(0);
+  if(fileNameEntry != NULL){
+    TString fileName = GetFile(kDAQ, "VDRIFT",
+                              fileNameEntry->GetString().Data());
+    if(fileName.Length() ==0){
+      Log("Error retrieving the file vdrift (DAQ)");
+      delete listdaq;
+      return kTRUE;
     }
-    else{
-      // Loop over the files taken from the DAQ
-      TIter iter(filesourcesdaq);
-      TObjString *sourcedaq;
-      while ((sourcedaq = dynamic_cast<TObjString *> (iter.Next()))) {
-    
-       TString filenamedaq = GetFile(kDAQ,"PADSTATUSVDRIFT",sourcedaq->GetName());
-       if (filenamedaq.Length() == 0) {
-         Log(Form("Error retrieving file from source %d failed!", sourcedaq->GetName()));
-         result |= kEOpenFileDAQ;
+    TFile *filedaq = TFile::Open(fileName);
+    TProfile2D *histodriftvelocity = (TProfile2D *) filedaq->Get("PH2d");
+    if (histodriftvelocity) {
+      
+      // store as reference data
+      if(!StoreReferenceData("DAQData","VdriftT0",(TObject *) histodriftvelocity,&metaData)){
+       Log("Error storing 2D Profile for vdrift from the DAQ");
+       error = kTRUE;
+      }
+      
+      // analyse
+      
+      Log("Take the PH reference data. Now we will try to fit\n");
+      calibra->SetMinEntries(2000); // If there is less than 2000
+      calibra->AnalysePH(histodriftvelocity);
+      
+      Int_t nbtg = 6*4*18*((Int_t) ((AliTRDCalibraMode *)calibra->GetCalibraMode())->GetDetChamb0(1))
+       + 6*  18*((Int_t) ((AliTRDCalibraMode *)calibra->GetCalibraMode())->GetDetChamb2(1));
+      Int_t nbfit        = calibra->GetNumberFit();
+      Int_t nbE        = calibra->GetNumberEnt();
+      
+      // if enough statistics store the results
+      if ((nbtg >                  0) && 
+         (nbfit        >= 0.5*nbE)) {
+       // create the cal objects
+       calibra->PutMeanValueOtherVectorFit(1,kTRUE);
+       calibra->PutMeanValueOtherVectorFit2(1,kTRUE);
+       TObjArray object      = calibra->GetVectorFit();
+       AliTRDCalDet *objdriftvelocitydet = calibra->CreateDetObjectVdrift(&object,kTRUE);
+       TObject *objdriftvelocitypad = calibra->CreatePadObjectVdrift();
+       object              = calibra->GetVectorFit2();
+       AliTRDCalDet *objtime0det         = calibra->CreateDetObjectT0(&object,kTRUE);
+       TObject *objtime0pad         = calibra->CreatePadObjectT0();
+       calibra->ResetVectorFit();
+       // store
+       if(!Store("Calib","ChamberVdrift"    ,(TObject *) objdriftvelocitydet,&md1,0,kTRUE)){
+         Log("Error storing the calibration object for the chamber vdrift (DAQ)");
+         error = kTRUE;
+       }
+       if(!Store("Calib","ChamberT0"        ,(TObject *) objtime0det        ,&md1,0,kTRUE)){
+         Log("Error storing the calibration object for the chamber t0 (DAQ)");
+         error = kTRUE;
        }
-       else {
+       if(!Store("Calib","LocalVdrift"      ,(TObject *) objdriftvelocitypad,&md2,0,kTRUE)){
+         Log("Error storing the calibration object for the local drift velocity (DAQ)");
+         error = kTRUE;
+       }
+       if(!Store("Calib","LocalT0"          ,(TObject *) objtime0pad        ,&md2,0,kTRUE)){
+         Log("Error storing the calibration object for the local time0 (DAQ)");
+         error = kTRUE;
+       }
+      }
+      else{
+       Log("Not enough statistics for the average pulse height (DAQ)");
+      }
+    } // histo here
+  }// if fileNameEntry
+  
+  delete listdaq; 
+  return error; 
+  
+}
 
-         // Init some things
-         TProfile2D   *histodriftvelocity  = 0x0; // Profile taken from DAQ for drift velocity and time0
-         AliTRDCalibPadStatus *calibpadstatus = 0x0; // AliTRDCalibPadStatus from DAQ for pad status
-         
-         // Take the histos
-         Bool_t something = kFALSE;
-         TFile *filedaq = TFile::Open(filenamedaq);
-         calibpadstatus = (AliTRDCalibPadStatus *) filedaq->Get("calibpadstatus");
-         if (!calibpadstatus) {
-           Log("No pedetral run!");
-         }
-         else something = kTRUE;
-         histodriftvelocity = (TProfile2D *) filedaq->Get("PH2d");
-         if (!histodriftvelocity) {
-           Log("No Vdrift TProfile2D!");
-         }
-         else{
-           histodriftvelocity->SetDirectory(0);
-         }
-         if(histodriftvelocity) something = kTRUE;
-         if(!something){
-           Log("Error DAQ, nothing in the file!");
-           result |= kETakeObjectDAQ;
-         }
-                 
-         // try to fit and store reference data
-         if(calibpadstatus){
-           calibpadstatus->AnalyseHisto();
-           if(!StoreReferenceData("DAQData","PadStatus",(TObject *) calibpadstatus,&metaData)){
-             Log("Error storing AliTRDCalibPadStatus object as reference data");
-             result |= kEStoreRefDAQ;
-           }
-           AliTRDCalPadStatus *calPadStatus = calibpadstatus->CreateCalPadStatus();
-           AliCDBMetaData *md3= new AliCDBMetaData(); 
-           md3->SetObjectClassName("AliTRDCalPadStatus");
-           md3->SetResponsible("Raphaelle Bailhache");
-           md3->SetBeamPeriod(1);
-                   md3->SetComment("TRD calib test");
-           if(!Store("Calib","PadStatus"    ,(TObject *)calPadStatus, md3, 0, kTRUE)){
-             Log("Error storing the calibration object for the chamber vdrift");
-             result |= kEStoreCalDAQ;    
-           }
-         }
-         if (histodriftvelocity) {
-           if(!StoreReferenceData("DAQData","VdriftT0",(TObject *) histodriftvelocity,&metaData)){
-             Log("Error storing 2D Profile for average pulse height as reference data");
-             result |= kEStoreRefDAQ;
-           }
-           if(!hltVdrifthisto){
-             Log("Take the PH reference data. Now we will try to fit\n");
-             calibra->SetMinEntries(100*20); // If there is less than 2000
-             calibra->AnalysePH(histodriftvelocity);
-             Int_t nbtg = 6*4*18*((Int_t) ((AliTRDCalibraMode *)calibra->GetCalibraMode())->GetDetChamb0(1))
-               + 6*  18*((Int_t) ((AliTRDCalibraMode *)calibra->GetCalibraMode())->GetDetChamb2(1));
-             Int_t nbfit        = calibra->GetNumberFit();
-             Int_t nbE        = calibra->GetNumberEnt();
-             if ((nbtg >                  0) && 
-                 (nbfit        >= 0.95*nbE)) {
-               TObjArray object      = calibra->GetVectorFit();
-               AliTRDCalDet *objdriftvelocitydet = calibra->CreateDetObjectVdrift(&object,kTRUE);
-               TObject *objdriftvelocitypad = calibra->CreatePadObjectVdrift();
-               object              = calibra->GetVectorFit2();
-               AliTRDCalDet *objtime0det         = calibra->CreateDetObjectT0(&object,kTRUE);
-               TObject *objtime0pad         = calibra->CreatePadObjectT0();
-               calibra->ResetVectorFit();
-               if(!Store("Calib","ChamberVdrift"    ,(TObject *) objdriftvelocitydet,md1,0,kTRUE)){
-                 Log("Error storing the calibration object for the chamber vdrift");
-                 result |= kEStoreCalDAQ;    
-               }
-               if(!Store("Calib","ChamberT0"        ,(TObject *) objtime0det        ,md1,0,kTRUE)){
-                 Log("Error storing the calibration object for the chamber t0");
-                 result |= kEStoreCalDAQ;    
-               }
-               if(!Store("Calib","LocalVdrift"      ,(TObject *) objdriftvelocitypad,md2,0,kTRUE)){
-                 Log("Error storing the calibration object for the local drift velocity");
-                 result |= kEStoreCalDAQ;
-               }
-               if(!Store("Calib","LocalT0"          ,(TObject *) objtime0pad        ,md2,0,kTRUE)){
-                 Log("Error storing the calibration object for the local time0");
-                 result |= kEStoreCalDAQ;
-               }
-             }
-             else{
-               Log("Not enough statistics for the average pulse height");
-               result |= kEFitObjectDAQ;
-             }
-           }
-         }
-         filedaq->Close();
-       }// if DAQ open file
-      } // while iter DAQ list
-    } // size DAQ list
-  } // tlist
-  delete filesourcesdaq;
-  // time
-  timer.Stop();
-  timer.Print();
+//______________________________________________________________________________________________
+Bool_t AliTRDPreprocessor::ExtractHLT()
+{
+  //
+  // Gain, vdrift and PRF calibration running on HLT
+  // return kTRUE if NULL pointer to the list
+  //
+
+  Bool_t error = kFALSE;
+
+  // Objects for HLT and DAQ zusammen
+  AliTRDCalibraFit *calibra = AliTRDCalibraFit::Instance();
+  AliCDBMetaData metaData;
+  metaData.SetBeamPeriod(0);
+  metaData.SetResponsible("Raphaelle Bailhache");
+  metaData.SetComment("TRD calib test");
+  // Store the infos for the detector
+  AliCDBMetaData md1; 
+  md1.SetObjectClassName("AliTRDCalDet");
+  md1.SetResponsible("Raphaelle Bailhache");
+  md1.SetBeamPeriod(0);
+  md1.SetComment("TRD calib test");
+  // Store the infos for the pads
+  AliCDBMetaData md2; 
+  md2.SetObjectClassName("AliTRDCalPad");
+  md2.SetResponsible("Raphaelle Bailhache");
+  md2.SetBeamPeriod(0);
+  md2.SetComment("TRD calib test");
   
-  return result;  
+  // Take the file from the HLT file exchange server
+  TList *listhlt = GetFileSources(kHLT,"GAINDRIFTPRF");
+  if (!listhlt) {
+    Log("No list found for the HLT");
+    return kTRUE;
+  }
 
+  if(listhlt->GetSize() != 1) {
+    Log(Form("Problem on the size of the list: %d (HLT)",listhlt->GetSize()));
+    delete listhlt;
+    return kTRUE;
+  }
+  
+  TObjString* fileNameEntry = (TObjString*) listhlt->At(0);
+  if(fileNameEntry != NULL){
+    TString fileName = GetFile(kHLT, "GAINDRIFTPRF",
+                              fileNameEntry->GetString().Data());
+    if(fileName.Length() ==0){
+      Log("Error retrieving the file (HLT)");
+      delete listhlt;
+      return kTRUE;
+    }
+    // Take the file
+    TFile *filehlt = TFile::Open(fileName);
+    
+    // gain
+    TH2I *histogain = (TH2I *) filehlt->Get("CH2d");
+    histogain->SetDirectory(0);
+    if (histogain) {
+      // store the reference data
+      if(!StoreReferenceData("HLTData","Gain",(TObject *) histogain,&metaData)){
+       Log("Error storing 2D histos for gain");
+       error = kTRUE;
+      }
+      // analyse
+      Log("Take the CH reference data. Now we will try to fit\n");
+      calibra->SetMinEntries(800); // If there is less than 1000 entries in the histo: no fit
+      calibra->AnalyseCH(histogain);
+      Int_t nbtg = 6*4*18*((Int_t) ((AliTRDCalibraMode *)calibra->GetCalibraMode())->GetDetChamb0(0))
+       + 6*  18*((Int_t) ((AliTRDCalibraMode *)calibra->GetCalibraMode())->GetDetChamb2(0));
+      Int_t nbfit       = calibra->GetNumberFit();
+      Int_t nbE         = calibra->GetNumberEnt();
+      // enough statistics
+      if ((nbtg >                  0) && 
+         (nbfit        >= 0.5*nbE)) {
+       // create the cal objects
+       calibra->PutMeanValueOtherVectorFit(1,kTRUE);
+       TObjArray object           = calibra->GetVectorFit();
+       AliTRDCalDet *objgaindet   = calibra->CreateDetObjectGain(&object);
+       TObject *objgainpad        = calibra->CreatePadObjectGain();
+       // store them
+       if(!Store("Calib","ChamberGainFactor",(TObject *) objgaindet         ,&md1,0,kTRUE)){
+         Log("Error storing the calibration object for the chamber gain");
+         error = kTRUE;
+       }
+       if(!Store("Calib","LocalGainFactor"  ,(TObject *) objgainpad         ,&md2,0,kTRUE)){
+         Log("Error storing the calibration object for the local gain factor");
+         error = kTRUE;
+       }
+      }
+      calibra->ResetVectorFit();
+    }// if histogain
+    
+    // vdrift
+    fVdriftHLT = kFALSE;
+    TProfile2D *histodriftvelocity = (TProfile2D *) filehlt->Get("PH2d");
+    histodriftvelocity->SetDirectory(0);
+    if (histodriftvelocity) {
+      // store the reference data
+      if(!StoreReferenceData("HLTData","VdriftT0",(TObject *) histodriftvelocity,&metaData)){
+       Log("Error storing 2D Profile for average pulse height (HLT)");
+       error = kTRUE;
+      }
+      // analyse
+      Log("Take the PH reference data. Now we will try to fit\n");
+      calibra->SetMinEntries(800*20); // If there is less than 20000
+      calibra->AnalysePH(histodriftvelocity);
+      Int_t nbtg = 6*4*18*((Int_t) ((AliTRDCalibraMode *)calibra->GetCalibraMode())->GetDetChamb0(1))
+       + 6*  18*((Int_t) ((AliTRDCalibraMode *)calibra->GetCalibraMode())->GetDetChamb2(1));
+      Int_t nbfit        = calibra->GetNumberFit();
+      Int_t nbE          = calibra->GetNumberEnt();
+      // enough statistics
+      if ((nbtg >                  0) && 
+         (nbfit        >= 0.5*nbE)) {
+       // create the cal objects
+       calibra->PutMeanValueOtherVectorFit(1,kTRUE);
+       calibra->PutMeanValueOtherVectorFit2(1,kTRUE);
+       TObjArray object  = calibra->GetVectorFit();
+       AliTRDCalDet *objdriftvelocitydet = calibra->CreateDetObjectVdrift(&object,kTRUE);
+       TObject *objdriftvelocitypad      = calibra->CreatePadObjectVdrift();
+       object              = calibra->GetVectorFit2();
+       AliTRDCalDet *objtime0det  = calibra->CreateDetObjectT0(&object,kTRUE);
+       TObject *objtime0pad       = calibra->CreatePadObjectT0();
+       // store them
+       if(!Store("Calib","ChamberVdrift"    ,(TObject *) objdriftvelocitydet,&md1,0,kTRUE)){
+         Log("Error storing the calibration object for the chamber vdrift (HLT)");
+         error = kTRUE;                
+       }
+       if(!Store("Calib","ChamberT0"        ,(TObject *) objtime0det        ,&md1,0,kTRUE)){
+         Log("Error storing the calibration object for the chamber t0 (HLT)");
+         error = kTRUE;
+       }
+       if(!Store("Calib","LocalVdrift"      ,(TObject *) objdriftvelocitypad,&md2,0,kTRUE)){
+         Log("Error storing the calibration object for the local drift velocity (HLT)");
+         error = kTRUE;
+       }
+       if(!Store("Calib","LocalT0"          ,(TObject *) objtime0pad        ,&md2,0,kTRUE)){
+         Log("Error storing the calibration object for the local time0 (HLT)");
+         error = kTRUE;
+       }
+       fVdriftHLT = kTRUE;
+      }
+      calibra->ResetVectorFit();
+    }// if TProfile2D
+    
+    // prf
+    TProfile2D *histoprf = (TProfile2D *) filehlt->Get("PRF2d");
+    histoprf->SetDirectory(0);
+    if (histoprf) {
+      // store reference data
+      if(!StoreReferenceData("HLTData","PRF",(TObject *) histoprf,&metaData)){
+       Log("Error storing the 2D Profile for Pad Response Function");
+       error = kTRUE;
+      }
+      // analyse
+      Log("Take the PRF reference data. Now we will try to fit\n");
+      calibra->SetMinEntries(600); // If there is less than 20000
+      calibra->AnalysePRFMarianFit(histoprf);
+      Int_t nbtg = 6*4*18*((Int_t) ((AliTRDCalibraMode *)calibra->GetCalibraMode())->GetDetChamb0(2))
+       + 6*  18*((Int_t) ((AliTRDCalibraMode *)calibra->GetCalibraMode())->GetDetChamb2(2));
+      Int_t nbfit        = calibra->GetNumberFit();
+      Int_t nbE          = calibra->GetNumberEnt();
+      // enough statistics
+      if ((nbtg >                  0) && 
+         (nbfit        >= 0.95*nbE)) {
+       // create cal pad objects 
+       TObjArray object            = calibra->GetVectorFit();
+       TObject *objPRFpad          = calibra->CreatePadObjectPRF(&object);
+       // store them
+       if(!Store("Calib","PRFWidth"         ,(TObject *) objPRFpad          ,&md2,0,kTRUE)){
+         Log("Error storing the calibration object for the Pad Response Function");
+         error = kTRUE;
+       }
+      }
+      calibra->ResetVectorFit();
+    }// if PRF
+  }// if fileNameEntry
+  
+  delete listhlt;
+  return error;
+  
 }
+
+//_____________________________________________________________________________
+UInt_t AliTRDPreprocessor::ProcessDCSConfigData()
+{
+  // 
+  // process the configuration of FEE, PTR and GTU
+  // reteive XML filei(s) from the DCS FXS
+  // parse it/them and store TObjArrays in the CDB
+  //
+  // return 0 for success, otherwise:
+  //  5 : Could not get the SOR and EOR file from the FXS
+  //  8 : Something wrong with the SOR file
+  //  9 : Something wrong with the EOR file
+  // 10 : SOR XML is not well-formed
+  // 11 : EOR XML is not well-formed
+  // 12 : ERROR in XML SAX validation: something wrong with the content
+  // 14 : ERROR while creating calibration objects in the handler
+  // 15 : ERROR while storing data in the CDB
+  //
+
+  Log("Processing the DCS config summary files.");
+
+  // get the XML files
+  Log("Requesting the 2 summaryfiles from the FXS..");
+  const char *xmlFileS = GetFile(kDCS,"CONFIGSUMMARYSOR","");
+  const char *xmlFileE = GetFile(kDCS,"CONFIGSUMMARYEOR","");
+  // Request EOR and SOR files from the fxs, if both are not found exit
+
+  if (xmlFileS == NULL && xmlFileE == NULL) {
+    Log(Form("ERROR: SOR and EOR Files %s and %s not found!",xmlFileS,xmlFileE));
+    return 5;
+  } 
+
+  Bool_t fileExistE = true, fileExistS = true;
+
+  if (xmlFileS == NULL) {
+    Log(Form("Warning: SOR File %s not found!",xmlFileS));
+    fileExistE = false;
+  } else if (xmlFileE == NULL) {
+    Log(Form("Warning: EOR File %s not found!",xmlFileE));
+    fileExistS = false;
+  } else {
+    Log(Form("Both Files (%s and %s) found.",xmlFileS,xmlFileE));
+  }
+
+  if (fileExistS) {
+    // test the files
+    std::ifstream fileTestS;
+    fileTestS.open(xmlFileS, std::ios_base::binary | std::ios_base::in);
+    if (!fileTestS.good() || fileTestS.eof() || !fileTestS.is_open()) {
+      Log(Form("ERROR: File %s not valid!",xmlFileS));
+      return 8;
+    }
+    fileTestS.seekg(0, std::ios_base::end);
+    if (static_cast<int>(fileTestS.tellg()) < 2) {
+      Log(Form("ERROR: File %s is empty!",xmlFileS));
+      return 8;
+    }
+  }
+
+  if (fileExistE) {
+    std::ifstream fileTestE;
+    fileTestE.open(xmlFileE, std::ios_base::binary | std::ios_base::in);
+    if (!fileTestE.good() || fileTestE.eof() || !fileTestE.is_open()) {
+      Log(Form("ERROR: File %s not valid!",xmlFileE));
+      return 9;
+    }
+    fileTestE.seekg(0, std::ios_base::end);
+    if (static_cast<int>(fileTestE.tellg()) < 2) {
+      Log(Form("ERROR: File %s is empty!",xmlFileE));
+      return 9;
+    }
+  }
+
+  Log("Tested files are valid.");   
+
+  // make a robust XML validation
+  TSAXParser testParser;
+  if (fileExistS && testParser.ParseFile(xmlFileS) < 0 ) {
+    Log("ERROR: XML content (SOR) is not well-formed.");
+    return 10;
+  } else if (fileExistE && testParser.ParseFile(xmlFileE) < 0 ) {
+    Log("ERROR: XML content (EOR) is not well-formed.");
+    return 11;
+  }
+  Log("XML contents are well-formed.");
+
+  // create parser and parse
+  TSAXParser saxParserS, saxParserE;
+  AliTRDSaxHandler saxHandlerS, saxHandlerE;
+
+  if (fileExistS) {
+    saxParserS.ConnectToHandler("AliTRDSaxHandler", &saxHandlerS);
+    saxParserS.ParseFile(xmlFileS);
+  }
+  if (fileExistE) {
+    saxParserE.ConnectToHandler("AliTRDSaxHandler", &saxHandlerE);
+    saxParserE.ParseFile(xmlFileE);
+  }
+
+  // report errors if present 
+  if (((fileExistS && saxParserS.GetParseCode() == 0) || !fileExistS) && (!fileExistE || (fileExistE && saxParserE.GetParseCode() == 0))) {
+    Log("XML file validation OK.");
+  } else {
+    if (fileExistS) {
+      Log(Form("ERROR in XML file validation. SOR Parse Code: %s", saxParserS.GetParseCode()));
+    }
+    if (fileExistE) {
+      Log(Form("ERROR in XML file validation. EOR Parse Code: %s", saxParserE.GetParseCode()));
+    }
+    return 12;
+  }
+  if (((fileExistS && saxHandlerS.GetHandlerStatus() == 0) || !fileExistS) && (!fileExistE || (saxHandlerE.GetHandlerStatus() == 0))) {
+    Log("SAX handler reports no errors.");
+  } else  {
+    if (fileExistS) {
+      Log(Form("ERROR while creating calibration objects. SOR Error code: %s", saxHandlerS.GetHandlerStatus()));
+    }
+    if (fileExistE) {
+      Log(Form("ERROR while creating calibration objects. EOR Error code: %s", saxHandlerE.GetHandlerStatus()));
+    }
+    return 14;
+  }
+
+  // put both objects in one TObjArray to store them
+  TObjArray* fCalObjArray = new TObjArray(2);
+  fCalObjArray->SetOwner();
+
+  // get the calibration object storing the data from the handler
+  if (fileExistS) {
+    AliTRDCalDCS* fCalDCSObjSOR = saxHandlerS.GetCalDCSObj();
+    fCalDCSObjSOR->EvaluateGlobalParameters();
+    fCalObjArray->AddAt(fCalDCSObjSOR,0);
+  }
+
+  if (fileExistE) {
+    AliTRDCalDCS* fCalDCSObjEOR = saxHandlerE.GetCalDCSObj();
+    fCalDCSObjEOR->EvaluateGlobalParameters();
+    fCalObjArray->AddAt(fCalDCSObjEOR,1);
+  }
+
+  // store the DCS calib data in the CDB
+  AliCDBMetaData metaData1;
+  metaData1.SetBeamPeriod(0);
+  metaData1.SetResponsible("Frederick Kramer");
+  metaData1.SetComment("DCS configuration data in two AliTRDCalDCS objects in one TObjArray (0:SOR, 1:EOR).");
+  if (!Store("Calib", "DCS", fCalObjArray, &metaData1, 0, kTRUE)) {
+    Log("problems while storing DCS config data object");
+    return 15;
+  } else {
+    Log("DCS config data object stored.");
+  }
+
+  //delete fCalObjArray;
+
+  Log("Processing of the DCS config summary file DONE.");  
+  return 0;
+}
+