Fixing memory leak (delete[] fImage)
[u/mrichter/AliRoot.git] / STEER / STEER / AliQACheckerBase.cxx
1 /**************************************************************************
2  * Copyright(c) 1998-1999, 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 /* $Id$ */
18
19 //
20 //  Base class for detectors quality assurance checkers 
21 //  Compares Data made by QADataMakers with reference data
22 //  Y. Schutz CERN August 2007
23 //
24
25 // --- ROOT system ---
26 #include <TCanvas.h>
27 #include <TClass.h>
28 #include <TH1F.h> 
29 #include <TH1I.h> 
30 #include <TIterator.h> 
31 #include <TKey.h> 
32 #include <TFile.h> 
33 #include <TList.h>
34 #include <TNtupleD.h>
35 #include <TParameter.h>
36 #include <TPaveText.h>
37
38 // --- Standard library ---
39
40 // --- AliRoot header files ---
41 #include "AliCDBEntry.h"
42 #include "AliLog.h"
43 #include "AliQAv1.h"
44 #include "AliQAChecker.h"
45 #include "AliQACheckerBase.h"
46 #include "AliQADataMaker.h"
47 #include "AliQAManager.h"
48 #include "AliDetectorRecoParam.h"
49
50 ClassImp(AliQACheckerBase)
51
52            
53 //____________________________________________________________________________ 
54 AliQACheckerBase::AliQACheckerBase(const char * name, const char * title) : 
55   TNamed(name, title), 
56   fDataSubDir(0x0),
57   fRefSubDir(0x0), 
58   fRefOCDBSubDir(new TObjArray*[AliRecoParam::kNSpecies]), 
59   fLowTestValue(new Float_t[AliQAv1::kNBIT]),
60   fUpTestValue(new Float_t[AliQAv1::kNBIT]),
61   fImage(new TCanvas*[AliRecoParam::kNSpecies]), 
62   fPrintImage(kTRUE), 
63   fExternParamList(new TList())
64 {
65   // ctor
66   fLowTestValue[AliQAv1::kINFO]    =  0.5   ; 
67   fUpTestValue[AliQAv1::kINFO]     = 1.0 ; 
68   fLowTestValue[AliQAv1::kWARNING] =  0.002 ; 
69   fUpTestValue[AliQAv1::kWARNING]  = 0.5 ; 
70   fLowTestValue[AliQAv1::kERROR]   =  0.0   ; 
71   fUpTestValue[AliQAv1::kERROR]    = 0.002 ; 
72   fLowTestValue[AliQAv1::kFATAL]   = -1.0   ; 
73   fUpTestValue[AliQAv1::kFATAL]    = 0.0 ; 
74   
75   AliDebug(AliQAv1::GetQADebugLevel(), "Default setting is:") ;
76   if ( AliDebugLevel()  == AliQAv1::GetQADebugLevel() ) {
77     const Char_t * text= Form(" INFO    -> %1.5f <  value <  %1.5f  WARNING -> %1.5f <  value <= %1.5f \n ERROR   -> %1.5f <  value <= %1.5f \n FATAL   -> %1.5f <= value <  %1.5f \n", 
78                               fLowTestValue[AliQAv1::kINFO], fUpTestValue[AliQAv1::kINFO], 
79                               fLowTestValue[AliQAv1::kWARNING], fUpTestValue[AliQAv1::kWARNING], 
80                               fLowTestValue[AliQAv1::kERROR], fUpTestValue[AliQAv1::kERROR], 
81                               fLowTestValue[AliQAv1::kFATAL], fUpTestValue[AliQAv1::kFATAL]) ; 
82     AliInfo(Form("%s", text)) ; 
83   }
84   
85   for (Int_t specie = 0 ; specie < AliRecoParam::kNSpecies ; specie++) {
86     fImage[specie] = NULL ; 
87     fRefOCDBSubDir[specie] = NULL ;
88   }
89 }
90
91 //____________________________________________________________________________ 
92 AliQACheckerBase::AliQACheckerBase(const AliQACheckerBase& qac) :
93   TNamed(qac.GetName(), qac.GetTitle()),
94   fDataSubDir(qac.fDataSubDir), 
95   fRefSubDir(qac.fRefSubDir), 
96   fRefOCDBSubDir(qac.fRefOCDBSubDir), 
97   fLowTestValue(new Float_t[AliQAv1::kNBIT]),
98   fUpTestValue(new Float_t[AliQAv1::kNBIT]), 
99   fImage(new TCanvas*[AliRecoParam::kNSpecies]),  
100   fPrintImage(kTRUE), 
101   fExternParamList(new TList())  
102 {
103   //copy ctor
104   for (Int_t index = 0 ; index < AliQAv1::kNBIT ; index++) {
105     fLowTestValue[index]  = qac.fLowTestValue[index] ; 
106     fUpTestValue[index] = qac.fUpTestValue[index] ; 
107   }
108     for (Int_t specie = 0 ; specie < AliRecoParam::kNSpecies ; specie++) {
109       fImage[specie] = qac.fImage[specie] ; 
110       fRefOCDBSubDir[specie] = qac.fRefOCDBSubDir[specie] ; 
111     }
112   if (qac.fExternParamList) {
113     TIter next(qac.fExternParamList) ; 
114     TParameter<double> * p ; 
115     while ( (p = (TParameter<double>*)next()) )
116       fExternParamList->Add(p) ;
117   }
118 }
119
120 //____________________________________________________________________________
121 AliQACheckerBase& AliQACheckerBase::operator = (const AliQACheckerBase& qac )
122 {
123   // Equal operator.
124   this->~AliQACheckerBase();
125   new(this) AliQACheckerBase(qac);
126   return *this;
127 }
128
129 //____________________________________________________________________________ 
130 AliQACheckerBase::~AliQACheckerBase()
131 {
132   delete [] fLowTestValue ; 
133   delete [] fUpTestValue ; 
134   DeleteImages();  
135   delete[] fImage ; 
136   delete[] fRefOCDBSubDir ; 
137   AliQAv1::GetQAResultFile()->Close() ; 
138   if (fExternParamList) {
139     fExternParamList->Clear() ; 
140     delete fExternParamList ; 
141   }
142 }
143
144 //____________________________________________________________________________
145 void AliQACheckerBase::Check(Double_t * test, AliQAv1::ALITASK_t index, const AliDetectorRecoParam * recoParam) 
146 {
147   // Performs a basic checking
148   // Compares all the histograms stored in the directory
149   // With reference histograms either in a file of in OCDB  
150
151   TObjArray ** list = new TObjArray *[AliRecoParam::kNSpecies] ; 
152   Int_t specie ;
153   for (specie = 0 ; specie < AliRecoParam::kNSpecies ; specie++) {
154     list[specie] =  new TObjArray(AliQAv1::GetMaxQAObj()) ; 
155     if ( !AliQAv1::Instance()->IsEventSpecieSet(specie) ) 
156       continue ; 
157     if (fDataSubDir) {
158       TList * keyList = fDataSubDir->GetListOfKeys() ; 
159       TIter next(keyList) ; 
160       TKey * key ;
161       while ( (key = static_cast<TKey *>(next())) ) {
162         TDirectory * specieDir = fDataSubDir->GetDirectory(key->GetName()) ; 
163         TList * keykeyList = specieDir->GetListOfKeys() ; 
164         TIter next2(keykeyList) ; 
165         TKey * keykey ;
166         while ( (keykey = static_cast<TKey *>(next2())) ) {
167           TObject * odata = specieDir->Get(keykey->GetName()) ; 
168           if ( odata->IsA()->InheritsFrom("TH1") ) {
169             TH1 * hdata = static_cast<TH1*>(odata) ;
170             list[specie]->Add(hdata) ; 
171           } else if (!odata->IsA()->InheritsFrom("TDirectory")) // skip the expert directory
172             AliError(Form("%s Is a Classname that cannot be processed", key->GetClassName())) ;
173         }
174       }
175     }
176   }
177  
178   Check(test, index, list, recoParam) ;
179   
180   delete[] list ; 
181     
182 }  
183
184 //____________________________________________________________________________
185 void AliQACheckerBase::Check(Double_t * test, AliQAv1::ALITASK_t task, TObjArray ** list, const AliDetectorRecoParam * /*recoParam*/) 
186 {
187   // Performs a basic checking
188   // Compares all the histograms in the list
189
190   Int_t count[AliRecoParam::kNSpecies]   = { 0 }; 
191
192   GetRefSubDir(GetName(), AliQAv1::GetTaskName(task), fRefSubDir, fRefOCDBSubDir) ;
193  // SetRefandData(refDir, refOCDBDir) ; 
194   
195   for (Int_t specie = 0 ; specie < AliRecoParam::kNSpecies ; specie++) {
196     test[specie] = 1.0 ; 
197     if ( !AliQAv1::Instance()->IsEventSpecieSet(specie)) continue ; 
198     if (list[specie]->GetEntries() == 0)  
199       test[specie] = 0. ; // nothing to check
200     else {
201       if (!fRefSubDir && !fRefOCDBSubDir)
202         test[specie] = -1 ; // no reference data
203       else {
204         TIter next(list[specie]) ; 
205         TH1 * hdata ;
206         count[specie] = 0 ; 
207         while ( (hdata = static_cast<TH1 *>(next())) ) {
208           if ( hdata->IsA()->InheritsFrom("TH1") ) {
209             if ( hdata->TestBit(AliQAv1::GetExpertBit()) )  // does not perform the test for expert data
210               continue ; 
211             // 
212             // First try to find the ref histo with exact name (with possible trigger clon ending)
213             TString hname = hdata->GetName();
214             TH1 * href = NULL ; 
215             if (fRefSubDir)                  href  = static_cast<TH1*>(fRefSubDir->Get(hname.Data())) ;
216             else if (fRefOCDBSubDir[specie]) href  = static_cast<TH1*>(fRefOCDBSubDir[specie]->FindObject(hname.Data()));
217             //
218             if (!href && hdata->TestBit(AliQAv1::GetClonedBit())) { // try to find the histo for the base name (w/o trigger ending
219               int ind = hname.Index(AliQADataMaker::GetTriggerPrefix());
220               if (ind>0) {
221                 hname.Resize(ind);
222                 if (fRefSubDir)                  href  = static_cast<TH1*>(fRefSubDir->Get(hname.Data())) ;
223                 else if (fRefOCDBSubDir[specie]) href  = static_cast<TH1*>(fRefOCDBSubDir[specie]->FindObject(hname.Data()));
224               }             
225             }
226             //
227             if (!href) 
228               test[specie] = -1 ; // no reference data ; 
229             else {
230               Double_t rv =  DiffK(hdata, href) ;
231               AliDebug(AliQAv1::GetQADebugLevel(), Form("%s ->Test = %f", hdata->GetName(), rv)) ; 
232               test[specie] += rv ; 
233               count[specie]++ ;
234             }
235           } else
236             AliError("Data type cannot be processed") ;
237           if (count[specie] != 0) 
238             test[specie] /= count[specie] ;
239         }
240       }
241     }
242   }
243 }  
244
245
246 //____________________________________________________________________________ 
247 void AliQACheckerBase::DeleteImages()
248 {
249   // clean images
250   for (Int_t esIndex = 0 ; esIndex < AliRecoParam::kNSpecies ; esIndex++) {
251     if ( fImage[esIndex] )          {delete fImage[esIndex];          fImage[esIndex] = 0;}
252     if ( fRefOCDBSubDir[esIndex] )  {delete fRefOCDBSubDir[esIndex];  fRefOCDBSubDir[esIndex] = 0;}
253   }
254 }
255
256 //____________________________________________________________________________ 
257 Double_t AliQACheckerBase::DiffC(const TH1 * href, const TH1 * hin) const
258 {
259   // compares two histograms using the Chi2 test
260   if ( hin->Integral() == 0 ) {
261     AliDebug(AliQAv1::GetQADebugLevel(), Form("Spectrum %s is empty", hin->GetName())) ; 
262     return 0. ;
263   }
264     
265   return hin->Chi2Test(href) ;  
266 }
267
268 //____________________________________________________________________________ 
269 Double_t AliQACheckerBase::DiffK(const TH1 * href, const TH1 * hin) const
270 {
271   // compares two histograms using the Kolmogorov test
272   if ( hin->Integral() == 0 || href->Integral() == 0) {
273     AliDebug(AliQAv1::GetQADebugLevel(), Form("Spectrum %s or its reference is empty", hin->GetName())) ; 
274     return 0. ;
275   }
276     
277   return hin->KolmogorovTest(href) ;  
278 }
279
280   //_____________________________________________________________________________
281 void AliQACheckerBase::GetRefSubDir(const char * det, const char * task, TDirectory *& dirFile, TObjArray **& dirOCDB)     
282
283     // Opens and returns the file with the reference data 
284   dirFile = NULL ; 
285   TString refStorage(AliQAv1::GetQARefStorage()) ;
286   if (!refStorage.Contains(AliQAv1::GetLabLocalOCDB()) && !refStorage.Contains(AliQAv1::GetLabAliEnOCDB())) {
287     AliError(Form("%s is not a valid location for reference data", refStorage.Data())) ; 
288     return ; 
289   } else {
290     AliQAManager* manQA = AliQAManager::QAManager(AliQAv1::GetTaskIndex(task)) ;
291       //    dirOCDB = new TObjArray*[AliRecoParam::kNSpecies] ; 
292     for (Int_t specie = 0 ; specie < AliRecoParam::kNSpecies ; specie++) {
293       dirOCDB[specie] = NULL ; 
294       if ( !AliQAv1::Instance()->IsEventSpecieSet(specie) ) 
295         continue ; 
296       AliQAv1::SetQARefDataDirName(specie) ;
297       if ( ! manQA->GetLock() ) { 
298         manQA->SetDefaultStorage(AliQAv1::GetQARefStorage()) ; 
299         manQA->SetSpecificStorage("*", AliQAv1::GetQARefStorage()) ;
300         manQA->SetRun(AliCDBManager::Instance()->GetRun()) ; 
301         manQA->SetLock() ; 
302       }
303       char * detOCDBDir = Form("%s/%s/%s", det, AliQAv1::GetRefOCDBDirName(), AliQAv1::GetRefDataDirName()) ; 
304       AliCDBEntry * entry = manQA->Get(detOCDBDir, manQA->GetRun()) ;
305       if (entry) {
306         TList * listDetQAD =static_cast<TList *>(entry->GetObject()) ;
307         if ( listDetQAD && strcmp(listDetQAD->ClassName(), "TList") != 0 ) {
308           AliError(Form("Expected a Tlist and found a %s for detector %s", listDetQAD->ClassName(), det)) ; 
309           listDetQAD = NULL ; 
310           continue ; 
311         } 
312         if ( listDetQAD ) {
313           TIter next(listDetQAD) ;
314           while ( (TObjArray*)next() ) 
315             dirOCDB[specie] = static_cast<TObjArray *>(listDetQAD->FindObject(Form("%s/%s", task, AliRecoParam::GetEventSpecieName(specie)))) ;             
316         }
317       }
318     }
319   }
320 }
321
322 //____________________________________________________________________________
323 void AliQACheckerBase::PrintExternParam() 
324 {
325     // Print the list of external parameter list
326   TIter next(fExternParamList) ; 
327   TParameter<double> *pp ; 
328   TString printit("\n") ;
329   while( (pp = (TParameter<double>*)next()) )
330     printit += Form("%s = %f\n", pp->GetName(), pp->GetVal());  
331   AliInfo(Form("%s", printit.Data())) ;
332 }
333   
334 //____________________________________________________________________________
335 void AliQACheckerBase::Run(AliQAv1::ALITASK_t index, AliDetectorRecoParam * recoParam) 
336
337   AliDebug(AliQAv1::GetQADebugLevel(), Form("Processing %s", AliQAv1::GetAliTaskName(index))) ; 
338   
339   Double_t * rv = new Double_t[AliRecoParam::kNSpecies] ;
340   Check(rv, index, recoParam) ;
341   SetQA(index, rv) ;    
342   
343   AliDebug(AliQAv1::GetQADebugLevel(), Form("Test result of %s", AliQAv1::GetAliTaskName(index))) ;
344   
345   delete [] rv ; 
346   Finish() ; 
347 }
348
349 //____________________________________________________________________________
350 void AliQACheckerBase::Run(AliQAv1::ALITASK_t index, TObjArray ** list, AliDetectorRecoParam * recoParam) 
351
352   // RS: perform check for all trigger classes in loop
353   Double_t * rv = new Double_t[AliRecoParam::kNSpecies] ;
354   //
355   TObjArray ** listTrig = new TObjArray *[AliRecoParam::kNSpecies];
356   //
357   for (int itc=-1;itc<AliQADataMaker::GetNTrigClasses();itc++) {
358     //
359     // RS: fetch the histograms for each specie and for given trigger
360     //AliInfo(Form("Processing %s for trigger: %s", AliQAv1::GetAliTaskName(index),AliQADataMaker::GetTrigClassName(itc))); 
361     
362     for (int specie=0;specie<AliRecoParam::kNSpecies;specie++) {
363       listTrig[specie] = 0;
364       if ( !AliQAv1::Instance()->IsEventSpecieSet(specie) || !list[specie]) continue;
365       listTrig[specie] = new TObjArray( list[specie]->GetSize() ); // destination for clones of this trigger
366       AliQADataMaker::GetDataOfTrigClass(list[specie],itc, listTrig[specie]);
367     }
368     AliDebug(AliQAv1::GetQADebugLevel(), Form("Processing %s for trigger: %s", AliQAv1::GetAliTaskName(index),AliQADataMaker::GetTrigClassName(itc))); 
369     Check(rv, index, listTrig, recoParam) ;
370     SetQA(index, rv) ;  
371     AliDebug(AliQAv1::GetQADebugLevel(), Form("Test result of %s for trigger: %s", AliQAv1::GetAliTaskName(index),AliQADataMaker::GetTrigClassName(itc)));
372     //
373     for (int specie=0;specie<AliRecoParam::kNSpecies;specie++) if (listTrig[specie]) delete listTrig[specie]; // clean temporary container
374   }
375   delete [] rv ; 
376   delete [] listTrig;
377   Finish() ; 
378 }
379
380 //____________________________________________________________________________
381 void AliQACheckerBase::Finish() const 
382 {
383   // wrap up and save QA in proper file
384   AliQAv1::GetQAResultFile() ; 
385   AliQAv1 * qa = AliQAv1::Instance() ; 
386   qa->Write(AliQAv1::GetQAName(), kWriteDelete) ;   
387 }
388
389 //____________________________________________________________________________ 
390 void AliQACheckerBase::MakeImage( TObjArray ** list, AliQAv1::TASKINDEX_t task, AliQAv1::MODE_t mode) 
391 {
392   // makes the QA image for sim and rec
393   TObjArray tmpArr;  // array to store flat version of original array (which may contain clones)
394   //
395   for (Int_t esIndex = 0; esIndex < AliRecoParam::kNSpecies; esIndex++) {
396     if (! AliQAv1::Instance(AliQAv1::GetDetIndex(GetName()))->IsEventSpecieSet(AliRecoParam::ConvertIndex(esIndex)) || list[esIndex]->GetEntries() == 0) continue;
397     Int_t nImages = 0;
398     TIter next(list[esIndex]);
399     TObject* hdata = NULL;
400     tmpArr.Clear();
401     while ( (hdata=(next())) ) { // count histos and transfere to flat array
402       if (hdata->InheritsFrom(TH1::Class()) && hdata->TestBit(AliQAv1::GetImageBit()) ) {  // histo, not cloned
403         nImages++; 
404         tmpArr.AddLast(hdata); 
405         continue;
406       }
407       if (!hdata->TestBit(AliQAv1::GetClonedBit())) continue;  // not an array of clones, unknown object
408       TIter nextCl((TObjArray*)hdata);   // array of histo clones
409       TObject* hcl = 0;
410       while ((hcl=nextCl())) if (hcl->InheritsFrom(TH1::Class()) && hcl->TestBit(AliQAv1::GetImageBit())) {tmpArr.AddLast(hcl); nImages++;}
411     }
412     //
413     if ( nImages == 0 ) {
414       AliDebug(AliQAv1::GetQADebugLevel(), Form("No histogram will be plotted for %s %s %s\n", GetName(), AliQAv1::GetTaskName(task).Data(), AliRecoParam::GetEventSpecieName(esIndex)));  
415       continue;
416     }
417     AliDebug(AliQAv1::GetQADebugLevel(), Form("%d histograms will be plotted for %s %s %s\n", nImages, GetName(), AliQAv1::GetTaskName(task).Data(),AliRecoParam::GetEventSpecieName(esIndex)));  
418     //        
419     const Char_t * title = Form("QA_%s_%s_%s", GetName(), AliQAv1::GetTaskName(task).Data(), AliRecoParam::GetEventSpecieName(esIndex)); 
420     //
421     if ( !fImage[esIndex] ) fImage[esIndex] = new TCanvas(title, title);
422     //
423     fImage[esIndex]->Clear(); 
424     fImage[esIndex]->SetTitle(title); 
425     fImage[esIndex]->cd(); 
426     TPaveText someText(0.015, 0.015, 0.98, 0.98);
427     someText.AddText(title);
428     someText.Draw(); 
429     fImage[esIndex]->Print(Form("%s%s%d.%s", AliQAv1::GetImageFileName(), AliQAv1::GetModeName(mode), AliQAChecker::Instance()->GetRunNumber(), AliQAv1::GetImageFileFormat())); 
430     fImage[esIndex]->Clear(); 
431     Int_t nx = TMath::Nint(TMath::Sqrt(nImages));
432     Int_t ny = nx; 
433     if (nx < TMath::Sqrt(nImages)) ny++; 
434     //
435     fImage[esIndex]->Divide(nx, ny); 
436     TIter nexthist(&tmpArr);
437     Int_t npad = 1; 
438     fImage[esIndex]->cd(npad); 
439     TH1* histo = 0;
440     while ( (histo=(TH1*)nexthist()) ) { // tmpArr is guaranteed to contain only plottable histos, no checks needed
441       TString opts = histo->GetDrawOption();
442       if (opts.Contains("logy",TString::kIgnoreCase)) gPad->SetLogy();
443       if (opts.Contains("logx",TString::kIgnoreCase)) gPad->SetLogx();
444       histo->DrawCopy(); 
445       fImage[esIndex]->cd(++npad); 
446     }
447     fImage[esIndex]->Print(Form("%s%s%d.%s", AliQAv1::GetImageFileName(), AliQAv1::GetModeName(mode), AliQAChecker::Instance()->GetRunNumber(), AliQAv1::GetImageFileFormat()), "ps"); 
448   }
449 }
450
451 //____________________________________________________________________________
452 void AliQACheckerBase::SetHiLo(Float_t * hiValue, Float_t * lowValue) 
453 {
454   AliDebug(AliQAv1::GetQADebugLevel(), "Previous setting was:") ;
455   if ( AliDebugLevel() == AliQAv1::GetQADebugLevel() ) {
456     const Char_t * text= Form(" INFO    -> %1.5f <  value <  %1.5f  WARNING -> %1.5f <  value <= %1.5f \n ERROR   -> %1.5f <  value <= %1.5f \n FATAL   -> %1.5f <= value <  %1.5f \n", 
457                               fLowTestValue[AliQAv1::kINFO], fUpTestValue[AliQAv1::kINFO], 
458                               fLowTestValue[AliQAv1::kWARNING], fUpTestValue[AliQAv1::kWARNING], 
459                               fLowTestValue[AliQAv1::kERROR], fUpTestValue[AliQAv1::kERROR], 
460                               fLowTestValue[AliQAv1::kFATAL], fUpTestValue[AliQAv1::kFATAL]) ; 
461     AliInfo(Form("%s", text)) ; 
462   }
463   
464   for (Int_t index = 0 ; index < AliQAv1::kNBIT ; index++) {
465     fLowTestValue[index]  = lowValue[index] ; 
466     fUpTestValue[index]   = hiValue[index] ; 
467   }
468   AliDebug(AliQAv1::GetQADebugLevel(), "Current setting is:") ;
469   if ( AliDebugLevel()  == AliQAv1::GetQADebugLevel() ) {
470     const Char_t * text= Form(" INFO    -> %1.5f <  value <  %1.5f  WARNING -> %1.5f <  value <= %1.5f \n ERROR   -> %1.5f <  value <= %1.5f \n FATAL   -> %1.5f <= value <  %1.5f \n", 
471                               fLowTestValue[AliQAv1::kINFO], fUpTestValue[AliQAv1::kINFO], 
472                               fLowTestValue[AliQAv1::kWARNING], fUpTestValue[AliQAv1::kWARNING], 
473                               fLowTestValue[AliQAv1::kERROR], fUpTestValue[AliQAv1::kERROR], 
474                               fLowTestValue[AliQAv1::kFATAL], fUpTestValue[AliQAv1::kFATAL]) ;     AliInfo(Form("%s", text)) ; 
475   }
476 }
477
478 //____________________________________________________________________________
479 void AliQACheckerBase::SetQA(AliQAv1::ALITASK_t index, Double_t * value) const
480 {
481         // sets the QA according the return value of the Check
482
483   AliQAv1 * qa = AliQAv1::Instance(index) ;
484
485   for (Int_t specie = 0 ; specie < AliRecoParam::kNSpecies ; specie++) {
486     if (! qa->IsEventSpecieSet(AliRecoParam::ConvertIndex(specie)))
487       continue ;
488     if (  value == NULL ) { // No checker is implemented, set all QA to Fatal
489       qa->Set(AliQAv1::kFATAL, specie) ; 
490     } else {
491       if ( value[specie] >= fLowTestValue[AliQAv1::kFATAL] && value[specie] < fUpTestValue[AliQAv1::kFATAL] ) 
492         qa->Set(AliQAv1::kFATAL, AliRecoParam::ConvertIndex(specie)) ; 
493       else if ( value[specie] > fLowTestValue[AliQAv1::kERROR] && value[specie] <= fUpTestValue[AliQAv1::kERROR]  )
494         qa->Set(AliQAv1::kERROR, AliRecoParam::ConvertIndex(specie)) ; 
495       else if ( value[specie] > fLowTestValue[AliQAv1::kWARNING] && value[specie] <= fUpTestValue[AliQAv1::kWARNING]  )
496         qa->Set(AliQAv1::kWARNING, AliRecoParam::ConvertIndex(specie)) ;
497       else if ( value[specie] > fLowTestValue[AliQAv1::kINFO] && value[specie] <= fUpTestValue[AliQAv1::kINFO] ) 
498         qa->Set(AliQAv1::kINFO, AliRecoParam::ConvertIndex(specie)) ;   
499     }
500   }
501 }