1) Mods in AddTaskPHOSPi0Flow to comply with LEGO train
[u/mrichter/AliRoot.git] / PWGGA / PHOSTasks / PHOS_PbPb / AliAnalysisTaskPi0Flow.cxx
1 #include "TChain.h"
2 #include "TTree.h"
3 #include "TObjArray.h"
4 #include "TF1.h"
5 #include "TFile.h"
6 #include "TH1F.h"
7 #include "TH2F.h"
8 #include "TH2I.h"
9 #include "TH3F.h"
10 #include "TParticle.h"
11 #include "TCanvas.h"
12 #include "TStyle.h"
13 #include "TRandom.h"
14
15 #include "AliAnalysisManager.h"
16 #include "AliMCEventHandler.h"
17 #include "AliMCEvent.h"
18 #include "AliStack.h"
19 #include "AliAnalysisTaskSE.h"
20 #include "AliAnalysisTaskPi0Flow.h"
21 #include "AliCaloPhoton.h"
22 #include "AliPHOSGeometry.h"
23 #include "TGeoManager.h"
24 #include "AliPHOSEsdCluster.h"
25 #include "AliPHOSCalibData.h"
26 #include "AliESDEvent.h"
27 #include "AliESDCaloCells.h"
28 #include "AliESDVertex.h"
29 #include "AliESDtrackCuts.h"
30 #include "AliAODEvent.h"
31 #include "AliLog.h"
32 #include "AliPID.h"
33 #include "AliCDBManager.h"
34 #include <AliAODCaloCluster.h>
35 #include "AliCentrality.h"
36 #include "AliESDtrackCuts.h"
37 #include "AliEventplane.h"
38 #include "TProfile.h"
39 #include "AliOADBContainer.h"
40
41 // Analysis task to fill histograms with PHOS ESD or AOD clusters and cells
42 // Authors : Dmitri Peressounko
43 // Date    : 28.05.2011
44 // Modified: 03.08.2012 Henrik Qvigstad
45 /* $Id$ */
46
47 ClassImp(AliAnalysisTaskPi0Flow);
48
49 //________________________________________________________________________
50 Double_t rnlin(Double_t *x, Double_t * /*par*/)
51 {
52   //a = par[0], b = par[1].
53   //1+a*exp(-e/b)
54
55 // return 0.0241+1.0504*x[0]+0.000249*x[0]*x[0] ;
56  return 1.015*(0.0241+1.0504*x[0]+0.000249*x[0]*x[0]) ;
57
58 }
59
60 //________________________________________________________________________
61 AliAnalysisTaskPi0Flow::AliAnalysisTaskPi0Flow(const char *name, Period period)
62 : AliAnalysisTaskSE(name),
63   fCentEdges(10),
64   fNEMRPBins(9),
65   fMixingArraysLength(100),
66   fPeriod(period),
67   fOutputContainer(0x0),
68   fNonLinCorr(0),
69   fEvent(0x0),
70   fEventESD(0x0),
71   fEventAOD(0x0),
72   fMCStack(0x0),
73   fRunNumber(-999),
74   fInternalRunNumber(0),
75   fPHOSGeo(0),
76   fMultV0(0x0),
77   fV0Cpol(0.),fV0Apol(0.),
78   fESDtrackCuts(0x0),
79   fPHOSCalibData(0x0),
80   fVertexVector(),
81   fVtxBin(0),
82   fCentralityV0M(0.),
83   fCentBin(0),
84   fHaveTPCRP(0),
85   fRP(0),
86   fRPV0A(0),
87   fRPV0C(0),
88   fEMRPBin(0),
89   fCaloPhotonsPHOS(0x0),
90   fCaloPhotonsPHOSLists(0x0)
91 {
92   const int elength = 10;
93   Double_t edges[elength] = {0., 5., 10., 20., 30., 40., 50., 60., 70., 80.};
94   fCentEdges = TArrayD(elength, edges);
95   
96   for(Int_t i=0;i<kNCenBins;i++){
97     for(Int_t j=0;j<2; j++)
98       for(Int_t k=0; k<2; k++) {
99         fMeanQ[i][j][k]=0.;
100         fWidthQ[i][j][k]=0.;
101       }
102   }
103   
104   fVertex[0]=0; fVertex[1]=0; fVertex[2]=0; 
105
106   // Output slots #0 write into a TH1 container
107   DefineOutput(1,TList::Class());
108
109
110
111   // Set bad channel map
112   char key[55] ;
113   for(Int_t i=0; i<6; i++){
114     snprintf(key,55,"PHOS_BadMap_mod%d",i) ;
115     fPHOSBadMap[i]=new TH2I(key,"Bad Modules map",64,0.,64.,56,0.,56.) ;
116   }
117
118
119   // Initialize non-linrarity correction
120   fNonLinCorr = new TF1("nonlib",rnlin,0.,40.,0);
121
122
123 }
124 //___________________________________________________________________________
125 AliAnalysisTaskPi0Flow::~AliAnalysisTaskPi0Flow()
126 {
127   delete fNonLinCorr;
128   delete fESDtrackCuts;
129   delete fPHOSCalibData;
130   delete fCaloPhotonsPHOSLists;
131 }
132 //________________________________________________________________________
133 void AliAnalysisTaskPi0Flow::UserCreateOutputObjects()
134 {
135   // Create histograms
136   // Called once
137   const Int_t nRuns=200 ;
138
139   // histograms
140   if(fOutputContainer != NULL){
141     delete fOutputContainer;
142   }
143   fOutputContainer = new TList();
144   fOutputContainer->SetOwner(kTRUE);
145
146   //========QA histograms=======
147
148   //Event selection
149   fOutputContainer->Add(new TH2F("hSelEvents","Event selection", 12,0.,13.,nRuns,0.,float(nRuns))) ;
150   fOutputContainer->Add(new TH1F("hTotSelEvents","Event selection", 12,0.,12.)) ;
151
152   //vertex distribution
153   fOutputContainer->Add(new TH2F("hZvertex","Z vertex position", 50,-25.,25.,nRuns,0.,float(nRuns))) ;
154
155   //Centrality
156   fOutputContainer->Add(new TH2F("hCentrality","Event centrality", 100,0.,100.,nRuns,0.,float(nRuns))) ;
157   fOutputContainer->Add(new TH2F("hCenPHOS","Centrality vs PHOSclusters", 100,0.,100.,200,0.,200.)) ;
158   fOutputContainer->Add(new TH2F("hCenPHOSCells","Centrality vs PHOS cells", 100,0.,100.,100,0.,1000.)) ;
159   fOutputContainer->Add(new TH2F("hCenTrack","Centrality vs tracks", 100,0.,100.,100,0.,15000.)) ;
160   fOutputContainer->Add(new TH2F("hCluEvsClu","ClusterMult vs E",200,0.,10.,100,0.,100.)) ;
161
162
163   //Reaction plane
164   fOutputContainer->Add(new TH3F("hPHOSphi","cos" ,10,0.,100.,20,0.,10.,100,-TMath::Pi(),TMath::Pi()));
165
166   fOutputContainer->Add(new TH2F("cos2AC","RP correlation between TPC subs", 100,-1.,1.,20,0.,100.)) ;
167   fOutputContainer->Add(new TH2F("cos2V0AC","RP correlation between VO A and C sides", 100,-1.,1.,20,0.,100.)) ;
168   fOutputContainer->Add(new TH2F("cos2V0ATPC","RP correlation between TPC and V0A", 100,-1.,1.,20,0.,100.)) ;
169   fOutputContainer->Add(new TH2F("cos2V0CTPC","RP correlation between TPC and V0C", 100,-1.,1.,20,0.,100.)) ;
170
171   fOutputContainer->Add(new TH2F("phiRP","RP distribution with TPC", 100,0.,TMath::Pi(),20,0.,100.)) ;
172   fOutputContainer->Add(new TH2F("phiRPflat","RP distribution with TPC flat", 100,0.,TMath::Pi(),20,0.,100.)) ;
173   fOutputContainer->Add(new TH2F("phiRPV0A","RP distribution with V0A", 100,0.,TMath::Pi(),20,0.,100.)) ;
174   fOutputContainer->Add(new TH2F("phiRPV0C","RP distribution with V0C", 100,0.,TMath::Pi(),20,0.,100.)) ;
175   fOutputContainer->Add(new TH3F("phiRPV0AC","RP distribution with V0A and V0C", 100,0.,TMath::Pi(),100,0.,TMath::Pi(),20,0.,100.)) ;
176   fOutputContainer->Add(new TH2F("phiRPV0Aflat","RP distribution with V0 flat", 100,0.,TMath::Pi(),20,0.,100.)) ;
177   fOutputContainer->Add(new TH2F("phiRPV0Cflat","RP distribution with V0 flat", 100,0.,TMath::Pi(),20,0.,100.)) ;
178   fOutputContainer->Add(new TH3F("phiRPV0ATPC","RP distribution with V0A + TPC", 100,0.,TMath::Pi(),100,0.,TMath::Pi(),20,0.,100.)) ;
179   fOutputContainer->Add(new TH3F("phiRPV0CTPC","RP distribution with V0C + TPC", 100,0.,TMath::Pi(),100,0.,TMath::Pi(),20,0.,100.)) ;
180
181
182   //PHOS QA
183   fOutputContainer->Add(new TH1I("hCellMultEvent"  ,"PHOS cell multiplicity per event"    ,2000,0,2000));
184   fOutputContainer->Add(new TH1I("hCellMultEventM1","PHOS cell multiplicity per event, M1",2000,0,2000));
185   fOutputContainer->Add(new TH1I("hCellMultEventM2","PHOS cell multiplicity per event, M2",2000,0,2000));
186   fOutputContainer->Add(new TH1I("hCellMultEventM3","PHOS cell multiplicity per event, M3",2000,0,2000));
187
188   fOutputContainer->Add(new TH1F("hCellEnergy"  ,"Cell energy"            ,3000,0.,30.));
189   fOutputContainer->Add(new TH1F("hCellEnergyM1","Cell energy in module 1",3000,0.,30.));
190   fOutputContainer->Add(new TH1F("hCellEnergyM2","Cell energy in module 2",3000,0.,30.));
191   fOutputContainer->Add(new TH1F("hCellEnergyM3","Cell energy in module 3",3000,0.,30.));
192
193   fOutputContainer->Add(new TH2F("hCellNXZM1","Cell (X,Z), M1" ,64,0.5,64.5, 56,0.5,56.5));
194   fOutputContainer->Add(new TH2F("hCellNXZM2","Cell (X,Z), M2" ,64,0.5,64.5, 56,0.5,56.5));
195   fOutputContainer->Add(new TH2F("hCellNXZM3","Cell (X,Z), M3" ,64,0.5,64.5, 56,0.5,56.5));
196   fOutputContainer->Add(new TH2F("hCellEXZM1","Cell E(X,Z), M1",64,0.5,64.5, 56,0.5,56.5));
197   fOutputContainer->Add(new TH2F("hCellEXZM2","Cell E(X,Z), M2",64,0.5,64.5, 56,0.5,56.5));
198   fOutputContainer->Add(new TH2F("hCellEXZM3","Cell E(X,Z), M3",64,0.5,64.5, 56,0.5,56.5));
199
200   //Bad Map
201   fOutputContainer->Add(new TH2F("hCluLowM1","Cell (X,Z), M1" ,64,0.5,64.5, 56,0.5,56.5));
202   fOutputContainer->Add(new TH2F("hCluLowM2","Cell (X,Z), M2" ,64,0.5,64.5, 56,0.5,56.5));
203   fOutputContainer->Add(new TH2F("hCluLowM3","Cell (X,Z), M3" ,64,0.5,64.5, 56,0.5,56.5));
204
205   fOutputContainer->Add(new TH2F("hCluHighM1","Cell (X,Z), M1" ,64,0.5,64.5, 56,0.5,56.5));
206   fOutputContainer->Add(new TH2F("hCluHighM2","Cell (X,Z), M2" ,64,0.5,64.5, 56,0.5,56.5));
207   fOutputContainer->Add(new TH2F("hCluHighM3","Cell (X,Z), M3" ,64,0.5,64.5, 56,0.5,56.5));
208
209   fOutputContainer->Add(new TH2F("hCluVetoM1","Cell (X,Z), M1" ,64,0.5,64.5, 56,0.5,56.5));
210   fOutputContainer->Add(new TH2F("hCluVetoM2","Cell (X,Z), M2" ,64,0.5,64.5, 56,0.5,56.5));
211   fOutputContainer->Add(new TH2F("hCluVetoM3","Cell (X,Z), M3" ,64,0.5,64.5, 56,0.5,56.5));
212
213   fOutputContainer->Add(new TH2F("hCluDispM1","Cell (X,Z), M1" ,64,0.5,64.5, 56,0.5,56.5));
214   fOutputContainer->Add(new TH2F("hCluDispM2","Cell (X,Z), M2" ,64,0.5,64.5, 56,0.5,56.5));
215   fOutputContainer->Add(new TH2F("hCluDispM3","Cell (X,Z), M3" ,64,0.5,64.5, 56,0.5,56.5));
216
217
218   //Single photon and pi0 spectrum
219   const Int_t nPtPhot = 300 ;
220   const Double_t ptPhotMax = 30 ;
221   const Int_t nM       = 500;
222   const Double_t mMin  = 0.0;
223   const Double_t mMax  = 1.0;
224
225   //PHOS calibration QA
226   fOutputContainer->Add(new TH2F("hPi0M11","Pairs in modules",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
227   fOutputContainer->Add(new TH2F("hPi0M12","Pairs in modules",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
228   fOutputContainer->Add(new TH2F("hPi0M13","Pairs in modules",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
229   fOutputContainer->Add(new TH2F("hPi0M22","Pairs in modules",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
230   fOutputContainer->Add(new TH2F("hPi0M23","Pairs in modules",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
231   fOutputContainer->Add(new TH2F("hPi0M33","Pairs in modules",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
232
233   // Histograms for different centralities
234   char key[55] ;
235   for(Int_t cent=0; cent < fCentEdges.GetSize(); cent++){
236     snprintf(key,55,"hPhotAll_cen%d",cent) ;
237     fOutputContainer->Add(new TH1F(key,"All clusters",nPtPhot,0.,ptPhotMax));
238     snprintf(key,55,"hPhotAllcore_cen%d",cent) ;
239     fOutputContainer->Add(new TH1F(key,"All clusters",nPtPhot,0.,ptPhotMax));
240     snprintf(key,55,"hPhotAllwou_cen%d",cent) ;
241     fOutputContainer->Add(new TH1F(key,"All clusters",nPtPhot,0.,ptPhotMax));
242     snprintf(key,55,"hPhotDisp_cen%d",cent) ;
243     fOutputContainer->Add(new TH1F(key,"Disp clusters",nPtPhot,0.,ptPhotMax));
244     snprintf(key,55,"hPhotDisp2_cen%d",cent) ;
245     fOutputContainer->Add(new TH1F(key,"Disp clusters",nPtPhot,0.,ptPhotMax));
246     snprintf(key,55,"hPhotDispcore_cen%d",cent) ;
247     fOutputContainer->Add(new TH1F(key,"Disp clusters",nPtPhot,0.,ptPhotMax));
248     snprintf(key,55,"hPhotDispwou_cen%d",cent) ;
249     fOutputContainer->Add(new TH1F(key,"Disp clusters",nPtPhot,0.,ptPhotMax));
250     snprintf(key,55,"hPhotCPV_cen%d",cent) ;
251     fOutputContainer->Add(new TH1F(key,"CPV clusters",nPtPhot,0.,ptPhotMax));
252     snprintf(key,55,"hPhotCPVcore_cen%d",cent) ;
253     fOutputContainer->Add(new TH1F(key,"CPV clusters",nPtPhot,0.,ptPhotMax));
254     snprintf(key,55,"hPhotCPV2_cen%d",cent) ;
255     fOutputContainer->Add(new TH1F(key,"CPV clusters",nPtPhot,0.,ptPhotMax));
256     snprintf(key,55,"hPhotBoth_cen%d",cent) ;
257     fOutputContainer->Add(new TH1F(key,"Both clusters",nPtPhot,0.,ptPhotMax));
258     snprintf(key,55,"hPhotBothcore_cen%d",cent) ;
259     fOutputContainer->Add(new TH1F(key,"Both clusters",nPtPhot,0.,ptPhotMax));
260
261     snprintf(key,55,"hPi0All_cen%d",cent) ;
262     fOutputContainer->Add(new TH2F(key,"All clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
263     snprintf(key,55,"hPi0Allcore_cen%d",cent) ;
264     fOutputContainer->Add(new TH2F(key,"All clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
265     snprintf(key,55,"hPi0Allwou_cen%d",cent) ;
266     fOutputContainer->Add(new TH2F(key,"All clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
267     snprintf(key,55,"hPi0Disp_cen%d",cent) ;
268     fOutputContainer->Add(new TH2F(key,"Disp clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
269     snprintf(key,55,"hPi0Disp2_cen%d",cent) ;
270     fOutputContainer->Add(new TH2F(key,"Disp clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
271     snprintf(key,55,"hPi0Dispcore_cen%d",cent) ;
272     fOutputContainer->Add(new TH2F(key,"Disp clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
273     snprintf(key,55,"hPi0Dispwou_cen%d",cent) ;
274     fOutputContainer->Add(new TH2F(key,"Disp clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
275     snprintf(key,55,"hPi0CPV_cen%d",cent) ;
276     fOutputContainer->Add(new TH2F(key,"CPV clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
277     snprintf(key,55,"hPi0CPVcore_cen%d",cent) ;
278     fOutputContainer->Add(new TH2F(key,"CPV clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
279     snprintf(key,55,"hPi0CPV2_cen%d",cent) ;
280     fOutputContainer->Add(new TH2F(key,"CPV clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
281     snprintf(key,55,"hPi0Both_cen%d",cent) ;
282     fOutputContainer->Add(new TH2F(key,"Both clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
283     snprintf(key,55,"hPi0Bothcore_cen%d",cent) ;
284     fOutputContainer->Add(new TH2F(key,"Both clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
285
286     snprintf(key,55,"hPi0All_a07_cen%d",cent) ;
287     fOutputContainer->Add(new TH2F(key,"All clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
288     snprintf(key,55,"hPi0Disp_a07_cen%d",cent) ;
289     fOutputContainer->Add(new TH2F(key,"Disp clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
290     snprintf(key,55,"hPi0CPV_a07_cen%d",cent) ;
291     fOutputContainer->Add(new TH2F(key,"CPV clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
292     snprintf(key,55,"hPi0CPV2_a07_cen%d",cent) ;
293     fOutputContainer->Add(new TH2F(key,"CPV clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
294     snprintf(key,55,"hPi0Both_a07_cen%d",cent) ;
295     fOutputContainer->Add(new TH2F(key,"Both clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
296
297     snprintf(key,55,"hSingleAll_cen%d",cent) ;
298     fOutputContainer->Add(new TH2F(key,"All clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
299     snprintf(key,55,"hSingleAllcore_cen%d",cent) ;
300     fOutputContainer->Add(new TH2F(key,"All clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
301     snprintf(key,55,"hSingleAllwou_cen%d",cent) ;
302     fOutputContainer->Add(new TH2F(key,"All clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
303     snprintf(key,55,"hSingleDisp_cen%d",cent) ;
304     fOutputContainer->Add(new TH2F(key,"Disp clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
305     snprintf(key,55,"hSingleDisp2_cen%d",cent) ;
306     fOutputContainer->Add(new TH2F(key,"Disp clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
307     snprintf(key,55,"hSingleDispcore_cen%d",cent) ;
308     fOutputContainer->Add(new TH2F(key,"Disp clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
309     snprintf(key,55,"hSingleDispwou_cen%d",cent) ;
310     fOutputContainer->Add(new TH2F(key,"Disp clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
311     snprintf(key,55,"hSingleCPV_cen%d",cent) ;
312     fOutputContainer->Add(new TH2F(key,"CPV clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
313     snprintf(key,55,"hSingleCPVcore_cen%d",cent) ;
314     fOutputContainer->Add(new TH2F(key,"CPV clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
315     snprintf(key,55,"hSingleCPV2_cen%d",cent) ;
316     fOutputContainer->Add(new TH2F(key,"CPV clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
317     snprintf(key,55,"hSingleBoth_cen%d",cent) ;
318     fOutputContainer->Add(new TH2F(key,"Both clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
319     snprintf(key,55,"hSingleBothcore_cen%d",cent) ;
320     fOutputContainer->Add(new TH2F(key,"Both clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
321
322
323     snprintf(key,55,"hMiPi0All_cen%d",cent) ;
324     fOutputContainer->Add(new TH2F(key,"All clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
325     snprintf(key,55,"hMiPi0Allcore_cen%d",cent) ;
326     fOutputContainer->Add(new TH2F(key,"All clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
327     snprintf(key,55,"hMiPi0Allwou_cen%d",cent) ;
328     fOutputContainer->Add(new TH2F(key,"All clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
329     snprintf(key,55,"hMiPi0Disp_cen%d",cent) ;
330     fOutputContainer->Add(new TH2F(key,"Disp clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
331     snprintf(key,55,"hMiPi0Disp2_cen%d",cent) ;
332     fOutputContainer->Add(new TH2F(key,"Disp clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
333     snprintf(key,55,"hMiPi0Dispwou_cen%d",cent) ;
334     fOutputContainer->Add(new TH2F(key,"Disp clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
335     snprintf(key,55,"hMiPi0Dispcore_cen%d",cent) ;
336     fOutputContainer->Add(new TH2F(key,"Disp clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
337     snprintf(key,55,"hMiPi0CPV_cen%d",cent) ;
338     fOutputContainer->Add(new TH2F(key,"CPV clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
339     snprintf(key,55,"hMiPi0CPVcore_cen%d",cent) ;
340     fOutputContainer->Add(new TH2F(key,"CPV clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
341     snprintf(key,55,"hMiPi0CPV2_cen%d",cent) ;
342     fOutputContainer->Add(new TH2F(key,"CPV clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
343     snprintf(key,55,"hMiPi0Both_cen%d",cent) ;
344     fOutputContainer->Add(new TH2F(key,"Both clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
345     snprintf(key,55,"hMiPi0Bothcore_cen%d",cent) ;
346     fOutputContainer->Add(new TH2F(key,"Both clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
347
348     snprintf(key,55,"hMiPi0All_a07_cen%d",cent) ;
349     fOutputContainer->Add(new TH2F(key,"All clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
350     snprintf(key,55,"hMiPi0Disp_a07_cen%d",cent) ;
351     fOutputContainer->Add(new TH2F(key,"Disp clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
352     snprintf(key,55,"hMiPi0CPV_a07_cen%d",cent) ;
353     fOutputContainer->Add(new TH2F(key,"CPV clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
354     snprintf(key,55,"hMiPi0CPV2_a07_cen%d",cent) ;
355     fOutputContainer->Add(new TH2F(key,"CPV clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
356     snprintf(key,55,"hMiPi0Both_a07_cen%d",cent) ;
357     fOutputContainer->Add(new TH2F(key,"Both clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
358
359     snprintf(key,55,"hMiSingleAll_cen%d",cent) ;
360     fOutputContainer->Add(new TH2F(key,"All clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
361     snprintf(key,55,"hMiSingleAllwou_cen%d",cent) ;
362     fOutputContainer->Add(new TH2F(key,"All clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
363     snprintf(key,55,"hMiSingleAllcore_cen%d",cent) ;
364     fOutputContainer->Add(new TH2F(key,"All clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
365     snprintf(key,55,"hMiSingleDisp_cen%d",cent) ;
366     fOutputContainer->Add(new TH2F(key,"Disp clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
367     snprintf(key,55,"hMiSingleDisp2_cen%d",cent) ;
368     fOutputContainer->Add(new TH2F(key,"Disp clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
369     snprintf(key,55,"hMiSingleDispwou_cen%d",cent) ;
370     fOutputContainer->Add(new TH2F(key,"Disp clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
371     snprintf(key,55,"hMiSingleDispcore_cen%d",cent) ;
372     fOutputContainer->Add(new TH2F(key,"Disp clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
373     snprintf(key,55,"hMiSingleCPV_cen%d",cent) ;
374     fOutputContainer->Add(new TH2F(key,"CPV clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
375     snprintf(key,55,"hMiSingleCPVcore_cen%d",cent) ;
376     fOutputContainer->Add(new TH2F(key,"CPV clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
377     snprintf(key,55,"hMiSingleCPV2_cen%d",cent) ;
378     fOutputContainer->Add(new TH2F(key,"CPV clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
379     snprintf(key,55,"hMiSingleBoth_cen%d",cent) ;
380     fOutputContainer->Add(new TH2F(key,"Both clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
381     snprintf(key,55,"hMiSingleBothcore_cen%d",cent) ;
382     fOutputContainer->Add(new TH2F(key,"Both clusters",nM,mMin,mMax,nPtPhot,0.,ptPhotMax));
383   }
384
385
386
387   const Int_t nPt      = 20;
388   const Double_t xPt[21]={0.6,1.,1.5,2.,2.5,3.,3.5,4.,4.5,5.,5.5,6.,7.,8.,9.,10.,12.,14.,16.,18.,20.} ;
389   const Int_t nPhi=10 ;
390   Double_t xPhi[nPhi+1] ;
391   for(Int_t i=0;i<=nPhi;i++)
392     xPhi[i]=i*TMath::Pi() /nPhi ;
393   const Int_t nMm=200 ;
394   Double_t xM[nMm+1] ;
395   for(Int_t i=0;i<=nMm;i++)
396     xM[i]=i*0.5 /nMm;
397
398   char phiTitle[15] ;
399   for(Int_t iRP=0; iRP<3; iRP++){
400     if(iRP==0)
401       snprintf(phiTitle,15,"TPC") ;
402     if(iRP==1)
403       snprintf(phiTitle,15,"V0A") ;
404     if(iRP==2)
405       snprintf(phiTitle,15,"V0C") ;
406     for(Int_t cent=0; cent<fCentEdges.GetSize(); cent++){
407       snprintf(key,55,"hPhotPhi%sAll_cen%d",phiTitle,cent) ;
408       fOutputContainer->Add(new TH2F(key,"(M,p_{T},d#phi)_{#gamma#gamma}" ,nPt,xPt,nPhi,xPhi));
409       snprintf(key,55,"hPhotPhi%sAllcore_cen%d",phiTitle,cent) ;
410       fOutputContainer->Add(new TH2F(key,"(M,p_{T},d#phi)_{#gamma#gamma}" ,nPt,xPt,nPhi,xPhi));
411       snprintf(key,55,"hPhotPhi%sDisp_cen%d",phiTitle,cent) ;
412       fOutputContainer->Add(new TH2F(key,"(M,p_{T},d#phi)_{#gamma#gamma}" ,nPt,xPt,nPhi,xPhi));
413       snprintf(key,55,"hPhotPhi%sDispcore_cen%d",phiTitle,cent) ;
414       fOutputContainer->Add(new TH2F(key,"(M,p_{T},d#phi)_{#gamma#gamma}" ,nPt,xPt,nPhi,xPhi));
415       snprintf(key,55,"hPhotPhi%sCPV_cen%d",phiTitle,cent) ;
416       fOutputContainer->Add(new TH2F(key,"(M,p_{T},d#phi)_{#gamma#gamma}" ,nPt,xPt,nPhi,xPhi));
417       snprintf(key,55,"hPhotPhi%sCPVcore_cen%d",phiTitle,cent) ;
418       fOutputContainer->Add(new TH2F(key,"(M,p_{T},d#phi)_{#gamma#gamma}" ,nPt,xPt,nPhi,xPhi));
419       snprintf(key,55,"hPhotPhi%sBoth_cen%d",phiTitle,cent) ;
420       fOutputContainer->Add(new TH2F(key,"(M,p_{T},d#phi)_{#gamma#gamma}" ,nPt,xPt,nPhi,xPhi));
421       snprintf(key,55,"hPhotPhi%sBothcore_cen%d",phiTitle,cent) ;
422       fOutputContainer->Add(new TH2F(key,"(M,p_{T},d#phi)_{#gamma#gamma}" ,nPt,xPt,nPhi,xPhi));
423
424       //Pions
425       snprintf(key,55,"hMassPt%sAll_cen%d",phiTitle,cent) ;
426       fOutputContainer->Add(new TH3F(key,"(M,p_{T},d#phi)_{#gamma#gamma}" ,nMm,xM,nPt,xPt,nPhi,xPhi));
427       snprintf(key,55,"hMassPt%sAllcore_cen%d",phiTitle,cent) ;
428       fOutputContainer->Add(new TH3F(key,"(M,p_{T},d#phi)_{#gamma#gamma}" ,nMm,xM,nPt,xPt,nPhi,xPhi));
429       snprintf(key,55,"hMassPt%sCPV_cen%d",phiTitle,cent) ;
430       fOutputContainer->Add(new TH3F(key,"(M,p_{T},d#phi)_{#gamma#gamma}" ,nMm,xM,nPt,xPt,nPhi,xPhi));
431       snprintf(key,55,"hMassPt%sCPVcore_cen%d",phiTitle,cent) ;
432       fOutputContainer->Add(new TH3F(key,"(M,p_{T},d#phi)_{#gamma#gamma}" ,nMm,xM,nPt,xPt,nPhi,xPhi));
433       snprintf(key,55,"hMassPt%sDisp_cen%d",phiTitle,cent) ;
434       fOutputContainer->Add(new TH3F(key,"(M,p_{T},d#phi)_{#gamma#gamma}" ,nMm,xM,nPt,xPt,nPhi,xPhi));
435       snprintf(key,55,"hMassPt%sDispcore_cen%d",phiTitle,cent) ;
436       fOutputContainer->Add(new TH3F(key,"(M,p_{T},d#phi)_{#gamma#gamma}" ,nMm,xM,nPt,xPt,nPhi,xPhi));
437       snprintf(key,55,"hMassPt%sBoth_cen%d",phiTitle,cent) ;
438       fOutputContainer->Add(new TH3F(key,"(M,p_{T},d#phi)_{#gamma#gamma}" ,nMm,xM,nPt,xPt,nPhi,xPhi));
439       snprintf(key,55,"hMassPt%sBothcore_cen%d",phiTitle,cent) ;
440       fOutputContainer->Add(new TH3F(key,"(M,p_{T},d#phi)_{#gamma#gamma}" ,nMm,xM,nPt,xPt,nPhi,xPhi));
441
442       //Mixed
443       snprintf(key,55,"hMiMassPt%sAll_cen%d",phiTitle,cent) ;
444       fOutputContainer->Add(new TH3F(key,"(M,p_{T},d#phi)_{#gamma#gamma}" ,nMm,xM,nPt,xPt,nPhi,xPhi));
445       snprintf(key,55,"hMiMassPt%sAllcore_cen%d",phiTitle,cent) ;
446       fOutputContainer->Add(new TH3F(key,"(M,p_{T},d#phi)_{#gamma#gamma}" ,nMm,xM,nPt,xPt,nPhi,xPhi));
447       snprintf(key,55,"hMiMassPt%sCPV_cen%d",phiTitle,cent) ;
448       fOutputContainer->Add(new TH3F(key,"(M,p_{T},d#phi)_{#gamma#gamma}" ,nMm,xM,nPt,xPt,nPhi,xPhi));
449       snprintf(key,55,"hMiMassPt%sCPVcore_cen%d",phiTitle,cent) ;
450       fOutputContainer->Add(new TH3F(key,"(M,p_{T},d#phi)_{#gamma#gamma}" ,nMm,xM,nPt,xPt,nPhi,xPhi));
451       snprintf(key,55,"hMiMassPt%sDisp_cen%d",phiTitle,cent) ;
452       fOutputContainer->Add(new TH3F(key,"(M,p_{T},d#phi)_{#gamma#gamma}" ,nMm,xM,nPt,xPt,nPhi,xPhi));
453       snprintf(key,55,"hMiMassPt%sDispcore_cen%d",phiTitle,cent) ;
454       fOutputContainer->Add(new TH3F(key,"(M,p_{T},d#phi)_{#gamma#gamma}" ,nMm,xM,nPt,xPt,nPhi,xPhi));
455       snprintf(key,55,"hMiMassPt%sBoth_cen%d",phiTitle,cent) ;
456       fOutputContainer->Add(new TH3F(key,"(M,p_{T},d#phi)_{#gamma#gamma}" ,nMm,xM,nPt,xPt,nPhi,xPhi));
457       snprintf(key,55,"hMiMassPt%sBothcore_cen%d",phiTitle,cent) ;
458       fOutputContainer->Add(new TH3F(key,"(M,p_{T},d#phi)_{#gamma#gamma}" ,nMm,xM,nPt,xPt,nPhi,xPhi));
459     }
460   }
461   
462   // Setup photon lists
463   Int_t kapacity = kNVtxZBins * GetNumberOfCentralityBins() * fNEMRPBins;
464   fCaloPhotonsPHOSLists = new TObjArray(kapacity);
465   fCaloPhotonsPHOSLists->SetOwner();
466   
467   PostData(1, fOutputContainer);
468 }
469
470 //________________________________________________________________________
471 void AliAnalysisTaskPi0Flow::UserExec(Option_t *)
472 {
473   // Main loop, called for each event
474   // Analyze ESD/AOD
475
476
477   // Step 0: Event Objects
478   fEvent = GetEvent();
479   fEventESD = dynamic_cast<AliESDEvent*> (fEvent);
480   fEventAOD = dynamic_cast<AliAODEvent*> (fEvent);
481   fMCStack = GetMCStack();
482   LogProgress(0, ConvertToInternalRunNumber(fEvent->GetRunNumber()));
483
484
485   // Step 1: Run Number, Misalignment Matrix, and Calibration
486   // fRunNumber, fInternalRunNumber, fMultV0, fV0Cpol, fV0Apol, fMeanQ, fWidthQ
487   if( fRunNumber != fEvent->GetRunNumber()) { // Check run number
488     // this should run only at first call of UserExec(),
489     // or if task runs over multiple runs, which should not occur in normal use.
490
491     // if run number has changed, set run variables
492     fRunNumber = fEvent->GetRunNumber();
493     fInternalRunNumber = ConvertToInternalRunNumber(fRunNumber);
494     // then set misalignment and V0 calibration
495     SetGeometry();
496     SetMisalignment();
497     SetV0Calibration();
498     SetESDTrackCuts();
499     SetPHOSCalibData();
500   }
501   LogProgress(1, fInternalRunNumber);
502
503
504   // Step 2: Vertex
505   // fVertex, fVertexVector, fVtxBin
506   SetVertex();
507   if( RejectEventVertex() ) {
508     PostData(1, fOutputContainer);
509     return; // Reject!
510   }
511   LogProgress(2, fInternalRunNumber);
512
513 // Step 3:
514 //   if(event->IsPileupFromSPD()){
515 //     PostData(1, fOutputContainer);
516 //     return; // Reject!
517 //   }
518   LogProgress(3, fInternalRunNumber);
519
520
521   // Step 4: Centrality
522   // fCentralityV0M, fCentBin
523   SetCentrality();
524   if( RejectCentrality() ){
525     PostData(1, fOutputContainer);
526     return; // Reject! 
527   }
528   LogProgress(4, fInternalRunNumber);
529
530
531   // Step 5: Reaction Plane
532   // fHaveTPCRP, fRP, fRPV0A, fRPV0C, fRPBin
533   EvalReactionPlane(); //TODO: uncomment this, or at least deal with it
534   EvalV0ReactionPlane(); //TODO: uncomment this, or at least deal with it
535   fEMRPBin = GetRPBin(); //TODO: uncomment this, or at least deal with it
536   LogProgress(5, fInternalRunNumber);
537
538
539   // Step 6: MC
540   //  ProcessMC() ;
541   LogProgress(6, fInternalRunNumber);
542
543
544   // Step 7: QA PHOS cells
545   FillPHOSCellQAHists();
546   LogProgress(7, fInternalRunNumber);
547
548
549   // Step 8: Event Photons (PHOS Clusters) selection
550   SelectPhotonClusters();
551   FillSelectedClusterHistograms();
552   LogProgress(8, fInternalRunNumber);
553
554   // Step 9: Consider pi0 (photon/cluster) pairs.
555   ConsiderPi0s();
556   LogProgress(9, fInternalRunNumber);
557
558   // Step 10; Mixing
559   ConsiderPi0sMix();
560   LogProgress(10, fInternalRunNumber);
561   
562   // Step 11: Update lists
563   UpdateLists();
564   LogProgress(11,fInternalRunNumber);
565
566   
567   // Post output data.
568   PostData(1, fOutputContainer);
569 }
570
571 //________________________________________________________________________
572 void AliAnalysisTaskPi0Flow::Terminate(Option_t *)
573 {
574   // Draw result to the screen
575   // Called once at the end of the query
576   new TCanvas;
577   TH1 * hTotSelEvents = dynamic_cast<TH1*>(fOutputContainer->FindObject("hTotSelEvents"));
578   hTotSelEvents->Draw();
579 }
580 //________________________________________________________________________
581 void AliAnalysisTaskPi0Flow::SetCentralityBinning(const TArrayD& edges)
582 {
583   int last = edges.GetSize()-1;
584   if( edges.At(0) < 0.) 
585     AliError("lower edge less then 0");
586   if( 90. < edges.At(last)  )
587     AliError("upper edge larger then 90.");
588   for(int i=0; i<last-1; ++i)
589     if(edges.At(i) > edges.At(i+1))
590       AliError("edges are not sorted");
591   
592   fCentEdges = edges;
593 }
594
595 //________________________________________________________________________
596 void AliAnalysisTaskPi0Flow::SetPHOSBadMap(Int_t mod, TH2I* badMapHist)
597   {
598     if(fPHOSBadMap[mod])
599       delete fPHOSBadMap[mod];
600
601     fPHOSBadMap[mod]=new TH2I(*badMapHist);
602     if(fDebug)
603       AliInfo(Form("Setting Bad Map Histogram  %s",fPHOSBadMap[mod]->GetName()));
604   }
605
606 //________________________________________________________________________
607 Bool_t AliAnalysisTaskPi0Flow::IsGoodChannel(const char * det, Int_t mod, Int_t ix, Int_t iz)
608 {
609   //Check if this channel belogs to the good ones
610
611   if(strcmp(det,"PHOS")==0){
612     if(mod>5 || mod<1){
613       AliError(Form("No bad map for PHOS module %d",mod)) ;
614       return kTRUE ;
615     }
616     if(!fPHOSBadMap[mod]){
617       AliError(Form("No Bad map for PHOS module %d, !fPHOSBadMap[mod]",mod)) ;
618       return kTRUE ;
619     }
620     if(fPHOSBadMap[mod]->GetBinContent(ix,iz)>0)
621       return kFALSE ;
622     else
623       return kTRUE ;
624   }
625   else{
626     AliError(Form("Can not find bad channels for detector %s ",det)) ;
627   }
628
629   //Remove 6 noisy channels in run 139036, LHC10h
630   if( 139036 == fRunNumber
631     && mod==1
632     && (ix==9||ix==10||ix==11)
633     && (iz==45 || iz==46))
634     return kFALSE;
635
636   return kTRUE ;
637 }
638 //_____________________________________________________________________________
639 void AliAnalysisTaskPi0Flow::FillPHOSCellQAHists()
640 {
641   AliVCaloCells * cells = fEvent->GetPHOSCells();
642
643   FillHistogram("hCenPHOSCells",fCentralityV0M,cells->GetNumberOfCells()) ;
644   FillHistogram("hCenTrack",fCentralityV0M,fEvent->GetNumberOfTracks()) ;
645
646
647   Int_t nCellModule[3] = {0,0,0};
648   for (Int_t iCell=0; iCell<cells->GetNumberOfCells(); iCell++) {
649     Int_t cellAbsId = cells->GetCellNumber(iCell);
650     Int_t relId[4] = {0,0,0,0};
651     fPHOSGeo->AbsToRelNumbering(cellAbsId,relId);
652     Int_t mod1  = relId[0];
653     Int_t cellX = relId[2];
654     Int_t cellZ = relId[3] ;
655     Float_t energy = cells->GetAmplitude(iCell);
656     FillHistogram("hCellEnergy",energy);
657     if(mod1==1) {
658       nCellModule[0]++;
659       FillHistogram("hCellEnergyM1",cells->GetAmplitude(iCell));
660       FillHistogram("hCellNXZM1",cellX,cellZ,1.);
661       FillHistogram("hCellEXZM1",cellX,cellZ,energy);
662     }
663     else if (mod1==2) {
664       nCellModule[1]++;
665       FillHistogram("hCellEnergyM2",cells->GetAmplitude(iCell));
666       FillHistogram("hCellNXZM2",cellX,cellZ,1.);
667       FillHistogram("hCellEXZM2",cellX,cellZ,energy);
668     }
669     else if (mod1==3) {
670       nCellModule[2]++;
671       FillHistogram("hCellEnergyM3",cells->GetAmplitude(iCell));
672       FillHistogram("hCellNXZM3",cellX,cellZ,1.);
673       FillHistogram("hCellEXZM3",cellX,cellZ,energy);
674     }
675   }
676   FillHistogram("hCellMultEventM1",nCellModule[0]);
677   FillHistogram("hCellMultEventM2",nCellModule[1]);
678   FillHistogram("hCellMultEventM3",nCellModule[2]);
679
680 }
681 //_____________________________________________________________________________
682 void AliAnalysisTaskPi0Flow::SelectPhotonClusters()
683 {
684   // clear (or create) array for holding events photons/clusters
685   if(fCaloPhotonsPHOS)
686     fCaloPhotonsPHOS->Clear();
687   else {
688     fCaloPhotonsPHOS = new TObjArray(200);
689     fCaloPhotonsPHOS->SetOwner();
690   }
691
692   
693   AliESDCaloCells* esdCells = dynamic_cast<AliESDCaloCells*> (fEvent->GetPHOSCells());
694   for (Int_t i=0; i<fEvent->GetNumberOfCaloClusters(); i++) {
695     AliVCluster *clu = fEvent->GetCaloCluster(i);
696
697     if ( !clu->IsPHOS() || clu->E()< kMinClusterEnergy) continue; // reject cluster
698
699     // check if cell/channel is good.
700     Float_t  position[3];
701     clu->GetPosition(position);
702     TVector3 global(position) ;
703     Int_t relId[4] ;
704     fPHOSGeo->GlobalPos2RelId(global,relId) ;
705     Int_t mod  = relId[0] ;
706     Int_t cellX = relId[2];
707     Int_t cellZ = relId[3] ;
708     if ( !IsGoodChannel("PHOS",mod,cellX,cellZ) )
709       continue ; // reject if not.
710
711
712     FillHistogram("hCluEvsClu", clu->E(), clu->GetNCells()) ;
713
714     if(clu->GetNCells() < kMinNCells) continue ;
715     if(clu->GetM02() < kMinM02)   continue ;
716
717     TLorentzVector lorentzMomentum;
718     Double_t ecore;
719
720     //if ESD, Apply re-Calibreation
721     Double_t origo[3] = {0,0,0}; // don't rely on event vertex, assume (0,0,0)
722     if( fEventESD ) {
723       AliPHOSEsdCluster cluPHOS1( *(AliESDCaloCluster*) (clu) );
724       cluPHOS1.Recalibrate(fPHOSCalibData, esdCells); // modify the cell energies
725       Reclusterize(&cluPHOS1) ;
726       cluPHOS1.EvalAll(kLogWeight, fVertexVector);         // recalculate the cluster parameters
727       cluPHOS1.SetE(fNonLinCorr->Eval(cluPHOS1.E()));// Users's nonlinearity
728
729       if(cluPHOS1.E()<0.3) continue; // check energy again
730
731       //correct misalignment
732       TVector3 localPos;
733       const Float_t shiftX[6]={0.,-2.3,-2.11,-1.53,0.,0.} ;
734       const Float_t shiftZ[6]={0.,-0.4, 0.52, 0.8,0.,0.} ;
735       fPHOSGeo->Global2Local(localPos,global,mod) ;
736       fPHOSGeo->Local2Global(mod,localPos.X()+shiftX[mod],localPos.Z()+shiftZ[mod],global);
737       position[0]=global.X() ;
738       position[1]=global.Y() ;
739       position[2]=global.Z() ;
740       cluPHOS1.SetPosition(position);
741
742       cluPHOS1.GetMomentum(lorentzMomentum ,origo);
743       ecore = CoreEnergy(&cluPHOS1);
744       
745       //TODO: Check, this may be LHC10h specific:
746       if(mod==2) lorentzMomentum*=135.5/134.0 ;
747       if(mod==3) lorentzMomentum*=135.5/137.2 ;
748       if(mod==2) ecore*=135.5/134.0 ;
749       if(mod==3) ecore*=135.5/137.2 ;
750         
751     }
752     else if (fEventAOD) { // is ! ESD, AOD.
753       AliESDCaloCluster* aodCluster = (AliESDCaloCluster*) (clu);
754       aodCluster->GetMomentum(lorentzMomentum ,origo);
755       ecore = CoreEnergy(clu);
756     }
757     else {
758       AliError("(Calo)Cluster is neither ESD nor AOD");
759       continue;
760     }
761
762
763     char skey[55];
764     snprintf(skey,55,"hCluLowM%d",mod) ;
765     FillHistogram(skey,cellX,cellZ,1.);
766     if(lorentzMomentum.E()>1.5){
767       sprintf(skey,"hCluHighM%d",mod) ;
768       FillHistogram(skey,cellX,cellZ,1.);
769     }
770
771     fCaloPhotonsPHOS->Add(new  AliCaloPhoton(lorentzMomentum.X(),lorentzMomentum.Py(),lorentzMomentum.Z(),lorentzMomentum.E()) );
772     AliCaloPhoton * ph = (AliCaloPhoton*) fCaloPhotonsPHOS->At( fCaloPhotonsPHOS->GetLast() );
773
774     ph->SetModule(mod) ;
775     lorentzMomentum*= ecore/lorentzMomentum.E() ;
776     ph->SetMomV2(&lorentzMomentum) ;
777     ph->SetNCells(clu->GetNCells());
778     ph->SetDispBit(TestLambda(clu->E(),clu->GetM20(),clu->GetM02())) ;
779     ph->SetDisp2Bit(TestLambda2(clu->E(),clu->GetM20(),clu->GetM02())) ;
780     if(ph->IsDispOK()){
781       sprintf(skey,"hCluDispM%d",mod) ;
782       FillHistogram(skey,cellX,cellZ,1.);
783     }
784
785     // Track Matching
786     Double_t dx=clu->GetTrackDx() ;
787     Double_t dz=clu->GetTrackDz() ;
788     Bool_t cpvBit=kTRUE ; //No track matched by default
789     Bool_t cpvBit2=kTRUE ; //More Strict criterion
790     if( fEventESD ) {
791       
792       TArrayI * itracks = static_cast<AliESDCaloCluster*> (clu)->GetTracksMatched() ;
793       if(itracks->GetSize()>0){
794         Int_t iTr = itracks->At(0);
795         if(iTr>=0 && iTr<fEvent->GetNumberOfTracks()){
796           AliVParticle* track = fEvent->GetTrack(iTr);
797           Double_t pt = track->Pt() ;
798           Short_t charge = track->Charge() ;
799           Double_t r=TestCPV(dx, dz, pt, charge) ;
800           cpvBit=(r>2.) ;
801           cpvBit2=(r>4.) ;
802         }
803       }
804     }
805     else if ( fEventAOD ) {
806       int nTracksMatched = clu->GetNTracksMatched();
807       if(nTracksMatched > 0) {
808         AliVTrack* track = dynamic_cast<AliVTrack*> (clu->GetTrackMatched(0));
809         if ( track ) {
810           Double_t pt = track->Pt();
811           Short_t charge = track->Charge();
812           Double_t r = TestCPV(dx, dz, pt, charge) ;
813           cpvBit=(r>2.) ;
814           cpvBit2=(r>4.) ;
815         }
816       }
817     }
818     ph->SetCPVBit(cpvBit) ;
819     ph->SetCPV2Bit(cpvBit2) ;
820     if(cpvBit){
821       sprintf(skey,"hCluVetoM%d",mod) ;
822       FillHistogram(skey,cellX,cellZ,1.);
823     }
824     ph->SetEMCx(float(cellX)) ;
825     ph->SetEMCz(float(cellZ)) ;
826     //    ph->SetLambdas(clu->GetM20(),clu->GetM02()) ;
827     ph->SetUnfolded(clu->GetNExMax()<2); // Remember, if it is unfolde
828
829   }
830   FillHistogram("hCenPHOS",fCentralityV0M, fCaloPhotonsPHOS->GetEntriesFast()) ;
831 }
832 //_____________________________________________________________________________
833 void AliAnalysisTaskPi0Flow::FillSelectedClusterHistograms()
834 {
835   for (Int_t i1=0; i1<fCaloPhotonsPHOS->GetEntriesFast(); i1++) {
836     AliCaloPhoton * ph1=(AliCaloPhoton*)fCaloPhotonsPHOS->At(i1) ;
837
838     Double_t dphiA=ph1->Phi()-fRPV0A ;
839     while(dphiA<0)dphiA+=TMath::Pi() ;
840     while(dphiA>TMath::Pi())dphiA-=TMath::Pi() ;
841
842     Double_t dphiC=ph1->Phi()-fRPV0C ;
843     while(dphiC<0)dphiC+=TMath::Pi() ;
844     while(dphiC>TMath::Pi())dphiC-=TMath::Pi() ;
845
846     Double_t dphiT=ph1->Phi()-fRP ;
847     while(dphiT<0)dphiT+=TMath::Pi() ;
848     while(dphiT>TMath::Pi())dphiT-=TMath::Pi() ;
849
850     FillHistogram(Form("hPhotPhiV0AAll_cen%d",fCentBin),ph1->Pt(),dphiA) ;
851     FillHistogram(Form("hPhotPhiV0CAll_cen%d",fCentBin),ph1->Pt(),dphiC) ;
852     if(fHaveTPCRP)
853       FillHistogram(Form("hPhotPhiTPCAll_cen%d",fCentBin),ph1->Pt(),dphiT) ;
854
855     FillHistogram(Form("hPhotAll_cen%d",fCentBin),ph1->Pt()) ;
856     FillHistogram(Form("hPhotAllcore_cen%d",fCentBin),ph1->GetMomV2()->Pt()) ;
857     if(ph1->IsntUnfolded()){
858       FillHistogram(Form("hPhotAllwou_cen%d",fCentBin),ph1->Pt()) ;
859     }
860     if(ph1->IsCPVOK()){
861       FillHistogram(Form("hPhotPhiV0ACPV_cen%d",fCentBin),ph1->Pt(),dphiA) ;
862       FillHistogram(Form("hPhotPhiV0CCPV_cen%d",fCentBin),ph1->Pt(),dphiC) ;
863       if(fHaveTPCRP)
864         FillHistogram(Form("hPhotPhiTPCCPV_cen%d",fCentBin),ph1->Pt(),dphiT) ;
865
866       FillHistogram(Form("hPhotPhiV0ACPVcore_cen%d",fCentBin),ph1->GetMomV2()->Pt(),dphiA) ;
867       FillHistogram(Form("hPhotPhiV0CCPVcore_cen%d",fCentBin),ph1->GetMomV2()->Pt(),dphiC) ;
868       if(fHaveTPCRP)
869         FillHistogram(Form("hPhotPhiTPCCPVcore_cen%d",fCentBin),ph1->GetMomV2()->Pt(),dphiT) ;
870
871       FillHistogram(Form("hPhotCPV_cen%d",fCentBin),ph1->Pt()) ;
872       FillHistogram(Form("hPhotCPVcore_cen%d",fCentBin),ph1->GetMomV2()->Pt()) ;
873     }
874     if(ph1->IsCPV2OK()){
875       FillHistogram(Form("hPhotCPV2_cen%d",fCentBin),ph1->Pt()) ;
876     }
877     if(ph1->IsDispOK()){
878       FillHistogram(Form("hPhotPhiV0ADisp_cen%d",fCentBin),ph1->Pt(),dphiA) ;
879       FillHistogram(Form("hPhotPhiV0CDisp_cen%d",fCentBin),ph1->Pt(),dphiC) ;
880       if(fHaveTPCRP)
881         FillHistogram(Form("hPhotPhiTPCDisp_cen%d",fCentBin),ph1->Pt(),dphiT) ;
882
883       FillHistogram(Form("hPhotPhiV0ADispcore_cen%d",fCentBin),ph1->GetMomV2()->Pt(),dphiA) ;
884       FillHistogram(Form("hPhotPhiV0CDispcore_cen%d",fCentBin),ph1->GetMomV2()->Pt(),dphiC) ;
885       if(fHaveTPCRP)
886         FillHistogram(Form("hPhotPhiTPCDispcore_cen%d",fCentBin),ph1->GetMomV2()->Pt(),dphiT) ;
887
888       FillHistogram(Form("hPhotDisp_cen%d",fCentBin),ph1->Pt()) ;
889       if(ph1->IsDisp2OK()){
890         FillHistogram(Form("hPhotDisp2_cen%d",fCentBin),ph1->Pt()) ;
891       }
892       FillHistogram(Form("hPhotDispcore_cen%d",fCentBin),ph1->GetMomV2()->Pt()) ;
893       if(ph1->IsntUnfolded()){
894         FillHistogram(Form("hPhotDispwou_cen%d",fCentBin),ph1->Pt()) ;
895       }
896       if(ph1->IsCPVOK()){
897         FillHistogram(Form("hPhotPhiV0ABoth_cen%d",fCentBin),ph1->Pt(),dphiA) ;
898         FillHistogram(Form("hPhotPhiV0CBoth_cen%d",fCentBin),ph1->Pt(),dphiC) ;
899         if(fHaveTPCRP)
900           FillHistogram(Form("hPhotPhiTPCBoth_cen%d",fCentBin),ph1->Pt(),dphiT) ;
901
902         FillHistogram(Form("hPhotPhiV0ABothcore_cen%d",fCentBin),ph1->GetMomV2()->Pt(),dphiA) ;
903         FillHistogram(Form("hPhotPhiV0CBothcore_cen%d",fCentBin),ph1->GetMomV2()->Pt(),dphiC) ;
904         if(fHaveTPCRP)
905           FillHistogram(Form("hPhotPhiTPCBothcore_cen%d",fCentBin),ph1->GetMomV2()->Pt(),dphiT) ;
906
907         FillHistogram(Form("hPhotBoth_cen%d",fCentBin),ph1->Pt()) ;
908         FillHistogram(Form("hPhotBothcore_cen%d",fCentBin),ph1->GetMomV2()->Pt()) ;
909       }
910     }
911   }
912 }
913 //_____________________________________________________________________________
914 void AliAnalysisTaskPi0Flow::ConsiderPi0s()
915 {
916   char key[55];
917   for (Int_t i1=0; i1 < fCaloPhotonsPHOS->GetEntriesFast()-1; i1++) {
918     AliCaloPhoton * ph1=(AliCaloPhoton*)fCaloPhotonsPHOS->At(i1) ;
919     for (Int_t i2=i1+1; i2<fCaloPhotonsPHOS->GetEntriesFast(); i2++) {
920       AliCaloPhoton * ph2=(AliCaloPhoton*)fCaloPhotonsPHOS->At(i2) ;
921       TLorentzVector p12  = *ph1  + *ph2;
922       TLorentzVector pv12 = *(ph1->GetMomV2()) + *(ph2->GetMomV2());
923       FillHistogram("hPHOSphi",fCentralityV0M,p12.Pt(),p12.Phi());
924       Double_t dphiA=p12.Phi()-fRPV0A ;
925       while(dphiA<0)dphiA+=TMath::Pi() ;
926       while(dphiA>TMath::Pi())dphiA-=TMath::Pi() ;
927
928       Double_t dphiC=p12.Phi()-fRPV0C ;
929       while(dphiC<0)dphiC+=TMath::Pi() ;
930       while(dphiC>TMath::Pi())dphiC-=TMath::Pi() ;
931
932       Double_t dphiT=p12.Phi()-fRP ;
933       while(dphiT<0)dphiT+=TMath::Pi() ;
934       while(dphiT>TMath::Pi())dphiT-=TMath::Pi() ;
935
936       Double_t a=TMath::Abs((ph1->E()-ph2->E())/(ph1->E()+ph2->E())) ;
937
938       FillHistogram(Form("hMassPtV0AAll_cen%d",fCentBin),p12.M() ,p12.Pt(),dphiA) ;
939       FillHistogram(Form("hMassPtV0CAll_cen%d",fCentBin),p12.M() ,p12.Pt(),dphiC) ;
940       if(fHaveTPCRP)
941         FillHistogram(Form("hMassPtTPCAll_cen%d",fCentBin),p12.M() ,p12.Pt(),dphiT) ;
942
943       FillHistogram(Form("hMassPtV0AAllcore_cen%d",fCentBin),pv12.M() ,pv12.Pt(),dphiA) ;
944       FillHistogram(Form("hMassPtV0CAllcore_cen%d",fCentBin),pv12.M() ,pv12.Pt(),dphiC) ;
945       if(fHaveTPCRP)
946         FillHistogram(Form("hMassPtTPCAllcore_cen%d",fCentBin),pv12.M() ,pv12.Pt(),dphiT) ;
947
948
949       FillHistogram(Form("hPi0All_cen%d",fCentBin),p12.M() ,p12.Pt()) ;
950       FillHistogram(Form("hPi0Allcore_cen%d",fCentBin),pv12.M() ,pv12.Pt()) ;
951       if(ph1->IsntUnfolded() && ph2->IsntUnfolded()){
952         FillHistogram(Form("hPi0Allwou_cen%d",fCentBin),p12.M() ,p12.Pt()) ;
953       }
954
955       FillHistogram(Form("hSingleAll_cen%d",fCentBin),p12.M(),ph1->Pt()) ;
956       FillHistogram(Form("hSingleAll_cen%d",fCentBin),p12.M(),ph2->Pt()) ;
957       FillHistogram(Form("hSingleAllcore_cen%d",fCentBin),pv12.M(),ph1->GetMomV2()->Pt()) ;
958       FillHistogram(Form("hSingleAllcore_cen%d",fCentBin),pv12.M(),ph2->GetMomV2()->Pt()) ;
959       if(ph1->IsntUnfolded())
960         FillHistogram(Form("hSingleAllwou_cen%d",fCentBin),p12.M(),ph1->Pt()) ;
961       if(ph2->IsntUnfolded())
962         FillHistogram(Form("hSingleAllwou_cen%d",fCentBin),p12.M(),ph2->Pt()) ;
963       if(ph1->IsCPVOK()){
964         FillHistogram(Form("hSingleCPV_cen%d",fCentBin),p12.M(),ph1->Pt()) ;
965         FillHistogram(Form("hSingleCPVcore_cen%d",fCentBin),pv12.M(),ph1->GetMomV2()->Pt()) ;
966       }
967       if(ph2->IsCPVOK()){
968         FillHistogram(Form("hSingleCPV_cen%d",fCentBin),p12.M(),ph2->Pt()) ;
969         FillHistogram(Form("hSingleCPV_cen%d",fCentBin),pv12.M(),ph2->GetMomV2()->Pt()) ;
970       }
971       if(ph1->IsCPV2OK()){
972         FillHistogram(Form("hSingleCPV2_cen%d",fCentBin),p12.M(),ph1->Pt()) ;
973       }
974       if(ph2->IsCPV2OK()){
975         FillHistogram(Form("hSingleCPV2_cen%d",fCentBin),p12.M(),ph2->Pt()) ;
976       }
977       if(ph1->IsDispOK()){
978         FillHistogram(Form("hSingleDisp_cen%d",fCentBin),p12.M(),ph1->Pt()) ;
979         if(ph1->IsntUnfolded()){
980           FillHistogram(Form("hSingleDispwou_cen%d",fCentBin),p12.M(),ph1->Pt()) ;
981         }
982         FillHistogram(Form("hSingleDispcore_cen%d",fCentBin),pv12.M(),ph1->GetMomV2()->Pt()) ;
983       }
984       if(ph2->IsDispOK()){
985         FillHistogram(Form("hSingleDisp_cen%d",fCentBin),p12.M(),ph2->Pt()) ;
986         if(ph1->IsntUnfolded()){
987           FillHistogram(Form("hSingleDispwou_cen%d",fCentBin),p12.M(),ph2->Pt()) ;
988         }
989         FillHistogram(Form("hSingleDispcore_cen%d",fCentBin),pv12.M(),ph2->GetMomV2()->Pt()) ;
990       }
991       if(ph1->IsDisp2OK()){
992         FillHistogram(Form("hSingleDisp2_cen%d",fCentBin),p12.M(),ph1->Pt()) ;
993       }
994       if(ph2->IsDisp2OK()){
995         FillHistogram(Form("hSingleDisp2_cen%d",fCentBin),p12.M(),ph2->Pt()) ;
996       }
997       if(ph1->IsDispOK() && ph1->IsCPVOK()){
998         FillHistogram(Form("hSingleBoth_cen%d",fCentBin),p12.M(),ph1->Pt()) ;
999         FillHistogram(Form("hSingleBothcore_cen%d",fCentBin),pv12.M(),ph1->GetMomV2()->Pt()) ;
1000       }
1001       if(ph2->IsDispOK() && ph2->IsCPVOK()){
1002         FillHistogram(Form("hSingleBoth_cen%d",fCentBin),p12.M(),ph2->Pt()) ;
1003         FillHistogram(Form("hSingleBothcore_cen%d",fCentBin),pv12.M(),ph2->GetMomV2()->Pt()) ;
1004       }
1005
1006
1007       if(a<kAlphaCut){
1008         FillHistogram(Form("hPi0All_a07_cen%d",fCentBin),p12.M() ,p12.Pt()) ;
1009       }
1010
1011       if(ph1->IsCPVOK() && ph2->IsCPVOK()){
1012         snprintf(key,55,"hMassPtCPV_cen%d",fCentBin) ;
1013         FillHistogram(Form("hMassPtV0ACPV_cen%d",fCentBin),p12.M() ,p12.Pt(),dphiA) ;
1014         FillHistogram(Form("hMassPtV0CCPV_cen%d",fCentBin),p12.M() ,p12.Pt(),dphiC) ;
1015         if(fHaveTPCRP)
1016           FillHistogram(Form("hMassPtTPCCPV_cen%d",fCentBin),p12.M() ,p12.Pt(),dphiT) ;
1017
1018         FillHistogram(Form("hMassPtV0ACPVcore_cen%d",fCentBin),pv12.M() ,pv12.Pt(),dphiA) ;
1019         FillHistogram(Form("hMassPtV0CCPVcore_cen%d",fCentBin),pv12.M() ,pv12.Pt(),dphiC) ;
1020         if(fHaveTPCRP)
1021           FillHistogram(Form("hMassPtTPCCPVcore_cen%d",fCentBin),pv12.M() ,pv12.Pt(),dphiT) ;
1022
1023         FillHistogram(Form("hPi0CPV_cen%d",fCentBin),p12.M() ,p12.Pt()) ;
1024         FillHistogram(Form("hPi0CPVcore_cen%d",fCentBin),pv12.M(), pv12.Pt()) ;
1025
1026         if(a<kAlphaCut){
1027           FillHistogram(Form("hPi0CPV_a07_cen%d",fCentBin),p12.M() ,p12.Pt()) ;
1028         }
1029       }
1030       if(ph1->IsCPV2OK() && ph2->IsCPV2OK()){
1031         FillHistogram(Form("hPi0CPV2_cen%d",fCentBin),p12.M(),p12.Pt()) ;
1032         if(a<kAlphaCut){
1033           FillHistogram(Form("hPi0CPV2_a07_cen%d",fCentBin),p12.M() ,p12.Pt()) ;
1034         }
1035       }
1036       if(ph1->IsDispOK() && ph2->IsDispOK()){
1037         snprintf(key,55,"hMassPtDisp_cen%d",fCentBin) ;
1038         FillHistogram(Form("hMassPtV0ADisp_cen%d",fCentBin),p12.M() ,p12.Pt(),dphiA) ;
1039         FillHistogram(Form("hMassPtV0CDisp_cen%d",fCentBin),p12.M() ,p12.Pt(),dphiC) ;
1040         if(fHaveTPCRP)
1041           FillHistogram(Form("hMassPtTPCDisp_cen%d",fCentBin),p12.M() ,p12.Pt(),dphiT) ;
1042
1043         FillHistogram(Form("hMassPtV0ADispcore_cen%d",fCentBin),pv12.M(), pv12.Pt(),dphiA) ;
1044         FillHistogram(Form("hMassPtV0CDispcore_cen%d",fCentBin),pv12.M(), pv12.Pt(),dphiC) ;
1045         if(fHaveTPCRP)
1046           FillHistogram(Form("hMassPtTPCDispcore_cen%d",fCentBin),pv12.M(), pv12.Pt(),dphiT) ;
1047
1048         FillHistogram(Form("hPi0Disp_cen%d",fCentBin),p12.M() ,p12.Pt()) ;
1049         FillHistogram(Form("hPi0Dispcore_cen%d",fCentBin),pv12.M(), pv12.Pt()) ;
1050         if(ph1->IsDisp2OK() && ph2->IsDisp2OK()){
1051           FillHistogram(Form("hPi0Disp2_cen%d",fCentBin),p12.M() ,p12.Pt()) ;
1052         }
1053         if(ph1->IsntUnfolded() && ph2->IsntUnfolded()){
1054           FillHistogram(Form("hPi0Dispwou_cen%d",fCentBin),p12.M(), p12.Pt()) ;
1055         }
1056
1057         if(a<kAlphaCut){
1058           FillHistogram(Form("hPi0Disp_a07_cen%d",fCentBin),p12.M() ,p12.Pt()) ;
1059         }
1060
1061         if(ph1->IsCPVOK() && ph2->IsCPVOK()){
1062           FillHistogram(Form("hMassPtV0ABoth_cen%d",fCentBin),p12.M() ,p12.Pt(),dphiA) ;
1063           FillHistogram(Form("hMassPtV0CBoth_cen%d",fCentBin),p12.M() ,p12.Pt(),dphiC) ;
1064           if(fHaveTPCRP)
1065             FillHistogram(Form("hMassPtTPCBoth_cen%d",fCentBin),p12.M() ,p12.Pt(),dphiT) ;
1066
1067           FillHistogram(Form("hMassPtV0ABothcore_cen%d",fCentBin),pv12.M() ,pv12.Pt(),dphiA) ;
1068           FillHistogram(Form("hMassPtV0CBothcore_cen%d",fCentBin),pv12.M() ,pv12.Pt(),dphiC) ;
1069           if(fHaveTPCRP)
1070             FillHistogram(Form("hMassPtTPCBothcore_cen%d",fCentBin),pv12.M() ,pv12.Pt(),dphiT) ;
1071
1072           FillHistogram(Form("hPi0Both_cen%d",fCentBin),p12.M() ,p12.Pt()) ;
1073           FillHistogram(Form("hPi0Bothcore_cen%d",fCentBin),pv12.M() ,pv12.Pt()) ;
1074
1075           if(a<kAlphaCut){
1076             snprintf(key,55,"hPi0Both_a07_cen%d",fCentBin) ;
1077             FillHistogram(Form("hPi0Both_a07_cen%d",fCentBin),p12.M() ,p12.Pt()) ;
1078           }
1079           if(fCentralityV0M>20.){
1080           if(ph1->Module()==1 && ph2->Module()==1)
1081             FillHistogram("hPi0M11",p12.M(),p12.Pt() );
1082           else if(ph1->Module()==2 && ph2->Module()==2)
1083             FillHistogram("hPi0M22",p12.M(),p12.Pt() );
1084           else if(ph1->Module()==3 && ph2->Module()==3)
1085             FillHistogram("hPi0M33",p12.M(),p12.Pt() );
1086           else if(ph1->Module()==1 && ph2->Module()==2)
1087             FillHistogram("hPi0M12",p12.M(),p12.Pt() );
1088           else if(ph1->Module()==1 && ph2->Module()==3)
1089             FillHistogram("hPi0M13",p12.M(),p12.Pt() );
1090           else if(ph1->Module()==2 && ph2->Module()==3)
1091             FillHistogram("hPi0M23",p12.M(),p12.Pt() );
1092           }
1093
1094         }
1095       }
1096     } // end of loop i2
1097   } // end of loop i1
1098 }
1099 //_____________________________________________________________________________
1100 void AliAnalysisTaskPi0Flow::ConsiderPi0sMix()
1101 {
1102   char key[55];
1103
1104   TList * arrayList = GetCaloPhotonsPHOSList(fVtxBin, fCentBin, fEMRPBin);
1105
1106   for (Int_t i1=0; i1<fCaloPhotonsPHOS->GetEntriesFast(); i1++) {
1107     AliCaloPhoton * ph1=(AliCaloPhoton*)fCaloPhotonsPHOS->At(i1) ;
1108     for(Int_t evi=0; evi<arrayList->GetEntriesFast();evi++){
1109       TObjArray * mixPHOS = static_cast<TObjArray*>(arrayList->At(evi));
1110       for(Int_t i2=0; i2<mixPHOS->GetEntriesFast();i2++){
1111         AliCaloPhoton * ph2=(AliCaloPhoton*)mixPHOS->At(i2) ;
1112         TLorentzVector p12  = *ph1  + *ph2;
1113         TLorentzVector pv12 = *(ph1->GetMomV2()) + *(ph2->GetMomV2());
1114
1115         Double_t dphiA=p12.Phi()-fRPV0A ;
1116         while(dphiA<0)dphiA+=TMath::Pi() ;
1117         while(dphiA>TMath::Pi())dphiA-=TMath::Pi() ;
1118
1119         Double_t dphiC=p12.Phi()-fRPV0C ;
1120         while(dphiC<0)dphiC+=TMath::Pi() ;
1121         while(dphiC>TMath::Pi())dphiC-=TMath::Pi() ;
1122
1123         Double_t dphiT=p12.Phi()-fRP ;
1124         while(dphiT<0)dphiT+=TMath::Pi() ;
1125         while(dphiT>TMath::Pi())dphiT-=TMath::Pi() ;
1126
1127
1128         Double_t a=TMath::Abs((ph1->E()-ph2->E())/(ph1->E()+ph2->E())) ;
1129
1130         snprintf(key,55,"hMiMassPtAll_cen%d",fCentBin) ;
1131         FillHistogram(Form("hMiMassPtV0AAll_cen%d",fCentBin),p12.M() ,p12.Pt(),dphiA) ;
1132         FillHistogram(Form("hMiMassPtV0CAll_cen%d",fCentBin),p12.M() ,p12.Pt(),dphiC) ;
1133         if(fHaveTPCRP)
1134           FillHistogram(Form("hMiMassPtTPCAll_cen%d",fCentBin),p12.M() ,p12.Pt(),dphiT) ;
1135
1136         FillHistogram(Form("hMiMassPtV0AAllcore_cen%d",fCentBin),pv12.M(), pv12.Pt(), dphiA) ;
1137         FillHistogram(Form("hMiMassPtV0CAllcore_cen%d",fCentBin),pv12.M(), pv12.Pt(), dphiC) ;
1138         if(fHaveTPCRP)
1139           FillHistogram(Form("hMiMassPtTPCAllcore_cen%d",fCentBin),pv12.M(), pv12.Pt(), dphiT) ;
1140
1141         FillHistogram(Form("hMiPi0All_cen%d",fCentBin),p12.M() ,p12.Pt()) ;
1142         FillHistogram(Form("hMiPi0Allcore_cen%d",fCentBin),pv12.M() ,pv12.Pt()) ;
1143         if(ph1->IsntUnfolded() && ph2->IsntUnfolded()){
1144           FillHistogram(Form("hMiPi0Allwou_cen%d",fCentBin),p12.M() ,p12.Pt()) ;
1145         }
1146
1147         FillHistogram(Form("hMiSingleAll_cen%d",fCentBin),p12.M(),ph1->Pt()) ;
1148         FillHistogram(Form("hMiSingleAll_cen%d",fCentBin),p12.M(),ph2->Pt()) ;
1149         FillHistogram(Form("hMiSingleAllcore_cen%d",fCentBin),pv12.M(),ph1->GetMomV2()->Pt()) ;
1150         FillHistogram(Form("hMiSingleAllcore_cen%d",fCentBin),pv12.M(),ph2->GetMomV2()->Pt()) ;
1151         if(ph1->IsntUnfolded())
1152           FillHistogram(Form("hMiSingleAllwou_cen%d",fCentBin),p12.M(),ph1->Pt()) ;
1153         if(ph2->IsntUnfolded())
1154           FillHistogram(Form("hMiSingleAllwou_cen%d",fCentBin),p12.M(),ph2->Pt()) ;
1155         if(ph1->IsCPVOK()){
1156           FillHistogram(Form("hMiSingleCPV_cen%d",fCentBin),p12.M(),ph1->Pt()) ;
1157           FillHistogram(Form("hMiSingleCPVcore_cen%d",fCentBin),pv12.M(),ph1->GetMomV2()->Pt()) ;
1158         }
1159         if(ph2->IsCPVOK()){
1160           FillHistogram(Form("hMiSingleCPV_cen%d",fCentBin),p12.M(),ph2->Pt()) ;
1161           FillHistogram(Form("hMiSingleCPVcore_cen%d",fCentBin),pv12.M(),ph2->GetMomV2()->Pt()) ;
1162         }
1163         if(ph1->IsCPV2OK()){
1164           FillHistogram(Form("hMiSingleCPV2_cen%d",fCentBin),p12.M(),ph1->Pt()) ;
1165         }
1166         if(ph2->IsCPV2OK()){
1167           FillHistogram(Form("hMiSingleCPV2_cen%d",fCentBin),p12.M(),ph2->Pt()) ;
1168         }
1169         if(ph1->IsDispOK()){
1170           FillHistogram(Form("hMiSingleDisp_cen%d",fCentBin),p12.M(),ph1->Pt()) ;
1171           if(ph1->IsntUnfolded()){
1172             FillHistogram(Form("hMiSingleDispwou_cen%d",fCentBin),p12.M(),ph1->Pt()) ;
1173           }
1174           FillHistogram(Form("hMiSingleDispcore_cen%d",fCentBin),pv12.M(),ph1->GetMomV2()->Pt()) ;
1175         }
1176         if(ph2->IsDispOK()){
1177           FillHistogram(Form("hMiSingleDisp_cen%d",fCentBin),p12.M(),ph2->Pt()) ;
1178           if(ph1->IsntUnfolded()){
1179             FillHistogram(Form("hMiSingleDispwou_cen%d",fCentBin),p12.M(),ph2->Pt()) ;
1180           }
1181           FillHistogram(Form("hMiSingleDispcore_cen%d",fCentBin),pv12.M(),ph2->GetMomV2()->Pt()) ;
1182         }
1183         if(ph1->IsDisp2OK()){
1184           FillHistogram(Form("hMiSingleDisp2_cen%d",fCentBin),p12.M(),ph1->Pt()) ;
1185         }
1186         if(ph2->IsDisp2OK()){
1187           FillHistogram(Form("hMiSingleDisp2_cen%d",fCentBin),p12.M(),ph2->Pt()) ;
1188         }
1189         if(ph1->IsDispOK() && ph1->IsCPVOK()){
1190           snprintf(key,55,"hMiSingleBoth_cen%d",fCentBin) ;
1191           FillHistogram(key,p12.M(),ph1->Pt()) ;
1192           snprintf(key,55,"hMiSingleBothcore_cen%d",fCentBin) ;
1193           FillHistogram(key,pv12.M(),ph1->GetMomV2()->Pt()) ;
1194         }
1195         if(ph2->IsDispOK() && ph2->IsCPVOK()){
1196           snprintf(key,55,"hMiSingleBoth_cen%d",fCentBin) ;
1197           FillHistogram(key,p12.M(),ph2->Pt()) ;
1198           snprintf(key,55,"hMiSingleBothcore_cen%d",fCentBin) ;
1199           FillHistogram(key,pv12.M(),ph2->GetMomV2()->Pt()) ;
1200         }
1201
1202
1203
1204         if(a<kAlphaCut){
1205           snprintf(key,55,"hMiPi0All_a07_cen%d",fCentBin) ;
1206           FillHistogram(key,p12.M() ,p12.Pt()) ;
1207         }
1208         if(ph1->IsCPVOK() && ph2->IsCPVOK()){
1209           FillHistogram(Form("hMiMassPtV0ACPV_cen%d",fCentBin),p12.M(), p12.Pt(),dphiA) ;
1210           FillHistogram(Form("hMiMassPtV0CCPV_cen%d",fCentBin),p12.M(), p12.Pt(),dphiC) ;
1211           if(fHaveTPCRP)
1212             FillHistogram(Form("hMiMassPtTPCCPV_cen%d",fCentBin),p12.M(), p12.Pt(),dphiT) ;
1213
1214           FillHistogram(Form("hMiMassPtV0ACPVcore_cen%d",fCentBin),pv12.M(), pv12.Pt(),dphiA) ;
1215           FillHistogram(Form("hMiMassPtV0CCPVcore_cen%d",fCentBin),pv12.M(), pv12.Pt(),dphiC) ;
1216           if(fHaveTPCRP)
1217             FillHistogram(Form("hMiMassPtTPCCPVcore_cen%d",fCentBin),pv12.M(), pv12.Pt(),dphiT) ;
1218
1219           FillHistogram(Form("hMiPi0CPV_cen%d",fCentBin),p12.M(), p12.Pt()) ;
1220           FillHistogram(Form("hMiPi0CPVcore_cen%d",fCentBin),pv12.M(), pv12.Pt()) ;
1221
1222           if(a<kAlphaCut){
1223             FillHistogram(Form("hMiPi0CPV_a07_cen%d",fCentBin),p12.M() ,p12.Pt()) ;
1224           }
1225         }
1226         if(ph1->IsCPV2OK() && ph2->IsCPV2OK()){
1227           FillHistogram(Form("hMiPi0CPV2_cen%d",fCentBin),p12.M() ,p12.Pt()) ;
1228
1229           if(a<kAlphaCut){
1230             FillHistogram(Form("hMiPi0CPV2_a07_cen%d",fCentBin),p12.M() ,p12.Pt()) ;
1231           }
1232         }
1233         if(ph1->IsDispOK() && ph2->IsDispOK()){
1234           FillHistogram(Form("hMiMassPtV0ADisp_cen%d",fCentBin),p12.M(),p12.Pt(),dphiA) ;
1235           FillHistogram(Form("hMiMassPtV0CDisp_cen%d",fCentBin),p12.M(),p12.Pt(),dphiC) ;
1236           if(fHaveTPCRP)
1237             FillHistogram(Form("hMiMassPtTPCDisp_cen%d",fCentBin),p12.M(),p12.Pt(),dphiT) ;
1238
1239           FillHistogram(Form("hMiMassPtV0ADispcore_cen%d",fCentBin),pv12.M(),pv12.Pt(),dphiA) ;
1240           FillHistogram(Form("hMiMassPtV0CDispcore_cen%d",fCentBin),pv12.M(),pv12.Pt(),dphiC) ;
1241           if(fHaveTPCRP)
1242             FillHistogram(Form("hMiMassPtTPCDispcore_cen%d",fCentBin),pv12.M(),pv12.Pt(),dphiT) ;
1243
1244
1245           FillHistogram(Form("hMiPi0Disp_cen%d",fCentBin),p12.M() ,p12.Pt()) ;
1246           FillHistogram(Form("hMiPi0Dispcore_cen%d",fCentBin),pv12.M(),pv12.Pt()) ;
1247           if(ph1->IsntUnfolded() && ph2->IsntUnfolded()){
1248             FillHistogram(Form("hMiPi0Dispwou_cen%d",fCentBin),p12.M(),p12.Pt()) ;
1249           }
1250
1251           if(a<kAlphaCut){
1252             FillHistogram(Form("hMiPi0Disp_a07_cen%d",fCentBin),p12.M() ,p12.Pt()) ;
1253           }
1254           if(ph1->IsCPVOK() && ph2->IsCPVOK()){
1255             FillHistogram(Form("hMiMassPtV0ABoth_cen%d",fCentBin),p12.M(),p12.Pt(),dphiA) ;
1256             FillHistogram(Form("hMiMassPtV0CBoth_cen%d",fCentBin),p12.M(),p12.Pt(),dphiC) ;
1257             if(fHaveTPCRP)
1258               FillHistogram(Form("hMiMassPtTPCBoth_cen%d",fCentBin),p12.M(),p12.Pt(),dphiT) ;
1259
1260             FillHistogram(Form("hMiMassPtV0ABothcore_cen%d",fCentBin),pv12.M(),pv12.Pt(),dphiA) ;
1261             FillHistogram(Form("hMiMassPtV0CBothcore_cen%d",fCentBin),pv12.M(),pv12.Pt(),dphiC) ;
1262             if(fHaveTPCRP)
1263               FillHistogram(Form("hMiMassPtTPCBothcore_cen%d",fCentBin),pv12.M(),pv12.Pt(),dphiT) ;
1264
1265             FillHistogram(Form("hMiPi0Both_cen%d",fCentBin),p12.M() ,p12.Pt()) ;
1266             FillHistogram(Form("hMiPi0Bothcore_cen%d",fCentBin),pv12.M(),pv12.Pt()) ;
1267
1268             if(a<kAlphaCut){
1269               FillHistogram(Form("hMiPi0Both_a07_cen%d",fCentBin),p12.M() ,p12.Pt()) ;
1270             }
1271           }
1272         }
1273       } // end of loop i2
1274     }
1275   } // end of loop i1
1276 }
1277 //_____________________________________________________________________________
1278 void AliAnalysisTaskPi0Flow::UpdateLists()
1279 {
1280   //Now we either add current events to stack or remove
1281   //If no photons in current event - no need to add it to mixed
1282   TList * arrayList = GetCaloPhotonsPHOSList(fVtxBin, fCentBin, fEMRPBin);
1283   if(fCaloPhotonsPHOS->GetEntriesFast()>0){
1284     arrayList->AddFirst(fCaloPhotonsPHOS) ;
1285     fCaloPhotonsPHOS=0;
1286     if(arrayList->GetEntriesFast()>100){//Remove redundant events
1287       TObjArray * tmp = static_cast<TObjArray*>(arrayList->Last()) ;
1288       arrayList->RemoveLast() ;
1289       delete tmp ; // TODO: may conflict with delete done by list being owner.
1290     }
1291   }
1292   else
1293     fCaloPhotonsPHOS->Clear(); // TODO: redundant???
1294 }
1295 //_____________________________________________________________________________
1296 void AliAnalysisTaskPi0Flow::FillHistogram(const char * key,Double_t x)const{
1297   //FillHistogram
1298   TH1I * tmpI = dynamic_cast<TH1I*>(fOutputContainer->FindObject(key)) ;
1299   if(tmpI){
1300     tmpI->Fill(x) ;
1301     return ;
1302   }
1303   TH1F * tmpF = dynamic_cast<TH1F*>(fOutputContainer->FindObject(key)) ;
1304   if(tmpF){
1305     tmpF->Fill(x) ;
1306     return ;
1307   }
1308   TH1D * tmpD = dynamic_cast<TH1D*>(fOutputContainer->FindObject(key)) ;
1309   if(tmpD){
1310     tmpD->Fill(x) ;
1311     return ;
1312   }
1313   AliInfo(Form("can not find histogram <%s> ",key)) ;
1314 }
1315 //_____________________________________________________________________________
1316 void AliAnalysisTaskPi0Flow::FillHistogram(const char * key,Double_t x,Double_t y)const{
1317   //FillHistogram
1318   TObject * tmp = fOutputContainer->FindObject(key) ;
1319   if(!tmp){
1320     AliInfo(Form("can not find histogram <%s> ",key)) ;
1321     return ;
1322   }
1323   if(tmp->IsA() == TClass::GetClass("TH1F")){
1324     ((TH1F*)tmp)->Fill(x,y) ;
1325     return ;
1326   }
1327   if(tmp->IsA() == TClass::GetClass("TH2F")){
1328     ((TH2F*)tmp)->Fill(x,y) ;
1329     return ;
1330   }
1331   AliError(Form("Calling FillHistogram with 2 parameters for histo <%s> of type %s",key,tmp->IsA()->GetName())) ;
1332 }
1333
1334 //_____________________________________________________________________________
1335 void AliAnalysisTaskPi0Flow::FillHistogram(const char * key,Double_t x,Double_t y, Double_t z) const{
1336   //Fills 1D histograms with key
1337   TObject * tmp = fOutputContainer->FindObject(key) ;
1338   if(!tmp){
1339     AliInfo(Form("can not find histogram <%s> ",key)) ;
1340     return ;
1341   }
1342   if(tmp->IsA() == TClass::GetClass("TH2F")){
1343     ((TH2F*)tmp)->Fill(x,y,z) ;
1344     return ;
1345   }
1346   if(tmp->IsA() == TClass::GetClass("TH3F")){
1347     ((TH3F*)tmp)->Fill(x,y,z) ;
1348     return ;
1349   }
1350 }
1351
1352 //_____________________________________________________________________________
1353 AliVEvent* AliAnalysisTaskPi0Flow::GetEvent()
1354 {
1355   fEvent = InputEvent();
1356   if( ! fEvent ) {
1357     AliError("Event could not be retrieved");
1358     PostData(1, fOutputContainer);
1359   }
1360   return fEvent;
1361 }
1362
1363
1364 //___________________________________________________________________________
1365 AliStack* AliAnalysisTaskPi0Flow::GetMCStack()
1366 {
1367   fMCStack = 0;
1368   AliVEventHandler* eventHandler = AliAnalysisManager::GetAnalysisManager()->GetMCtruthEventHandler();
1369   if(eventHandler){
1370     AliMCEventHandler* mcEventHandler = dynamic_cast<AliMCEventHandler*> (eventHandler);
1371     if( mcEventHandler)
1372       fMCStack = static_cast<AliMCEventHandler*>(AliAnalysisManager::GetAnalysisManager()->GetMCtruthEventHandler())->MCEvent()->Stack();
1373   }
1374   return fMCStack;
1375 }
1376
1377 //___________________________________________________________________________
1378 Int_t AliAnalysisTaskPi0Flow::GetCentralityBin(Float_t centralityV0M)
1379 {
1380  /* fCentBin=1+Int_t(centralityV0M/100. *kNCenBins) ;
1381   if(centralityV0M < 5. || fCentBin < 0)
1382    fCentBin=0 ;
1383   if(fCentBin > kNCenBins-1)
1384     fCentBin = kNCenBins-1 ;
1385  */
1386   int lastBinUpperIndex = fCentEdges.GetSize() -1;
1387   if( centralityV0M > fCentEdges[lastBinUpperIndex] ) {
1388     if(fDebug)
1389       AliWarning( Form("centrality (%f) larger then upper edge of last centrality bin (%f)!", centralityV0M, fCentEdges[lastBinUpperIndex]) );
1390     return lastBinUpperIndex-1;
1391   }
1392   if( centralityV0M < fCentEdges[0] ) {
1393     if( fDebug )
1394       AliWarning( Form("centrality (%f) smaller then lower edge of first bin (%f)!", centralityV0M, fCentEdges[0]) );
1395     return 0;
1396   }
1397   
1398   fCentBin = TMath::BinarySearch<Double_t> ( GetNumberOfCentralityBins(), fCentEdges.GetArray(), centralityV0M );
1399   return fCentBin;
1400 }
1401
1402 //___________________________________________________________________________
1403 Int_t AliAnalysisTaskPi0Flow::GetRPBin()
1404 {
1405   Double_t averageRP;
1406   if(fHaveTPCRP)
1407     averageRP = fRPV0A+fRPV0C+fRP /3.;
1408   else
1409     averageRP = fRPV0A+fRPV0C /2.;
1410
1411   fEMRPBin = Int_t(fNEMRPBins*(averageRP)/TMath::Pi());
1412
1413   if(fEMRPBin> (Int_t) fNEMRPBins-1)
1414     fEMRPBin=fNEMRPBins-1 ;
1415   else if(fEMRPBin<0)
1416     fEMRPBin=0;
1417
1418   if ( fDebug )
1419     AliInfo(Form("Event Mixing Reaction Plane bin is: %d", fEMRPBin));
1420
1421   return fEMRPBin;
1422 }
1423
1424
1425 //_____________________________________________________________________________
1426 void AliAnalysisTaskPi0Flow::LogProgress(int step, int internalRunNumber)
1427 {
1428   if(fDebug > 1) {
1429     AliInfo(Form("step %d completed", step));
1430   }
1431   // the +0.5 is not realy neccisarry, but oh well... -henrik
1432   FillHistogram("hSelEvents", step+0.5, internalRunNumber-0.5);
1433   FillHistogram("hTotSelEvents", step+0.5);
1434 }
1435
1436 //___________________________________________________________________________
1437 Int_t AliAnalysisTaskPi0Flow::ConvertToInternalRunNumber(Int_t run){
1438   if( kLHC11h == fPeriod ) {
1439     switch(run){
1440     case  170593 : return 179 ;
1441     case  170572 : return 178 ;
1442     case  170556 : return 177 ;
1443     case  170552 : return 176 ;
1444     case  170546 : return 175 ;
1445     case  170390 : return 174 ;
1446     case  170389 : return 173 ;
1447     case  170388 : return 172 ;
1448     case  170387 : return 171 ;
1449     case  170315 : return 170 ;
1450     case  170313 : return 169 ;
1451     case  170312 : return 168 ;
1452     case  170311 : return 167 ;
1453     case  170309 : return 166 ;
1454     case  170308 : return 165 ;
1455     case  170306 : return 164 ;
1456     case  170270 : return 163 ;
1457     case  170269 : return 162 ;
1458     case  170268 : return 161 ;
1459     case  170267 : return 160 ;
1460     case  170264 : return 159 ;
1461     case  170230 : return 158 ;
1462     case  170228 : return 157 ;
1463     case  170208 : return 156 ;
1464     case  170207 : return 155 ;
1465     case  170205 : return 154 ;
1466     case  170204 : return 153 ;
1467     case  170203 : return 152 ;
1468     case  170195 : return 151 ;
1469     case  170193 : return 150 ;
1470     case  170163 : return 149 ;
1471     case  170162 : return 148 ;
1472     case  170159 : return 147 ;
1473     case  170155 : return 146 ;
1474     case  170152 : return 145 ;
1475     case  170091 : return 144 ;
1476     case  170089 : return 143 ;
1477     case  170088 : return 142 ;
1478     case  170085 : return 141 ;
1479     case  170084 : return 140 ;
1480     case  170083 : return 139 ;
1481     case  170081 : return 138 ;
1482     case  170040 : return 137 ;
1483     case  170038 : return 136 ;
1484     case  170036 : return 135 ;
1485     case  170027 : return 134 ;
1486     case  169981 : return 133 ;
1487     case  169975 : return 132 ;
1488     case  169969 : return 131 ;
1489     case  169965 : return 130 ;
1490     case  169961 : return 129 ;
1491     case  169956 : return 128 ;
1492     case  169926 : return 127 ;
1493     case  169924 : return 126 ;
1494     case  169923 : return 125 ;
1495     case  169922 : return 124 ;
1496     case  169919 : return 123 ;
1497     case  169918 : return 122 ;
1498     case  169914 : return 121 ;
1499     case  169859 : return 120 ;
1500     case  169858 : return 119 ;
1501     case  169855 : return 118 ;
1502     case  169846 : return 117 ;
1503     case  169838 : return 116 ;
1504     case  169837 : return 115 ;
1505     case  169835 : return 114 ;
1506     case  169683 : return 113 ;
1507     case  169628 : return 112 ;
1508     case  169591 : return 111 ;
1509     case  169590 : return 110 ;
1510     case  169588 : return 109 ;
1511     case  169587 : return 108 ;
1512     case  169586 : return 107 ;
1513     case  169584 : return 106 ;
1514     case  169557 : return 105 ;
1515     case  169555 : return 104 ;
1516     case  169554 : return 103 ;
1517     case  169553 : return 102 ;
1518     case  169550 : return 101 ;
1519     case  169515 : return 100 ;
1520     case  169512 : return 99 ;
1521     case  169506 : return 98 ;
1522     case  169504 : return 97 ;
1523     case  169498 : return 96 ;
1524     case  169475 : return 95 ;
1525     case  169420 : return 94 ;
1526     case  169419 : return 93 ;
1527     case  169418 : return 92 ;
1528     case  169417 : return 91 ;
1529     case  169415 : return 90 ;
1530     case  169411 : return 89 ;
1531     case  169238 : return 88 ;
1532     case  169236 : return 87 ;
1533     case  169167 : return 86 ;
1534     case  169160 : return 85 ;
1535     case  169156 : return 84 ;
1536     case  169148 : return 83 ;
1537     case  169145 : return 82 ;
1538     case  169144 : return 81 ;
1539     case  169143 : return 80 ;
1540     case  169138 : return 79 ;
1541     case  169099 : return 78 ;
1542     case  169094 : return 77 ;
1543     case  169091 : return 76 ;
1544     case  169045 : return 75 ;
1545     case  169044 : return 74 ;
1546     case  169040 : return 73 ;
1547     case  169035 : return 72 ;
1548     case  168992 : return 71 ;
1549     case  168988 : return 70 ;
1550     case  168984 : return 69 ;
1551     case  168826 : return 68 ;
1552     case  168777 : return 67 ;
1553     case  168514 : return 66 ;
1554     case  168512 : return 65 ;
1555     case  168511 : return 64 ;
1556     case  168467 : return 63 ;
1557     case  168464 : return 62 ;
1558     case  168461 : return 61 ;
1559     case  168460 : return 60 ;
1560     case  168458 : return 59 ;
1561     case  168362 : return 58 ;
1562     case  168361 : return 57 ;
1563     case  168356 : return 56 ;
1564     case  168342 : return 55 ;
1565     case  168341 : return 54 ;
1566     case  168325 : return 53 ;
1567     case  168322 : return 52 ;
1568     case  168318 : return 51 ;
1569     case  168311 : return 50 ;
1570     case  168310 : return 49 ;
1571     case  168213 : return 48 ;
1572     case  168212 : return 47 ;
1573     case  168208 : return 46 ;
1574     case  168207 : return 45 ;
1575     case  168206 : return 44 ;
1576     case  168205 : return 43 ;
1577     case  168204 : return 42 ;
1578     case  168203 : return 41 ;
1579     case  168181 : return 40 ;
1580     case  168177 : return 39 ;
1581     case  168175 : return 38 ;
1582     case  168173 : return 37 ;
1583     case  168172 : return 36 ;
1584     case  168171 : return 35 ;
1585     case  168115 : return 34 ;
1586     case  168108 : return 33 ;
1587     case  168107 : return 32 ;
1588     case  168105 : return 31 ;
1589     case  168104 : return 30 ;
1590     case  168103 : return 29 ;
1591     case  168076 : return 28 ;
1592     case  168069 : return 27 ;
1593     case  168068 : return 26 ;
1594     case  168066 : return 25 ;
1595     case  167988 : return 24 ;
1596     case  167987 : return 23 ;
1597     case  167986 : return 22 ;
1598     case  167985 : return 21 ;
1599     case  167921 : return 20 ;
1600     case  167920 : return 19 ;
1601     case  167915 : return 18 ;
1602     case  167909 : return 17 ;
1603     case  167903 : return 16 ;
1604     case  167902 : return 15 ;
1605     case  167818 : return 14 ;
1606     case  167814 : return 13 ;
1607     case  167813 : return 12 ;
1608     case  167808 : return 11 ;
1609     case  167807 : return 10 ;
1610     case  167806 : return 9 ;
1611     case  167713 : return 8 ;
1612     case  167712 : return 7 ;
1613     case  167711 : return 6 ;
1614     case  167706 : return 5 ;
1615     case  167693 : return 4 ;
1616     case  166532 : return 3 ;
1617     case  166530 : return 2 ;
1618     case  166529 : return 1 ;
1619
1620     default : return 199;
1621     }
1622   }
1623   if( kLHC10h == fPeriod ) {
1624     switch(run){
1625     case  139517 : return 137;
1626     case  139514 : return 136;
1627     case  139513 : return 135;
1628     case  139511 : return 134;
1629     case  139510 : return 133;
1630     case  139507 : return 132;
1631     case  139505 : return 131;
1632     case  139504 : return 130;
1633     case  139503 : return 129;
1634     case  139470 : return 128;
1635     case  139467 : return 127;
1636     case  139466 : return 126;
1637     case  139465 : return 125;
1638     case  139440 : return 124;
1639     case  139439 : return 123;
1640     case  139438 : return 122;
1641     case  139437 : return 121;
1642     case  139360 : return 120;
1643     case  139329 : return 119;
1644     case  139328 : return 118;
1645     case  139314 : return 117;
1646     case  139311 : return 116;
1647     case  139310 : return 115;
1648     case  139309 : return 114;
1649     case  139308 : return 113;
1650     case  139173 : return 112;
1651     case  139172 : return 111;
1652     case  139110 : return 110;
1653     case  139107 : return 109;
1654     case  139105 : return 108;
1655     case  139104 : return 107;
1656     case  139042 : return 106;
1657     case  139038 : return 105;
1658     case  139037 : return 104;
1659     case  139036 : return 103;
1660     case  139029 : return 102;
1661     case  139028 : return 101;
1662     case  138983 : return 100;
1663     case  138982 : return 99;
1664     case  138980 : return 98;
1665     case  138979 : return 97;
1666     case  138978 : return 96;
1667     case  138977 : return 95;
1668     case  138976 : return 94;
1669     case  138973 : return 93;
1670     case  138972 : return 92;
1671     case  138965 : return 91;
1672     case  138924 : return 90;
1673     case  138872 : return 89;
1674     case  138871 : return 88;
1675     case  138870 : return 87;
1676     case  138837 : return 86;
1677     case  138830 : return 85;
1678     case  138828 : return 84;
1679     case  138826 : return 83;
1680     case  138796 : return 82;
1681     case  138795 : return 81;
1682     case  138742 : return 80;
1683     case  138732 : return 79;
1684     case  138730 : return 78;
1685     case  138666 : return 77;
1686     case  138662 : return 76;
1687     case  138653 : return 75;
1688     case  138652 : return 74;
1689     case  138638 : return 73;
1690     case  138624 : return 72;
1691     case  138621 : return 71;
1692     case  138583 : return 70;
1693     case  138582 : return 69;
1694     case  138579 : return 68;
1695     case  138578 : return 67;
1696     case  138534 : return 66;
1697     case  138469 : return 65;
1698     case  138442 : return 64;
1699     case  138439 : return 63;
1700     case  138438 : return 62;
1701     case  138396 : return 61;
1702     case  138364 : return 60;
1703     case  138359 : return 59;
1704     case  138275 : return 58;
1705     case  138225 : return 57;
1706     case  138201 : return 56;
1707     case  138200 : return 55;
1708     case  138197 : return 54;
1709     case  138192 : return 53;
1710     case  138190 : return 52;
1711     case  138154 : return 51;
1712     case  138153 : return 50;
1713     case  138151 : return 49;
1714     case  138150 : return 48;
1715     case  138126 : return 47;
1716     case  138125 : return 46;
1717     case  137848 : return 45;
1718     case  137847 : return 44;
1719     case  137844 : return 43;
1720     case  137843 : return 42;
1721     case  137752 : return 41;
1722     case  137751 : return 40;
1723     case  137748 : return 39;
1724     case  137724 : return 38;
1725     case  137722 : return 37;
1726     case  137718 : return 36;
1727     case  137704 : return 35;
1728     case  137693 : return 34;
1729     case  137692 : return 33;
1730     case  137691 : return 32;
1731     case  137689 : return 31;
1732     case  137686 : return 30;
1733     case  137685 : return 29;
1734     case  137639 : return 28;
1735     case  137638 : return 27;
1736     case  137608 : return 26;
1737     case  137595 : return 25;
1738     case  137549 : return 24;
1739     case  137546 : return 23;
1740     case  137544 : return 22;
1741     case  137541 : return 21;
1742     case  137539 : return 20;
1743     case  137531 : return 19;
1744     case  137530 : return 18;
1745     case  137443 : return 17;
1746     case  137441 : return 16;
1747     case  137440 : return 15;
1748     case  137439 : return 14;
1749     case  137434 : return 13;
1750     case  137432 : return 12;
1751     case  137431 : return 11;
1752     case  137430 : return 10;
1753     case  137366 : return 9;
1754     case  137243 : return 8;
1755     case  137236 : return 7;
1756     case  137235 : return 6;
1757     case  137232 : return 5;
1758     case  137231 : return 4;
1759     case  137165 : return 3;
1760     case  137162 : return 2;
1761     case  137161 : return 1;
1762     default : return 199;
1763     }
1764   }
1765   if(kUndefinedPeriod && fDebug > 0) {
1766     AliWarning("Period not defined");
1767   }
1768   return 1;
1769 }
1770 //_____________________________________________________________________________
1771 Bool_t AliAnalysisTaskPi0Flow::TestLambda(Double_t pt,Double_t l1,Double_t l2){
1772
1773   Double_t l2Mean  = 1.53126+9.50835e+06/(1.+1.08728e+07*pt+1.73420e+06*pt*pt) ;
1774   Double_t l1Mean  = 1.12365+0.123770*TMath::Exp(-pt*0.246551)+5.30000e-03*pt ;
1775   Double_t l2Sigma = 6.48260e-02+7.60261e+10/(1.+1.53012e+11*pt+5.01265e+05*pt*pt)+9.00000e-03*pt;
1776   Double_t l1Sigma = 4.44719e-04+6.99839e-01/(1.+1.22497e+00*pt+6.78604e-07*pt*pt)+9.00000e-03*pt;
1777   Double_t c=-0.35-0.550*TMath::Exp(-0.390730*pt) ;
1778   Double_t R2=0.5*(l1-l1Mean)*(l1-l1Mean)/l1Sigma/l1Sigma +
1779     0.5*(l2-l2Mean)*(l2-l2Mean)/l2Sigma/l2Sigma +
1780     0.5*c*(l1-l1Mean)*(l2-l2Mean)/l1Sigma/l2Sigma ;
1781   return (R2<2.5*2.5) ;
1782
1783 }
1784 //_____________________________________________________________________________
1785 Bool_t AliAnalysisTaskPi0Flow::TestLambda2(Double_t pt,Double_t l1,Double_t l2){
1786
1787   Double_t l2Mean  = 1.53126+9.50835e+06/(1.+1.08728e+07*pt+1.73420e+06*pt*pt) ;
1788   Double_t l1Mean  = 1.12365+0.123770*TMath::Exp(-pt*0.246551)+5.30000e-03*pt ;
1789   Double_t l2Sigma = 6.48260e-02+7.60261e+10/(1.+1.53012e+11*pt+5.01265e+05*pt*pt)+9.00000e-03*pt;
1790   Double_t l1Sigma = 4.44719e-04+6.99839e-01/(1.+1.22497e+00*pt+6.78604e-07*pt*pt)+9.00000e-03*pt;
1791   Double_t c=-0.35-0.550*TMath::Exp(-0.390730*pt) ;
1792   Double_t R2=0.5*(l1-l1Mean)*(l1-l1Mean)/l1Sigma/l1Sigma +
1793     0.5*(l2-l2Mean)*(l2-l2Mean)/l2Sigma/l2Sigma +
1794     0.5*c*(l1-l1Mean)*(l2-l2Mean)/l1Sigma/l2Sigma ;
1795   return (R2<1.5*1.5) ;
1796
1797 }
1798 //____________________________________________________________________________
1799 TList* AliAnalysisTaskPi0Flow::GetCaloPhotonsPHOSList(UInt_t vtxBin, UInt_t centBin, UInt_t rpBin)
1800 {
1801   int offset = vtxBin * GetNumberOfCentralityBins() * fNEMRPBins
1802               + centBin * fNEMRPBins
1803               + rpBin;
1804   if( fCaloPhotonsPHOSLists->At(offset) ) { // list exists
1805     TList* list = dynamic_cast<TList*> (fCaloPhotonsPHOSLists->At(offset));
1806     if( ! list )
1807       AliError("object in fCaloPhotonsPHOSLists at %i did not cast");
1808     return list;
1809   }
1810   else {// no list for this bin has been created, yet
1811     TList* list = new TList();
1812     list->SetOwner();
1813     fCaloPhotonsPHOSLists->AddAt(list, offset);
1814     return list;
1815   }
1816 }
1817
1818 //____________________________________________________________________________
1819 Double_t AliAnalysisTaskPi0Flow::TestCPV(Double_t dx, Double_t dz, Double_t pt, Int_t charge){
1820   //Parameterization of LHC10h period
1821   //_true if neutral_
1822
1823   Double_t meanX=0;
1824   Double_t meanZ=0.;
1825   Double_t sx=TMath::Min(5.4,2.59719e+02*TMath::Exp(-pt/1.02053e-01)+
1826                          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);
1827   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) ;
1828   AliVEvent *event = InputEvent();
1829   Double_t mf = 0.; //
1830   if(event) mf = event->GetMagneticField(); //Positive for ++ and negative for --
1831
1832   if(mf<0.){ //field --
1833     meanZ = -0.468318 ;
1834     if(charge>0)
1835       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)) ;
1836     else
1837       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)) ;
1838   }
1839   else{ //Field ++
1840     meanZ= -0.468318;
1841     if(charge>0)
1842       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)) ;
1843     else
1844       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)) ;
1845   }
1846
1847   Double_t rz=(dz-meanZ)/sz ;
1848   Double_t rx=(dx-meanX)/sx ;
1849   return TMath::Sqrt(rx*rx+rz*rz) ;
1850 }
1851 //____________________________________________________________________________
1852 Double_t  AliAnalysisTaskPi0Flow::ApplyFlatteningV0A(Double_t phi, Double_t c){
1853   //LHC10h
1854
1855   Double_t v2c =0.;
1856   Double_t v2s =0;
1857
1858 if(fInternalRunNumber==1){
1859   v2c=0.00271301 + (0.00340046)*c + (-0.000376369)*c*c + (8.56362e-06)*c*c*c + (-5.70955e-08)*c*c*c*c ;
1860   v2s=0.024278 + (0.000586593)*c + (-1.07748e-06)*c*c + (-5.01567e-07)*c*c*c + (3.65956e-09)*c*c*c*c ;
1861 }
1862 if(fInternalRunNumber==2){
1863   v2c=0.111374 + (-0.0111331)*c + (0.000212342)*c*c + (-9.6774e-07)*c*c*c + (-2.54199e-09)*c*c*c*c ;
1864   v2s=-0.0252636 + (0.0152193)*c + (-0.000830793)*c*c + (1.5099e-05)*c*c*c + (-9.04687e-08)*c*c*c*c ;
1865 }
1866 if(fInternalRunNumber==4){
1867   v2c=-0.0323376 + (0.0058672)*c + (-0.000257135)*c*c + (3.54353e-06)*c*c*c + (-1.50431e-08)*c*c*c*c ;
1868   v2s=0.0596758 + (-0.00520203)*c + (0.000178495)*c*c + (-2.94143e-06)*c*c*c + (1.55424e-08)*c*c*c*c ;
1869 }
1870 if(fInternalRunNumber==5){
1871   v2c=-0.0415369 + (0.0098273)*c + (-0.000486907)*c*c + (8.00188e-06)*c*c*c + (-4.29107e-08)*c*c*c*c ;
1872   v2s=-0.0146049 + (0.00693627)*c + (-0.000348663)*c*c + (5.79331e-06)*c*c*c + (-3.33179e-08)*c*c*c*c ;
1873 }
1874 if(fInternalRunNumber==6){
1875   v2c=0.251902 + (-0.0415419)*c + (0.0018553)*c*c + (-3.15181e-05)*c*c*c + (1.80073e-07)*c*c*c*c ;
1876   v2s=0.0771839 + (-0.00962468)*c + (0.000394453)*c*c + (-7.22485e-06)*c*c*c + (4.53562e-08)*c*c*c*c ;
1877 }
1878 if(fInternalRunNumber==7){
1879   v2c=0.157038 + (-0.0204377)*c + (0.000847477)*c*c + (-1.4232e-05)*c*c*c + (8.04965e-08)*c*c*c*c ;
1880   v2s=0.0256337 + (-0.00242333)*c + (0.000140455)*c*c + (-3.5149e-06)*c*c*c + (2.44854e-08)*c*c*c*c ;
1881 }
1882 if(fInternalRunNumber==8){
1883   v2c=-0.0916108 + (0.0146996)*c + (-0.000624971)*c*c + (9.63331e-06)*c*c*c + (-4.8574e-08)*c*c*c*c ;
1884   v2s=0.0332113 + (-0.00332475)*c + (0.000151857)*c*c + (-2.86187e-06)*c*c*c + (1.54796e-08)*c*c*c*c ;
1885 }
1886 if(fInternalRunNumber==9){
1887   v2c=0.00925348 + (1.58854e-05)*c + (-3.85178e-05)*c*c + (6.75167e-07)*c*c*c + (-3.1502e-09)*c*c*c*c ;
1888   v2s=0.0249253 + (-0.00300902)*c + (0.000152653)*c*c + (-3.20923e-06)*c*c*c + (2.08818e-08)*c*c*c*c ;
1889 }
1890 if(fInternalRunNumber==10){
1891   v2c=0.040903 + (0.00142711)*c + (-0.000264675)*c*c + (6.50624e-06)*c*c*c + (-4.46628e-08)*c*c*c*c ;
1892   v2s=0.0914196 + (-0.00957901)*c + (0.000408998)*c*c + (-7.49412e-06)*c*c*c + (4.63915e-08)*c*c*c*c ;
1893 }
1894 if(fInternalRunNumber==11){
1895   v2c=-0.0130133 + (0.00296474)*c + (-0.000183518)*c*c + (3.65755e-06)*c*c*c + (-2.24484e-08)*c*c*c*c ;
1896   v2s=-0.00449031 + (0.00365474)*c + (-0.000226455)*c*c + (4.49792e-06)*c*c*c + (-2.96018e-08)*c*c*c*c ;
1897 }
1898 if(fInternalRunNumber==12){
1899   v2c=-0.021987 + (0.00506675)*c + (-0.000301768)*c*c + (5.66088e-06)*c*c*c + (-3.21447e-08)*c*c*c*c ;
1900   v2s=0.0830858 + (-0.00871637)*c + (0.000299212)*c*c + (-4.10705e-06)*c*c*c + (1.76888e-08)*c*c*c*c ;
1901 }
1902 if(fInternalRunNumber==13){
1903   v2c=0.0502952 + (-0.00152478)*c + (-0.000106289)*c*c + (3.39398e-06)*c*c*c + (-2.45015e-08)*c*c*c*c ;
1904   v2s=0.0639936 + (-0.00775191)*c + (0.000347449)*c*c + (-6.46454e-06)*c*c*c + (4.00439e-08)*c*c*c*c ;
1905 }
1906 if(fInternalRunNumber==14){
1907   v2c=-0.116922 + (0.0122105)*c + (-0.000373923)*c*c + (4.08464e-06)*c*c*c + (-1.05659e-08)*c*c*c*c ;
1908   v2s=0.128821 + (-0.0204399)*c + (0.000831009)*c*c + (-1.33147e-05)*c*c*c + (7.24876e-08)*c*c*c*c ;
1909 }
1910 if(fInternalRunNumber==15){
1911   v2c=0.0853741 + (-0.00924528)*c + (0.00034257)*c*c + (-5.69551e-06)*c*c*c + (3.44998e-08)*c*c*c*c ;
1912   v2s=0.0205492 + (-0.00052015)*c + (-5.42051e-05)*c*c + (1.82754e-06)*c*c*c + (-1.58393e-08)*c*c*c*c ;
1913 }
1914 if(fInternalRunNumber==16){
1915   v2c=-0.0233639 + (0.00703612)*c + (-0.000403314)*c*c + (7.45693e-06)*c*c*c + (-4.4522e-08)*c*c*c*c ;
1916   v2s=-0.0712605 + (0.0124469)*c + (-0.000543644)*c*c + (8.22618e-06)*c*c*c + (-4.1073e-08)*c*c*c*c ;
1917 }
1918 if(fInternalRunNumber==17){
1919   v2c=0.0113215 + (-0.0019788)*c + (9.81834e-05)*c*c + (-1.30009e-06)*c*c*c + (5.03998e-09)*c*c*c*c ;
1920   v2s=0.0459851 + (-0.00170929)*c + (-5.96459e-05)*c*c + (2.90146e-06)*c*c*c + (-2.85325e-08)*c*c*c*c ;
1921 }
1922 if(fInternalRunNumber==18){
1923   v2c=-0.0924521 + (0.0162203)*c + (-0.000702717)*c*c + (1.0269e-05)*c*c*c + (-4.632e-08)*c*c*c*c ;
1924   v2s=-0.0456605 + (0.00706138)*c + (-0.000243957)*c*c + (2.7335e-06)*c*c*c + (-8.83296e-09)*c*c*c*c ;
1925 }
1926 if(fInternalRunNumber==19){
1927   v2c=0.00150974 + (0.0113356)*c + (-0.000923111)*c*c + (2.0452e-05)*c*c*c + (-1.36949e-07)*c*c*c*c ;
1928   v2s=0.0673845 + (-0.0187379)*c + (0.00112044)*c*c + (-2.19997e-05)*c*c*c + (1.33115e-07)*c*c*c*c ;
1929 }
1930 if(fInternalRunNumber==20){
1931   v2c=0.0223891 + (-0.000921021)*c + (-3.56276e-05)*c*c + (9.95622e-07)*c*c*c + (-5.54486e-09)*c*c*c*c ;
1932   v2s=0.0657305 + (-0.00354234)*c + (2.90428e-05)*c*c + (5.82994e-07)*c*c*c + (-7.53656e-09)*c*c*c*c ;
1933 }
1934 if(fInternalRunNumber==21){
1935   v2c=0.00969434 + (-0.00195313)*c + (3.56409e-05)*c*c + (2.15514e-07)*c*c*c + (-5.5161e-09)*c*c*c*c ;
1936   v2s=0.000236584 + (0.00458234)*c + (-0.000306408)*c*c + (6.04476e-06)*c*c*c + (-3.79354e-08)*c*c*c*c ;
1937 }
1938 if(fInternalRunNumber==22){
1939   v2c=0.0973536 + (-0.00907174)*c + (0.000239041)*c*c + (-2.64399e-06)*c*c*c + (1.12038e-08)*c*c*c*c ;
1940   v2s=0.0506578 + (-0.00256521)*c + (1.53982e-05)*c*c + (4.18193e-07)*c*c*c + (-4.99622e-09)*c*c*c*c ;
1941 }
1942 if(fInternalRunNumber==23){
1943   v2c=0.120714 + (-0.0190965)*c + (0.000887955)*c*c + (-1.57144e-05)*c*c*c + (9.22823e-08)*c*c*c*c ;
1944   v2s=-0.00178837 + (0.00377706)*c + (-0.000358619)*c*c + (9.54949e-06)*c*c*c + (-7.39141e-08)*c*c*c*c ;
1945 }
1946 if(fInternalRunNumber==24){
1947   v2c=0.0593053 + (-0.00687397)*c + (0.000200607)*c*c + (-2.34483e-06)*c*c*c + (9.60642e-09)*c*c*c*c ;
1948   v2s=0.0235174 + (0.00219788)*c + (-0.000225065)*c*c + (4.9594e-06)*c*c*c + (-3.2695e-08)*c*c*c*c ;
1949 }
1950 if(fInternalRunNumber==25){
1951   v2c=0.0551353 + (-0.00340874)*c + (2.26718e-05)*c*c + (4.1675e-07)*c*c*c + (-3.37457e-09)*c*c*c*c ;
1952   v2s=0.0110038 + (-0.000180543)*c + (3.28645e-05)*c*c + (-1.08119e-06)*c*c*c + (6.7157e-09)*c*c*c*c ;
1953 }
1954 if(fInternalRunNumber==26){
1955   v2c=-0.0138673 + (0.00475006)*c + (-0.00030584)*c*c + (6.0294e-06)*c*c*c + (-3.69906e-08)*c*c*c*c ;
1956   v2s=0.0395065 + (-0.00331262)*c + (9.40592e-05)*c*c + (-1.1541e-06)*c*c*c + (4.38329e-09)*c*c*c*c ;
1957 }
1958 if(fInternalRunNumber==27){
1959   v2c=0.0547504 + (-0.00669067)*c + (0.000269785)*c*c + (-4.75217e-06)*c*c*c + (2.96254e-08)*c*c*c*c ;
1960   v2s=0.101508 + (-0.0107211)*c + (0.000385539)*c*c + (-6.28713e-06)*c*c*c + (3.75932e-08)*c*c*c*c ;
1961 }
1962 if(fInternalRunNumber==28){
1963   v2c=-0.102173 + (0.0158262)*c + (-0.000706394)*c*c + (1.14263e-05)*c*c*c + (-6.14646e-08)*c*c*c*c ;
1964   v2s=0.02013 + (9.82197e-05)*c + (-1.71572e-05)*c*c + (-7.69646e-08)*c*c*c + (1.45113e-09)*c*c*c*c ;
1965 }
1966 if(fInternalRunNumber==29){
1967   v2c=0.100539 + (-0.0115012)*c + (0.000295367)*c*c + (-2.57489e-06)*c*c*c + (5.41526e-09)*c*c*c*c ;
1968   v2s=0.138027 + (-0.00342397)*c + (-0.000392569)*c*c + (1.34626e-05)*c*c*c + (-1.06683e-07)*c*c*c*c ;
1969 }
1970 if(fInternalRunNumber==30){
1971   v2c=0.0695326 + (-0.00752755)*c + (0.000237872)*c*c + (-3.31513e-06)*c*c*c + (1.69653e-08)*c*c*c*c ;
1972   v2s=0.0290133 + (-0.00073999)*c + (-3.35653e-05)*c*c + (7.61029e-07)*c*c*c + (-2.95792e-09)*c*c*c*c ;
1973 }
1974 if(fInternalRunNumber==31){
1975   v2c=-0.103171 + (0.0134058)*c + (-0.000631602)*c*c + (1.10298e-05)*c*c*c + (-6.41177e-08)*c*c*c*c ;
1976   v2s=-0.137648 + (0.0111259)*c + (-0.000400035)*c*c + (5.90535e-06)*c*c*c + (-3.24676e-08)*c*c*c*c ;
1977 }
1978 if(fInternalRunNumber==32){
1979   v2c=0.0522957 + (-0.00718492)*c + (0.000288586)*c*c + (-5.14534e-06)*c*c*c + (3.31303e-08)*c*c*c*c ;
1980   v2s=0.0731685 + (-0.00469449)*c + (9.57641e-05)*c*c + (-1.11891e-06)*c*c*c + (6.13984e-09)*c*c*c*c ;
1981 }
1982 if(fInternalRunNumber==33){
1983   v2c=0.0882828 + (-0.00916109)*c + (0.00027821)*c*c + (-3.61312e-06)*c*c*c + (1.76418e-08)*c*c*c*c ;
1984   v2s=0.123302 + (-0.0156303)*c + (0.000623468)*c*c + (-9.83474e-06)*c*c*c + (5.24687e-08)*c*c*c*c ;
1985 }
1986 if(fInternalRunNumber==34){
1987   v2c=0.0848636 + (-0.0142808)*c + (0.000723319)*c*c + (-1.32627e-05)*c*c*c + (7.77064e-08)*c*c*c*c ;
1988   v2s=-0.138483 + (0.0268553)*c + (-0.0013585)*c*c + (2.56034e-05)*c*c*c + (-1.63065e-07)*c*c*c*c ;
1989 }
1990 if(fInternalRunNumber==35){
1991   v2c=-0.0134575 + (0.00267433)*c + (-0.000168784)*c*c + (3.24012e-06)*c*c*c + (-1.92766e-08)*c*c*c*c ;
1992   v2s=0.0596795 + (-0.00350808)*c + (2.97282e-05)*c*c + (3.52115e-07)*c*c*c + (-4.17462e-09)*c*c*c*c ;
1993 }
1994 if(fInternalRunNumber==36){
1995   v2c=0.0784813 + (-0.00718389)*c + (0.000145303)*c*c + (-1.40121e-06)*c*c*c + (7.52775e-09)*c*c*c*c ;
1996   v2s=-0.0439181 + (0.0101363)*c + (-0.000494075)*c*c + (8.43356e-06)*c*c*c + (-4.68549e-08)*c*c*c*c ;
1997 }
1998 if(fInternalRunNumber==37){
1999   v2c=-0.0118549 + (0.00328751)*c + (-0.000207156)*c*c + (3.92678e-06)*c*c*c + (-2.30059e-08)*c*c*c*c ;
2000   v2s=0.0344878 + (-0.000363669)*c + (-7.62481e-05)*c*c + (1.67135e-06)*c*c*c + (-9.64004e-09)*c*c*c*c ;
2001 }
2002 if(fInternalRunNumber==38){
2003   v2c=-0.0254171 + (0.00297494)*c + (-0.000122361)*c*c + (1.78861e-06)*c*c*c + (-7.87609e-09)*c*c*c*c ;
2004   v2s=-0.0321399 + (0.00705636)*c + (-0.000325906)*c*c + (5.17669e-06)*c*c*c + (-2.86143e-08)*c*c*c*c ;
2005 }
2006 if(fInternalRunNumber==39){
2007   v2c=-0.0368721 + (0.00253133)*c + (-0.000136793)*c*c + (2.51874e-06)*c*c*c + (-1.46055e-08)*c*c*c*c ;
2008   v2s=-0.0757763 + (0.005728)*c + (-0.000217489)*c*c + (3.11936e-06)*c*c*c + (-1.56919e-08)*c*c*c*c ;
2009 }
2010 if(fInternalRunNumber==40){
2011   v2c=0.0166884 + (0.000509256)*c + (-0.000117911)*c*c + (2.65839e-06)*c*c*c + (-1.60875e-08)*c*c*c*c ;
2012   v2s=0.0336629 + (-0.00123023)*c + (-4.90123e-05)*c*c + (2.17862e-06)*c*c*c + (-1.98445e-08)*c*c*c*c ;
2013 }
2014 if(fInternalRunNumber==41){
2015   v2c=-0.00887514 + (0.00491344)*c + (-0.000325782)*c*c + (6.54782e-06)*c*c*c + (-4.14143e-08)*c*c*c*c ;
2016   v2s=0.0720999 + (-0.00650524)*c + (0.000214752)*c*c + (-3.19681e-06)*c*c*c + (1.64573e-08)*c*c*c*c ;
2017 }
2018 if(fInternalRunNumber==42){
2019   v2c=-0.0495903 + (0.00428229)*c + (-0.000181618)*c*c + (2.3913e-06)*c*c*c + (-8.55469e-09)*c*c*c*c ;
2020   v2s=0.0127982 + (-0.00690065)*c + (0.000342707)*c*c + (-6.40515e-06)*c*c*c + (3.83973e-08)*c*c*c*c ;
2021 }
2022 if(fInternalRunNumber==43){
2023   v2c=0.0196783 + (-0.000221524)*c + (-7.09556e-05)*c*c + (1.76517e-06)*c*c*c + (-1.19612e-08)*c*c*c*c ;
2024   v2s=0.0350359 + (-0.0020458)*c + (5.18727e-05)*c*c + (-6.58401e-07)*c*c*c + (1.10936e-09)*c*c*c*c ;
2025 }
2026 if(fInternalRunNumber==44){
2027   v2c=-0.0196041 + (0.00257682)*c + (-0.000174854)*c*c + (3.2168e-06)*c*c*c + (-1.85569e-08)*c*c*c*c ;
2028   v2s=-0.0870278 + (0.00634528)*c + (-0.000273588)*c*c + (4.77944e-06)*c*c*c + (-2.98422e-08)*c*c*c*c ;
2029 }
2030 if(fInternalRunNumber==45){
2031   v2c=-0.0105827 + (0.00271714)*c + (-0.000152357)*c*c + (2.71899e-06)*c*c*c + (-1.5435e-08)*c*c*c*c ;
2032   v2s=0.135579 + (-0.0135952)*c + (0.000424184)*c*c + (-5.12316e-06)*c*c*c + (1.84497e-08)*c*c*c*c ;
2033 }
2034 if(fInternalRunNumber==46){
2035   v2c=-0.017755 + (0.00411137)*c + (-0.000231724)*c*c + (4.17641e-06)*c*c*c + (-2.39164e-08)*c*c*c*c ;
2036   v2s=-0.0198628 + (0.0010032)*c + (-4.9708e-05)*c*c + (7.12455e-07)*c*c*c + (-4.22231e-09)*c*c*c*c ;
2037 }
2038 if(fInternalRunNumber==47){
2039   v2c=-0.0111387 + (0.00258591)*c + (-0.000194287)*c*c + (3.84062e-06)*c*c*c + (-2.37192e-08)*c*c*c*c ;
2040   v2s=-0.0478616 + (0.00365349)*c + (-0.000152037)*c*c + (2.24323e-06)*c*c*c + (-1.23308e-08)*c*c*c*c ;
2041 }
2042 if(fInternalRunNumber==48){
2043   v2c=0.070344 + (-0.0137332)*c + (0.000638536)*c*c + (-1.188e-05)*c*c*c + (7.4801e-08)*c*c*c*c ;
2044   v2s=-0.00208823 + (-0.00314157)*c + (9.9553e-05)*c*c + (-8.73891e-07)*c*c*c + (-1.72944e-09)*c*c*c*c ;
2045 }
2046 if(fInternalRunNumber==51){
2047   v2c=0.017789 + (-0.00598224)*c + (0.000328477)*c*c + (-6.80787e-06)*c*c*c + (4.46905e-08)*c*c*c*c ;
2048   v2s=-0.0894734 + (0.007351)*c + (-0.000291085)*c*c + (4.38654e-06)*c*c*c + (-2.32261e-08)*c*c*c*c ;
2049 }
2050 if(fInternalRunNumber==52){
2051   v2c=0.0555614 + (-0.00430576)*c + (0.00011519)*c*c + (-1.81584e-06)*c*c*c + (1.19214e-08)*c*c*c*c ;
2052   v2s=0.0901479 + (-0.0091505)*c + (0.000343757)*c*c + (-5.71204e-06)*c*c*c + (3.31217e-08)*c*c*c*c ;
2053 }
2054 if(fInternalRunNumber==53){
2055   v2c=0.0181761 + (-0.00186378)*c + (4.60531e-05)*c*c + (-7.59581e-07)*c*c*c + (5.52465e-09)*c*c*c*c ;
2056   v2s=0.0456713 + (-0.00526813)*c + (0.000232978)*c*c + (-3.98724e-06)*c*c*c + (2.10384e-08)*c*c*c*c ;
2057 }
2058 if(fInternalRunNumber==54){
2059   v2c=0.0456225 + (-0.00611173)*c + (0.000228414)*c*c + (-3.70527e-06)*c*c*c + (2.10774e-08)*c*c*c*c ;
2060   v2s=-0.00553874 + (0.00501799)*c + (-0.000331323)*c*c + (6.96978e-06)*c*c*c + (-4.72472e-08)*c*c*c*c ;
2061 }
2062 if(fInternalRunNumber==55){
2063   v2c=-0.0578879 + (0.00664986)*c + (-0.000335443)*c*c + (6.0086e-06)*c*c*c + (-3.54293e-08)*c*c*c*c ;
2064   v2s=-0.0675269 + (0.00407581)*c + (-0.000148063)*c*c + (1.922e-06)*c*c*c + (-8.8635e-09)*c*c*c*c ;
2065 }
2066 if(fInternalRunNumber==56){
2067   v2c=-0.000898903 + (0.00199222)*c + (-0.000207257)*c*c + (4.46148e-06)*c*c*c + (-2.71361e-08)*c*c*c*c ;
2068   v2s=-0.103794 + (0.0198667)*c + (-0.000879042)*c*c + (1.43177e-05)*c*c*c + (-8.09672e-08)*c*c*c*c ;
2069 }
2070 if(fInternalRunNumber==57){
2071   v2c=0.00953087 + (0.000947327)*c + (-3.45822e-05)*c*c + (-4.22294e-07)*c*c*c + (9.08727e-09)*c*c*c*c ;
2072   v2s=0.0662314 + (-0.0076136)*c + (0.000288482)*c*c + (-4.82931e-06)*c*c*c + (2.67751e-08)*c*c*c*c ;
2073 }
2074 if(fInternalRunNumber==58){
2075   v2c=0.00682728 + (-0.000293407)*c + (-2.88037e-05)*c*c + (6.63629e-07)*c*c*c + (-3.93121e-09)*c*c*c*c ;
2076   v2s=0.0085365 + (0.00138919)*c + (-8.15068e-05)*c*c + (1.26437e-06)*c*c*c + (-7.50322e-09)*c*c*c*c ;
2077 }
2078 if(fInternalRunNumber==59){
2079   v2c=-0.0185226 + (0.00377881)*c + (-0.000226383)*c*c + (4.22897e-06)*c*c*c + (-2.51383e-08)*c*c*c*c ;
2080   v2s=-0.222605 + (0.0100699)*c + (-0.00029256)*c*c + (3.3855e-06)*c*c*c + (-1.33648e-08)*c*c*c*c ;
2081 }
2082 if(fInternalRunNumber==60){
2083   v2c=-0.00111322 + (0.00291259)*c + (-0.000215769)*c*c + (4.13355e-06)*c*c*c + (-2.36883e-08)*c*c*c*c ;
2084   v2s=0.033686 + (-0.00124534)*c + (1.52616e-05)*c*c + (-2.99302e-07)*c*c*c + (1.05198e-09)*c*c*c*c ;
2085 }
2086 if(fInternalRunNumber==61){
2087   v2c=0.00041873 + (-0.000231092)*c + (1.19226e-05)*c*c + (-6.29604e-07)*c*c*c + (7.26582e-09)*c*c*c*c ;
2088   v2s=0.00435438 + (0.0025265)*c + (-0.000153028)*c*c + (2.71169e-06)*c*c*c + (-1.67127e-08)*c*c*c*c ;
2089 }
2090 if(fInternalRunNumber==62){
2091   v2c=-0.0573899 + (0.00972389)*c + (-0.000495772)*c*c + (9.0103e-06)*c*c*c + (-5.45756e-08)*c*c*c*c ;
2092   v2s=0.00702691 + (0.00698504)*c + (-0.000541929)*c*c + (1.19971e-05)*c*c*c + (-8.26942e-08)*c*c*c*c ;
2093 }
2094 if(fInternalRunNumber==63){
2095   v2c=0.047222 + (-0.00604037)*c + (0.0002092)*c*c + (-3.07144e-06)*c*c*c + (1.68579e-08)*c*c*c*c ;
2096   v2s=0.0568815 + (-0.00607571)*c + (0.000244243)*c*c + (-4.22237e-06)*c*c*c + (2.38928e-08)*c*c*c*c ;
2097 }
2098 if(fInternalRunNumber==64){
2099   v2c=0.0464686 + (-0.00463482)*c + (0.000146379)*c*c + (-2.23008e-06)*c*c*c + (1.29549e-08)*c*c*c*c ;
2100   v2s=-0.00571995 + (0.00273485)*c + (-0.000131945)*c*c + (2.08986e-06)*c*c*c + (-1.26717e-08)*c*c*c*c ;
2101 }
2102 if(fInternalRunNumber==65){
2103   v2c=0.0544794 + (-0.00616918)*c + (0.000173808)*c*c + (-2.01338e-06)*c*c*c + (8.78123e-09)*c*c*c*c ;
2104   v2s=0.0557002 + (-0.00701287)*c + (0.000340418)*c*c + (-6.12754e-06)*c*c*c + (3.3384e-08)*c*c*c*c ;
2105 }
2106 if(fInternalRunNumber==66){
2107   v2c=0.0111176 + (0.000262254)*c + (-7.20349e-05)*c*c + (1.38755e-06)*c*c*c + (-6.65016e-09)*c*c*c*c ;
2108   v2s=0.0644184 + (-0.00518515)*c + (0.000174227)*c*c + (-2.7347e-06)*c*c*c + (1.29547e-08)*c*c*c*c ;
2109 }
2110 if(fInternalRunNumber==67){
2111   v2c=-0.0481037 + (0.00823686)*c + (-0.000418053)*c*c + (7.40186e-06)*c*c*c + (-4.19609e-08)*c*c*c*c ;
2112   v2s=0.0560171 + (-0.002556)*c + (2.54529e-05)*c*c + (-5.22269e-09)*c*c*c + (-2.19983e-09)*c*c*c*c ;
2113 }
2114 if(fInternalRunNumber==68){
2115   v2c=-0.0139809 + (0.00274305)*c + (-0.00017744)*c*c + (3.20286e-06)*c*c*c + (-1.74137e-08)*c*c*c*c ;
2116   v2s=-0.218673 + (0.00764806)*c + (-0.000222739)*c*c + (3.14656e-06)*c*c*c + (-1.73548e-08)*c*c*c*c ;
2117 }
2118 if(fInternalRunNumber==69){
2119   v2c=0.0736938 + (-0.0122004)*c + (0.000498227)*c*c + (-8.08779e-06)*c*c*c + (4.52749e-08)*c*c*c*c ;
2120   v2s=-0.236254 + (0.00979816)*c + (-0.000280698)*c*c + (3.4103e-06)*c*c*c + (-1.47299e-08)*c*c*c*c ;
2121 }
2122 if(fInternalRunNumber==70){
2123   v2c=-0.0366545 + (0.00399604)*c + (-0.000196876)*c*c + (3.49686e-06)*c*c*c + (-2.01142e-08)*c*c*c*c ;
2124   v2s=0.0220911 + (-0.000529459)*c + (9.10408e-06)*c*c + (-3.57334e-07)*c*c*c + (1.87909e-09)*c*c*c*c ;
2125 }
2126 if(fInternalRunNumber==71){
2127   v2c=-0.039698 + (0.00654615)*c + (-0.000323865)*c*c + (5.50998e-06)*c*c*c + (-3.00866e-08)*c*c*c*c ;
2128   v2s=0.0650078 + (-0.00502636)*c + (0.000128459)*c*c + (-1.3877e-06)*c*c*c + (3.21917e-09)*c*c*c*c ;
2129 }
2130 if(fInternalRunNumber==72){
2131   v2c=0.0594227 + (-0.00872513)*c + (0.000368684)*c*c + (-6.34986e-06)*c*c*c + (3.79523e-08)*c*c*c*c ;
2132   v2s=0.050348 + (-0.00512087)*c + (0.000228643)*c*c + (-4.40797e-06)*c*c*c + (2.62482e-08)*c*c*c*c ;
2133 }
2134 if(fInternalRunNumber==73){
2135   v2c=0.131281 + (-0.0162697)*c + (0.000584063)*c*c + (-8.64349e-06)*c*c*c + (4.61009e-08)*c*c*c*c ;
2136   v2s=0.0271721 + (-0.000487039)*c + (1.60624e-05)*c*c + (-5.38029e-07)*c*c*c + (2.08589e-09)*c*c*c*c ;
2137 }
2138 if(fInternalRunNumber==74){
2139   v2c=-0.0128651 + (0.00946426)*c + (-0.00055547)*c*c + (9.37245e-06)*c*c*c + (-4.78224e-08)*c*c*c*c ;
2140   v2s=0.0903476 + (-0.0164972)*c + (0.000927481)*c*c + (-1.88459e-05)*c*c*c + (1.20249e-07)*c*c*c*c ;
2141 }
2142 if(fInternalRunNumber==75){
2143   v2c=0.0204147 + (-0.00139139)*c + (-2.47732e-05)*c*c + (1.1214e-06)*c*c*c + (-7.22533e-09)*c*c*c*c ;
2144   v2s=0.0214247 + (-0.000147929)*c + (-7.58241e-06)*c*c + (-7.05565e-08)*c*c*c + (-4.86528e-10)*c*c*c*c ;
2145 }
2146 if(fInternalRunNumber==76){
2147   v2c=0.0469095 + (-0.00541793)*c + (0.000133238)*c*c + (-1.14334e-06)*c*c*c + (3.4826e-09)*c*c*c*c ;
2148   v2s=0.0304763 + (-0.00213957)*c + (8.27588e-05)*c*c + (-1.34495e-06)*c*c*c + (4.81134e-09)*c*c*c*c ;
2149 }
2150 if(fInternalRunNumber==77){
2151   v2c=0.113822 + (-0.0154286)*c + (0.000574533)*c*c + (-8.67874e-06)*c*c*c + (4.76727e-08)*c*c*c*c ;
2152   v2s=0.010623 + (0.00513467)*c + (-0.000372733)*c*c + (7.40692e-06)*c*c*c + (-4.64093e-08)*c*c*c*c ;
2153 }
2154 if(fInternalRunNumber==78){
2155   v2c=0.020658 + (-0.00274725)*c + (5.8872e-05)*c*c + (-3.43999e-07)*c*c*c + (-1.04273e-10)*c*c*c*c ;
2156   v2s=0.00219379 + (0.000972033)*c + (-1.41816e-05)*c*c + (-4.41149e-07)*c*c*c + (3.81037e-09)*c*c*c*c ;
2157 }
2158 if(fInternalRunNumber==79){
2159   v2c=0.227324 + (-0.0264915)*c + (0.000915298)*c*c + (-1.3343e-05)*c*c*c + (7.1044e-08)*c*c*c*c ;
2160   v2s=0.0474072 + (-0.00939515)*c + (0.000730108)*c*c + (-1.80811e-05)*c*c*c + (1.3003e-07)*c*c*c*c ;
2161 }
2162 if(fInternalRunNumber==81){
2163   v2c=-0.0368028 + (0.00368927)*c + (-0.000228321)*c*c + (4.48174e-06)*c*c*c + (-2.75298e-08)*c*c*c*c ;
2164   v2s=-0.238807 + (0.0108667)*c + (-0.000350649)*c*c + (4.95568e-06)*c*c*c + (-2.53022e-08)*c*c*c*c ;
2165 }
2166 if(fInternalRunNumber==82){
2167   v2c=-0.0214072 + (0.00119258)*c + (-7.80215e-05)*c*c + (1.37682e-06)*c*c*c + (-7.31103e-09)*c*c*c*c ;
2168   v2s=-0.233825 + (0.00735109)*c + (-0.000142737)*c*c + (9.15013e-07)*c*c*c + (-1.98463e-10)*c*c*c*c ;
2169 }
2170 if(fInternalRunNumber==83){
2171   v2c=-0.0716708 + (0.00855289)*c + (-0.00037249)*c*c + (6.41638e-06)*c*c*c + (-3.66318e-08)*c*c*c*c ;
2172   v2s=-0.329702 + (0.033231)*c + (-0.00131012)*c*c + (2.1101e-05)*c*c*c + (-1.18905e-07)*c*c*c*c ;
2173 }
2174 if(fInternalRunNumber==84){
2175   v2c=-0.0259022 + (0.00711773)*c + (-0.000434778)*c*c + (8.94774e-06)*c*c*c + (-5.84408e-08)*c*c*c*c ;
2176   v2s=-0.0936287 + (-0.00455282)*c + (0.000390982)*c*c + (-7.95224e-06)*c*c*c + (4.95612e-08)*c*c*c*c ;
2177 }
2178 if(fInternalRunNumber==85){
2179   v2c=0.0263223 + (-0.00475593)*c + (9.63236e-05)*c*c + (-4.95311e-07)*c*c*c + (-5.47428e-10)*c*c*c*c ;
2180   v2s=-0.220593 + (0.00823892)*c + (-0.000248477)*c*c + (3.28082e-06)*c*c*c + (-1.45098e-08)*c*c*c*c ;
2181 }
2182 if(fInternalRunNumber==86){
2183   v2c=-0.0157962 + (0.00408922)*c + (-0.000282087)*c*c + (5.81961e-06)*c*c*c + (-3.6481e-08)*c*c*c*c ;
2184   v2s=0.0340979 + (-0.00139471)*c + (6.48561e-06)*c*c + (3.02184e-08)*c*c*c + (-1.05879e-09)*c*c*c*c ;
2185 }
2186 if(fInternalRunNumber==87){
2187   v2c=0.0577366 + (-0.00471394)*c + (0.000107329)*c*c + (-7.28927e-07)*c*c*c + (-1.51199e-09)*c*c*c*c ;
2188   v2s=0.0350171 + (-0.00402687)*c + (0.00016046)*c*c + (-2.39625e-06)*c*c*c + (9.98146e-09)*c*c*c*c ;
2189 }
2190 if(fInternalRunNumber==88){
2191   v2c=-0.00547971 + (0.00161905)*c + (-0.00013831)*c*c + (2.94662e-06)*c*c*c + (-1.92504e-08)*c*c*c*c ;
2192   v2s=-0.0722251 + (0.0127634)*c + (-0.000612284)*c*c + (1.07553e-05)*c*c*c + (-6.34054e-08)*c*c*c*c ;
2193 }
2194 if(fInternalRunNumber==89){
2195   v2c=0.165574 + (-0.0241913)*c + (0.00101221)*c*c + (-1.62279e-05)*c*c*c + (8.77252e-08)*c*c*c*c ;
2196   v2s=0.0692954 + (-0.0147219)*c + (0.00068782)*c*c + (-1.11091e-05)*c*c*c + (5.37295e-08)*c*c*c*c ;
2197 }
2198 if(fInternalRunNumber==91){
2199   v2c=-0.0334666 + (0.00583866)*c + (-0.000329883)*c*c + (6.08932e-06)*c*c*c + (-3.59853e-08)*c*c*c*c ;
2200   v2s=-0.229775 + (0.010061)*c + (-0.00028144)*c*c + (3.3231e-06)*c*c*c + (-1.40799e-08)*c*c*c*c ;
2201 }
2202 if(fInternalRunNumber==95){
2203   v2c=-0.0993203 + (0.0150547)*c + (-0.000713531)*c*c + (1.22733e-05)*c*c*c + (-6.98669e-08)*c*c*c*c ;
2204   v2s=-0.217746 + (0.0068375)*c + (-0.000171962)*c*c + (2.05506e-06)*c*c*c + (-8.78703e-09)*c*c*c*c ;
2205 }
2206 if(fInternalRunNumber==96){
2207   v2c=-0.0398801 + (0.00406028)*c + (-0.000214066)*c*c + (3.69056e-06)*c*c*c + (-1.99339e-08)*c*c*c*c ;
2208   v2s=-0.240195 + (0.00782806)*c + (-0.000131365)*c*c + (3.18193e-07)*c*c*c + (4.88009e-09)*c*c*c*c ;
2209 }
2210 if(fInternalRunNumber==97){
2211   v2c=-0.0325538 + (0.00250986)*c + (-0.000136762)*c*c + (2.35572e-06)*c*c*c + (-1.23413e-08)*c*c*c*c ;
2212   v2s=-0.240415 + (0.010435)*c + (-0.000291848)*c*c + (3.35357e-06)*c*c*c + (-1.35833e-08)*c*c*c*c ;
2213 }
2214 if(fInternalRunNumber==98){
2215   v2c=-0.00692338 + (0.00379335)*c + (-0.000332833)*c*c + (7.35052e-06)*c*c*c + (-4.89956e-08)*c*c*c*c ;
2216   v2s=-0.263042 + (0.0134291)*c + (-0.000465334)*c*c + (7.09595e-06)*c*c*c + (-3.90332e-08)*c*c*c*c ;
2217 }
2218 if(fInternalRunNumber==101){
2219   v2c=-0.049409 + (0.0073433)*c + (-0.000376933)*c*c + (7.39945e-06)*c*c*c + (-4.967e-08)*c*c*c*c ;
2220   v2s=0.00564511 + (-0.00101958)*c + (0.000121077)*c*c + (-3.44889e-06)*c*c*c + (2.42733e-08)*c*c*c*c ;
2221 }
2222 if(fInternalRunNumber==102){
2223   v2c=-0.0393185 + (0.00610331)*c + (-0.000286099)*c*c + (4.61693e-06)*c*c*c + (-2.44104e-08)*c*c*c*c ;
2224   v2s=-0.00898987 + (0.00463766)*c + (-0.000269122)*c*c + (5.46456e-06)*c*c*c + (-3.85677e-08)*c*c*c*c ;
2225 }
2226 if(fInternalRunNumber==103){
2227   v2c=-0.0171815 + (0.00271616)*c + (-9.49063e-05)*c*c + (5.68888e-07)*c*c*c + (2.77777e-09)*c*c*c*c ;
2228   v2s=-0.0348362 + (0.00661647)*c + (-0.000196625)*c*c + (1.60914e-06)*c*c*c + (-4.34769e-09)*c*c*c*c ;
2229 }
2230 if(fInternalRunNumber==104){
2231   v2c=0.0453893 + (-0.00220981)*c + (-6.34642e-05)*c*c + (2.5268e-06)*c*c*c + (-1.81319e-08)*c*c*c*c ;
2232   v2s=0.0131555 + (0.00115036)*c + (-5.70975e-05)*c*c + (5.20224e-07)*c*c*c + (-3.11332e-09)*c*c*c*c ;
2233 }
2234 if(fInternalRunNumber==105){
2235   v2c=0.0052505 + (0.000251094)*c + (-3.95143e-05)*c*c + (5.6354e-07)*c*c*c + (-1.86603e-09)*c*c*c*c ;
2236   v2s=0.079882 + (-0.00841369)*c + (0.000342924)*c*c + (-5.64554e-06)*c*c*c + (2.89511e-08)*c*c*c*c ;
2237 }
2238 if(fInternalRunNumber==106){
2239   v2c=0.0561693 + (-0.00693389)*c + (0.000243013)*c*c + (-3.7816e-06)*c*c*c + (2.21666e-08)*c*c*c*c ;
2240   v2s=0.115847 + (-0.0145063)*c + (0.000597908)*c*c + (-9.37418e-06)*c*c*c + (4.57406e-08)*c*c*c*c ;
2241 }
2242 if(fInternalRunNumber==107){
2243   v2c=-0.160892 + (0.0259075)*c + (-0.00120084)*c*c + (1.99814e-05)*c*c*c + (-1.09708e-07)*c*c*c*c ;
2244   v2s=0.0922001 + (-0.00861465)*c + (0.000196846)*c*c + (-5.34939e-07)*c*c*c + (-1.20442e-08)*c*c*c*c ;
2245 }
2246 if(fInternalRunNumber==108){
2247   v2c=0.0325605 + (-0.00795036)*c + (0.000436987)*c*c + (-9.37794e-06)*c*c*c + (6.59912e-08)*c*c*c*c ;
2248   v2s=0.0894763 + (-0.00694006)*c + (0.000214928)*c*c + (-3.05745e-06)*c*c*c + (1.33679e-08)*c*c*c*c ;
2249 }
2250 if(fInternalRunNumber==109){
2251   v2c=-8.30505e-05 + (0.00304264)*c + (-0.000228365)*c*c + (4.43511e-06)*c*c*c + (-2.5788e-08)*c*c*c*c ;
2252   v2s=0.0276356 + (-0.000486726)*c + (-1.12152e-05)*c*c + (1.56258e-07)*c*c*c + (-2.17826e-09)*c*c*c*c ;
2253 }
2254 if(fInternalRunNumber==112){
2255   v2c=0.0273919 + (-0.00243837)*c + (2.41667e-05)*c*c + (3.06367e-07)*c*c*c + (-3.9028e-09)*c*c*c*c ;
2256   v2s=0.0119428 + (0.00161447)*c + (-0.00010526)*c*c + (1.76239e-06)*c*c*c + (-1.12844e-08)*c*c*c*c ;
2257 }
2258 if(fInternalRunNumber==114){
2259   v2c=0.114287 + (-0.016125)*c + (0.000673002)*c*c + (-1.11635e-05)*c*c*c + (6.39533e-08)*c*c*c*c ;
2260   v2s=0.0353709 + (-0.00169691)*c + (-3.93183e-05)*c*c + (2.08815e-06)*c*c*c + (-2.03159e-08)*c*c*c*c ;
2261 }
2262 if(fInternalRunNumber==115){
2263   v2c=-0.0109276 + (0.00378322)*c + (-0.000252651)*c*c + (4.599e-06)*c*c*c + (-2.36568e-08)*c*c*c*c ;
2264   v2s=0.0185448 + (0.00102852)*c + (-6.04966e-05)*c*c + (5.89933e-07)*c*c*c + (-2.5921e-09)*c*c*c*c ;
2265 }
2266 if(fInternalRunNumber==116){
2267   v2c=-0.117563 + (0.00405449)*c + (-0.000112806)*c*c + (4.01903e-06)*c*c*c + (-4.25358e-08)*c*c*c*c ;
2268   v2s=0.0280797 + (-0.00528592)*c + (0.000375784)*c*c + (-9.96825e-06)*c*c*c + (7.72147e-08)*c*c*c*c ;
2269 }
2270 if(fInternalRunNumber==117){
2271   v2c=0.0301869 + (-0.000751512)*c + (-9.43748e-05)*c*c + (2.60697e-06)*c*c*c + (-1.73948e-08)*c*c*c*c ;
2272   v2s=0.0594442 + (-0.00499442)*c + (0.000170617)*c*c + (-2.80903e-06)*c*c*c + (1.51075e-08)*c*c*c*c ;
2273 }
2274 if(fInternalRunNumber==118){
2275   v2c=0.0118942 + (-0.000669595)*c + (-3.6634e-05)*c*c + (1.40794e-06)*c*c*c + (-1.15253e-08)*c*c*c*c ;
2276   v2s=-0.0174395 + (0.00460355)*c + (-0.00023192)*c*c + (3.83941e-06)*c*c*c + (-2.30761e-08)*c*c*c*c ;
2277 }
2278 if(fInternalRunNumber==119){
2279   v2c=0.018229 + (-0.00144698)*c + (-1.07295e-06)*c*c + (6.22528e-07)*c*c*c + (-4.90504e-09)*c*c*c*c ;
2280   v2s=0.0122761 + (0.000985351)*c + (-6.02936e-05)*c*c + (9.41867e-07)*c*c*c + (-6.59756e-09)*c*c*c*c ;
2281 }
2282 if(fInternalRunNumber==120){
2283   v2c=-0.0968065 + (0.0131861)*c + (-0.000585224)*c*c + (9.82175e-06)*c*c*c + (-5.51313e-08)*c*c*c*c ;
2284   v2s=0.0719334 + (-0.00752912)*c + (0.000362464)*c*c + (-6.65114e-06)*c*c*c + (3.70295e-08)*c*c*c*c ;
2285 }
2286 if(fInternalRunNumber==121){
2287   v2c=0.0296329 + (-0.00448004)*c + (0.00010239)*c*c + (-2.40647e-07)*c*c*c + (-5.4555e-09)*c*c*c*c ;
2288   v2s=0.0774925 + (-0.00635491)*c + (0.0001939)*c*c + (-3.04755e-06)*c*c*c + (1.66055e-08)*c*c*c*c ;
2289 }
2290 if(fInternalRunNumber==122){
2291   v2c=0.00956939 + (0.000460793)*c + (-0.000105912)*c*c + (2.38286e-06)*c*c*c + (-1.446e-08)*c*c*c*c ;
2292   v2s=0.0152677 + (0.00345263)*c + (-0.000262399)*c*c + (5.5895e-06)*c*c*c + (-3.84974e-08)*c*c*c*c ;
2293 }
2294 if(fInternalRunNumber==123){
2295   v2c=0.0495618 + (-0.00059293)*c + (-0.00025227)*c*c + (6.61088e-06)*c*c*c + (-4.24063e-08)*c*c*c*c ;
2296   v2s=0.0862227 + (-0.0190161)*c + (0.0010647)*c*c + (-1.94957e-05)*c*c*c + (1.08665e-07)*c*c*c*c ;
2297 }
2298 if(fInternalRunNumber==124){
2299   v2c=-0.0408078 + (0.00565108)*c + (-0.00027528)*c*c + (5.2165e-06)*c*c*c + (-3.3244e-08)*c*c*c*c ;
2300   v2s=0.00169862 + (0.00371982)*c + (-0.000169757)*c*c + (2.07347e-06)*c*c*c + (-8.30142e-09)*c*c*c*c ;
2301 }
2302 if(fInternalRunNumber==125){
2303   v2c=0.0285065 + (-0.00348583)*c + (0.000106189)*c*c + (-1.56726e-06)*c*c*c + (9.40552e-09)*c*c*c*c ;
2304   v2s=0.0363645 + (-0.00252206)*c + (0.000122553)*c*c + (-2.74066e-06)*c*c*c + (1.66856e-08)*c*c*c*c ;
2305 }
2306 if(fInternalRunNumber==126){
2307   v2c=-0.00864424 + (0.00157555)*c + (-0.000127367)*c*c + (2.47447e-06)*c*c*c + (-1.42302e-08)*c*c*c*c ;
2308   v2s=-0.213003 + (0.00643156)*c + (-0.000121219)*c*c + (6.06838e-07)*c*c*c + (1.48381e-09)*c*c*c*c ;
2309 }
2310 if(fInternalRunNumber==127){
2311   v2c=-0.0336884 + (0.00299236)*c + (-0.000147557)*c*c + (2.47908e-06)*c*c*c + (-1.33495e-08)*c*c*c*c ;
2312   v2s=-0.271925 + (0.0158755)*c + (-0.000583802)*c*c + (9.14376e-06)*c*c*c + (-5.05302e-08)*c*c*c*c ;
2313 }
2314 if(fInternalRunNumber==128){
2315   v2c=-0.0639711 + (0.00822881)*c + (-0.000428416)*c*c + (7.98075e-06)*c*c*c + (-4.81995e-08)*c*c*c*c ;
2316   v2s=-0.22634 + (0.00908632)*c + (-0.00029)*c*c + (4.14095e-06)*c*c*c + (-2.15823e-08)*c*c*c*c ;
2317 }
2318 if(fInternalRunNumber==129){
2319   v2c=0.0652753 + (-0.00529737)*c + (0.000133883)*c*c + (-1.63339e-06)*c*c*c + (7.88294e-09)*c*c*c*c ;
2320   v2s=0.00357003 + (0.00503303)*c + (-0.000316531)*c*c + (6.45793e-06)*c*c*c + (-4.44467e-08)*c*c*c*c ;
2321 }
2322 if(fInternalRunNumber==131){
2323   v2c=0.117255 + (-0.0149009)*c + (0.000560178)*c*c + (-8.75754e-06)*c*c*c + (4.85024e-08)*c*c*c*c ;
2324   v2s=-0.00180786 + (0.00224258)*c + (-9.84056e-05)*c*c + (1.39525e-06)*c*c*c + (-7.63512e-09)*c*c*c*c ;
2325 }
2326 if(fInternalRunNumber==132){
2327   v2c=0.0100287 + (-0.00051338)*c + (-2.7702e-05)*c*c + (5.0205e-07)*c*c*c + (-1.12682e-09)*c*c*c*c ;
2328   v2s=0.00556895 + (0.00211082)*c + (-0.000125448)*c*c + (2.30409e-06)*c*c*c + (-1.63703e-08)*c*c*c*c ;
2329 }
2330 if(fInternalRunNumber==133){
2331   v2c=-0.00755913 + (0.00327793)*c + (-0.00024545)*c*c + (5.03417e-06)*c*c*c + (-3.11617e-08)*c*c*c*c ;
2332   v2s=0.0398477 + (-0.000728372)*c + (-2.63935e-05)*c*c + (7.85276e-07)*c*c*c + (-7.72703e-09)*c*c*c*c ;
2333 }
2334 if(fInternalRunNumber==134){
2335   v2c=0.00344056 + (0.000171769)*c + (-8.00887e-05)*c*c + (1.76696e-06)*c*c*c + (-1.08652e-08)*c*c*c*c ;
2336   v2s=-0.200474 + (0.00736532)*c + (-0.000221809)*c*c + (2.91763e-06)*c*c*c + (-1.40827e-08)*c*c*c*c ;
2337 }
2338 if(fInternalRunNumber==135){
2339   v2c=-0.0251554 + (0.00227996)*c + (-0.000133757)*c*c + (2.50604e-06)*c*c*c + (-1.48528e-08)*c*c*c*c ;
2340   v2s=-0.229223 + (0.0091122)*c + (-0.000245035)*c*c + (2.64826e-06)*c*c*c + (-9.57268e-09)*c*c*c*c ;
2341 }
2342 if(fInternalRunNumber==136){
2343   v2c=-0.0308547 + (0.00209237)*c + (-0.000183034)*c*c + (4.54164e-06)*c*c*c + (-3.26557e-08)*c*c*c*c ;
2344   v2s=-0.241702 + (0.00988355)*c + (-0.000263014)*c*c + (2.73376e-06)*c*c*c + (-9.79971e-09)*c*c*c*c ;
2345 }
2346
2347
2348
2349
2350
2351 /*
2352
2353   if(fRunNumber>=1 && fRunNumber<=45){ // 137161 -137848 //period 1
2354 //    v2c = 1.133676e-02-1.759454e-04*x-6.217033e-05*x*x+1.532507e-06*x*x*x-9.665265e-09*x*x*x*x;
2355 //    v2s = 2.173690e-02-8.410340e-04*x-1.391841e-05*x*x+5.003301e-07*x*x*x-4.175974e-09*x*x*x*x;
2356     v2c=2.295070e-02-1.050171e-03*x-3.432843e-05*x*x+1.156549e-06*x*x*x-7.781377e-09*x*x*x*x ;
2357     v2s=3.994886e-02-1.961957e-03*x+1.641958e-05*x*x+1.234025e-07*x*x*x-2.175698e-09*x*x*x*x ;
2358   }
2359   if(fRunNumber>=46 && fRunNumber<=58){ //138125-138275//period 2
2360     v2c =-1.394612e-03+1.333726e-03*x-1.115323e-04*x*x+2.103762e-06*x*x*x-1.186760e-08*x*x*x*x ;
2361     v2s =-7.788201e-03+7.178984e-04*x-4.553597e-05*x*x+6.941817e-07*x*x*x-4.465249e-09*x*x*x*x ;
2362   }
2363   if(fRunNumber>=59 && fRunNumber<=78){ //138359-138730//period 3
2364     v2c = 1.448809e-02+-7.894029e-04*x-2.693871e-05*x*x+7.944017e-07*x*x*x-4.272135e-09*x*x*x*x ;
2365     v2s = 3.442216e-03+-5.574560e-05*x-1.758343e-05*x*x+2.386547e-07*x*x*x-2.404210e-09*x*x*x*x ;
2366   }
2367   if(fRunNumber>=79){//period 4
2368     v2c =-1.553536e-03+7.761106e-04*x-9.529723e-05*x*x+2.026750e-06*x*x*x-1.217009e-08*x*x*x*x ;
2369     v2s =-7.787317e-02+3.843455e-03*x-1.221144e-04*x*x+1.478448e-06*x*x*x-7.442702e-09*x*x*x*x ;
2370   }
2371 */
2372
2373   return phi+v2c*TMath::Sin(2.*phi)-v2s*TMath::Cos(2.*phi) ;
2374
2375 }
2376 //____________________________________________________________________________
2377 Double_t  AliAnalysisTaskPi0Flow::ApplyFlatteningV0C(Double_t phi, Double_t c){
2378   //LHC10h
2379
2380   Double_t v2c =0.;
2381   Double_t v2s =0;
2382
2383 if(fInternalRunNumber==1){
2384   v2c=-0.038901 + (0.00539521)*c + (-0.000213271)*c*c + (3.01147e-06)*c*c*c + (-1.35977e-08)*c*c*c*c ;
2385   v2s=0.0693294 + (-0.00851319)*c + (0.000337408)*c*c + (-5.33097e-06)*c*c*c + (2.90883e-08)*c*c*c*c ;
2386 }
2387 if(fInternalRunNumber==2){
2388   v2c=-0.0943695 + (0.0137829)*c + (-0.000569334)*c*c + (8.95522e-06)*c*c*c + (-4.78396e-08)*c*c*c*c ;
2389   v2s=0.00971525 + (-0.00181026)*c + (6.15798e-05)*c*c + (-8.51046e-07)*c*c*c + (4.57403e-09)*c*c*c*c ;
2390 }
2391 if(fInternalRunNumber==4){
2392   v2c=-0.00585475 + (0.000307793)*c + (1.89109e-06)*c*c + (-3.14804e-07)*c*c*c + (3.54341e-09)*c*c*c*c ;
2393   v2s=0.00374568 + (-0.00123435)*c + (8.01941e-05)*c*c + (-1.70807e-06)*c*c*c + (1.14576e-08)*c*c*c*c ;
2394 }
2395 if(fInternalRunNumber==5){
2396   v2c=-0.0301267 + (0.00206698)*c + (-4.82282e-05)*c*c + (4.39355e-07)*c*c*c + (-1.3747e-09)*c*c*c*c ;
2397   v2s=-0.0441947 + (0.00501774)*c + (-0.000181736)*c*c + (2.69235e-06)*c*c*c + (-1.37411e-08)*c*c*c*c ;
2398 }
2399 if(fInternalRunNumber==6){
2400   v2c=0.190652 + (-0.0254912)*c + (0.00105707)*c*c + (-1.63872e-05)*c*c*c + (8.51113e-08)*c*c*c*c ;
2401   v2s=0.0803124 + (-0.0119724)*c + (0.000575997)*c*c + (-1.07892e-05)*c*c*c + (6.67214e-08)*c*c*c*c ;
2402 }
2403 if(fInternalRunNumber==7){
2404   v2c=0.00875044 + (-0.00343147)*c + (0.0002198)*c*c + (-4.76292e-06)*c*c*c + (3.24844e-08)*c*c*c*c ;
2405   v2s=-0.081288 + (0.0146429)*c + (-0.000728327)*c*c + (1.32462e-05)*c*c*c + (-7.95362e-08)*c*c*c*c ;
2406 }
2407 if(fInternalRunNumber==8){
2408   v2c=0.0381367 + (-0.0082048)*c + (0.000410914)*c*c + (-7.28851e-06)*c*c*c + (4.22008e-08)*c*c*c*c ;
2409   v2s=-0.023338 + (0.003381)*c + (-0.000167791)*c*c + (3.13998e-06)*c*c*c + (-1.97233e-08)*c*c*c*c ;
2410 }
2411 if(fInternalRunNumber==9){
2412   v2c=-0.00734261 + (0.00121272)*c + (-5.31181e-05)*c*c + (7.88974e-07)*c*c*c + (-3.86356e-09)*c*c*c*c ;
2413   v2s=-0.0228333 + (0.00266052)*c + (-0.000112824)*c*c + (1.89515e-06)*c*c*c + (-1.07446e-08)*c*c*c*c ;
2414 }
2415 if(fInternalRunNumber==10){
2416   v2c=-0.0456385 + (0.0102956)*c + (-0.000529689)*c*c + (9.62809e-06)*c*c*c + (-5.7301e-08)*c*c*c*c ;
2417   v2s=0.0142197 + (-0.0031677)*c + (0.000190389)*c*c + (-4.10911e-06)*c*c*c + (2.81791e-08)*c*c*c*c ;
2418 }
2419 if(fInternalRunNumber==11){
2420   v2c=-0.00999249 + (0.00123939)*c + (-4.23895e-05)*c*c + (6.55415e-07)*c*c*c + (-3.98256e-09)*c*c*c*c ;
2421   v2s=-0.00809817 + (0.00199727)*c + (-0.000116718)*c*c + (2.33449e-06)*c*c*c + (-1.46407e-08)*c*c*c*c ;
2422 }
2423 if(fInternalRunNumber==12){
2424   v2c=0.0183566 + (-0.0020805)*c + (6.79726e-05)*c*c + (-7.96708e-07)*c*c*c + (3.1214e-09)*c*c*c*c ;
2425   v2s=-0.00714715 + (0.000721418)*c + (-3.50355e-05)*c*c + (9.09996e-07)*c*c*c + (-7.92198e-09)*c*c*c*c ;
2426 }
2427 if(fInternalRunNumber==13){
2428   v2c=0.0056915 + (0.000167211)*c + (-4.68018e-05)*c*c + (1.21891e-06)*c*c*c + (-8.70124e-09)*c*c*c*c ;
2429   v2s=0.00986223 + (-0.00247957)*c + (0.000133539)*c*c + (-2.51362e-06)*c*c*c + (1.5397e-08)*c*c*c*c ;
2430 }
2431 if(fInternalRunNumber==14){
2432   v2c=0.0479623 + (-0.00948196)*c + (0.000551795)*c*c + (-1.05692e-05)*c*c*c + (6.38754e-08)*c*c*c*c ;
2433   v2s=-0.00438456 + (-0.00152976)*c + (2.00645e-05)*c*c + (9.91017e-07)*c*c*c + (-1.35776e-08)*c*c*c*c ;
2434 }
2435 if(fInternalRunNumber==15){
2436   v2c=-0.00384088 + (0.00121719)*c + (-6.88665e-05)*c*c + (1.26138e-06)*c*c*c + (-7.13987e-09)*c*c*c*c ;
2437   v2s=0.0273017 + (-0.00314818)*c + (7.85031e-05)*c*c + (-9.07336e-08)*c*c*c + (-6.42421e-09)*c*c*c*c ;
2438 }
2439 if(fInternalRunNumber==16){
2440   v2c=-0.0313175 + (0.00368025)*c + (-0.000126895)*c*c + (1.7443e-06)*c*c*c + (-9.12442e-09)*c*c*c*c ;
2441   v2s=-0.0812178 + (0.0117402)*c + (-0.000506287)*c*c + (8.36766e-06)*c*c*c + (-4.69866e-08)*c*c*c*c ;
2442 }
2443 if(fInternalRunNumber==17){
2444   v2c=0.062893 + (-0.0128204)*c + (0.000591931)*c*c + (-1.00835e-05)*c*c*c + (5.72782e-08)*c*c*c*c ;
2445   v2s=-0.143105 + (0.0183921)*c + (-0.000787289)*c*c + (1.33237e-05)*c*c*c + (-7.71707e-08)*c*c*c*c ;
2446 }
2447 if(fInternalRunNumber==18){
2448   v2c=-0.0029353 + (-0.0016097)*c + (0.000199618)*c*c + (-5.42008e-06)*c*c*c + (4.08897e-08)*c*c*c*c ;
2449   v2s=0.0482015 + (-0.00115233)*c + (3.96019e-05)*c*c + (-7.7193e-07)*c*c*c + (3.90004e-09)*c*c*c*c ;
2450 }
2451 if(fInternalRunNumber==19){
2452   v2c=-0.0397728 + (0.0129154)*c + (-0.000703903)*c*c + (1.30972e-05)*c*c*c + (-7.93547e-08)*c*c*c*c ;
2453   v2s=0.181945 + (-0.0289807)*c + (0.00133685)*c*c + (-2.30866e-05)*c*c*c + (1.32746e-07)*c*c*c*c ;
2454 }
2455 if(fInternalRunNumber==20){
2456   v2c=-0.00927858 + (0.0021033)*c + (-0.000113971)*c*c + (2.17508e-06)*c*c*c + (-1.36812e-08)*c*c*c*c ;
2457   v2s=0.0201645 + (-0.00331311)*c + (0.000164916)*c*c + (-3.08376e-06)*c*c*c + (1.92565e-08)*c*c*c*c ;
2458 }
2459 if(fInternalRunNumber==21){
2460   v2c=-0.0254895 + (0.00388685)*c + (-0.000171429)*c*c + (2.87209e-06)*c*c*c + (-1.60625e-08)*c*c*c*c ;
2461   v2s=0.00237609 + (0.000664255)*c + (-4.93436e-05)*c*c + (8.86415e-07)*c*c*c + (-4.51913e-09)*c*c*c*c ;
2462 }
2463 if(fInternalRunNumber==22){
2464   v2c=0.0308671 + (-0.00365824)*c + (0.000148483)*c*c + (-2.52946e-06)*c*c*c + (1.49859e-08)*c*c*c*c ;
2465   v2s=-0.00805023 + (0.00154452)*c + (-6.89678e-05)*c*c + (1.14317e-06)*c*c*c + (-5.98991e-09)*c*c*c*c ;
2466 }
2467 if(fInternalRunNumber==23){
2468   v2c=0.122018 + (-0.0233973)*c + (0.00116385)*c*c + (-2.11232e-05)*c*c*c + (1.25836e-07)*c*c*c*c ;
2469   v2s=-0.0511879 + (0.00708815)*c + (-0.000227282)*c*c + (2.27542e-06)*c*c*c + (-4.83128e-09)*c*c*c*c ;
2470 }
2471 if(fInternalRunNumber==24){
2472   v2c=0.00888562 + (-0.000839847)*c + (2.52839e-05)*c*c + (-2.28921e-07)*c*c*c + (1.01057e-11)*c*c*c*c ;
2473   v2s=0.00814357 + (-0.000788997)*c + (2.43948e-05)*c*c + (-2.99558e-07)*c*c*c + (1.21675e-09)*c*c*c*c ;
2474 }
2475 if(fInternalRunNumber==25){
2476   v2c=0.00360833 + (0.000379977)*c + (-3.68193e-05)*c*c + (5.86861e-07)*c*c*c + (-2.01826e-09)*c*c*c*c ;
2477   v2s=-0.00642047 + (0.00060076)*c + (-2.42907e-05)*c*c + (4.12933e-07)*c*c*c + (-2.3557e-09)*c*c*c*c ;
2478 }
2479 if(fInternalRunNumber==26){
2480   v2c=-0.0131971 + (0.00189761)*c + (-7.7551e-05)*c*c + (1.25884e-06)*c*c*c + (-7.38989e-09)*c*c*c*c ;
2481   v2s=0.00679891 + (-0.000614692)*c + (1.04559e-06)*c*c + (4.34463e-07)*c*c*c + (-4.75821e-09)*c*c*c*c ;
2482 }
2483 if(fInternalRunNumber==27){
2484   v2c=-0.00887089 + (0.00126865)*c + (-7.15766e-05)*c*c + (1.43811e-06)*c*c*c + (-9.408e-09)*c*c*c*c ;
2485   v2s=-0.0302105 + (0.00349565)*c + (-0.000126108)*c*c + (1.835e-06)*c*c*c + (-9.27845e-09)*c*c*c*c ;
2486 }
2487 if(fInternalRunNumber==28){
2488   v2c=-0.0187616 + (0.0021974)*c + (-5.11412e-05)*c*c + (2.94628e-07)*c*c*c + (7.4194e-10)*c*c*c*c ;
2489   v2s=-0.0119204 + (-0.00156879)*c + (0.000132746)*c*c + (-2.67371e-06)*c*c*c + (1.61097e-08)*c*c*c*c ;
2490 }
2491 if(fInternalRunNumber==29){
2492   v2c=-0.121018 + (0.0228924)*c + (-0.00127093)*c*c + (2.48724e-05)*c*c*c + (-1.56121e-07)*c*c*c*c ;
2493   v2s=-0.0687197 + (0.015702)*c + (-0.000764074)*c*c + (1.38991e-05)*c*c*c + (-8.48812e-08)*c*c*c*c ;
2494 }
2495 if(fInternalRunNumber==30){
2496   v2c=0.01582 + (-0.0012293)*c + (1.62768e-05)*c*c + (2.36172e-07)*c*c*c + (-3.67153e-09)*c*c*c*c ;
2497   v2s=-0.00875651 + (0.00135376)*c + (-5.16763e-05)*c*c + (6.17614e-07)*c*c*c + (-1.64099e-09)*c*c*c*c ;
2498 }
2499 if(fInternalRunNumber==31){
2500   v2c=-0.044721 + (0.00756113)*c + (-0.000365759)*c*c + (6.15804e-06)*c*c*c + (-3.40075e-08)*c*c*c*c ;
2501   v2s=-0.0500828 + (-0.000695112)*c + (0.000130909)*c*c + (-3.38476e-06)*c*c*c + (2.41179e-08)*c*c*c*c ;
2502 }
2503 if(fInternalRunNumber==32){
2504   v2c=0.0306236 + (-0.00443307)*c + (0.000196517)*c*c + (-3.48059e-06)*c*c*c + (2.10266e-08)*c*c*c*c ;
2505   v2s=0.00819214 + (-0.000560558)*c + (-5.03783e-06)*c*c + (4.37862e-07)*c*c*c + (-3.93834e-09)*c*c*c*c ;
2506 }
2507 if(fInternalRunNumber==33){
2508   v2c=0.0120077 + (-0.00139976)*c + (5.85677e-05)*c*c + (-9.06209e-07)*c*c*c + (4.61403e-09)*c*c*c*c ;
2509   v2s=-0.0197677 + (0.00253589)*c + (-0.000101374)*c*c + (1.59347e-06)*c*c*c + (-8.65961e-09)*c*c*c*c ;
2510 }
2511 if(fInternalRunNumber==34){
2512   v2c=0.0759546 + (-0.0131538)*c + (0.000577001)*c*c + (-9.39636e-06)*c*c*c + (5.16814e-08)*c*c*c*c ;
2513   v2s=-0.0727864 + (0.00956655)*c + (-0.000406191)*c*c + (7.50453e-06)*c*c*c + (-4.93819e-08)*c*c*c*c ;
2514 }
2515 if(fInternalRunNumber==35){
2516   v2c=-0.00622564 + (0.00107647)*c + (-6.25644e-05)*c*c + (1.28553e-06)*c*c*c + (-8.46286e-09)*c*c*c*c ;
2517   v2s=0.0051704 + (-0.00165348)*c + (8.69531e-05)*c*c + (-1.69895e-06)*c*c*c + (1.09762e-08)*c*c*c*c ;
2518 }
2519 if(fInternalRunNumber==36){
2520   v2c=0.0117872 + (-0.000807391)*c + (-1.70999e-05)*c*c + (1.19089e-06)*c*c*c + (-1.13278e-08)*c*c*c*c ;
2521   v2s=-0.000162495 + (1.04465e-05)*c + (-1.07156e-05)*c*c + (2.54308e-07)*c*c*c + (-7.04948e-10)*c*c*c*c ;
2522 }
2523 if(fInternalRunNumber==37){
2524   v2c=-0.0119236 + (0.00290105)*c + (-0.000162086)*c*c + (3.22645e-06)*c*c*c + (-2.07075e-08)*c*c*c*c ;
2525   v2s=-0.0178535 + (0.00283024)*c + (-0.00012812)*c*c + (2.02404e-06)*c*c*c + (-1.0248e-08)*c*c*c*c ;
2526 }
2527 if(fInternalRunNumber==38){
2528   v2c=0.023002 + (-0.00433112)*c + (0.000229879)*c*c + (-4.52792e-06)*c*c*c + (2.92715e-08)*c*c*c*c ;
2529   v2s=-0.0217933 + (0.00235291)*c + (-0.000108054)*c*c + (2.08937e-06)*c*c*c + (-1.3524e-08)*c*c*c*c ;
2530 }
2531 if(fInternalRunNumber==39){
2532   v2c=0.00795585 + (-0.000372683)*c + (1.85243e-05)*c*c + (-4.28133e-07)*c*c*c + (3.02452e-09)*c*c*c*c ;
2533   v2s=-0.0849826 + (0.00529466)*c + (-0.000163148)*c*c + (2.1186e-06)*c*c*c + (-9.48208e-09)*c*c*c*c ;
2534 }
2535 if(fInternalRunNumber==40){
2536   v2c=0.00653019 + (-0.00127651)*c + (7.59264e-05)*c*c + (-1.6363e-06)*c*c*c + (1.11375e-08)*c*c*c*c ;
2537   v2s=-0.0107686 + (0.000982587)*c + (-2.97061e-05)*c*c + (4.04795e-07)*c*c*c + (-1.91289e-09)*c*c*c*c ;
2538 }
2539 if(fInternalRunNumber==41){
2540   v2c=0.012007 + (-0.00102703)*c + (3.48714e-05)*c*c + (-5.13011e-07)*c*c*c + (2.57827e-09)*c*c*c*c ;
2541   v2s=-0.00713083 + (0.00101952)*c + (-4.7675e-05)*c*c + (9.12723e-07)*c*c*c + (-5.99694e-09)*c*c*c*c ;
2542 }
2543 if(fInternalRunNumber==42){
2544   v2c=-0.0486696 + (0.00723345)*c + (-0.000324232)*c*c + (5.25317e-06)*c*c*c + (-2.78981e-08)*c*c*c*c ;
2545   v2s=-0.0485877 + (-0.00064506)*c + (9.15858e-05)*c*c + (-1.97486e-06)*c*c*c + (1.28831e-08)*c*c*c*c ;
2546 }
2547 if(fInternalRunNumber==43){
2548   v2c=0.0003541 + (-0.000236832)*c + (1.82448e-05)*c*c + (-4.20764e-07)*c*c*c + (2.96882e-09)*c*c*c*c ;
2549   v2s=0.00107616 + (-0.000462058)*c + (2.46761e-05)*c*c + (-4.33199e-07)*c*c*c + (2.47324e-09)*c*c*c*c ;
2550 }
2551 if(fInternalRunNumber==44){
2552   v2c=-0.0778259 + (0.0128797)*c + (-0.000514371)*c*c + (7.70095e-06)*c*c*c + (-3.89026e-08)*c*c*c*c ;
2553   v2s=-0.106839 + (0.00670369)*c + (-0.000184721)*c*c + (1.64581e-06)*c*c*c + (-1.47049e-09)*c*c*c*c ;
2554 }
2555 if(fInternalRunNumber==45){
2556   v2c=0.0513049 + (-0.00715356)*c + (0.000289106)*c*c + (-4.46938e-06)*c*c*c + (2.36599e-08)*c*c*c*c ;
2557   v2s=-0.0252464 + (0.00170124)*c + (-3.04376e-05)*c*c + (9.4935e-08)*c*c*c + (9.41807e-10)*c*c*c*c ;
2558 }
2559 if(fInternalRunNumber==46){
2560   v2c=0.0317697 + (-0.00121243)*c + (5.94543e-05)*c*c + (-1.26341e-06)*c*c*c + (8.49329e-09)*c*c*c*c ;
2561   v2s=-0.092276 + (0.00299941)*c + (-5.24713e-05)*c*c + (3.07331e-07)*c*c*c + (7.44139e-10)*c*c*c*c ;
2562 }
2563 if(fInternalRunNumber==47){
2564   v2c=0.0429796 + (-0.000861588)*c + (6.82123e-07)*c*c + (1.96388e-07)*c*c*c + (-1.56984e-09)*c*c*c*c ;
2565   v2s=-0.133047 + (0.00853153)*c + (-0.000287983)*c*c + (4.1155e-06)*c*c*c + (-2.00239e-08)*c*c*c*c ;
2566 }
2567 if(fInternalRunNumber==48){
2568   v2c=0.0480979 + (-0.000354969)*c + (-6.45176e-05)*c*c + (2.34807e-06)*c*c*c + (-1.9069e-08)*c*c*c*c ;
2569   v2s=-0.138315 + (0.0126874)*c + (-0.000672052)*c*c + (1.34449e-05)*c*c*c + (-8.64756e-08)*c*c*c*c ;
2570 }
2571 if(fInternalRunNumber==51){
2572   v2c=-0.0114422 + (0.00506157)*c + (-0.000227041)*c*c + (3.97457e-06)*c*c*c + (-2.35322e-08)*c*c*c*c ;
2573   v2s=-0.208135 + (0.0160488)*c + (-0.000536132)*c*c + (7.2714e-06)*c*c*c + (-3.28328e-08)*c*c*c*c ;
2574 }
2575 if(fInternalRunNumber==52){
2576   v2c=0.00113321 + (0.000922798)*c + (-6.5971e-05)*c*c + (1.40416e-06)*c*c*c + (-9.29905e-09)*c*c*c*c ;
2577   v2s=0.0550392 + (-0.00725661)*c + (0.000298984)*c*c + (-4.85473e-06)*c*c*c + (2.72063e-08)*c*c*c*c ;
2578 }
2579 if(fInternalRunNumber==53){
2580   v2c=-0.003508 + (6.54451e-06)*c + (1.28603e-05)*c*c + (-3.83674e-07)*c*c*c + (3.1053e-09)*c*c*c*c ;
2581   v2s=0.00714978 + (-0.00198147)*c + (0.000113909)*c*c + (-2.1949e-06)*c*c*c + (1.34933e-08)*c*c*c*c ;
2582 }
2583 if(fInternalRunNumber==54){
2584   v2c=-0.0024598 + (5.87979e-05)*c + (9.36516e-06)*c*c + (-2.66045e-07)*c*c*c + (1.80016e-09)*c*c*c*c ;
2585   v2s=-0.00651135 + (0.00109883)*c + (-4.41501e-05)*c*c + (6.19398e-07)*c*c*c + (-2.61977e-09)*c*c*c*c ;
2586 }
2587 if(fInternalRunNumber==55){
2588   v2c=0.0472936 + (-0.00156718)*c + (3.03713e-05)*c*c + (-1.97139e-07)*c*c*c + (-3.55205e-10)*c*c*c*c ;
2589   v2s=-0.155014 + (0.00717506)*c + (-0.000168137)*c*c + (1.55419e-06)*c*c*c + (-3.64579e-09)*c*c*c*c ;
2590 }
2591 if(fInternalRunNumber==56){
2592   v2c=0.011328 + (0.000924574)*c + (-6.803e-05)*c*c + (9.76956e-07)*c*c*c + (-2.90494e-09)*c*c*c*c ;
2593   v2s=-0.0412661 + (0.0107218)*c + (-0.000533108)*c*c + (9.75563e-06)*c*c*c + (-5.95608e-08)*c*c*c*c ;
2594 }
2595 if(fInternalRunNumber==57){
2596   v2c=0.00900452 + (0.000588343)*c + (-3.02208e-05)*c*c + (2.13239e-07)*c*c*c + (9.25727e-10)*c*c*c*c ;
2597   v2s=0.13086 + (-0.0204768)*c + (0.000928956)*c*c + (-1.63917e-05)*c*c*c + (9.8273e-08)*c*c*c*c ;
2598 }
2599 if(fInternalRunNumber==58){
2600   v2c=-0.0143951 + (0.00247373)*c + (-0.000107909)*c*c + (1.69603e-06)*c*c*c + (-9.05555e-09)*c*c*c*c ;
2601   v2s=-0.0209397 + (0.00180446)*c + (-5.97034e-05)*c*c + (8.17388e-07)*c*c*c + (-3.77989e-09)*c*c*c*c ;
2602 }
2603 if(fInternalRunNumber==59){
2604   v2c=-0.0619279 + (0.00393575)*c + (-0.00011867)*c*c + (1.45001e-06)*c*c*c + (-5.98792e-09)*c*c*c*c ;
2605   v2s=-0.248103 + (0.0158553)*c + (-0.000529631)*c*c + (7.46158e-06)*c*c*c + (-3.60091e-08)*c*c*c*c ;
2606 }
2607 if(fInternalRunNumber==60){
2608   v2c=-0.00886115 + (0.00152741)*c + (-6.94062e-05)*c*c + (1.11727e-06)*c*c*c + (-5.81351e-09)*c*c*c*c ;
2609   v2s=-0.000911417 + (0.000122344)*c + (-1.24605e-06)*c*c + (-6.29249e-08)*c*c*c + (8.81971e-10)*c*c*c*c ;
2610 }
2611 if(fInternalRunNumber==61){
2612   v2c=-0.00510166 + (0.00040596)*c + (-4.37341e-06)*c*c + (-1.15302e-07)*c*c*c + (1.53428e-09)*c*c*c*c ;
2613   v2s=-0.0170123 + (0.00220818)*c + (-9.50905e-05)*c*c + (1.59566e-06)*c*c*c + (-8.92053e-09)*c*c*c*c ;
2614 }
2615 if(fInternalRunNumber==62){
2616   v2c=-0.00332885 + (-0.000430498)*c + (5.60341e-05)*c*c + (-1.47922e-06)*c*c*c + (1.09723e-08)*c*c*c*c ;
2617   v2s=-0.0519534 + (0.00892818)*c + (-0.000434243)*c*c + (7.8407e-06)*c*c*c + (-4.69363e-08)*c*c*c*c ;
2618 }
2619 if(fInternalRunNumber==63){
2620   v2c=-0.00176529 + (0.00123097)*c + (-6.59677e-05)*c*c + (1.24591e-06)*c*c*c + (-7.90285e-09)*c*c*c*c ;
2621   v2s=-0.0181792 + (0.00222004)*c + (-7.96902e-05)*c*c + (1.13047e-06)*c*c*c + (-5.72272e-09)*c*c*c*c ;
2622 }
2623 if(fInternalRunNumber==64){
2624   v2c=0.00546184 + (-0.000449463)*c + (1.50833e-05)*c*c + (-1.72501e-07)*c*c*c + (3.58774e-10)*c*c*c*c ;
2625   v2s=0.013284 + (-0.00260671)*c + (0.000134403)*c*c + (-2.461e-06)*c*c*c + (1.47694e-08)*c*c*c*c ;
2626 }
2627 if(fInternalRunNumber==65){
2628   v2c=0.0108447 + (-0.0017699)*c + (4.62716e-05)*c*c + (-3.4647e-07)*c*c*c + (5.24536e-10)*c*c*c*c ;
2629   v2s=0.0302247 + (-0.00605136)*c + (0.000290676)*c*c + (-4.87706e-06)*c*c*c + (2.65104e-08)*c*c*c*c ;
2630 }
2631 if(fInternalRunNumber==66){
2632   v2c=-0.0100092 + (0.00144457)*c + (-6.512e-05)*c*c + (1.05356e-06)*c*c*c + (-5.52231e-09)*c*c*c*c ;
2633   v2s=-0.00380228 + (0.000610003)*c + (-3.47943e-05)*c*c + (7.21188e-07)*c*c*c + (-4.76727e-09)*c*c*c*c ;
2634 }
2635 if(fInternalRunNumber==67){
2636   v2c=-0.0229901 + (0.00400737)*c + (-0.000206024)*c*c + (3.93038e-06)*c*c*c + (-2.46388e-08)*c*c*c*c ;
2637   v2s=-0.00286041 + (0.000648607)*c + (-2.37397e-05)*c*c + (2.0372e-07)*c*c*c + (2.97679e-10)*c*c*c*c ;
2638 }
2639 if(fInternalRunNumber==68){
2640   v2c=-0.0603647 + (0.0045685)*c + (-0.000171555)*c*c + (2.66377e-06)*c*c*c + (-1.45892e-08)*c*c*c*c ;
2641   v2s=-0.21447 + (0.00909524)*c + (-0.000265298)*c*c + (3.73262e-06)*c*c*c + (-1.84484e-08)*c*c*c*c ;
2642 }
2643 if(fInternalRunNumber==69){
2644   v2c=-0.0207879 + (0.000139613)*c + (1.27802e-05)*c*c + (-6.40328e-07)*c*c*c + (6.35949e-09)*c*c*c*c ;
2645   v2s=-0.266459 + (0.0156802)*c + (-0.000481647)*c*c + (6.4597e-06)*c*c*c + (-3.047e-08)*c*c*c*c ;
2646 }
2647 if(fInternalRunNumber==70){
2648   v2c=-0.0324843 + (0.00376852)*c + (-0.000136873)*c*c + (2.01389e-06)*c*c*c + (-1.03877e-08)*c*c*c*c ;
2649   v2s=-0.0178378 + (0.00145491)*c + (-3.55421e-05)*c*c + (2.25993e-07)*c*c*c + (7.06258e-10)*c*c*c*c ;
2650 }
2651 if(fInternalRunNumber==71){
2652   v2c=-0.0138645 + (0.00167315)*c + (-6.68544e-05)*c*c + (1.07133e-06)*c*c*c + (-5.92659e-09)*c*c*c*c ;
2653   v2s=0.0359716 + (-0.00461076)*c + (0.000192868)*c*c + (-3.21409e-06)*c*c*c + (1.84468e-08)*c*c*c*c ;
2654 }
2655 if(fInternalRunNumber==72){
2656   v2c=0.0111712 + (-0.00175546)*c + (6.87862e-05)*c*c + (-8.99029e-07)*c*c*c + (3.44492e-09)*c*c*c*c ;
2657   v2s=-0.00352823 + (0.000480673)*c + (-2.66091e-05)*c*c + (5.54922e-07)*c*c*c + (-3.84534e-09)*c*c*c*c ;
2658 }
2659 if(fInternalRunNumber==73){
2660   v2c=-0.000939145 + (-0.000235945)*c + (2.51908e-05)*c*c + (-6.52435e-07)*c*c*c + (4.8218e-09)*c*c*c*c ;
2661   v2s=0.00666852 + (-0.000373105)*c + (-1.22838e-05)*c*c + (7.3621e-07)*c*c*c + (-7.2867e-09)*c*c*c*c ;
2662 }
2663 if(fInternalRunNumber==74){
2664   v2c=0.0474235 + (-0.00890967)*c + (0.000427741)*c*c + (-7.38723e-06)*c*c*c + (4.17242e-08)*c*c*c*c ;
2665   v2s=0.0142517 + (-0.00326338)*c + (0.000142729)*c*c + (-2.27831e-06)*c*c*c + (1.14084e-08)*c*c*c*c ;
2666 }
2667 if(fInternalRunNumber==75){
2668   v2c=0.0237808 + (-0.00310491)*c + (0.000134288)*c*c + (-2.27429e-06)*c*c*c + (1.32749e-08)*c*c*c*c ;
2669   v2s=-0.0258905 + (0.00417719)*c + (-0.000193901)*c*c + (3.41383e-06)*c*c*c + (-2.01695e-08)*c*c*c*c ;
2670 }
2671 if(fInternalRunNumber==76){
2672   v2c=0.0149865 + (-0.00140739)*c + (4.24537e-05)*c*c + (-4.06273e-07)*c*c*c + (5.44496e-10)*c*c*c*c ;
2673   v2s=0.00820134 + (-0.000519432)*c + (6.82211e-06)*c*c + (1.06291e-07)*c*c*c + (-1.65344e-09)*c*c*c*c ;
2674 }
2675 if(fInternalRunNumber==77){
2676   v2c=0.048123 + (-0.00608197)*c + (0.000246409)*c*c + (-4.05028e-06)*c*c*c + (2.33536e-08)*c*c*c*c ;
2677   v2s=-0.0214729 + (0.0029389)*c + (-0.000133826)*c*c + (2.29845e-06)*c*c*c + (-1.29253e-08)*c*c*c*c ;
2678 }
2679 if(fInternalRunNumber==78){
2680   v2c=-0.0172924 + (0.00202216)*c + (-6.478e-05)*c*c + (8.08739e-07)*c*c*c + (-3.73211e-09)*c*c*c*c ;
2681   v2s=-0.0355638 + (0.00121518)*c + (3.97839e-05)*c*c + (-1.62346e-06)*c*c*c + (1.27105e-08)*c*c*c*c ;
2682 }
2683 if(fInternalRunNumber==79){
2684   v2c=0.040762 + (-0.00311921)*c + (6.66868e-05)*c*c + (-1.18554e-06)*c*c*c + (1.07519e-08)*c*c*c*c ;
2685   v2s=-0.00558438 + (-0.00154821)*c + (0.000165732)*c*c + (-4.56377e-06)*c*c*c + (3.56988e-08)*c*c*c*c ;
2686 }
2687 if(fInternalRunNumber==81){
2688   v2c=-0.0247995 + (0.00179444)*c + (-0.000102085)*c*c + (2.31093e-06)*c*c*c + (-1.61924e-08)*c*c*c*c ;
2689   v2s=-0.249009 + (0.0133297)*c + (-0.000415717)*c*c + (5.84494e-06)*c*c*c + (-2.88179e-08)*c*c*c*c ;
2690 }
2691 if(fInternalRunNumber==82){
2692   v2c=-0.0249921 + (0.00199208)*c + (-7.86121e-05)*c*c + (1.40547e-06)*c*c*c + (-9.39651e-09)*c*c*c*c ;
2693   v2s=-0.254469 + (0.0150694)*c + (-0.000499848)*c*c + (7.08318e-06)*c*c*c + (-3.40806e-08)*c*c*c*c ;
2694 }
2695 if(fInternalRunNumber==83){
2696   v2c=-0.0721 + (0.00951559)*c + (-0.000431762)*c*c + (8.4632e-06)*c*c*c + (-5.79485e-08)*c*c*c*c ;
2697   v2s=-0.00864625 + (-0.00706196)*c + (0.000313773)*c*c + (-5.10066e-06)*c*c*c + (2.9662e-08)*c*c*c*c ;
2698 }
2699 if(fInternalRunNumber==84){
2700   v2c=-0.0198112 + (-0.0062788)*c + (0.000353589)*c*c + (-5.70525e-06)*c*c*c + (2.82617e-08)*c*c*c*c ;
2701   v2s=-0.0704647 + (0.0031015)*c + (-0.000244985)*c*c + (6.17258e-06)*c*c*c + (-4.43331e-08)*c*c*c*c ;
2702 }
2703 if(fInternalRunNumber==85){
2704   v2c=-0.0161955 + (-0.0017361)*c + (0.000130612)*c*c + (-2.9548e-06)*c*c*c + (2.05684e-08)*c*c*c*c ;
2705   v2s=-0.204119 + (0.00714989)*c + (-0.000162549)*c*c + (1.87459e-06)*c*c*c + (-7.79143e-09)*c*c*c*c ;
2706 }
2707 if(fInternalRunNumber==86){
2708   v2c=0.00995155 + (-0.00196822)*c + (0.00010617)*c*c + (-2.01071e-06)*c*c*c + (1.22728e-08)*c*c*c*c ;
2709   v2s=0.0148901 + (-0.002581)*c + (0.000132002)*c*c + (-2.44601e-06)*c*c*c + (1.48144e-08)*c*c*c*c ;
2710 }
2711 if(fInternalRunNumber==87){
2712   v2c=-0.00411031 + (0.000510639)*c + (-2.27814e-05)*c*c + (6.41192e-07)*c*c*c + (-5.85467e-09)*c*c*c*c ;
2713   v2s=0.0121118 + (-0.00281)*c + (0.000143754)*c*c + (-2.62557e-06)*c*c*c + (1.61207e-08)*c*c*c*c ;
2714 }
2715 if(fInternalRunNumber==88){
2716   v2c=-0.00570308 + (-0.000945116)*c + (7.42606e-05)*c*c + (-1.51212e-06)*c*c*c + (9.57993e-09)*c*c*c*c ;
2717   v2s=-0.0282666 + (0.00398475)*c + (-0.000165678)*c*c + (2.68542e-06)*c*c*c + (-1.4688e-08)*c*c*c*c ;
2718 }
2719 if(fInternalRunNumber==89){
2720   v2c=0.0845785 + (-0.012611)*c + (0.000561197)*c*c + (-9.39333e-06)*c*c*c + (5.16139e-08)*c*c*c*c ;
2721   v2s=0.149689 + (-0.0193648)*c + (0.000771629)*c*c + (-1.21901e-05)*c*c*c + (6.6443e-08)*c*c*c*c ;
2722 }
2723 if(fInternalRunNumber==91){
2724   v2c=-0.0289605 + (0.00127922)*c + (-4.47445e-06)*c*c + (-4.00293e-07)*c*c*c + (3.82966e-09)*c*c*c*c ;
2725   v2s=-0.241098 + (0.00906132)*c + (-0.000159552)*c*c + (6.47243e-07)*c*c*c + (4.61048e-09)*c*c*c*c ;
2726 }
2727 if(fInternalRunNumber==95){
2728   v2c=0.0144072 + (-0.000966056)*c + (6.47254e-05)*c*c + (-1.84164e-06)*c*c*c + (1.51588e-08)*c*c*c*c ;
2729   v2s=-0.306678 + (0.0184746)*c + (-0.000540218)*c*c + (6.36681e-06)*c*c*c + (-2.37512e-08)*c*c*c*c ;
2730 }
2731 if(fInternalRunNumber==96){
2732   v2c=0.00506182 + (-0.000632672)*c + (1.89752e-05)*c*c + (-2.14999e-07)*c*c*c + (3.12179e-10)*c*c*c*c ;
2733   v2s=-0.218693 + (0.00676786)*c + (-0.000115485)*c*c + (5.56737e-07)*c*c*c + (2.68891e-09)*c*c*c*c ;
2734 }
2735 if(fInternalRunNumber==97){
2736   v2c=-0.0225062 + (0.00204445)*c + (-6.76028e-05)*c*c + (8.92976e-07)*c*c*c + (-4.00576e-09)*c*c*c*c ;
2737   v2s=-0.260286 + (0.0139325)*c + (-0.000425631)*c*c + (5.64038e-06)*c*c*c + (-2.51554e-08)*c*c*c*c ;
2738 }
2739 if(fInternalRunNumber==98){
2740   v2c=-0.0261849 + (0.0063862)*c + (-0.000293076)*c*c + (4.37234e-06)*c*c*c + (-2.04899e-08)*c*c*c*c ;
2741   v2s=-0.17744 + (0.00236157)*c + (9.2782e-06)*c*c + (-5.63126e-07)*c*c*c + (4.9714e-09)*c*c*c*c ;
2742 }
2743 if(fInternalRunNumber==101){
2744   v2c=0.101445 + (-0.015664)*c + (0.000747255)*c*c + (-1.36979e-05)*c*c*c + (8.36903e-08)*c*c*c*c ;
2745   v2s=0.0152975 + (-0.00329946)*c + (0.00018627)*c*c + (-3.88572e-06)*c*c*c + (2.64895e-08)*c*c*c*c ;
2746 }
2747 if(fInternalRunNumber==102){
2748   v2c=-0.0344927 + (0.00470964)*c + (-0.000188941)*c*c + (3.0206e-06)*c*c*c + (-1.69735e-08)*c*c*c*c ;
2749   v2s=0.0142624 + (-0.00240623)*c + (9.16657e-05)*c*c + (-1.14663e-06)*c*c*c + (4.14195e-09)*c*c*c*c ;
2750 }
2751 if(fInternalRunNumber==103){
2752   v2c=-0.0238316 + (0.00322675)*c + (-0.000123462)*c*c + (1.76428e-06)*c*c*c + (-8.66176e-09)*c*c*c*c ;
2753   v2s=0.0227184 + (-0.00299954)*c + (0.00014422)*c*c + (-2.81018e-06)*c*c*c + (1.82546e-08)*c*c*c*c ;
2754 }
2755 if(fInternalRunNumber==104){
2756   v2c=0.0118014 + (-0.000998833)*c + (3.77271e-05)*c*c + (-6.19183e-07)*c*c*c + (3.49065e-09)*c*c*c*c ;
2757   v2s=0.000977264 + (0.00012542)*c + (1.40219e-08)*c*c + (-2.24472e-09)*c*c*c + (-3.39763e-10)*c*c*c*c ;
2758 }
2759 if(fInternalRunNumber==105){
2760   v2c=0.0312332 + (-0.00348485)*c + (0.000108654)*c*c + (-1.28443e-06)*c*c*c + (4.80188e-09)*c*c*c*c ;
2761   v2s=-0.0344234 + (0.00443313)*c + (-0.000173309)*c*c + (2.7124e-06)*c*c*c + (-1.42518e-08)*c*c*c*c ;
2762 }
2763 if(fInternalRunNumber==106){
2764   v2c=0.0369386 + (-0.00434063)*c + (0.00018894)*c*c + (-3.45688e-06)*c*c*c + (2.16617e-08)*c*c*c*c ;
2765   v2s=-0.00675251 + (0.000691284)*c + (-1.08033e-06)*c*c + (-5.57352e-07)*c*c*c + (6.28148e-09)*c*c*c*c ;
2766 }
2767 if(fInternalRunNumber==107){
2768   v2c=-0.0441483 + (0.00803486)*c + (-0.00034871)*c*c + (4.76349e-06)*c*c*c + (-1.81393e-08)*c*c*c*c ;
2769   v2s=-0.141046 + (0.0165183)*c + (-0.000592546)*c*c + (8.956e-06)*c*c*c + (-4.86662e-08)*c*c*c*c ;
2770 }
2771 if(fInternalRunNumber==108){
2772   v2c=-0.0531169 + (0.00637348)*c + (-0.000218334)*c*c + (2.66873e-06)*c*c*c + (-9.86859e-09)*c*c*c*c ;
2773   v2s=-0.00809622 + (-0.000552159)*c + (6.27984e-05)*c*c + (-1.33136e-06)*c*c*c + (7.45069e-09)*c*c*c*c ;
2774 }
2775 if(fInternalRunNumber==109){
2776   v2c=-0.00189593 + (0.00153994)*c + (-9.92105e-05)*c*c + (1.98756e-06)*c*c*c + (-1.24677e-08)*c*c*c*c ;
2777   v2s=0.0252107 + (-0.00330651)*c + (0.000128362)*c*c + (-1.89951e-06)*c*c*c + (9.45477e-09)*c*c*c*c ;
2778 }
2779 if(fInternalRunNumber==112){
2780   v2c=-0.00939028 + (0.00128226)*c + (-5.24125e-05)*c*c + (8.50382e-07)*c*c*c + (-4.65785e-09)*c*c*c*c ;
2781   v2s=0.00201633 + (-0.00116151)*c + (7.59727e-05)*c*c + (-1.59962e-06)*c*c*c + (1.04645e-08)*c*c*c*c ;
2782 }
2783 if(fInternalRunNumber==114){
2784   v2c=-0.00783351 + (0.00122277)*c + (-3.37736e-05)*c*c + (3.12136e-07)*c*c*c + (-9.19359e-10)*c*c*c*c ;
2785   v2s=0.0103833 + (-0.00215968)*c + (9.96942e-05)*c*c + (-1.71974e-06)*c*c*c + (1.01511e-08)*c*c*c*c ;
2786 }
2787 if(fInternalRunNumber==115){
2788   v2c=0.00588164 + (-0.00083683)*c + (5.13684e-05)*c*c + (-1.14177e-06)*c*c*c + (8.11899e-09)*c*c*c*c ;
2789   v2s=0.0037561 + (-0.000786163)*c + (3.88084e-05)*c*c + (-7.73678e-07)*c*c*c + (5.27396e-09)*c*c*c*c ;
2790 }
2791 if(fInternalRunNumber==116){
2792   v2c=0.0610685 + (-0.00392239)*c + (6.23272e-05)*c*c + (9.84282e-07)*c*c*c + (-1.75418e-08)*c*c*c*c ;
2793   v2s=-0.106295 + (0.0124333)*c + (-0.000510299)*c*c + (8.51235e-06)*c*c*c + (-4.9787e-08)*c*c*c*c ;
2794 }
2795 if(fInternalRunNumber==117){
2796   v2c=-0.0132264 + (0.0024143)*c + (-0.000106307)*c*c + (1.74632e-06)*c*c*c + (-9.79752e-09)*c*c*c*c ;
2797   v2s=-0.00788943 + (0.000443907)*c + (-1.83984e-05)*c*c + (3.81018e-07)*c*c*c + (-2.52604e-09)*c*c*c*c ;
2798 }
2799 if(fInternalRunNumber==118){
2800   v2c=-0.045835 + (0.00849686)*c + (-0.000408675)*c*c + (7.3031e-06)*c*c*c + (-4.34655e-08)*c*c*c*c ;
2801   v2s=-0.0455199 + (0.00718851)*c + (-0.000340502)*c*c + (6.00457e-06)*c*c*c + (-3.51883e-08)*c*c*c*c ;
2802 }
2803 if(fInternalRunNumber==119){
2804   v2c=-0.00627236 + (0.00146712)*c + (-9.05375e-05)*c*c + (1.96962e-06)*c*c*c + (-1.35867e-08)*c*c*c*c ;
2805   v2s=-0.00544096 + (0.000598445)*c + (-7.61032e-06)*c*c + (-2.09579e-07)*c*c*c + (3.00091e-09)*c*c*c*c ;
2806 }
2807 if(fInternalRunNumber==120){
2808   v2c=-0.0376823 + (0.00376965)*c + (-8.01573e-05)*c*c + (-2.80792e-09)*c*c*c + (6.79508e-09)*c*c*c*c ;
2809   v2s=-0.0675803 + (0.00849852)*c + (-0.000298266)*c*c + (3.93178e-06)*c*c*c + (-1.68582e-08)*c*c*c*c ;
2810 }
2811 if(fInternalRunNumber==121){
2812   v2c=0.0285153 + (-0.00340253)*c + (0.000130854)*c*c + (-2.02449e-06)*c*c*c + (1.09594e-08)*c*c*c*c ;
2813   v2s=0.0224991 + (-0.00524188)*c + (0.000269226)*c*c + (-4.93926e-06)*c*c*c + (2.97604e-08)*c*c*c*c ;
2814 }
2815 if(fInternalRunNumber==122){
2816   v2c=0.00379321 + (0.000532446)*c + (-6.16649e-05)*c*c + (1.67786e-06)*c*c*c + (-1.29277e-08)*c*c*c*c ;
2817   v2s=-0.011158 + (0.00256124)*c + (-0.000150921)*c*c + (3.22488e-06)*c*c*c + (-2.16809e-08)*c*c*c*c ;
2818 }
2819 if(fInternalRunNumber==123){
2820   v2c=-0.0607006 + (0.00831906)*c + (-0.000398705)*c*c + (6.66385e-06)*c*c*c + (-3.5222e-08)*c*c*c*c ;
2821   v2s=0.0389204 + (-0.00798361)*c + (0.000297135)*c*c + (-3.79751e-06)*c*c*c + (1.47914e-08)*c*c*c*c ;
2822 }
2823 if(fInternalRunNumber==124){
2824   v2c=-0.0288952 + (0.00325728)*c + (-0.000104126)*c*c + (1.29062e-06)*c*c*c + (-6.03539e-09)*c*c*c*c ;
2825   v2s=0.0318884 + (-0.00301585)*c + (0.000131913)*c*c + (-2.5702e-06)*c*c*c + (1.71313e-08)*c*c*c*c ;
2826 }
2827 if(fInternalRunNumber==125){
2828   v2c=-0.00413859 + (0.00024613)*c + (5.33902e-06)*c*c + (-3.86963e-07)*c*c*c + (3.89277e-09)*c*c*c*c ;
2829   v2s=-0.0492298 + (0.00624793)*c + (-0.000243844)*c*c + (3.69001e-06)*c*c*c + (-1.9156e-08)*c*c*c*c ;
2830 }
2831 if(fInternalRunNumber==126){
2832   v2c=-0.018816 + (0.00134076)*c + (-4.50486e-05)*c*c + (5.84259e-07)*c*c*c + (-2.34235e-09)*c*c*c*c ;
2833   v2s=-0.295912 + (0.0159608)*c + (-0.000497569)*c*c + (6.92442e-06)*c*c*c + (-3.35159e-08)*c*c*c*c ;
2834 }
2835 if(fInternalRunNumber==127){
2836   v2c=-0.039222 + (0.00400933)*c + (-0.0001341)*c*c + (1.65214e-06)*c*c*c + (-6.33829e-09)*c*c*c*c ;
2837   v2s=-0.290884 + (0.0147027)*c + (-0.000429021)*c*c + (5.64116e-06)*c*c*c + (-2.58784e-08)*c*c*c*c ;
2838 }
2839 if(fInternalRunNumber==128){
2840   v2c=0.0168685 + (-0.00285775)*c + (0.000141099)*c*c + (-2.48846e-06)*c*c*c + (1.41845e-08)*c*c*c*c ;
2841   v2s=-0.278776 + (0.0113771)*c + (-0.000279052)*c*c + (3.16144e-06)*c*c*c + (-1.18545e-08)*c*c*c*c ;
2842 }
2843 if(fInternalRunNumber==129){
2844   v2c=0.0490322 + (-0.00736827)*c + (0.000304529)*c*c + (-4.89472e-06)*c*c*c + (2.60746e-08)*c*c*c*c ;
2845   v2s=-0.0961198 + (0.0179264)*c + (-0.000914589)*c*c + (1.70145e-05)*c*c*c + (-1.03423e-07)*c*c*c*c ;
2846 }
2847 if(fInternalRunNumber==131){
2848   v2c=0.075924 + (-0.0108106)*c + (0.000493471)*c*c + (-8.39074e-06)*c*c*c + (4.67109e-08)*c*c*c*c ;
2849   v2s=0.0700446 + (-0.0105027)*c + (0.00048267)*c*c + (-8.4422e-06)*c*c*c + (4.91292e-08)*c*c*c*c ;
2850 }
2851 if(fInternalRunNumber==132){
2852   v2c=0.00752887 + (-0.00142672)*c + (7.37857e-05)*c*c + (-1.36894e-06)*c*c*c + (8.28054e-09)*c*c*c*c ;
2853   v2s=-0.0121719 + (0.00188256)*c + (-8.67104e-05)*c*c + (1.50514e-06)*c*c*c + (-8.79759e-09)*c*c*c*c ;
2854 }
2855 if(fInternalRunNumber==133){
2856   v2c=0.00242068 + (-0.000274576)*c + (1.06631e-05)*c*c + (-1.45829e-07)*c*c*c + (7.18001e-10)*c*c*c*c ;
2857   v2s=0.0113182 + (-0.000529549)*c + (-7.75839e-06)*c*c + (4.86382e-07)*c*c*c + (-3.98634e-09)*c*c*c*c ;
2858 }
2859 if(fInternalRunNumber==134){
2860   v2c=-0.0438721 + (0.00906564)*c + (-0.000407471)*c*c + (6.6254e-06)*c*c*c + (-3.61035e-08)*c*c*c*c ;
2861   v2s=-0.276264 + (0.0107322)*c + (-0.000281971)*c*c + (3.27634e-06)*c*c*c + (-1.17426e-08)*c*c*c*c ;
2862 }
2863 if(fInternalRunNumber==135){
2864   v2c=0.0224469 + (-0.00324762)*c + (0.000165861)*c*c + (-3.16496e-06)*c*c*c + (2.011e-08)*c*c*c*c ;
2865   v2s=-0.308891 + (0.0136721)*c + (-0.00032343)*c*c + (2.93575e-06)*c*c*c + (-5.7637e-09)*c*c*c*c ;
2866 }
2867 if(fInternalRunNumber==136){
2868   v2c=0.0279685 + (-0.00441)*c + (0.000294342)*c*c + (-6.56635e-06)*c*c*c + (4.53669e-08)*c*c*c*c ;
2869   v2s=-0.273287 + (0.00917778)*c + (-0.000144155)*c*c + (1.59881e-07)*c*c*c + (8.63874e-09)*c*c*c*c ;
2870 }
2871
2872 /*
2873   if(fRunNumber>=1 && fRunNumber<=45){ // 137161 -137848 //period 1
2874 //    v2c =-3.523975e-03+8.132703e-04*x+-4.107765e-05*x*x+7.308763e-07*x*x*x+-4.285144e-09*x*x*x*x;
2875 //    v2s =-1.555676e-02+1.075371e-03*x+-3.597818e-05*x*x+4.927188e-07*x*x*x+-2.217080e-09*x*x*x*x;
2876      v2c=-2.007559e-05+3.143290e-04*x-2.065995e-05*x*x+4.071671e-07*x*x*x-2.562114e-09*x*x*x*x ;
2877      v2s=-4.920033e-03+6.807606e-04*x-3.065278e-05*x*x+5.132261e-07*x*x*x-2.767644e-09*x*x*x*x ;
2878
2879   }
2880   if(fRunNumber>=46 && fRunNumber<=58){ //138125-138275//period 2
2881     v2c = 1.591471e-02+2.772445e-04*x-2.229627e-05*x*x+3.803341e-07*x*x*x-2.056551e-09*x*x*x*x;
2882     v2s =-5.800393e-02+2.007102e-03*x-3.292094e-05*x*x+7.266378e-08*x*x*x+1.828472e-09*x*x*x*x ;
2883   }
2884   if(fRunNumber>=59 && fRunNumber<=78){ //138359-138730//period 3
2885     v2c =-8.010228e-03+8.947184e-04*x-4.192609e-05*x*x+7.388210e-07*x*x*x-4.280541e-09*x*x*x*x ;
2886     v2s =-3.203888e-02+2.122650e-03*x-7.549389e-05*x*x+1.161380e-06*x*x*x-6.156621e-09*x*x*x*x ;
2887   }
2888   if(fRunNumber>=79){//period 4
2889     v2c =-1.025964e-02+1.128454e-03*x-4.603917e-05*x*x+7.386637e-07*x*x*x-4.035342e-09*x*x*x*x ;
2890     v2s =-9.746961e-02+4.672675e-03*x-1.311440e-04*x*x+1.650922e-06*x*x*x-7.083187e-09*x*x*x*x ;
2891   }
2892 */
2893   return phi+v2c*TMath::Sin(2.*phi)-v2s*TMath::Cos(2.*phi) ;
2894
2895 }
2896 //____________________________________________________________________________
2897 Double_t  AliAnalysisTaskPi0Flow::ApplyFlattening(Double_t phi, Double_t c){
2898
2899
2900   if(fInternalRunNumber==39){ //137748
2901     Double_t v2c= 0.0222974-0.00132297*c+0.000204021*c*c-4.49827e-06*c*c*c+2.76986e-08*c*c*c*c ;
2902     Double_t v2s=0.00615401-7.76462e-05*c ;
2903     return phi+v2c*TMath::Sin(2.*phi)-v2s*TMath::Cos(2.*phi) ;
2904   }
2905
2906
2907   //Periods 1,2,3
2908   //fRunNumber - run index
2909   if(fInternalRunNumber>=1 && fInternalRunNumber<79){
2910     Double_t v2c=4.40516e-04+TMath::Exp(-4.71923-7.62089e-02*c) ;
2911     Double_t v2s=1.79859e-03+TMath::Exp(-4.99649-7.87523e-02*c) ;
2912
2913     return phi+v2c*TMath::Sin(2.*phi)-v2s*TMath::Cos(2.*phi) ;
2914   }
2915
2916   //period4
2917    //138826, 138828, 138830
2918   if(fInternalRunNumber==83 ||fInternalRunNumber==84 ||fInternalRunNumber==85 ){
2919      Double_t v2c = -1.4e-03 ;
2920      Double_t v2s =  -5.60117e-02-TMath::Exp( -1.62827e+00-9.96071e-02*c);
2921     return phi + v2c*TMath::Sin(2.*phi) - v2s*TMath::Cos(2.*phi) ;
2922   }
2923   //Runs 138871,138872
2924   if(fInternalRunNumber==87 ||fInternalRunNumber==88 ){
2925     Double_t v2c=-0.00518371 ;
2926     Double_t v2s= 0.00633324 ;
2927     return phi + v2c*TMath::Sin(2.*phi) - v2s*TMath::Cos(2.*phi) ;
2928   }
2929   //run 139029
2930   if(fInternalRunNumber==102 ){
2931      Double_t v2c = -0.00354633 ;
2932      Double_t v2s =  0.00418512 ;
2933      return phi+v2c*TMath::Sin(2.*phi)-v2s*TMath::Cos(2.*phi) ;
2934   }
2935   //run 139110
2936 /*
2937   if(fRunNumber==110 ){
2938     Double_t v2c=4.78327e-04+TMath::Exp(-3.21625    -6.74306e-02*c) ;
2939     Double_t v2s=3.50176e-02+TMath::Exp(-9.73541e-01-9.19214e-02*c) ;
2940     return phi + v2c*TMath::Sin(2.*phi) - v2s*TMath::Cos(2.*phi) ;
2941   }
2942 */
2943   if(fInternalRunNumber>=79 && fInternalRunNumber<=139){
2944     Double_t v2c= 4.78327e-04 + TMath::Exp(-6.70587-2.33120e-02*c) ;
2945     Double_t v2s=-2.57731e-03 + TMath::Exp(-2.75493-1.05166e-01*c) ;
2946
2947     return phi + v2c*TMath::Sin(2.*phi) - v2s*TMath::Cos(2.*phi) ;
2948   }
2949   return phi ;
2950
2951 }
2952 //____________________________________________________________________________
2953 Double_t  AliAnalysisTaskPi0Flow::CoreEnergy(AliVCluster * clu){
2954   //calculate energy of the cluster in the circle with radius distanceCut around the maximum
2955
2956   //Can not use already calculated coordinates?
2957   //They have incidence correction...
2958   const Double_t distanceCut =3.5 ;
2959   const Double_t logWeight=4.5 ;
2960
2961   Double32_t * elist = clu->GetCellsAmplitudeFraction() ;
2962 // Calculates the center of gravity in the local PHOS-module coordinates
2963   Float_t wtot = 0;
2964   Double_t xc[100]={0} ;
2965   Double_t zc[100]={0} ;
2966   Double_t x = 0 ;
2967   Double_t z = 0 ;
2968   Int_t mulDigit=TMath::Min(100,clu->GetNCells()) ;
2969   for(Int_t iDigit=0; iDigit<mulDigit; iDigit++) {
2970     Int_t relid[4] ;
2971     Float_t xi ;
2972     Float_t zi ;
2973     fPHOSGeo->AbsToRelNumbering(clu->GetCellAbsId(iDigit), relid) ;
2974     fPHOSGeo->RelPosInModule(relid, xi, zi);
2975     xc[iDigit]=xi ;
2976     zc[iDigit]=zi ;
2977     if (clu->E()>0 && elist[iDigit]>0) {
2978       Float_t w = TMath::Max( 0., logWeight + TMath::Log( elist[iDigit] / clu->E() ) ) ;
2979       x    += xc[iDigit] * w ;
2980       z    += zc[iDigit] * w ;
2981       wtot += w ;
2982     }
2983   }
2984   if (wtot>0) {
2985     x /= wtot ;
2986     z /= wtot ;
2987   }
2988   Double_t coreE=0. ;
2989   for(Int_t iDigit=0; iDigit < mulDigit; iDigit++) {
2990     Double_t distance = TMath::Sqrt((xc[iDigit]-x)*(xc[iDigit]-x)+(zc[iDigit]-z)*(zc[iDigit]-z)) ;
2991     if(distance < distanceCut)
2992       coreE += elist[iDigit] ;
2993   }
2994   //Apply non-linearity correction
2995   return fNonLinCorr->Eval(coreE) ;
2996 }
2997 //____________________________________________________________________________
2998 Bool_t  AliAnalysisTaskPi0Flow::AreNeibors(Int_t id1,Int_t id2){
2999   // return true if absId are "Neighbors" (adjacent, including diagornaly,)
3000   // false if not.
3001
3002   Int_t relid1[4] ;
3003   fPHOSGeo->AbsToRelNumbering(id1, relid1) ;
3004
3005   Int_t relid2[4] ;
3006   fPHOSGeo->AbsToRelNumbering(id2, relid2) ;
3007
3008   // if inside the same PHOS module
3009   if ( (relid1[0] == relid2[0]) && (relid1[1]==relid2[1]) ) {
3010     const Int_t rowdiff = TMath::Abs( relid1[2] - relid2[2] ) ;
3011     const Int_t coldiff = TMath::Abs( relid1[3] - relid2[3] ) ;
3012
3013     // and if diff in both direction is 1 or less
3014     if (( coldiff <= 1 )  && ( rowdiff <= 1 ))
3015       return true; // are neighbors
3016   }
3017
3018   // else false
3019   return false;
3020 }
3021 //____________________________________________________________________________
3022 void  AliAnalysisTaskPi0Flow::Reclusterize(AliVCluster * clu){
3023   //Re-clusterize to make continues cluster
3024
3025   const Int_t oldMulDigit=clu->GetNCells() ;
3026   Double32_t * elist = clu->GetCellsAmplitudeFraction() ;
3027   UShort_t * dlist = clu->GetCellsAbsId();
3028
3029   Int_t index[oldMulDigit] ;
3030   Bool_t used[oldMulDigit] ;
3031   for(Int_t i=0; i<oldMulDigit; i++) used[i]=0 ;
3032   Int_t inClu=0 ;
3033   Double_t eMax=0. ;
3034   //find maximum
3035   for(Int_t iDigit=0; iDigit<oldMulDigit; iDigit++) {
3036     if(eMax<elist[iDigit]){
3037       eMax=elist[iDigit];
3038       index[0]=iDigit ;
3039       inClu=1 ;
3040     }
3041   }
3042   if(inClu==0){ //empty cluster
3043     return ;
3044   }
3045   used[index[0]]=kTRUE ; //mark as used
3046   for(Int_t i=0; i<inClu; i++){
3047     for(Int_t iDigit=0 ;iDigit<oldMulDigit; iDigit++){
3048        if(used[iDigit]) //already used
3049          continue ;
3050        if(AreNeibors(dlist[index[i]],dlist[iDigit])){
3051          index[inClu]= iDigit ;
3052          inClu++ ;
3053          used[iDigit]=kTRUE ;
3054        }
3055     }
3056   }
3057
3058   if(inClu==oldMulDigit) //no need to modify
3059     return ;
3060
3061   clu->SetNCells(inClu);
3062   //copy
3063   UShort_t tmpD[oldMulDigit] ;
3064   Double_t tmpE[oldMulDigit] ;
3065   for(Int_t i=0; i<oldMulDigit; i++){
3066     tmpD[i]=dlist[i] ;
3067     tmpE[i]=elist[i] ;
3068   }
3069   //change order of digits in list so that
3070   //first inClu cells were true ones
3071   for(Int_t i=0; i<inClu; i++){
3072     dlist[i]=tmpD[index[i]] ;
3073     elist[i]=tmpE[index[i]] ;
3074   }
3075
3076
3077 }
3078
3079 //_____________________________________________________________________________
3080 void AliAnalysisTaskPi0Flow::SetMisalignment(){
3081   // sets the misalignment vertex if ESD
3082   if( fEventESD ) {
3083     for(Int_t mod=0; mod<5; mod++) {
3084       const TGeoHMatrix* modMatrix = fEvent->GetPHOSMatrix(mod);
3085       if( ! modMatrix) {
3086         if( fDebug )
3087           AliInfo(Form("no PHOS Geometric Misalignment Matrix for module %d", mod));
3088         continue;
3089       }
3090       else {
3091         fPHOSGeo->SetMisalMatrix(modMatrix, mod);
3092         if( fDebug )
3093           AliInfo("PHOS Geometric Misalignment Matrix");
3094       }
3095     }
3096   }
3097 }
3098
3099 //_____________________________________________________________________________
3100 void AliAnalysisTaskPi0Flow::SetV0Calibration(){
3101     // assigns: fMultV0, fV0Cpol, fV0Apol, fMeanQ, and fWidthQ
3102
3103     int runNumber = this->fRunNumber;
3104     
3105     TString oadbfilename = "$ALICE_ROOT/OADB/PWGCF/VZERO/VZEROcalibEP.root";
3106     TFile *foadb = TFile::Open(oadbfilename.Data());
3107
3108     if(!foadb){
3109         AliError(Form("OADB file %s cannot be opened\n", oadbfilename.Data()));
3110         AliError("V0 Calibration not set !\n");
3111         return;
3112     }
3113
3114     AliOADBContainer *cont = (AliOADBContainer*) foadb->Get("hMultV0BefCorr");
3115     if(!cont){
3116         AliError("OADB object hMultV0BefCorr is not available in the file");
3117         AliError("V0 Calibration not set!\n");
3118         return;
3119     }
3120
3121     if(!(cont->GetObject(runNumber))){
3122         AliError(Form("OADB object hMultV0BefCorr is not available for run %i, trying 137366)",runNumber));
3123         runNumber = 137366;
3124     }
3125     if(!(cont->GetObject(runNumber))){
3126         AliError(Form("OADB object hMultV0BefCorr is not available for run %i ",runNumber));
3127         AliError("V0 Calibration not set!\n");
3128         return;
3129     }
3130
3131     if( fDebug )  AliInfo("Setting V0 calibration") ;
3132     fMultV0 = ((TH2F *) cont->GetObject(runNumber))->ProfileX();
3133
3134     TF1 *fpol0 = new TF1("fpol0","pol0");
3135     fMultV0->Fit(fpol0,"","",0,31);
3136     fV0Cpol = fpol0->GetParameter(0);
3137     fMultV0->Fit(fpol0,"","",32,64);
3138     fV0Apol = fpol0->GetParameter(0);
3139
3140     for(Int_t iside=0;iside<2;iside++){
3141         for(Int_t icoord=0;icoord<2;icoord++){
3142             for(Int_t i=0;i  < kNCenBins;i++){
3143                 char namecont[100];
3144                 if(iside==0 && icoord==0)
3145                     snprintf(namecont,100,"hQxc2_%i",i);
3146                 else if(iside==1 && icoord==0)
3147                     snprintf(namecont,100,"hQxa2_%i",i);
3148                 else if(iside==0 && icoord==1)
3149                     snprintf(namecont,100,"hQyc2_%i",i);
3150              &