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