Possibility to work with MC data added
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 17 Jul 2013 07:50:00 +0000 (07:50 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 17 Jul 2013 07:50:00 +0000 (07:50 +0000)
Dmitri Peressounko <Dmitri.Peressounko@cern.ch>

ANALYSIS/TenderSupplies/AliPHOSTenderSupply.cxx
ANALYSIS/TenderSupplies/AliPHOSTenderSupply.h

index 7508b7f..6fe421d 100644 (file)
-/**************************************************************************\r
- * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *\r
- *                                                                        *\r
- * Author: The ALICE Off-line Project.                                    *\r
- * Contributors are mentioned in the code where appropriate.              *\r
- *                                                                        *\r
- * Permission to use, copy, modify and distribute this software and its   *\r
- * documentation strictly for non-commercial purposes is hereby granted   *\r
- * without fee, provided that the above copyright notice appears in all   *\r
- * copies and that both the copyright notice and this permission notice   *\r
- * appear in the supporting documentation. The authors make no claims     *\r
- * about the suitability of this software for any purpose. It is          *\r
- * provided "as is" without express or implied warranty.                  *\r
- **************************************************************************/\r
-\r
-\r
-///////////////////////////////////////////////////////////////////////////////\r
-//                                                                           //\r
-//  PHOS tender, recalibrate PHOS clusters                                   //\r
-//  and do track matching                                                    //\r
-//  Author : Dmitri Peressounko (RRC KI)                                     //\r
-//                                                                           //\r
-///////////////////////////////////////////////////////////////////////////////\r
-\r
-#include "TROOT.h"\r
-#include "TH2.h"\r
-#include "TFile.h"\r
-\r
-#include <AliLog.h>\r
-#include <AliVEvent.h>\r
-#include <AliAODEvent.h>\r
-#include <AliESDEvent.h>\r
-#include <AliAnalysisManager.h>\r
-#include <AliTender.h>\r
-#include <AliCDBManager.h>\r
-#include "AliMagF.h"\r
-#include "TGeoGlobalMagField.h"\r
-\r
-#include "AliVCluster.h"\r
-#include "AliPHOSTenderSupply.h"\r
-#include "AliPHOSCalibData.h"\r
-#include "AliPHOSGeometry.h"\r
-#include "AliPHOSEsdCluster.h"\r
-#include "AliPHOSAodCluster.h"\r
-#include "AliOADBContainer.h"\r
-#include "AliAODCaloCells.h"\r
-#include "AliESDCaloCells.h"\r
-\r
-ClassImp(AliPHOSTenderSupply)\r
-\r
-AliPHOSTenderSupply::AliPHOSTenderSupply() :\r
-  AliTenderSupply()\r
-  ,fOCDBpass("local://OCDB")\r
-  ,fNonlinearityVersion("Default")\r
-  ,fPHOSGeo(0x0)\r
-  ,fRecoPass(-1)  //to be defined\r
-  ,fUsePrivateBadMap(0)\r
-  ,fUsePrivateCalib(0)\r
-  ,fPHOSCalibData(0x0)\r
-  ,fTask(0x0)\r
-{\r
-       //\r
-       // default ctor\r
-       //\r
-   for(Int_t i=0;i<10;i++)fNonlinearityParams[i]=0. ;\r
-   for(Int_t mod=0;mod<5;mod++)fPHOSBadMap[mod]=0x0 ;\r
-}\r
-\r
-//_____________________________________________________\r
-AliPHOSTenderSupply::AliPHOSTenderSupply(const char *name, const AliTender *tender) :\r
-  AliTenderSupply(name,tender)\r
-  ,fOCDBpass("alien:///alice/cern.ch/user/p/prsnko/PHOSrecalibrations/")\r
-  ,fNonlinearityVersion("Default")\r
-  ,fPHOSGeo(0x0)\r
-  ,fRecoPass(-1)  //to be defined\r
-  ,fUsePrivateBadMap(0)\r
-  ,fUsePrivateCalib(0)\r
-  ,fPHOSCalibData(0x0)\r
-  ,fTask(0x0)\r
-{\r
-       //\r
-       // named ctor\r
-       //\r
-   for(Int_t i=0;i<10;i++)fNonlinearityParams[i]=0. ;\r
-   for(Int_t mod=0;mod<5;mod++)fPHOSBadMap[mod]=0x0 ;\r
-}\r
-\r
-//_____________________________________________________\r
-AliPHOSTenderSupply::~AliPHOSTenderSupply()\r
-{\r
-  //Destructor\r
-  if(fPHOSCalibData)\r
-    delete fPHOSCalibData;\r
-  fPHOSCalibData=0x0 ;\r
-}\r
-\r
-//_____________________________________________________\r
-void AliPHOSTenderSupply::InitTender()\r
-{\r
-  //\r
-  // Initialise PHOS tender\r
-  //\r
-  Int_t runNumber = 0;\r
-  if(fTender)\r
-    runNumber = fTender->GetRun();\r
-  else{\r
-    if(!fTask){\r
-      AliError("Neither Tender not Taks was not set") ;\r
-      return ;\r
-    }\r
-    AliAODEvent *aod = dynamic_cast<AliAODEvent*>(fTask->InputEvent()) ;\r
-    if(aod)\r
-      runNumber = aod->GetRunNumber() ;\r
-    else{\r
-      AliESDEvent *esd = dynamic_cast<AliESDEvent*>(fTask->InputEvent()) ;\r
-      if(esd)\r
-        runNumber = esd->GetRunNumber() ;\r
-      else{\r
-        AliError("Taks does not contain neither ESD nor AOD") ;\r
-        return ;\r
-      }\r
-    }   \r
-  }\r
-    \r
-  if(fRecoPass<0){ //not defined yet\r
-    // read if from filename.\r
-    AliAnalysisManager *mgr = AliAnalysisManager::GetAnalysisManager();\r
-    TTree * t = mgr->GetTree();\r
-    if(t){  \r
-      TFile * f = t->GetCurrentFile() ;\r
-      if(f){  \r
-        TString fname(f->GetName());\r
-        if(fname.Contains("pass1"))\r
-          fRecoPass=1;\r
-        else \r
-         if(fname.Contains("pass2"))\r
-          fRecoPass=2;\r
-          else \r
-           if(fname.Contains("pass3")) \r
-             fRecoPass=3;\r
-            else \r
-             if(fname.Contains("pass4")) \r
-               fRecoPass=4;\r
-      }\r
-    }\r
-    if(fRecoPass<0){\r
-      AliError("Can not find pass number from file name, set it manually");\r
-    }\r
-  }\r
-   \r
-  //Init geometry \r
-  if(!fPHOSGeo){\r
-    AliOADBContainer geomContainer("phosGeo");\r
-    geomContainer.InitFromFile("$ALICE_ROOT/OADB/PHOS/PHOSGeometry.root","PHOSRotationMatrixes");\r
-    TObjArray *matrixes = (TObjArray*)geomContainer.GetObject(runNumber,"PHOSRotationMatrixes");\r
-    fPHOSGeo =  AliPHOSGeometry::GetInstance("IHEP") ;\r
-    for(Int_t mod=0; mod<5; mod++) {\r
-      if(!matrixes->At(mod)) continue;\r
-      fPHOSGeo->SetMisalMatrix(((TGeoHMatrix*)matrixes->At(mod)),mod) ;\r
-      printf(".........Adding Matrix(%d), geo=%p\n",mod,fPHOSGeo) ;\r
-    }\r
-  }\r
-  \r
-  //Init Bad channels map\r
-  if(!fUsePrivateBadMap){\r
-   AliOADBContainer badmapContainer(Form("phosBadMap"));\r
-    badmapContainer.InitFromFile("$ALICE_ROOT/OADB/PHOS/PHOSBadMaps.root","phosBadMap");\r
-    TObjArray *maps = (TObjArray*)badmapContainer.GetObject(runNumber,"phosBadMap");\r
-    if(!maps){\r
-      AliError(Form("Can not read Bad map for run %d. \n You may choose to use your map with ForceUsingBadMap()\n",runNumber)) ;    \r
-    }\r
-    else{\r
-      AliInfo(Form("Setting PHOS bad map with name %s \n",maps->GetName())) ;\r
-      for(Int_t mod=0; mod<5;mod++){\r
-        if(fPHOSBadMap[mod]) \r
-          delete fPHOSBadMap[mod] ;\r
-        TH2I * h = (TH2I*)maps->At(mod) ;      \r
-       if(h)\r
-          fPHOSBadMap[mod]=new TH2I(*h) ;\r
-      }\r
-    }    \r
-  } \r
-\r
-  if(!fUsePrivateCalib){\r
-    //Init recalibration\r
-    //Check the pass1-pass2-pass3 reconstruction\r
-    AliOADBContainer calibContainer("phosRecalibration");\r
-    calibContainer.InitFromFile("$ALICE_ROOT/OADB/PHOS/PHOSCalibrations.root","phosRecalibration");\r
-    TObjArray *recalib = (TObjArray*)calibContainer.GetObject(runNumber,"PHOSRecalibration");\r
-    if(!recalib){\r
-      AliFatal(Form("Can not read calibrations for run %d\n. You may choose your specific calibration with ForceUsingCalibration()\n",runNumber)) ;\r
-    }\r
-    else{\r
-      fPHOSCalibData = (AliPHOSCalibData*)recalib->At(fRecoPass-1) ;\r
-      if(!fPHOSCalibData) {\r
-        AliFatal(Form("Can not find calibration for run %d, pass %d \n",runNumber, fRecoPass)) ;\r
-      }\r
-    }\r
-  }\r
-  \r
-}\r
-\r
-//_____________________________________________________\r
-void AliPHOSTenderSupply::ProcessEvent()\r
-{\r
-  //Choose PHOS clusters and recalibrate them\r
-  //that it recalculate energy, position and distance \r
-  //to closest track extrapolation     \r
-\r
-  AliESDEvent *esd = 0x0 ; \r
-  AliAODEvent *aod = 0x0 ;\r
-  if(fTender){\r
-    esd = fTender->GetEvent();\r
-    if(!esd)\r
-      return ;\r
-  }\r
-  else{\r
-    if(!fTask){\r
-      return ;\r
-    }\r
-    esd = dynamic_cast<AliESDEvent*>(fTask->InputEvent()) ;\r
-    aod = dynamic_cast<AliAODEvent*>(fTask->InputEvent()) ;\r
-    if(!esd && !aod)\r
-      return ;\r
-  }\r
-    \r
-  if(!fPHOSCalibData \r
-    || (fTender && fTender->RunChanged())){ //In case of Task init called automatically\r
-    InitTender();\r
-    \r
-  }\r
-\r
-  TVector3 vertex ;\r
-  if(esd){\r
-    const AliESDVertex *esdVertex = esd->GetPrimaryVertex();\r
-    vertex.SetXYZ(esdVertex->GetX(),esdVertex->GetY(),esdVertex->GetZ());\r
-  }\r
-  else{//AOD\r
-    const AliAODVertex *aodVertex = aod->GetPrimaryVertex();\r
-    vertex.SetXYZ(aodVertex->GetX(),aodVertex->GetY(),aodVertex->GetZ());\r
-  }\r
-  if(vertex.Mag()>99.) //vertex not defined?\r
-    vertex.SetXYZ(0.,0.,0.) ;\r
-\r
-\r
-  //For re-calibration\r
-  const Double_t logWeight=4.5 ;  \r
-\r
-  if(esd){ //To avoid multiple if in loops we made \r
-           //almost identical pecies of code. Please apply changes to both!!!\r
-    Int_t multClust=esd->GetNumberOfCaloClusters();\r
-    AliESDCaloCells * cells = esd->GetPHOSCells() ;\r
\r
-    for (Int_t i=0; i<multClust; i++) {\r
-      AliESDCaloCluster *clu = esd->GetCaloCluster(i);    \r
-      if ( !clu->IsPHOS()) continue;\r
-      \r
-      Float_t  position[3];\r
-      clu->GetPosition(position);\r
-      TVector3 global(position) ;\r
-      Int_t relId[4] ;\r
-      fPHOSGeo->GlobalPos2RelId(global,relId) ;\r
-      Int_t mod  = relId[0] ;\r
-      Int_t cellX = relId[2];\r
-      Int_t cellZ = relId[3] ;\r
-      if ( !IsGoodChannel(mod,cellX,cellZ) ) {\r
-        clu->SetE(0.) ;\r
-        continue ;\r
-      }  \r
-    \r
-      //Apply re-Calibreation\r
-      AliPHOSEsdCluster cluPHOS(*clu);\r
-      cluPHOS.Recalibrate(fPHOSCalibData,cells); // modify the cell energies\r
-      cluPHOS.EvalAll(logWeight,vertex);         // recalculate the cluster parameters\r
-      cluPHOS.SetE(CorrectNonlinearity(cluPHOS.E()));// Users's nonlinearity\r
-\r
-      //Correct Misalignment\r
-      CorrectPHOSMisalignment(global,mod) ;\r
-      position[0]=global.X() ;\r
-      position[1]=global.Y() ;\r
-      position[2]=global.Z() ;\r
-      cluPHOS.SetPosition(position) ; \r
-\r
-      //Eval CoreDispersion\r
-      Double_t m02=0.,m20=0.;\r
-      EvalLambdas(&cluPHOS,m02, m20);   \r
-      clu->SetDispersion(TestLambda(clu->E(),m20,m02)) ;\r
-      \r
-      Float_t  xyz[3];\r
-      cluPHOS.GetPosition(xyz);\r
-      clu->SetPosition(xyz);                       //rec.point position in MARS\r
-      clu->SetE(cluPHOS.E());                           //total or core particle energy\r
-      //    clu->SetDispersion(cluPHOS.GetDispersion());  //cluster dispersion\r
-      //    ec->SetPID(rp->GetPID()) ;            //array of particle identification\r
-      clu->SetM02(cluPHOS.GetM02()) ;               //second moment M2x\r
-      clu->SetM20(cluPHOS.GetM20()) ;               //second moment M2z\r
-      Double_t dx=0.,dz=0. ;\r
-      fPHOSGeo->GlobalPos2RelId(global,relId) ;\r
-      TVector3 locPos;\r
-      fPHOSGeo->Global2Local(locPos,global,mod) ;\r
-\r
-      Double_t pttrack=0.;\r
-      Int_t charge=0;\r
-      FindTrackMatching(mod,&locPos,dx,dz,pttrack,charge) ;\r
-      Double_t r=TestCPV(dx, dz, pttrack,charge) ;\r
-      clu->SetTrackDistance(dx,dz); \r
-     \r
-      clu->SetEmcCpvDistance(r);    \r
-      clu->SetChi2(TestLambda(clu->E(),clu->GetM20(),clu->GetM02()));                     //not yet implemented\r
-      clu->SetTOF(EvalTOF(&cluPHOS,cells));       \r
+/**************************************************************************
+ * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
+ *                                                                        *
+ * Author: The ALICE Off-line Project.                                    *
+ * Contributors are mentioned in the code where appropriate.              *
+ *                                                                        *
+ * Permission to use, copy, modify and distribute this software and its   *
+ * documentation strictly for non-commercial purposes is hereby granted   *
+ * without fee, provided that the above copyright notice appears in all   *
+ * copies and that both the copyright notice and this permission notice   *
+ * appear in the supporting documentation. The authors make no claims     *
+ * about the suitability of this software for any purpose. It is          *
+ * provided "as is" without express or implied warranty.                  *
+ **************************************************************************/
+
+
+///////////////////////////////////////////////////////////////////////////////
+//                                                                           //
+//  PHOS tender, recalibrate PHOS clusters                                   //
+//  and do track matching                                                    //
+//  Author : Dmitri Peressounko (RRC KI)                                     //
+//                                                                           //
+///////////////////////////////////////////////////////////////////////////////
+
+#include "TROOT.h"
+#include "TH2.h"
+#include "TFile.h"
+
+#include <AliLog.h>
+#include <AliVEvent.h>
+#include <AliAODEvent.h>
+#include <AliESDEvent.h>
+#include <AliAnalysisManager.h>
+#include <AliTender.h>
+#include <AliCDBManager.h>
+#include "AliMagF.h"
+#include "TGeoGlobalMagField.h"
+
+#include "AliVCluster.h"
+#include "AliPHOSTenderSupply.h"
+#include "AliPHOSCalibData.h"
+#include "AliPHOSGeometry.h"
+#include "AliPHOSEsdCluster.h"
+#include "AliPHOSAodCluster.h"
+#include "AliOADBContainer.h"
+#include "AliAODCaloCells.h"
+#include "AliESDCaloCells.h"
+
+ClassImp(AliPHOSTenderSupply)
+
+AliPHOSTenderSupply::AliPHOSTenderSupply() :
+  AliTenderSupply()
+  ,fOCDBpass("local://OCDB")
+  ,fNonlinearityVersion("Default")
+  ,fPHOSGeo(0x0)
+  ,fRecoPass(-1)  //to be defined
+  ,fUsePrivateBadMap(0)
+  ,fUsePrivateCalib(0)
+  ,fPHOSCalibData(0x0)
+  ,fTask(0x0)
+  ,fIsMC(kFALSE)
+  ,fMCProduction("")  
+{
+       //
+       // default ctor
+       //
+   for(Int_t i=0;i<10;i++)fNonlinearityParams[i]=0. ;
+   for(Int_t mod=0;mod<5;mod++)fPHOSBadMap[mod]=0x0 ;
+}
+
+//_____________________________________________________
+AliPHOSTenderSupply::AliPHOSTenderSupply(const char *name, const AliTender *tender) :
+  AliTenderSupply(name,tender)
+  ,fOCDBpass("alien:///alice/cern.ch/user/p/prsnko/PHOSrecalibrations/")
+  ,fNonlinearityVersion("Default")
+  ,fPHOSGeo(0x0)
+  ,fRecoPass(-1)  //to be defined
+  ,fUsePrivateBadMap(0)
+  ,fUsePrivateCalib(0)
+  ,fPHOSCalibData(0x0)
+  ,fTask(0x0)
+  ,fIsMC(kFALSE)
+  ,fMCProduction("")  
+{
+       //
+       // named ctor
+       //
+   for(Int_t i=0;i<10;i++)fNonlinearityParams[i]=0. ;
+   for(Int_t mod=0;mod<5;mod++)fPHOSBadMap[mod]=0x0 ;
+}
+
+//_____________________________________________________
+AliPHOSTenderSupply::~AliPHOSTenderSupply()
+{
+  //Destructor
+  if(fPHOSCalibData)
+    delete fPHOSCalibData;
+  fPHOSCalibData=0x0 ;
+}
+
+//_____________________________________________________
+void AliPHOSTenderSupply::InitTender()
+{
+  //
+  // Initialise PHOS tender
+  //
+  Int_t runNumber = 0;
+  if(fTender)
+    runNumber = fTender->GetRun();
+  else{
+    if(!fTask){
+      AliError("Neither Tender not Taks was not set") ;
+      return ;
+    }
+    AliAODEvent *aod = dynamic_cast<AliAODEvent*>(fTask->InputEvent()) ;
+    if(aod)
+      runNumber = aod->GetRunNumber() ;
+    else{
+      AliESDEvent *esd = dynamic_cast<AliESDEvent*>(fTask->InputEvent()) ;
+      if(esd)
+        runNumber = esd->GetRunNumber() ;
+      else{
+        AliError("Taks does not contain neither ESD nor AOD") ;
+        return ;
+      }
+    }   
+  }
+
+  //In MC always reco pass 1
+  if(fIsMC)
+    fRecoPass=1 ;
+  
+  if(fRecoPass<0){ //not defined yet
+    // read if from filename.
+    AliAnalysisManager *mgr = AliAnalysisManager::GetAnalysisManager();
+    TTree * t = mgr->GetTree();
+    if(t){  
+      TFile * f = t->GetCurrentFile() ;
+      if(f){  
+        TString fname(f->GetName());
+        if(fname.Contains("pass1"))
+          fRecoPass=1;
+        else 
+         if(fname.Contains("pass2"))
+          fRecoPass=2;
+          else 
+           if(fname.Contains("pass3")) 
+             fRecoPass=3;
+            else 
+             if(fname.Contains("pass4")) 
+               fRecoPass=4;
+      }
+    }
+    if(fRecoPass<0){
+      AliError("Can not find pass number from file name, set it manually");
+    }
+  }
+   
+  //Init geometry 
+  if(!fPHOSGeo){
+    AliOADBContainer geomContainer("phosGeo");
+    geomContainer.InitFromFile("$ALICE_ROOT/OADB/PHOS/PHOSGeometry.root","PHOSRotationMatrixes");
+    TObjArray *matrixes = (TObjArray*)geomContainer.GetObject(runNumber,"PHOSRotationMatrixes");
+    fPHOSGeo =  AliPHOSGeometry::GetInstance("IHEP") ;
+    for(Int_t mod=0; mod<5; mod++) {
+      if(!matrixes->At(mod)) continue;
+      fPHOSGeo->SetMisalMatrix(((TGeoHMatrix*)matrixes->At(mod)),mod) ;
+      printf(".........Adding Matrix(%d), geo=%p\n",mod,fPHOSGeo) ;
+    }
+  }
+  
+  //Init Bad channels map
+  if(!fUsePrivateBadMap){
+   AliOADBContainer badmapContainer(Form("phosBadMap"));
+    badmapContainer.InitFromFile("$ALICE_ROOT/OADB/PHOS/PHOSBadMaps.root","phosBadMap");
+    TObjArray *maps = (TObjArray*)badmapContainer.GetObject(runNumber,"phosBadMap");
+    if(!maps){
+      AliError(Form("Can not read Bad map for run %d. \n You may choose to use your map with ForceUsingBadMap()\n",runNumber)) ;    
+    }
+    else{
+      AliInfo(Form("Setting PHOS bad map with name %s \n",maps->GetName())) ;
+      for(Int_t mod=0; mod<5;mod++){
+        if(fPHOSBadMap[mod]) 
+          delete fPHOSBadMap[mod] ;
+        TH2I * h = (TH2I*)maps->At(mod) ;      
+       if(h)
+          fPHOSBadMap[mod]=new TH2I(*h) ;
+      }
+    }    
+  } 
+
+  if(!fUsePrivateCalib){
+    if(fIsMC){ //re/de-calibration for MC productions
+      //Init recalibration
+      AliOADBContainer calibContainer("phosRecalibration");
+      calibContainer.InitFromFile("$ALICE_ROOT/OADB/PHOS/PHOSMCCalibrations.root","phosRecalibration");
+      
+      TObjArray *recalib = (TObjArray*)calibContainer.GetObject(runNumber,"PHOSRecalibration");
+      if(!recalib){
+        AliFatal(Form("Can not read calibrations for run %d\n. You may choose your specific calibration with ForceUsingCalibration()\n",runNumber)) ;
+      }
+      else{
+       //Now try to find object with proper name
+       for(Int_t i=0; i<recalib->GetEntriesFast(); i++){
+         AliPHOSCalibData * tmp = (AliPHOSCalibData*)recalib->At(i) ;
+         if(fMCProduction.CompareTo(tmp->GetName())==0){
+            fPHOSCalibData = tmp ;
+           break ;
+         }
+       }
+        if(!fPHOSCalibData) {
+          AliFatal(Form("Can not find calibration for run %d, and name %s \n",runNumber, fMCProduction.Data())) ;
+        }
+      }
+      
+    }
+    else{ //real data
+      //Init recalibration
+      //Check the pass1-pass2-pass3 reconstruction
+      AliOADBContainer calibContainer("phosRecalibration");
+      calibContainer.InitFromFile("$ALICE_ROOT/OADB/PHOS/PHOSCalibrations.root","phosRecalibration");
+      TObjArray *recalib = (TObjArray*)calibContainer.GetObject(runNumber,"PHOSRecalibration");
+      if(!recalib){
+        AliFatal(Form("Can not read calibrations for run %d\n. You may choose your specific calibration with ForceUsingCalibration()\n",runNumber)) ;
+      }
+      else{
+        fPHOSCalibData = (AliPHOSCalibData*)recalib->At(fRecoPass-1) ;
+        if(!fPHOSCalibData) {
+          AliFatal(Form("Can not find calibration for run %d, pass %d \n",runNumber, fRecoPass)) ;
+        }
+      }
+    }
+  }
+  
+}
+
+//_____________________________________________________
+void AliPHOSTenderSupply::ProcessEvent()
+{
+  //Choose PHOS clusters and recalibrate them
+  //that it recalculate energy, position and distance 
+  //to closest track extrapolation     
+
+  AliESDEvent *esd = 0x0 ; 
+  AliAODEvent *aod = 0x0 ;
+  if(fTender){
+    esd = fTender->GetEvent();
+    if(!esd)
+      return ;
+  }
+  else{
+    if(!fTask){
+      return ;
+    }
+    esd = dynamic_cast<AliESDEvent*>(fTask->InputEvent()) ;
+    aod = dynamic_cast<AliAODEvent*>(fTask->InputEvent()) ;
+    if(!esd && !aod)
+      return ;
+  }
+    
+  if(!fPHOSCalibData 
+    || (fTender && fTender->RunChanged())){ //In case of Task init called automatically
+    InitTender();
+    
+  }
+
+  TVector3 vertex ;
+  if(esd){
+    const AliESDVertex *esdVertex = esd->GetPrimaryVertex();
+    vertex.SetXYZ(esdVertex->GetX(),esdVertex->GetY(),esdVertex->GetZ());
+  }
+  else{//AOD
+    const AliAODVertex *aodVertex = aod->GetPrimaryVertex();
+    vertex.SetXYZ(aodVertex->GetX(),aodVertex->GetY(),aodVertex->GetZ());
+  }
+  if(vertex.Mag()>99.) //vertex not defined?
+    vertex.SetXYZ(0.,0.,0.) ;
+
+
+  //For re-calibration
+  const Double_t logWeight=4.5 ;  
+
+  if(esd){ //To avoid multiple if in loops we made 
+           //almost identical pecies of code. Please apply changes to both!!!
+    Int_t multClust=esd->GetNumberOfCaloClusters();
+    AliESDCaloCells * cells = esd->GetPHOSCells() ;
+    for (Int_t i=0; i<multClust; i++) {
+      AliESDCaloCluster *clu = esd->GetCaloCluster(i);    
+      if ( !clu->IsPHOS()) continue;
+      
+      Float_t  position[3];
+      clu->GetPosition(position);
+      TVector3 global(position) ;
+      Int_t relId[4] ;
+      fPHOSGeo->GlobalPos2RelId(global,relId) ;
+      Int_t mod  = relId[0] ;
+      Int_t cellX = relId[2];
+      Int_t cellZ = relId[3] ;
+      if ( !IsGoodChannel(mod,cellX,cellZ) ) {
+        clu->SetE(0.) ;
+        continue ;
+      }  
+    
+      //Apply re-Calibreation
+      AliPHOSEsdCluster cluPHOS(*clu);
+      cluPHOS.Recalibrate(fPHOSCalibData,cells); // modify the cell energies
+      cluPHOS.EvalAll(logWeight,vertex);         // recalculate the cluster parameters
+      cluPHOS.SetE(CorrectNonlinearity(cluPHOS.E()));// Users's nonlinearity
+
+      //Correct Misalignment
+      CorrectPHOSMisalignment(global,mod) ;
+      position[0]=global.X() ;
+      position[1]=global.Y() ;
+      position[2]=global.Z() ;
+      cluPHOS.SetPosition(position) ; 
+
+      //Eval CoreDispersion
+      Double_t m02=0.,m20=0.;
+      EvalLambdas(&cluPHOS,m02, m20);   
+      clu->SetDispersion(TestLambda(clu->E(),m20,m02)) ;
+      
+      Float_t  xyz[3];
+      cluPHOS.GetPosition(xyz);
+      clu->SetPosition(xyz);                       //rec.point position in MARS
+      clu->SetE(cluPHOS.E());                           //total or core particle energy
+      //    clu->SetDispersion(cluPHOS.GetDispersion());  //cluster dispersion
+      //    ec->SetPID(rp->GetPID()) ;            //array of particle identification
+      clu->SetM02(cluPHOS.GetM02()) ;               //second moment M2x
+      clu->SetM20(cluPHOS.GetM20()) ;               //second moment M2z
+      Double_t dx=0.,dz=0. ;
+      fPHOSGeo->GlobalPos2RelId(global,relId) ;
+      TVector3 locPos;
+      fPHOSGeo->Global2Local(locPos,global,mod) ;
+
+      Double_t pttrack=0.;
+      Int_t charge=0;
+      FindTrackMatching(mod,&locPos,dx,dz,pttrack,charge) ;
+      Double_t r=TestCPV(dx, dz, pttrack,charge) ;
+      clu->SetTrackDistance(dx,dz); 
+     
+      clu->SetEmcCpvDistance(r);    
+      clu->SetChi2(TestLambda(clu->E(),clu->GetM20(),clu->GetM02()));                     //not yet implemented
+      clu->SetTOF(EvalTOF(&cluPHOS,cells));       
       Double_t minDist=clu->GetDistanceToBadChannel() ;//Already calculated
       DistanceToBadChannel(mod,&locPos,minDist);
       clu->SetDistanceToBadChannel(minDist) ;
-\r
-    }\r
-  }\r
-  else{//AOD\r
-    Int_t multClust=aod->GetNumberOfCaloClusters();\r
-    AliAODCaloCells * cells = aod->GetPHOSCells() ;\r
-  \r
-    for (Int_t i=0; i<multClust; i++) {\r
-      AliAODCaloCluster *clu = aod->GetCaloCluster(i);    \r
-      if ( !clu->IsPHOS()) continue;\r
-      \r
-      Float_t  position[3];\r
-      clu->GetPosition(position);\r
-      TVector3 global(position) ;\r
-      Int_t relId[4] ;\r
-      fPHOSGeo->GlobalPos2RelId(global,relId) ;\r
-      Int_t mod  = relId[0] ;\r
-      Int_t cellX = relId[2];\r
-      Int_t cellZ = relId[3] ;\r
-      if ( !IsGoodChannel(mod,cellX,cellZ) ) {\r
-        clu->SetE(0.) ;\r
-        continue ;\r
-      }  \r
-      TVector3 locPosOld; //Use it to re-calculate distance to track\r
-      fPHOSGeo->Global2Local(locPosOld,global,mod) ;\r
-    \r
-      //Apply re-Calibreation\r
-      AliPHOSAodCluster cluPHOS(*clu);\r
-      cluPHOS.Recalibrate(fPHOSCalibData,cells); // modify the cell energies\r
-      cluPHOS.EvalAll(logWeight,vertex);         // recalculate the cluster parameters\r
-      cluPHOS.SetE(CorrectNonlinearity(cluPHOS.E()));// Users's nonlinearity\r
-\r
-      //Correct Misalignment\r
-      cluPHOS.GetPosition(position);\r
-      global.SetXYZ(position[0],position[1],position[2]);\r
-      CorrectPHOSMisalignment(global,mod) ;\r
-      position[0]=global.X() ;\r
-      position[1]=global.Y() ;\r
-      position[2]=global.Z() ;\r
-\r
-      clu->SetPosition(position);                       //rec.point position in MARS\r
-      clu->SetE(cluPHOS.E());                           //total or core particle energy\r
-      clu->SetDispersion(cluPHOS.GetDispersion());  //cluster dispersion\r
-      //    ec->SetPID(rp->GetPID()) ;            //array of particle identification\r
-      clu->SetM02(cluPHOS.GetM02()) ;               //second moment M2x\r
-      clu->SetM20(cluPHOS.GetM20()) ;               //second moment M2z\r
-      //correct distance to track\r
-      Double_t dx=clu->GetTrackDx() ;\r
-      Double_t dz=clu->GetTrackDz() ;\r
-      TVector3 locPos;\r
-      fPHOSGeo->Global2Local(locPos,global,mod) ;\r
-      if(dx!=-999.){ //there is matched track\r
-        dx+=locPos.X()-locPosOld.X() ;\r
-        dz+=locPos.Z()-locPosOld.Z() ;      \r
-        clu->SetTrackDistance(dx,dz);\r
-      }\r
-      Double_t r = 999. ; //Big distance\r
-      int nTracksMatched = clu->GetNTracksMatched();\r
-      if(nTracksMatched > 0) {\r
-        AliVTrack* track = dynamic_cast<AliVTrack*> (clu->GetTrackMatched(0));\r
-        if ( track ) {\r
-          Double_t pttrack = track->Pt();\r
-          Short_t charge = track->Charge();\r
-          r=TestCPV(dx, dz, pttrack,charge) ;\r
-       }\r
-      }\r
-      clu->SetEmcCpvDistance(r); //Distance in sigmas\r
-     \r
-      clu->SetChi2(TestLambda(clu->E(),clu->GetM20(),clu->GetM02()));                     //not yet implemented\r
-      clu->SetTOF(EvalTOF(&cluPHOS,cells));       \r
+
+    }
+  }
+  else{//AOD
+    Int_t multClust=aod->GetNumberOfCaloClusters();
+    AliAODCaloCells * cells = aod->GetPHOSCells() ;
+  
+    for (Int_t i=0; i<multClust; i++) {
+      AliAODCaloCluster *clu = aod->GetCaloCluster(i);    
+      if ( !clu->IsPHOS()) continue;
+      
+      Float_t  position[3];
+      clu->GetPosition(position);
+      TVector3 global(position) ;
+      Int_t relId[4] ;
+      fPHOSGeo->GlobalPos2RelId(global,relId) ;
+      Int_t mod  = relId[0] ;
+      Int_t cellX = relId[2];
+      Int_t cellZ = relId[3] ;
+      if ( !IsGoodChannel(mod,cellX,cellZ) ) {
+        clu->SetE(0.) ;
+        continue ;
+      }  
+      TVector3 locPosOld; //Use it to re-calculate distance to track
+      fPHOSGeo->Global2Local(locPosOld,global,mod) ;
+    
+      //Apply re-Calibreation
+      AliPHOSAodCluster cluPHOS(*clu);
+      cluPHOS.Recalibrate(fPHOSCalibData,cells); // modify the cell energies
+      cluPHOS.EvalAll(logWeight,vertex);         // recalculate the cluster parameters
+      cluPHOS.SetE(CorrectNonlinearity(cluPHOS.E()));// Users's nonlinearity
+
+      //Correct Misalignment
+      cluPHOS.GetPosition(position);
+      global.SetXYZ(position[0],position[1],position[2]);
+      CorrectPHOSMisalignment(global,mod) ;
+      position[0]=global.X() ;
+      position[1]=global.Y() ;
+      position[2]=global.Z() ;
+
+      clu->SetPosition(position);                       //rec.point position in MARS
+      clu->SetE(cluPHOS.E());                           //total or core particle energy
+      clu->SetDispersion(cluPHOS.GetDispersion());  //cluster dispersion
+      //    ec->SetPID(rp->GetPID()) ;            //array of particle identification
+      clu->SetM02(cluPHOS.GetM02()) ;               //second moment M2x
+      clu->SetM20(cluPHOS.GetM20()) ;               //second moment M2z
+      //correct distance to track
+      Double_t dx=clu->GetTrackDx() ;
+      Double_t dz=clu->GetTrackDz() ;
+      TVector3 locPos;
+      fPHOSGeo->Global2Local(locPos,global,mod) ;
+      if(dx!=-999.){ //there is matched track
+        dx+=locPos.X()-locPosOld.X() ;
+        dz+=locPos.Z()-locPosOld.Z() ;      
+        clu->SetTrackDistance(dx,dz);
+      }
+      Double_t r = 999. ; //Big distance
+      int nTracksMatched = clu->GetNTracksMatched();
+      if(nTracksMatched > 0) {
+        AliVTrack* track = dynamic_cast<AliVTrack*> (clu->GetTrackMatched(0));
+        if ( track ) {
+          Double_t pttrack = track->Pt();
+          Short_t charge = track->Charge();
+          r=TestCPV(dx, dz, pttrack,charge) ;
+       }
+      }
+      clu->SetEmcCpvDistance(r); //Distance in sigmas
+     
+      clu->SetChi2(TestLambda(clu->E(),clu->GetM20(),clu->GetM02()));                     //not yet implemented
+      clu->SetTOF(EvalTOF(&cluPHOS,cells));       
       Double_t minDist=clu->GetDistanceToBadChannel() ;//Already calculated
       DistanceToBadChannel(mod,&locPos,minDist);
       clu->SetDistanceToBadChannel(minDist) ;
-    }\r
-  }\r
-\r
-}\r
-//___________________________________________________________________________________________________\r
-void AliPHOSTenderSupply::FindTrackMatching(Int_t mod,TVector3 *locpos,\r
-                                           Double_t &dx, Double_t &dz,\r
-                                           Double_t &pt,Int_t &charge){\r
-  //Find track with closest extrapolation to cluster\r
-  AliESDEvent *esd = 0x0 ;\r
-  if(fTender)\r
-    esd= fTender->GetEvent();\r
-  else{ \r
-    esd= dynamic_cast<AliESDEvent*>(fTask->InputEvent());\r
-  }\r
-  \r
-  if(!esd){\r
-    AliError("ESD is not found") ;\r
-    return ;\r
-  }\r
-  Double_t  magF = esd->GetMagneticField();\r
\r
-  Double_t magSign = 1.0;\r
-  if(magF<0)magSign = -1.0;\r
-  \r
-  if (!TGeoGlobalMagField::Instance()->GetField()) {\r
-    AliMagF* field = new AliMagF("Maps","Maps", magSign, magSign, AliMagF::k5kG);\r
-    TGeoGlobalMagField::Instance()->SetField(field);\r
-  }\r
-\r
-  // *** Start the matching\r
-  Int_t nt=0;\r
-  nt = esd->GetNumberOfTracks();\r
-  //Calculate actual distance to PHOS module\r
-  TVector3 globaPos ;\r
-  fPHOSGeo->Local2Global(mod, 0.,0., globaPos) ;\r
-  const Double_t rPHOS = globaPos.Pt() ; //Distance to center of  PHOS module\r
-  const Double_t kYmax = 72.+10. ; //Size of the module (with some reserve) in phi direction\r
-  const Double_t kZmax = 64.+10. ; //Size of the module (with some reserve) in z direction\r
-  const Double_t kAlpha0=330./180.*TMath::Pi() ; //First PHOS module angular direction\r
-  const Double_t kAlpha= 20./180.*TMath::Pi() ; //PHOS module angular size\r
-  Double_t minDistance = 1.e6;\r
-\r
-\r
-  Double_t gposTrack[3] ; \r
-\r
-  Double_t bz = ((AliMagF*)TGeoGlobalMagField::Instance()->GetField())->SolenoidField();\r
-  bz = TMath::Sign(0.5*kAlmost0Field,bz) + bz;\r
-\r
-  Double_t b[3]; \r
-\r
-    for (Int_t i=0; i<nt; i++) {\r
-      AliESDtrack *esdTrack=esd->GetTrack(i);\r
-\r
-      // Skip the tracks having "wrong" status (has to be checked/tuned)\r
-      ULong_t status = esdTrack->GetStatus();\r
-      if ((status & AliESDtrack::kTPCout)   == 0) continue;\r
-     \r
-      //Continue extrapolation from TPC outer surface\r
-      const AliExternalTrackParam *outerParam=esdTrack->GetOuterParam();\r
-      if (!outerParam) continue;\r
-      AliExternalTrackParam t(*outerParam);\r
-     \r
-      t.GetBxByBz(b) ;\r
-      //Direction to the current PHOS module\r
-      Double_t phiMod=kAlpha0-kAlpha*mod ;\r
-      if(!t.Rotate(phiMod))\r
-        continue ;\r
-    \r
-      Double_t y;                       // Some tracks do not reach the PHOS\r
-      if (!t.GetYAt(rPHOS,bz,y)) continue; //    because of the bending\r
-      \r
-      Double_t z; \r
-      if(!t.GetZAt(rPHOS,bz,z))\r
-        continue ;\r
-      if (TMath::Abs(z) > kZmax) \r
-        continue; // Some tracks miss the PHOS in Z\r
-      if(TMath::Abs(y) < kYmax){\r
-        t.PropagateToBxByBz(rPHOS,b);        // Propagate to the matching module\r
-        //t.CorrectForMaterial(...); // Correct for the TOF material, if needed\r
-        t.GetXYZ(gposTrack) ;\r
-        TVector3 globalPositionTr(gposTrack) ;\r
-        TVector3 localPositionTr ;\r
-        fPHOSGeo->Global2Local(localPositionTr,globalPositionTr,mod) ;\r
-        Double_t ddx = locpos->X()-localPositionTr.X();\r
-        Double_t ddz = locpos->Z()-localPositionTr.Z();\r
-        Double_t d2 = ddx*ddx + ddz*ddz;\r
-        if(d2 < minDistance) {\r
-         dx = ddx ;\r
-         dz = ddz ;\r
-         minDistance=d2 ;\r
-         pt=esdTrack->Pt() ;\r
-         charge=esdTrack->Charge() ;\r
-        }\r
-      }\r
-    }//Scanned all tracks\r
\r
-}\r
-//____________________________________________________________\r
-Float_t AliPHOSTenderSupply::CorrectNonlinearity(Float_t en){\r
-\r
-  //For backward compatibility, if no RecoParameters found\r
-  if(fNonlinearityVersion=="Default"){\r
-    return 0.0241+1.0504*en+0.000249*en*en ;\r
-  }\r
-\r
-  if(fNonlinearityVersion=="NoCorrection"){\r
-    return en ;\r
-  }\r
-  if(fNonlinearityVersion=="Gustavo2005"){\r
-    return fNonlinearityParams[0]+fNonlinearityParams[1]*en + fNonlinearityParams[2]*en*en ;\r
-  }\r
-  if(fNonlinearityVersion=="Henrik2010"){\r
-    return en*(fNonlinearityParams[0]+fNonlinearityParams[1]*TMath::Exp(-en*fNonlinearityParams[2]))*(1.+fNonlinearityParams[3]*TMath::Exp(-en*fNonlinearityParams[4]))*(1.+fNonlinearityParams[6]/(en*en+fNonlinearityParams[5])) ;\r
-  }\r
-\r
-  return en ;\r
-}\r
-//_____________________________________________________________________________\r
-Double_t AliPHOSTenderSupply::TestLambda(Double_t pt,Double_t l1,Double_t l2){\r
-//Parameterization for core dispersion   \r
-//For R=4.5\r
-  Double_t   l1Mean  = 1.150200 + 0.097886/(1.+1.486645*pt+0.000038*pt*pt) ;\r
-  Double_t   l2Mean = 1.574706 + 0.997966*exp(-0.895075*pt)-0.010666*pt ;\r
-  Double_t   l1Sigma = 0.100255 + 0.337177*exp(-0.517684*pt)+0.001170*pt ;\r
-  Double_t   l2Sigma = 0.232580 + 0.573401*exp(-0.735903*pt)-0.002325*pt ;\r
-  Double_t   c = -0.110983 -0.017353/(1.-1.836995*pt+0.934517*pt*pt) ;\r
-\r
-/*\r
-  //Parameterizatino for full dispersion\r
-  Double_t l2Mean  = 1.53126+9.50835e+06/(1.+1.08728e+07*pt+1.73420e+06*pt*pt) ;\r
-  Double_t l1Mean  = 1.12365+0.123770*TMath::Exp(-pt*0.246551)+5.30000e-03*pt ;\r
-  Double_t l2Sigma = 6.48260e-02+7.60261e+10/(1.+1.53012e+11*pt+5.01265e+05*pt*pt)+9.00000e-03*pt;\r
-  Double_t l1Sigma = 4.44719e-04+6.99839e-01/(1.+1.22497e+00*pt+6.78604e-07*pt*pt)+9.00000e-03*pt;\r
-  Double_t c=-0.35-0.550*TMath::Exp(-0.390730*pt) ;\r
-*/\r
-  Double_t R2=0.5*(l1-l1Mean)*(l1-l1Mean)/l1Sigma/l1Sigma + \r
-              0.5*(l2-l2Mean)*(l2-l2Mean)/l2Sigma/l2Sigma +\r
-              0.5*c*(l1-l1Mean)*(l2-l2Mean)/l1Sigma/l2Sigma ;\r
-  return R2 ;\r
-  \r
-}\r
-//____________________________________________________________________________\r
-Double_t AliPHOSTenderSupply::TestCPV(Double_t dx, Double_t dz, Double_t pt, Int_t charge){\r
-  //Parameterization of LHC10h period\r
-  //_true if neutral_\r
-  \r
-  Double_t meanX=0;\r
-  Double_t meanZ=0.;\r
-  Double_t sx=TMath::Min(5.4,2.59719e+02*TMath::Exp(-pt/1.02053e-01)+\r
-              6.58365e-01*5.91917e-01*5.91917e-01/((pt-9.61306e-01)*(pt-9.61306e-01)+5.91917e-01*5.91917e-01)+1.59219);\r
-  Double_t sz=TMath::Min(2.75,4.90341e+02*1.91456e-02*1.91456e-02/(pt*pt+1.91456e-02*1.91456e-02)+1.60) ;\r
-  \r
-  Double_t mf = 0.; //Positive for ++ and negative for --\r
-  if(fTender){\r
-    AliESDEvent *esd = fTender->GetEvent();\r
-    mf = esd->GetMagneticField();\r
-  }\r
-  else{ \r
-    if(fTask){\r
-      AliESDEvent *esd= dynamic_cast<AliESDEvent*>(fTask->InputEvent());\r
-      if(esd)\r
-         mf = esd->GetMagneticField();\r
-      else{\r
-        AliAODEvent *aod= dynamic_cast<AliAODEvent*>(fTask->InputEvent());\r
-       if(aod)\r
-          mf = aod->GetMagneticField();\r
-      }\r
-    }else{\r
-       AliError("Neither Tender nor Task defined") ;    \r
-    }\r
-  }\r
-  \r
-  if(mf<0.){ //field --\r
-    meanZ = -0.468318 ;\r
-    if(charge>0)\r
-      meanX=TMath::Min(7.3, 3.89994*1.20679*1.20679/(pt*pt+1.20679*1.20679)+0.249029+2.49088e+07*TMath::Exp(-pt*3.33650e+01)) ;\r
-    else\r
-      meanX=-TMath::Min(7.7,3.86040*0.912499*0.912499/(pt*pt+0.912499*0.912499)+1.23114+4.48277e+05*TMath::Exp(-pt*2.57070e+01)) ;\r
-  }\r
-  else{ //Field ++\r
-    meanZ= -0.468318;\r
-    if(charge>0)\r
-      meanX=-TMath::Min(8.0,3.86040*1.31357*1.31357/(pt*pt+1.31357*1.31357)+0.880579+7.56199e+06*TMath::Exp(-pt*3.08451e+01)) ;\r
-    else\r
-      meanX= TMath::Min(6.85, 3.89994*1.16240*1.16240/(pt*pt+1.16240*1.16240)-0.120787+2.20275e+05*TMath::Exp(-pt*2.40913e+01)) ;     \r
-  }\r
-\r
-  Double_t rz=(dz-meanZ)/sz ;\r
-  Double_t rx=(dx-meanX)/sx ;\r
-  return TMath::Sqrt(rx*rx+rz*rz) ;\r
-}\r
-\r
-//________________________________________________________________________\r
-Bool_t AliPHOSTenderSupply::IsGoodChannel(Int_t mod, Int_t ix, Int_t iz)\r
-{\r
-  //Check if this channel belogs to the good ones\r
-  \r
-  if(mod>4 || mod<1){\r
-//    AliError(Form("No bad map for PHOS module %d ",mod)) ;\r
-    return kTRUE ;\r
-  }\r
-  if(!fPHOSBadMap[mod]){\r
-//     AliError(Form("No Bad map for PHOS module %d",mod)) ;\r
-     return kTRUE ;\r
-  }\r
-  if(fPHOSBadMap[mod]->GetBinContent(ix,iz)>0)\r
-    return kFALSE ;\r
-  else\r
-    return kTRUE ;\r
-}\r
-//________________________________________________________________________\r
-void AliPHOSTenderSupply::ForceUsingBadMap(const char * filename){\r
-  //Read TH2I histograms with bad maps from local or alien file \r
-  TFile * fbm = TFile::Open(filename) ;\r
-  if(!fbm || !fbm->IsOpen()){\r
-    AliError(Form("Can not open BadMaps file %s",filename)) ;\r
-    return ;\r
-  }\r
-  gROOT->cd() ;\r
-  char key[55] ;\r
-  for(Int_t mod=1;mod<4; mod++){\r
-    snprintf(key,55,"PHOS_BadMap_mod%d",mod) ;\r
-    TH2I * h = (TH2I*)fbm->Get(key) ;\r
-    if(h)\r
-       fPHOSBadMap[mod] = new TH2I(*h) ;\r
-  }\r
-  fbm->Close() ;\r
-  fUsePrivateBadMap=kTRUE ;\r
-}\r
-//________________________________________________________________________\r
-void AliPHOSTenderSupply::ForceUsingCalibration(const char * filename){\r
-  //Read PHOS recalibration parameters from the file.\r
-  //We assume that file contains single entry: AliPHOSCalibData\r
-  TFile * fc = TFile::Open(filename) ;\r
-  if(!fc || !fc->IsOpen()){\r
-    AliFatal(Form("Can not open Calibration file %s",filename)) ;\r
-    return ;\r
-  }\r
-  fPHOSCalibData = (AliPHOSCalibData*)fc->Get("PHOSCalibration") ;\r
-  fc->Close() ;\r
-  fUsePrivateCalib=kTRUE; \r
-}\r
-//________________________________________________________________________\r
-void AliPHOSTenderSupply::CorrectPHOSMisalignment(TVector3 &global,Int_t mod){\r
-   //Correct for PHOS modules misalignment \r
-  \r
-    //correct misalignment\r
-    const Float_t shiftX[6]={0.,-2.3,-2.11,-1.53,0.,0.} ;\r
-    const Float_t shiftZ[6]={0.,-0.4, 0.52, 0.8,0.,0.} ;\r
-    TVector3 localPos ;\r
-    fPHOSGeo->Global2Local(localPos,global,mod) ;\r
-    fPHOSGeo->Local2Global(mod,localPos.X()+shiftX[mod],localPos.Z()+shiftZ[mod],global);  \r
-}\r
-//________________________________________________________________________\r
-void AliPHOSTenderSupply::EvalLambdas(AliVCluster * clu, Double_t &m02, Double_t &m20){ \r
-  //calculate dispecrsion of the cluster in the circle with radius distanceCut around the maximum\r
-    \r
-  const Double_t rCut=4.5 ;\r
-  \r
-  Double32_t * elist = clu->GetCellsAmplitudeFraction() ;  \r
-// Calculates the center of gravity in the local PHOS-module coordinates\r
-  Float_t wtot = 0;\r
-  Double_t xc[100]={0} ;\r
-  Double_t zc[100]={0} ;\r
-  Double_t x = 0 ;\r
-  Double_t z = 0 ;\r
-  Int_t mulDigit=TMath::Min(100,clu->GetNCells()) ;\r
-  const Double_t logWeight=4.5 ;\r
-  for(Int_t iDigit=0; iDigit<mulDigit; iDigit++) {\r
-    Int_t relid[4] ;\r
-    Float_t xi ;\r
-    Float_t zi ;\r
-    fPHOSGeo->AbsToRelNumbering(clu->GetCellAbsId(iDigit), relid) ;\r
-    fPHOSGeo->RelPosInModule(relid, xi, zi);\r
-    xc[iDigit]=xi ;\r
-    zc[iDigit]=zi ;\r
-    if (clu->E()>0 && elist[iDigit]>0) {\r
-      Float_t w = TMath::Max( 0., logWeight + TMath::Log( elist[iDigit] / clu->E() ) ) ;\r
-      x    += xc[iDigit] * w ;\r
-      z    += zc[iDigit] * w ;\r
-      wtot += w ;\r
-    }\r
-  }\r
-  if (wtot>0) {\r
-    x /= wtot ;\r
-    z /= wtot ;\r
-  }\r
-     \r
-  wtot = 0. ;\r
-  Double_t dxx  = 0.;\r
-  Double_t dzz  = 0.;\r
-  Double_t dxz  = 0.;\r
-  Double_t xCut = 0. ;\r
-  Double_t zCut = 0. ;\r
-  for(Int_t iDigit=0; iDigit<mulDigit; iDigit++) {\r
-    if (clu->E()>0 && elist[iDigit]>0.) {\r
-        Double_t w = TMath::Max( 0., logWeight + TMath::Log( elist[iDigit] / clu->E() ) ) ;\r
-        Double_t xi= xc[iDigit] ;\r
-        Double_t zi= zc[iDigit] ;\r
-       if((xi-x)*(xi-x)+(zi-z)*(zi-z) < rCut*rCut){\r
-          xCut += w * xi ;\r
-          zCut += w * zi ; \r
-          dxx  += w * xi * xi ;\r
-          dzz  += w * zi * zi ;\r
-          dxz  += w * xi * zi ; \r
-          wtot += w ;\r
-       }\r
-    }\r
-    \r
-  }\r
-  if (wtot>0) {\r
-    xCut/= wtot ;\r
-    zCut/= wtot ;\r
-    dxx /= wtot ;\r
-    dzz /= wtot ;\r
-    dxz /= wtot ;\r
-    dxx -= xCut * xCut ;\r
-    dzz -= zCut * zCut ;\r
-    dxz -= xCut * zCut ;\r
-\r
-    m02 =  0.5 * (dxx + dzz) + TMath::Sqrt( 0.25 * (dxx - dzz) * (dxx - dzz) + dxz * dxz )  ;\r
-    m20 =  0.5 * (dxx + dzz) - TMath::Sqrt( 0.25 * (dxx - dzz) * (dxx - dzz) + dxz * dxz )  ;\r
-  }\r
-  else {\r
-    m20=m02=0.;\r
-  }\r
-\r
-}\r
-//________________________________________________________________________\r
-Double_t AliPHOSTenderSupply::EvalTOF(AliVCluster * clu,AliVCaloCells * cells){ \r
-  //Evaluate TOF of the cluster after re-calibration\r
-  //TOF here is weighted average of digits\r
-  // -within 50ns from the most energetic cell\r
-  // -not too soft.\r
-  \r
-  \r
-  Double32_t * elist = clu->GetCellsAmplitudeFraction() ;  \r
-  Int_t mulDigit=clu->GetNCells() ;\r
-\r
-  Float_t tMax= 0.; //Time at the maximum\r
-  Float_t eMax=0. ;\r
-  for(Int_t iDigit=0; iDigit<mulDigit; iDigit++) {\r
-    Int_t absId=clu->GetCellAbsId(iDigit) ;\r
-    Bool_t isHG=kTRUE ;\r
-    if(cells->GetCellMCLabel(absId)==-2) //This is LG digit. No statistics to calibrate LG timing, remove them from TOF calculation\r
-      isHG=kFALSE ;\r
-    if( elist[iDigit]>eMax){\r
-      tMax=CalibrateTOF(cells->GetCellTime(absId),absId,isHG) ;\r
-      eMax=elist[iDigit] ;\r
-    }\r
-  }\r
-\r
-  \r
-   //Try to improve accuracy \r
-  //Do not account time of soft cells:\r
-  //  const Double_t part=0.5 ;\r
-  Double_t eMin=TMath::Min(0.5,0.2*eMax) ;\r
-  Float_t wtot = 0.;\r
-  Double_t t = 0. ;\r
-  for(Int_t iDigit=0; iDigit<mulDigit; iDigit++) {\r
-    Int_t absId=clu->GetCellAbsId(iDigit) ;\r
-    Bool_t isHG=kTRUE ;\r
-    if(cells->GetCellMCLabel(absId)==-2) //This is LG digit. No statistics to calibrate LG timing, remove them from TOF calculation\r
-      isHG=kFALSE ;\r
-    \r
-    Double_t ti=CalibrateTOF(cells->GetCellTime(absId),absId,isHG) ;\r
-    if(TMath::Abs(ti-tMax)>50.e-9) //remove soft cells with wrong time\r
-      continue ;\r
-    \r
-    //Remove too soft cells\r
-    if(elist[iDigit]<eMin)\r
-      continue ;\r
-    \r
-    if(elist[iDigit]>0){ \r
-      //weight = 1./sigma^2\r
-      //Sigma is parameterization of TOF resolution 16.05.2013\r
-      Double_t wi2=0.;\r
-      if(isHG)\r
-       wi2=1./(2.4e-9 + 3.9e-9/elist[iDigit]) ;\r
-      else\r
-       wi2=1./(2.4e-9 + 3.9e-9/(0.1*elist[iDigit])) ; //E of LG digit is 1/16 of correcponding HG  \r
-      t+=ti*wi2 ;\r
-      wtot+=wi2 ;\r
-    }\r
-  }\r
-  if(wtot>0){\r
-    t=t/wtot ;\r
-  }  \r
-  \r
-  return t ;\r
-     \r
-} \r
-//________________________________________________________________________\r
-Double_t AliPHOSTenderSupply::CalibrateTOF(Double_t tof, Int_t absId, Bool_t isHG){\r
-  //Apply time re-calibration separately for HG and LG channels\r
-  //By default (if not filled) shifts are zero.  \r
-    \r
-  Int_t relId[4];\r
-  fPHOSGeo->AbsToRelNumbering(absId,relId) ;\r
-  Int_t   module = relId[0];\r
-  Int_t   column = relId[3];\r
-  Int_t   row    = relId[2];\r
-  if(isHG)\r
-    tof-=fPHOSCalibData->GetTimeShiftEmc(module, column, row);\r
-  else\r
-    tof-=fPHOSCalibData->GetLGTimeShiftEmc(module, column, row);\r
\r
-  return tof ;\r
-  \r
-}\r
+    }
+  }
+
+}
+//___________________________________________________________________________________________________
+void AliPHOSTenderSupply::FindTrackMatching(Int_t mod,TVector3 *locpos,
+                                           Double_t &dx, Double_t &dz,
+                                           Double_t &pt,Int_t &charge){
+  //Find track with closest extrapolation to cluster
+  AliESDEvent *esd = 0x0 ;
+  if(fTender)
+    esd= fTender->GetEvent();
+  else{ 
+    esd= dynamic_cast<AliESDEvent*>(fTask->InputEvent());
+  }
+  
+  if(!esd){
+    AliError("ESD is not found") ;
+    return ;
+  }
+  Double_t  magF = esd->GetMagneticField();
+  Double_t magSign = 1.0;
+  if(magF<0)magSign = -1.0;
+  
+  if (!TGeoGlobalMagField::Instance()->GetField()) {
+    AliMagF* field = new AliMagF("Maps","Maps", magSign, magSign, AliMagF::k5kG);
+    TGeoGlobalMagField::Instance()->SetField(field);
+  }
+
+  // *** Start the matching
+  Int_t nt=0;
+  nt = esd->GetNumberOfTracks();
+  //Calculate actual distance to PHOS module
+  TVector3 globaPos ;
+  fPHOSGeo->Local2Global(mod, 0.,0., globaPos) ;
+  const Double_t rPHOS = globaPos.Pt() ; //Distance to center of  PHOS module
+  const Double_t kYmax = 72.+10. ; //Size of the module (with some reserve) in phi direction
+  const Double_t kZmax = 64.+10. ; //Size of the module (with some reserve) in z direction
+  const Double_t kAlpha0=330./180.*TMath::Pi() ; //First PHOS module angular direction
+  const Double_t kAlpha= 20./180.*TMath::Pi() ; //PHOS module angular size
+  Double_t minDistance = 1.e6;
+
+
+  Double_t gposTrack[3] ; 
+
+  Double_t bz = ((AliMagF*)TGeoGlobalMagField::Instance()->GetField())->SolenoidField();
+  bz = TMath::Sign(0.5*kAlmost0Field,bz) + bz;
+
+  Double_t b[3]; 
+
+    for (Int_t i=0; i<nt; i++) {
+      AliESDtrack *esdTrack=esd->GetTrack(i);
+
+      // Skip the tracks having "wrong" status (has to be checked/tuned)
+      ULong_t status = esdTrack->GetStatus();
+      if ((status & AliESDtrack::kTPCout)   == 0) continue;
+     
+      //Continue extrapolation from TPC outer surface
+      const AliExternalTrackParam *outerParam=esdTrack->GetOuterParam();
+      if (!outerParam) continue;
+      AliExternalTrackParam t(*outerParam);
+     
+      t.GetBxByBz(b) ;
+      //Direction to the current PHOS module
+      Double_t phiMod=kAlpha0-kAlpha*mod ;
+      if(!t.Rotate(phiMod))
+        continue ;
+    
+      Double_t y;                       // Some tracks do not reach the PHOS
+      if (!t.GetYAt(rPHOS,bz,y)) continue; //    because of the bending
+      
+      Double_t z; 
+      if(!t.GetZAt(rPHOS,bz,z))
+        continue ;
+      if (TMath::Abs(z) > kZmax) 
+        continue; // Some tracks miss the PHOS in Z
+      if(TMath::Abs(y) < kYmax){
+        t.PropagateToBxByBz(rPHOS,b);        // Propagate to the matching module
+        //t.CorrectForMaterial(...); // Correct for the TOF material, if needed
+        t.GetXYZ(gposTrack) ;
+        TVector3 globalPositionTr(gposTrack) ;
+        TVector3 localPositionTr ;
+        fPHOSGeo->Global2Local(localPositionTr,globalPositionTr,mod) ;
+        Double_t ddx = locpos->X()-localPositionTr.X();
+        Double_t ddz = locpos->Z()-localPositionTr.Z();
+        Double_t d2 = ddx*ddx + ddz*ddz;
+        if(d2 < minDistance) {
+         dx = ddx ;
+         dz = ddz ;
+         minDistance=d2 ;
+         pt=esdTrack->Pt() ;
+         charge=esdTrack->Charge() ;
+        }
+      }
+    }//Scanned all tracks
+}
+//____________________________________________________________
+Float_t AliPHOSTenderSupply::CorrectNonlinearity(Float_t en){
+
+  //For backward compatibility, if no RecoParameters found
+  if(fNonlinearityVersion=="Default"){
+    return 0.0241+1.0504*en+0.000249*en*en ;
+  }
+
+  if(fNonlinearityVersion=="NoCorrection"){
+    return en ;
+  }
+  if(fNonlinearityVersion=="Gustavo2005"){
+    return fNonlinearityParams[0]+fNonlinearityParams[1]*en + fNonlinearityParams[2]*en*en ;
+  }
+  if(fNonlinearityVersion=="Henrik2010"){
+    return en*(fNonlinearityParams[0]+fNonlinearityParams[1]*TMath::Exp(-en*fNonlinearityParams[2]))*(1.+fNonlinearityParams[3]*TMath::Exp(-en*fNonlinearityParams[4]))*(1.+fNonlinearityParams[6]/(en*en+fNonlinearityParams[5])) ;
+  }
+
+  return en ;
+}
+//_____________________________________________________________________________
+Double_t AliPHOSTenderSupply::TestLambda(Double_t pt,Double_t l1,Double_t l2){
+//Parameterization for core dispersion   
+//For R=4.5
+  Double_t   l1Mean  = 1.150200 + 0.097886/(1.+1.486645*pt+0.000038*pt*pt) ;
+  Double_t   l2Mean = 1.574706 + 0.997966*exp(-0.895075*pt)-0.010666*pt ;
+  Double_t   l1Sigma = 0.100255 + 0.337177*exp(-0.517684*pt)+0.001170*pt ;
+  Double_t   l2Sigma = 0.232580 + 0.573401*exp(-0.735903*pt)-0.002325*pt ;
+  Double_t   c = -0.110983 -0.017353/(1.-1.836995*pt+0.934517*pt*pt) ;
+
+/*
+  //Parameterizatino for full dispersion
+  Double_t l2Mean  = 1.53126+9.50835e+06/(1.+1.08728e+07*pt+1.73420e+06*pt*pt) ;
+  Double_t l1Mean  = 1.12365+0.123770*TMath::Exp(-pt*0.246551)+5.30000e-03*pt ;
+  Double_t l2Sigma = 6.48260e-02+7.60261e+10/(1.+1.53012e+11*pt+5.01265e+05*pt*pt)+9.00000e-03*pt;
+  Double_t l1Sigma = 4.44719e-04+6.99839e-01/(1.+1.22497e+00*pt+6.78604e-07*pt*pt)+9.00000e-03*pt;
+  Double_t c=-0.35-0.550*TMath::Exp(-0.390730*pt) ;
+*/
+  Double_t R2=0.5*(l1-l1Mean)*(l1-l1Mean)/l1Sigma/l1Sigma + 
+              0.5*(l2-l2Mean)*(l2-l2Mean)/l2Sigma/l2Sigma +
+              0.5*c*(l1-l1Mean)*(l2-l2Mean)/l1Sigma/l2Sigma ;
+  return R2 ;
+  
+}
+//____________________________________________________________________________
+Double_t AliPHOSTenderSupply::TestCPV(Double_t dx, Double_t dz, Double_t pt, Int_t charge){
+  //Parameterization of LHC10h period
+  //_true if neutral_
+  
+  Double_t meanX=0;
+  Double_t meanZ=0.;
+  Double_t sx=TMath::Min(5.4,2.59719e+02*TMath::Exp(-pt/1.02053e-01)+
+              6.58365e-01*5.91917e-01*5.91917e-01/((pt-9.61306e-01)*(pt-9.61306e-01)+5.91917e-01*5.91917e-01)+1.59219);
+  Double_t sz=TMath::Min(2.75,4.90341e+02*1.91456e-02*1.91456e-02/(pt*pt+1.91456e-02*1.91456e-02)+1.60) ;
+  
+  Double_t mf = 0.; //Positive for ++ and negative for --
+  if(fTender){
+    AliESDEvent *esd = fTender->GetEvent();
+    mf = esd->GetMagneticField();
+  }
+  else{ 
+    if(fTask){
+      AliESDEvent *esd= dynamic_cast<AliESDEvent*>(fTask->InputEvent());
+      if(esd)
+         mf = esd->GetMagneticField();
+      else{
+        AliAODEvent *aod= dynamic_cast<AliAODEvent*>(fTask->InputEvent());
+       if(aod)
+          mf = aod->GetMagneticField();
+      }
+    }else{
+       AliError("Neither Tender nor Task defined") ;    
+    }
+  }
+  
+  if(mf<0.){ //field --
+    meanZ = -0.468318 ;
+    if(charge>0)
+      meanX=TMath::Min(7.3, 3.89994*1.20679*1.20679/(pt*pt+1.20679*1.20679)+0.249029+2.49088e+07*TMath::Exp(-pt*3.33650e+01)) ;
+    else
+      meanX=-TMath::Min(7.7,3.86040*0.912499*0.912499/(pt*pt+0.912499*0.912499)+1.23114+4.48277e+05*TMath::Exp(-pt*2.57070e+01)) ;
+  }
+  else{ //Field ++
+    meanZ= -0.468318;
+    if(charge>0)
+      meanX=-TMath::Min(8.0,3.86040*1.31357*1.31357/(pt*pt+1.31357*1.31357)+0.880579+7.56199e+06*TMath::Exp(-pt*3.08451e+01)) ;
+    else
+      meanX= TMath::Min(6.85, 3.89994*1.16240*1.16240/(pt*pt+1.16240*1.16240)-0.120787+2.20275e+05*TMath::Exp(-pt*2.40913e+01)) ;     
+  }
+
+  Double_t rz=(dz-meanZ)/sz ;
+  Double_t rx=(dx-meanX)/sx ;
+  return TMath::Sqrt(rx*rx+rz*rz) ;
+}
+
+//________________________________________________________________________
+Bool_t AliPHOSTenderSupply::IsGoodChannel(Int_t mod, Int_t ix, Int_t iz)
+{
+  //Check if this channel belogs to the good ones
+  
+  if(mod>4 || mod<1){
+//    AliError(Form("No bad map for PHOS module %d ",mod)) ;
+    return kTRUE ;
+  }
+  if(!fPHOSBadMap[mod]){
+//     AliError(Form("No Bad map for PHOS module %d",mod)) ;
+     return kTRUE ;
+  }
+  if(fPHOSBadMap[mod]->GetBinContent(ix,iz)>0)
+    return kFALSE ;
+  else
+    return kTRUE ;
+}
+//________________________________________________________________________
+void AliPHOSTenderSupply::ForceUsingBadMap(const char * filename){
+  //Read TH2I histograms with bad maps from local or alien file 
+  TFile * fbm = TFile::Open(filename) ;
+  if(!fbm || !fbm->IsOpen()){
+    AliError(Form("Can not open BadMaps file %s",filename)) ;
+    return ;
+  }
+  gROOT->cd() ;
+  char key[55] ;
+  for(Int_t mod=1;mod<4; mod++){
+    snprintf(key,55,"PHOS_BadMap_mod%d",mod) ;
+    TH2I * h = (TH2I*)fbm->Get(key) ;
+    if(h)
+       fPHOSBadMap[mod] = new TH2I(*h) ;
+  }
+  fbm->Close() ;
+  fUsePrivateBadMap=kTRUE ;
+}
+//________________________________________________________________________
+void AliPHOSTenderSupply::ForceUsingCalibration(const char * filename){
+  //Read PHOS recalibration parameters from the file.
+  //We assume that file contains single entry: AliPHOSCalibData
+  TFile * fc = TFile::Open(filename) ;
+  if(!fc || !fc->IsOpen()){
+    AliFatal(Form("Can not open Calibration file %s",filename)) ;
+    return ;
+  }
+  fPHOSCalibData = (AliPHOSCalibData*)fc->Get("PHOSCalibration") ;
+  fc->Close() ;
+  fUsePrivateCalib=kTRUE; 
+}
+//________________________________________________________________________
+void AliPHOSTenderSupply::CorrectPHOSMisalignment(TVector3 &global,Int_t mod){
+   //Correct for PHOS modules misalignment 
+  
+    //correct misalignment
+    const Float_t shiftX[6]={0.,-2.3,-2.11,-1.53,0.,0.} ;
+    const Float_t shiftZ[6]={0.,-0.4, 0.52, 0.8,0.,0.} ;
+    TVector3 localPos ;
+    fPHOSGeo->Global2Local(localPos,global,mod) ;
+    fPHOSGeo->Local2Global(mod,localPos.X()+shiftX[mod],localPos.Z()+shiftZ[mod],global);  
+}
+//________________________________________________________________________
+void AliPHOSTenderSupply::EvalLambdas(AliVCluster * clu, Double_t &m02, Double_t &m20){ 
+  //calculate dispecrsion of the cluster in the circle with radius distanceCut around the maximum
+    
+  const Double_t rCut=4.5 ;
+  
+  Double32_t * elist = clu->GetCellsAmplitudeFraction() ;  
+// Calculates the center of gravity in the local PHOS-module coordinates
+  Float_t wtot = 0;
+  Double_t xc[100]={0} ;
+  Double_t zc[100]={0} ;
+  Double_t x = 0 ;
+  Double_t z = 0 ;
+  Int_t mulDigit=TMath::Min(100,clu->GetNCells()) ;
+  const Double_t logWeight=4.5 ;
+  for(Int_t iDigit=0; iDigit<mulDigit; iDigit++) {
+    Int_t relid[4] ;
+    Float_t xi ;
+    Float_t zi ;
+    fPHOSGeo->AbsToRelNumbering(clu->GetCellAbsId(iDigit), relid) ;
+    fPHOSGeo->RelPosInModule(relid, xi, zi);
+    xc[iDigit]=xi ;
+    zc[iDigit]=zi ;
+    if (clu->E()>0 && elist[iDigit]>0) {
+      Float_t w = TMath::Max( 0., logWeight + TMath::Log( elist[iDigit] / clu->E() ) ) ;
+      x    += xc[iDigit] * w ;
+      z    += zc[iDigit] * w ;
+      wtot += w ;
+    }
+  }
+  if (wtot>0) {
+    x /= wtot ;
+    z /= wtot ;
+  }
+     
+  wtot = 0. ;
+  Double_t dxx  = 0.;
+  Double_t dzz  = 0.;
+  Double_t dxz  = 0.;
+  Double_t xCut = 0. ;
+  Double_t zCut = 0. ;
+  for(Int_t iDigit=0; iDigit<mulDigit; iDigit++) {
+    if (clu->E()>0 && elist[iDigit]>0.) {
+        Double_t w = TMath::Max( 0., logWeight + TMath::Log( elist[iDigit] / clu->E() ) ) ;
+        Double_t xi= xc[iDigit] ;
+        Double_t zi= zc[iDigit] ;
+       if((xi-x)*(xi-x)+(zi-z)*(zi-z) < rCut*rCut){
+          xCut += w * xi ;
+          zCut += w * zi ; 
+          dxx  += w * xi * xi ;
+          dzz  += w * zi * zi ;
+          dxz  += w * xi * zi ; 
+          wtot += w ;
+       }
+    }
+    
+  }
+  if (wtot>0) {
+    xCut/= wtot ;
+    zCut/= wtot ;
+    dxx /= wtot ;
+    dzz /= wtot ;
+    dxz /= wtot ;
+    dxx -= xCut * xCut ;
+    dzz -= zCut * zCut ;
+    dxz -= xCut * zCut ;
+
+    m02 =  0.5 * (dxx + dzz) + TMath::Sqrt( 0.25 * (dxx - dzz) * (dxx - dzz) + dxz * dxz )  ;
+    m20 =  0.5 * (dxx + dzz) - TMath::Sqrt( 0.25 * (dxx - dzz) * (dxx - dzz) + dxz * dxz )  ;
+  }
+  else {
+    m20=m02=0.;
+  }
+
+}
+//________________________________________________________________________
+Double_t AliPHOSTenderSupply::EvalTOF(AliVCluster * clu,AliVCaloCells * cells){ 
+  //Evaluate TOF of the cluster after re-calibration
+  //TOF here is weighted average of digits
+  // -within 50ns from the most energetic cell
+  // -not too soft.
+  
+  
+  Double32_t * elist = clu->GetCellsAmplitudeFraction() ;  
+  Int_t mulDigit=clu->GetNCells() ;
+
+  Float_t tMax= 0.; //Time at the maximum
+  Float_t eMax=0. ;
+  for(Int_t iDigit=0; iDigit<mulDigit; iDigit++) {
+    Int_t absId=clu->GetCellAbsId(iDigit) ;
+    Bool_t isHG=kTRUE ;
+    if(cells->GetCellMCLabel(absId)==-2) //This is LG digit. No statistics to calibrate LG timing, remove them from TOF calculation
+      isHG=kFALSE ;
+    if( elist[iDigit]>eMax){
+      tMax=CalibrateTOF(cells->GetCellTime(absId),absId,isHG) ;
+      eMax=elist[iDigit] ;
+    }
+  }
+
+  
+   //Try to improve accuracy 
+  //Do not account time of soft cells:
+  //  const Double_t part=0.5 ;
+  Double_t eMin=TMath::Min(0.5,0.2*eMax) ;
+  Float_t wtot = 0.;
+  Double_t t = 0. ;
+  for(Int_t iDigit=0; iDigit<mulDigit; iDigit++) {
+    Int_t absId=clu->GetCellAbsId(iDigit) ;
+    Bool_t isHG=kTRUE ;
+    if(cells->GetCellMCLabel(absId)==-2) //This is LG digit. No statistics to calibrate LG timing, remove them from TOF calculation
+      isHG=kFALSE ;
+    
+    Double_t ti=CalibrateTOF(cells->GetCellTime(absId),absId,isHG) ;
+    if(TMath::Abs(ti-tMax)>50.e-9) //remove soft cells with wrong time
+      continue ;
+    
+    //Remove too soft cells
+    if(elist[iDigit]<eMin)
+      continue ;
+    
+    if(elist[iDigit]>0){ 
+      //weight = 1./sigma^2
+      //Sigma is parameterization of TOF resolution 16.05.2013
+      Double_t wi2=0.;
+      if(isHG)
+       wi2=1./(2.4e-9 + 3.9e-9/elist[iDigit]) ;
+      else
+       wi2=1./(2.4e-9 + 3.9e-9/(0.1*elist[iDigit])) ; //E of LG digit is 1/16 of correcponding HG  
+      t+=ti*wi2 ;
+      wtot+=wi2 ;
+    }
+  }
+  if(wtot>0){
+    t=t/wtot ;
+  }  
+  
+  return t ;
+     
+} 
+//________________________________________________________________________
+Double_t AliPHOSTenderSupply::CalibrateTOF(Double_t tof, Int_t absId, Bool_t isHG){
+  //Apply time re-calibration separately for HG and LG channels
+  //By default (if not filled) shifts are zero.  
+    
+  Int_t relId[4];
+  fPHOSGeo->AbsToRelNumbering(absId,relId) ;
+  Int_t   module = relId[0];
+  Int_t   column = relId[3];
+  Int_t   row    = relId[2];
+  if(isHG)
+    tof-=fPHOSCalibData->GetTimeShiftEmc(module, column, row);
+  else
+    tof-=fPHOSCalibData->GetLGTimeShiftEmc(module, column, row);
+  return tof ;
+  
+}
 //________________________________________________________________________
 void AliPHOSTenderSupply::DistanceToBadChannel(Int_t mod, TVector3 * locPos, Double_t &minDist){
   //Check if distance to bad channel was reduced
index 37a402f..7c5460a 100644 (file)
@@ -1,84 +1,91 @@
-#ifndef ALIPHOSTENDERSUPPLY_H\r
-#define ALIPHOSTENDERSUPPLY_H\r
-\r
-/* Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *\r
- * See cxx source for full Copyright notice                               */\r
-\r
-////////////////////////////////////////////////////////////////////////\r
-//                                                                    //\r
-//  PHOS tender, apply corrections to PHOS clusters                   //\r
-//  and do track matching                                             //\r
-//  Author : Dmitri Peressounko (RRC KI)                              //\r
-//                                                                    //\r
-////////////////////////////////////////////////////////////////////////\r
-\r
-#include <AliTenderSupply.h>\r
-\r
-class TVector3;\r
-class AliPHOSGeometry;\r
-class AliPHOSCalibData ;\r
-class TH2I ;\r
-class AliVCluster ;\r
-class AliVCaloCells ;\r
-class AliAnalysisTaskSE ;\r
-\r
-class AliPHOSTenderSupply: public AliTenderSupply {\r
-  \r
-public:\r
-  AliPHOSTenderSupply();\r
-  AliPHOSTenderSupply(const char *name, const AliTender *tender=NULL);\r
-  virtual ~AliPHOSTenderSupply();\r
-\r
-  virtual void   Init(){}\r
-  virtual void   ProcessEvent();\r
-  \r
-  void SetTask(AliAnalysisTaskSE * task){fTask=task;} //if work with AOD and special task\r
-  \r
-  void  SetNonlinearityVersion(const char * ver="Gustavo2005"){fNonlinearityVersion=ver;}\r
-  void  SetNonlinearityParams(Int_t n, const Double_t * par){\r
-            if(n>10){printf("Only 10 parameters allowed \n"); return ;}\r
-            for(Int_t i=0;i<n;i++)fNonlinearityParams[i]=par[i]; }\r
-  void  SetReconstructionPass(Int_t ipass=2){fRecoPass=ipass;}\r
-  \r
-  //If you want to override automatic choise of bad maps and calibration\r
-  void ForceUsingBadMap(const char * filename="alien:///alice/cern.ch/user/p/prsnko/BadMaps/BadMap_LHC10b.root") ;\r
-  void ForceUsingCalibration(const char * filename="alien:///alice/cern.ch/user/p/prsnko/Recalibrations/LHC10b_pass1.root") ;\r
-  void   InitTender();\r
-\r
-protected:\r
-  AliPHOSTenderSupply(const AliPHOSTenderSupply&c);\r
-  AliPHOSTenderSupply& operator= (const AliPHOSTenderSupply&c);\r
-  void   FindTrackMatching(Int_t mod,TVector3 *locpos,Double_t &dx, Double_t &dz, Double_t &pttrack, Int_t &charge); \r
-  Float_t CorrectNonlinearity(Float_t en) ;\r
-  Double_t TestCPV(Double_t dx, Double_t dz, Double_t pt, Int_t charge) ;\r
-  Double_t TestLambda(Double_t pt,Double_t l1,Double_t l2) ;\r
-  Bool_t IsGoodChannel(Int_t mod, Int_t ix, Int_t iz) ;\r
-  void   CorrectPHOSMisalignment(TVector3 & globalPos, Int_t module);\r
-  void   EvalLambdas(AliVCluster * clu, Double_t &m02, Double_t &m20) ;\r
-  Double_t EvalTOF(AliVCluster * clu,AliVCaloCells * cells); \r
-  Double_t CalibrateTOF(Double_t tof, Int_t absId, Bool_t isHG); \r
+#ifndef ALIPHOSTENDERSUPPLY_H
+#define ALIPHOSTENDERSUPPLY_H
+
+/* Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
+ * See cxx source for full Copyright notice                               */
+
+////////////////////////////////////////////////////////////////////////
+//                                                                    //
+//  PHOS tender, apply corrections to PHOS clusters                   //
+//  and do track matching                                             //
+//  Author : Dmitri Peressounko (RRC KI)                              //
+//                                                                    //
+////////////////////////////////////////////////////////////////////////
+
+#include <AliTenderSupply.h>
+
+class TVector3;
+class AliPHOSGeometry;
+class AliPHOSCalibData ;
+class TH2I ;
+class AliVCluster ;
+class AliVCaloCells ;
+class AliAnalysisTaskSE ;
+
+class AliPHOSTenderSupply: public AliTenderSupply {
+  
+public:
+  AliPHOSTenderSupply();
+  AliPHOSTenderSupply(const char *name, const AliTender *tender=NULL);
+  virtual ~AliPHOSTenderSupply();
+
+  virtual void   Init(){}
+  virtual void   ProcessEvent();
+  
+  void SetTask(AliAnalysisTaskSE * task){fTask=task;} //if work with AOD and special task
+  
+  void  SetNonlinearityVersion(const char * ver="Gustavo2005"){fNonlinearityVersion=ver;}
+  void  SetNonlinearityParams(Int_t n, const Double_t * par){
+            if(n>10){printf("Only 10 parameters allowed \n"); return ;}
+            for(Int_t i=0;i<n;i++)fNonlinearityParams[i]=par[i]; }
+  void  SetReconstructionPass(Int_t ipass=2){fRecoPass=ipass;}
+  
+  //Use this function to let tender know that it works with MC production
+  //should read calibration from PHOSMCCalibration file and use object for specified production
+  //By defaul real data is assumed.
+  void SetMCProduction(const char * name ="LHC13_b2"){fIsMC=kTRUE ; fMCProduction=name ;}
+  
+  //If you want to override automatic choise of bad maps and calibration
+  void ForceUsingBadMap(const char * filename="alien:///alice/cern.ch/user/p/prsnko/BadMaps/BadMap_LHC10b.root") ;
+  void ForceUsingCalibration(const char * filename="alien:///alice/cern.ch/user/p/prsnko/Recalibrations/LHC10b_pass1.root") ;
+  void   InitTender();
+
+protected:
+  AliPHOSTenderSupply(const AliPHOSTenderSupply&c);
+  AliPHOSTenderSupply& operator= (const AliPHOSTenderSupply&c);
+  void   FindTrackMatching(Int_t mod,TVector3 *locpos,Double_t &dx, Double_t &dz, Double_t &pttrack, Int_t &charge); 
+  Float_t CorrectNonlinearity(Float_t en) ;
+  Double_t TestCPV(Double_t dx, Double_t dz, Double_t pt, Int_t charge) ;
+  Double_t TestLambda(Double_t pt,Double_t l1,Double_t l2) ;
+  Bool_t IsGoodChannel(Int_t mod, Int_t ix, Int_t iz) ;
+  void   CorrectPHOSMisalignment(TVector3 & globalPos, Int_t module);
+  void   EvalLambdas(AliVCluster * clu, Double_t &m02, Double_t &m20) ;
+  Double_t EvalTOF(AliVCluster * clu,AliVCaloCells * cells); 
+  Double_t CalibrateTOF(Double_t tof, Int_t absId, Bool_t isHG); 
   void DistanceToBadChannel(Int_t mod, TVector3 * locPos, Double_t &minDist) ;
 
\r
-private:\r
-\r
-  TString fOCDBpass ;                        // Pass to OCDB recalibration object, local or alien\r
-  TString fNonlinearityVersion;              // Version of non-linearity correction to aaply\r
-  AliPHOSGeometry   *fPHOSGeo;               // PHOS geometry\r
-  Double_t fNonlinearityParams[10] ;         // Parameters for non-linearity calculation\r
-  TH2I * fPHOSBadMap[5] ;                    // Bad channels map\r
-  Int_t fRecoPass ;                          // Reconstruction pass\r
-  Bool_t fUsePrivateBadMap ;\r
-  Bool_t fUsePrivateCalib ;\r
-  \r
-  AliPHOSCalibData *fPHOSCalibData;          // PHOS calibration object\r
-  AliAnalysisTaskSE     *fTask;              // analysis task\r
-\r
\r
-  ClassDef(AliPHOSTenderSupply, 2); // PHOS tender task\r
-};\r
-\r
-\r
-#endif\r
-\r
-\r
+private:
+
+  TString fOCDBpass ;                        // Pass to OCDB recalibration object, local or alien
+  TString fNonlinearityVersion;              // Version of non-linearity correction to aaply
+  AliPHOSGeometry   *fPHOSGeo;               // PHOS geometry
+  Double_t fNonlinearityParams[10] ;         // Parameters for non-linearity calculation
+  TH2I * fPHOSBadMap[5] ;                    // Bad channels map
+  Int_t fRecoPass ;                          // Reconstruction pass
+  Bool_t fUsePrivateBadMap ;
+  Bool_t fUsePrivateCalib ;
+  
+  AliPHOSCalibData *fPHOSCalibData;          // PHOS calibration object
+  AliAnalysisTaskSE     *fTask;              // analysis task
+
+  Bool_t fIsMC;                              //True if work with MC data
+  TString fMCProduction ;                    //Name of MC production
+  ClassDef(AliPHOSTenderSupply, 2); // PHOS tender task
+};
+
+
+#endif
+
+