BOSS 7.1.2
BESIII Offline Software System
Loading...
Searching...
No Matches
EvtDsTopipipipi0pi0.cc
Go to the documentation of this file.
1//--------------------------------------------------------------------------
2// Environment:
3// This software is part of the EvtGen package developed jointly
4// for the BaBar and CLEO collaborations. If you use all or part
5// of it, please give an appropriate acknowledgement.
6//
7// Copyright Information: See EvtGen/COPYRIGHT
8// Copyright (C) 1998 Caltech, UCSB
9//
10// Module: EvtDsTopipipipi0pi0.cc
11// the necessary file: EvtDsTopipipipi0pi0.hh
12//
13// Description: Ds+ -> pi+ pi+ pi- pi0 pi0
14//
15// Modification history:
16// Liaoyuan Dong May 12 09:28:28 2024 Module created
17//------------------------------------------------------------------------
18#include "EvtGenBase/EvtPatches.hh"
19#include <fstream>
20#include <stdlib.h>
21#include "EvtGenBase/EvtParticle.hh"
22#include "EvtGenBase/EvtGenKine.hh"
23#include "EvtGenBase/EvtPDL.hh"
24#include "EvtGenBase/EvtReport.hh"
25#include "EvtGenBase/EvtResonance.hh"
26#include "EvtGenBase/EvtResonance2.hh"
27#include "EvtGenModels/EvtDsTopipipipi0pi0.hh"
28#include <string>
29#include "EvtGenBase/EvtConst.hh"
30#include "EvtGenBase/EvtDecayTable.hh"
31using std::endl;
32
33EvtDsTopipipipi0pi0::~EvtDsTopipipipi0pi0() {}
34
35void EvtDsTopipipipi0pi0::getName(std::string& model_name){
36 model_name="DsTopipipipi0pi0";
37}
38
42
43void EvtDsTopipipipi0pi0::init(){
44 // check that there are 0 arguments
45 checkNArg(0);
46 checkNDaug(5);
47 checkSpinParent(EvtSpinType::SCALAR);
48 checkSpinDaughter(0,EvtSpinType::SCALAR);
49 checkSpinDaughter(1,EvtSpinType::SCALAR);
50 checkSpinDaughter(2,EvtSpinType::SCALAR);
51 checkSpinDaughter(3,EvtSpinType::SCALAR);
52 checkSpinDaughter(4,EvtSpinType::SCALAR);
53
54 string name;
55 Double_t mean_v;
56 phi[0] = 0;
57 rho[0] = 1;
58 phi[1] = 0;
59 rho[1] = 0;
60 phi[2] = 0;
61 rho[2] = 0;
62 phi[3] = 0;
63 rho[3] = 0;
64 phi[4] = 0;
65 rho[4] = 0;
66 phi[5] = 0;
67 rho[5] = 0;
68 phi[6] = 0;
69 rho[6] = 0;
70 phi[7] = 0;
71 rho[7] = 0;
72 phi[8] = 0;
73 rho[8] = 0;
74 phi[9] = 0;
75 rho[9] = 0;
76 phi[10] = 0;
77 rho[10] = 0;
78 phi[11] = 0;
79 rho[11] = 0;
80 phi[12] = 0;
81 rho[12] = 0;
82 phi[13] = 0;
83 rho[13] = 0;
84
85 phi[0] = 0.0;
86 phi[1] = -0.2221550738;
87 phi[2] = 4.908682264;
88 phi[3] = 3.808080671;
89 phi[4] = 1.403674727;
90 phi[5] = -4.73279708;
91 phi[6] = -1.674922065;
92 phi[7] = 0.04954744732;
93 phi[8] = 1.837736271;
94 phi[9] = -2.762453694;
95 phi[10] = -1.674922065;
96 phi[11] = 0.04954744732;
97 phi[12] = -2.007113109;
98 phi[13] = -5.064013727;
99
100
101 rho[0] = 1.0;
102 rho[1] = -0.6906182923;
103 rho[2] = 1.919575948;
104 rho[3] = -0.3131096951;
105 rho[4] = 0.1208536009;
106 rho[5] = 3.481521946;
107 rho[6] = 2.65694721;
108 rho[7] = 3.511231977;
109 rho[8] = 4.390468499;
110 rho[9] = 4.263839405;
111 rho[10] = 2.65694721;
112 rho[11] = 3.511231977;
113 rho[12] = 1.763183137;
114 rho[13] = 5.382286502;
115
116 modetype[0]= 1;
117 modetype[1]= 1;
118 modetype[2]= 1;
119 modetype[3]= 8;
120 modetype[4]= 8;
121 modetype[5]= 11;
122 modetype[6]= 17;
123 modetype[7]= 17;
124 modetype[8]= 18;
125 modetype[9]= 18;
126 modetype[10]= 19;
127 modetype[11]= 19;
128 modetype[12]= 4;
129 modetype[13]= 6;
130
131/*
132 for (int i=0; i<12; i++) {
133 cout << i << " rho= " << rho[i] << " phi= " << phi[i] << endl;
134 }
135*/
136 width1[0] = 0.00868;
137 width1[1] = 0.00868;
138 width1[2] = 0.00868;
139 width1[3] = 0.004249;
140 width1[4] = 0.004249;
141 width1[5] = 0.400;
142 width1[6] = 0.420;
143 width1[7] = 0.420;
144 width1[8] = 0.420;
145 width1[9] = 0.420;
146 width1[10] = 0.420;
147 width1[11] = 0.420;
148 width1[12] = 0.142;
149 width1[13] = 0.142;
150
151 width2[0] = 0.1478;
152 width2[1] = 0.1478;
153 width2[2] = 0.1478;
154 width2[3] = 0.1478;
155 width2[4] = 0.1478;
156 width2[5] = 0.00868;
157 width2[6] = 0.1478;
158 width2[7] = 0.1478;
159 width2[8] = 0.1478;
160 width2[9] = 0.1478;
161 width2[10] = 0.1478;
162 width2[11] = 0.1478;
163 width2[12] = 0.00868;
164 width2[13] = 0.00868;
165
166 mass1[0] = 0.78266;
167 mass1[1] = 0.78266;
168 mass1[2] = 0.78266;
169 mass1[3] = 1.019461;
170 mass1[4] = 1.019461;
171 mass1[5] = 1.465;
172 mass1[6] = 1.230;
173 mass1[7] = 1.230;
174 mass1[8] = 1.230;
175 mass1[9] = 1.230;
176 mass1[10] = 1.230;
177 mass1[11] = 1.230;
178 mass1[12] = 1.2295;
179 mass1[13] = 1.2295;
180
181 mass2[0] = 0.77526;
182 mass2[1] = 0.77526;
183 mass2[2] = 0.77526;
184 mass2[3] = 0.77526;
185 mass2[4] = 0.77526;
186 mass2[5] = 0.78266;
187 mass2[6] = 0.77526;
188 mass2[7] = 0.77526;
189 mass2[8] = 0.77526;
190 mass2[9] = 0.77526;
191 mass2[10] = 0.77526;
192 mass2[11] = 0.77526;
193 mass2[12] = 0.78266;
194 mass2[13] = 0.78266;
195
196 mDsM = 1.9683;
197 mD = 1.86486;
198 metap = 0.95778;
199 mkstr = 0.89594;
200 mk0 = 0.497614;
201 mass_Kaon = 0.49368;
202 mass_Pion = 0.13957;
203 // math_pi = 3.1415926;
204 mass_Pion2 = 0.0194797849;
205 mass_2Pion = 0.27914;
206 math_2pi = 6.2831852;
207 rD2 = 25.0; // 5*5
208 rDs2 = 25.0; // 5*5
209 rRes2 = 9.0; // 3*3
210 gg1 = 0.5468;
211 gg2 = 0.23; //K*0(1430)
212 GS1 = 0.636619783;
213 GS2 = 0.01860182466;
214 GS3 = 0.1591549458; // 1/(2*math_2pi)
215 GS4 = 0.00620060822;
216
217 int GG[4][4] = { {1,0,0,0}, {0,-1,0,0}, {0,0,-1,0}, {0,0,0,-1} };
218 for (int i=0; i<4; i++) {
219 for (int j=0; j<4; j++) {
220 G[i][j] = GG[i][j];
221 }
222 }
223
224 double EE[4][4][4][4] =
225 { { {{0,0,0,0}, {0,0,0,0}, {0,0,0,0}, {0,0,0,0} },
226 {{0,0,0,0}, {0,0,0,0}, {0,0,0,1}, {0,0,-1,0}},
227 {{0,0,0,0}, {0,0,0,-1}, {0,0,0,0}, {0,1,0,0} },
228 {{0,0,0,0}, {0,0,1,0}, {0,-1,0,0}, {0,0,0,0} } },
229 { {{0,0,0,0}, {0,0,0,0}, {0,0,0,-1}, {0,0,1,0} },
230 {{0,0,0,0}, {0,0,0,0}, {0,0,0,0}, {0,0,0,0} },
231 {{0,0,0,1}, {0,0,0,0}, {0,0,0,0}, {-1,0,0,0}},
232 {{0,0,-1,0}, {0,0,0,0}, {1,0,0,0}, {0,0,0,0} } },
233 { {{0,0,0,0}, {0,0,0,1}, {0,0,0,0}, {0,-1,0,0}},
234 {{0,0,0,-1}, {0,0,0,0}, {0,0,0,0}, {1,0,0,0} },
235 {{0,0,0,0}, {0,0,0,0}, {0,0,0,0}, {0,0,0,0} },
236 {{0,1,0,0}, {-1,0,0,0}, {0,0,0,0}, {0,0,0,0} } },
237 { {{0,0,0,0}, {0,0,-1,0}, {0,1,0,0}, {0,0,0,0} },
238 {{0,0,1,0}, {0,0,0,0}, {-1,0,0,0}, {0,0,0,0} },
239 {{0,-1,0,0}, {1,0,0,0}, {0,0,0,0}, {0,0,0,0} },
240 {{0,0,0,0}, {0,0,0,0}, {0,0,0,0}, {0,0,0,0} } } };
241
242 for (int i=0; i<4; i++) {
243 for (int j=0; j<4; j++) {
244 for (int k=0; k<4; k++) {
245 for (int l=0; l<4; l++) {
246 E[i][j][k][l] = EE[i][j][k][l];
247 }
248 }
249 }
250 }
251
252
253
254
255}
256
257void EvtDsTopipipipi0pi0::initProbMax() {
258 setProbMax(87000000.0);
259}
260
261void EvtDsTopipipipi0pi0::decay( EvtParticle *p){
262
263 p->initializePhaseSpace(getNDaug(),getDaugs());
264 EvtVector4R D1 = p->getDaug(0)->getP4();
265 EvtVector4R D2 = p->getDaug(1)->getP4();
266 EvtVector4R D3 = p->getDaug(2)->getP4();
267 EvtVector4R D4 = p->getDaug(3)->getP4();
268 EvtVector4R D5 = p->getDaug(4)->getP4();
269
270 charge = EvtPDL::getStdHep(p->getId());
271 double P1[4], P2[4], P3[4], P4[4], P5[4];
272 if(charge>0){
273 P1[0] = D1.get(0); P1[1] = D1.get(1); P1[2] = D1.get(2); P1[3] = D1.get(3);
274 P2[0] = D2.get(0); P2[1] = D2.get(1); P2[2] = D2.get(2); P2[3] = D2.get(3);
275 P3[0] = D3.get(0); P3[1] = D3.get(1); P3[2] = D3.get(2); P3[3] = D3.get(3);
276 P4[0] = D4.get(0); P4[1] = D4.get(1); P4[2] = D4.get(2); P4[3] = D4.get(3);
277 P5[0] = D5.get(0); P5[1] = D5.get(1); P5[2] = D5.get(2); P5[3] = D5.get(3);
278 }
279 else if(charge<0){
280 P1[0] = D1.get(0); P1[1] = (-1.0)*D1.get(1); P1[2] = (-1.0)*D1.get(2); P1[3] = (-1.0)*D1.get(3);
281 P2[0] = D2.get(0); P2[1] = (-1.0)*D2.get(1); P2[2] = (-1.0)*D2.get(2); P2[3] = (-1.0)*D2.get(3);
282 P3[0] = D3.get(0); P3[1] = (-1.0)*D3.get(1); P3[2] = (-1.0)*D3.get(2); P3[3] = (-1.0)*D3.get(3);
283 P4[0] = D4.get(0); P4[1] = (-1.0)*D4.get(1); P4[2] = (-1.0)*D4.get(2); P4[3] = (-1.0)*D4.get(3);
284 P5[0] = D5.get(0); P5[1] = (-1.0)*D5.get(1); P5[2] = (-1.0)*D5.get(2); P5[3] = (-1.0)*D5.get(3);
285
286 }
287
288 double value;
289 int g0[50]={1,1,1,1,1,1,1,1,1,1,1,1,1,1};
290 int g1[50]={1,1,1,1,1,1,1,1,1,1,1,1,1,1};
291 int spin[50]={0,1,2,0,1,1,1020,1120,1020,1120,1020,1120,0,0};
292 int nstates=14;
293 calEva(P1, P2, P3, P4, P5, mass1, mass2, width1, width2, rho, phi, g0, g1, spin, modetype, nstates, value);
294
295 setProb(value);
296
297 return ;
298}
299
300double a1width[3000]={
301 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
302 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
303 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
304 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
305 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
306 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
307 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
308 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
309 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
310 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
311 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
312 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
313 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
314 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
315 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
316 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
317 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
318 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
319 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
320 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
321 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
322 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
323 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
324 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
325 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
326 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
327 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
328 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
329 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
330 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
331 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
332 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
333 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
334 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
335 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
336 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
337 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
338 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
339 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
340 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
341 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
342 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
343 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
344 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
345 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
346 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
347 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
348 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
349 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
350 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
351 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
352 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
353 0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,0.000000,
354 0.000000,0.000001,0.000001,0.000001,0.000002,0.000002,0.000002,0.000003,
355 0.000004,0.000004,0.000005,0.000006,0.000007,0.000008,0.000009,0.000010,
356 0.000011,0.000012,0.000014,0.000015,0.000017,0.000019,0.000021,0.000023,
357 0.000025,0.000027,0.000029,0.000032,0.000035,0.000038,0.000041,0.000044,
358 0.000047,0.000050,0.000054,0.000058,0.000062,0.000066,0.000070,0.000075,
359 0.000079,0.000084,0.000089,0.000094,0.000100,0.000105,0.000111,0.000117,
360 0.000124,0.000130,0.000137,0.000143,0.000151,0.000158,0.000165,0.000173,
361 0.000182,0.000190,0.000199,0.000207,0.000216,0.000225,0.000235,0.000245,
362 0.000256,0.000266,0.000277,0.000288,0.000300,0.000311,0.000322,0.000335,
363 0.000347,0.000360,0.000373,0.000385,0.000400,0.000415,0.000429,0.000442,
364 0.000457,0.000473,0.000488,0.000504,0.000520,0.000539,0.000555,0.000572,
365 0.000590,0.000608,0.000626,0.000646,0.000664,0.000684,0.000704,0.000725,
366 0.000745,0.000766,0.000787,0.000809,0.000828,0.000854,0.000878,0.000901,
367 0.000927,0.000952,0.000973,0.001001,0.001027,0.001048,0.001080,0.001104,
368 0.001132,0.001159,0.001189,0.001219,0.001245,0.001277,0.001308,0.001338,
369 0.001370,0.001404,0.001433,0.001468,0.001498,0.001533,0.001570,0.001600,
370 0.001638,0.001678,0.001711,0.001745,0.001780,0.001825,0.001857,0.001898,
371 0.001941,0.001972,0.002017,0.002065,0.002104,0.002146,0.002189,0.002234,
372 0.002277,0.002319,0.002369,0.002410,0.002461,0.002511,0.002557,0.002605,
373 0.002661,0.002704,0.002762,0.002807,0.002855,0.002910,0.002965,0.003020,
374 0.003074,0.003127,0.003178,0.003228,0.003288,0.003351,0.003409,0.003471,
375 0.003532,0.003598,0.003660,0.003720,0.003793,0.003854,0.003910,0.003972,
376 0.004050,0.004108,0.004181,0.004254,0.004309,0.004380,0.004464,0.004533,
377 0.004603,0.004679,0.004756,0.004811,0.004898,0.004974,0.005048,0.005142,
378 0.005215,0.005279,0.005363,0.005449,0.005533,0.005604,0.005695,0.005783,
379 0.005869,0.005971,0.006060,0.006142,0.006247,0.006332,0.006409,0.006502,
380 0.006594,0.006713,0.006784,0.006889,0.006995,0.007079,0.007190,0.007303,
381 0.007381,0.007487,0.007592,0.007710,0.007801,0.007910,0.008032,0.008149,
382 0.008247,0.008378,0.008462,0.008559,0.008706,0.008843,0.008943,0.009091,
383 0.009207,0.009308,0.009448,0.009555,0.009698,0.009810,0.009936,0.010020,
384 0.010186,0.010320,0.010474,0.010611,0.010742,0.010840,0.011011,0.011167,
385 0.011281,0.011395,0.011541,0.011714,0.011853,0.012046,0.012169,0.012277,
386 0.012460,0.012617,0.012805,0.012922,0.013072,0.013234,0.013389,0.013561,
387 0.013704,0.013917,0.014025,0.014239,0.014425,0.014600,0.014716,0.014958,
388 0.015114,0.015325,0.015488,0.015630,0.015797,0.016035,0.016206,0.016404,
389 0.016591,0.016842,0.016964,0.017199,0.017392,0.017557,0.017798,0.017987,
390 0.018178,0.018337,0.018631,0.018829,0.019008,0.019221,0.019467,0.019698,
391 0.019941,0.020166,0.020379,0.020585,0.020806,0.021040,0.021309,0.021482,
392 0.021764,0.022046,0.022306,0.022478,0.022736,0.023049,0.023222,0.023536,
393 0.023756,0.024090,0.024337,0.024557,0.024873,0.025099,0.025392,0.025682,
394 0.025995,0.026291,0.026498,0.026927,0.027119,0.027377,0.027804,0.028135,
395 0.028279,0.028682,0.028871,0.029355,0.029531,0.029956,0.030243,0.030592,
396 0.030873,0.031246,0.031494,0.031771,0.032167,0.032515,0.032881,0.033211,
397 0.033653,0.033988,0.034394,0.034639,0.035055,0.035569,0.035879,0.036211,
398 0.036611,0.036932,0.037489,0.037779,0.038284,0.038723,0.039001,0.039574,
399 0.039854,0.040274,0.040881,0.041117,0.041644,0.042055,0.042531,0.043030,
400 0.043354,0.043832,0.044277,0.044956,0.045284,0.045828,0.046440,0.046800,
401 0.047518,0.047727,0.048258,0.048850,0.049316,0.049992,0.050486,0.050987,
402 0.051410,0.051928,0.052613,0.053110,0.053824,0.054351,0.055078,0.055654,
403 0.056030,0.056763,0.057245,0.057832,0.058569,0.059292,0.060048,0.060569,
404 0.061056,0.061869,0.062612,0.063186,0.063886,0.064655,0.065198,0.065815,
405 0.066649,0.067577,0.068012,0.068967,0.069630,0.070181,0.070786,0.071989,
406 0.072764,0.073466,0.074461,0.075093,0.075994,0.076834,0.077455,0.078709,
407 0.079581,0.080408,0.080884,0.081965,0.082882,0.083658,0.084824,0.085513,
408 0.086662,0.087602,0.088678,0.089492,0.090641,0.091369,0.092494,0.093484,
409 0.094615,0.095385,0.096168,0.097668,0.098611,0.099630,0.100772,0.102020,
410 0.103145,0.104110,0.105071,0.106604,0.107791,0.108451,0.109509,0.111356,
411 0.112026,0.113921,0.114507,0.116071,0.117027,0.118213,0.120164,0.120701,
412 0.122121,0.123894,0.124937,0.126134,0.127391,0.128882,0.130056,0.131649,
413 0.133046,0.134275,0.135119,0.137072,0.138476,0.139612,0.140388,0.142734,
414 0.143576,0.145445,0.147414,0.148856,0.149891,0.150963,0.152477,0.153717,
415 0.155275,0.156859,0.158462,0.159257,0.161865,0.163182,0.164465,0.165538,
416 0.167003,0.169257,0.171211,0.172093,0.173261,0.174639,0.176510,0.177684,
417 0.179077,0.181041,0.182446,0.184769,0.184926,0.186741,0.188844,0.190884,
418 0.191714,0.192254,0.193921,0.195917,0.196766,0.199052,0.200603,0.201808,
419 0.202699,0.204636,0.205712,0.206849,0.208741,0.209424,0.211698,0.212753,
420 0.215516,0.215857,0.217790,0.217774,0.220454,0.221821,0.223466,0.224494,
421 0.225632,0.227231,0.229456,0.229581,0.231537,0.232263,0.233834,0.234725,
422 0.237079,0.238015,0.239400,0.240193,0.241693,0.243787,0.244317,0.244971,
423 0.246711,0.248615,0.249387,0.250905,0.252702,0.253535,0.254385,0.255375,
424 0.256671,0.258405,0.259741,0.260875,0.262131,0.262920,0.264860,0.265893,
425 0.266016,0.267727,0.270039,0.270689,0.271047,0.272313,0.272474,0.274724,
426 0.275813,0.275937,0.278793,0.278783,0.281407,0.281351,0.282481,0.284226,
427 0.284113,0.284999,0.285655,0.288361,0.287856,0.288893,0.290211,0.291708,
428 0.291985,0.294298,0.294849,0.296796,0.296197,0.296851,0.298011,0.300368,
429 0.299982,0.302378,0.304363,0.303711,0.304729,0.306789,0.306378,0.307372,
430 0.308720,0.309509,0.309712,0.310782,0.311699,0.312668,0.312755,0.313675,
431 0.315311,0.316640,0.317217,0.317403,0.318478,0.319916,0.321803,0.322678,
432 0.323237,0.324343,0.324433,0.324493,0.324969,0.325894,0.328563,0.328721,
433 0.328954,0.330640,0.328164,0.331267,0.331695,0.333772,0.333619,0.334351,
434 0.334605,0.336434,0.337510,0.336535,0.337362,0.338799,0.340732,0.339896,
435 0.342707,0.343471,0.342318,0.342431,0.344543,0.345611,0.345786,0.346590,
436 0.346610,0.347761,0.348914,0.349558,0.350577,0.352128,0.350982,0.354134,
437 0.352773,0.353213,0.352972,0.354927,0.355784,0.355778,0.355801,0.357040,
438 0.358013,0.358432,0.360045,0.359743,0.360238,0.359850,0.362184,0.361580,
439 0.363430,0.362333,0.364397,0.364472,0.364370,0.365303,0.366644,0.367777,
440 0.368604,0.367631,0.368324,0.369782,0.371121,0.370653,0.370040,0.371649,
441 0.370201,0.373362,0.373900,0.374159,0.374916,0.374503,0.376703,0.372802,
442 0.376191,0.379596,0.377325,0.376363,0.379369,0.379791,0.378703,0.380177,
443 0.381762,0.381335,0.381374,0.384668,0.381763,0.382746,0.384723,0.385089,
444 0.386229,0.386702,0.387749,0.384423,0.384714,0.384181,0.388489,0.388618,
445 0.388179,0.390092,0.389871,0.390496,0.391181,0.390679,0.392614,0.392269,
446 0.393899,0.393466,0.391421,0.391090,0.395586,0.391776,0.396882,0.393254,
447 0.394400,0.395749,0.398063,0.397138,0.397585,0.397288,0.397847,0.395375,
448 0.400170,0.400007,0.401191,0.398513,0.401922,0.400477,0.404257,0.403271,
449 0.400677,0.403913,0.403172,0.404727,0.403406,0.404404,0.405265,0.406389,
450 0.405738,0.402173,0.407831,0.405895,0.409172,0.408934,0.405915,0.408486,
451 0.407320,0.407437,0.405444,0.408400,0.410909,0.412427,0.409881,0.411021,
452 0.413001,0.410369,0.414702,0.413372,0.413095,0.410972,0.416346,0.416095,
453 0.414132,0.414344,0.416952,0.415197,0.417583,0.416582,0.416622,0.416895,
454 0.416576,0.415551,0.417925,0.414838,0.417051,0.416831,0.420000,0.419132,
455 0.418173,0.417645,0.419679,0.419866,0.419581,0.421531,0.420878,0.422737,
456 0.421872,0.421304,0.425486,0.424434,0.420842,0.426753,0.422761,0.422178,
457 0.422372,0.424173,0.425582,0.425080,0.425831,0.423551,0.422949,0.425784,
458 0.427977,0.427948,0.426368,0.425138,0.425351,0.428643,0.428148,0.427488,
459 0.431704,0.430167,0.429655,0.429584,0.425458,0.430728,0.429845,0.431145,
460 0.429180,0.428874,0.430720,0.430024,0.432034,0.431359,0.431535,0.432995,
461 0.432425,0.432454,0.433140,0.432574,0.433814,0.433348,0.432886,0.435472,
462 0.436517,0.432681,0.436999,0.435182,0.434834,0.435478,0.438255,0.436650,
463 0.434464,0.438530,0.434077,0.436471,0.434012,0.436822,0.437505,0.440135,
464 0.438322,0.438032,0.439001,0.440270,0.438661,0.439233,0.439274,0.437945,
465 0.443080,0.439191,0.438233,0.440415,0.441063,0.440926,0.440929,0.439731,
466 0.443584,0.439729,0.441597,0.442615,0.444637,0.443180,0.440789,0.440261,
467 0.442202,0.445081,0.445484,0.445415,0.445532,0.442806,0.444188,0.441073,
468 0.444299,0.445897,0.445279,0.442830,0.445506,0.445272,0.447267,0.443522,
469 0.445519,0.446459,0.446753,0.446377,0.446129,0.446383,0.448556,0.446593,
470 0.445293,0.449199,0.447590,0.445968,0.447482,0.448474,0.449890,0.450004,
471 0.447765,0.449274,0.450652,0.448210,0.449360,0.449577,0.448575,0.452112,
472 0.448780,0.451393,0.450200,0.452018,0.451182,0.452050,0.451748,0.451377,
473 0.451402,0.448810,0.452311,0.452909,0.452491,0.452418,0.454190,0.454420,
474 0.452121,0.452307,0.456857,0.453506,0.454058,0.457203,0.454394,0.453596,
475 0.452240,0.453692,0.456516,0.453753,0.455541,0.452702,0.456481,0.452226,
476 0.454280,0.454855,0.456297,0.456482,0.454154,0.455387,0.454748,0.455764,
477 0.457282,0.455487,0.454822,0.454257,0.457678,0.454225,0.458689,0.456123,
478 0.457011,0.457386,0.458351,0.458638,0.456164,0.455884,0.458525,0.457575,
479 0.458340,0.458912,0.457836,0.461734,0.457545,0.460755,0.460960,0.459226,
480 0.458613,0.461078,0.460958,0.460337,0.460237,0.461190,0.460760,0.457911,
481 0.461310,0.459657,0.461960,0.461040,0.459578,0.461650,0.461550,0.461251,
482 0.461054,0.463082,0.461732,0.461324,0.462547,0.461261,0.461629,0.464067,
483 0.462430,0.462525,0.464232,0.462921,0.463202,0.465558,0.462914,0.461698,
484 0.463963,0.463040,0.464275,0.461940,0.462913,0.465261,0.461500,0.463679,
485 0.463354,0.465205,0.464529,0.462220,0.464279,0.463427,0.465387,0.465288,
486 0.464839,0.464926,0.466100,0.465531,0.466187,0.464647,0.466285,0.465461,
487 0.464134,0.466783,0.466763,0.466183,0.467089,0.464497,0.466080,0.466109,
488 0.468166,0.466984,0.465335,0.466721,0.466856,0.465113,0.468377,0.467904,
489 0.464546,0.468787,0.465648,0.469841,0.469477,0.466311,0.468700,0.465183,
490 0.466559,0.470433,0.468563,0.468109,0.466980,0.467567,0.467670,0.466991,
491 0.467992,0.468784,0.469406,0.469652,0.468527,0.470460,0.467308,0.470693,
492 0.469539,0.468000,0.469295,0.467038,0.471908,0.468829,0.470663,0.469266,
493 0.468975,0.470222,0.468649,0.469507,0.472307,0.471611,0.470419,0.471181,
494 0.471140,0.473187,0.471086,0.469801,0.472234,0.472131,0.468996,0.470229,
495 0.471597,0.469625,0.472230,0.470164,0.468404,0.472264,0.471336,0.471597,
496 0.472280,0.471256,0.473151,0.471863,0.474458,0.471956,0.473099,0.473956,
497 0.471725,0.472809,0.473065,0.473180,0.470611,0.473614,0.474263,0.472792,
498 0.473543,0.472656,0.469728,0.473431,0.474538,0.475322,0.474962,0.473598,
499 0.474114,0.473486,0.472934,0.473252,0.477149,0.471719,0.476383,0.473076,
500 0.473952,0.473104,0.472459,0.474433,0.474494,0.473588,0.473839,0.478113,
501 0.472435,0.475571,0.475194,0.475626,0.474617,0.474520,0.474472,0.476437,
502 0.474512,0.474497,0.474628,0.476203,0.475698,0.473907,0.477144,0.479000,
503 0.475553,0.477481,0.473998,0.476672,0.477115,0.477114,0.476282,0.476152,
504 0.477009,0.479854,0.474354,0.477645,0.477517,0.477111,0.474843,0.476173,
505 0.477321,0.477384,0.477880,0.475726,0.476004,0.478204,0.475586,0.477973,
506 0.477935,0.480640,0.478234,0.476349,0.477493,0.476994,0.479815,0.477771,
507 0.476333,0.476325,0.478245,0.477284,0.479238,0.478339,0.478966,0.478012,
508 0.479304,0.480148,0.476125,0.481267,0.479801,0.476720,0.478898,0.479284,
509 0.479153,0.480157,0.478681,0.479712,0.478993,0.479943,0.478349,0.478930,
510 0.478052,0.477173,0.479244,0.480454,0.479128,0.480530,0.477843,0.478369,
511 0.478561,0.478639,0.479191,0.481763,0.481321,0.480979,0.479702,0.479777,
512 0.479384,0.477571,0.481880,0.478615,0.481303,0.478783,0.479384,0.480517,
513 0.481928,0.481199,0.479041,0.479188,0.481491,0.482840,0.478766,0.481941,
514 0.481298,0.478105,0.482933,0.479744,0.483361,0.482332,0.482556,0.482057,
515 0.483616,0.480599,0.482245,0.481091,0.480871,0.481938,0.480678,0.481851,
516 0.482902,0.482158,0.480187,0.481772,0.484967,0.483094,0.482133,0.483929,
517 0.483354,0.483382,0.483964,0.479941,0.481375,0.480255,0.482184,0.482541,
518 0.482032,0.483484,0.479492,0.483305,0.481070,0.483573,0.485689,0.485767,
519 0.484221,0.481365,0.482440,0.481507,0.483418,0.480978
520};
521
522
523void EvtDsTopipipipi0pi0::Com_Multi(double a1[2], double a2[2], double res[2])
524{
525 res[0] = a1[0]*a2[0]-a1[1]*a2[1];
526 res[1] = a1[1]*a2[0]+a1[0]*a2[1];
527}
528
529void EvtDsTopipipipi0pi0::Com_Divide(double a1[2], double a2[2], double res[2])
530{
531 double tmp = a2[0]*a2[0]+a2[1]*a2[1];
532 res[0] = (a1[0]*a2[0]+a1[1]*a2[1])/tmp;
533 res[1] = (a1[1]*a2[0]-a1[0]*a2[1])/tmp;
534}
535
536
537void EvtDsTopipipipi0pi0::propagatorRBW_a1(double mass2, double mass, double width, double sa, double sb, double sc, double r2, int l, double prop[2])
538{
539 double a[2], b[2];
540 int iii=int(sqrt(sa)*1000)-1;
541 double width_a1=a1width[iii];
542 a[0] = 1;
543 a[1] = 0;
544 b[0] = mass2-sa;
545 //b[1] = -mass*width*wid(mass2,mass,sa,sb,sc,r2,l);
546 b[1] = -mass*width_a1;
547 Com_Divide(a,b,prop);
548}
549
550double EvtDsTopipipipi0pi0::SCADot(double a1[4], double a2[4])
551{
552 double _cal = a1[0]*a2[0]-a1[1]*a2[1]-a1[2]*a2[2]-a1[3]*a2[3];
553 return _cal;
554}
555
556double EvtDsTopipipipi0pi0::Barrier(int l, double sa, double sb, double sc, double r2)
557{
558 double F;
559 double tmp = sa+sb-sc;
560 double q = 0.25*tmp*tmp/sa-sb;
561 //if (q < 0) q = 1e-16;
562 if (q < 0) q = -q;
563 double z = q*r2;
564 if (l==1) {
565 F = sqrt(2.0*z/(1.0+z));
566 }
567 else if (l==2) {
568 double z2 = z*z;
569 F = sqrt(13.0*z2/(9.0+3.0*z+z2));
570 } else {
571 F = 1.0;
572 }
573 return F;
574}
575
576double EvtDsTopipipipi0pi0::BarrierN(int l, double sa, double sb, double sc, double r, double mass)
577{
578 double q = (sa+sb-sc)*(sa+sb-sc)/(4*sa)-sb;
579 //if(q < 0) q = 1e-16;
580 if(q < 0) q = -q;
581 double z;
582 z = q*r*r;
583 z = q*r;
584 double sa0;
585 sa0 = mass*mass;
586 double q0 = (sa0+sb-sc)*(sa0+sb-sc)/(4*sa0)-sb;
587 //if(q0 < 0) q0 = 1e-16;
588 if(q0 < 0) q0 = -q0;
589 //double z0 = q0*r*r;
590 double z0 = q0*r;
591 double F = 0.0;
592 if(l == 0) F = 1;
593 if(l == 1) F = sqrt((1+z0)/(1+z));
594 if(l == 2) F = sqrt((9+3*z0+z0*z0)/(9+3*z+z*z));
595 return F;
596}
597
598void EvtDsTopipipipi0pi0::calt1(double daug1[4], double daug2[4], double t1[4])
599{
600 double p, pq, tmp;
601 double pa[4], qa[4];
602 for(int i=0; i<4; i++) {
603 pa[i] = daug1[i] + daug2[i];
604 qa[i] = daug1[i] - daug2[i];
605 }
606 p = SCADot(pa,pa);
607 pq = SCADot(pa,qa);
608 tmp = pq/p;
609 for(int i=0; i<4; i++) {
610 t1[i] = qa[i] - tmp*pa[i];
611 }
612}
613
614void EvtDsTopipipipi0pi0::calt2(double daug1[4], double daug2[4], double t2[4][4])
615{
616 double p, r;
617 double pa[4], t1[4];
618 calt1(daug1,daug2,t1);
619 r = SCADot(t1,t1)/3.0;
620 for(int i=0; i<4; i++) {
621 pa[i] = daug1[i] + daug2[i];
622 }
623 p = SCADot(pa,pa);
624 for(int i=0; i<4; i++) {
625 for(int j=0; j<4; j++) {
626 t2[i][j] = t1[i]*t1[j] - r*(G[i][j]-pa[i]*pa[j]/p);
627 }
628 }
629}
630
631void EvtDsTopipipipi0pi0::calG2(double daug1[4], double daug2[4], double g2[4][4])
632{
633 double p;
634 double pa[4];
635 for(int i=0; i<4; i++)
636 {
637 pa[i] = daug1[i] + daug2[i];
638 }
639 p = SCADot(pa,pa);
640 for(int i=0; i<4; i++)
641 {
642 for(int j=0; j<4; j++)
643 {
644 g2[i][j] = G[i][j]-pa[i]*pa[j]/p;
645 }
646 }
647}
648
649void EvtDsTopipipipi0pi0::propagator(double mass2, double mass, double width, double sx, double prop[2])
650{
651 double a[2], b[2];
652 a[0] = 1;
653 a[1] = 0;
654 b[0] = mass2-sx;
655 b[1] = -mass*width;
656 Com_Divide(a,b,prop);
657}
658
659double EvtDsTopipipipi0pi0::widttt(double mass2, double mass, double sa, double sb, double sc, double r2, int l, double ttt[3])
660{
661 double widm = 0.;
662 double m = sqrt(sa);
663 double tmp = sb-sc;
664 double tmp1 = sa+tmp;
665 double q = 0.25*tmp1*tmp1/sa-sb;
666 //if(q<0) q = 1e-16;
667 if(q<0) q = -q;
668 double tmp2 = mass2+tmp;
669 double q0 = 0.25*tmp2*tmp2/mass2-sb;
670 //if(q0<0) q0 = 1e-16;
671 if(q0<0) q0 = -q0;
672 double z = q*r2;
673 double z0 = q0*r2;
674 double t = q/q0;
675
676 ttt[0] = 0.25*tmp1*tmp1/sa;
677 ttt[1] = 0.25*tmp2*tmp2/mass2;
678 ttt[2] = sb;
679
680 if(l == 0) {widm = sqrt(t)*mass/m;}
681 else if(l == 1) {widm = t*sqrt(t)*mass/m*(1+z0)/(1+z);}
682 else if(l == 2) {widm = t*t*sqrt(t)*mass/m*(9+3*z0+z0*z0)/(9+3*z+z*z);}
683 return widm;
684
685}
686
687double EvtDsTopipipipi0pi0::wid(double mass2, double mass, double sa, double sb, double sc, double r2, int l)
688{
689 double widm = 0.;
690 double m = sqrt(sa);
691 double tmp = sb-sc;
692 double tmp1 = sa+tmp;
693 double q = 0.25*tmp1*tmp1/sa-sb;
694 //if(q<0) q = 1e-16;
695 if(q<0) q = -q;
696 double tmp2 = mass2+tmp;
697 double q0 = 0.25*tmp2*tmp2/mass2-sb;
698 //if(q0<0) q0 = 1e-16;
699 if(q0<0) q0 = -q0;
700 double z = q*r2;
701 double z0 = q0*r2;
702 double t = q/q0;
703
704 if(l == 0) {widm = sqrt(t)*mass/m;}
705 else if(l == 1) {widm = t*sqrt(t)*mass/m*(1+z0)/(1+z);}
706 else if(l == 2) {widm = t*t*sqrt(t)*mass/m*(9+3*z0+z0*z0)/(9+3*z+z*z);}
707 return widm;
708
709}
710
711
712
713
714
715double EvtDsTopipipipi0pi0::widl1(double mass2, double mass, double sa, double sb, double sc, double r2)
716{
717 double widm = 0.;
718 double m = sqrt(sa);
719 double tmp = sb-sc;
720 double tmp1 = sa+tmp;
721 double q = 0.25*tmp1*tmp1/sa-sb;
722 //if(q<0) q = 1e-16;
723 if(q<0) q = -q;
724 double tmp2 = mass2+tmp;
725 double q0 = 0.25*tmp2*tmp2/mass2-sb;
726 //if(q0<0) q0 = 1e-16;
727 if(q0<0) q0 = -q0;
728 double z = q*r2;
729 double z0 = q0*r2;
730 double F = (1+z0)/(1+z);
731 double t = q/q0;
732 widm = t*sqrt(t)*mass/m*F;
733 return widm;
734}
735
736void EvtDsTopipipipi0pi0::propagatorRBW(double mass2, double mass, double width, double sa, double sb, double sc, double r2, int l, double prop[2])
737{
738 double a[2], b[2];
739 a[0] = 1;
740 a[1] = 0;
741 b[0] = mass2-sa;
742 b[1] = -mass*width*wid(mass2,mass,sa,sb,sc,r2,l);
743 Com_Divide(a,b,prop);
744}
745
746
747void EvtDsTopipipipi0pi0::propagatorRBWttt(double mass2, double mass, double width, double sa, double sb, double sc, double r2, int l, double ttt[6], double prop[2])
748{
749 double a[2], b[2];
750 double temp[3];
751 a[0] = 1;
752 a[1] = 0;
753 b[0] = mass2-sa;
754 b[1] = -mass*width*widttt(mass2,mass,sa,sb,sc,r2,l, temp);
755
756 ttt[0] = b[0];
757 ttt[1] = widttt(mass2,mass,sa,sb,sc,r2,l,temp);
758 ttt[2] = b[1];
759 ttt[3] = temp[0];
760 ttt[4] = temp[1];
761 ttt[5] = temp[2];
762
763
764 Com_Divide(a,b,prop);
765}
766
767
768
769void EvtDsTopipipipi0pi0::propagatorRBWl1(double mass2, double mass, double width, double sa, double sb, double sc, double r2, double prop[2])
770{
771 double a[2], b[2];
772 a[0] = 1;
773 a[1] = 0;
774 b[0] = mass2-sa;
775 b[1] = -mass*width*widl1(mass2,mass,sa,sb,sc,r2);
776 Com_Divide(a,b,prop);
777}
778
779void EvtDsTopipipipi0pi0::propagatorGS(double mass2, double mass, double width, double sa, double sb, double sc, double r2, double prop[2])
780{
781
782 double a[2], b[2];
783 double tmp = sb-sc;
784 double tmp1 = sa+tmp;
785 double q2 = 0.25*tmp1*tmp1/sa-sb;
786 //if(q2<0) q2 = 1e-16;
787 if(q2<0) q2 = -q2;
788
789 double tmp2 = mass2+tmp;
790 double q02 = 0.25*tmp2*tmp2/mass2-sb;
791 //if(q02<0) q02 = 1e-16;
792 if(q02<0) q02 = -q02;
793
794 double q = sqrt(q2);
795 double q0 = sqrt(q02);
796 double m = sqrt(sa);
797 double q03 = q0*q02;
798 double tmp3 = log(mass+2*q0)+1.2760418309; // log(mass_2Pion) = 1.2760418309;
799
800 double h = GS1*q/m*(log(m+2*q)+1.2760418309);
801 double h0 = GS1*q0/mass*tmp3;
802 double dh = h0*(0.125/q02-0.5/mass2)+GS3/mass2;
803 double d = GS2/q02*tmp3+GS3*mass/q0-GS4*mass/q03;
804 double f = mass2/q03*(q2*(h-h0)+(mass2-sa)*q02*dh);
805
806 a[0] = 1.0+d*width/mass;
807 a[1] = 0.0;
808 b[0] = mass2-sa+width*f;
809 b[1] = -mass*width*widl1(mass2,mass,sa,sb,sc,r2);
810 Com_Divide(a,b,prop);
811
812}
813
814void EvtDsTopipipipi0pi0::propagatorGS_Omg(double mass2, double mass, double width, double sa, double sb, double sc, double r2, double amp_Omg, double phs_Omg, double prop[2])
815{
816 const double Omg_mass = 0.783;
817 const double Omg_width = 0.008;
818 const double Omg_mass2 = 0.613089;
819
820 double tmp_propGS[2];
821 propagatorGS(mass2, mass, width, sa, sb, sc, r2, tmp_propGS);
822 double tmp_propOmg[2];
823 propagatorRBWl1(Omg_mass2, Omg_mass, Omg_width, sa, sb, sc, r2, tmp_propOmg); // Using constant Gamma
824
825 double tmp_propOmg02[2];
826 tmp_propOmg02[0] = Omg_mass2*tmp_propOmg[0];
827 tmp_propOmg02[1] = Omg_mass2*tmp_propOmg[1];
828
829 double tmp_cof[2];
830 tmp_cof[0] = amp_Omg*cos(phs_Omg);
831 tmp_cof[1] = amp_Omg*sin(phs_Omg);
832
833 double amp_M_RBWOm[2];
834 amp_M_RBWOm[0] = tmp_cof[0]*tmp_propOmg02[0]-tmp_cof[1]*tmp_propOmg02[1];
835 amp_M_RBWOm[1] = tmp_cof[1]*tmp_propOmg02[0]+tmp_cof[0]*tmp_propOmg02[1];
836
837 double GS_amp_RBWOm[2];
838 Com_Multi(tmp_propGS, amp_M_RBWOm, GS_amp_RBWOm);
839
840 prop[0] = tmp_propGS[0] + GS_amp_RBWOm[0];
841 prop[1] = tmp_propGS[1] + GS_amp_RBWOm[1];
842
843}
844
845void EvtDsTopipipipi0pi0::rhoab(double sa, double sb, double sc, double res[2]) {
846 double tmp = sa+sb-sc;
847 double q = 0.25*tmp*tmp/sa-sb;
848 if(q>=0) {
849 res[0]=2.0*sqrt(q/sa);
850 res[1]=0.0;
851 } else {
852 res[0]=0.0;
853 res[1]=2.0*sqrt(-q/sa);
854 }
855}
856
857void EvtDsTopipipipi0pi0::rho4Pi(double sa, double res[2]) {
858 double temp = 1.0-0.3116765584/sa; // 0.3116765584=0.13957*0.13957*16
859 if(temp>=0) {
860 res[0]=sqrt(temp)/(1.0+exp(9.8-3.5*sa));
861 res[1]=0.0;
862 } else {
863 res[0]=0.0;
864 res[1]=sqrt(-temp)/(1.0+exp(9.8-3.5*sa));
865 }
866}
867
868void EvtDsTopipipipi0pi0::propagatorsigma500(double sa, double sb, double sc, double prop[2]) {
869 double f = 0.5843+1.6663*sa;
870 const double M = 0.9264;
871 const double mass2 = 0.85821696; // M*M
872 const double mpi2d2 = 0.00973989245;
873 double gg1 = f*(sa-mpi2d2)/(mass2-mpi2d2)*exp((mass2-sa)/1.082);
874 double rho1s[2], rho1M[2], rho2s[2], rho2M[2], rho1[2], rho2[2];
875 rhoab(sa,sb,sc,rho1s);
876 rhoab(mass2,sb,sc,rho1M);
877 rho4Pi(sa,rho2s);
878 rho4Pi(mass2,rho2M);
879 Com_Divide(rho1s,rho1M,rho1);
880 Com_Divide(rho2s,rho2M,rho2);
881 double a[2], b[2];
882 a[0] = 1.0;
883 a[1] = 0.0;
884 b[0] = mass2-sa+M*(gg1*rho1[1]+0.0024*rho2[1]);
885 b[1] = -M*(gg1*rho1[0]+0.0024*rho2[0]);
886 Com_Divide(a,b,prop);
887}
888
889void EvtDsTopipipipi0pi0::KPiSLASS(double sa, double sb, double sc, double prop[2]) {
890 const double m1430 = 1.463;
891 const double sa0 = 2.140369; // m1430*m1430;
892 const double w1430 = 0.233;
893 const double Lass1 = 0.25/sa0;
894 double tmp = sb-sc;
895 double tmp1 = sa0+tmp;
896 double q0 = Lass1*tmp1*tmp1-sb;
897 //if(q0<0) q0 = 1e-16;
898 if(q0<0) q0 = -q0;
899 double tmp2 = sa+tmp;
900 double qs = 0.25*tmp2*tmp2/sa-sb;
901 double q = sqrt(qs);
902 double width = w1430*q*m1430/sqrt(sa*q0);
903 double temp_R = atan(m1430*width/(sa0-sa));
904 if(temp_R<0) temp_R += 3.1415926;
905 double deltaR = -5.31 + temp_R;
906 double temp_F = atan(2.14*q/(2.0-1.926*qs)); // 2.0*1.07 = 2.14; 1.8*1.07 = 1.926
907 if(temp_F<0) temp_F += 3.1415926;
908 double deltaF = 2.33 + temp_F;
909 double deltaS = deltaR + 2.0*deltaF;
910 double t1 = 0.8*sin(deltaF);
911 double t2 = sin(deltaR);
912 double CF[2], CS[2];
913 CF[0] = cos(deltaF);
914 CF[1] = sin(deltaF);
915 CS[0] = cos(deltaS);
916 CS[1] = sin(deltaS);
917 prop[0] = t1*CF[0] + t2*CS[0];
918 prop[1] = t1*CF[1] + t2*CS[1];
919}
920
921
922
923
924void EvtDsTopipipipi0pi0::calEva(double* Pip1, double* Pip2, double* Pi01, double* Pi02, double* Pim, double* mass1, double* mass2, double* width1, double* width2, double* amp, double* phase, int* g0, int* g1, int* g2, int* modetype, double nstates, double &Result)
925{
926 double cof[2], amp_tmp1[2], amp_tmp2[2], amp_tmp3[2], amp_tmp4[2], amp_tmp[2], amp_PDF[2], PDF[2];
927
928 double pomega1[4],pomega2[4],pomega3[4],pomega4[4],pphi1[4],pphi2[4],pphi3[4],pphi4[4],prho1[4],prho2[4],prho3[4],prho4[4],pb1p1[4],pb1p2[4],pb1p3[4],pb1p4[4],pb1n1[4],pb1n2[4],pb1n3[4],pb1n4[4],prho11[4],prho12[4],prho13[4],prho21[4],prho22[4],prho23[4],prho31[4],prho32[4],prho33[4],prho41[4],prho42[4],prho43[4],pDs[4],prho1450n1[4],prho1450n2[4],prho1450n3[4],prho1450n4[4],prho1450p1[4],prho1450p2[4],prho1450p3[4],prho1450p4[4];
929 double pa1012601[4],pa1012602[4],pa1012603[4],pa1012604[4],pa10f05001[4],pa10f05002[4];
930 double pa1p12601[4],pa1p12602[4],pa1rho1[4],pa1rho2[4],pa1pf0500[4];
931 double pf114201[4],pf114202[4],pf114203[4],pf114204[4],pf11420rhop1[4],pf11420rhop2[4],pf11420rhop3[4],pf11420rhop4[4],pf11420rhom1[4],pf11420rhom2[4],pf11420rhom3[4],pf11420rhom4[4];
932 double pr1a11[4],pr1a12[4],pr1a13[4],pr1a14[4],pr1rhop1[4],pr1rhop2[4],pr1rhop3[4],pr1rhop4[4],pr1a1rho01[4],pr1a1rho02[4],pr1a1rho03[4],pr1a1rho04[4];
933 double pr2a11[4],pr2a12[4],pr2a13[4],pr2a14[4],pr2a1rhop1[4],pr2a1rhop2[4],pr2a1rhop3[4],pr2a1rhop4[4],pr2rhop1[4],pr2rhop2[4],pr2rhop3[4],pr2rhop4[4];
934 double pr3a11[4],pr3a12[4],pr3a13[4],pr3a14[4],pr3rho01[4],pr3rho02[4],pr3rho03[4],pr3rho04[4],pr3a1rhop1[4],pr3a1rhop2[4],pr3a1rhop3[4],pr3a1rhop4[4];
935 double pr4a11[4],pr4a12[4],pr4a13[4],pr4a14[4],pr4rhop1[4],pr4rhop2[4],pr4rhop3[4],pr4rhop4[4],pr4a1rhom1[4],pr4a1rhom2[4],pr4a1rhom3[4],pr4a1rhom4[4];
936
937 for(int i=0;i!=4;i++) {
938 pomega1[i] = Pip1[i] + Pi01[i] + Pim[i];
939 pomega2[i] = Pip1[i] + Pi02[i] + Pim[i];
940 pomega3[i] = Pip2[i] + Pi01[i] + Pim[i];
941 pomega4[i] = Pip2[i] + Pi02[i] + Pim[i];
942 pphi1[i] = Pip1[i] + Pi01[i] + Pim[i];
943 pphi2[i] = Pip1[i] + Pi02[i] + Pim[i];
944 pphi3[i] = Pip2[i] + Pi01[i] + Pim[i];
945 pphi4[i] = Pip2[i] + Pi02[i] + Pim[i];
946 prho1[i] = Pip2[i] + Pi02[i];
947 prho2[i] = Pip2[i] + Pi01[i];
948 prho3[i] = Pip1[i] + Pi02[i];
949 prho4[i] = Pip1[i] + Pi01[i];
950 prho11[i] = Pip1[i] + Pi01[i];
951 prho12[i] = Pip1[i] + Pim[i];
952 prho13[i] = Pi01[i] + Pim[i];
953 prho21[i] = Pip1[i] + Pi02[i];
954 prho22[i] = Pip1[i] + Pim[i];
955 prho23[i] = Pi02[i] + Pim[i];
956 prho31[i] = Pip2[i] + Pi01[i];
957 prho32[i] = Pip2[i] + Pim[i];
958 prho33[i] = Pi01[i] + Pim[i];
959 prho41[i] = Pip2[i] + Pi02[i];
960 prho42[i] = Pip2[i] + Pim[i];
961 prho43[i] = Pi02[i] + Pim[i];
962 pb1p1[i] = Pip1[i] + Pi01[i] + Pim[i] + Pip2[i];
963 pb1p2[i] = Pip1[i] + Pi02[i] + Pim[i] + Pip2[i];
964 pb1p3[i] = Pip2[i] + Pi01[i] + Pim[i] + Pip1[i];
965 pb1p4[i] = Pip2[i] + Pi02[i] + Pim[i] + Pip1[i];
966 pb1n1[i] = Pip1[i] + Pi01[i] + Pim[i] + Pi02[i];
967 pb1n2[i] = Pip1[i] + Pi02[i] + Pim[i] + Pi01[i];
968 pb1n3[i] = Pip2[i] + Pi01[i] + Pim[i] + Pi02[i];
969 pb1n4[i] = Pip2[i] + Pi02[i] + Pim[i] + Pi01[i];
970 prho1450p1[i] = Pip1[i] + Pi01[i] + Pim[i] + Pip2[i];
971 prho1450p2[i] = Pip1[i] + Pi02[i] + Pim[i] + Pip2[i];
972 prho1450p3[i] = Pip2[i] + Pi01[i] + Pim[i] + Pip1[i];
973 prho1450p4[i] = Pip2[i] + Pi02[i] + Pim[i] + Pip1[i];
974 prho1450n1[i] = Pip1[i] + Pi01[i] + Pim[i] + Pi02[i];
975 prho1450n2[i] = Pip1[i] + Pi02[i] + Pim[i] + Pi01[i];
976 prho1450n3[i] = Pip2[i] + Pi01[i] + Pim[i] + Pi02[i];
977 prho1450n4[i] = Pip2[i] + Pi02[i] + Pim[i] + Pi01[i];
978 pa1012601[i] = Pip1[i] + Pi01[i] + Pim[i];
979 pa1012602[i] = Pip1[i] + Pi02[i] + Pim[i];
980 pa10f05001[i] = Pip1[i] + Pim[i];
981 pa1012603[i] = Pip2[i] + Pi01[i] + Pim[i];
982 pa1012604[i] = Pip2[i] + Pi02[i] + Pim[i];
983 pa10f05002[i] = Pip2[i] + Pim[i];
984 pa1p12601[i] = Pi01[i] + Pi02[i] + Pip1[i];
985 pa1p12602[i] = Pi01[i] + Pi02[i] + Pip2[i];
986 pa1pf0500[i] = Pi01[i] + Pi02[i];
987 pa1rho1[i] = Pip2[i] + Pim[i];
988 pa1rho2[i] = Pip1[i] + Pim[i];
989 pf114201[i] = Pip1[i] + Pi01[i] + Pi02[i] + Pim[i];
990 pf114202[i] = Pip1[i] + Pi02[i] + Pi01[i] + Pim[i];
991 pf114203[i] = Pip2[i] + Pi01[i] + Pi02[i] + Pim[i];
992 pf114204[i] = Pip2[i] + Pi02[i] + Pi01[i] + Pim[i];
993 pf11420rhop1[i] = Pip1[i] + Pi01[i];
994 pf11420rhop2[i] = Pip1[i] + Pi02[i];
995 pf11420rhop3[i] = Pip2[i] + Pi01[i];
996 pf11420rhop4[i] = Pip2[i] + Pi02[i];
997 pf11420rhom1[i] = Pim[i] + Pi02[i];
998 pf11420rhom2[i] = Pim[i] + Pi01[i];
999 pf11420rhom3[i] = Pim[i] + Pi02[i];
1000 pf11420rhom4[i] = Pim[i] + Pi01[i];
1001 pr1a11[i] = Pip1[i] + Pim[i] + Pi01[i];
1002 pr1a12[i] = Pip1[i] + Pim[i] + Pi02[i];
1003 pr1a13[i] = Pip2[i] + Pim[i] + Pi01[i];
1004 pr1a14[i] = Pip2[i] + Pim[i] + Pi02[i];
1005 pr1a1rho01[i] = Pip1[i] + Pim[i];
1006 pr1a1rho02[i] = Pip1[i] + Pim[i];
1007 pr1a1rho03[i] = Pip2[i] + Pim[i];
1008 pr1a1rho04[i] = Pip2[i] + Pim[i];
1009 pr1rhop1[i] = Pip2[i] + Pi02[i];
1010 pr1rhop2[i] = Pip2[i] + Pi01[i];
1011 pr1rhop3[i] = Pip1[i] + Pi02[i];
1012 pr1rhop4[i] = Pip1[i] + Pi01[i];
1013 pr2a11[i] = Pip1[i] + Pi01[i] + Pim[i];
1014 pr2a12[i] = Pip1[i] + Pi02[i] + Pim[i];
1015 pr2a13[i] = Pip2[i] + Pi01[i] + Pim[i];
1016 pr2a14[i] = Pip2[i] + Pi02[i] + Pim[i];
1017 pr2a1rhop1[i] = Pip1[i] + Pi01[i];
1018 pr2a1rhop2[i] = Pip1[i] + Pi02[i];
1019 pr2a1rhop3[i] = Pip2[i] + Pi01[i];
1020 pr2a1rhop4[i] = Pip2[i] + Pi02[i];
1021 pr2rhop1[i] = Pip2[i] + Pi02[i];
1022 pr2rhop2[i] = Pip2[i] + Pi01[i];
1023 pr2rhop3[i] = Pip1[i] + Pi02[i];
1024 pr2rhop4[i] = Pip1[i] + Pi01[i];
1025 pr3a11[i] = Pip1[i] + Pi01[i] + Pi02[i];
1026 pr3a12[i] = Pip1[i] + Pi02[i] + Pi01[i];
1027 pr3a13[i] = Pip2[i] + Pi01[i] + Pi02[i];
1028 pr3a14[i] = Pip2[i] + Pi02[i] + Pi01[i];
1029 pr3a1rhop1[i] = Pip1[i] + Pi01[i];
1030 pr3a1rhop2[i] = Pip1[i] + Pi02[i];
1031 pr3a1rhop3[i] = Pip2[i] + Pi01[i];
1032 pr3a1rhop4[i] = Pip2[i] + Pi02[i];
1033 pr3rho01[i] = Pip2[i] + Pim[i];
1034 pr3rho02[i] = Pip2[i] + Pim[i];
1035 pr3rho03[i] = Pip1[i] + Pim[i];
1036 pr3rho04[i] = Pip1[i] + Pim[i];
1037 pr4a11[i] = Pim[i] + Pi01[i] + Pip1[i];
1038 pr4a12[i] = Pim[i] + Pi02[i] + Pip1[i];
1039 pr4a13[i] = Pim[i] + Pi01[i] + Pip2[i];
1040 pr4a14[i] = Pim[i] + Pi02[i] + Pip2[i];
1041 pr4a1rhom1[i] = Pi01[i] + Pim[i];
1042 pr4a1rhom2[i] = Pi02[i] + Pim[i];
1043 pr4a1rhom3[i] = Pi01[i] + Pim[i];
1044 pr4a1rhom4[i] = Pi02[i] + Pim[i];
1045 pr4rhop1[i] = Pip2[i] + Pi02[i];
1046 pr4rhop2[i] = Pip2[i] + Pi01[i];
1047 pr4rhop3[i] = Pip1[i] + Pi02[i];
1048 pr4rhop4[i] = Pip1[i] + Pi01[i];
1049
1050 pDs[i] = Pip1[i] + Pip2[i] + Pi01[i] + Pi02[i] + Pim[i];
1051 }
1052
1053 double sPip1,sPip2,sPi01,sPi02,sPim,somega1,somega2,somega3,somega4,sphi1,sphi2,sphi3,sphi4,srho1,srho2,srho3,srho4,sb1p1,sb1p2,sb1p3,sb1p4,sb1n1,sb1n2,sb1n3,sb1n4,srho11,srho12,srho13,srho21,srho22,srho23,srho31,srho32,srho33,srho41,srho42,srho43,sDs,srho1450n1,srho1450n2,srho1450n3,srho1450n4,srho1450p1,srho1450p2,srho1450p3,srho1450p4;
1054 double sa1012601,sa1012602,sa1012603,sa1012604,sa10f05001,sa10f05002;
1055 double sa1p12601,sa1p12602,sa1rho1,sa1rho2,sa1pf0500;
1056 double sf114201,sf114202,sf114203,sf114204,sf11420rhop1,sf11420rhop2,sf11420rhop3,sf11420rhop4,sf11420rhom1,sf11420rhom2,sf11420rhom3,sf11420rhom4;
1057 double sr1a11,sr1a12,sr1a13,sr1a14,sr1a1rho01,sr1a1rho02,sr1a1rho03,sr1a1rho04,sr1rhop1,sr1rhop2,sr1rhop3,sr1rhop4;
1058 double sr2a11,sr2a12,sr2a13,sr2a14,sr2a1rhop1,sr2a1rhop2,sr2a1rhop3,sr2a1rhop4,sr2rhop1,sr2rhop2,sr2rhop3,sr2rhop4;
1059 double sr3a11,sr3a12,sr3a13,sr3a14,sr3a1rhop1,sr3a1rhop2,sr3a1rhop3,sr3a1rhop4,sr3rho01,sr3rho02,sr3rho03,sr3rho04;
1060 double sr4a11,sr4a12,sr4a13,sr4a14,sr4a1rhom1,sr4a1rhom2,sr4a1rhom3,sr4a1rhom4,sr4rhop1,sr4rhop2,sr4rhop3,sr4rhop4;
1061 sPip1 = SCADot(Pip1,Pip1);
1062 sPip2 = SCADot(Pip2,Pip2);
1063 sPi01 = SCADot(Pi01,Pi01);
1064 sPi02 = SCADot(Pi02,Pi02);
1065 sPim = SCADot(Pim,Pim);
1066 somega1 = SCADot(pomega1,pomega1);
1067 somega2 = SCADot(pomega2,pomega2);
1068 somega3 = SCADot(pomega3,pomega3);
1069 somega4 = SCADot(pomega4,pomega4);
1070 sphi1 = SCADot(pphi1,pphi1);
1071 sphi2 = SCADot(pphi2,pphi2);
1072 sphi3 = SCADot(pphi3,pphi3);
1073 sphi4 = SCADot(pphi4,pphi4);
1074 srho1 = SCADot(prho1,prho1);
1075 srho2 = SCADot(prho2,prho2);
1076 srho3 = SCADot(prho3,prho3);
1077 srho4 = SCADot(prho4,prho4);
1078 sb1p1 = SCADot(pb1p1,pb1p1);
1079 sb1p2 = SCADot(pb1p2,pb1p2);
1080 sb1p3 = SCADot(pb1p3,pb1p3);
1081 sb1p4 = SCADot(pb1p4,pb1p4);
1082 sb1n1 = SCADot(pb1n1,pb1n1);
1083 sb1n2 = SCADot(pb1n2,pb1n2);
1084 sb1n3 = SCADot(pb1n3,pb1n3);
1085 sb1n4 = SCADot(pb1n4,pb1n4);
1086 srho1450p1 = SCADot(prho1450p1,prho1450p1);
1087 srho1450p2 = SCADot(prho1450p2,prho1450p2);
1088 srho1450p3 = SCADot(prho1450p3,prho1450p3);
1089 srho1450p4 = SCADot(prho1450p4,prho1450p4);
1090 srho1450n1 = SCADot(prho1450n1,prho1450n1);
1091 srho1450n2 = SCADot(prho1450n2,prho1450n2);
1092 srho1450n3 = SCADot(prho1450n3,prho1450n3);
1093 srho1450n4 = SCADot(prho1450n4,prho1450n4);
1094 srho11 = SCADot(prho11,prho11);
1095 srho12 = SCADot(prho12,prho12);
1096 srho13 = SCADot(prho13,prho13);
1097 srho21 = SCADot(prho21,prho21);
1098 srho22 = SCADot(prho22,prho22);
1099 srho23 = SCADot(prho23,prho23);
1100 srho31 = SCADot(prho31,prho31);
1101 srho32 = SCADot(prho32,prho32);
1102 srho33 = SCADot(prho33,prho33);
1103 srho41 = SCADot(prho41,prho41);
1104 srho42 = SCADot(prho42,prho42);
1105 srho43 = SCADot(prho43,prho43);
1106 sa1012601 = SCADot(pa1012601,pa1012601);
1107 sa1012602 = SCADot(pa1012602,pa1012602);
1108 sa10f05001 = SCADot(pa10f05001,pa10f05001);
1109 sa1012603 = SCADot(pa1012603,pa1012603);
1110 sa1012604 = SCADot(pa1012604,pa1012604);
1111 sa10f05002 = SCADot(pa10f05002,pa10f05002);
1112 sa1p12601 = SCADot(pa1p12601,pa1p12601);
1113 sa1p12602 = SCADot(pa1p12602,pa1p12602);
1114 sa1pf0500 = SCADot(pa1pf0500,pa1pf0500);
1115 sa1rho1 = SCADot(pa1rho1,pa1rho1);
1116 sa1rho2 = SCADot(pa1rho2,pa1rho2);
1117 sf114201 = SCADot(pf114201,pf114201);
1118 sf114202 = SCADot(pf114202,pf114202);
1119 sf114203 = SCADot(pf114203,pf114203);
1120 sf114204 = SCADot(pf114204,pf114204);
1121 sf11420rhop1 = SCADot(pf11420rhop1,pf11420rhop1);
1122 sf11420rhop2 = SCADot(pf11420rhop2,pf11420rhop2);
1123 sf11420rhop3 = SCADot(pf11420rhop3,pf11420rhop3);
1124 sf11420rhop4 = SCADot(pf11420rhop4,pf11420rhop4);
1125 sf11420rhom1 = SCADot(pf11420rhom1,pf11420rhom1);
1126 sf11420rhom2 = SCADot(pf11420rhom2,pf11420rhom2);
1127 sf11420rhom3 = SCADot(pf11420rhom3,pf11420rhom3);
1128 sf11420rhom4 = SCADot(pf11420rhom4,pf11420rhom4);
1129 sr1a11 = SCADot(pr1a11,pr1a11);
1130 sr1a12 = SCADot(pr1a12,pr1a12);
1131 sr1a13 = SCADot(pr1a13,pr1a13);
1132 sr1a14 = SCADot(pr1a14,pr1a14);
1133 sr1a1rho01 = SCADot(pr1a1rho01,pr1a1rho01);
1134 sr1a1rho02 = SCADot(pr1a1rho02,pr1a1rho02);
1135 sr1a1rho03 = SCADot(pr1a1rho03,pr1a1rho03);
1136 sr1a1rho04 = SCADot(pr1a1rho04,pr1a1rho04);
1137 sr1rhop1 = SCADot(pr1rhop1,pr1rhop1);
1138 sr1rhop2 = SCADot(pr1rhop2,pr1rhop2);
1139 sr1rhop3 = SCADot(pr1rhop3,pr1rhop3);
1140 sr1rhop4 = SCADot(pr1rhop4,pr1rhop4);
1141 sr2a11 = SCADot(pr2a11,pr2a11);
1142 sr2a12 = SCADot(pr2a12,pr2a12);
1143 sr2a13 = SCADot(pr2a13,pr2a13);
1144 sr2a14 = SCADot(pr2a14,pr2a14);
1145 sr2a1rhop1 = SCADot(pr2a1rhop1,pr2a1rhop1);
1146 sr2a1rhop2 = SCADot(pr2a1rhop2,pr2a1rhop2);
1147 sr2a1rhop3 = SCADot(pr2a1rhop3,pr2a1rhop3);
1148 sr2a1rhop4 = SCADot(pr2a1rhop4,pr2a1rhop4);
1149 sr2rhop1 = SCADot(pr2rhop1,pr2rhop1);
1150 sr2rhop2 = SCADot(pr2rhop2,pr2rhop2);
1151 sr2rhop3 = SCADot(pr2rhop3,pr2rhop3);
1152 sr2rhop4 = SCADot(pr2rhop4,pr2rhop4);
1153 sr3a11 = SCADot(pr3a11,pr3a11);
1154 sr3a12 = SCADot(pr3a12,pr3a12);
1155 sr3a13 = SCADot(pr3a13,pr3a13);
1156 sr3a14 = SCADot(pr3a14,pr3a14);
1157 sr3a1rhop1 = SCADot(pr3a1rhop1,pr3a1rhop1);
1158 sr3a1rhop2 = SCADot(pr3a1rhop2,pr3a1rhop2);
1159 sr3a1rhop3 = SCADot(pr3a1rhop3,pr3a1rhop3);
1160 sr3a1rhop4 = SCADot(pr3a1rhop4,pr3a1rhop4);
1161 sr3rho01 = SCADot(pr3rho01,pr3rho01);
1162 sr3rho02 = SCADot(pr3rho02,pr3rho02);
1163 sr3rho03 = SCADot(pr3rho03,pr3rho03);
1164 sr3rho04 = SCADot(pr3rho04,pr3rho04);
1165 sr4a11 = SCADot(pr4a11,pr4a11);
1166 sr4a12 = SCADot(pr4a12,pr4a12);
1167 sr4a13 = SCADot(pr4a13,pr4a13);
1168 sr4a14 = SCADot(pr4a14,pr4a14);
1169 sr4a1rhom1 = SCADot(pr4a1rhom1,pr4a1rhom1);
1170 sr4a1rhom2 = SCADot(pr4a1rhom2,pr4a1rhom2);
1171 sr4a1rhom3 = SCADot(pr4a1rhom3,pr4a1rhom3);
1172 sr4a1rhom4 = SCADot(pr4a1rhom4,pr4a1rhom4);
1173 sr4rhop1 = SCADot(pr4rhop1,pr4rhop1);
1174 sr4rhop2 = SCADot(pr4rhop2,pr4rhop2);
1175 sr4rhop3 = SCADot(pr4rhop3,pr4rhop3);
1176 sr4rhop4 = SCADot(pr4rhop4,pr4rhop4);
1177
1178 sDs = SCADot(pDs,pDs);
1179
1180 double t1rho1[4],t1rho2[4],t1rho3[4],t1rho4[4],t1omega11[4],t1omega12[4],t1omega13[4],t1omega21[4],t1omega22[4],t1omega23[4],t1omega31[4],t1omega32[4],t1omega33[4],t1omega41[4],t1omega42[4],t1omega43[4],t1phi11[4],t1phi12[4],t1phi13[4],t1phi21[4],t1phi22[4],t1phi23[4],t1phi31[4],t1phi32[4],t1phi33[4],t1phi41[4],t1phi42[4],t1phi43[4],t1rho11[4],t1rho12[4],t1rho13[4],t1rho21[4],t1rho22[4],t1rho23[4],t1rho31[4],t1rho32[4],t1rho33[4],t1rho41[4],t1rho42[4],t1rho43[4];
1181 double p1omega11[4][4],p1omega12[4][4],p1omega13[4][4],p1omega21[4][4],p1omega22[4][4],p1omega23[4][4],p1omega31[4][4],p1omega32[4][4],p1omega33[4][4],p1omega41[4][4],p1omega42[4][4],p1omega43[4][4],p1phi11[4][4],p1phi12[4][4],p1phi13[4][4],p1phi21[4][4],p1phi22[4][4],p1phi23[4][4],p1phi31[4][4],p1phi32[4][4],p1phi33[4][4],p1phi41[4][4],p1phi42[4][4],p1phi43[4][4],p1b1p1[4][4],p1b1p2[4][4],p1b1p3[4][4],p1b1p4[4][4],p1b1n1[4][4],p1b1n2[4][4],p1b1n3[4][4],p1b1n4[4][4],p1rho1450p1[4][4],p1rho1450p2[4][4],p1rho1450p3[4][4],p1rho1450p4[4][4],p1rho1450n1[4][4],p1rho1450n2[4][4],p1rho1450n3[4][4],p1rho1450n4[4][4];
1182 double t2b1p1[4][4],t2b1p2[4][4],t2b1p3[4][4],t2b1p4[4][4],t2b1n1[4][4],t2b1n2[4][4],t2b1n3[4][4],t2b1n4[4][4];
1183 double t1rho1450p1[4],t1rho1450p2[4],t1rho1450p3[4],t1rho1450p4[4],t1rho1450n1[4],t1rho1450n2[4],t1rho1450n3[4],t1rho1450n4[4];
1184 double t1a1012601[4],t1a1012602[4],t1a1012603[4],t1a1012604[4];
1185 double t1a1p12601[4],t1a1p12602[4],t1a1rho1[4],t1a1rho2[4];
1186 double p1f114201[4][4],p1f114202[4][4],p1f114203[4][4],p1f114204[4][4],t1f114201[4],t1f114202[4],t1f114203[4],t1f114204[4],t1f11420rhop1[4],t1f11420rhop2[4],t1f11420rhop3[4],t1f11420rhop4[4],t1f11420rhom1[4],t1f11420rhom2[4],t1f11420rhom3[4],t1f11420rhom4[4];
1187 double t1r1rhop1[4],t1r1rhop2[4],t1r1rhop3[4],t1r1rhop4[4],t1r1a1rho01[4],t1r1a1rho02[4],t1r1a1rho03[4],t1r1a1rho04[4],t2r1a11[4][4],t2r1a12[4][4],t2r1a13[4][4],t2r1a14[4][4],p1r1a11[4][4],p1r1a12[4][4],p1r1a13[4][4],p1r1a14[4][4];
1188 double t1r2a1rhop1[4],t1r2a1rhop2[4],t1r2a1rhop3[4],t1r2a1rhop4[4],t1r2rhop1[4],t1r2rhop2[4],t1r2rhop3[4],t1r2rhop4[4],t2r2a11[4][4],t2r2a12[4][4],t2r2a13[4][4],t2r2a14[4][4],p1r2a11[4][4],p1r2a12[4][4],p1r2a13[4][4],p1r2a14[4][4];
1189 double t1r3a1rhop1[4],t1r3a1rhop2[4],t1r3a1rhop3[4],t1r3a1rhop4[4],t1r3rho01[4],t1r3rho02[4],t1r3rho03[4],t1r3rho04[4],t2r3a11[4][4],t2r3a12[4][4],t2r3a13[4][4],t2r3a14[4][4],p1r3a11[4][4],p1r3a12[4][4],p1r3a13[4][4],p1r3a14[4][4];
1190 double t1r4a1rhom1[4],t1r4a1rhom2[4],t1r4a1rhom3[4],t1r4a1rhom4[4],t1r4rhop1[4],t1r4rhop2[4],t1r4rhop3[4],t1r4rhop4[4],t2r4a11[4][4],t2r4a12[4][4],t2r4a13[4][4],t2r4a14[4][4],p1r4a11[4][4],p1r4a12[4][4],p1r4a13[4][4],p1r4a14[4][4];
1191
1192 PDF[0] = 0.0; PDF[1] = 0.0;
1193
1194 double t1Ds_omega1[4],t1Ds_omega2[4],t1Ds_omega3[4],t1Ds_omega4[4],t1Ds_phi1[4],t1Ds_phi2[4],t1Ds_phi3[4],t1Ds_phi4[4],t1Ds_b1p1[4],t1Ds_b1p2[4],t1Ds_b1p3[4],t1Ds_b1p4[4],t1Ds_b1n1[4],t1Ds_b1n2[4],t1Ds_b1n3[4],t1Ds_b1n4[4],t1Ds_rho1450p1[4],t1Ds_rho1450p2[4],t1Ds_rho1450p3[4],t1Ds_rho1450p4[4],t1Ds_rho1450n1[4],t1Ds_rho1450n2[4],t1Ds_rho1450n3[4],t1Ds_rho1450n4[4];
1195 double t1Ds_a1012601[4],t1Ds_a1012602[4],t1Ds_a1012603[4],t1Ds_a1012604[4];
1196 double t1Ds_a1p12601[4],t1Ds_a1p12602[4];
1197 double t1Ds_f114201[4],t1Ds_f114202[4],t1Ds_f114203[4],t1Ds_f114204[4];
1198 double t1Ds_r1a1rhop1[4],t1Ds_r1a1rhop2[4],t1Ds_r1a1rhop3[4],t1Ds_r1a1rhop4[4];
1199 double t1Ds_r2a1rhop1[4],t1Ds_r2a1rhop2[4],t1Ds_r2a1rhop3[4],t1Ds_r2a1rhop4[4];
1200 double t1Ds_r3a1rho01[4],t1Ds_r3a1rho02[4],t1Ds_r3a1rho03[4],t1Ds_r3a1rho04[4];
1201 double t1Ds_r4a1rhop1[4],t1Ds_r4a1rhop2[4],t1Ds_r4a1rhop3[4],t1Ds_r4a1rhop4[4];
1202
1203 double t2Ds_omega1[4][4],t2Ds_omega2[4][4],t2Ds_omega3[4][4],t2Ds_omega4[4][4],t2Ds_phi1[4][4],t2Ds_phi2[4][4],t2Ds_phi3[4][4],t2Ds_phi4[4][4];
1204 double t2Ds_a1012601[4][4],t2Ds_a1012602[4][4],t2Ds_a1012603[4][4],t2Ds_a1012604[4][4];
1205 double t2Ds_a1p12601[4][4],t2Ds_a1p12602[4][4];
1206 double t2Ds_r1a1rhop1[4][4],t2Ds_r1a1rhop2[4][4],t2Ds_r1a1rhop3[4][4],t2Ds_r1a1rhop4[4][4];
1207 double t2Ds_r2a1rhop1[4][4],t2Ds_r2a1rhop2[4][4],t2Ds_r2a1rhop3[4][4],t2Ds_r2a1rhop4[4][4];
1208 double t2Ds_r3a1rho01[4][4],t2Ds_r3a1rho02[4][4],t2Ds_r3a1rho03[4][4],t2Ds_r3a1rho04[4][4];
1209 double t2Ds_r4a1rhop1[4][4],t2Ds_r4a1rhop2[4][4],t2Ds_r4a1rhop3[4][4],t2Ds_r4a1rhop4[4][4];
1210
1211 double pro1V12[2],pro1V13[2],pro1V23[2],pro2V12[2],pro2V13[2],pro2V23[2],pro3V12[2],pro3V13[2],pro3V23[2],pro4V12[2],pro4V13[2],pro4V23[2];
1212
1213 propagatorGS(0.60102807,0.77526,0.1478,srho11,sPip1,sPi01,rRes2,pro1V12);
1214 propagatorGS(0.60102807,0.77526,0.1478,srho12,sPip1,sPim,rRes2,pro1V13);
1215 propagatorGS(0.60102807,0.77526,0.1478,srho13,sPi01,sPim,rRes2,pro1V23);
1216 propagatorGS(0.60102807,0.77526,0.1478,srho21,sPip1,sPi02,rRes2,pro2V12);
1217 propagatorGS(0.60102807,0.77526,0.1478,srho22,sPip1,sPim,rRes2,pro2V13);
1218 propagatorGS(0.60102807,0.77526,0.1478,srho23,sPi02,sPim,rRes2,pro2V23);
1219 propagatorGS(0.60102807,0.77526,0.1478,srho31,sPip2,sPi01,rRes2,pro3V12);
1220 propagatorGS(0.60102807,0.77526,0.1478,srho32,sPip2,sPim,rRes2,pro3V13);
1221 propagatorGS(0.60102807,0.77526,0.1478,srho33,sPi01,sPim,rRes2,pro3V23);
1222 propagatorGS(0.60102807,0.77526,0.1478,srho41,sPip2,sPi02,rRes2,pro4V12);
1223 propagatorGS(0.60102807,0.77526,0.1478,srho42,sPip2,sPim,rRes2,pro4V13);
1224 propagatorGS(0.60102807,0.77526,0.1478,srho43,sPi02,sPim,rRes2,pro4V23);
1225
1226 double B1_1V12(-1),B1_1V13(-1),B1_1V23(-1),B1_2V12(-1),B1_2V13(-1),B1_2V23(-1),B1_3V12(-1),B1_3V13(-1),B1_3V23(-1),B1_4V12(-1),B1_4V13(-1),B1_4V23(-1);
1227 B1_1V12=BarrierN(1,srho11,sPip1,sPi01,rRes2,0.77526); B1_1V13=BarrierN(1,srho12,sPip1,sPim,rRes2,0.77526); B1_1V23=BarrierN(1,srho13,sPi01,sPim,rRes2,0.77526);
1228 B1_2V12=BarrierN(1,srho21,sPip1,sPi02,rRes2,0.77526); B1_2V13=BarrierN(1,srho22,sPip1,sPim,rRes2,0.77526); B1_2V23=BarrierN(1,srho23,sPi02,sPim,rRes2,0.77526);
1229 B1_3V12=BarrierN(1,srho31,sPip2,sPi01,rRes2,0.77526); B1_3V13=BarrierN(1,srho32,sPip2,sPim,rRes2,0.77526); B1_3V23=BarrierN(1,srho33,sPi01,sPim,rRes2,0.77526);
1230 B1_4V12=BarrierN(1,srho41,sPip2,sPi02,rRes2,0.77526); B1_4V13=BarrierN(1,srho42,sPip2,sPim,rRes2,0.77526); B1_4V23=BarrierN(1,srho43,sPi02,sPim,rRes2,0.77526);
1231
1232 double B1_omega11(-1),B1_omega12(-1),B1_omega13(-1),B1_omega21(-1),B1_omega22(-1),B1_omega23(-1),B1_omega31(-1),B1_omega32(-1),B1_omega33(-1),B1_omega41(-1),B1_omega42(-1),B1_omega43(-1),B1_phi11(-1),B1_phi12(-1),B1_phi13(-1),B1_phi21(-1),B1_phi22(-1),B1_phi23(-1),B1_phi31(-1),B1_phi32(-1),B1_phi33(-1),B1_phi41(-1),B1_phi42(-1),B1_phi43(-1),B1_rho1(-1),B1_rho2(-1),B1_rho3(-1),B1_rho4(-1),B2_b1p1(-1),B2_b1p2(-1),B2_b1p3(-1),B2_b1p4(-1),B2_b1n1(-1),B2_b1n2(-1),B2_b1n3(-1),B2_b1n4(-1),B1_rho1450p1(-1),B1_rho1450p2(-1),B1_rho1450p3(-1),B1_rho1450p4(-1),B1_rho1450n1(-1),B1_rho1450n2(-1),B1_rho1450n3(-1),B1_rho1450n4(-1);
1233 double B1_a1012601(-1),B1_a1012602(-1),B1_a1012603(-1),B1_a1012604(-1);
1234 double B1_a1p12601(-1),B1_a1p12602(-1),B1_a1rho1(-1),B1_a1rho2(-1);
1235 double B1_f11420rhop1(-1),B1_f11420rhop2(-1),B1_f11420rhop3(-1),B1_f11420rhop4(-1),B1_f11420rhom1(-1),B1_f11420rhom2(-1),B1_f11420rhom3(-1),B1_f11420rhom4(-1);
1236 double B1_r1a1rho01(-1),B1_r1a1rho02(-1),B1_r1a1rho03(-1),B1_r1a1rho04(-1),B1_r1rhop1(-1),B1_r1rhop2(-1),B1_r1rhop3(-1),B1_r1rhop4(-1);
1237 double B1_r2rhop1(-1),B1_r2rhop2(-1),B1_r2rhop3(-1),B1_r2rhop4(-1),B1_r2a1rhop1(-1),B1_r2a1rhop2(-1),B1_r2a1rhop3(-1),B1_r2a1rhop4(-1);
1238 double B1_r3rho01(-1),B1_r3rho02(-1),B1_r3rho03(-1),B1_r3rho04(-1),B1_r3a1rhop1(-1),B1_r3a1rhop2(-1),B1_r3a1rhop3(-1),B1_r3a1rhop4(-1);
1239 double B1_r4a1rhom1(-1),B1_r4a1rhom2(-1),B1_r4a1rhom3(-1),B1_r4a1rhom4(-1),B1_r4rhop1(-1),B1_r4rhop2(-1),B1_r4rhop3(-1),B1_r4rhop4(-1);
1240 double B2_r1a11(-1),B2_r1a12(-1),B2_r1a13(-1),B2_r1a14(-1);
1241 double B2_r2a11(-1),B2_r2a12(-1),B2_r2a13(-1),B2_r2a14(-1);
1242 double B2_r3a11(-1),B2_r3a12(-1),B2_r3a13(-1),B2_r3a14(-1);
1243 double B2_r4a11(-1),B2_r4a12(-1),B2_r4a13(-1),B2_r4a14(-1);
1244
1245 double B1_Ds_omega1(-1),B1_Ds_omega2(-1),B1_Ds_omega3(-1),B1_Ds_omega4(-1),B1_Ds_phi1(-1),B1_Ds_phi2(-1),B1_Ds_phi3(-1),B1_Ds_phi4(-1),B1_Ds_b1p1(-1),B1_Ds_b1p2(-1),B1_Ds_b1p3(-1),B1_Ds_b1p4(-1),B1_Ds_b1n1(-1),B1_Ds_b1n2(-1),B1_Ds_b1n3(-1),B1_Ds_b1n4(-1),B1_Ds_rho1450p1(-1),B1_Ds_rho1450p2(-1),B1_Ds_rho1450p3(-1),B1_Ds_rho1450p4(-1),B1_Ds_rho1450n1(-1),B1_Ds_rho1450n2(-1),B1_Ds_rho1450n3(-1),B1_Ds_rho1450n4;
1246 double B1_Ds_a1012601(-1),B1_Ds_a1012602(-1),B1_Ds_a1012603(-1),B1_Ds_a1012604(-1);
1247 double B1_Ds_a1p12601(-1),B1_Ds_a1p12602(-1);
1248 double B1_Ds_f114201(-1),B1_Ds_f114202(-1),B1_Ds_f114203(-1),B1_Ds_f114204(-1);
1249 double B1_Ds_r1a1rhop1(-1),B1_Ds_r1a1rhop2(-1),B1_Ds_r1a1rhop3(-1),B1_Ds_r1a1rhop4(-1);
1250 double B1_Ds_r2a1rhop1(-1),B1_Ds_r2a1rhop2(-1),B1_Ds_r2a1rhop3(-1),B1_Ds_r2a1rhop4(-1);
1251 double B1_Ds_r3a1rho01(-1),B1_Ds_r3a1rho02(-1),B1_Ds_r3a1rho03(-1),B1_Ds_r3a1rho04(-1);
1252 double B1_Ds_r4a1rhop1(-1),B1_Ds_r4a1rhop2(-1),B1_Ds_r4a1rhop3(-1),B1_Ds_r4a1rhop4(-1);
1253
1254 double B2_Ds_omega1(-1),B2_Ds_omega2(-1),B2_Ds_omega3(-1),B2_Ds_omega4(-1),B2_Ds_phi1(-1),B2_Ds_phi2(-1),B2_Ds_phi3(-1),B2_Ds_phi4;
1255 double B2_Ds_a1012601(-1),B2_Ds_a1012602(-1),B2_Ds_a1012603(-1),B2_Ds_a1012604(-1);
1256 double B2_Ds_a1p12601(-1),B2_Ds_a1p12602(-1);
1257 double B2_Ds_r1a1rhop1(-1),B2_Ds_r1a1rhop2(-1),B2_Ds_r1a1rhop3(-1),B2_Ds_r1a1rhop4(-1);
1258 double B2_Ds_r2a1rhop1(-1),B2_Ds_r2a1rhop2(-1),B2_Ds_r2a1rhop3(-1),B2_Ds_r2a1rhop4(-1);
1259 double B2_Ds_r3a1rho01(-1),B2_Ds_r3a1rho02(-1),B2_Ds_r3a1rho03(-1),B2_Ds_r3a1rho04(-1);
1260 double B2_Ds_r4a1rhop1(-1),B2_Ds_r4a1rhop2(-1),B2_Ds_r4a1rhop3(-1),B2_Ds_r4a1rhop4(-1);
1261
1262 double temp_PDF11, temp_PDF12, temp_PDF13, temp_PDF21, temp_PDF22, temp_PDF23, temp_PDF31, temp_PDF32, temp_PDF33, temp_PDF41, temp_PDF42, temp_PDF43;
1263 double temp_PDF1, temp_PDF2, temp_PDF3, temp_PDF4;
1264 double pro0_11[2],pro0_12[2],pro0_13[2],pro0_21[2],pro0_22[2],pro0_23[2],pro0_31[2],pro0_32[2],pro0_33[2],pro0_41[2],pro0_42[2],pro0_43[2];
1265 double pro1_1[2],pro1_2[2],pro1_3[2],pro1_4[2];
1266 double tpro_11[2],tpro_12[2],tpro_13[2],tpro_21[2],tpro_22[2],tpro_23[2],tpro_31[2],tpro_32[2],tpro_33[2],tpro_41[2],tpro_42[2],tpro_43[2];
1267 double pro00_1[2],pro00_2[2],pro00_3[2],pro00_4[2];
1268 double pro01_1[2],pro01_2[2],pro01_3[2],pro01_4[2];
1269
1270 double pro0_1[2],pro0_2[2],pro0_3[2],pro0_4[2];
1271 double pro_1[2],pro_2[4],pro_3[2],pro_4[2];
1272 double pro1_11[2],pro1_12[2],pro1_13[2],pro1_21[2],pro1_22[2],pro1_23[2],pro1_31[2],pro1_32[2],pro1_33[2],pro1_41[2],pro1_42[2],pro1_43[2];
1273 double proa101[2],proa102[2],proa103[2],proa104[2],proa10f05001[2],proa10f05002[2];
1274 double proa1p1[2],proa1p2[2],proa1pf0500[2];
1275 double prof114201[2],prof114202[2],prof114203[2],prof114204[2];
1276 double prof11420rhop1[2],prof11420rhop2[2],prof11420rhop3[2],prof11420rhop4[2];
1277
1278 double pro_11[2],pro_12[2],pro_13[2],pro_21[2],pro_22[2],pro_23[2],pro_31[2],pro_32[2],pro_33[2],pro_41[2],pro_42[2],pro_43[2];
1279 double mass1sq, mass2sq;
1280
1281 //---------------------------------------------------------------------------
1282 for(int i=0; i<nstates; i++) {
1283 cof[0] = amp[i]*cos(phase[i]);
1284 cof[1] = amp[i]*sin(phase[i]);
1285 mass1sq = mass1[i]*mass1[i];
1286 mass2sq = mass2[i]*mass2[i];
1287 temp_PDF11 = 0;
1288 temp_PDF12 = 0;
1289 temp_PDF13 = 0;
1290 temp_PDF21 = 0;
1291 temp_PDF22 = 0;
1292 temp_PDF23 = 0;
1293 temp_PDF31 = 0;
1294 temp_PDF32 = 0;
1295 temp_PDF33 = 0;
1296 temp_PDF41 = 0;
1297 temp_PDF42 = 0;
1298 temp_PDF43 = 0;
1299
1300 temp_PDF1 = 0;
1301 temp_PDF2 = 0;
1302 temp_PDF3 = 0;
1303 temp_PDF4 = 0;
1304
1305 if(modetype[i]==1){
1306 if (g2[i]==0)
1307 {
1308 if(B1_omega11==-1) { B1_omega11=BarrierN(1,somega1,srho11,sPim,rRes2,mass1[i]); B1_omega12=BarrierN(1,somega1,srho12,sPi01,rRes2,mass1[i]); B1_omega13=BarrierN(1,somega1,srho13,sPip1,rRes2,mass1[i]);
1309 B1_omega21=BarrierN(1,somega2,srho21,sPim,rRes2,mass1[i]); B1_omega22=BarrierN(1,somega2,srho22,sPi02,rRes2,mass1[i]); B1_omega23=BarrierN(1,somega2,srho23,sPip1,rRes2,mass1[i]);
1310 B1_omega31=BarrierN(1,somega3,srho31,sPim,rRes2,mass1[i]); B1_omega32=BarrierN(1,somega3,srho32,sPi01,rRes2,mass1[i]); B1_omega33=BarrierN(1,somega3,srho33,sPip2,rRes2,mass1[i]);
1311 B1_omega41=BarrierN(1,somega4,srho41,sPim,rRes2,mass1[i]); B1_omega42=BarrierN(1,somega4,srho42,sPi02,rRes2,mass1[i]); B1_omega43=BarrierN(1,somega4,srho43,sPip2,rRes2,mass1[i]);
1312 }
1313 if(B1_rho1==-1) { B1_rho1=BarrierN(1,srho1,sPip2,sPi02,rRes2,mass2[i]); B1_rho2=BarrierN(1,srho2,sPip2,sPi01,rRes2,mass2[i]); B1_rho3=BarrierN(1,srho3,sPip1,sPi02,rRes2,mass2[i]); B1_rho4=BarrierN(1,srho4,sPip1,sPi01,rRes2,mass2[i]);
1314 }
1315
1316 calt1(Pip2,Pi02,t1rho1); calt1(Pip2,Pi01,t1rho2); calt1(Pip1,Pi02,t1rho3); calt1(Pip1,Pi01,t1rho4);
1317 calt1(prho11,Pim,t1omega11); calt1(prho12,Pi01,t1omega12); calt1(prho13,Pip1,t1omega13);
1318 calt1(prho21,Pim,t1omega21); calt1(prho22,Pi02,t1omega22); calt1(prho23,Pip1,t1omega23);
1319 calt1(prho31,Pim,t1omega31); calt1(prho32,Pi01,t1omega32); calt1(prho23,Pip2,t1omega33);
1320 calt1(prho41,Pim,t1omega41); calt1(prho42,Pi02,t1omega42); calt1(prho43,Pip2,t1omega43);
1321 calt1(Pip1,Pi01,t1rho11); calt1(Pip1,Pim,t1rho12); calt1(Pi01,Pim,t1rho13);
1322 calt1(Pip1,Pi02,t1rho21); calt1(Pip1,Pim,t1rho22); calt1(Pi02,Pim,t1rho23);
1323 calt1(Pip2,Pi01,t1rho31); calt1(Pip2,Pim,t1rho32); calt1(Pi01,Pim,t1rho33);
1324 calt1(Pip2,Pi02,t1rho41); calt1(Pip2,Pim,t1rho42); calt1(Pi02,Pim,t1rho43);
1325 calG2(prho11,Pim,p1omega11); calG2(prho12,Pi01,p1omega12); calG2(prho13,Pip1,p1omega13);
1326 calG2(prho21,Pim,p1omega21); calG2(prho22,Pi02,p1omega22); calG2(prho23,Pip1,p1omega23);
1327 calG2(prho31,Pim,p1omega31); calG2(prho32,Pi01,p1omega32); calG2(prho33,Pip2,p1omega33);
1328 calG2(prho41,Pim,p1omega41); calG2(prho42,Pi02,p1omega42); calG2(prho43,Pip2,p1omega43);
1329
1330
1331 for(int i=0; i<4; i++)
1332 {
1333 for(int j=0; j<4; j++)
1334 {
1335 double tempomega1 = pomega1[j]*G[j][j]*G[i][i];
1336 double tempomega2 = pomega2[j]*G[j][j]*G[i][i];
1337 double tempomega3 = pomega3[j]*G[j][j]*G[i][i];
1338 double tempomega4 = pomega4[j]*G[j][j]*G[i][i];
1339
1340 for(int k=0; k<4; k++)
1341 {
1342 double temt1omega11 = t1omega11[k]*G[k][k];
1343 double temt1omega12 = t1omega12[k]*G[k][k];
1344 double temt1omega13 = t1omega13[k]*G[k][k];
1345 double temt1omega21 = t1omega21[k]*G[k][k];
1346 double temt1omega22 = t1omega22[k]*G[k][k];
1347 double temt1omega23 = t1omega23[k]*G[k][k];
1348 double temt1omega31 = t1omega31[k]*G[k][k];
1349 double temt1omega32 = t1omega32[k]*G[k][k];
1350 double temt1omega33 = t1omega33[k]*G[k][k];
1351 double temt1omega41 = t1omega41[k]*G[k][k];
1352 double temt1omega42 = t1omega42[k]*G[k][k];
1353 double temt1omega43 = t1omega43[k]*G[k][k];
1354
1355 for(int l=0; l<4; l++)
1356 {
1357 if((i==j)||(i==k)||(i==l)||(j==k)||(j==l)||(k==l)) continue;
1358 double temt1rho11 = t1rho11[l]*G[l][l]*E[i][j][k][l];
1359 double temt1rho12 = t1rho12[l]*G[l][l]*E[i][j][k][l];
1360 double temt1rho13 = t1rho13[l]*G[l][l]*E[i][j][k][l];
1361 double temt1rho21 = t1rho21[l]*G[l][l]*E[i][j][k][l];
1362 double temt1rho22 = t1rho22[l]*G[l][l]*E[i][j][k][l];
1363 double temt1rho23 = t1rho23[l]*G[l][l]*E[i][j][k][l];
1364 double temt1rho31 = t1rho31[l]*G[l][l]*E[i][j][k][l];
1365 double temt1rho32 = t1rho32[l]*G[l][l]*E[i][j][k][l];
1366 double temt1rho33 = t1rho33[l]*G[l][l]*E[i][j][k][l];
1367 double temt1rho41 = t1rho41[l]*G[l][l]*E[i][j][k][l];
1368 double temt1rho42 = t1rho42[l]*G[l][l]*E[i][j][k][l];
1369 double temt1rho43 = t1rho43[l]*G[l][l]*E[i][j][k][l];
1370
1371 for(int m=0; m<4; m++)
1372 {
1373 temp_PDF11 += G[m][m]*t1rho1[m]*p1omega11[m][i]*tempomega1*temt1omega11*temt1rho11;
1374 temp_PDF12 += G[m][m]*t1rho1[m]*p1omega12[m][i]*tempomega1*temt1omega12*temt1rho12;
1375 temp_PDF13 += G[m][m]*t1rho1[m]*p1omega13[m][i]*tempomega1*temt1omega13*temt1rho13;
1376 temp_PDF21 += G[m][m]*t1rho2[m]*p1omega21[m][i]*tempomega2*temt1omega21*temt1rho21;
1377 temp_PDF22 += G[m][m]*t1rho2[m]*p1omega22[m][i]*tempomega2*temt1omega22*temt1rho22;
1378 temp_PDF23 += G[m][m]*t1rho2[m]*p1omega23[m][i]*tempomega2*temt1omega23*temt1rho23;
1379 temp_PDF31 += G[m][m]*t1rho3[m]*p1omega31[m][i]*tempomega3*temt1omega31*temt1rho31;
1380 temp_PDF32 += G[m][m]*t1rho3[m]*p1omega32[m][i]*tempomega3*temt1omega32*temt1rho32;
1381 temp_PDF33 += G[m][m]*t1rho3[m]*p1omega33[m][i]*tempomega3*temt1omega33*temt1rho33;
1382 temp_PDF41 += G[m][m]*t1rho4[m]*p1omega41[m][i]*tempomega4*temt1omega41*temt1rho41;
1383 temp_PDF42 += G[m][m]*t1rho4[m]*p1omega42[m][i]*tempomega4*temt1omega42*temt1rho42;
1384 temp_PDF43 += G[m][m]*t1rho4[m]*p1omega43[m][i]*tempomega4*temt1omega43*temt1rho43;
1385 }
1386 }
1387 }
1388 }
1389 }
1390
1391
1392
1393 temp_PDF11 = temp_PDF11*B1_omega11*B1_rho1*B1_1V12;
1394 temp_PDF12 = temp_PDF12*B1_omega12*B1_rho1*B1_1V13;
1395 temp_PDF13 = temp_PDF13*B1_omega13*B1_rho1*B1_1V23;
1396 temp_PDF21 = temp_PDF21*B1_omega21*B1_rho2*B1_2V12;
1397 temp_PDF22 = temp_PDF22*B1_omega22*B1_rho2*B1_2V13;
1398 temp_PDF23 = temp_PDF23*B1_omega23*B1_rho2*B1_2V23;
1399 temp_PDF31 = temp_PDF31*B1_omega31*B1_rho3*B1_3V12;
1400 temp_PDF32 = temp_PDF32*B1_omega32*B1_rho3*B1_3V13;
1401 temp_PDF33 = temp_PDF33*B1_omega33*B1_rho3*B1_3V23;
1402 temp_PDF41 = temp_PDF41*B1_omega41*B1_rho4*B1_4V12;
1403 temp_PDF42 = temp_PDF42*B1_omega42*B1_rho4*B1_4V13;
1404 temp_PDF43 = temp_PDF43*B1_omega43*B1_rho4*B1_4V23;
1405 }
1406 else if (g2[i]==1)
1407 {
1408
1409 if(B1_omega11==-1) { B1_omega11=BarrierN(1,somega1,srho11,sPim,rRes2,mass1[i]); B1_omega12=BarrierN(1,somega1,srho12,sPi01,rRes2,mass1[i]); B1_omega13=BarrierN(1,somega1,srho13,sPip1,rRes2,mass1[i]);
1410 B1_omega21=BarrierN(1,somega2,srho21,sPim,rRes2,mass1[i]); B1_omega22=BarrierN(1,somega2,srho22,sPi02,rRes2,mass1[i]); B1_omega23=BarrierN(1,somega2,srho23,sPip1,rRes2,mass1[i]);
1411 B1_omega31=BarrierN(1,somega3,srho31,sPim,rRes2,mass1[i]); B1_omega32=BarrierN(1,somega3,srho32,sPi01,rRes2,mass1[i]); B1_omega33=BarrierN(1,somega3,srho33,sPip2,rRes2,mass1[i]);
1412 B1_omega41=BarrierN(1,somega4,srho41,sPim,rRes2,mass1[i]); B1_omega42=BarrierN(1,somega4,srho42,sPi02,rRes2,mass1[i]); B1_omega43=BarrierN(1,somega4,srho43,sPip2,rRes2,mass1[i]);
1413 }
1414 if(B1_rho1==-1) { B1_rho1=BarrierN(1,srho1,sPip2,sPi02,rRes2,mass2[i]); B1_rho2=BarrierN(1,srho2,sPip2,sPi01,rRes2,mass2[i]); B1_rho3=BarrierN(1,srho3,sPip1,sPi02,rRes2,mass2[i]); B1_rho4=BarrierN(1,srho4,sPip1,sPi01,rRes2,mass2[i]);
1415 }
1416 if(B1_Ds_omega1==-1) { B1_Ds_omega1=BarrierN(1,sDs,somega1,srho1,rDs2,mDsM); B1_Ds_omega2=BarrierN(1,sDs,somega2,srho2,rDs2,mDsM); B1_Ds_omega3=BarrierN(1,sDs,somega3,srho3,rDs2,mDsM); B1_Ds_omega4=BarrierN(1,sDs,somega4,srho4,rDs2,mDsM);
1417 }
1418
1419 calt1(Pip2,Pi02,t1rho1); calt1(Pip2,Pi01,t1rho2); calt1(Pip1,Pi02,t1rho3); calt1(Pip1,Pi01,t1rho4);
1420 calt1(prho11,Pim,t1omega11); calt1(prho12,Pi01,t1omega12); calt1(prho13,Pip1,t1omega13);
1421 calt1(prho21,Pim,t1omega21); calt1(prho22,Pi02,t1omega22); calt1(prho23,Pip1,t1omega23);
1422 calt1(prho31,Pim,t1omega31); calt1(prho32,Pi01,t1omega32); calt1(prho23,Pip2,t1omega33);
1423 calt1(prho41,Pim,t1omega41); calt1(prho42,Pi02,t1omega42); calt1(prho43,Pip2,t1omega43);
1424 calt1(Pip1,Pi01,t1rho11); calt1(Pip1,Pim,t1rho12); calt1(Pi01,Pim,t1rho13);
1425 calt1(Pip1,Pi02,t1rho21); calt1(Pip1,Pim,t1rho22); calt1(Pi02,Pim,t1rho23);
1426 calt1(Pip2,Pi01,t1rho31); calt1(Pip2,Pim,t1rho32); calt1(Pi01,Pim,t1rho33);
1427 calt1(Pip2,Pi02,t1rho41); calt1(Pip2,Pim,t1rho42); calt1(Pi02,Pim,t1rho43);
1428 calG2(prho11,Pim,p1omega11); calG2(prho12,Pi01,p1omega12); calG2(prho13,Pip1,p1omega13);
1429 calG2(prho21,Pim,p1omega21); calG2(prho22,Pi02,p1omega22); calG2(prho23,Pip1,p1omega23);
1430 calG2(prho31,Pim,p1omega31); calG2(prho32,Pi01,p1omega32); calG2(prho33,Pip2,p1omega33);
1431 calG2(prho41,Pim,p1omega41); calG2(prho42,Pi02,p1omega42); calG2(prho43,Pip2,p1omega43);
1432 calt1(pomega1,prho1,t1Ds_omega1); calt1(pomega2,prho2,t1Ds_omega2); calt1(pomega3,prho3,t1Ds_omega3); calt1(pomega4,prho4,t1Ds_omega4);
1433
1434 for(int i=0; i<4; i++)
1435 {
1436 double tempDs = pDs[i]*G[i][i];
1437
1438 for(int j=0; j<4; j++)
1439 {
1440 double temt1rho1 = t1rho1[j]*G[j][j];
1441 double temt1rho2 = t1rho2[j]*G[j][j];
1442 double temt1rho3 = t1rho3[j]*G[j][j];
1443 double temt1rho4 = t1rho4[j]*G[j][j];
1444
1445 for(int k=0; k<4; k++)
1446 {
1447 double temt1Ds_omega1 = t1Ds_omega1[k]*G[k][k];
1448 double temt1Ds_omega2 = t1Ds_omega2[k]*G[k][k];
1449 double temt1Ds_omega3 = t1Ds_omega3[k]*G[k][k];
1450 double temt1Ds_omega4 = t1Ds_omega4[k]*G[k][k];
1451
1452 for(int l=0; l<4; l++)
1453 {
1454 for(int m=0; m<4; m++)
1455 {
1456 double temp1omega11 = p1omega11[l][m]*G[l][l]*G[m][m]*E[i][j][k][l];
1457 double temp1omega12 = p1omega12[l][m]*G[l][l]*G[m][m]*E[i][j][k][l];
1458 double temp1omega13 = p1omega13[l][m]*G[l][l]*G[m][m]*E[i][j][k][l];
1459 double temp1omega21 = p1omega21[l][m]*G[l][l]*G[m][m]*E[i][j][k][l];
1460 double temp1omega22 = p1omega22[l][m]*G[l][l]*G[m][m]*E[i][j][k][l];
1461 double temp1omega23 = p1omega23[l][m]*G[l][l]*G[m][m]*E[i][j][k][l];
1462 double temp1omega31 = p1omega31[l][m]*G[l][l]*G[m][m]*E[i][j][k][l];
1463 double temp1omega32 = p1omega32[l][m]*G[l][l]*G[m][m]*E[i][j][k][l];
1464 double temp1omega33 = p1omega33[l][m]*G[l][l]*G[m][m]*E[i][j][k][l];
1465 double temp1omega41 = p1omega41[l][m]*G[l][l]*G[m][m]*E[i][j][k][l];
1466 double temp1omega42 = p1omega42[l][m]*G[l][l]*G[m][m]*E[i][j][k][l];
1467 double temp1omega43 = p1omega43[l][m]*G[l][l]*G[m][m]*E[i][j][k][l];
1468
1469 for(int n=0; n<4; n++)
1470 {
1471 double tempomega1 = pomega1[n]*G[n][n];
1472 double tempomega2 = pomega2[n]*G[n][n];
1473 double tempomega3 = pomega3[n]*G[n][n];
1474 double tempomega4 = pomega4[n]*G[n][n];
1475
1476 for(int p=0; p<4; p++)
1477 {
1478 double temt1omega11 = t1omega11[p]*G[p][p];
1479 double temt1omega12 = t1omega12[p]*G[p][p];
1480 double temt1omega13 = t1omega13[p]*G[p][p];
1481 double temt1omega21 = t1omega21[p]*G[p][p];
1482 double temt1omega22 = t1omega22[p]*G[p][p];
1483 double temt1omega23 = t1omega23[p]*G[p][p];
1484 double temt1omega31 = t1omega31[p]*G[p][p];
1485 double temt1omega32 = t1omega32[p]*G[p][p];
1486 double temt1omega33 = t1omega33[p]*G[p][p];
1487 double temt1omega41 = t1omega41[p]*G[p][p];
1488 double temt1omega42 = t1omega42[p]*G[p][p];
1489 double temt1omega43 = t1omega43[p]*G[p][p];
1490
1491 for(int q=0; q<4; q++)
1492 {
1493 if((i==j)||(i==k)||(i==l)||(j==k)||(j==l)||(k==l)) continue;
1494 if((m==n)||(m==p)||(m==q)||(n==p)||(n==q)||(p==q)) continue;
1495 temp_PDF11 += tempDs*temt1rho1*temt1Ds_omega1*temp1omega11*E[m][n][p][q]*tempomega1*temt1omega11*t1rho11[q]*G[q][q];
1496 temp_PDF12 += tempDs*temt1rho1*temt1Ds_omega1*temp1omega12*E[m][n][p][q]*tempomega1*temt1omega12*t1rho12[q]*G[q][q];
1497 temp_PDF13 += tempDs*temt1rho1*temt1Ds_omega1*temp1omega13*E[m][n][p][q]*tempomega1*temt1omega13*t1rho13[q]*G[q][q];
1498 temp_PDF21 += tempDs*temt1rho2*temt1Ds_omega2*temp1omega21*E[m][n][p][q]*tempomega2*temt1omega21*t1rho21[q]*G[q][q];
1499 temp_PDF22 += tempDs*temt1rho2*temt1Ds_omega2*temp1omega22*E[m][n][p][q]*tempomega2*temt1omega22*t1rho22[q]*G[q][q];
1500 temp_PDF23 += tempDs*temt1rho2*temt1Ds_omega2*temp1omega23*E[m][n][p][q]*tempomega2*temt1omega23*t1rho23[q]*G[q][q];
1501 temp_PDF31 += tempDs*temt1rho3*temt1Ds_omega3*temp1omega31*E[m][n][p][q]*tempomega3*temt1omega31*t1rho31[q]*G[q][q];
1502 temp_PDF32 += tempDs*temt1rho3*temt1Ds_omega3*temp1omega32*E[m][n][p][q]*tempomega3*temt1omega32*t1rho32[q]*G[q][q];
1503 temp_PDF33 += tempDs*temt1rho3*temt1Ds_omega3*temp1omega33*E[m][n][p][q]*tempomega3*temt1omega33*t1rho33[q]*G[q][q];
1504 temp_PDF41 += tempDs*temt1rho4*temt1Ds_omega4*temp1omega41*E[m][n][p][q]*tempomega4*temt1omega41*t1rho41[q]*G[q][q];
1505 temp_PDF42 += tempDs*temt1rho4*temt1Ds_omega4*temp1omega42*E[m][n][p][q]*tempomega4*temt1omega42*t1rho42[q]*G[q][q];
1506 temp_PDF43 += tempDs*temt1rho4*temt1Ds_omega4*temp1omega43*E[m][n][p][q]*tempomega4*temt1omega43*t1rho43[q]*G[q][q];
1507 }
1508 }
1509 }
1510 }
1511 }
1512 }
1513 }
1514 }
1515 temp_PDF11 = temp_PDF11*B1_Ds_omega1*B1_omega11*B1_rho1*B1_1V12;
1516 temp_PDF12 = temp_PDF12*B1_Ds_omega1*B1_omega12*B1_rho1*B1_1V13;
1517 temp_PDF13 = temp_PDF13*B1_Ds_omega1*B1_omega13*B1_rho1*B1_1V23;
1518 temp_PDF21 = temp_PDF21*B1_Ds_omega2*B1_omega21*B1_rho2*B1_2V12;
1519 temp_PDF22 = temp_PDF22*B1_Ds_omega2*B1_omega22*B1_rho2*B1_2V13;
1520 temp_PDF23 = temp_PDF23*B1_Ds_omega2*B1_omega23*B1_rho2*B1_2V23;
1521 temp_PDF31 = temp_PDF31*B1_Ds_omega3*B1_omega31*B1_rho3*B1_3V12;
1522 temp_PDF32 = temp_PDF32*B1_Ds_omega3*B1_omega32*B1_rho3*B1_3V13;
1523 temp_PDF33 = temp_PDF33*B1_Ds_omega3*B1_omega33*B1_rho3*B1_3V23;
1524 temp_PDF41 = temp_PDF41*B1_Ds_omega4*B1_omega41*B1_rho4*B1_4V12;
1525 temp_PDF42 = temp_PDF42*B1_Ds_omega4*B1_omega42*B1_rho4*B1_4V13;
1526 temp_PDF43 = temp_PDF43*B1_Ds_omega4*B1_omega43*B1_rho4*B1_4V23;
1527 }
1528 else if (g2[i]==2)
1529 {
1530 if(B1_omega11==-1) { B1_omega11=BarrierN(1,somega1,srho11,sPim,rRes2,mass1[i]); B1_omega12=BarrierN(1,somega1,srho12,sPi01,rRes2,mass1[i]); B1_omega13=BarrierN(1,somega1,srho13,sPip1,rRes2,mass1[i]);
1531 B1_omega21=BarrierN(1,somega2,srho21,sPim,rRes2,mass1[i]); B1_omega22=BarrierN(1,somega2,srho22,sPi02,rRes2,mass1[i]); B1_omega23=BarrierN(1,somega2,srho23,sPip1,rRes2,mass1[i]);
1532 B1_omega31=BarrierN(1,somega3,srho31,sPim,rRes2,mass1[i]); B1_omega32=BarrierN(1,somega3,srho32,sPi01,rRes2,mass1[i]); B1_omega33=BarrierN(1,somega3,srho33,sPip2,rRes2,mass1[i]);
1533 B1_omega41=BarrierN(1,somega4,srho41,sPim,rRes2,mass1[i]); B1_omega42=BarrierN(1,somega4,srho42,sPi02,rRes2,mass1[i]); B1_omega43=BarrierN(1,somega4,srho43,sPip2,rRes2,mass1[i]);
1534 }
1535 if(B1_rho1==-1) { B1_rho1=BarrierN(1,srho1,sPip2,sPi02,rRes2,mass2[i]); B1_rho2=BarrierN(1,srho2,sPip2,sPi01,rRes2,mass2[i]); B1_rho3=BarrierN(1,srho3,sPip1,sPi02,rRes2,mass2[i]); B1_rho4=BarrierN(1,srho4,sPip1,sPi01,rRes2,mass2[i]);
1536 }
1537 if(B2_Ds_omega1==-1){ B2_Ds_omega1=BarrierN(2,sDs,somega1,srho1,rDs2,mDsM); B2_Ds_omega2=BarrierN(2,sDs,somega2,srho2,rDs2,mDsM); B2_Ds_omega3=BarrierN(2,sDs,somega3,srho3,rDs2,mDsM); B2_Ds_omega4=BarrierN(2,sDs,somega4,srho4,rDs2,mDsM);
1538 }
1539 calt1(Pip2,Pi02,t1rho1); calt1(Pip2,Pi01,t1rho2); calt1(Pip1,Pi02,t1rho3); calt1(Pip1,Pi01,t1rho4);
1540 calt1(prho11,Pim,t1omega11); calt1(prho12,Pi01,t1omega12); calt1(prho13,Pip1,t1omega13);
1541 calt1(prho21,Pim,t1omega21); calt1(prho22,Pi02,t1omega22); calt1(prho23,Pip1,t1omega23);
1542 calt1(prho31,Pim,t1omega31); calt1(prho32,Pi01,t1omega32); calt1(prho23,Pip2,t1omega33);
1543 calt1(prho41,Pim,t1omega41); calt1(prho42,Pi02,t1omega42); calt1(prho43,Pip2,t1omega43);
1544 calt1(Pip1,Pi01,t1rho11); calt1(Pip1,Pim,t1rho12); calt1(Pi01,Pim,t1rho13);
1545 calt1(Pip1,Pi02,t1rho21); calt1(Pip1,Pim,t1rho22); calt1(Pi02,Pim,t1rho23);
1546 calt1(Pip2,Pi01,t1rho31); calt1(Pip2,Pim,t1rho32); calt1(Pi01,Pim,t1rho33);
1547 calt1(Pip2,Pi02,t1rho41); calt1(Pip2,Pim,t1rho42); calt1(Pi02,Pim,t1rho43);
1548 calG2(prho11,Pim,p1omega11); calG2(prho12,Pi01,p1omega12); calG2(prho13,Pip1,p1omega13);
1549 calG2(prho21,Pim,p1omega21); calG2(prho22,Pi02,p1omega22); calG2(prho23,Pip1,p1omega23);
1550 calG2(prho31,Pim,p1omega31); calG2(prho32,Pi01,p1omega32); calG2(prho33,Pip2,p1omega33);
1551 calG2(prho41,Pim,p1omega41); calG2(prho42,Pi02,p1omega42); calG2(prho43,Pip2,p1omega43);
1552 calt2(pomega1,prho1,t2Ds_omega1); calt2(pomega2,prho2,t2Ds_omega2); calt2(pomega3,prho3,t2Ds_omega3); calt2(pomega4,prho4,t2Ds_omega4);
1553
1554
1555
1556 for(int i=0; i<4; i++)
1557 {
1558 for(int j=0; j<4; j++)
1559 {
1560 double tempomega1 = pomega1[j]*G[j][j]*G[i][i];
1561 double tempomega2 = pomega2[j]*G[j][j]*G[i][i];
1562 double tempomega3 = pomega3[j]*G[j][j]*G[i][i];
1563 double tempomega4 = pomega4[j]*G[j][j]*G[i][i];
1564
1565 for(int k=0; k<4; k++)
1566 {
1567 double temt1omega11 = t1omega11[k]*G[k][k];
1568 double temt1omega12 = t1omega12[k]*G[k][k];
1569 double temt1omega13 = t1omega13[k]*G[k][k];
1570 double temt1omega21 = t1omega21[k]*G[k][k];
1571 double temt1omega22 = t1omega22[k]*G[k][k];
1572 double temt1omega23 = t1omega23[k]*G[k][k];
1573 double temt1omega31 = t1omega31[k]*G[k][k];
1574 double temt1omega32 = t1omega32[k]*G[k][k];
1575 double temt1omega33 = t1omega33[k]*G[k][k];
1576 double temt1omega41 = t1omega41[k]*G[k][k];
1577 double temt1omega42 = t1omega42[k]*G[k][k];
1578 double temt1omega43 = t1omega43[k]*G[k][k];
1579
1580 for(int l=0; l<4; l++)
1581 {
1582 double temt1rho11 = t1rho11[l]*G[l][l]*E[i][j][k][l];
1583 double temt1rho12 = t1rho12[l]*G[l][l]*E[i][j][k][l];
1584 double temt1rho13 = t1rho13[l]*G[l][l]*E[i][j][k][l];
1585 double temt1rho21 = t1rho21[l]*G[l][l]*E[i][j][k][l];
1586 double temt1rho22 = t1rho22[l]*G[l][l]*E[i][j][k][l];
1587 double temt1rho23 = t1rho23[l]*G[l][l]*E[i][j][k][l];
1588 double temt1rho31 = t1rho31[l]*G[l][l]*E[i][j][k][l];
1589 double temt1rho32 = t1rho32[l]*G[l][l]*E[i][j][k][l];
1590 double temt1rho33 = t1rho33[l]*G[l][l]*E[i][j][k][l];
1591 double temt1rho41 = t1rho41[l]*G[l][l]*E[i][j][k][l];
1592 double temt1rho42 = t1rho42[l]*G[l][l]*E[i][j][k][l];
1593 double temt1rho43 = t1rho43[l]*G[l][l]*E[i][j][k][l];
1594
1595 for(int m=0; m<4; m++)
1596 {
1597 double temt1rho1 = t1rho1[m]*G[m][m];
1598 double temt1rho2 = t1rho2[m]*G[m][m];
1599 double temt1rho3 = t1rho3[m]*G[m][m];
1600 double temt1rho4 = t1rho4[m]*G[m][m];
1601
1602 for(int n=0; n<4; n++)
1603 {
1604 if((i==j)||(i==k)||(i==l)||(j==k)||(j==l)||(k==l)) continue;
1605
1606 temp_PDF11 += t2Ds_omega1[m][n]*temt1rho1*p1omega11[n][i]*tempomega1*temt1omega11*temt1rho11*G[n][n];
1607 temp_PDF12 += t2Ds_omega1[m][n]*temt1rho1*p1omega12[n][i]*tempomega1*temt1omega12*temt1rho12*G[n][n];
1608 temp_PDF13 += t2Ds_omega1[m][n]*temt1rho1*p1omega13[n][i]*tempomega1*temt1omega13*temt1rho13*G[n][n];
1609 temp_PDF21 += t2Ds_omega2[m][n]*temt1rho2*p1omega21[n][i]*tempomega2*temt1omega21*temt1rho21*G[n][n];
1610 temp_PDF22 += t2Ds_omega2[m][n]*temt1rho2*p1omega22[n][i]*tempomega2*temt1omega22*temt1rho22*G[n][n];
1611 temp_PDF23 += t2Ds_omega2[m][n]*temt1rho2*p1omega23[n][i]*tempomega2*temt1omega23*temt1rho23*G[n][n];
1612 temp_PDF31 += t2Ds_omega3[m][n]*temt1rho3*p1omega31[n][i]*tempomega3*temt1omega31*temt1rho31*G[n][n];
1613 temp_PDF32 += t2Ds_omega3[m][n]*temt1rho3*p1omega32[n][i]*tempomega3*temt1omega32*temt1rho32*G[n][n];
1614 temp_PDF33 += t2Ds_omega3[m][n]*temt1rho3*p1omega33[n][i]*tempomega3*temt1omega33*temt1rho33*G[n][n];
1615 temp_PDF41 += t2Ds_omega4[m][n]*temt1rho4*p1omega41[n][i]*tempomega4*temt1omega41*temt1rho41*G[n][n];
1616 temp_PDF42 += t2Ds_omega4[m][n]*temt1rho4*p1omega42[n][i]*tempomega4*temt1omega42*temt1rho42*G[n][n];
1617 temp_PDF43 += t2Ds_omega4[m][n]*temt1rho4*p1omega43[n][i]*tempomega4*temt1omega43*temt1rho43*G[n][n];
1618 }
1619 }
1620 }
1621 }
1622 }
1623 }
1624 temp_PDF11 = temp_PDF11*B2_Ds_omega1*B1_omega11*B1_rho1*B1_1V12;
1625 temp_PDF12 = temp_PDF12*B2_Ds_omega1*B1_omega12*B1_rho1*B1_1V13;
1626 temp_PDF13 = temp_PDF13*B2_Ds_omega1*B1_omega13*B1_rho1*B1_1V23;
1627 temp_PDF21 = temp_PDF21*B2_Ds_omega2*B1_omega21*B1_rho2*B1_2V12;
1628 temp_PDF22 = temp_PDF22*B2_Ds_omega2*B1_omega22*B1_rho2*B1_2V13;
1629 temp_PDF23 = temp_PDF23*B2_Ds_omega2*B1_omega23*B1_rho2*B1_2V23;
1630 temp_PDF31 = temp_PDF31*B2_Ds_omega3*B1_omega31*B1_rho3*B1_3V12;
1631 temp_PDF32 = temp_PDF32*B2_Ds_omega3*B1_omega32*B1_rho3*B1_3V13;
1632 temp_PDF33 = temp_PDF33*B2_Ds_omega3*B1_omega33*B1_rho3*B1_3V23;
1633 temp_PDF41 = temp_PDF41*B2_Ds_omega4*B1_omega41*B1_rho4*B1_4V12;
1634 temp_PDF42 = temp_PDF42*B2_Ds_omega4*B1_omega42*B1_rho4*B1_4V13;
1635 temp_PDF43 = temp_PDF43*B2_Ds_omega4*B1_omega43*B1_rho4*B1_4V23;
1636 }
1637 if(g0[i]==1){
1638 propagator(mass1sq,mass1[i],width1[i],somega1,pro0_11);
1639 propagator(mass1sq,mass1[i],width1[i],somega1,pro0_12);
1640 propagator(mass1sq,mass1[i],width1[i],somega1,pro0_13);
1641 propagator(mass1sq,mass1[i],width1[i],somega2,pro0_21);
1642 propagator(mass1sq,mass1[i],width1[i],somega2,pro0_22);
1643 propagator(mass1sq,mass1[i],width1[i],somega2,pro0_23);
1644 propagator(mass1sq,mass1[i],width1[i],somega3,pro0_31);
1645 propagator(mass1sq,mass1[i],width1[i],somega3,pro0_32);
1646 propagator(mass1sq,mass1[i],width1[i],somega3,pro0_33);
1647 propagator(mass1sq,mass1[i],width1[i],somega4,pro0_41);
1648 propagator(mass1sq,mass1[i],width1[i],somega4,pro0_42);
1649 propagator(mass1sq,mass1[i],width1[i],somega4,pro0_43);
1650 }
1651 else if(g0[i]==0){
1652 pro0_11[0] = 1; pro0_11[1] = 0; pro0_12[0] = 1; pro0_12[1] = 0; pro0_13[0] = 1; pro0_13[1] = 0;
1653 pro0_21[0] = 1; pro0_21[1] = 0; pro0_22[0] = 1; pro0_22[1] = 0; pro0_23[0] = 1; pro0_23[1] = 0;
1654 pro0_31[0] = 1; pro0_31[1] = 0; pro0_32[0] = 1; pro0_32[1] = 0; pro0_33[0] = 1; pro0_33[1] = 0;
1655 pro0_41[0] = 1; pro0_41[1] = 0; pro0_42[0] = 1; pro0_42[1] = 0; pro0_43[0] = 1; pro0_43[1] = 0;
1656 }
1657 if(g1[i]==1){
1658 propagatorRBW(mass2sq,mass2[i],width2[i],srho1,sPip2,sPi02,rRes2,1,pro1_1);
1659 propagatorRBW(mass2sq,mass2[i],width2[i],srho2,sPip2,sPi01,rRes2,1,pro1_2);
1660 propagatorRBW(mass2sq,mass2[i],width2[i],srho3,sPip1,sPi02,rRes2,1,pro1_3);
1661 propagatorRBW(mass2sq,mass2[i],width2[i],srho4,sPip1,sPi01,rRes2,1,pro1_4);
1662 }
1663 else if(g1[i]==0){
1664 pro1_1[0] = 1; pro1_1[1] = 0;
1665 pro1_2[0] = 1; pro1_2[1] = 0;
1666 pro1_3[0] = 1; pro1_3[1] = 0;
1667 pro1_4[0] = 1; pro1_4[1] = 0;
1668 }
1669 Com_Multi(pro0_11,pro1V12,tpro_11); Com_Multi(tpro_11,pro1_1,pro_11);
1670 Com_Multi(pro0_12,pro1V13,tpro_12); Com_Multi(tpro_12,pro1_1,pro_12);
1671 Com_Multi(pro0_13,pro1V23,tpro_13); Com_Multi(tpro_13,pro1_1,pro_13);
1672 Com_Multi(pro0_21,pro2V12,tpro_21); Com_Multi(tpro_21,pro1_2,pro_21);
1673 Com_Multi(pro0_22,pro2V13,tpro_22); Com_Multi(tpro_22,pro1_2,pro_22);
1674 Com_Multi(pro0_23,pro2V23,tpro_23); Com_Multi(tpro_23,pro1_2,pro_23);
1675 Com_Multi(pro0_31,pro3V12,tpro_31); Com_Multi(tpro_31,pro1_3,pro_31);
1676 Com_Multi(pro0_32,pro3V13,tpro_32); Com_Multi(tpro_32,pro1_3,pro_32);
1677 Com_Multi(pro0_33,pro3V23,tpro_33); Com_Multi(tpro_33,pro1_3,pro_33);
1678 Com_Multi(pro0_41,pro4V12,tpro_41); Com_Multi(tpro_41,pro1_4,pro_41);
1679 Com_Multi(pro0_42,pro4V13,tpro_42); Com_Multi(tpro_42,pro1_4,pro_42);
1680 Com_Multi(pro0_43,pro4V23,tpro_43); Com_Multi(tpro_43,pro1_4,pro_43);
1681 amp_tmp1[0] = temp_PDF11*pro_11[0] - temp_PDF12*pro_12[0] + temp_PDF13*pro_13[0];
1682 amp_tmp1[1] = temp_PDF11*pro_11[1] - temp_PDF12*pro_12[1] + temp_PDF13*pro_13[1];
1683 amp_tmp2[0] = temp_PDF21*pro_21[0] - temp_PDF22*pro_22[0] + temp_PDF23*pro_23[0];
1684 amp_tmp2[1] = temp_PDF21*pro_21[1] - temp_PDF22*pro_22[1] + temp_PDF23*pro_23[1];
1685 amp_tmp3[0] = temp_PDF31*pro_31[0] - temp_PDF32*pro_32[0] + temp_PDF33*pro_33[0];
1686 amp_tmp3[1] = temp_PDF31*pro_31[1] - temp_PDF32*pro_32[1] + temp_PDF33*pro_33[1];
1687 amp_tmp4[0] = temp_PDF41*pro_41[0] - temp_PDF42*pro_42[0] + temp_PDF43*pro_43[0];
1688 amp_tmp4[1] = temp_PDF41*pro_41[1] - temp_PDF42*pro_42[1] + temp_PDF43*pro_43[1];
1689 }
1690 else if (modetype[i]==4){
1691 if(g2[i]==0)
1692 {
1693 if(B1_omega11==-1) { B1_omega11=BarrierN(1,somega1,srho11,sPim,rRes2,mass2[i]); B1_omega12=BarrierN(1,somega1,srho12,sPi01,rRes2,mass2[i]); B1_omega13=BarrierN(1,somega1,srho13,sPip1,rRes2,mass2[i]);
1694 B1_omega21=BarrierN(1,somega2,srho21,sPim,rRes2,mass2[i]); B1_omega22=BarrierN(1,somega2,srho22,sPi02,rRes2,mass2[i]); B1_omega23=BarrierN(1,somega2,srho23,sPip1,rRes2,mass2[i]);
1695 B1_omega31=BarrierN(1,somega3,srho31,sPim,rRes2,mass2[i]); B1_omega32=BarrierN(1,somega3,srho32,sPi01,rRes2,mass2[i]); B1_omega33=BarrierN(1,somega3,srho33,sPip2,rRes2,mass2[i]);
1696 B1_omega41=BarrierN(1,somega4,srho41,sPim,rRes2,mass2[i]); B1_omega42=BarrierN(1,somega4,srho42,sPi02,rRes2,mass2[i]); B1_omega43=BarrierN(1,somega4,srho43,sPip2,rRes2,mass2[i]);
1697 }
1698 if(B1_Ds_b1p1==-1) { B1_Ds_b1p1=BarrierN(1,sDs,sb1p1,sPi02,rDs2,mDsM); B1_Ds_b1p2=BarrierN(1,sDs,sb1p2,sPi01,rDs2,mDsM); B1_Ds_b1p3=BarrierN(1,sDs,sb1p3,sPi02,rDs2,mDsM); B1_Ds_b1p4=BarrierN(1,sDs,sb1p4,sPi01,rDs2,mDsM);
1699 }
1700 calt1(prho11,Pim,t1omega11); calt1(prho12,Pi01,t1omega12); calt1(prho13,Pip1,t1omega13);
1701 calt1(prho21,Pim,t1omega21); calt1(prho22,Pi02,t1omega22); calt1(prho23,Pip1,t1omega23);
1702 calt1(prho31,Pim,t1omega31); calt1(prho32,Pi01,t1omega32); calt1(prho23,Pip2,t1omega33);
1703 calt1(prho41,Pim,t1omega41); calt1(prho42,Pi02,t1omega42); calt1(prho43,Pip2,t1omega43);
1704 calt1(Pip1,Pi01,t1rho11); calt1(Pip1,Pim,t1rho12); calt1(Pi01,Pim,t1rho13);
1705 calt1(Pip1,Pi02,t1rho21); calt1(Pip1,Pim,t1rho22); calt1(Pi02,Pim,t1rho23);
1706 calt1(Pip2,Pi01,t1rho31); calt1(Pip2,Pim,t1rho32); calt1(Pi01,Pim,t1rho33);
1707 calt1(Pip2,Pi02,t1rho41); calt1(Pip2,Pim,t1rho42); calt1(Pi02,Pim,t1rho43);
1708 calG2(prho11,Pim,p1omega11); calG2(prho12,Pi01,p1omega12); calG2(prho13,Pip1,p1omega13);
1709 calG2(prho21,Pim,p1omega21); calG2(prho22,Pi02,p1omega22); calG2(prho23,Pip1,p1omega23);
1710 calG2(prho31,Pim,p1omega31); calG2(prho32,Pi01,p1omega32); calG2(prho33,Pip2,p1omega33);
1711 calG2(prho41,Pim,p1omega41); calG2(prho42,Pi02,p1omega42); calG2(prho43,Pip2,p1omega43);
1712 calG2(pomega1,Pip2,p1b1p1); calG2(pomega2,Pip2,p1b1p2); calG2(pomega3,Pip1,p1b1p3); calG2(pomega4,Pip1,p1b1p4);
1713 calt1(pb1p1,Pi02,t1Ds_b1p1); calt1(pb1p2,Pi01,t1Ds_b1p2); calt1(pb1p3,Pi02,t1Ds_b1p3); calt1(pb1p4,Pi01,t1Ds_b1p4);
1714
1715
1716 for(int i=0; i<4; i++)
1717 {
1718 for(int j=0; j<4; j++)
1719 {
1720 double tempomega1 = pomega1[j]*G[j][j]*G[i][i];
1721 double tempomega2 = pomega2[j]*G[j][j]*G[i][i];
1722 double tempomega3 = pomega3[j]*G[j][j]*G[i][i];
1723 double tempomega4 = pomega4[j]*G[j][j]*G[i][i];
1724
1725 for(int k=0; k<4; k++)
1726 {
1727 double temt1omega11 = t1omega11[k]*G[k][k];
1728 double temt1omega12 = t1omega12[k]*G[k][k];
1729 double temt1omega13 = t1omega13[k]*G[k][k];
1730 double temt1omega21 = t1omega21[k]*G[k][k];
1731 double temt1omega22 = t1omega22[k]*G[k][k];
1732 double temt1omega23 = t1omega23[k]*G[k][k];
1733 double temt1omega31 = t1omega31[k]*G[k][k];
1734 double temt1omega32 = t1omega32[k]*G[k][k];
1735 double temt1omega33 = t1omega33[k]*G[k][k];
1736 double temt1omega41 = t1omega41[k]*G[k][k];
1737 double temt1omega42 = t1omega42[k]*G[k][k];
1738 double temt1omega43 = t1omega43[k]*G[k][k];
1739
1740 for(int l=0; l<4; l++)
1741 {
1742 double temt1rho11 = t1rho11[l]*G[l][l]*E[i][j][k][l];
1743 double temt1rho12 = t1rho12[l]*G[l][l]*E[i][j][k][l];
1744 double temt1rho13 = t1rho13[l]*G[l][l]*E[i][j][k][l];
1745 double temt1rho21 = t1rho21[l]*G[l][l]*E[i][j][k][l];
1746 double temt1rho22 = t1rho22[l]*G[l][l]*E[i][j][k][l];
1747 double temt1rho23 = t1rho23[l]*G[l][l]*E[i][j][k][l];
1748 double temt1rho31 = t1rho31[l]*G[l][l]*E[i][j][k][l];
1749 double temt1rho32 = t1rho32[l]*G[l][l]*E[i][j][k][l];
1750 double temt1rho33 = t1rho33[l]*G[l][l]*E[i][j][k][l];
1751 double temt1rho41 = t1rho41[l]*G[l][l]*E[i][j][k][l];
1752 double temt1rho42 = t1rho42[l]*G[l][l]*E[i][j][k][l];
1753 double temt1rho43 = t1rho43[l]*G[l][l]*E[i][j][k][l];
1754
1755 for(int m=0; m<4; m++)
1756 {
1757 double temt1Ds_b1p1 = t1Ds_b1p1[m]*G[m][m];
1758 double temt1Ds_b1p2 = t1Ds_b1p2[m]*G[m][m];
1759 double temt1Ds_b1p3 = t1Ds_b1p3[m]*G[m][m];
1760 double temt1Ds_b1p4 = t1Ds_b1p4[m]*G[m][m];
1761
1762 for(int n=0; n<4; n++)
1763 {
1764
1765 if((i==j)||(i==k)||(i==l)||(j==k)||(j==l)||(k==l)) continue;
1766 temp_PDF11 += temt1Ds_b1p1*p1b1p1[m][n]*p1omega11[n][i]*tempomega1*temt1omega11*temt1rho11*G[n][n];
1767 temp_PDF12 += temt1Ds_b1p1*p1b1p1[m][n]*p1omega12[n][i]*tempomega1*temt1omega12*temt1rho12*G[n][n];
1768 temp_PDF13 += temt1Ds_b1p1*p1b1p1[m][n]*p1omega13[n][i]*tempomega1*temt1omega13*temt1rho13*G[n][n];
1769 temp_PDF21 += temt1Ds_b1p2*p1b1p2[m][n]*p1omega21[n][i]*tempomega2*temt1omega21*temt1rho21*G[n][n];
1770 temp_PDF22 += temt1Ds_b1p2*p1b1p2[m][n]*p1omega22[n][i]*tempomega2*temt1omega22*temt1rho22*G[n][n];
1771 temp_PDF23 += temt1Ds_b1p2*p1b1p2[m][n]*p1omega23[n][i]*tempomega2*temt1omega23*temt1rho23*G[n][n];
1772 temp_PDF31 += temt1Ds_b1p3*p1b1p3[m][n]*p1omega31[n][i]*tempomega3*temt1omega31*temt1rho31*G[n][n];
1773 temp_PDF32 += temt1Ds_b1p3*p1b1p3[m][n]*p1omega32[n][i]*tempomega3*temt1omega32*temt1rho32*G[n][n];
1774 temp_PDF33 += temt1Ds_b1p3*p1b1p3[m][n]*p1omega33[n][i]*tempomega3*temt1omega33*temt1rho33*G[n][n];
1775 temp_PDF41 += temt1Ds_b1p4*p1b1p4[m][n]*p1omega41[n][i]*tempomega4*temt1omega41*temt1rho41*G[n][n];
1776 temp_PDF42 += temt1Ds_b1p4*p1b1p4[m][n]*p1omega42[n][i]*tempomega4*temt1omega42*temt1rho42*G[n][n];
1777 temp_PDF43 += temt1Ds_b1p4*p1b1p4[m][n]*p1omega43[n][i]*tempomega4*temt1omega43*temt1rho43*G[n][n];
1778 }
1779 }
1780 }
1781 }
1782 }
1783 }
1784 temp_PDF11 = temp_PDF11*B1_Ds_b1p1*B1_omega11*B1_1V12;
1785 temp_PDF12 = temp_PDF12*B1_Ds_b1p1*B1_omega12*B1_1V13;
1786 temp_PDF13 = temp_PDF13*B1_Ds_b1p1*B1_omega13*B1_1V23;
1787 temp_PDF21 = temp_PDF21*B1_Ds_b1p2*B1_omega21*B1_2V12;
1788 temp_PDF22 = temp_PDF22*B1_Ds_b1p2*B1_omega22*B1_2V13;
1789 temp_PDF23 = temp_PDF23*B1_Ds_b1p2*B1_omega23*B1_2V23;
1790 temp_PDF31 = temp_PDF31*B1_Ds_b1p3*B1_omega31*B1_3V12;
1791 temp_PDF32 = temp_PDF32*B1_Ds_b1p3*B1_omega32*B1_3V13;
1792 temp_PDF33 = temp_PDF33*B1_Ds_b1p3*B1_omega33*B1_3V23;
1793 temp_PDF41 = temp_PDF41*B1_Ds_b1p4*B1_omega41*B1_4V12;
1794 temp_PDF42 = temp_PDF42*B1_Ds_b1p4*B1_omega42*B1_4V13;
1795 temp_PDF43 = temp_PDF43*B1_Ds_b1p4*B1_omega43*B1_4V23;
1796 }
1797 else if(g2[i]==2)
1798 {
1799 if(B1_omega11==-1) { B1_omega11=BarrierN(1,somega1,srho11,sPim,rRes2,mass2[i]); B1_omega12=BarrierN(1,somega1,srho12,sPi01,rRes2,mass2[i]); B1_omega13=BarrierN(1,somega1,srho13,sPip1,rRes2,mass2[i]);
1800 B1_omega21=BarrierN(1,somega2,srho21,sPim,rRes2,mass2[i]); B1_omega22=BarrierN(1,somega2,srho22,sPi02,rRes2,mass2[i]); B1_omega23=BarrierN(1,somega2,srho23,sPip1,rRes2,mass2[i]);
1801 B1_omega31=BarrierN(1,somega3,srho31,sPim,rRes2,mass2[i]); B1_omega32=BarrierN(1,somega3,srho32,sPi01,rRes2,mass2[i]); B1_omega33=BarrierN(1,somega3,srho33,sPip2,rRes2,mass2[i]);
1802 B1_omega41=BarrierN(1,somega4,srho41,sPim,rRes2,mass2[i]); B1_omega42=BarrierN(1,somega4,srho42,sPi02,rRes2,mass2[i]); B1_omega43=BarrierN(1,somega4,srho43,sPip2,rRes2,mass2[i]);
1803 }
1804 if(B1_Ds_b1p1==-1) { B1_Ds_b1p1=BarrierN(1,sDs,sb1p1,sPi02,rDs2,mDsM); B1_Ds_b1p2=BarrierN(1,sDs,sb1p2,sPi01,rDs2,mDsM); B1_Ds_b1p3=BarrierN(1,sDs,sb1p3,sPi02,rDs2,mDsM); B1_Ds_b1p4=BarrierN(1,sDs,sb1p4,sPi01,rDs2,mDsM);
1805 }
1806 if(B2_b1p1==-1) { B2_b1p1=BarrierN(2,sb1p1,somega1,sPip2,rRes2,mass1[i]); B2_b1p2=BarrierN(2,sb1p2,somega2,sPip2,rRes2,mass1[i]); B2_b1p3=BarrierN(2,sb1p3,somega3,sPip1,rRes2,mass1[i]); B2_b1p4=BarrierN(2,sb1p4,somega4,sPip1,rRes2,mass1[i]);
1807 }
1808 calt1(prho11,Pim,t1omega11); calt1(prho12,Pi01,t1omega12); calt1(prho13,Pip1,t1omega13);
1809 calt1(prho21,Pim,t1omega21); calt1(prho22,Pi02,t1omega22); calt1(prho23,Pip1,t1omega23);
1810 calt1(prho31,Pim,t1omega31); calt1(prho32,Pi01,t1omega32); calt1(prho23,Pip2,t1omega33);
1811 calt1(prho41,Pim,t1omega41); calt1(prho42,Pi02,t1omega42); calt1(prho43,Pip2,t1omega43);
1812 calt1(Pip1,Pi01,t1rho11); calt1(Pip1,Pim,t1rho12); calt1(Pi01,Pim,t1rho13);
1813 calt1(Pip1,Pi02,t1rho21); calt1(Pip1,Pim,t1rho22); calt1(Pi02,Pim,t1rho23);
1814 calt1(Pip2,Pi01,t1rho31); calt1(Pip2,Pim,t1rho32); calt1(Pi01,Pim,t1rho33);
1815 calt1(Pip2,Pi02,t1rho41); calt1(Pip2,Pim,t1rho42); calt1(Pi02,Pim,t1rho43);
1816 calG2(prho11,Pim,p1omega11); calG2(prho12,Pi01,p1omega12); calG2(prho13,Pip1,p1omega13);
1817 calG2(prho21,Pim,p1omega21); calG2(prho22,Pi02,p1omega22); calG2(prho23,Pip1,p1omega23);
1818 calG2(prho31,Pim,p1omega31); calG2(prho32,Pi01,p1omega32); calG2(prho33,Pip2,p1omega33);
1819 calG2(prho41,Pim,p1omega41); calG2(prho42,Pi02,p1omega42); calG2(prho43,Pip2,p1omega43);
1820
1821 calt2(pomega1,Pip2,t2b1p1); calt2(pomega2,Pip2,t2b1p2); calt2(pomega3,Pip1,t2b1p3); calt2(pomega4,Pip1,t2b1p4);
1822 calt1(pb1p1,Pi02,t1Ds_b1p1); calt1(pb1p2,Pi01,t1Ds_b1p2); calt1(pb1p3,Pi02,t1Ds_b1p3); calt1(pb1p4,Pi01,t1Ds_b1p4);
1823
1824 for(int i=0; i<4; i++)
1825 {
1826 for(int j=0; j<4; j++)
1827 {
1828 double tempomega1 = pomega1[j]*G[j][j]*G[i][i];
1829 double tempomega2 = pomega2[j]*G[j][j]*G[i][i];
1830 double tempomega3 = pomega3[j]*G[j][j]*G[i][i];
1831 double tempomega4 = pomega4[j]*G[j][j]*G[i][i];
1832
1833 for(int k=0; k<4; k++)
1834 {
1835 double temt1omega11 = t1omega11[k]*G[k][k];
1836 double temt1omega12 = t1omega12[k]*G[k][k];
1837 double temt1omega13 = t1omega13[k]*G[k][k];
1838 double temt1omega21 = t1omega21[k]*G[k][k];
1839 double temt1omega22 = t1omega22[k]*G[k][k];
1840 double temt1omega23 = t1omega23[k]*G[k][k];
1841 double temt1omega31 = t1omega31[k]*G[k][k];
1842 double temt1omega32 = t1omega32[k]*G[k][k];
1843 double temt1omega33 = t1omega33[k]*G[k][k];
1844 double temt1omega41 = t1omega41[k]*G[k][k];
1845 double temt1omega42 = t1omega42[k]*G[k][k];
1846 double temt1omega43 = t1omega43[k]*G[k][k];
1847
1848 for(int l=0; l<4; l++)
1849 {
1850 double temt1rho11 = t1rho11[l]*G[l][l]*E[i][j][k][l];
1851 double temt1rho12 = t1rho12[l]*G[l][l]*E[i][j][k][l];
1852 double temt1rho13 = t1rho13[l]*G[l][l]*E[i][j][k][l];
1853 double temt1rho21 = t1rho21[l]*G[l][l]*E[i][j][k][l];
1854 double temt1rho22 = t1rho22[l]*G[l][l]*E[i][j][k][l];
1855 double temt1rho23 = t1rho23[l]*G[l][l]*E[i][j][k][l];
1856 double temt1rho31 = t1rho31[l]*G[l][l]*E[i][j][k][l];
1857 double temt1rho32 = t1rho32[l]*G[l][l]*E[i][j][k][l];
1858 double temt1rho33 = t1rho33[l]*G[l][l]*E[i][j][k][l];
1859 double temt1rho41 = t1rho41[l]*G[l][l]*E[i][j][k][l];
1860 double temt1rho42 = t1rho42[l]*G[l][l]*E[i][j][k][l];
1861 double temt1rho43 = t1rho43[l]*G[l][l]*E[i][j][k][l];
1862
1863 for(int m=0; m<4; m++)
1864 {
1865 double temt1Ds_b1p1 = t1Ds_b1p1[m]*G[m][m];
1866 double temt1Ds_b1p2 = t1Ds_b1p2[m]*G[m][m];
1867 double temt1Ds_b1p3 = t1Ds_b1p3[m]*G[m][m];
1868 double temt1Ds_b1p4 = t1Ds_b1p4[m]*G[m][m];
1869
1870 for(int n=0; n<4; n++)
1871 {
1872 if((i==j)||(i==k)||(i==l)||(j==k)||(j==l)||(k==l)) continue;
1873 temp_PDF11 += temt1Ds_b1p1*t2b1p1[m][n]*p1omega11[n][i]*tempomega1*temt1omega11*temt1rho11*G[n][n];
1874 temp_PDF12 += temt1Ds_b1p1*t2b1p1[m][n]*p1omega12[n][i]*tempomega1*temt1omega12*temt1rho12*G[n][n];
1875 temp_PDF13 += temt1Ds_b1p1*t2b1p1[m][n]*p1omega13[n][i]*tempomega1*temt1omega13*temt1rho13*G[n][n];
1876 temp_PDF21 += temt1Ds_b1p2*t2b1p2[m][n]*p1omega21[n][i]*tempomega2*temt1omega21*temt1rho21*G[n][n];
1877 temp_PDF22 += temt1Ds_b1p2*t2b1p2[m][n]*p1omega22[n][i]*tempomega2*temt1omega22*temt1rho22*G[n][n];
1878 temp_PDF23 += temt1Ds_b1p2*t2b1p2[m][n]*p1omega23[n][i]*tempomega2*temt1omega23*temt1rho23*G[n][n];
1879 temp_PDF31 += temt1Ds_b1p3*t2b1p3[m][n]*p1omega31[n][i]*tempomega3*temt1omega31*temt1rho31*G[n][n];
1880 temp_PDF32 += temt1Ds_b1p3*t2b1p3[m][n]*p1omega32[n][i]*tempomega3*temt1omega32*temt1rho32*G[n][n];
1881 temp_PDF33 += temt1Ds_b1p3*t2b1p3[m][n]*p1omega33[n][i]*tempomega3*temt1omega33*temt1rho33*G[n][n];
1882 temp_PDF41 += temt1Ds_b1p4*t2b1p4[m][n]*p1omega41[n][i]*tempomega4*temt1omega41*temt1rho41*G[n][n];
1883 temp_PDF42 += temt1Ds_b1p4*t2b1p4[m][n]*p1omega42[n][i]*tempomega4*temt1omega42*temt1rho42*G[n][n];
1884 temp_PDF43 += temt1Ds_b1p4*t2b1p4[m][n]*p1omega43[n][i]*tempomega4*temt1omega43*temt1rho43*G[n][n];
1885 }
1886 }
1887 }
1888 }
1889 }
1890 }
1891 temp_PDF11 = temp_PDF11*B1_Ds_b1p1*B2_b1p1*B1_omega11*B1_1V12;
1892 temp_PDF12 = temp_PDF12*B1_Ds_b1p1*B2_b1p1*B1_omega12*B1_1V13;
1893 temp_PDF13 = temp_PDF13*B1_Ds_b1p1*B2_b1p1*B1_omega13*B1_1V23;
1894 temp_PDF21 = temp_PDF21*B1_Ds_b1p2*B2_b1p2*B1_omega21*B1_2V12;
1895 temp_PDF22 = temp_PDF22*B1_Ds_b1p2*B2_b1p2*B1_omega22*B1_2V13;
1896 temp_PDF23 = temp_PDF23*B1_Ds_b1p2*B2_b1p2*B1_omega23*B1_2V23;
1897 temp_PDF31 = temp_PDF31*B1_Ds_b1p3*B2_b1p3*B1_omega31*B1_3V12;
1898 temp_PDF32 = temp_PDF32*B1_Ds_b1p3*B2_b1p3*B1_omega32*B1_3V13;
1899 temp_PDF33 = temp_PDF33*B1_Ds_b1p3*B2_b1p3*B1_omega33*B1_3V23;
1900 temp_PDF41 = temp_PDF41*B1_Ds_b1p4*B2_b1p4*B1_omega41*B1_4V12;
1901 temp_PDF42 = temp_PDF42*B1_Ds_b1p4*B2_b1p4*B1_omega42*B1_4V13;
1902 temp_PDF43 = temp_PDF43*B1_Ds_b1p4*B2_b1p4*B1_omega43*B1_4V23;
1903 }
1904 if(g0[i]==1) {
1905 propagatorRBW(mass1sq,mass1[i],width1[i],sb1p1,somega1,sPip2,rRes2,g2[i],pro0_1);
1906 propagatorRBW(mass1sq,mass1[i],width1[i],sb1p2,somega2,sPip2,rRes2,g2[i],pro0_2);
1907 propagatorRBW(mass1sq,mass1[i],width1[i],sb1p3,somega3,sPip1,rRes2,g2[i],pro0_3);
1908 propagatorRBW(mass1sq,mass1[i],width1[i],sb1p4,somega4,sPip1,rRes2,g2[i],pro0_4);
1909 } else if(g0[i]==0) {
1910 pro0_1[0] = 1; pro0_1[1] = 0;
1911 pro0_2[0] = 1; pro0_2[1] = 0;
1912 pro0_3[0] = 1; pro0_3[1] = 0;
1913 pro0_4[0] = 1; pro0_4[1] = 0;
1914 }
1915 if(g1[i]==1) {
1916 propagator(mass2sq,mass2[i],width2[i],somega1,pro1_11);
1917 propagator(mass2sq,mass2[i],width2[i],somega1,pro1_12);
1918 propagator(mass2sq,mass2[i],width2[i],somega1,pro1_13);
1919 propagator(mass2sq,mass2[i],width2[i],somega2,pro1_21);
1920 propagator(mass2sq,mass2[i],width2[i],somega2,pro1_22);
1921 propagator(mass2sq,mass2[i],width2[i],somega2,pro1_23);
1922 propagator(mass2sq,mass2[i],width2[i],somega3,pro1_31);
1923 propagator(mass2sq,mass2[i],width2[i],somega3,pro1_32);
1924 propagator(mass2sq,mass2[i],width2[i],somega3,pro1_33);
1925 propagator(mass2sq,mass2[i],width2[i],somega4,pro1_41);
1926 propagator(mass2sq,mass2[i],width2[i],somega4,pro1_42);
1927 propagator(mass2sq,mass2[i],width2[i],somega4,pro1_43);
1928 } else if(g1[i]==0) {
1929 pro1_11[0] = 1; pro1_11[1] = 0; pro1_12[0] = 1; pro1_12[1] = 0; pro1_13[0] = 1; pro1_13[1] = 0;
1930 pro1_21[0] = 1; pro1_21[1] = 0; pro1_22[0] = 1; pro1_22[1] = 0; pro1_23[0] = 1; pro1_23[1] = 0;
1931 pro1_31[0] = 1; pro1_31[1] = 0; pro1_32[0] = 1; pro1_32[1] = 0; pro1_33[0] = 1; pro1_33[1] = 0;
1932 pro1_41[0] = 1; pro1_41[1] = 0; pro1_42[0] = 1; pro1_42[1] = 0; pro1_43[0] = 1; pro1_43[1] = 0;
1933 }
1934 Com_Multi(pro0_1,pro1_11,tpro_11); Com_Multi(tpro_11,pro1V12,pro_11);
1935 Com_Multi(pro0_1,pro1_12,tpro_12); Com_Multi(tpro_12,pro1V13,pro_12);
1936 Com_Multi(pro0_1,pro1_13,tpro_13); Com_Multi(tpro_13,pro1V23,pro_13);
1937 Com_Multi(pro0_2,pro1_21,tpro_21); Com_Multi(tpro_21,pro2V12,pro_21);
1938 Com_Multi(pro0_2,pro1_22,tpro_22); Com_Multi(tpro_22,pro2V13,pro_22);
1939 Com_Multi(pro0_2,pro1_23,tpro_23); Com_Multi(tpro_23,pro2V23,pro_23);
1940 Com_Multi(pro0_3,pro1_31,tpro_31); Com_Multi(tpro_31,pro3V12,pro_31);
1941 Com_Multi(pro0_3,pro1_32,tpro_32); Com_Multi(tpro_32,pro3V13,pro_32);
1942 Com_Multi(pro0_3,pro1_33,tpro_33); Com_Multi(tpro_33,pro3V23,pro_33);
1943 Com_Multi(pro0_4,pro1_41,tpro_41); Com_Multi(tpro_41,pro4V12,pro_41);
1944 Com_Multi(pro0_4,pro1_42,tpro_42); Com_Multi(tpro_42,pro4V13,pro_42);
1945 Com_Multi(pro0_4,pro1_43,tpro_43); Com_Multi(tpro_43,pro4V23,pro_43);
1946 amp_tmp1[0] = temp_PDF11*pro_11[0] -temp_PDF12*pro_12[0] + temp_PDF13*pro_13[0];
1947 amp_tmp1[1] = temp_PDF11*pro_11[1] -temp_PDF12*pro_12[1] + temp_PDF13*pro_13[1];
1948 amp_tmp2[0] = temp_PDF21*pro_21[0] -temp_PDF22*pro_22[0] + temp_PDF23*pro_23[0];
1949 amp_tmp2[1] = temp_PDF21*pro_21[1] -temp_PDF22*pro_22[1] + temp_PDF23*pro_23[1];
1950 amp_tmp3[0] = temp_PDF31*pro_31[0] -temp_PDF32*pro_32[0] + temp_PDF33*pro_33[0];
1951 amp_tmp3[1] = temp_PDF31*pro_31[1] -temp_PDF32*pro_32[1] + temp_PDF33*pro_33[1];
1952 amp_tmp4[0] = temp_PDF41*pro_41[0] -temp_PDF42*pro_42[0] + temp_PDF43*pro_43[0];
1953 amp_tmp4[1] = temp_PDF41*pro_41[1] -temp_PDF42*pro_42[1] + temp_PDF43*pro_43[1];
1954 }
1955 else if(modetype[i]==6){
1956 if(g2[i]==0)
1957 {
1958 if(B1_omega11==-1) { B1_omega11=BarrierN(1,somega1,srho11,sPim,rRes2,mass2[i]); B1_omega12=BarrierN(1,somega1,srho12,sPi01,rRes2,mass2[i]); B1_omega13=BarrierN(1,somega1,srho13,sPip1,rRes2,mass2[i]);
1959 B1_omega21=BarrierN(1,somega2,srho21,sPim,rRes2,mass2[i]); B1_omega22=BarrierN(1,somega2,srho22,sPi02,rRes2,mass2[i]); B1_omega23=BarrierN(1,somega2,srho23,sPip1,rRes2,mass2[i]);
1960 B1_omega31=BarrierN(1,somega3,srho31,sPim,rRes2,mass2[i]); B1_omega32=BarrierN(1,somega3,srho32,sPi01,rRes2,mass2[i]); B1_omega33=BarrierN(1,somega3,srho33,sPip2,rRes2,mass2[i]);
1961 B1_omega41=BarrierN(1,somega4,srho41,sPim,rRes2,mass2[i]); B1_omega42=BarrierN(1,somega4,srho42,sPi02,rRes2,mass2[i]); B1_omega43=BarrierN(1,somega4,srho43,sPip2,rRes2,mass2[i]);
1962 }
1963 if(B1_Ds_b1n1==-1) {B1_Ds_b1n1=BarrierN(1,sDs,sb1n1,sPip2,rDs2,mDsM); B1_Ds_b1n2=BarrierN(1,sDs,sb1n2,sPip2,rDs2,mDsM); B1_Ds_b1n3=BarrierN(1,sDs,sb1n3,sPip1,rDs2,mDsM); B1_Ds_b1n4=BarrierN(1,sDs,sb1n4,sPip1,rDs2,mDsM);
1964 }
1965 calt1(prho11,Pim,t1omega11); calt1(prho12,Pi01,t1omega12); calt1(prho13,Pip1,t1omega13);
1966 calt1(prho21,Pim,t1omega21); calt1(prho22,Pi02,t1omega22); calt1(prho23,Pip1,t1omega23);
1967 calt1(prho31,Pim,t1omega31); calt1(prho32,Pi01,t1omega32); calt1(prho23,Pip2,t1omega33);
1968 calt1(prho41,Pim,t1omega41); calt1(prho42,Pi02,t1omega42); calt1(prho43,Pip2,t1omega43);
1969 calt1(Pip1,Pi01,t1rho11); calt1(Pip1,Pim,t1rho12); calt1(Pi01,Pim,t1rho13);
1970 calt1(Pip1,Pi02,t1rho21); calt1(Pip1,Pim,t1rho22); calt1(Pi02,Pim,t1rho23);
1971 calt1(Pip2,Pi01,t1rho31); calt1(Pip2,Pim,t1rho32); calt1(Pi01,Pim,t1rho33);
1972 calt1(Pip2,Pi02,t1rho41); calt1(Pip2,Pim,t1rho42); calt1(Pi02,Pim,t1rho43);
1973 calG2(prho11,Pim,p1omega11); calG2(prho12,Pi01,p1omega12); calG2(prho13,Pip1,p1omega13);
1974 calG2(prho21,Pim,p1omega21); calG2(prho22,Pi02,p1omega22); calG2(prho23,Pip1,p1omega23);
1975 calG2(prho31,Pim,p1omega31); calG2(prho32,Pi01,p1omega32); calG2(prho33,Pip2,p1omega33);
1976 calG2(prho41,Pim,p1omega41); calG2(prho42,Pi02,p1omega42); calG2(prho43,Pip2,p1omega43);
1977 calG2(pomega1,Pi02,p1b1n1); calG2(pomega2,Pi01,p1b1n2); calG2(pomega3,Pi02,p1b1n3); calG2(pomega4,Pi01,p1b1n4);
1978 calt1(pb1n1,Pip2,t1Ds_b1n1); calt1(pb1n2,Pip2,t1Ds_b1n2); calt1(pb1n3,Pip1,t1Ds_b1n3); calt1(pb1n4,Pip1,t1Ds_b1n4);
1979 for(int i=0; i<4; i++)
1980 {
1981 for(int j=0; j<4; j++)
1982 {
1983 double tempomega1 = pomega1[j]*G[j][j]*G[i][i];
1984 double tempomega2 = pomega2[j]*G[j][j]*G[i][i];
1985 double tempomega3 = pomega3[j]*G[j][j]*G[i][i];
1986 double tempomega4 = pomega4[j]*G[j][j]*G[i][i];
1987
1988 for(int k=0; k<4; k++)
1989 {
1990 double temt1omega11 = t1omega11[k]*G[k][k];
1991 double temt1omega12 = t1omega12[k]*G[k][k];
1992 double temt1omega13 = t1omega13[k]*G[k][k];
1993 double temt1omega21 = t1omega21[k]*G[k][k];
1994 double temt1omega22 = t1omega22[k]*G[k][k];
1995 double temt1omega23 = t1omega23[k]*G[k][k];
1996 double temt1omega31 = t1omega31[k]*G[k][k];
1997 double temt1omega32 = t1omega32[k]*G[k][k];
1998 double temt1omega33 = t1omega33[k]*G[k][k];
1999 double temt1omega41 = t1omega41[k]*G[k][k];
2000 double temt1omega42 = t1omega42[k]*G[k][k];
2001 double temt1omega43 = t1omega43[k]*G[k][k];
2002
2003 for(int l=0; l<4; l++)
2004 {
2005 double temt1rho11 = t1rho11[l]*G[l][l]*E[i][j][k][l];
2006 double temt1rho12 = t1rho12[l]*G[l][l]*E[i][j][k][l];
2007 double temt1rho13 = t1rho13[l]*G[l][l]*E[i][j][k][l];
2008 double temt1rho21 = t1rho21[l]*G[l][l]*E[i][j][k][l];
2009 double temt1rho22 = t1rho22[l]*G[l][l]*E[i][j][k][l];
2010 double temt1rho23 = t1rho23[l]*G[l][l]*E[i][j][k][l];
2011 double temt1rho31 = t1rho31[l]*G[l][l]*E[i][j][k][l];
2012 double temt1rho32 = t1rho32[l]*G[l][l]*E[i][j][k][l];
2013 double temt1rho33 = t1rho33[l]*G[l][l]*E[i][j][k][l];
2014 double temt1rho41 = t1rho41[l]*G[l][l]*E[i][j][k][l];
2015 double temt1rho42 = t1rho42[l]*G[l][l]*E[i][j][k][l];
2016 double temt1rho43 = t1rho43[l]*G[l][l]*E[i][j][k][l];
2017
2018 for(int m=0; m<4; m++)
2019 {
2020 double temt1Ds_b1n1 = t1Ds_b1n1[m]*G[m][m];
2021 double temt1Ds_b1n2 = t1Ds_b1n2[m]*G[m][m];
2022 double temt1Ds_b1n3 = t1Ds_b1n3[m]*G[m][m];
2023 double temt1Ds_b1n4 = t1Ds_b1n4[m]*G[m][m];
2024
2025 for(int n=0; n<4; n++)
2026 {
2027 if((i==j)||(i==k)||(i==l)||(j==k)||(j==l)||(k==l)) continue;
2028 temp_PDF11 += temt1Ds_b1n1*p1b1n1[m][n]*p1omega11[n][i]*tempomega1*temt1omega11*temt1rho11*G[n][n];
2029 temp_PDF12 += temt1Ds_b1n1*p1b1n1[m][n]*p1omega12[n][i]*tempomega1*temt1omega12*temt1rho12*G[n][n];
2030 temp_PDF13 += temt1Ds_b1n1*p1b1n1[m][n]*p1omega13[n][i]*tempomega1*temt1omega13*temt1rho13*G[n][n];
2031 temp_PDF21 += temt1Ds_b1n2*p1b1n2[m][n]*p1omega21[n][i]*tempomega2*temt1omega21*temt1rho21*G[n][n];
2032 temp_PDF22 += temt1Ds_b1n2*p1b1n2[m][n]*p1omega22[n][i]*tempomega2*temt1omega22*temt1rho22*G[n][n];
2033 temp_PDF23 += temt1Ds_b1n2*p1b1n2[m][n]*p1omega23[n][i]*tempomega2*temt1omega23*temt1rho23*G[n][n];
2034 temp_PDF31 += temt1Ds_b1n3*p1b1n3[m][n]*p1omega31[n][i]*tempomega3*temt1omega31*temt1rho31*G[n][n];
2035 temp_PDF32 += temt1Ds_b1n3*p1b1n3[m][n]*p1omega32[n][i]*tempomega3*temt1omega32*temt1rho32*G[n][n];
2036 temp_PDF33 += temt1Ds_b1n3*p1b1n3[m][n]*p1omega33[n][i]*tempomega3*temt1omega33*temt1rho33*G[n][n];
2037 temp_PDF41 += temt1Ds_b1n4*p1b1n4[m][n]*p1omega41[n][i]*tempomega4*temt1omega41*temt1rho41*G[n][n];
2038 temp_PDF42 += temt1Ds_b1n4*p1b1n4[m][n]*p1omega42[n][i]*tempomega4*temt1omega42*temt1rho42*G[n][n];
2039 temp_PDF43 += temt1Ds_b1n4*p1b1n4[m][n]*p1omega43[n][i]*tempomega4*temt1omega43*temt1rho43*G[n][n];
2040 }
2041 }
2042 }
2043 }
2044 }
2045 }
2046 temp_PDF11 = temp_PDF11*B1_Ds_b1n1*B1_omega11*B1_1V12;
2047 temp_PDF12 = temp_PDF12*B1_Ds_b1n1*B1_omega12*B1_1V13;
2048 temp_PDF13 = temp_PDF13*B1_Ds_b1n1*B1_omega13*B1_1V23;
2049 temp_PDF21 = temp_PDF21*B1_Ds_b1n2*B1_omega21*B1_2V12;
2050 temp_PDF22 = temp_PDF22*B1_Ds_b1n2*B1_omega22*B1_2V13;
2051 temp_PDF23 = temp_PDF23*B1_Ds_b1n2*B1_omega23*B1_2V23;
2052 temp_PDF31 = temp_PDF31*B1_Ds_b1n3*B1_omega31*B1_3V12;
2053 temp_PDF32 = temp_PDF32*B1_Ds_b1n3*B1_omega32*B1_3V13;
2054 temp_PDF33 = temp_PDF33*B1_Ds_b1n3*B1_omega33*B1_3V23;
2055 temp_PDF41 = temp_PDF41*B1_Ds_b1n4*B1_omega41*B1_4V12;
2056 temp_PDF42 = temp_PDF42*B1_Ds_b1n4*B1_omega42*B1_4V13;
2057 temp_PDF43 = temp_PDF43*B1_Ds_b1n4*B1_omega43*B1_4V23;
2058 }
2059 else if(g2[i]==2)
2060 {
2061 if(B1_omega11==-1) { B1_omega11=BarrierN(1,somega1,srho11,sPim,rRes2,mass2[i]); B1_omega12=BarrierN(1,somega1,srho12,sPi01,rRes2,mass2[i]); B1_omega13=BarrierN(1,somega1,srho13,sPip1,rRes2,mass2[i]);
2062 B1_omega21=BarrierN(1,somega2,srho21,sPim,rRes2,mass2[i]); B1_omega22=BarrierN(1,somega2,srho22,sPi02,rRes2,mass2[i]); B1_omega23=BarrierN(1,somega2,srho23,sPip1,rRes2,mass2[i]);
2063 B1_omega31=BarrierN(1,somega3,srho31,sPim,rRes2,mass2[i]); B1_omega32=BarrierN(1,somega3,srho32,sPi01,rRes2,mass2[i]); B1_omega33=BarrierN(1,somega3,srho33,sPip2,rRes2,mass2[i]);
2064 B1_omega41=BarrierN(1,somega4,srho41,sPim,rRes2,mass2[i]); B1_omega42=BarrierN(1,somega4,srho42,sPi02,rRes2,mass2[i]); B1_omega43=BarrierN(1,somega4,srho43,sPip2,rRes2,mass2[i]);
2065 }
2066 if(B1_Ds_b1n1==-1) { B1_Ds_b1n1=BarrierN(1,sDs,sb1n1,sPip2,rDs2,mDsM); B1_Ds_b1n2=BarrierN(1,sDs,sb1n2,sPip2,rDs2,mDsM); B1_Ds_b1n3=BarrierN(1,sDs,sb1n3,sPip1,rDs2,mDsM); B1_Ds_b1n4=BarrierN(1,sDs,sb1n4,sPip1,rDs2,mDsM); }
2067 if(B2_b1n1==-1) { B2_b1n1=BarrierN(2,sb1n1,somega1,sPi02,rRes2,mass1[i]); B2_b1n2=BarrierN(2,sb1n2,somega2,sPi01,rRes2,mass1[i]); B2_b1n3=BarrierN(2,sb1n3,somega3,sPi02,rRes2,mass1[i]); B2_b1n4=BarrierN(2,sb1n4,somega4,sPi01,rRes2,mass1[i]); }
2068
2069 calt1(prho11,Pim,t1omega11); calt1(prho12,Pi01,t1omega12); calt1(prho13,Pip1,t1omega13);
2070 calt1(prho21,Pim,t1omega21); calt1(prho22,Pi02,t1omega22); calt1(prho23,Pip1,t1omega23);
2071 calt1(prho31,Pim,t1omega31); calt1(prho32,Pi01,t1omega32); calt1(prho23,Pip2,t1omega33);
2072 calt1(prho41,Pim,t1omega41); calt1(prho42,Pi02,t1omega42); calt1(prho43,Pip2,t1omega43);
2073 calt1(Pip1,Pi01,t1rho11); calt1(Pip1,Pim,t1rho12); calt1(Pi01,Pim,t1rho13);
2074 calt1(Pip1,Pi02,t1rho21); calt1(Pip1,Pim,t1rho22); calt1(Pi02,Pim,t1rho23);
2075 calt1(Pip2,Pi01,t1rho31); calt1(Pip2,Pim,t1rho32); calt1(Pi01,Pim,t1rho33);
2076 calt1(Pip2,Pi02,t1rho41); calt1(Pip2,Pim,t1rho42); calt1(Pi02,Pim,t1rho43);
2077 calG2(prho11,Pim,p1omega11); calG2(prho12,Pi01,p1omega12); calG2(prho13,Pip1,p1omega13);
2078 calG2(prho21,Pim,p1omega21); calG2(prho22,Pi02,p1omega22); calG2(prho23,Pip1,p1omega23);
2079 calG2(prho31,Pim,p1omega31); calG2(prho32,Pi01,p1omega32); calG2(prho33,Pip2,p1omega33);
2080 calG2(prho41,Pim,p1omega41); calG2(prho42,Pi02,p1omega42); calG2(prho43,Pip2,p1omega43);
2081
2082 calt2(pomega1,Pi02,t2b1n1); calt2(pomega2,Pi01,t2b1n2); calt2(pomega3,Pi02,t2b1n3); calt2(pomega4,Pi01,t2b1n4);
2083 calt1(pb1n1,Pip2,t1Ds_b1n1); calt1(pb1n2,Pip2,t1Ds_b1n2); calt1(pb1n3,Pip1,t1Ds_b1n3); calt1(pb1n4,Pip1,t1Ds_b1n4);
2084
2085 for(int i=0; i<4; i++)
2086 {
2087 for(int j=0; j<4; j++)
2088 {
2089 double tempomega1 = pomega1[j]*G[j][j]*G[i][i];
2090 double tempomega2 = pomega2[j]*G[j][j]*G[i][i];
2091 double tempomega3 = pomega3[j]*G[j][j]*G[i][i];
2092 double tempomega4 = pomega4[j]*G[j][j]*G[i][i];
2093
2094 for(int k=0; k<4; k++)
2095 {
2096 double temt1omega11 = t1omega11[k]*G[k][k];
2097 double temt1omega12 = t1omega12[k]*G[k][k];
2098 double temt1omega13 = t1omega13[k]*G[k][k];
2099 double temt1omega21 = t1omega21[k]*G[k][k];
2100 double temt1omega22 = t1omega22[k]*G[k][k];
2101 double temt1omega23 = t1omega23[k]*G[k][k];
2102 double temt1omega31 = t1omega31[k]*G[k][k];
2103 double temt1omega32 = t1omega32[k]*G[k][k];
2104 double temt1omega33 = t1omega33[k]*G[k][k];
2105 double temt1omega41 = t1omega41[k]*G[k][k];
2106 double temt1omega42 = t1omega42[k]*G[k][k];
2107 double temt1omega43 = t1omega43[k]*G[k][k];
2108
2109 for(int l=0; l<4; l++)
2110 {
2111 double temt1rho11 = t1rho11[l]*G[l][l]*E[i][j][k][l];
2112 double temt1rho12 = t1rho12[l]*G[l][l]*E[i][j][k][l];
2113 double temt1rho13 = t1rho13[l]*G[l][l]*E[i][j][k][l];
2114 double temt1rho21 = t1rho21[l]*G[l][l]*E[i][j][k][l];
2115 double temt1rho22 = t1rho22[l]*G[l][l]*E[i][j][k][l];
2116 double temt1rho23 = t1rho23[l]*G[l][l]*E[i][j][k][l];
2117 double temt1rho31 = t1rho31[l]*G[l][l]*E[i][j][k][l];
2118 double temt1rho32 = t1rho32[l]*G[l][l]*E[i][j][k][l];
2119 double temt1rho33 = t1rho33[l]*G[l][l]*E[i][j][k][l];
2120 double temt1rho41 = t1rho41[l]*G[l][l]*E[i][j][k][l];
2121 double temt1rho42 = t1rho42[l]*G[l][l]*E[i][j][k][l];
2122 double temt1rho43 = t1rho43[l]*G[l][l]*E[i][j][k][l];
2123
2124 for(int m=0; m<4; m++)
2125 {
2126 double temt1Ds_b1n1 = t1Ds_b1n1[m]*G[m][m];
2127 double temt1Ds_b1n2 = t1Ds_b1n2[m]*G[m][m];
2128 double temt1Ds_b1n3 = t1Ds_b1n3[m]*G[m][m];
2129 double temt1Ds_b1n4 = t1Ds_b1n4[m]*G[m][m];
2130
2131 for(int n=0; n<4; n++)
2132 {
2133 if((i==j)||(i==k)||(i==l)||(j==k)||(j==l)||(k==l)) continue;
2134 temp_PDF11 += temt1Ds_b1n1*t2b1n1[m][n]*p1omega11[n][i]*tempomega1*temt1omega11*temt1rho11*G[n][n];
2135 temp_PDF12 += temt1Ds_b1n1*t2b1n1[m][n]*p1omega12[n][i]*tempomega1*temt1omega12*temt1rho12*G[n][n];
2136 temp_PDF13 += temt1Ds_b1n1*t2b1n1[m][n]*p1omega13[n][i]*tempomega1*temt1omega13*temt1rho13*G[n][n];
2137 temp_PDF21 += temt1Ds_b1n2*t2b1n2[m][n]*p1omega21[n][i]*tempomega2*temt1omega21*temt1rho21*G[n][n];
2138 temp_PDF22 += temt1Ds_b1n2*t2b1n2[m][n]*p1omega22[n][i]*tempomega2*temt1omega22*temt1rho22*G[n][n];
2139 temp_PDF23 += temt1Ds_b1n2*t2b1n2[m][n]*p1omega23[n][i]*tempomega2*temt1omega23*temt1rho23*G[n][n];
2140 temp_PDF31 += temt1Ds_b1n3*t2b1n3[m][n]*p1omega31[n][i]*tempomega3*temt1omega31*temt1rho31*G[n][n];
2141 temp_PDF32 += temt1Ds_b1n3*t2b1n3[m][n]*p1omega32[n][i]*tempomega3*temt1omega32*temt1rho32*G[n][n];
2142 temp_PDF33 += temt1Ds_b1n3*t2b1n3[m][n]*p1omega33[n][i]*tempomega3*temt1omega33*temt1rho33*G[n][n];
2143 temp_PDF41 += temt1Ds_b1n4*t2b1n4[m][n]*p1omega41[n][i]*tempomega4*temt1omega41*temt1rho41*G[n][n];
2144 temp_PDF42 += temt1Ds_b1n4*t2b1n4[m][n]*p1omega42[n][i]*tempomega4*temt1omega42*temt1rho42*G[n][n];
2145 temp_PDF43 += temt1Ds_b1n4*t2b1n4[m][n]*p1omega43[n][i]*tempomega4*temt1omega43*temt1rho43*G[n][n];
2146 }
2147 }
2148 }
2149 }
2150 }
2151 }
2152 temp_PDF11 = temp_PDF11*B1_Ds_b1n1*B2_b1n1*B1_omega11*B1_1V12;
2153 temp_PDF12 = temp_PDF12*B1_Ds_b1n1*B2_b1n1*B1_omega12*B1_1V13;
2154 temp_PDF13 = temp_PDF13*B1_Ds_b1n1*B2_b1n1*B1_omega13*B1_1V23;
2155 temp_PDF21 = temp_PDF21*B1_Ds_b1n2*B2_b1n2*B1_omega21*B1_2V12;
2156 temp_PDF22 = temp_PDF22*B1_Ds_b1n2*B2_b1n2*B1_omega22*B1_2V13;
2157 temp_PDF23 = temp_PDF23*B1_Ds_b1n2*B2_b1n2*B1_omega23*B1_2V23;
2158 temp_PDF31 = temp_PDF31*B1_Ds_b1n3*B2_b1n3*B1_omega31*B1_3V12;
2159 temp_PDF32 = temp_PDF32*B1_Ds_b1n3*B2_b1n3*B1_omega32*B1_3V13;
2160 temp_PDF33 = temp_PDF33*B1_Ds_b1n3*B2_b1n3*B1_omega33*B1_3V23;
2161 temp_PDF41 = temp_PDF41*B1_Ds_b1n4*B2_b1n4*B1_omega41*B1_4V12;
2162 temp_PDF42 = temp_PDF42*B1_Ds_b1n4*B2_b1n4*B1_omega42*B1_4V13;
2163 temp_PDF43 = temp_PDF43*B1_Ds_b1n4*B2_b1n4*B1_omega43*B1_4V23;
2164 }
2165 if(g0[i]==1) {
2166 propagatorRBW(mass1sq,mass1[i],width1[i],sb1n1,somega1,sPi02,rRes2,g2[i],pro0_1);
2167 propagatorRBW(mass1sq,mass1[i],width1[i],sb1n2,somega2,sPi01,rRes2,g2[i],pro0_2);
2168 propagatorRBW(mass1sq,mass1[i],width1[i],sb1n3,somega3,sPi02,rRes2,g2[i],pro0_3);
2169 propagatorRBW(mass1sq,mass1[i],width1[i],sb1n4,somega4,sPi01,rRes2,g2[i],pro0_4);
2170 } else if(g0[i]==0) {
2171 pro0_1[0] = 1; pro0_1[1] = 0;
2172 pro0_2[0] = 1; pro0_2[1] = 0;
2173 pro0_3[0] = 1; pro0_3[1] = 0;
2174 pro0_4[0] = 1; pro0_4[1] = 0;
2175 }
2176 if(g1[i]==1) {
2177 propagator(mass2sq,mass2[i],width2[i],somega1,pro1_11);
2178 propagator(mass2sq,mass2[i],width2[i],somega1,pro1_12);
2179 propagator(mass2sq,mass2[i],width2[i],somega1,pro1_13);
2180 propagator(mass2sq,mass2[i],width2[i],somega2,pro1_21);
2181 propagator(mass2sq,mass2[i],width2[i],somega2,pro1_22);
2182 propagator(mass2sq,mass2[i],width2[i],somega2,pro1_23);
2183 propagator(mass2sq,mass2[i],width2[i],somega3,pro1_31);
2184 propagator(mass2sq,mass2[i],width2[i],somega3,pro1_32);
2185 propagator(mass2sq,mass2[i],width2[i],somega3,pro1_33);
2186 propagator(mass2sq,mass2[i],width2[i],somega4,pro1_41);
2187 propagator(mass2sq,mass2[i],width2[i],somega4,pro1_42);
2188 propagator(mass2sq,mass2[i],width2[i],somega4,pro1_43);
2189 } else if(g1[i]==0) {
2190 pro1_11[0] = 1; pro1_11[1] = 0; pro1_12[0] = 1; pro1_12[1] = 0; pro1_13[0] = 1; pro1_13[1] = 0;
2191 pro1_21[0] = 1; pro1_21[1] = 0; pro1_22[0] = 1; pro1_22[1] = 0; pro1_23[0] = 1; pro1_23[1] = 0;
2192 pro1_31[0] = 1; pro1_31[1] = 0; pro1_32[0] = 1; pro1_32[1] = 0; pro1_33[0] = 1; pro1_33[1] = 0;
2193 pro1_41[0] = 1; pro1_41[1] = 0; pro1_42[0] = 1; pro1_42[1] = 0; pro1_43[0] = 1; pro1_43[1] = 0;
2194 }
2195 Com_Multi(pro0_1,pro1_11,tpro_11); Com_Multi(tpro_11,pro1V12,pro_11);
2196 Com_Multi(pro0_1,pro1_12,tpro_12); Com_Multi(tpro_12,pro1V13,pro_12);
2197 Com_Multi(pro0_1,pro1_13,tpro_13); Com_Multi(tpro_13,pro1V23,pro_13);
2198 Com_Multi(pro0_2,pro1_21,tpro_21); Com_Multi(tpro_21,pro2V12,pro_21);
2199 Com_Multi(pro0_2,pro1_22,tpro_22); Com_Multi(tpro_22,pro2V13,pro_22);
2200 Com_Multi(pro0_2,pro1_23,tpro_23); Com_Multi(tpro_23,pro2V23,pro_23);
2201 Com_Multi(pro0_3,pro1_31,tpro_31); Com_Multi(tpro_31,pro3V12,pro_31);
2202 Com_Multi(pro0_3,pro1_32,tpro_32); Com_Multi(tpro_32,pro3V13,pro_32);
2203 Com_Multi(pro0_3,pro1_33,tpro_33); Com_Multi(tpro_33,pro3V23,pro_33);
2204 Com_Multi(pro0_4,pro1_41,tpro_41); Com_Multi(tpro_41,pro4V12,pro_41);
2205 Com_Multi(pro0_4,pro1_42,tpro_42); Com_Multi(tpro_42,pro4V13,pro_42);
2206 Com_Multi(pro0_4,pro1_43,tpro_43); Com_Multi(tpro_43,pro4V23,pro_43);
2207 amp_tmp1[0] = (temp_PDF11*pro_11[0] + temp_PDF12*pro_12[0] + temp_PDF13*pro_13[0]);
2208 amp_tmp1[1] = (temp_PDF11*pro_11[1] + temp_PDF12*pro_12[1] + temp_PDF13*pro_13[1]);
2209 amp_tmp2[0] = (temp_PDF21*pro_21[0] + temp_PDF22*pro_22[0] + temp_PDF23*pro_23[0]);
2210 amp_tmp2[1] = (temp_PDF21*pro_21[1] + temp_PDF22*pro_22[1] + temp_PDF23*pro_23[1]);
2211 amp_tmp3[0] = (temp_PDF31*pro_31[0] + temp_PDF32*pro_32[0] + temp_PDF33*pro_33[0]);
2212 amp_tmp3[1] = (temp_PDF31*pro_31[1] + temp_PDF32*pro_32[1] + temp_PDF33*pro_33[1]);
2213 amp_tmp4[0] = (temp_PDF41*pro_41[0] + temp_PDF42*pro_42[0] + temp_PDF43*pro_43[0]);
2214 amp_tmp4[1] = (temp_PDF41*pro_41[1] + temp_PDF42*pro_42[1] + temp_PDF43*pro_43[1]);
2215
2216 }
2217 else if(modetype[i]==8){
2218 if (g2[i]==0)
2219 {
2220
2221 if(B1_phi11==-1) { B1_phi11=BarrierN(1,sphi1,srho11,sPim,rRes2,mass1[i]); B1_phi12=BarrierN(1,sphi1,srho12,sPi01,rRes2,mass1[i]); B1_phi13=BarrierN(1,sphi1,srho13,sPip1,rRes2,mass1[i]);
2222 B1_phi21=BarrierN(1,sphi2,srho21,sPim,rRes2,mass1[i]); B1_phi22=BarrierN(1,sphi2,srho22,sPi02,rRes2,mass1[i]); B1_phi23=BarrierN(1,sphi2,srho23,sPip1,rRes2,mass1[i]);
2223 B1_phi31=BarrierN(1,sphi3,srho31,sPim,rRes2,mass1[i]); B1_phi32=BarrierN(1,sphi3,srho32,sPi01,rRes2,mass1[i]); B1_phi33=BarrierN(1,sphi3,srho33,sPip2,rRes2,mass1[i]);
2224 B1_phi41=BarrierN(1,sphi4,srho41,sPim,rRes2,mass1[i]); B1_phi42=BarrierN(1,sphi4,srho42,sPi02,rRes2,mass1[i]); B1_phi43=BarrierN(1,sphi4,srho43,sPip2,rRes2,mass1[i]);
2225 }
2226 if(B1_rho1==-1) { B1_rho1=BarrierN(1,srho1,sPip2,sPi02,rRes2,mass2[i]); B1_rho2=BarrierN(1,srho2,sPip2,sPi01,rRes2,mass2[i]); B1_rho3=BarrierN(1,srho3,sPip1,sPi02,rRes2,mass2[i]); B1_rho4=BarrierN(1,srho4,sPip1,sPi01,rRes2,mass2[i]);
2227 }
2228 calt1(Pip2,Pi02,t1rho1); calt1(Pip2,Pi01,t1rho2); calt1(Pip1,Pi02,t1rho3); calt1(Pip1,Pi01,t1rho4);
2229 calt1(prho11,Pim,t1phi11); calt1(prho12,Pi01,t1phi12); calt1(prho13,Pip1,t1phi13);
2230 calt1(prho21,Pim,t1phi21); calt1(prho22,Pi02,t1phi22); calt1(prho23,Pip1,t1phi23);
2231 calt1(prho31,Pim,t1phi31); calt1(prho32,Pi01,t1phi32); calt1(prho33,Pip2,t1phi33);
2232 calt1(prho41,Pim,t1phi41); calt1(prho42,Pi02,t1phi42); calt1(prho43,Pip2,t1phi43);
2233 calt1(Pip1,Pi01,t1rho11); calt1(Pip1,Pim,t1rho12); calt1(Pi01,Pim,t1rho13);
2234 calt1(Pip1,Pi02,t1rho21); calt1(Pip1,Pim,t1rho22); calt1(Pi02,Pim,t1rho23);
2235 calt1(Pip2,Pi01,t1rho31); calt1(Pip2,Pim,t1rho32); calt1(Pi01,Pim,t1rho33);
2236 calt1(Pip2,Pi02,t1rho41); calt1(Pip2,Pim,t1rho42); calt1(Pi02,Pim,t1rho43);
2237 calG2(prho11,Pim,p1phi11); calG2(prho12,Pi01,p1phi12); calG2(prho13,Pip1,p1phi13);
2238 calG2(prho21,Pim,p1phi21); calG2(prho22,Pi02,p1phi22); calG2(prho23,Pip1,p1phi23);
2239 calG2(prho31,Pim,p1phi31); calG2(prho32,Pi01,p1phi32); calG2(prho33,Pip2,p1phi33);
2240 calG2(prho41,Pim,p1phi41); calG2(prho42,Pi02,p1phi42); calG2(prho43,Pip2,p1phi43);
2241
2242
2243 for(int i=0; i<4; i++)
2244 {
2245 for(int j=0; j<4; j++)
2246 {
2247 double tempphi1 = pphi1[j]*G[j][j]*G[i][i];
2248 double tempphi2 = pphi2[j]*G[j][j]*G[i][i];
2249 double tempphi3 = pphi3[j]*G[j][j]*G[i][i];
2250 double tempphi4 = pphi4[j]*G[j][j]*G[i][i];
2251
2252 for(int k=0; k<4; k++)
2253 {
2254 double temt1phi11 = t1phi11[k]*G[k][k];
2255 double temt1phi12 = t1phi12[k]*G[k][k];
2256 double temt1phi13 = t1phi13[k]*G[k][k];
2257 double temt1phi21 = t1phi21[k]*G[k][k];
2258 double temt1phi22 = t1phi22[k]*G[k][k];
2259 double temt1phi23 = t1phi23[k]*G[k][k];
2260 double temt1phi31 = t1phi31[k]*G[k][k];
2261 double temt1phi32 = t1phi32[k]*G[k][k];
2262 double temt1phi33 = t1phi33[k]*G[k][k];
2263 double temt1phi41 = t1phi41[k]*G[k][k];
2264 double temt1phi42 = t1phi42[k]*G[k][k];
2265 double temt1phi43 = t1phi43[k]*G[k][k];
2266
2267 for(int l=0; l<4; l++)
2268 {
2269 double temt1rho11 = t1rho11[l]*G[l][l]*E[i][j][k][l];
2270 double temt1rho12 = t1rho12[l]*G[l][l]*E[i][j][k][l];
2271 double temt1rho13 = t1rho13[l]*G[l][l]*E[i][j][k][l];
2272 double temt1rho21 = t1rho21[l]*G[l][l]*E[i][j][k][l];
2273 double temt1rho22 = t1rho22[l]*G[l][l]*E[i][j][k][l];
2274 double temt1rho23 = t1rho23[l]*G[l][l]*E[i][j][k][l];
2275 double temt1rho31 = t1rho31[l]*G[l][l]*E[i][j][k][l];
2276 double temt1rho32 = t1rho32[l]*G[l][l]*E[i][j][k][l];
2277 double temt1rho33 = t1rho33[l]*G[l][l]*E[i][j][k][l];
2278 double temt1rho41 = t1rho41[l]*G[l][l]*E[i][j][k][l];
2279 double temt1rho42 = t1rho42[l]*G[l][l]*E[i][j][k][l];
2280 double temt1rho43 = t1rho43[l]*G[l][l]*E[i][j][k][l];
2281
2282 for(int m=0; m<4; m++)
2283 {
2284 if((i==j)||(i==k)||(i==l)||(j==k)||(j==l)||(k==l)) continue;
2285 temp_PDF11 += G[m][m]*t1rho1[m]*p1phi11[m][i]*tempphi1*temt1phi11*temt1rho11;
2286 temp_PDF12 += G[m][m]*t1rho1[m]*p1phi12[m][i]*tempphi1*temt1phi12*temt1rho12;
2287 temp_PDF13 += G[m][m]*t1rho1[m]*p1phi13[m][i]*tempphi1*temt1phi13*temt1rho13;
2288 temp_PDF21 += G[m][m]*t1rho2[m]*p1phi21[m][i]*tempphi2*temt1phi21*temt1rho21;
2289 temp_PDF22 += G[m][m]*t1rho2[m]*p1phi22[m][i]*tempphi2*temt1phi22*temt1rho22;
2290 temp_PDF23 += G[m][m]*t1rho2[m]*p1phi23[m][i]*tempphi2*temt1phi23*temt1rho23;
2291 temp_PDF31 += G[m][m]*t1rho3[m]*p1phi31[m][i]*tempphi3*temt1phi31*temt1rho31;
2292 temp_PDF32 += G[m][m]*t1rho3[m]*p1phi32[m][i]*tempphi3*temt1phi32*temt1rho32;
2293 temp_PDF33 += G[m][m]*t1rho3[m]*p1phi33[m][i]*tempphi3*temt1phi33*temt1rho33;
2294 temp_PDF41 += G[m][m]*t1rho4[m]*p1phi41[m][i]*tempphi4*temt1phi41*temt1rho41;
2295 temp_PDF42 += G[m][m]*t1rho4[m]*p1phi42[m][i]*tempphi4*temt1phi42*temt1rho42;
2296 temp_PDF43 += G[m][m]*t1rho4[m]*p1phi43[m][i]*tempphi4*temt1phi43*temt1rho43;
2297 }
2298 }
2299 }
2300 }
2301 }
2302 temp_PDF11 = temp_PDF11*B1_phi11*B1_rho1*B1_1V12;
2303 temp_PDF12 = temp_PDF12*B1_phi12*B1_rho1*B1_1V13;
2304 temp_PDF13 = temp_PDF13*B1_phi13*B1_rho1*B1_1V23;
2305 temp_PDF21 = temp_PDF21*B1_phi21*B1_rho2*B1_2V12;
2306 temp_PDF22 = temp_PDF22*B1_phi22*B1_rho2*B1_2V13;
2307 temp_PDF23 = temp_PDF23*B1_phi23*B1_rho2*B1_2V23;
2308 temp_PDF31 = temp_PDF31*B1_phi31*B1_rho3*B1_3V12;
2309 temp_PDF32 = temp_PDF32*B1_phi32*B1_rho3*B1_3V13;
2310 temp_PDF33 = temp_PDF33*B1_phi33*B1_rho3*B1_3V23;
2311 temp_PDF41 = temp_PDF41*B1_phi41*B1_rho4*B1_4V12;
2312 temp_PDF42 = temp_PDF42*B1_phi42*B1_rho4*B1_4V13;
2313 temp_PDF43 = temp_PDF43*B1_phi43*B1_rho4*B1_4V23;
2314 }
2315 else if (g2[i]==1)
2316 {
2317
2318 if(B1_phi11==-1) { B1_phi11=BarrierN(1,sphi1,srho11,sPim,rRes2,mass1[i]); B1_phi12=BarrierN(1,sphi1,srho12,sPi01,rRes2,mass1[i]); B1_phi13=BarrierN(1,sphi1,srho13,sPip1,rRes2,mass1[i]);
2319 B1_phi21=BarrierN(1,sphi2,srho21,sPim,rRes2,mass1[i]); B1_phi22=BarrierN(1,sphi2,srho22,sPi02,rRes2,mass1[i]); B1_phi23=BarrierN(1,sphi2,srho23,sPip1,rRes2,mass1[i]);
2320 B1_phi31=BarrierN(1,sphi3,srho31,sPim,rRes2,mass1[i]); B1_phi32=BarrierN(1,sphi3,srho32,sPi01,rRes2,mass1[i]); B1_phi33=BarrierN(1,sphi3,srho33,sPip2,rRes2,mass1[i]);
2321 B1_phi41=BarrierN(1,sphi4,srho41,sPim,rRes2,mass1[i]); B1_phi42=BarrierN(1,sphi4,srho42,sPi02,rRes2,mass1[i]); B1_phi43=BarrierN(1,sphi4,srho43,sPip2,rRes2,mass1[i]);
2322 }
2323 if(B1_rho1==-1) { B1_rho1=BarrierN(1,srho1,sPip2,sPi02,rRes2,mass2[i]); B1_rho2=BarrierN(1,srho2,sPip2,sPi01,rRes2,mass2[i]); B1_rho3=BarrierN(1,srho3,sPip1,sPi02,rRes2,mass2[i]); B1_rho4=BarrierN(1,srho4,sPip1,sPi01,rRes2,mass2[i]);
2324 }
2325 if(B1_Ds_phi1==-1) { B1_Ds_phi1=BarrierN(1,sDs,sphi1,srho1,rDs2,mDsM); B1_Ds_phi2=BarrierN(1,sDs,sphi2,srho2,rDs2,mDsM); B1_Ds_phi3=BarrierN(1,sDs,sphi3,srho3,rDs2,mDsM); B1_Ds_phi4=BarrierN(1,sDs,sphi4,srho4,rDs2,mDsM);
2326 }
2327 calt1(Pip2,Pi02,t1rho1); calt1(Pip2,Pi01,t1rho2); calt1(Pip1,Pi02,t1rho3); calt1(Pip1,Pi01,t1rho4);
2328 calt1(prho11,Pim,t1phi11); calt1(prho12,Pi01,t1phi12); calt1(prho13,Pip1,t1phi13);
2329 calt1(prho21,Pim,t1phi21); calt1(prho22,Pi02,t1phi22); calt1(prho23,Pip1,t1phi23);
2330 calt1(prho31,Pim,t1phi31); calt1(prho32,Pi01,t1phi32); calt1(prho33,Pip2,t1phi33);
2331 calt1(prho41,Pim,t1phi41); calt1(prho42,Pi02,t1phi42); calt1(prho43,Pip2,t1phi43);
2332 calt1(Pip1,Pi01,t1rho11); calt1(Pip1,Pim,t1rho12); calt1(Pi01,Pim,t1rho13);
2333 calt1(Pip1,Pi02,t1rho21); calt1(Pip1,Pim,t1rho22); calt1(Pi02,Pim,t1rho23);
2334 calt1(Pip2,Pi01,t1rho31); calt1(Pip2,Pim,t1rho32); calt1(Pi01,Pim,t1rho33);
2335 calt1(Pip2,Pi02,t1rho41); calt1(Pip2,Pim,t1rho42); calt1(Pi02,Pim,t1rho43);
2336 calG2(prho11,Pim,p1phi11); calG2(prho12,Pi01,p1phi12); calG2(prho13,Pip1,p1phi13);
2337 calG2(prho21,Pim,p1phi21); calG2(prho22,Pi02,p1phi22); calG2(prho23,Pip1,p1phi23);
2338 calG2(prho31,Pim,p1phi31); calG2(prho32,Pi01,p1phi32); calG2(prho33,Pip2,p1phi33);
2339 calG2(prho41,Pim,p1phi41); calG2(prho42,Pi02,p1phi42); calG2(prho43,Pip2,p1phi43);
2340 calt1(pphi1,prho1,t1Ds_phi1); calt1(pphi2,prho2,t1Ds_phi2); calt1(pphi3,prho3,t1Ds_phi3); calt1(pphi4,prho4,t1Ds_phi4);
2341
2342
2343 for(int i=0; i<4; i++)
2344 {
2345 double tempDs = pDs[i]*G[i][i];
2346
2347 for(int j=0; j<4; j++)
2348 {
2349 double temt1rho1 = t1rho1[j]*G[j][j];
2350 double temt1rho2 = t1rho2[j]*G[j][j];
2351 double temt1rho3 = t1rho3[j]*G[j][j];
2352 double temt1rho4 = t1rho4[j]*G[j][j];
2353
2354 for(int k=0; k<4; k++)
2355 {
2356 double temt1Ds_phi1 = t1Ds_phi1[k]*G[k][k];
2357 double temt1Ds_phi2 = t1Ds_phi2[k]*G[k][k];
2358 double temt1Ds_phi3 = t1Ds_phi3[k]*G[k][k];
2359 double temt1Ds_phi4 = t1Ds_phi4[k]*G[k][k];
2360
2361 for(int l=0; l<4; l++)
2362 {
2363 for(int m=0; m<4; m++)
2364 {
2365 double temp1phi11 = p1phi11[l][m]*G[l][l]*G[m][m]*E[i][j][k][l];
2366 double temp1phi12 = p1phi12[l][m]*G[l][l]*G[m][m]*E[i][j][k][l];
2367 double temp1phi13 = p1phi13[l][m]*G[l][l]*G[m][m]*E[i][j][k][l];
2368 double temp1phi21 = p1phi21[l][m]*G[l][l]*G[m][m]*E[i][j][k][l];
2369 double temp1phi22 = p1phi22[l][m]*G[l][l]*G[m][m]*E[i][j][k][l];
2370 double temp1phi23 = p1phi23[l][m]*G[l][l]*G[m][m]*E[i][j][k][l];
2371 double temp1phi31 = p1phi31[l][m]*G[l][l]*G[m][m]*E[i][j][k][l];
2372 double temp1phi32 = p1phi32[l][m]*G[l][l]*G[m][m]*E[i][j][k][l];
2373 double temp1phi33 = p1phi33[l][m]*G[l][l]*G[m][m]*E[i][j][k][l];
2374 double temp1phi41 = p1phi41[l][m]*G[l][l]*G[m][m]*E[i][j][k][l];
2375 double temp1phi42 = p1phi42[l][m]*G[l][l]*G[m][m]*E[i][j][k][l];
2376 double temp1phi43 = p1phi43[l][m]*G[l][l]*G[m][m]*E[i][j][k][l];
2377
2378 for(int n=0; n<4; n++)
2379 {
2380 double tempphi1 = pphi1[n]*G[n][n];
2381 double tempphi2 = pphi2[n]*G[n][n];
2382 double tempphi3 = pphi3[n]*G[n][n];
2383 double tempphi4 = pphi4[n]*G[n][n];
2384
2385 for(int p=0; p<4; p++)
2386 {
2387 double temt1phi11 = t1phi11[p]*G[p][p];
2388 double temt1phi12 = t1phi12[p]*G[p][p];
2389 double temt1phi13 = t1phi13[p]*G[p][p];
2390 double temt1phi21 = t1phi21[p]*G[p][p];
2391 double temt1phi22 = t1phi22[p]*G[p][p];
2392 double temt1phi23 = t1phi23[p]*G[p][p];
2393 double temt1phi31 = t1phi31[p]*G[p][p];
2394 double temt1phi32 = t1phi32[p]*G[p][p];
2395 double temt1phi33 = t1phi33[p]*G[p][p];
2396 double temt1phi41 = t1phi41[p]*G[p][p];
2397 double temt1phi42 = t1phi42[p]*G[p][p];
2398 double temt1phi43 = t1phi43[p]*G[p][p];
2399
2400 for(int q=0; q<4; q++)
2401 {
2402 if((i==j)||(i==k)||(i==l)||(j==k)||(j==l)||(k==l)) continue;
2403 if((m==n)||(m==p)||(m==q)||(n==p)||(n==q)||(p==q)) continue;
2404 temp_PDF11 += tempDs*temt1rho1*temt1Ds_phi1*temp1phi11*E[m][n][p][q]*tempphi1*temt1phi11*t1rho11[q]*G[q][q];
2405 temp_PDF12 += tempDs*temt1rho1*temt1Ds_phi1*temp1phi12*E[m][n][p][q]*tempphi1*temt1phi12*t1rho12[q]*G[q][q];
2406 temp_PDF13 += tempDs*temt1rho1*temt1Ds_phi1*temp1phi13*E[m][n][p][q]*tempphi1*temt1phi13*t1rho13[q]*G[q][q];
2407 temp_PDF21 += tempDs*temt1rho2*temt1Ds_phi2*temp1phi21*E[m][n][p][q]*tempphi2*temt1phi21*t1rho21[q]*G[q][q];
2408 temp_PDF22 += tempDs*temt1rho2*temt1Ds_phi2*temp1phi22*E[m][n][p][q]*tempphi2*temt1phi22*t1rho22[q]*G[q][q];
2409 temp_PDF23 += tempDs*temt1rho2*temt1Ds_phi2*temp1phi23*E[m][n][p][q]*tempphi2*temt1phi23*t1rho23[q]*G[q][q];
2410 temp_PDF31 += tempDs*temt1rho3*temt1Ds_phi3*temp1phi31*E[m][n][p][q]*tempphi3*temt1phi31*t1rho31[q]*G[q][q];
2411 temp_PDF32 += tempDs*temt1rho3*temt1Ds_phi3*temp1phi32*E[m][n][p][q]*tempphi3*temt1phi32*t1rho32[q]*G[q][q];
2412 temp_PDF33 += tempDs*temt1rho3*temt1Ds_phi3*temp1phi33*E[m][n][p][q]*tempphi3*temt1phi33*t1rho33[q]*G[q][q];
2413 temp_PDF41 += tempDs*temt1rho4*temt1Ds_phi4*temp1phi41*E[m][n][p][q]*tempphi4*temt1phi41*t1rho41[q]*G[q][q];
2414 temp_PDF42 += tempDs*temt1rho4*temt1Ds_phi4*temp1phi42*E[m][n][p][q]*tempphi4*temt1phi42*t1rho42[q]*G[q][q];
2415 temp_PDF43 += tempDs*temt1rho4*temt1Ds_phi4*temp1phi43*E[m][n][p][q]*tempphi4*temt1phi43*t1rho43[q]*G[q][q];
2416 }
2417 }
2418 }
2419 }
2420 }
2421 }
2422 }
2423 }
2424 temp_PDF11 = temp_PDF11*B1_Ds_phi1*B1_phi11*B1_rho1*B1_1V12;
2425 temp_PDF12 = temp_PDF12*B1_Ds_phi1*B1_phi12*B1_rho1*B1_1V13;
2426 temp_PDF13 = temp_PDF13*B1_Ds_phi1*B1_phi13*B1_rho1*B1_1V23;
2427 temp_PDF21 = temp_PDF21*B1_Ds_phi2*B1_phi21*B1_rho2*B1_2V12;
2428 temp_PDF22 = temp_PDF22*B1_Ds_phi2*B1_phi22*B1_rho2*B1_2V13;
2429 temp_PDF23 = temp_PDF23*B1_Ds_phi2*B1_phi23*B1_rho2*B1_2V23;
2430 temp_PDF31 = temp_PDF31*B1_Ds_phi3*B1_phi31*B1_rho3*B1_3V12;
2431 temp_PDF32 = temp_PDF32*B1_Ds_phi3*B1_phi32*B1_rho3*B1_3V13;
2432 temp_PDF33 = temp_PDF33*B1_Ds_phi3*B1_phi33*B1_rho3*B1_3V23;
2433 temp_PDF41 = temp_PDF41*B1_Ds_phi4*B1_phi41*B1_rho4*B1_4V12;
2434 temp_PDF42 = temp_PDF42*B1_Ds_phi4*B1_phi42*B1_rho4*B1_4V13;
2435 temp_PDF43 = temp_PDF43*B1_Ds_phi4*B1_phi43*B1_rho4*B1_4V23;
2436 }
2437 else if (g2[i]==2)
2438 {
2439
2440 if(B1_phi11==-1) { B1_phi11=BarrierN(1,sphi1,srho11,sPim,rRes2,mass1[i]); B1_phi12=BarrierN(1,sphi1,srho12,sPi01,rRes2,mass1[i]); B1_phi13=BarrierN(1,sphi1,srho13,sPip1,rRes2,mass1[i]);
2441 B1_phi21=BarrierN(1,sphi2,srho21,sPim,rRes2,mass1[i]); B1_phi22=BarrierN(1,sphi2,srho22,sPi02,rRes2,mass1[i]); B1_phi23=BarrierN(1,sphi2,srho23,sPip1,rRes2,mass1[i]);
2442 B1_phi31=BarrierN(1,sphi3,srho31,sPim,rRes2,mass1[i]); B1_phi32=BarrierN(1,sphi3,srho32,sPi01,rRes2,mass1[i]); B1_phi33=BarrierN(1,sphi3,srho33,sPip2,rRes2,mass1[i]);
2443 B1_phi41=BarrierN(1,sphi4,srho41,sPim,rRes2,mass1[i]); B1_phi42=BarrierN(1,sphi4,srho42,sPi02,rRes2,mass1[i]); B1_phi43=BarrierN(1,sphi4,srho43,sPip2,rRes2,mass1[i]);
2444 }
2445 if(B1_rho1==-1) { B1_rho1=BarrierN(1,srho1,sPip2,sPi02,rRes2,mass2[i]); B1_rho2=BarrierN(1,srho2,sPip2,sPi01,rRes2,mass2[i]); B1_rho3=BarrierN(1,srho3,sPip1,sPi02,rRes2,mass2[i]); B1_rho4=BarrierN(1,srho4,sPip1,sPi01,rRes2,mass2[i]);
2446 }
2447 if(B2_Ds_phi1==-1){ B2_Ds_phi1=BarrierN(2,sDs,sphi1,srho1,rDs2,mDsM); B2_Ds_phi2=BarrierN(2,sDs,sphi2,srho2,rDs2,mDsM); B2_Ds_phi3=BarrierN(2,sDs,sphi3,srho3,rDs2,mDsM); B2_Ds_phi4=BarrierN(2,sDs,sphi4,srho4,rDs2,mDsM);
2448 }
2449
2450 calt1(Pip2,Pi02,t1rho1); calt1(Pip2,Pi01,t1rho2); calt1(Pip1,Pi02,t1rho3); calt1(Pip1,Pi01,t1rho4);
2451 calt1(prho11,Pim,t1phi11); calt1(prho12,Pi01,t1phi12); calt1(prho13,Pip1,t1phi13);
2452 calt1(prho21,Pim,t1phi21); calt1(prho22,Pi02,t1phi22); calt1(prho23,Pip1,t1phi23);
2453 calt1(prho31,Pim,t1phi31); calt1(prho32,Pi01,t1phi32); calt1(prho33,Pip2,t1phi33);
2454 calt1(prho41,Pim,t1phi41); calt1(prho42,Pi02,t1phi42); calt1(prho43,Pip2,t1phi43);
2455 calt1(Pip1,Pi01,t1rho11); calt1(Pip1,Pim,t1rho12); calt1(Pi01,Pim,t1rho13);
2456 calt1(Pip1,Pi02,t1rho21); calt1(Pip1,Pim,t1rho22); calt1(Pi02,Pim,t1rho23);
2457 calt1(Pip2,Pi01,t1rho31); calt1(Pip2,Pim,t1rho32); calt1(Pi01,Pim,t1rho33);
2458 calt1(Pip2,Pi02,t1rho41); calt1(Pip2,Pim,t1rho42); calt1(Pi02,Pim,t1rho43);
2459 calG2(prho11,Pim,p1phi11); calG2(prho12,Pi01,p1phi12); calG2(prho13,Pip1,p1phi13);
2460 calG2(prho21,Pim,p1phi21); calG2(prho22,Pi02,p1phi22); calG2(prho23,Pip1,p1phi23);
2461 calG2(prho31,Pim,p1phi31); calG2(prho32,Pi01,p1phi32); calG2(prho33,Pip2,p1phi33);
2462 calG2(prho41,Pim,p1phi41); calG2(prho42,Pi02,p1phi42); calG2(prho43,Pip2,p1phi43);
2463 calt2(pphi1,prho1,t2Ds_phi1); calt2(pphi2,prho2,t2Ds_phi2); calt2(pphi3,prho3,t2Ds_phi3); calt2(pphi4,prho4,t2Ds_phi4);
2464
2465
2466 for(int i=0; i<4; i++)
2467 {
2468 for(int j=0; j<4; j++)
2469 {
2470 double tempphi1 = pphi1[j]*G[j][j]*G[i][i];
2471 double tempphi2 = pphi2[j]*G[j][j]*G[i][i];
2472 double tempphi3 = pphi3[j]*G[j][j]*G[i][i];
2473 double tempphi4 = pphi4[j]*G[j][j]*G[i][i];
2474
2475 for(int k=0; k<4; k++)
2476 {
2477 double temt1phi11 = t1phi11[k]*G[k][k];
2478 double temt1phi12 = t1phi12[k]*G[k][k];
2479 double temt1phi13 = t1phi13[k]*G[k][k];
2480 double temt1phi21 = t1phi21[k]*G[k][k];
2481 double temt1phi22 = t1phi22[k]*G[k][k];
2482 double temt1phi23 = t1phi23[k]*G[k][k];
2483 double temt1phi31 = t1phi31[k]*G[k][k];
2484 double temt1phi32 = t1phi32[k]*G[k][k];
2485 double temt1phi33 = t1phi33[k]*G[k][k];
2486 double temt1phi41 = t1phi41[k]*G[k][k];
2487 double temt1phi42 = t1phi42[k]*G[k][k];
2488 double temt1phi43 = t1phi43[k]*G[k][k];
2489
2490 for(int l=0; l<4; l++)
2491 {
2492 double temt1rho11 = t1rho11[l]*G[l][l];
2493 double temt1rho12 = t1rho12[l]*G[l][l];
2494 double temt1rho13 = t1rho13[l]*G[l][l];
2495 double temt1rho21 = t1rho21[l]*G[l][l];
2496 double temt1rho22 = t1rho22[l]*G[l][l];
2497 double temt1rho23 = t1rho23[l]*G[l][l];
2498 double temt1rho31 = t1rho31[l]*G[l][l];
2499 double temt1rho32 = t1rho32[l]*G[l][l];
2500 double temt1rho33 = t1rho33[l]*G[l][l];
2501 double temt1rho41 = t1rho41[l]*G[l][l];
2502 double temt1rho42 = t1rho42[l]*G[l][l];
2503 double temt1rho43 = t1rho43[l]*G[l][l];
2504
2505 for(int m=0; m<4; m++)
2506 {
2507 double temt1rho1 = t1rho1[m]*G[m][m];
2508 double temt1rho2 = t1rho2[m]*G[m][m];
2509 double temt1rho3 = t1rho3[m]*G[m][m];
2510 double temt1rho4 = t1rho4[m]*G[m][m];
2511
2512 for(int n=0; n<4; n++)
2513 {
2514 if((i==j)||(i==k)||(i==l)||(j==k)||(j==l)||(k==l)) continue;
2515 temp_PDF11 += t2Ds_phi1[m][n]*temt1rho1*p1phi11[n][i]*E[i][j][k][l]*tempphi1*temt1phi11*temt1rho11*G[n][n];
2516 temp_PDF12 += t2Ds_phi1[m][n]*temt1rho1*p1phi12[n][i]*E[i][j][k][l]*tempphi1*temt1phi12*temt1rho12*G[n][n];
2517 temp_PDF13 += t2Ds_phi1[m][n]*temt1rho1*p1phi13[n][i]*E[i][j][k][l]*tempphi1*temt1phi13*temt1rho13*G[n][n];
2518 temp_PDF21 += t2Ds_phi2[m][n]*temt1rho2*p1phi21[n][i]*E[i][j][k][l]*tempphi2*temt1phi21*temt1rho21*G[n][n];
2519 temp_PDF22 += t2Ds_phi2[m][n]*temt1rho2*p1phi22[n][i]*E[i][j][k][l]*tempphi2*temt1phi22*temt1rho22*G[n][n];
2520 temp_PDF23 += t2Ds_phi2[m][n]*temt1rho2*p1phi23[n][i]*E[i][j][k][l]*tempphi2*temt1phi23*temt1rho23*G[n][n];
2521 temp_PDF31 += t2Ds_phi3[m][n]*temt1rho3*p1phi31[n][i]*E[i][j][k][l]*tempphi3*temt1phi31*temt1rho31*G[n][n];
2522 temp_PDF32 += t2Ds_phi3[m][n]*temt1rho3*p1phi32[n][i]*E[i][j][k][l]*tempphi3*temt1phi32*temt1rho32*G[n][n];
2523 temp_PDF33 += t2Ds_phi3[m][n]*temt1rho3*p1phi33[n][i]*E[i][j][k][l]*tempphi3*temt1phi33*temt1rho33*G[n][n];
2524 temp_PDF41 += t2Ds_phi4[m][n]*temt1rho4*p1phi41[n][i]*E[i][j][k][l]*tempphi4*temt1phi41*temt1rho41*G[n][n];
2525 temp_PDF42 += t2Ds_phi4[m][n]*temt1rho4*p1phi42[n][i]*E[i][j][k][l]*tempphi4*temt1phi42*temt1rho42*G[n][n];
2526 temp_PDF43 += t2Ds_phi4[m][n]*temt1rho4*p1phi43[n][i]*E[i][j][k][l]*tempphi4*temt1phi43*temt1rho43*G[n][n];
2527 }
2528 }
2529 }
2530 }
2531 }
2532 }
2533 temp_PDF11 = temp_PDF11*B2_Ds_phi1*B1_phi11*B1_rho1*B1_1V12;
2534 temp_PDF12 = temp_PDF12*B2_Ds_phi1*B1_phi12*B1_rho1*B1_1V13;
2535 temp_PDF13 = temp_PDF13*B2_Ds_phi1*B1_phi13*B1_rho1*B1_1V23;
2536 temp_PDF21 = temp_PDF21*B2_Ds_phi2*B1_phi21*B1_rho2*B1_2V12;
2537 temp_PDF22 = temp_PDF22*B2_Ds_phi2*B1_phi22*B1_rho2*B1_2V13;
2538 temp_PDF23 = temp_PDF23*B2_Ds_phi2*B1_phi23*B1_rho2*B1_2V23;
2539 temp_PDF31 = temp_PDF31*B2_Ds_phi3*B1_phi31*B1_rho3*B1_3V12;
2540 temp_PDF32 = temp_PDF32*B2_Ds_phi3*B1_phi32*B1_rho3*B1_3V13;
2541 temp_PDF33 = temp_PDF33*B2_Ds_phi3*B1_phi33*B1_rho3*B1_3V23;
2542 temp_PDF41 = temp_PDF41*B2_Ds_phi4*B1_phi41*B1_rho4*B1_4V12;
2543 temp_PDF42 = temp_PDF42*B2_Ds_phi4*B1_phi42*B1_rho4*B1_4V13;
2544 temp_PDF43 = temp_PDF43*B2_Ds_phi4*B1_phi43*B1_rho4*B1_4V23;
2545 }
2546 if(g0[i]==1){
2547 propagator(mass1sq,mass1[i],width1[i],sphi1,pro0_11);
2548 propagator(mass1sq,mass1[i],width1[i],sphi1,pro0_12);
2549 propagator(mass1sq,mass1[i],width1[i],sphi1,pro0_13);
2550 propagator(mass1sq,mass1[i],width1[i],sphi2,pro0_21);
2551 propagator(mass1sq,mass1[i],width1[i],sphi2,pro0_22);
2552 propagator(mass1sq,mass1[i],width1[i],sphi2,pro0_23);
2553 propagator(mass1sq,mass1[i],width1[i],sphi3,pro0_31);
2554 propagator(mass1sq,mass1[i],width1[i],sphi3,pro0_32);
2555 propagator(mass1sq,mass1[i],width1[i],sphi3,pro0_33);
2556 propagator(mass1sq,mass1[i],width1[i],sphi4,pro0_41);
2557 propagator(mass1sq,mass1[i],width1[i],sphi4,pro0_42);
2558 propagator(mass1sq,mass1[i],width1[i],sphi4,pro0_43);
2559 }
2560 else if(g0[i]==0){
2561 pro0_11[0] = 1; pro0_11[1] = 0; pro0_12[0] = 1; pro0_12[1] = 0; pro0_13[0] = 1; pro0_13[1] = 0;
2562 pro0_21[0] = 1; pro0_21[1] = 0; pro0_22[0] = 1; pro0_22[1] = 0; pro0_23[0] = 1; pro0_23[1] = 0;
2563 pro0_31[0] = 1; pro0_31[1] = 0; pro0_32[0] = 1; pro0_32[1] = 0; pro0_33[0] = 1; pro0_33[1] = 0;
2564 pro0_41[0] = 1; pro0_41[1] = 0; pro0_42[0] = 1; pro0_42[1] = 0; pro0_43[0] = 1; pro0_43[1] = 0;
2565 }
2566 if(g1[i]==1){
2567
2568 propagatorGS(mass2sq,mass2[i],width2[i],srho1,sPip2,sPi02,rRes2,pro1_1);
2569 propagatorGS(mass2sq,mass2[i],width2[i],srho2,sPip2,sPi01,rRes2,pro1_2);
2570 propagatorGS(mass2sq,mass2[i],width2[i],srho3,sPip1,sPi02,rRes2,pro1_3);
2571 propagatorGS(mass2sq,mass2[i],width2[i],srho4,sPip1,sPi01,rRes2,pro1_4);
2572
2573 }
2574 else if(g1[i]==0){
2575 pro1_1[0] = 1; pro1_1[1] = 0;
2576 pro1_2[0] = 1; pro1_2[1] = 0;
2577 pro1_3[0] = 1; pro1_3[1] = 0;
2578 pro1_4[0] = 1; pro1_4[1] = 0;
2579 }
2580 Com_Multi(pro0_11,pro1V12,tpro_11); Com_Multi(tpro_11,pro1_1,pro_11);
2581 Com_Multi(pro0_12,pro1V13,tpro_12); Com_Multi(tpro_12,pro1_1,pro_12);
2582 Com_Multi(pro0_13,pro1V23,tpro_13); Com_Multi(tpro_13,pro1_1,pro_13);
2583 Com_Multi(pro0_21,pro2V12,tpro_21); Com_Multi(tpro_21,pro1_2,pro_21);
2584 Com_Multi(pro0_22,pro2V13,tpro_22); Com_Multi(tpro_22,pro1_2,pro_22);
2585 Com_Multi(pro0_23,pro2V23,tpro_23); Com_Multi(tpro_23,pro1_2,pro_23);
2586 Com_Multi(pro0_31,pro3V12,tpro_31); Com_Multi(tpro_31,pro1_3,pro_31);
2587 Com_Multi(pro0_32,pro3V13,tpro_32); Com_Multi(tpro_32,pro1_3,pro_32);
2588 Com_Multi(pro0_33,pro3V23,tpro_33); Com_Multi(tpro_33,pro1_3,pro_33);
2589 Com_Multi(pro0_41,pro4V12,tpro_41); Com_Multi(tpro_41,pro1_4,pro_41);
2590 Com_Multi(pro0_42,pro4V13,tpro_42); Com_Multi(tpro_42,pro1_4,pro_42);
2591 Com_Multi(pro0_43,pro4V23,tpro_43); Com_Multi(tpro_43,pro1_4,pro_43);
2592 amp_tmp1[0] = temp_PDF11*pro_11[0] - temp_PDF12*pro_12[0] + temp_PDF13*pro_13[0];
2593 amp_tmp1[1] = temp_PDF11*pro_11[1] - temp_PDF12*pro_12[1] + temp_PDF13*pro_13[1];
2594 amp_tmp2[0] = temp_PDF21*pro_21[0] - temp_PDF22*pro_22[0] + temp_PDF23*pro_23[0];
2595 amp_tmp2[1] = temp_PDF21*pro_21[1] - temp_PDF22*pro_22[1] + temp_PDF23*pro_23[1];
2596 amp_tmp3[0] = temp_PDF31*pro_31[0] - temp_PDF32*pro_32[0] + temp_PDF33*pro_33[0];
2597 amp_tmp3[1] = temp_PDF31*pro_31[1] - temp_PDF32*pro_32[1] + temp_PDF33*pro_33[1];
2598 amp_tmp4[0] = temp_PDF41*pro_41[0] - temp_PDF42*pro_42[0] + temp_PDF43*pro_43[0];
2599 amp_tmp4[1] = temp_PDF41*pro_41[1] - temp_PDF42*pro_42[1] + temp_PDF43*pro_43[1];
2600
2601 }
2602 else if(modetype[i]==11){
2603 if(g2[i]==1)
2604 {
2605 if(B1_Ds_rho1450p1==-1) { B1_Ds_rho1450p1=BarrierN(1,sDs,srho1450p1,sPi02,rDs2,mDsM); B1_Ds_rho1450p2=BarrierN(1,sDs,srho1450p2,sPi01,rDs2,mDsM); B1_Ds_rho1450p3=BarrierN(1,sDs,srho1450p3,sPi02,rDs2,mDsM); B1_Ds_rho1450p4=BarrierN(1,sDs,srho1450p4,sPi01,rDs2,mDsM);
2606 }
2607
2608 if(B1_rho1450p1==-1) { B1_rho1450p1=BarrierN(1,srho1450p1,somega1,sPip2,rRes2,mass1[i]); B1_rho1450p2=BarrierN(1,srho1450p2,somega2,sPip2,rRes2,mass1[i]); B1_rho1450p3=BarrierN(1,srho1450p3,somega3,sPip1,rRes2,mass1[i]); B1_rho1450p4=BarrierN(1,srho1450p4,somega4,sPip1,rRes2,mass1[i]);
2609 }
2610 if(B1_omega11==-1) { B1_omega11=BarrierN(1,somega1,srho11,sPim,rRes2,mass2[i]); B1_omega12=BarrierN(1,somega1,srho12,sPi01,rRes2,mass2[i]); B1_omega13=BarrierN(1,somega1,srho13,sPip1,rRes2,mass2[i]);
2611 B1_omega21=BarrierN(1,somega2,srho21,sPim,rRes2,mass2[i]); B1_omega22=BarrierN(1,somega2,srho22,sPi02,rRes2,mass2[i]); B1_omega23=BarrierN(1,somega2,srho23,sPip1,rRes2,mass2[i]);
2612 B1_omega31=BarrierN(1,somega3,srho31,sPim,rRes2,mass2[i]); B1_omega32=BarrierN(1,somega3,srho32,sPi01,rRes2,mass2[i]); B1_omega33=BarrierN(1,somega3,srho33,sPip2,rRes2,mass2[i]);
2613 B1_omega41=BarrierN(1,somega4,srho41,sPim,rRes2,mass2[i]); B1_omega42=BarrierN(1,somega4,srho42,sPi02,rRes2,mass2[i]); B1_omega43=BarrierN(1,somega4,srho43,sPip2,rRes2,mass2[i]);
2614 }
2615 calt1(prho11,Pim,t1omega11); calt1(prho12,Pi01,t1omega12); calt1(prho13,Pip1,t1omega13);
2616 calt1(prho21,Pim,t1omega21); calt1(prho22,Pi02,t1omega22); calt1(prho23,Pip1,t1omega23);
2617 calt1(prho31,Pim,t1omega31); calt1(prho32,Pi01,t1omega32); calt1(prho23,Pip2,t1omega33);
2618 calt1(prho41,Pim,t1omega41); calt1(prho42,Pi02,t1omega42); calt1(prho43,Pip2,t1omega43);
2619 calt1(Pip1,Pi01,t1rho11); calt1(Pip1,Pim,t1rho12); calt1(Pi01,Pim,t1rho13);
2620 calt1(Pip1,Pi02,t1rho21); calt1(Pip1,Pim,t1rho22); calt1(Pi02,Pim,t1rho23);
2621 calt1(Pip2,Pi01,t1rho31); calt1(Pip2,Pim,t1rho32); calt1(Pi01,Pim,t1rho33);
2622 calt1(Pip2,Pi02,t1rho41); calt1(Pip2,Pim,t1rho42); calt1(Pi02,Pim,t1rho43);
2623 calt1(pomega1,Pip2,t1rho1450p1); calt1(pomega2,Pip2,t1rho1450p2); calt1(pomega3,Pip1,t1rho1450p3); calt1(pomega4,Pip1,t1rho1450p4);
2624 calG2(prho11,Pim,p1omega11); calG2(prho12,Pi01,p1omega12); calG2(prho13,Pip1,p1omega13);
2625 calG2(prho21,Pim,p1omega21); calG2(prho22,Pi02,p1omega22); calG2(prho23,Pip1,p1omega23);
2626 calG2(prho31,Pim,p1omega31); calG2(prho32,Pi01,p1omega32); calG2(prho33,Pip2,p1omega33);
2627 calG2(prho41,Pim,p1omega41); calG2(prho42,Pi02,p1omega42); calG2(prho43,Pip2,p1omega43);
2628
2629 calG2(pomega1,Pip2,p1rho1450p1); calG2(pomega2,Pip2,p1rho1450p2); calG2(pomega3,Pip1,p1rho1450p3); calG2(pomega4,Pip1,p1rho1450p4);
2630 calt1(prho1450p1,Pi02,t1Ds_rho1450p1); calt1(prho1450p2,Pi01,t1Ds_rho1450p2); calt1(prho1450p3,Pi02,t1Ds_rho1450p3); calt1(prho1450p4,Pi01,t1Ds_rho1450p4);
2631
2632
2633
2634 for(int i=0; i<4; i++)
2635 {
2636 double temt1Ds_rho1450p1 = t1Ds_rho1450p1[i]*G[i][i];
2637 double temt1Ds_rho1450p2 = t1Ds_rho1450p2[i]*G[i][i];
2638 double temt1Ds_rho1450p3 = t1Ds_rho1450p3[i]*G[i][i];
2639 double temt1Ds_rho1450p4 = t1Ds_rho1450p4[i]*G[i][i];
2640
2641 for(int j=0; j<4; j++)
2642 {
2643 double temp1rho1450p1 = p1rho1450p1[i][j]*G[j][j];
2644 double temp1rho1450p2 = p1rho1450p2[i][j]*G[j][j];
2645 double temp1rho1450p3 = p1rho1450p3[i][j]*G[j][j];
2646 double temp1rho1450p4 = p1rho1450p4[i][j]*G[j][j];
2647
2648 for(int k=0; k<4; k++)
2649 {
2650 for(int l=0; l<4; l++)
2651 {
2652 double temt1rho1450p1 = t1rho1450p1[l]*G[l][l];
2653 double temt1rho1450p2 = t1rho1450p2[l]*G[l][l];
2654 double temt1rho1450p3 = t1rho1450p3[l]*G[l][l];
2655 double temt1rho1450p4 = t1rho1450p4[l]*G[l][l];
2656
2657 for(int m=0; m<4; m++)
2658 {
2659 double temprho1450p1 = prho1450p1[m]*G[m][m]*E[j][k][l][m];
2660 double temprho1450p2 = prho1450p2[m]*G[m][m]*E[j][k][l][m];
2661 double temprho1450p3 = prho1450p3[m]*G[m][m]*E[j][k][l][m];
2662 double temprho1450p4 = prho1450p4[m]*G[m][m]*E[j][k][l][m];
2663
2664 for(int n=0; n<4; n++)
2665 {
2666 double tempomega1 = pomega1[n]*G[n][n];
2667 double tempomega2 = pomega2[n]*G[n][n];
2668 double tempomega3 = pomega3[n]*G[n][n];
2669 double tempomega4 = pomega4[n]*G[n][n];
2670
2671 for(int o=0; o<4; o++)
2672 {
2673 double temp1omega11 = p1omega11[k][o]*G[k][k]*G[o][o];
2674 double temp1omega12 = p1omega12[k][o]*G[k][k]*G[o][o];
2675 double temp1omega13 = p1omega13[k][o]*G[k][k]*G[o][o];
2676 double temp1omega21 = p1omega21[k][o]*G[k][k]*G[o][o];
2677 double temp1omega22 = p1omega22[k][o]*G[k][k]*G[o][o];
2678 double temp1omega23 = p1omega23[k][o]*G[k][k]*G[o][o];
2679 double temp1omega31 = p1omega31[k][o]*G[k][k]*G[o][o];
2680 double temp1omega32 = p1omega32[k][o]*G[k][k]*G[o][o];
2681 double temp1omega33 = p1omega33[k][o]*G[k][k]*G[o][o];
2682 double temp1omega41 = p1omega41[k][o]*G[k][k]*G[o][o];
2683 double temp1omega42 = p1omega42[k][o]*G[k][k]*G[o][o];
2684 double temp1omega43 = p1omega43[k][o]*G[k][k]*G[o][o];
2685
2686 for(int p=0; p<4; p++)
2687 {
2688 double temt1omega11 = t1omega11[p]*G[p][p];
2689 double temt1omega12 = t1omega12[p]*G[p][p];
2690 double temt1omega13 = t1omega13[p]*G[p][p];
2691 double temt1omega21 = t1omega21[p]*G[p][p];
2692 double temt1omega22 = t1omega22[p]*G[p][p];
2693 double temt1omega23 = t1omega23[p]*G[p][p];
2694 double temt1omega31 = t1omega31[p]*G[p][p];
2695 double temt1omega32 = t1omega32[p]*G[p][p];
2696 double temt1omega33 = t1omega33[p]*G[p][p];
2697 double temt1omega41 = t1omega41[p]*G[p][p];
2698 double temt1omega42 = t1omega42[p]*G[p][p];
2699 double temt1omega43 = t1omega43[p]*G[p][p];
2700
2701 for(int q=0; q<4;q++)
2702 {
2703 if((j==k)||(j==l)||(j==m)||(k==l)||(k==m)||(l==m)) continue;
2704 if((n==o)||(n==p)||(n==q)||(o==p)||(o==q)||(p==q)) continue;
2705 temp_PDF11 += temt1Ds_rho1450p1*temp1rho1450p1*temt1rho1450p1*temprho1450p1*temp1omega11*E[n][o][p][q]*tempomega1*temt1omega11*t1rho11[q]*G[q][q];
2706 temp_PDF12 += temt1Ds_rho1450p1*temp1rho1450p1*temt1rho1450p1*temprho1450p1*temp1omega12*E[n][o][p][q]*tempomega1*temt1omega12*t1rho12[q]*G[q][q];
2707 temp_PDF13 += temt1Ds_rho1450p1*temp1rho1450p1*temt1rho1450p1*temprho1450p1*temp1omega13*E[n][o][p][q]*tempomega1*temt1omega13*t1rho13[q]*G[q][q];
2708 temp_PDF21 += temt1Ds_rho1450p2*temp1rho1450p2*temt1rho1450p2*temprho1450p2*temp1omega21*E[n][o][p][q]*tempomega2*temt1omega21*t1rho21[q]*G[q][q];
2709 temp_PDF22 += temt1Ds_rho1450p2*temp1rho1450p2*temt1rho1450p2*temprho1450p2*temp1omega22*E[n][o][p][q]*tempomega2*temt1omega22*t1rho22[q]*G[q][q];
2710 temp_PDF23 += temt1Ds_rho1450p2*temp1rho1450p2*temt1rho1450p2*temprho1450p2*temp1omega23*E[n][o][p][q]*tempomega2*temt1omega23*t1rho23[q]*G[q][q];
2711 temp_PDF31 += temt1Ds_rho1450p3*temp1rho1450p3*temt1rho1450p3*temprho1450p3*temp1omega31*E[n][o][p][q]*tempomega3*temt1omega31*t1rho31[q]*G[q][q];
2712 temp_PDF32 += temt1Ds_rho1450p3*temp1rho1450p3*temt1rho1450p3*temprho1450p3*temp1omega32*E[n][o][p][q]*tempomega3*temt1omega32*t1rho32[q]*G[q][q];
2713 temp_PDF33 += temt1Ds_rho1450p3*temp1rho1450p3*temt1rho1450p3*temprho1450p3*temp1omega33*E[n][o][p][q]*tempomega3*temt1omega33*t1rho33[q]*G[q][q];
2714 temp_PDF41 += temt1Ds_rho1450p4*temp1rho1450p4*temt1rho1450p4*temprho1450p4*temp1omega41*E[n][o][p][q]*tempomega4*temt1omega41*t1rho41[q]*G[q][q];
2715 temp_PDF42 += temt1Ds_rho1450p4*temp1rho1450p4*temt1rho1450p4*temprho1450p4*temp1omega42*E[n][o][p][q]*tempomega4*temt1omega42*t1rho42[q]*G[q][q];
2716 temp_PDF43 += temt1Ds_rho1450p4*temp1rho1450p4*temt1rho1450p4*temprho1450p4*temp1omega43*E[n][o][p][q]*tempomega4*temt1omega43*t1rho43[q]*G[q][q];
2717 }
2718 }
2719 }
2720 }
2721 }
2722 }
2723 }
2724 }
2725 }
2726 temp_PDF11 = temp_PDF11*B1_Ds_rho1450p1*B1_rho1450p1*B1_omega11*B1_1V12;
2727 temp_PDF12 = temp_PDF12*B1_Ds_rho1450p1*B1_rho1450p1*B1_omega12*B1_1V13;
2728 temp_PDF13 = temp_PDF13*B1_Ds_rho1450p1*B1_rho1450p1*B1_omega13*B1_1V23;
2729 temp_PDF21 = temp_PDF21*B1_Ds_rho1450p2*B1_rho1450p2*B1_omega21*B1_2V12;
2730 temp_PDF22 = temp_PDF22*B1_Ds_rho1450p2*B1_rho1450p2*B1_omega22*B1_2V13;
2731 temp_PDF23 = temp_PDF23*B1_Ds_rho1450p2*B1_rho1450p2*B1_omega23*B1_2V23;
2732 temp_PDF31 = temp_PDF31*B1_Ds_rho1450p3*B1_rho1450p3*B1_omega31*B1_3V12;
2733 temp_PDF32 = temp_PDF32*B1_Ds_rho1450p3*B1_rho1450p3*B1_omega32*B1_3V13;
2734 temp_PDF33 = temp_PDF33*B1_Ds_rho1450p3*B1_rho1450p3*B1_omega33*B1_3V23;
2735 temp_PDF41 = temp_PDF41*B1_Ds_rho1450p4*B1_rho1450p4*B1_omega41*B1_4V12;
2736 temp_PDF42 = temp_PDF42*B1_Ds_rho1450p4*B1_rho1450p4*B1_omega42*B1_4V13;
2737 temp_PDF43 = temp_PDF43*B1_Ds_rho1450p4*B1_rho1450p4*B1_omega43*B1_4V23;
2738 }
2739
2740 if(g0[i]==1) {
2741
2742 propagatorGS(mass1sq,mass1[i],width1[i],srho1450p1,somega1,sPip2,rRes2,pro0_1);
2743 propagatorGS(mass1sq,mass1[i],width1[i],srho1450p2,somega2,sPip2,rRes2,pro0_2);
2744 propagatorGS(mass1sq,mass1[i],width1[i],srho1450p3,somega3,sPip1,rRes2,pro0_3);
2745 propagatorGS(mass1sq,mass1[i],width1[i],srho1450p4,somega4,sPip1,rRes2,pro0_4);
2746
2747
2748 } else if(g0[i]==0){
2749 pro0_1[0] = 1; pro0_1[i] = 0;
2750 pro0_2[0] = 1; pro0_2[i] = 0;
2751 pro0_3[0] = 1; pro0_3[i] = 0;
2752 pro0_4[0] = 1; pro0_4[i] = 0;
2753 }
2754 if(g1[i]==1) {
2755 propagator(mass2sq,mass2[i],width2[i],somega1,pro1_11);
2756 propagator(mass2sq,mass2[i],width2[i],somega1,pro1_12);
2757 propagator(mass2sq,mass2[i],width2[i],somega1,pro1_13);
2758 propagator(mass2sq,mass2[i],width2[i],somega2,pro1_21);
2759 propagator(mass2sq,mass2[i],width2[i],somega2,pro1_22);
2760 propagator(mass2sq,mass2[i],width2[i],somega2,pro1_23);
2761 propagator(mass2sq,mass2[i],width2[i],somega3,pro1_31);
2762 propagator(mass2sq,mass2[i],width2[i],somega3,pro1_32);
2763 propagator(mass2sq,mass2[i],width2[i],somega3,pro1_33);
2764 propagator(mass2sq,mass2[i],width2[i],somega4,pro1_41);
2765 propagator(mass2sq,mass2[i],width2[i],somega4,pro1_42);
2766 propagator(mass2sq,mass2[i],width2[i],somega4,pro1_43);
2767 } else if(g1[i]==0) {
2768 pro1_11[0] = 1; pro1_11[1] = 0; pro1_12[0] = 1; pro1_12[1] = 0; pro1_13[0] = 1; pro1_13[1] = 0;
2769 pro1_21[0] = 1; pro1_21[1] = 0; pro1_22[0] = 1; pro1_22[1] = 0; pro1_23[0] = 1; pro1_23[1] = 0;
2770 pro1_31[0] = 1; pro1_31[1] = 0; pro1_32[0] = 1; pro1_32[1] = 0; pro1_33[0] = 1; pro1_33[1] = 0;
2771 pro1_41[0] = 1; pro1_41[1] = 0; pro1_42[0] = 1; pro1_42[1] = 0; pro1_43[0] = 1; pro1_43[1] = 0;
2772 }
2773 Com_Multi(pro0_1,pro1_11,tpro_11); Com_Multi(tpro_11,pro1V12,pro_11);
2774 Com_Multi(pro0_1,pro1_12,tpro_12); Com_Multi(tpro_12,pro1V13,pro_12);
2775 Com_Multi(pro0_1,pro1_13,tpro_13); Com_Multi(tpro_13,pro1V23,pro_13);
2776 Com_Multi(pro0_2,pro1_21,tpro_21); Com_Multi(tpro_21,pro2V12,pro_21);
2777 Com_Multi(pro0_2,pro1_22,tpro_22); Com_Multi(tpro_22,pro2V13,pro_22);
2778 Com_Multi(pro0_2,pro1_23,tpro_23); Com_Multi(tpro_23,pro2V23,pro_23);
2779 Com_Multi(pro0_3,pro1_31,tpro_31); Com_Multi(tpro_31,pro3V12,pro_31);
2780 Com_Multi(pro0_3,pro1_32,tpro_32); Com_Multi(tpro_32,pro3V13,pro_32);
2781 Com_Multi(pro0_3,pro1_33,tpro_33); Com_Multi(tpro_33,pro3V23,pro_33);
2782 Com_Multi(pro0_4,pro1_41,tpro_41); Com_Multi(tpro_41,pro4V12,pro_41);
2783 Com_Multi(pro0_4,pro1_42,tpro_42); Com_Multi(tpro_42,pro4V13,pro_42);
2784 Com_Multi(pro0_4,pro1_43,tpro_43); Com_Multi(tpro_43,pro4V23,pro_43);
2785 amp_tmp1[0] = temp_PDF11*pro_11[0] - temp_PDF12*pro_12[0] + temp_PDF13*pro_13[0];
2786 amp_tmp1[1] = temp_PDF11*pro_11[1] - temp_PDF12*pro_12[1] + temp_PDF13*pro_13[1];
2787 amp_tmp2[0] = temp_PDF21*pro_21[0] - temp_PDF22*pro_22[0] + temp_PDF23*pro_23[0];
2788 amp_tmp2[1] = temp_PDF21*pro_21[1] - temp_PDF22*pro_22[1] + temp_PDF23*pro_23[1];
2789 amp_tmp3[0] = temp_PDF31*pro_31[0] - temp_PDF32*pro_32[0] + temp_PDF33*pro_33[0];
2790 amp_tmp3[1] = temp_PDF31*pro_31[1] - temp_PDF32*pro_32[1] + temp_PDF33*pro_33[1];
2791 amp_tmp4[0] = temp_PDF41*pro_41[0] - temp_PDF42*pro_42[0] + temp_PDF43*pro_43[0];
2792 amp_tmp4[1] = temp_PDF41*pro_41[1] - temp_PDF42*pro_42[1] + temp_PDF43*pro_43[1];
2793 }
2794
2795 else if(modetype[i]==12){
2796 if(g2[i]==1)
2797 {
2798 if(B1_Ds_rho1450n1==-1) { B1_Ds_rho1450n1=BarrierN(1,sDs,srho1450n1,sPip2,rDs2,mDsM); B1_Ds_rho1450n2=BarrierN(1,sDs,srho1450n2,sPip2,rDs2,mDsM); B1_Ds_rho1450n3=BarrierN(1,sDs,srho1450n3,sPip1,rDs2,mDsM); B1_Ds_rho1450n4=BarrierN(1,sDs,srho1450n4,sPip1,rDs2,mDsM); }
2799
2800 if(B1_rho1450n1==-1) { B1_rho1450n1=BarrierN(1,srho1450n1,somega1,sPi02,rRes2,mass1[i]); B1_rho1450n2=BarrierN(1,srho1450n2,somega2,sPi01,rRes2,mass1[i]); B1_rho1450n3=BarrierN(1,srho1450n3,somega3,sPi02,rRes2,mass1[i]); B1_rho1450n4=BarrierN(1,srho1450n4,somega4,sPi01,rRes2,mass1[i]); }
2801 if(B1_omega11==-1) { B1_omega11=BarrierN(1,somega1,srho11,sPim,rRes2,mass2[i]); B1_omega12=BarrierN(1,somega1,srho12,sPi01,rRes2,mass2[i]); B1_omega13=BarrierN(1,somega1,srho13,sPip1,rRes2,mass2[i]);
2802 B1_omega21=BarrierN(1,somega2,srho21,sPim,rRes2,mass2[i]); B1_omega22=BarrierN(1,somega2,srho22,sPi02,rRes2,mass2[i]); B1_omega23=BarrierN(1,somega2,srho23,sPip1,rRes2,mass2[i]);
2803 B1_omega31=BarrierN(1,somega3,srho31,sPim,rRes2,mass2[i]); B1_omega32=BarrierN(1,somega3,srho32,sPi01,rRes2,mass2[i]); B1_omega33=BarrierN(1,somega3,srho33,sPip2,rRes2,mass2[i]);
2804 B1_omega41=BarrierN(1,somega4,srho41,sPim,rRes2,mass2[i]); B1_omega42=BarrierN(1,somega4,srho42,sPi02,rRes2,mass2[i]); B1_omega43=BarrierN(1,somega4,srho43,sPip2,rRes2,mass2[i]);
2805 }
2806
2807 calt1(prho11,Pim,t1omega11); calt1(prho12,Pi01,t1omega12); calt1(prho13,Pip1,t1omega13);
2808 calt1(prho21,Pim,t1omega21); calt1(prho22,Pi02,t1omega22); calt1(prho23,Pip1,t1omega23);
2809 calt1(prho31,Pim,t1omega31); calt1(prho32,Pi01,t1omega32); calt1(prho23,Pip2,t1omega33);
2810 calt1(prho41,Pim,t1omega41); calt1(prho42,Pi02,t1omega42); calt1(prho43,Pip2,t1omega43);
2811 calt1(Pip1,Pi01,t1rho11); calt1(Pip1,Pim,t1rho12); calt1(Pi01,Pim,t1rho13);
2812 calt1(Pip1,Pi02,t1rho21); calt1(Pip1,Pim,t1rho22); calt1(Pi02,Pim,t1rho23);
2813 calt1(Pip2,Pi01,t1rho31); calt1(Pip2,Pim,t1rho32); calt1(Pi01,Pim,t1rho33);
2814 calt1(Pip2,Pi02,t1rho41); calt1(Pip2,Pim,t1rho42); calt1(Pi02,Pim,t1rho43);
2815 calt1(pomega1,Pi02,t1rho1450n1); calt1(pomega2,Pi01,t1rho1450n2); calt1(pomega3,Pi02,t1rho1450n3); calt1(pomega4,Pi01,t1rho1450n4);
2816 calG2(prho11,Pim,p1omega11); calG2(prho12,Pi01,p1omega12); calG2(prho13,Pip1,p1omega13);
2817 calG2(prho21,Pim,p1omega21); calG2(prho22,Pi02,p1omega22); calG2(prho23,Pip1,p1omega23);
2818 calG2(prho31,Pim,p1omega31); calG2(prho32,Pi01,p1omega32); calG2(prho33,Pip2,p1omega33);
2819 calG2(prho41,Pim,p1omega41); calG2(prho42,Pi02,p1omega42); calG2(prho43,Pip2,p1omega43);
2820 calG2(pomega1,Pi02,p1rho1450n1); calG2(pomega2,Pi01,p1rho1450n2); calG2(pomega3,Pi02,p1rho1450n3); calG2(pomega4,Pi01,p1rho1450n4);
2821 calt1(prho1450n1,Pip2,t1Ds_rho1450n1); calt1(prho1450n2,Pip2,t1Ds_rho1450n2); calt1(prho1450n3,Pip1,t1Ds_rho1450n3); calt1(prho1450n4,Pip1,t1Ds_rho1450n4);
2822
2823 for(int i=0; i<4; i++)
2824 {
2825 double temt1Ds_rho1450n1 = t1Ds_rho1450n1[i]*G[i][i];
2826 double temt1Ds_rho1450n2 = t1Ds_rho1450n2[i]*G[i][i];
2827 double temt1Ds_rho1450n3 = t1Ds_rho1450n3[i]*G[i][i];
2828 double temt1Ds_rho1450n4 = t1Ds_rho1450n4[i]*G[i][i];
2829
2830 for(int j=0; j<4; j++)
2831 {
2832 double temp1rho1450n1 = p1rho1450n1[i][j]*G[j][j];
2833 double temp1rho1450n2 = p1rho1450n2[i][j]*G[j][j];
2834 double temp1rho1450n3 = p1rho1450n3[i][j]*G[j][j];
2835 double temp1rho1450n4 = p1rho1450n4[i][j]*G[j][j];
2836
2837 for(int k=0; k<4; k++)
2838 {
2839 for(int l=0; l<4; l++)
2840 {
2841 double temt1rho1450n1 = t1rho1450n1[l]*G[l][l];
2842 double temt1rho1450n2 = t1rho1450n2[l]*G[l][l];
2843 double temt1rho1450n3 = t1rho1450n3[l]*G[l][l];
2844 double temt1rho1450n4 = t1rho1450n4[l]*G[l][l];
2845
2846 for(int m=0; m<4; m++)
2847 {
2848 double temprho1450n1 = prho1450n1[m]*G[m][m]*E[j][k][l][m];
2849 double temprho1450n2 = prho1450n2[m]*G[m][m]*E[j][k][l][m];
2850 double temprho1450n3 = prho1450n3[m]*G[m][m]*E[j][k][l][m];
2851 double temprho1450n4 = prho1450n4[m]*G[m][m]*E[j][k][l][m];
2852
2853 for(int n=0; n<4; n++)
2854 {
2855 double tempomega1 = pomega1[n]*G[n][n];
2856 double tempomega2 = pomega2[n]*G[n][n];
2857 double tempomega3 = pomega3[n]*G[n][n];
2858 double tempomega4 = pomega4[n]*G[n][n];
2859
2860 for(int o=0; o<4; o++)
2861 {
2862 double temp1omega11 = p1omega11[k][o]*G[k][k]*G[o][o];
2863 double temp1omega12 = p1omega12[k][o]*G[k][k]*G[o][o];
2864 double temp1omega13 = p1omega13[k][o]*G[k][k]*G[o][o];
2865 double temp1omega21 = p1omega21[k][o]*G[k][k]*G[o][o];
2866 double temp1omega22 = p1omega22[k][o]*G[k][k]*G[o][o];
2867 double temp1omega23 = p1omega23[k][o]*G[k][k]*G[o][o];
2868 double temp1omega31 = p1omega31[k][o]*G[k][k]*G[o][o];
2869 double temp1omega32 = p1omega32[k][o]*G[k][k]*G[o][o];
2870 double temp1omega33 = p1omega33[k][o]*G[k][k]*G[o][o];
2871 double temp1omega41 = p1omega41[k][o]*G[k][k]*G[o][o];
2872 double temp1omega42 = p1omega42[k][o]*G[k][k]*G[o][o];
2873 double temp1omega43 = p1omega43[k][o]*G[k][k]*G[o][o];
2874
2875 for(int p=0; p<4; p++)
2876 {
2877 double temt1omega11 = t1omega11[p]*G[p][p];
2878 double temt1omega12 = t1omega12[p]*G[p][p];
2879 double temt1omega13 = t1omega13[p]*G[p][p];
2880 double temt1omega21 = t1omega21[p]*G[p][p];
2881 double temt1omega22 = t1omega22[p]*G[p][p];
2882 double temt1omega23 = t1omega23[p]*G[p][p];
2883 double temt1omega31 = t1omega31[p]*G[p][p];
2884 double temt1omega32 = t1omega32[p]*G[p][p];
2885 double temt1omega33 = t1omega33[p]*G[p][p];
2886 double temt1omega41 = t1omega41[p]*G[p][p];
2887 double temt1omega42 = t1omega42[p]*G[p][p];
2888 double temt1omega43 = t1omega43[p]*G[p][p];
2889
2890 for(int q=0; q<4;q++)
2891 {
2892 if((j==k)||(j==l)||(j==m)||(k==l)||(k==m)||(l==m)) continue;
2893 if((n==o)||(n==p)||(n==q)||(o==p)||(o==q)||(p==q)) continue;
2894
2895 temp_PDF11 += temt1Ds_rho1450n1*temp1rho1450n1*temt1rho1450n1*temprho1450n1*temp1omega11*E[n][o][p][q]*tempomega1*temt1omega11*t1rho11[q]*G[q][q];
2896 temp_PDF12 += temt1Ds_rho1450n1*temp1rho1450n1*temt1rho1450n1*temprho1450n1*temp1omega12*E[n][o][p][q]*tempomega1*temt1omega12*t1rho12[q]*G[q][q];
2897 temp_PDF13 += temt1Ds_rho1450n1*temp1rho1450n1*temt1rho1450n1*temprho1450n1*temp1omega13*E[n][o][p][q]*tempomega1*temt1omega13*t1rho13[q]*G[q][q];
2898 temp_PDF21 += temt1Ds_rho1450n2*temp1rho1450n2*temt1rho1450n2*temprho1450n2*temp1omega21*E[n][o][p][q]*tempomega2*temt1omega21*t1rho21[q]*G[q][q];
2899 temp_PDF22 += temt1Ds_rho1450n2*temp1rho1450n2*temt1rho1450n2*temprho1450n2*temp1omega22*E[n][o][p][q]*tempomega2*temt1omega22*t1rho22[q]*G[q][q];
2900 temp_PDF23 += temt1Ds_rho1450n2*temp1rho1450n2*temt1rho1450n2*temprho1450n2*temp1omega23*E[n][o][p][q]*tempomega2*temt1omega23*t1rho23[q]*G[q][q];
2901 temp_PDF31 += temt1Ds_rho1450n3*temp1rho1450n3*temt1rho1450n3*temprho1450n3*temp1omega31*E[n][o][p][q]*tempomega3*temt1omega31*t1rho31[q]*G[q][q];
2902 temp_PDF32 += temt1Ds_rho1450n3*temp1rho1450n3*temt1rho1450n3*temprho1450n3*temp1omega32*E[n][o][p][q]*tempomega3*temt1omega32*t1rho32[q]*G[q][q];
2903 temp_PDF33 += temt1Ds_rho1450n3*temp1rho1450n3*temt1rho1450n3*temprho1450n3*temp1omega33*E[n][o][p][q]*tempomega3*temt1omega33*t1rho33[q]*G[q][q];
2904 temp_PDF41 += temt1Ds_rho1450n4*temp1rho1450n4*temt1rho1450n4*temprho1450n4*temp1omega41*E[n][o][p][q]*tempomega4*temt1omega41*t1rho41[q]*G[q][q];
2905 temp_PDF42 += temt1Ds_rho1450n4*temp1rho1450n4*temt1rho1450n4*temprho1450n4*temp1omega42*E[n][o][p][q]*tempomega4*temt1omega42*t1rho42[q]*G[q][q];
2906 temp_PDF43 += temt1Ds_rho1450n4*temp1rho1450n4*temt1rho1450n4*temprho1450n4*temp1omega43*E[n][o][p][q]*tempomega4*temt1omega43*t1rho43[q]*G[q][q];
2907 }
2908 }
2909 }
2910 }
2911 }
2912 }
2913 }
2914 }
2915 }
2916 temp_PDF11 = temp_PDF11*B1_Ds_rho1450n1*B1_rho1450n1*B1_omega11*B1_1V12;
2917 temp_PDF12 = temp_PDF12*B1_Ds_rho1450n1*B1_rho1450n1*B1_omega12*B1_1V13;
2918 temp_PDF13 = temp_PDF13*B1_Ds_rho1450n1*B1_rho1450n1*B1_omega13*B1_1V23;
2919 temp_PDF21 = temp_PDF21*B1_Ds_rho1450n2*B1_rho1450n2*B1_omega21*B1_2V12;
2920 temp_PDF22 = temp_PDF22*B1_Ds_rho1450n2*B1_rho1450n2*B1_omega22*B1_2V13;
2921 temp_PDF23 = temp_PDF23*B1_Ds_rho1450n2*B1_rho1450n2*B1_omega23*B1_2V23;
2922 temp_PDF31 = temp_PDF31*B1_Ds_rho1450n3*B1_rho1450n3*B1_omega31*B1_3V12;
2923 temp_PDF32 = temp_PDF32*B1_Ds_rho1450n3*B1_rho1450n3*B1_omega32*B1_3V13;
2924 temp_PDF33 = temp_PDF33*B1_Ds_rho1450n3*B1_rho1450n3*B1_omega33*B1_3V23;
2925 temp_PDF41 = temp_PDF41*B1_Ds_rho1450n4*B1_rho1450n4*B1_omega41*B1_4V12;
2926 temp_PDF42 = temp_PDF42*B1_Ds_rho1450n4*B1_rho1450n4*B1_omega42*B1_4V13;
2927 temp_PDF43 = temp_PDF43*B1_Ds_rho1450n4*B1_rho1450n4*B1_omega43*B1_4V23;
2928 }
2929
2930 if(g0[i]==1) {
2931
2932 propagatorGS(mass1sq,mass1[i],width1[i],srho1450n1,somega1,sPip2,rRes2,pro0_1);
2933 propagatorGS(mass1sq,mass1[i],width1[i],srho1450n2,somega2,sPip2,rRes2,pro0_2);
2934 propagatorGS(mass1sq,mass1[i],width1[i],srho1450n3,somega3,sPip1,rRes2,pro0_3);
2935 propagatorGS(mass1sq,mass1[i],width1[i],srho1450n4,somega4,sPip1,rRes2,pro0_4);
2936
2937
2938 } else if(g0[i]==0){
2939 pro0_1[0] = 1; pro0_1[i] = 0;
2940 pro0_2[0] = 1; pro0_2[i] = 0;
2941 pro0_3[0] = 1; pro0_3[i] = 0;
2942 pro0_4[0] = 1; pro0_4[i] = 0;
2943 }
2944 if(g1[i]==1) {
2945 propagator(mass2sq,mass2[i],width2[i],somega1,pro1_11);
2946 propagator(mass2sq,mass2[i],width2[i],somega1,pro1_12);
2947 propagator(mass2sq,mass2[i],width2[i],somega1,pro1_13);
2948 propagator(mass2sq,mass2[i],width2[i],somega2,pro1_21);
2949 propagator(mass2sq,mass2[i],width2[i],somega2,pro1_22);
2950 propagator(mass2sq,mass2[i],width2[i],somega2,pro1_23);
2951 propagator(mass2sq,mass2[i],width2[i],somega3,pro1_31);
2952 propagator(mass2sq,mass2[i],width2[i],somega3,pro1_32);
2953 propagator(mass2sq,mass2[i],width2[i],somega3,pro1_33);
2954 propagator(mass2sq,mass2[i],width2[i],somega4,pro1_41);
2955 propagator(mass2sq,mass2[i],width2[i],somega4,pro1_42);
2956 propagator(mass2sq,mass2[i],width2[i],somega4,pro1_43);
2957 } else if(g1[i]==0) {
2958 pro1_11[0] = 1; pro1_11[1] = 0; pro1_12[0] = 1; pro1_12[1] = 0; pro1_13[0] = 1; pro1_13[1] = 0;
2959 pro1_21[0] = 1; pro1_21[1] = 0; pro1_22[0] = 1; pro1_22[1] = 0; pro1_23[0] = 1; pro1_23[1] = 0;
2960 pro1_31[0] = 1; pro1_31[1] = 0; pro1_32[0] = 1; pro1_32[1] = 0; pro1_33[0] = 1; pro1_33[1] = 0;
2961 pro1_41[0] = 1; pro1_41[1] = 0; pro1_42[0] = 1; pro1_42[1] = 0; pro1_43[0] = 1; pro1_43[1] = 0;
2962 }
2963 Com_Multi(pro0_1,pro1_11,tpro_11); Com_Multi(tpro_11,pro1V12,pro_11);
2964 Com_Multi(pro0_1,pro1_12,tpro_12); Com_Multi(tpro_12,pro1V13,pro_12);
2965 Com_Multi(pro0_1,pro1_13,tpro_13); Com_Multi(tpro_13,pro1V23,pro_13);
2966 Com_Multi(pro0_2,pro1_21,tpro_21); Com_Multi(tpro_21,pro2V12,pro_21);
2967 Com_Multi(pro0_2,pro1_22,tpro_22); Com_Multi(tpro_22,pro2V13,pro_22);
2968 Com_Multi(pro0_2,pro1_23,tpro_23); Com_Multi(tpro_23,pro2V23,pro_23);
2969 Com_Multi(pro0_3,pro1_31,tpro_31); Com_Multi(tpro_31,pro3V12,pro_31);
2970 Com_Multi(pro0_3,pro1_32,tpro_32); Com_Multi(tpro_32,pro3V13,pro_32);
2971 Com_Multi(pro0_3,pro1_33,tpro_33); Com_Multi(tpro_33,pro3V23,pro_33);
2972 Com_Multi(pro0_4,pro1_41,tpro_41); Com_Multi(tpro_41,pro4V12,pro_41);
2973 Com_Multi(pro0_4,pro1_42,tpro_42); Com_Multi(tpro_42,pro4V13,pro_42);
2974 Com_Multi(pro0_4,pro1_43,tpro_43); Com_Multi(tpro_43,pro4V23,pro_43);
2975 amp_tmp1[0] = temp_PDF11*pro_11[0] + temp_PDF12*pro_12[0] + temp_PDF13*pro_13[0];
2976 amp_tmp1[1] = temp_PDF11*pro_11[1] + temp_PDF12*pro_12[1] + temp_PDF13*pro_13[1];
2977 amp_tmp2[0] = temp_PDF21*pro_21[0] + temp_PDF22*pro_22[0] + temp_PDF23*pro_23[0];
2978 amp_tmp2[1] = temp_PDF21*pro_21[1] + temp_PDF22*pro_22[1] + temp_PDF23*pro_23[1];
2979 amp_tmp3[0] = temp_PDF31*pro_31[0] + temp_PDF32*pro_32[0] + temp_PDF33*pro_33[0];
2980 amp_tmp3[1] = temp_PDF31*pro_31[1] + temp_PDF32*pro_32[1] + temp_PDF33*pro_33[1];
2981 amp_tmp4[0] = temp_PDF41*pro_41[0] + temp_PDF42*pro_42[0] + temp_PDF43*pro_43[0];
2982 amp_tmp4[1] = temp_PDF41*pro_41[1] + temp_PDF42*pro_42[1] + temp_PDF43*pro_43[1];
2983
2984
2985 }
2986
2987 else if(modetype[i]==13){
2988 if(g2[i]==0)
2989 {
2990 if(B1_a1012601==-1) { B1_a1012601=BarrierN(1,sa1012601,sa10f05001,sPi01,rRes2,mass1[i]); B1_a1012602=BarrierN(1,sa1012602,sa10f05001,sPi02,rRes2,mass1[i]); B1_a1012603=BarrierN(1,sa1012603,sa10f05002,sPi01,rRes2,mass1[i]); B1_a1012604=BarrierN(1,sa1012604,sa10f05002,sPi02,rRes2,mass1[i]);
2991 }
2992 if(B1_rho1==-1) { B1_rho1=BarrierN(1,srho1,sPip2,sPi02,rRes2,mass2[i]); B1_rho2=BarrierN(1,srho2,sPip2,sPi01,rRes2,mass2[i]); B1_rho3=BarrierN(1,srho3,sPip1,sPi02,rRes2,mass2[i]); B1_rho4=BarrierN(1,srho4,sPip1,sPi01,rRes2,mass2[i]);
2993 }
2994 calt1(Pip2,Pi02,t1rho1); calt1(Pip2,Pi01,t1rho2); calt1(Pip1,Pi02,t1rho3); calt1(Pip1,Pi01,t1rho4);
2995 calt1(pa10f05001,Pi01,t1a1012601); calt1(pa10f05001,Pi02,t1a1012602); calt1(pa10f05002,Pi01,t1a1012603); calt1(pa10f05002,Pi02,t1a1012604);
2996
2997 for(int i=0; i<4; i++)
2998 {
2999 double ttt1a1012601 = G[i][i]*t1a1012601[i];
3000 double ttt1a1012602 = G[i][i]*t1a1012602[i];
3001 double ttt1a1012603 = G[i][i]*t1a1012603[i];
3002 double ttt1a1012604 = G[i][i]*t1a1012604[i];
3003
3004 for(int j=0; j<4; j++)
3005 {
3006 temp_PDF1 += G[j][j]*ttt1a1012601*t1rho1[j];
3007 temp_PDF2 += G[j][j]*ttt1a1012602*t1rho2[j];
3008 temp_PDF3 += G[j][j]*ttt1a1012603*t1rho3[j];
3009 temp_PDF4 += G[j][j]*ttt1a1012604*t1rho4[j];
3010 }
3011 }
3012
3013 temp_PDF1 = temp_PDF1*B1_a1012601*B1_rho1;
3014 temp_PDF2 = temp_PDF2*B1_a1012602*B1_rho2;
3015 temp_PDF3 = temp_PDF3*B1_a1012603*B1_rho3;
3016 temp_PDF4 = temp_PDF4*B1_a1012604*B1_rho4;
3017
3018 }
3019
3020 else if (g2[i]==1)
3021 {
3022 if(B1_a1012601==-1) { B1_a1012601=BarrierN(1,sa1012601,sa10f05001,sPi01,rRes2,mass1[i]); B1_a1012602=BarrierN(1,sa1012602,sa10f05001,sPi02,rRes2,mass1[i]); B1_a1012603=BarrierN(1,sa1012603,sa10f05002,sPi01,rRes2,mass1[i]); B1_a1012604=BarrierN(1,sa1012604,sa10f05002,sPi02,rRes2,mass1[i]);
3023 }
3024 if(B1_rho1==-1) { B1_rho1=BarrierN(1,srho1,sPip2,sPi02,rRes2,mass2[i]); B1_rho2=BarrierN(1,srho2,sPip2,sPi01,rRes2,mass2[i]); B1_rho3=BarrierN(1,srho3,sPip1,sPi02,rRes2,mass2[i]); B1_rho4=BarrierN(1,srho4,sPip1,sPi01,rRes2,mass2[i]);
3025 }
3026 if(B1_Ds_a1012601==-1) { B1_Ds_a1012601=BarrierN(1,sDs,sa1012601,srho1,rDs2,mDsM); B1_Ds_a1012602=BarrierN(1,sDs,sa1012602,srho2,rDs2,mDsM); B1_Ds_a1012603=BarrierN(1,sDs,sa1012603,srho3,rDs2,mDsM); B1_Ds_a1012604=BarrierN(1,sDs,sa1012604,srho4,rDs2,mDsM);
3027 }
3028
3029 calt1(Pip2,Pi02,t1rho1); calt1(Pip2,Pi01,t1rho2); calt1(Pip1,Pi02,t1rho3); calt1(Pip1,Pi01,t1rho4);
3030 calt1(pa1012601,prho1,t1Ds_a1012601); calt1(pa1012602,prho2,t1Ds_a1012602); calt1(pa1012603,prho3,t1Ds_a1012603); calt1(pa1012604,prho4,t1Ds_a1012604);
3031 calt1(pa10f05001,Pi01,t1a1012601); calt1(pa10f05001,Pi02,t1a1012602); calt1(pa10f05002,Pi01,t1a1012603); calt1(pa10f05002,Pi02,t1a1012604);
3032 for(int i=0; i<4; i++)
3033 {
3034 double ttt1a1012601 = G[i][i]*t1a1012601[i];
3035 double ttt1a1012602 = G[i][i]*t1a1012602[i];
3036 double ttt1a1012603 = G[i][i]*t1a1012603[i];
3037 double ttt1a1012604 = G[i][i]*t1a1012604[i];
3038 for(int j=0; j<4; j++)
3039 {
3040 double ttta1rho1 = G[j][j]*t1rho1[j];
3041 double ttta1rho2 = G[j][j]*t1rho2[j];
3042 double ttta1rho3 = G[j][j]*t1rho3[j];
3043 double ttta1rho4 = G[j][j]*t1rho4[j];
3044
3045 for(int k=0; k<4; k++)
3046 {
3047 double ttta1Ds1 = G[k][k]*t1Ds_a1012601[k];
3048 double ttta1Ds2 = G[k][k]*t1Ds_a1012602[k];
3049 double ttta1Ds3 = G[k][k]*t1Ds_a1012603[k];
3050 double ttta1Ds4 = G[k][k]*t1Ds_a1012604[k];
3051
3052 for(int l=0; l<4; l++)
3053 {
3054 temp_PDF1 += E[i][j][k][l]*pDs[l]*ttt1a1012601*ttta1rho1*ttta1Ds1;
3055 temp_PDF2 += E[i][j][k][l]*pDs[l]*ttt1a1012602*ttta1rho2*ttta1Ds2;
3056 temp_PDF3 += E[i][j][k][l]*pDs[l]*ttt1a1012603*ttta1rho3*ttta1Ds3;
3057 temp_PDF4 += E[i][j][k][l]*pDs[l]*ttt1a1012604*ttta1rho4*ttta1Ds4;
3058 }
3059 }
3060 }
3061 }
3062
3063 temp_PDF1 = temp_PDF1*B1_a1012601*B1_rho1*B1_Ds_a1012601;
3064 temp_PDF2 = temp_PDF2*B1_a1012602*B1_rho2*B1_Ds_a1012602;
3065 temp_PDF3 = temp_PDF3*B1_a1012603*B1_rho3*B1_Ds_a1012603;
3066 temp_PDF4 = temp_PDF4*B1_a1012604*B1_rho4*B1_Ds_a1012604;
3067
3068 }
3069
3070 else if (g2[i]==2)
3071 {
3072 if(B1_a1012601==-1) { B1_a1012601=BarrierN(1,sa1012601,sa10f05001,sPi01,rRes2,mass1[i]); B1_a1012602=BarrierN(1,sa1012602,sa10f05001,sPi02,rRes2,mass1[i]); B1_a1012603=BarrierN(1,sa1012603,sa10f05002,sPi01,rRes2,mass1[i]); B1_a1012604=BarrierN(1,sa1012604,sa10f05002,sPi02,rRes2,mass1[i]);
3073 }
3074 if(B1_rho1==-1) { B1_rho1=BarrierN(1,srho1,sPip2,sPi02,rRes2,mass2[i]); B1_rho2=BarrierN(1,srho2,sPip2,sPi01,rRes2,mass2[i]); B1_rho3=BarrierN(1,srho3,sPip1,sPi02,rRes2,mass2[i]); B1_rho4=BarrierN(1,srho4,sPip1,sPi01,rRes2,mass2[i]);
3075 }
3076
3077 if(B2_Ds_a1012601==-1) { B2_Ds_a1012601=BarrierN(2,sDs,sa1012601,srho1,rDs2,mDsM); B2_Ds_a1012602=BarrierN(2,sDs,sa1012602,srho2,rDs2,mDsM); B2_Ds_a1012603=BarrierN(2,sDs,sa1012603,srho3,rDs2,mDsM); B2_Ds_a1012604=BarrierN(2,sDs,sa1012604,srho4,rDs2,mDsM);
3078 }
3079 calt1(Pip2,Pi02,t1rho1); calt1(Pip2,Pi01,t1rho2); calt1(Pip1,Pi02,t1rho3); calt1(Pip1,Pi01,t1rho4);
3080 calt2(pa1012601,prho1,t2Ds_a1012601); calt2(pa1012602,prho2,t2Ds_a1012602); calt2(pa1012603,prho3,t2Ds_a1012603); calt2(pa1012604,prho4,t2Ds_a1012604);
3081 calt1(pa10f05001,Pi01,t1a1012601); calt1(pa10f05001,Pi02,t1a1012602); calt1(pa10f05002,Pi01,t1a1012603); calt1(pa10f05002,Pi02,t1a1012604);
3082
3083 for(int i=0; i<4; i++)
3084 {
3085 double ttta1rho1 = t1rho1[i]*G[i][i];
3086 double ttta1rho2 = t1rho2[i]*G[i][i];
3087 double ttta1rho3 = t1rho3[i]*G[i][i];
3088 double ttta1rho4 = t1rho4[i]*G[i][i];
3089
3090 for(int j=0; j<4; j++)
3091 {
3092 temp_PDF1 += ttta1rho1*t1a1012601[j]*t2Ds_a1012601[i][j]*G[j][j];
3093 temp_PDF2 += ttta1rho2*t1a1012602[j]*t2Ds_a1012602[i][j]*G[j][j];
3094 temp_PDF3 += ttta1rho3*t1a1012603[j]*t2Ds_a1012603[i][j]*G[j][j];
3095 temp_PDF4 += ttta1rho4*t1a1012604[j]*t2Ds_a1012604[i][j]*G[j][j];
3096 }
3097 }
3098 temp_PDF1 = temp_PDF1*B1_a1012601*B1_rho1*B2_Ds_a1012601;
3099 temp_PDF2 = temp_PDF2*B1_a1012602*B1_rho2*B2_Ds_a1012602;
3100 temp_PDF3 = temp_PDF3*B1_a1012603*B1_rho3*B2_Ds_a1012603;
3101 temp_PDF4 = temp_PDF4*B1_a1012604*B1_rho4*B2_Ds_a1012604;
3102
3103 }
3104
3105 if(g0[i]==1) {
3106 propagatorRBW(mass1sq,mass1[i],width1[i],sa1012601,sa10f05001,sPi01,rRes2,1,proa101);
3107 propagatorRBW(mass1sq,mass1[i],width1[i],sa1012602,sa10f05001,sPi02,rRes2,1,proa102);
3108 propagatorRBW(mass1sq,mass1[i],width1[i],sa1012603,sa10f05002,sPi01,rRes2,1,proa103);
3109 propagatorRBW(mass1sq,mass1[i],width1[i],sa1012604,sa10f05002,sPi02,rRes2,1,proa104);
3110
3111 propagatorsigma500(sa10f05001, sPip1, sPim, proa10f05001);
3112 propagatorsigma500(sa10f05002, sPip2, sPim, proa10f05002);
3113
3114 Com_Multi(proa101,proa10f05001,pro0_1); Com_Multi(proa102,proa10f05001,pro0_2);
3115 Com_Multi(proa103,proa10f05002,pro0_3); Com_Multi(proa104,proa10f05002,pro0_4);
3116
3117 }
3118 else if(g0[i]==0){
3119 pro0_1[0] = 1; pro0_1[1] = 0;
3120 pro0_2[0] = 1; pro0_2[1] = 0;
3121 pro0_3[0] = 1; pro0_3[1] = 0;
3122 pro0_4[0] = 1; pro0_4[1] = 0;
3123 }
3124 if(g1[i]==1){
3125
3126 propagatorGS(mass2sq,mass2[i],width2[i],srho1,sPip2,sPi02,rRes2,pro1_1);
3127 propagatorGS(mass2sq,mass2[i],width2[i],srho2,sPip2,sPi01,rRes2,pro1_2);
3128 propagatorGS(mass2sq,mass2[i],width2[i],srho3,sPip1,sPi02,rRes2,pro1_3);
3129 propagatorGS(mass2sq,mass2[i],width2[i],srho4,sPip1,sPi01,rRes2,pro1_4);
3130
3131
3132 }
3133 else if(g1[i]==0){
3134 pro1_1[0] = 1; pro1_1[1] = 0;
3135 pro1_2[0] = 1; pro1_2[1] = 0;
3136 pro1_3[0] = 1; pro1_3[1] = 0;
3137 pro1_4[0] = 1; pro1_4[1] = 0;
3138 }
3139 Com_Multi(pro0_1,pro1_1,pro_1); Com_Multi(pro0_2,pro1_2,pro_2);
3140 Com_Multi(pro0_3,pro1_3,pro_3); Com_Multi(pro0_4,pro1_4,pro_4);
3141
3142
3143 amp_tmp1[0] = temp_PDF1*pro_1[0];
3144 amp_tmp1[1] = temp_PDF1*pro_1[1];
3145 amp_tmp2[0] = temp_PDF2*pro_2[0];
3146 amp_tmp2[1] = temp_PDF2*pro_2[1];
3147 amp_tmp3[0] = temp_PDF3*pro_3[0];
3148 amp_tmp3[1] = temp_PDF3*pro_3[1];
3149 amp_tmp4[0] = temp_PDF4*pro_4[0];
3150 amp_tmp4[1] = temp_PDF4*pro_4[1];
3151
3152 }
3153
3154
3155 else if(modetype[i]==14){
3156 if(g2[i]==0)
3157 {
3158 if(B1_a1p12601==-1) { B1_a1p12601=BarrierN(1,sa1p12601,sa1pf0500,sPip1,rRes2,mass1[i]); B1_a1p12602=BarrierN(1,sa1p12602,sa1pf0500,sPip2,rRes2,mass1[i]);
3159 }
3160 if(B1_a1rho1==-1) { B1_a1rho1=BarrierN(1,sa1rho1,sPip2,sPim,rRes2,mass2[i]); B1_a1rho2=BarrierN(1,sa1rho2,sPip1,sPim,rRes2,mass2[i]);
3161 }
3162
3163 calt1(pa1pf0500,Pip1,t1a1p12601); calt1(pa1pf0500,Pip2,t1a1p12602);
3164 calt1(Pip2,Pim,t1a1rho1); calt1(Pip1,Pim,t1a1rho2);
3165
3166 for(int i=0; i<4; i++)
3167 {
3168 double ttt1a1p12601 = G[i][i]*t1a1p12601[i];
3169 double ttt1a1p12602 = G[i][i]*t1a1p12602[i];
3170
3171 for(int j=0; j<4; j++)
3172 {
3173 temp_PDF1 += G[j][j]*ttt1a1p12601*t1a1rho1[j];
3174 temp_PDF2 += G[j][j]*ttt1a1p12602*t1a1rho2[j];
3175 }
3176 }
3177
3178 temp_PDF1 = temp_PDF1*B1_a1p12601*B1_a1rho1;
3179 temp_PDF2 = temp_PDF2*B1_a1p12602*B1_a1rho2;
3180
3181 }
3182
3183 else if (g2[i]==1)
3184 {
3185 if(B1_a1p12601==-1) { B1_a1p12601=BarrierN(1,sa1p12601,sa1pf0500,sPip1,rRes2,mass1[i]); B1_a1p12602=BarrierN(1,sa1p12602,sa1pf0500,sPip2,rRes2,mass1[i]);
3186 }
3187 if(B1_a1rho1==-1) { B1_a1rho1=BarrierN(1,sa1rho1,sPip2,sPim,rRes2,mass2[i]); B1_a1rho2=BarrierN(1,sa1rho2,sPip1,sPim,rRes2,mass2[i]);
3188 }
3189 if(B1_Ds_a1p12601==-1) { B1_Ds_a1p12601=BarrierN(1,sDs,sa1p12601,sa1rho1,rDs2,mDsM); B1_Ds_a1p12602=BarrierN(1,sDs,sa1p12602,sa1rho2,rDs2,mDsM);
3190 }
3191 calt1(pa1p12601,pa1rho1,t1Ds_a1p12601); calt1(pa1p12602,pa1rho2,t1Ds_a1p12602);
3192 calt1(Pip2,Pim,t1a1rho1); calt1(Pip1,Pim,t1a1rho2);
3193 calt1(pa1pf0500,Pip1,t1a1p12601); calt1(pa1pf0500,Pip2,t1a1p12602);
3194
3195 for(int i=0; i<4; i++)
3196 {
3197 double ttt1a1p12601 = G[i][i]*t1a1p12601[i];
3198 double ttt1a1p12602 = G[i][i]*t1a1p12602[i];
3199 for(int j=0; j<4; j++)
3200 {
3201 double ttta1rho1 = G[j][j]*t1a1rho1[j];
3202 double ttta1rho2 = G[j][j]*t1a1rho2[j];
3203
3204 for(int k=0; k<4; k++)
3205 {
3206 double ttta1Ds1 = G[k][k]*t1Ds_a1p12601[k];
3207 double ttta1Ds2 = G[k][k]*t1Ds_a1p12602[k];
3208
3209 for(int l=0; l<4; l++)
3210 {
3211 temp_PDF1 += E[i][j][k][l]*pDs[l]*ttt1a1p12601*ttta1rho1*ttta1Ds1;
3212 temp_PDF2 += E[i][j][k][l]*pDs[l]*ttt1a1p12602*ttta1rho2*ttta1Ds2;
3213 }
3214 }
3215 }
3216 }
3217
3218 temp_PDF1 = temp_PDF1*B1_a1p12601*B1_a1rho1*B1_Ds_a1p12601;
3219 temp_PDF2 = temp_PDF2*B1_a1p12602*B1_a1rho2*B1_Ds_a1p12602;
3220
3221 }
3222
3223 else if (g2[i]==2)
3224 {
3225 if(B1_a1p12601==-1) { B1_a1p12601=BarrierN(1,sa1p12601,sa1pf0500,sPip1,rRes2,mass1[i]); B1_a1p12602=BarrierN(1,sa1p12602,sa1pf0500,sPip2,rRes2,mass1[i]);
3226 }
3227 if(B1_a1rho1==-1) { B1_a1rho1=BarrierN(1,sa1rho1,sPip2,sPim,rRes2,mass2[i]); B1_a1rho2=BarrierN(1,sa1rho2,sPip1,sPim,rRes2,mass2[i]);
3228 }
3229
3230 if(B2_Ds_a1p12601==-1) { B2_Ds_a1p12601=BarrierN(2,sDs,sa1p12601,sa1rho1,rDs2,mDsM); B2_Ds_a1p12602=BarrierN(2,sDs,sa1p12602,sa1rho2,rDs2,mDsM);
3231 }
3232 calt2(pa1p12601,pa1rho1,t2Ds_a1p12601); calt2(pa1p12602,pa1rho2,t2Ds_a1p12602);
3233 calt1(pa1pf0500,Pip1,t1a1p12601); calt1(pa1pf0500,Pip2,t1a1p12602);
3234 calt1(Pip2,Pim,t1a1rho1); calt1(Pip1,Pim,t1a1rho2);
3235
3236 for(int i=0; i<4; i++)
3237 {
3238 double ttta1rho1 = t1a1rho1[i]*G[i][i];
3239 double ttta1rho2 = t1a1rho2[i]*G[i][i];
3240
3241 for(int j=0; j<4; j++)
3242 {
3243 temp_PDF1 += ttta1rho1*t1a1p12601[j]*t2Ds_a1p12601[i][j]*G[j][j];
3244 temp_PDF2 += ttta1rho2*t1a1p12602[j]*t2Ds_a1p12602[i][j]*G[j][j];
3245 }
3246 }
3247 temp_PDF1 = temp_PDF1*B1_a1p12601*B1_rho1*B2_Ds_a1p12601;
3248 temp_PDF2 = temp_PDF2*B1_a1p12602*B1_rho2*B2_Ds_a1p12602;
3249
3250 }
3251
3252 if(g0[i]==1) {
3253 propagatorRBW(mass1sq,mass1[i],width1[i],sa1p12601,sa1pf0500,sPip1,rRes2,1,proa1p1);
3254 propagatorRBW(mass1sq,mass1[i],width1[i],sa1p12602,sa1pf0500,sPip2,rRes2,1,proa1p2);
3255
3256 propagatorsigma500(sa1pf0500, sPi01, sPi02, proa1pf0500);
3257
3258 Com_Multi(proa1p1,proa1pf0500,pro0_1); Com_Multi(proa1p2,proa1pf0500,pro0_2);
3259
3260 }
3261 else if(g0[i]==0){
3262 pro0_1[0] = 1; pro0_1[1] = 0;
3263 pro0_2[0] = 1; pro0_2[1] = 0;
3264 }
3265 if(g1[i]==1){
3266
3267 propagatorGS(mass2sq,mass2[i],width2[i],sa1rho1,sPip2,sPim,rRes2,pro1_1);
3268 propagatorGS(mass2sq,mass2[i],width2[i],sa1rho2,sPip1,sPim,rRes2,pro1_2);
3269
3270 }
3271 else if(g1[i]==0){
3272 pro1_1[0] = 1; pro1_1[1] = 0;
3273 pro1_2[0] = 1; pro1_2[1] = 0;
3274 }
3275 Com_Multi(pro0_1,pro1_1,pro_1); Com_Multi(pro0_2,pro1_2,pro_2);
3276
3277
3278 amp_tmp1[0] = temp_PDF1*pro_1[0];
3279 amp_tmp1[1] = temp_PDF1*pro_1[1];
3280 amp_tmp2[0] = temp_PDF2*pro_2[0];
3281 amp_tmp2[1] = temp_PDF2*pro_2[1];
3282 amp_tmp3[0] = 0;
3283 amp_tmp3[1] = 0;
3284 amp_tmp4[0] = 0;
3285 amp_tmp4[1] = 0;
3286
3287 }
3288
3289
3290 else if(modetype[i]==15){
3291 if(g2[i]==0){
3292 if(B1_f11420rhop1==-1) { B1_f11420rhop1=BarrierN(1,sf11420rhop1,sPip1,sPi01,rRes2,mass2[i]); B1_f11420rhop2=BarrierN(1,sf11420rhop2,sPip1,sPi02,rRes2,mass2[i]); B1_f11420rhop3=BarrierN(1,sf11420rhop3,sPip2,sPi01,rRes2,mass2[i]); B1_f11420rhop4=BarrierN(1,sf11420rhop4,sPip2,sPi02,rRes2,mass2[i]);
3293 }
3294 if(B1_f11420rhom1==-1) { B1_f11420rhom1=BarrierN(1,sf11420rhom1,sPim,sPi02,rRes2,mass2[i]); B1_f11420rhom2=BarrierN(1,sf11420rhom2,sPim,sPi01,rRes2,mass2[i]); B1_f11420rhom3=BarrierN(1,sf11420rhom3,sPim,sPi02,rRes2,mass2[i]); B1_f11420rhom4=BarrierN(1,sf11420rhom4,sPim,sPi01,rRes2,mass2[i]);
3295 }
3296 if(B1_Ds_f114201==-1) { B1_Ds_f114201=BarrierN(1,sDs,sf114201,sPip2,rDs2,mDsM); B1_Ds_f114202=BarrierN(1,sDs,sf114202,sPip2,rDs2,mDsM); B1_Ds_f114203=BarrierN(1,sDs,sf114203,sPip1,rDs2,mDsM); B1_Ds_f114204=BarrierN(1,sDs,sf114204,sPip1,rDs2,mDsM);
3297 }
3298
3299 for(int i=0; i<4; i++)
3300 {
3301 double ttt1Ds = t1Ds_f114201[i]*G[i][i];
3302 double ttt2Ds = t1Ds_f114202[i]*G[i][i];
3303 double ttt3Ds = t1Ds_f114203[i]*G[i][i];
3304 double ttt4Ds = t1Ds_f114204[i]*G[i][i];
3305
3306 for(int j=0; j<4; j++)
3307 {
3308 double ppp1f1 = p1f114201[i][j]*G[j][j];
3309 double ppp2f1 = p1f114202[i][j]*G[j][j];
3310 double ppp3f1 = p1f114203[i][j]*G[j][j];
3311 double ppp4f1 = p1f114204[i][j]*G[j][j];
3312
3313 for(int k=0; k<4; k++)
3314 {
3315 double pppp1f1 = pf114201[k]*G[k][k];
3316 double pppp2f1 = pf114202[k]*G[k][k];
3317 double pppp3f1 = pf114203[k]*G[k][k];
3318 double pppp4f1 = pf114204[k]*G[k][k];
3319
3320 for(int l=0; l<4; l++)
3321 {
3322 double ttt1f1rhop = t1f11420rhop1[l]*G[l][l];
3323 double ttt2f1rhop = t1f11420rhop2[l]*G[l][l];
3324 double ttt3f1rhop = t1f11420rhop3[l]*G[l][l];
3325 double ttt4f1rhop = t1f11420rhop4[l]*G[l][l];
3326
3327 for(int m=0; m<4; m++)
3328 {
3329 temp_PDF1 += ttt1Ds*ppp1f1*pppp1f1*ttt1f1rhop*t1f11420rhom1[m]*G[m][m]*E[j][k][l][m];
3330 temp_PDF2 += ttt2Ds*ppp2f1*pppp2f1*ttt2f1rhop*t1f11420rhom2[m]*G[m][m]*E[j][k][l][m];
3331 temp_PDF3 += ttt3Ds*ppp3f1*pppp3f1*ttt3f1rhop*t1f11420rhom3[m]*G[m][m]*E[j][k][l][m];
3332 temp_PDF4 += ttt4Ds*ppp4f1*pppp4f1*ttt4f1rhop*t1f11420rhom4[m]*G[m][m]*E[j][k][l][m];
3333 }
3334 }
3335 }
3336 }
3337 }
3338
3339 temp_PDF1 = temp_PDF1*B1_Ds_f114201*B1_f11420rhop1*B1_f11420rhom1;
3340 temp_PDF2 = temp_PDF2*B1_Ds_f114202*B1_f11420rhop2*B1_f11420rhom2;
3341 temp_PDF3 = temp_PDF3*B1_Ds_f114203*B1_f11420rhop3*B1_f11420rhom3;
3342 temp_PDF4 = temp_PDF4*B1_Ds_f114204*B1_f11420rhop4*B1_f11420rhom4;
3343
3344 }
3345
3346 if(g0[i]==1) {
3347 propagatorRBW(mass1sq,mass1[i],width1[i],sf114201,sf11420rhop1,sf11420rhom1,rRes2,g2[i],prof114201);
3348 propagatorRBW(mass1sq,mass1[i],width1[i],sf114202,sf11420rhop2,sf11420rhom2,rRes2,g2[i],prof114202);
3349 propagatorRBW(mass1sq,mass1[i],width1[i],sf114203,sf11420rhop3,sf11420rhom3,rRes2,g2[i],prof114203);
3350 propagatorRBW(mass1sq,mass1[i],width1[i],sf114204,sf11420rhop4,sf11420rhom4,rRes2,g2[i],prof114204);
3351
3352
3353 propagatorGS(mass2sq,mass2[i],width2[i],sf11420rhop1,sPip1,sPi01,rRes2,prof11420rhop1);
3354 propagatorGS(mass2sq,mass2[i],width2[i],sf11420rhop2,sPip1,sPi02,rRes2,prof11420rhop2);
3355 propagatorGS(mass2sq,mass2[i],width2[i],sf11420rhop3,sPip2,sPi01,rRes2,prof11420rhop3);
3356 propagatorGS(mass2sq,mass2[i],width2[i],sf11420rhop4,sPip2,sPi02,rRes2,prof11420rhop4);
3357
3358
3359 Com_Multi(prof114201,prof11420rhop1,pro0_1); Com_Multi(prof114202,prof11420rhop2,pro0_2);
3360 Com_Multi(prof114203,prof11420rhop3,pro0_3); Com_Multi(prof114204,prof11420rhop4,pro0_4);
3361
3362 }
3363 else if(g0[i]==0){
3364 pro0_1[0] = 1; pro0_1[1] = 0;
3365 pro0_2[0] = 1; pro0_2[1] = 0;
3366 pro0_3[0] = 1; pro0_3[1] = 0;
3367 pro0_4[0] = 1; pro0_4[1] = 0;
3368 }
3369 if(g1[i]==1){
3370
3371 propagatorGS(mass2sq,mass2[i],width2[i],sf11420rhom1,sPim,sPi02,rRes2,pro1_1);
3372 propagatorGS(mass2sq,mass2[i],width2[i],sf11420rhom2,sPim,sPi01,rRes2,pro1_2);
3373 propagatorGS(mass2sq,mass2[i],width2[i],sf11420rhom3,sPim,sPi02,rRes2,pro1_3);
3374 propagatorGS(mass2sq,mass2[i],width2[i],sf11420rhom4,sPim,sPi01,rRes2,pro1_4);
3375
3376
3377 }
3378 else if(g1[i]==0){
3379 pro1_1[0] = 1; pro1_1[1] = 0;
3380 pro1_2[0] = 1; pro1_2[1] = 0;
3381 pro1_3[0] = 1; pro1_3[1] = 0;
3382 pro1_4[0] = 1; pro1_4[1] = 0;
3383 }
3384 Com_Multi(pro0_1,pro1_1,pro_1); Com_Multi(pro0_2,pro1_2,pro_2);
3385 Com_Multi(pro0_3,pro1_3,pro_3); Com_Multi(pro0_4,pro1_4,pro_4);
3386
3387
3388 amp_tmp1[0] = temp_PDF1*pro_1[0];
3389 amp_tmp1[1] = temp_PDF1*pro_1[1];
3390 amp_tmp2[0] = temp_PDF2*pro_2[0];
3391 amp_tmp2[1] = temp_PDF2*pro_2[1];
3392 amp_tmp3[0] = temp_PDF3*pro_3[0];
3393 amp_tmp3[1] = temp_PDF3*pro_3[1];
3394 amp_tmp4[0] = temp_PDF4*pro_4[0];
3395 amp_tmp4[1] = temp_PDF4*pro_4[1];
3396 }
3397
3398
3399 else if(modetype[i]==16){
3400 if(g2[i]==1020){
3401 if(B1_r1a1rho01==-1){ B1_r1a1rho01 = BarrierN(1,sr1a1rho01,sPip1,sPim,rRes2,mass2[i]); B1_r1a1rho02 = BarrierN(1,sr1a1rho02,sPip1,sPim,rRes2,mass2[i]); B1_r1a1rho03 = BarrierN(1,sr1a1rho03,sPip2,sPim,rRes2,mass2[i]); B1_r1a1rho04 = BarrierN(1,sr1a1rho04,sPip2,sPim,rRes2,mass2[i]);
3402 }
3403 if(B1_r1rhop1==-1){ B1_r1rhop1 = BarrierN(1,sr1rhop1,sPip2,sPi02,rRes2,mass2[i]); B1_r1rhop2 = BarrierN(1,sr1rhop2,sPip2,sPi01,rRes2,mass2[i]); B1_r1rhop3 = BarrierN(1,sr1rhop3,sPip1,sPi02,rRes2,mass2[i]); B1_r1rhop4 = BarrierN(1,sr1rhop4,sPip1,sPi01,rRes2,mass2[i]);
3404 }
3405
3406 calG2(pr1a1rho01,Pi01,p1r1a11); calG2(pr1a1rho02,Pi02,p1r1a12); calG2(pr1a1rho03,Pi01,p1r1a13); calG2(pr1a1rho04,Pi02,p1r1a14);
3407 calt1(Pip1,Pim,t1r1a1rho01); calt1(Pip1,Pim,t1r1a1rho02); calt1(Pip2,Pim,t1r1a1rho03); calt1(Pip2,Pim,t1r1a1rho04);
3408 calt1(Pip2,Pi02,t1r1rhop1); calt1(Pip2,Pi01,t1r1rhop2); calt1(Pip1,Pi02,t1r1rhop3); calt1(Pip1,Pi01,t1r1rhop4);
3409
3410 for(int i=0; i<4; i++)
3411 {
3412 double ttt1rho0 = t1r1a1rho01[i]*G[i][i];
3413 double ttt2rho0 = t1r1a1rho02[i]*G[i][i];
3414 double ttt3rho0 = t1r1a1rho03[i]*G[i][i];
3415 double ttt4rho0 = t1r1a1rho04[i]*G[i][i];
3416 for(int j=0; j<4; j++)
3417 {
3418 temp_PDF1 += ttt1rho0*t1r1rhop1[j]*G[j][j]*p1r1a11[i][j];
3419 temp_PDF2 += ttt2rho0*t1r1rhop2[j]*G[j][j]*p1r1a12[i][j];
3420 temp_PDF3 += ttt3rho0*t1r1rhop3[j]*G[j][j]*p1r1a13[i][j];
3421 temp_PDF4 += ttt4rho0*t1r1rhop4[j]*G[j][j]*p1r1a14[i][j];
3422 }
3423
3424 }
3425
3426 temp_PDF1 = temp_PDF1*B1_r1a1rho01*B1_r1rhop1;
3427 temp_PDF2 = temp_PDF2*B1_r1a1rho02*B1_r1rhop2;
3428 temp_PDF3 = temp_PDF3*B1_r1a1rho03*B1_r1rhop3;
3429 temp_PDF4 = temp_PDF4*B1_r1a1rho04*B1_r1rhop4;
3430
3431 }
3432
3433 else if(g2[i]==1022){
3434 if(B1_r1a1rho01==-1){ B1_r1a1rho01 = BarrierN(1,sr1a1rho01,sPip1,sPim,rRes2,mass2[i]); B1_r1a1rho02 = BarrierN(1,sr1a1rho02,sPip1,sPim,rRes2,mass2[i]); B1_r1a1rho03 = BarrierN(1,sr1a1rho03,sPip2,sPim,rRes2,mass2[i]); B1_r1a1rho04 = BarrierN(1,sr1a1rho04,sPip2,sPim,rRes2,mass2[i]);
3435 }
3436 if(B1_r1rhop1==-1){ B1_r1rhop1 = BarrierN(1,sr1rhop1,sPip2,sPi02,rRes2,mass2[i]); B1_r1rhop2 = BarrierN(1,sr1rhop2,sPip2,sPi01,rRes2,mass2[i]); B1_r1rhop3 = BarrierN(1,sr1rhop3,sPip1,sPi02,rRes2,mass2[i]); B1_r1rhop4 = BarrierN(1,sr1rhop4,sPip1,sPi01,rRes2,mass2[i]);
3437 }
3438
3439 if(B2_r1a11==-1){ B2_r1a11 = BarrierN(2,sr1a11,sr1a1rho01,sPi01,rRes2,mass1[i]); B2_r1a12 = BarrierN(2,sr1a12,sr1a1rho02,sPi02,rRes2,mass1[i]); B2_r1a13 = BarrierN(2,sr1a13,sr1a1rho03,sPi01,rRes2,mass1[i]); B2_r1a14 = BarrierN(2,sr1a14,sr1a1rho04,sPi02,rRes2,mass1[i]);
3440 }
3441
3442 calt1(Pip1,Pim,t1r1a1rho01); calt1(Pip1,Pim,t1r1a1rho02); calt1(Pip2,Pim,t1r1a1rho03); calt1(Pip2,Pim,t1r1a1rho04);
3443 calt1(Pip2,Pi02,t1r1rhop1); calt1(Pip2,Pi01,t1r1rhop2); calt1(Pip1,Pi02,t1r1rhop3); calt1(Pip1,Pi01,t1r1rhop4);
3444 calt2(pr1a1rho01,Pi01,t2r1a11); calt2(pr1a1rho02,Pi02,t2r1a12); calt2(pr1a1rho03,Pi01,t2r1a13); calt2(pr1a1rho04,Pi02,t2r1a14);
3445
3446 for(int i=0; i<4; i++)
3447 {
3448 double tttrhop1 = t1r1rhop1[i]*G[i][i];
3449 double tttrhop2 = t1r1rhop2[i]*G[i][i];
3450 double tttrhop3 = t1r1rhop3[i]*G[i][i];
3451 double tttrhop4 = t1r1rhop4[i]*G[i][i];
3452
3453 for(int j=0; j<4; j++)
3454 {
3455
3456 temp_PDF1 += tttrhop1*t1r1a1rho01[j]*G[j][j]*t2r1a11[j][i];
3457 temp_PDF2 += tttrhop2*t1r1a1rho02[j]*G[j][j]*t2r1a12[j][i];
3458 temp_PDF3 += tttrhop3*t1r1a1rho03[j]*G[j][j]*t2r1a13[j][i];
3459 temp_PDF4 += tttrhop4*t1r1a1rho04[j]*G[j][j]*t2r1a14[j][i];
3460 }
3461 }
3462
3463 temp_PDF1 = temp_PDF1*B1_r1a1rho01*B1_r1rhop1*B2_r1a11;
3464 temp_PDF2 = temp_PDF2*B1_r1a1rho02*B1_r1rhop2*B2_r1a12;
3465 temp_PDF3 = temp_PDF3*B1_r1a1rho03*B1_r1rhop3*B2_r1a13;
3466 temp_PDF4 = temp_PDF4*B1_r1a1rho04*B1_r1rhop4*B2_r1a14;
3467
3468 }
3469
3470 else if(g2[i]==1120){
3471 if(B1_r1a1rho01==-1){ B1_r1a1rho01 = BarrierN(1,sr1a1rho01,sPip1,sPim,rRes2,mass2[i]); B1_r1a1rho02 = BarrierN(1,sr1a1rho02,sPip1,sPim,rRes2,mass2[i]); B1_r1a1rho03 = BarrierN(1,sr1a1rho03,sPip2,sPim,rRes2,mass2[i]); B1_r1a1rho04 = BarrierN(1,sr1a1rho04,sPip2,sPim,rRes2,mass2[i]);
3472 }
3473 if(B1_r1rhop1==-1){ B1_r1rhop1 = BarrierN(1,sr1rhop1,sPip2,sPi02,rRes2,mass2[i]); B1_r1rhop2 = BarrierN(1,sr1rhop2,sPip2,sPi01,rRes2,mass2[i]); B1_r1rhop3 = BarrierN(1,sr1rhop3,sPip1,sPi02,rRes2,mass2[i]); B1_r1rhop4 = BarrierN(1,sr1rhop4,sPip1,sPi01,rRes2,mass2[i]);
3474 }
3475 if(B1_Ds_r1a1rhop1==-1){ B1_Ds_r1a1rhop1 = BarrierN(1,sDs,sr1a11,sr1rhop1,rDs2,mDsM); B1_Ds_r1a1rhop2 = BarrierN(1,sDs,sr1a12,sr1rhop2,rDs2,mDsM); B1_Ds_r1a1rhop3 = BarrierN(1,sDs,sr1a13,sr1rhop3,rDs2,mDsM); B1_Ds_r1a1rhop4 = BarrierN(1,sDs,sr1a14,sr1rhop4,rDs2,mDsM);
3476 }
3477
3478 calG2(pr1a1rho01,Pi01,p1r1a11); calG2(pr1a1rho02,Pi02,p1r1a12); calG2(pr1a1rho03,Pi01,p1r1a13); calG2(pr1a1rho04,Pi02,p1r1a14);
3479 calt1(Pip1,Pim,t1r1a1rho01); calt1(Pip1,Pim,t1r1a1rho02); calt1(Pip2,Pim,t1r1a1rho03); calt1(Pip2,Pim,t1r1a1rho04);
3480 calt1(Pip2,Pi02,t1r1rhop1); calt1(Pip2,Pi01,t1r1rhop2); calt1(Pip1,Pi02,t1r1rhop3); calt1(Pip1,Pi01,t1r1rhop4);
3481 calt1(pr1a11,pr1rhop1,t1Ds_r1a1rhop1); calt1(pr1a12,pr1rhop2,t1Ds_r1a1rhop2); calt1(pr1a13,pr1rhop3,t1Ds_r1a1rhop3); calt1(pr1a14,pr1rhop4,t1Ds_r1a1rhop4);
3482
3483 for(int i=0; i<4; i++)
3484 {
3485 double tttrhop1 = t1r1rhop1[i]*G[i][i];
3486 double tttrhop2 = t1r1rhop2[i]*G[i][i];
3487 double tttrhop3 = t1r1rhop3[i]*G[i][i];
3488 double tttrhop4 = t1r1rhop4[i]*G[i][i];
3489
3490 for(int j=0; j<4; j++)
3491 {
3492 double tttrho01 = t1r1a1rho01[j]*G[j][j];
3493 double tttrho02 = t1r1a1rho02[j]*G[j][j];
3494 double tttrho03 = t1r1a1rho03[j]*G[j][j];
3495 double tttrho04 = t1r1a1rho04[j]*G[j][j];
3496
3497 for(int k=0; k<4; k++)
3498 {
3499 double tttDs1 = t1Ds_r1a1rhop1[k]*G[k][k];
3500 double tttDs2 = t1Ds_r1a1rhop2[k]*G[k][k];
3501 double tttDs3 = t1Ds_r1a1rhop3[k]*G[k][k];
3502 double tttDs4 = t1Ds_r1a1rhop4[k]*G[k][k];
3503
3504 for(int l=0; l<4; l++)
3505 {
3506 double pppDs1 = pDs[l]*G[l][l];
3507 double pppDs2 = pDs[l]*G[l][l];
3508 double pppDs3 = pDs[l]*G[l][l];
3509 double pppDs4 = pDs[l]*G[l][l];
3510
3511 for(int m=0; m<4; m++)
3512 {
3513 temp_PDF1 += tttrhop1*tttrho01*tttDs1*pppDs1*p1r1a11[m][j]*G[m][m]*E[i][k][l][m];
3514 temp_PDF2 += tttrhop2*tttrho02*tttDs2*pppDs2*p1r1a12[m][j]*G[m][m]*E[i][k][l][m];
3515 temp_PDF3 += tttrhop3*tttrho03*tttDs3*pppDs3*p1r1a13[m][j]*G[m][m]*E[i][k][l][m];
3516 temp_PDF4 += tttrhop4*tttrho04*tttDs4*pppDs4*p1r1a14[m][j]*G[m][m]*E[i][k][l][m];
3517 }
3518 }
3519 }
3520 }
3521 }
3522
3523 temp_PDF1 = temp_PDF1*B1_r1a1rho01*B1_r1rhop1*B1_Ds_r1a1rhop1;
3524 temp_PDF2 = temp_PDF2*B1_r1a1rho02*B1_r1rhop2*B1_Ds_r1a1rhop2;
3525 temp_PDF3 = temp_PDF3*B1_r1a1rho03*B1_r1rhop3*B1_Ds_r1a1rhop3;
3526 temp_PDF4 = temp_PDF4*B1_r1a1rho04*B1_r1rhop4*B1_Ds_r1a1rhop4;
3527 }
3528
3529 else if(g2[i]==1122){
3530 if(B1_r1a1rho01==-1){ B1_r1a1rho01 = BarrierN(1,sr1a1rho01,sPip1,sPim,rRes2,mass2[i]); B1_r1a1rho02 = BarrierN(1,sr1a1rho02,sPip1,sPim,rRes2,mass2[i]); B1_r1a1rho03 = BarrierN(1,sr1a1rho03,sPip2,sPim,rRes2,mass2[i]); B1_r1a1rho04 = BarrierN(1,sr1a1rho04,sPip2,sPim,rRes2,mass2[i]);
3531 }
3532 if(B1_r1rhop1==-1){ B1_r1rhop1 = BarrierN(1,sr1rhop1,sPip2,sPi02,rRes2,mass2[i]); B1_r1rhop2 = BarrierN(1,sr1rhop2,sPip2,sPi01,rRes2,mass2[i]); B1_r1rhop3 = BarrierN(1,sr1rhop3,sPip1,sPi02,rRes2,mass2[i]); B1_r1rhop4 = BarrierN(1,sr1rhop4,sPip1,sPi01,rRes2,mass2[i]);
3533 }
3534 if(B1_Ds_r1a1rhop1==-1){ B1_Ds_r1a1rhop1 = BarrierN(1,sDs,sr1a11,sr1rhop1,rDs2,mDsM); B1_Ds_r1a1rhop2 = BarrierN(1,sDs,sr1a12,sr1rhop2,rDs2,mDsM); B1_Ds_r1a1rhop3 = BarrierN(1,sDs,sr1a13,sr1rhop3,rDs2,mDsM); B1_Ds_r1a1rhop4 = BarrierN(1,sDs,sr1a14,sr1rhop4,rDs2,mDsM);
3535 }
3536 if(B2_r1a11==-1){ B2_r1a11 = BarrierN(2,sr1a11,sr1a1rho01,sPi01,rRes2,mass1[i]); B2_r1a12 = BarrierN(2,sr1a12,sr1a1rho02,sPi02,rRes2,mass1[i]); B2_r1a13 = BarrierN(2,sr1a13,sr1a1rho03,sPi01,rRes2,mass1[i]); B2_r1a14 = BarrierN(2,sr1a14,sr1a1rho04,sPi02,rRes2,mass1[i]);
3537 }
3538
3539 calt1(Pip1,Pim,t1r1a1rho01); calt1(Pip1,Pim,t1r1a1rho02); calt1(Pip2,Pim,t1r1a1rho03); calt1(Pip2,Pim,t1r1a1rho04);
3540 calt1(Pip2,Pi02,t1r1rhop1); calt1(Pip2,Pi01,t1r1rhop2); calt1(Pip1,Pi02,t1r1rhop3); calt1(Pip1,Pi01,t1r1rhop4);
3541 calt1(pr1a11,pr1rhop1,t1Ds_r1a1rhop1); calt1(pr1a12,pr1rhop2,t1Ds_r1a1rhop2); calt1(pr1a13,pr1rhop3,t1Ds_r1a1rhop3); calt1(pr1a14,pr1rhop4,t1Ds_r1a1rhop4);
3542 calt2(pr1a1rho01,Pi01,t2r1a11); calt2(pr1a1rho02,Pi02,t2r1a12); calt2(pr1a1rho03,Pi01,t2r1a13); calt2(pr1a1rho04,Pi02,t2r1a14);
3543
3544 for(int i=0; i<4; i++)
3545 {
3546 double tttrhop1 = t1r1rhop1[i]*G[i][i];
3547 double tttrhop2 = t1r1rhop2[i]*G[i][i];
3548 double tttrhop3 = t1r1rhop3[i]*G[i][i];
3549 double tttrhop4 = t1r1rhop4[i]*G[i][i];
3550
3551 for(int j=0; j<4; j++)
3552 {
3553 double tttrho01 = t1r1a1rho01[j]*G[j][j];
3554 double tttrho02 = t1r1a1rho02[j]*G[j][j];
3555 double tttrho03 = t1r1a1rho03[j]*G[j][j];
3556 double tttrho04 = t1r1a1rho04[j]*G[j][j];
3557
3558 for(int k=0; k<4; k++)
3559 {
3560 double tttDs1 = t1Ds_r1a1rhop1[k]*G[k][k];
3561 double tttDs2 = t1Ds_r1a1rhop2[k]*G[k][k];
3562 double tttDs3 = t1Ds_r1a1rhop3[k]*G[k][k];
3563 double tttDs4 = t1Ds_r1a1rhop4[k]*G[k][k];
3564
3565 for(int l=0; l<4; l++)
3566 {
3567 double ttta11 = t2r1a11[l][j]*G[l][l];
3568 double ttta12 = t2r1a12[l][j]*G[l][l];
3569 double ttta13 = t2r1a13[l][j]*G[l][l];
3570 double ttta14 = t2r1a14[l][j]*G[l][l];
3571
3572 for(int m=0; m<4; m++)
3573 {
3574
3575 temp_PDF1 += tttrhop1*tttrho01*tttDs1*ttta11*pDs[m]*G[m][m]*E[m][l][i][k];
3576 temp_PDF2 += tttrhop2*tttrho02*tttDs2*ttta12*pDs[m]*G[m][m]*E[m][l][i][k];
3577 temp_PDF3 += tttrhop3*tttrho03*tttDs3*ttta13*pDs[m]*G[m][m]*E[m][l][i][k];
3578 temp_PDF4 += tttrhop4*tttrho04*tttDs4*ttta14*pDs[m]*G[m][m]*E[m][l][i][k];
3579 }
3580 }
3581
3582 }
3583 }
3584 }
3585
3586 temp_PDF1 = temp_PDF1*B1_r1a1rho01*B1_r1rhop1*B1_Ds_r1a1rhop1*B2_r1a11;
3587 temp_PDF2 = temp_PDF2*B1_r1a1rho02*B1_r1rhop2*B1_Ds_r1a1rhop2*B2_r1a12;
3588 temp_PDF3 = temp_PDF3*B1_r1a1rho03*B1_r1rhop3*B1_Ds_r1a1rhop3*B2_r1a13;
3589 temp_PDF4 = temp_PDF4*B1_r1a1rho04*B1_r1rhop4*B1_Ds_r1a1rhop4*B2_r1a14;
3590
3591 }
3592
3593 else if(g2[i]==1220){
3594 if(B1_r1a1rho01==-1){ B1_r1a1rho01 = BarrierN(1,sr1a1rho01,sPip1,sPim,rRes2,mass2[i]); B1_r1a1rho02 = BarrierN(1,sr1a1rho02,sPip1,sPim,rRes2,mass2[i]); B1_r1a1rho03 = BarrierN(1,sr1a1rho03,sPip2,sPim,rRes2,mass2[i]); B1_r1a1rho04 = BarrierN(1,sr1a1rho04,sPip2,sPim,rRes2,mass2[i]);
3595 }
3596 if(B1_r1rhop1==-1){ B1_r1rhop1 = BarrierN(1,sr1rhop1,sPip2,sPi02,rRes2,mass2[i]); B1_r1rhop2 = BarrierN(1,sr1rhop2,sPip2,sPi01,rRes2,mass2[i]); B1_r1rhop3 = BarrierN(1,sr1rhop3,sPip1,sPi02,rRes2,mass2[i]); B1_r1rhop4 = BarrierN(1,sr1rhop4,sPip1,sPi01,rRes2,mass2[i]);
3597 }
3598 if(B2_Ds_r1a1rhop1==-1) { B2_Ds_r1a1rhop1 = BarrierN(2,sDs,sr1a11,sr1rhop1,rDs2,mDsM); B2_Ds_r1a1rhop2 = BarrierN(2,sDs,sr1a12,sr1rhop2,rDs2,mDsM); B2_Ds_r1a1rhop3 = BarrierN(2,sDs,sr1a13,sr1rhop3,rDs2,mDsM); B2_Ds_r1a1rhop4 = BarrierN(2,sDs,sr1a14,sr1rhop4,rDs2,mDsM);
3599 }
3600
3601 calG2(pr1a1rho01,Pi01,p1r1a11); calG2(pr1a1rho02,Pi02,p1r1a12); calG2(pr1a1rho03,Pi01,p1r1a13); calG2(pr1a1rho04,Pi02,p1r1a14);
3602 calt1(Pip1,Pim,t1r1a1rho01); calt1(Pip1,Pim,t1r1a1rho02); calt1(Pip2,Pim,t1r1a1rho03); calt1(Pip2,Pim,t1r1a1rho04);
3603 calt1(Pip2,Pi02,t1r1rhop1); calt1(Pip2,Pi01,t1r1rhop2); calt1(Pip1,Pi02,t1r1rhop3); calt1(Pip1,Pi01,t1r1rhop4);
3604 calt2(pr1a11,pr1rhop1,t2Ds_r1a1rhop1); calt2(pr1a12,pr1rhop2,t2Ds_r1a1rhop2); calt2(pr1a13,pr1rhop3,t2Ds_r1a1rhop3); calt2(pr1a14,pr1rhop4,t2Ds_r1a1rhop4);
3605
3606 for(int i=0; i<4;i++)
3607 {
3608 double tttrhop1 = t1r1rhop1[i]*G[i][i];
3609 double tttrhop2 = t1r1rhop2[i]*G[i][i];
3610 double tttrhop3 = t1r1rhop3[i]*G[i][i];
3611 double tttrhop4 = t1r1rhop4[i]*G[i][i];
3612
3613 for(int j=0; j<4; j++)
3614 {
3615 double tttrho01 = t1r1a1rho01[j]*G[j][j];
3616 double tttrho02 = t1r1a1rho02[j]*G[j][j];
3617 double tttrho03 = t1r1a1rho03[j]*G[j][j];
3618 double tttrho04 = t1r1a1rho04[j]*G[j][j];
3619
3620 for(int k=0; k<4; k++)
3621 {
3622 temp_PDF1 += tttrhop1*tttrho01*p1r1a11[k][j]*t2Ds_r1a1rhop1[k][i];
3623 temp_PDF2 += tttrhop2*tttrho02*p1r1a12[k][j]*t2Ds_r1a1rhop2[k][i];
3624 temp_PDF3 += tttrhop3*tttrho03*p1r1a13[k][j]*t2Ds_r1a1rhop3[k][i];
3625 temp_PDF4 += tttrhop4*tttrho04*p1r1a14[k][j]*t2Ds_r1a1rhop4[k][i];
3626 }
3627 }
3628 }
3629
3630 temp_PDF1 = temp_PDF1*B1_r1a1rho01*B1_r1rhop1*B2_Ds_r1a1rhop1;
3631 temp_PDF2 = temp_PDF2*B1_r1a1rho02*B1_r1rhop2*B2_Ds_r1a1rhop2;
3632 temp_PDF3 = temp_PDF3*B1_r1a1rho03*B1_r1rhop3*B2_Ds_r1a1rhop3;
3633 temp_PDF4 = temp_PDF4*B1_r1a1rho04*B1_r1rhop4*B2_Ds_r1a1rhop4;
3634 }
3635
3636 else if(g2[i]==1222){
3637
3638 if(B1_r1a1rho01==-1){ B1_r1a1rho01 = BarrierN(1,sr1a1rho01,sPip1,sPim,rRes2,mass2[i]); B1_r1a1rho02 = BarrierN(1,sr1a1rho02,sPip1,sPim,rRes2,mass2[i]); B1_r1a1rho03 = BarrierN(1,sr1a1rho03,sPip2,sPim,rRes2,mass2[i]); B1_r1a1rho04 = BarrierN(1,sr1a1rho04,sPip2,sPim,rRes2,mass2[i]);
3639 }
3640 if(B1_r1rhop1==-1){ B1_r1rhop1 = BarrierN(1,sr1rhop1,sPip2,sPi02,rRes2,mass2[i]); B1_r1rhop2 = BarrierN(1,sr1rhop2,sPip2,sPi01,rRes2,mass2[i]); B1_r1rhop3 = BarrierN(1,sr1rhop3,sPip1,sPi02,rRes2,mass2[i]); B1_r1rhop4 = BarrierN(1,sr1rhop4,sPip1,sPi01,rRes2,mass2[i]);
3641 }
3642 if(B2_Ds_r1a1rhop1==-1) { B2_Ds_r1a1rhop1 = BarrierN(2,sDs,sr1a11,sr1rhop1,rDs2,mDsM); B2_Ds_r1a1rhop2 = BarrierN(2,sDs,sr1a12,sr1rhop2,rDs2,mDsM); B2_Ds_r1a1rhop3 = BarrierN(2,sDs,sr1a13,sr1rhop3,rDs2,mDsM); B2_Ds_r1a1rhop4 = BarrierN(2,sDs,sr1a14,sr1rhop4,rDs2,mDsM);
3643 }
3644 if(B2_r1a11==-1){ B2_r1a11 = BarrierN(2,sr1a11,sr1a1rho01,sPi01,rRes2,mass1[i]); B2_r1a12 = BarrierN(2,sr1a12,sr1a1rho02,sPi02,rRes2,mass1[i]); B2_r1a13 = BarrierN(2,sr1a13,sr1a1rho03,sPi01,rRes2,mass1[i]); B2_r1a14 = BarrierN(2,sr1a14,sr1a1rho04,sPi02,rRes2,mass1[i]);
3645 }
3646
3647 calt1(Pip1,Pim,t1r1a1rho01); calt1(Pip1,Pim,t1r1a1rho02); calt1(Pip2,Pim,t1r1a1rho03); calt1(Pip2,Pim,t1r1a1rho04);
3648 calt1(Pip2,Pi02,t1r1rhop1); calt1(Pip2,Pi01,t1r1rhop2); calt1(Pip1,Pi02,t1r1rhop3); calt1(Pip1,Pi01,t1r1rhop4);
3649 calt2(pr1a11,pr1rhop1,t2Ds_r1a1rhop1); calt2(pr1a12,pr1rhop2,t2Ds_r1a1rhop2); calt2(pr1a13,pr1rhop3,t2Ds_r1a1rhop3); calt2(pr1a14,pr1rhop4,t2Ds_r1a1rhop4);
3650 calt2(pr1a1rho01,Pi01,t2r1a11); calt2(pr1a1rho02,Pi02,t2r1a12); calt2(pr1a1rho03,Pi01,t2r1a13); calt2(pr1a1rho04,Pi02,t2r1a14);
3651
3652 for(int i=0; i<4; i++)
3653 {
3654 double tttrhop1 = t1r1rhop1[i]*G[i][i];
3655 double tttrhop2 = t1r1rhop2[i]*G[i][i];
3656 double tttrhop3 = t1r1rhop3[i]*G[i][i];
3657 double tttrhop4 = t1r1rhop4[i]*G[i][i];
3658
3659 for(int j=0; j<4; j++)
3660 {
3661 double tttrho01 = t1r1a1rho01[j]*G[j][j];
3662 double tttrho02 = t1r1a1rho02[j]*G[j][j];
3663 double tttrho03 = t1r1a1rho03[j]*G[j][j];
3664 double tttrho04 = t1r1a1rho04[j]*G[j][j];
3665
3666 for(int k=0; k<4; k++)
3667 {
3668
3669 temp_PDF1 += tttrhop1*tttrho01*t2Ds_r1a1rhop1[k][i]*G[k][k]*t2r1a11[k][j];
3670 temp_PDF2 += tttrhop2*tttrho02*t2Ds_r1a1rhop2[k][i]*G[k][k]*t2r1a12[k][j];
3671 temp_PDF3 += tttrhop3*tttrho03*t2Ds_r1a1rhop3[k][i]*G[k][k]*t2r1a13[k][j];
3672 temp_PDF4 += tttrhop4*tttrho04*t2Ds_r1a1rhop4[k][i]*G[k][k]*t2r1a14[k][j];
3673 }
3674 }
3675 }
3676
3677 temp_PDF1 = temp_PDF1*B1_r1a1rho01*B1_r1rhop1*B2_Ds_r1a1rhop1*B2_r1a11;
3678 temp_PDF2 = temp_PDF2*B1_r1a1rho02*B1_r1rhop2*B2_Ds_r1a1rhop2*B2_r1a12;
3679 temp_PDF3 = temp_PDF3*B1_r1a1rho03*B1_r1rhop3*B2_Ds_r1a1rhop3*B2_r1a13;
3680 temp_PDF4 = temp_PDF4*B1_r1a1rho04*B1_r1rhop4*B2_Ds_r1a1rhop4*B2_r1a14;
3681
3682 }
3683
3684
3685 if(g0[i] == 1){
3686 if(g2[i]==1020||g2[i]==1120||g2[i]==1220) {
3687 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr1a11,sr1a1rho01,sPi01,rRes2,0,pro00_1);
3688 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr1a12,sr1a1rho02,sPi02,rRes2,0,pro00_2);
3689 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr1a13,sr1a1rho03,sPi01,rRes2,0,pro00_3);
3690 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr1a14,sr1a1rho04,sPi02,rRes2,0,pro00_4);}
3691 else{
3692 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr1a11,sr1a1rho01,sPi01,rRes2,2,pro00_1);
3693 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr1a12,sr1a1rho02,sPi02,rRes2,2,pro00_2);
3694 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr1a13,sr1a1rho03,sPi01,rRes2,2,pro00_3);
3695 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr1a14,sr1a1rho04,sPi02,rRes2,2,pro00_4);
3696 }
3697
3698
3699
3700 propagatorGS(mass2sq,mass2[i],width2[i],sr1a1rho01,sPip1,sPim,rRes2,pro01_1);
3701 propagatorGS(mass2sq,mass2[i],width2[i],sr1a1rho02,sPip1,sPim,rRes2,pro01_2);
3702 propagatorGS(mass2sq,mass2[i],width2[i],sr1a1rho03,sPip2,sPim,rRes2,pro01_3);
3703 propagatorGS(mass2sq,mass2[i],width2[i],sr1a1rho04,sPip2,sPim,rRes2,pro01_4);
3704
3705
3706 Com_Multi(pro00_1,pro01_1,pro0_1); Com_Multi(pro00_2,pro01_2,pro0_2);
3707 Com_Multi(pro00_3,pro01_3,pro0_3); Com_Multi(pro00_4,pro01_4,pro0_4);
3708
3709
3710 }
3711 else if(g0[i]==0){
3712 pro0_1[0] = 1; pro0_1[1] = 0;
3713 pro0_2[0] = 1; pro0_2[1] = 0;
3714 pro0_3[0] = 1; pro0_3[1] = 0;
3715 pro0_4[0] = 1; pro0_4[1] = 0;
3716 }
3717
3718 if(g1[i]==1){
3719
3720 propagatorGS(mass2sq,mass2[i],width2[i],sr1rhop1,sPip2,sPi02,rRes2,pro1_1);
3721 propagatorGS(mass2sq,mass2[i],width2[i],sr1rhop2,sPip2,sPi01,rRes2,pro1_2);
3722 propagatorGS(mass2sq,mass2[i],width2[i],sr1rhop3,sPip1,sPi02,rRes2,pro1_3);
3723 propagatorGS(mass2sq,mass2[i],width2[i],sr1rhop4,sPip1,sPi01,rRes2,pro1_4);
3724
3725
3726 }
3727 else if(g1[i]==0){
3728 pro1_1[0] = 1; pro1_1[1] = 0;
3729 pro1_2[0] = 1; pro1_2[1] = 0;
3730 pro1_3[0] = 1; pro1_3[1] = 0;
3731 pro1_4[0] = 1; pro1_4[1] = 0;
3732 }
3733
3734
3735 Com_Multi(pro0_1,pro1_1,pro_1); Com_Multi(pro0_2,pro1_2,pro_2);
3736 Com_Multi(pro0_3,pro1_3,pro_3); Com_Multi(pro0_4,pro1_4,pro_4);
3737
3738 amp_tmp1[0] = temp_PDF1*pro_1[0];
3739 amp_tmp1[1] = temp_PDF1*pro_1[1];
3740 amp_tmp2[0] = temp_PDF2*pro_2[0];
3741 amp_tmp2[1] = temp_PDF2*pro_2[1];
3742 amp_tmp3[0] = temp_PDF3*pro_3[0];
3743 amp_tmp3[1] = temp_PDF3*pro_3[1];
3744 amp_tmp4[0] = temp_PDF4*pro_4[0];
3745 amp_tmp4[1] = temp_PDF4*pro_4[1];
3746
3747 }
3748
3749
3750 else if(modetype[i]==17){
3751 if(g2[i]==1020){
3752 if(B1_r2a1rhop1==-1){ B1_r2a1rhop1 = BarrierN(1,sr2a1rhop1,sPip1,sPi01,rRes2,mass2[i]); B1_r2a1rhop2 = BarrierN(1,sr2a1rhop2,sPip1,sPi02,rRes2,mass2[i]); B1_r2a1rhop3 = BarrierN(1,sr2a1rhop3,sPip2,sPi01,rRes2,mass2[i]); B1_r2a1rhop4 = BarrierN(1,sr2a1rhop4,sPip2,sPi02,rRes2,mass2[i]);
3753 }
3754 if(B1_r2rhop1==-1){ B1_r2rhop1 = BarrierN(1,sr2rhop1,sPip2,sPi02,rRes2,mass2[i]); B1_r2rhop2 = BarrierN(1,sr2rhop2,sPip2,sPi01,rRes2,mass2[i]); B1_r2rhop3 = BarrierN(1,sr2rhop3,sPip1,sPi02,rRes2,mass2[i]); B1_r2rhop4 = BarrierN(1,sr2rhop4,sPip1,sPi01,rRes2,mass2[i]);
3755 }
3756
3757 calG2(pr2a1rhop1,Pim,p1r2a11); calG2(pr2a1rhop2,Pim,p1r2a12); calG2(pr2a1rhop3,Pim,p1r2a13); calG2(pr2a1rhop4,Pim,p1r2a14);
3758 calt1(Pip1,Pi01,t1r2a1rhop1); calt1(Pip1,Pi02,t1r2a1rhop2); calt1(Pip2,Pi01,t1r2a1rhop3); calt1(Pip2,Pi02,t1r2a1rhop4);
3759 calt1(Pip2,Pi02,t1r2rhop1); calt1(Pip2,Pi01,t1r2rhop2); calt1(Pip1,Pi02,t1r2rhop3); calt1(Pip1,Pi01,t1r2rhop4);
3760
3761 for(int i=0; i<4; i++)
3762 {
3763 double ttt1rho0 = t1r2a1rhop1[i]*G[i][i];
3764 double ttt2rho0 = t1r2a1rhop2[i]*G[i][i];
3765 double ttt3rho0 = t1r2a1rhop3[i]*G[i][i];
3766 double ttt4rho0 = t1r2a1rhop4[i]*G[i][i];
3767 for(int j=0; j<4; j++)
3768 {
3769 temp_PDF1 += ttt1rho0*t1r2rhop1[j]*G[j][j]*p1r2a11[i][j];
3770 temp_PDF2 += ttt2rho0*t1r2rhop2[j]*G[j][j]*p1r2a12[i][j];
3771 temp_PDF3 += ttt3rho0*t1r2rhop3[j]*G[j][j]*p1r2a13[i][j];
3772 temp_PDF4 += ttt4rho0*t1r2rhop4[j]*G[j][j]*p1r2a14[i][j];
3773 }
3774
3775 }
3776
3777 temp_PDF1 = temp_PDF1*B1_r2a1rhop1*B1_r2rhop1;
3778 temp_PDF2 = temp_PDF2*B1_r2a1rhop2*B1_r2rhop2;
3779 temp_PDF3 = temp_PDF3*B1_r2a1rhop3*B1_r2rhop3;
3780 temp_PDF4 = temp_PDF4*B1_r2a1rhop4*B1_r2rhop4;
3781
3782 }
3783
3784 else if(g2[i]==1022){
3785 if(B1_r2a1rhop1==-1){ B1_r2a1rhop1 = BarrierN(1,sr2a1rhop1,sPip1,sPi01,rRes2,mass2[i]); B1_r2a1rhop2 = BarrierN(1,sr2a1rhop2,sPip1,sPi02,rRes2,mass2[i]); B1_r2a1rhop3 = BarrierN(1,sr2a1rhop3,sPip2,sPi01,rRes2,mass2[i]); B1_r2a1rhop4 = BarrierN(1,sr2a1rhop4,sPip2,sPi02,rRes2,mass2[i]);
3786 }
3787 if(B1_r2rhop1==-1){ B1_r2rhop1 = BarrierN(1,sr2rhop1,sPip2,sPi02,rRes2,mass2[i]); B1_r2rhop2 = BarrierN(1,sr2rhop2,sPip2,sPi01,rRes2,mass2[i]); B1_r2rhop3 = BarrierN(1,sr2rhop3,sPip1,sPi02,rRes2,mass2[i]); B1_r2rhop4 = BarrierN(1,sr2rhop4,sPip1,sPi01,rRes2,mass2[i]);
3788 }
3789 if(B2_r2a11==-1){ B2_r2a11 = BarrierN(2,sr2a11,sr2a1rhop1,sPim,rRes2,mass1[i]); B2_r2a12 = BarrierN(2,sr2a12,sr2a1rhop2,sPim,rRes2,mass1[i]); B2_r2a13 = BarrierN(2,sr2a13,sr2a1rhop3,sPim,rRes2,mass1[i]); B2_r2a14 = BarrierN(2,sr2a14,sr2a1rhop4,sPim,rRes2,mass1[i]);
3790 }
3791
3792 calt1(Pip1,Pi01,t1r2a1rhop1); calt1(Pip1,Pi02,t1r2a1rhop2); calt1(Pip2,Pi01,t1r2a1rhop3); calt1(Pip2,Pi02,t1r2a1rhop4);
3793 calt1(Pip2,Pi02,t1r2rhop1); calt1(Pip2,Pi01,t1r2rhop2); calt1(Pip1,Pi02,t1r2rhop3); calt1(Pip1,Pi01,t1r2rhop4);
3794 calt2(pr2a1rhop1,Pim,t2r2a11); calt2(pr2a1rhop2,Pim,t2r2a12); calt2(pr2a1rhop3,Pim,t2r2a13); calt2(pr2a1rhop4,Pim,t2r2a14);
3795
3796 for(int i=0; i<4; i++)
3797 {
3798 double tttrhop1 = t1r2rhop1[i]*G[i][i];
3799 double tttrhop2 = t1r2rhop2[i]*G[i][i];
3800 double tttrhop3 = t1r2rhop3[i]*G[i][i];
3801 double tttrhop4 = t1r2rhop4[i]*G[i][i];
3802
3803 for(int j=0; j<4; j++)
3804 {
3805
3806 temp_PDF1 += tttrhop1*t1r2a1rhop1[j]*G[j][j]*t2r2a11[j][i];
3807 temp_PDF2 += tttrhop2*t1r2a1rhop2[j]*G[j][j]*t2r2a12[j][i];
3808 temp_PDF3 += tttrhop3*t1r2a1rhop3[j]*G[j][j]*t2r2a13[j][i];
3809 temp_PDF4 += tttrhop4*t1r2a1rhop4[j]*G[j][j]*t2r2a14[j][i];
3810 }
3811 }
3812
3813 temp_PDF1 = temp_PDF1*B1_r2a1rhop1*B1_r2rhop1*B2_r2a11;
3814 temp_PDF2 = temp_PDF2*B1_r2a1rhop2*B1_r2rhop2*B2_r2a12;
3815 temp_PDF3 = temp_PDF3*B1_r2a1rhop3*B1_r2rhop3*B2_r2a13;
3816 temp_PDF4 = temp_PDF4*B1_r2a1rhop4*B1_r2rhop4*B2_r2a14;
3817
3818 }
3819
3820 else if(g2[i]==1120){
3821 if(B1_r2a1rhop1==-1){ B1_r2a1rhop1 = BarrierN(1,sr2a1rhop1,sPip1,sPi01,rRes2,mass2[i]); B1_r2a1rhop2 = BarrierN(1,sr2a1rhop2,sPip1,sPi02,rRes2,mass2[i]); B1_r2a1rhop3 = BarrierN(1,sr2a1rhop3,sPip2,sPi01,rRes2,mass2[i]); B1_r2a1rhop4 = BarrierN(1,sr2a1rhop4,sPip2,sPi02,rRes2,mass2[i]);
3822 }
3823 if(B1_r2rhop1==-1){ B1_r2rhop1 = BarrierN(1,sr2rhop1,sPip2,sPi02,rRes2,mass2[i]); B1_r2rhop2 = BarrierN(1,sr2rhop2,sPip2,sPi01,rRes2,mass2[i]); B1_r2rhop3 = BarrierN(1,sr2rhop3,sPip1,sPi02,rRes2,mass2[i]); B1_r2rhop4 = BarrierN(1,sr2rhop4,sPip1,sPi01,rRes2,mass2[i]);
3824 }
3825
3826 if(B1_Ds_r2a1rhop1==-1){ B1_Ds_r2a1rhop1 = BarrierN(1,sDs,sr2a11,sr2rhop1,rDs2,mDsM); B1_Ds_r2a1rhop2 = BarrierN(1,sDs,sr2a12,sr2rhop2,rDs2,mDsM); B1_Ds_r2a1rhop3 = BarrierN(1,sDs,sr2a13,sr2rhop3,rDs2,mDsM); B1_Ds_r2a1rhop4 = BarrierN(1,sDs,sr2a14,sr2rhop4,rDs2,mDsM);
3827 }
3828
3829 calG2(pr2a1rhop1,Pim,p1r2a11); calG2(pr2a1rhop2,Pim,p1r2a12); calG2(pr2a1rhop3,Pim,p1r2a13); calG2(pr2a1rhop4,Pim,p1r2a14);
3830 calt1(Pip1,Pi01,t1r2a1rhop1); calt1(Pip1,Pi02,t1r2a1rhop2); calt1(Pip2,Pi01,t1r2a1rhop3); calt1(Pip2,Pi02,t1r2a1rhop4);
3831 calt1(Pip2,Pi02,t1r2rhop1); calt1(Pip2,Pi01,t1r2rhop2); calt1(Pip1,Pi02,t1r2rhop3); calt1(Pip1,Pi01,t1r2rhop4);
3832 calt1(pr2a11,pr2rhop1,t1Ds_r2a1rhop1); calt1(pr2a12,pr2rhop2,t1Ds_r2a1rhop2); calt1(pr2a13,pr2rhop3,t1Ds_r2a1rhop3); calt1(pr2a14,pr2rhop4,t1Ds_r2a1rhop4);
3833
3834 for(int i=0; i<4; i++)
3835 {
3836 double tttrhop1 = t1r2rhop1[i]*G[i][i];
3837 double tttrhop2 = t1r2rhop2[i]*G[i][i];
3838 double tttrhop3 = t1r2rhop3[i]*G[i][i];
3839 double tttrhop4 = t1r2rhop4[i]*G[i][i];
3840
3841 for(int j=0; j<4; j++)
3842 {
3843 double tttrho01 = t1r2a1rhop1[j]*G[j][j];
3844 double tttrho02 = t1r2a1rhop2[j]*G[j][j];
3845 double tttrho03 = t1r2a1rhop3[j]*G[j][j];
3846 double tttrho04 = t1r2a1rhop4[j]*G[j][j];
3847
3848 for(int k=0; k<4; k++)
3849 {
3850 double tttDs1 = t1Ds_r2a1rhop1[k]*G[k][k];
3851 double tttDs2 = t1Ds_r2a1rhop2[k]*G[k][k];
3852 double tttDs3 = t1Ds_r2a1rhop3[k]*G[k][k];
3853 double tttDs4 = t1Ds_r2a1rhop4[k]*G[k][k];
3854
3855 for(int l=0; l<4; l++)
3856 {
3857 double pppDs1 = pDs[l]*G[l][l];
3858 double pppDs2 = pDs[l]*G[l][l];
3859 double pppDs3 = pDs[l]*G[l][l];
3860 double pppDs4 = pDs[l]*G[l][l];
3861
3862 for(int m=0; m<4; m++)
3863 {
3864 temp_PDF1 += tttrhop1*tttrho01*tttDs1*pppDs1*p1r2a11[m][j]*G[m][m]*E[i][k][l][m];
3865 temp_PDF2 += tttrhop2*tttrho02*tttDs2*pppDs2*p1r2a12[m][j]*G[m][m]*E[i][k][l][m];
3866 temp_PDF3 += tttrhop3*tttrho03*tttDs3*pppDs3*p1r2a13[m][j]*G[m][m]*E[i][k][l][m];
3867 temp_PDF4 += tttrhop4*tttrho04*tttDs4*pppDs4*p1r2a14[m][j]*G[m][m]*E[i][k][l][m];
3868 }
3869 }
3870 }
3871 }
3872 }
3873
3874 temp_PDF1 = temp_PDF1*B1_r2a1rhop1*B1_r2rhop1*B1_Ds_r2a1rhop1;
3875 temp_PDF2 = temp_PDF2*B1_r2a1rhop2*B1_r2rhop2*B1_Ds_r2a1rhop2;
3876 temp_PDF3 = temp_PDF3*B1_r2a1rhop3*B1_r2rhop3*B1_Ds_r2a1rhop3;
3877 temp_PDF4 = temp_PDF4*B1_r2a1rhop4*B1_r2rhop4*B1_Ds_r2a1rhop4;
3878 }
3879
3880 else if(g2[i]==1122){
3881 if(B1_r2a1rhop1==-1){ B1_r2a1rhop1 = BarrierN(1,sr2a1rhop1,sPip1,sPi01,rRes2,mass2[i]); B1_r2a1rhop2 = BarrierN(1,sr2a1rhop2,sPip1,sPi02,rRes2,mass2[i]); B1_r2a1rhop3 = BarrierN(1,sr2a1rhop3,sPip2,sPi01,rRes2,mass2[i]); B1_r2a1rhop4 = BarrierN(1,sr2a1rhop4,sPip2,sPi02,rRes2,mass2[i]);
3882 }
3883 if(B1_r2rhop1==-1){ B1_r2rhop1 = BarrierN(1,sr2rhop1,sPip2,sPi02,rRes2,mass2[i]); B1_r2rhop2 = BarrierN(1,sr2rhop2,sPip2,sPi01,rRes2,mass2[i]); B1_r2rhop3 = BarrierN(1,sr2rhop3,sPip1,sPi02,rRes2,mass2[i]); B1_r2rhop4 = BarrierN(1,sr2rhop4,sPip1,sPi01,rRes2,mass2[i]);
3884 }
3885
3886 if(B1_Ds_r2a1rhop1==-1){ B1_Ds_r2a1rhop1 = BarrierN(1,sDs,sr2a11,sr2rhop1,rDs2,mDsM); B1_Ds_r2a1rhop2 = BarrierN(1,sDs,sr2a12,sr2rhop2,rDs2,mDsM); B1_Ds_r2a1rhop3 = BarrierN(1,sDs,sr2a13,sr2rhop3,rDs2,mDsM); B1_Ds_r2a1rhop4 = BarrierN(1,sDs,sr2a14,sr2rhop4,rDs2,mDsM);
3887 }
3888 if(B2_r2a11==-1){ B2_r2a11 = BarrierN(2,sr2a11,sr2a1rhop1,sPim,rRes2,mass1[i]); B2_r2a12 = BarrierN(2,sr2a12,sr2a1rhop2,sPim,rRes2,mass1[i]); B2_r2a13 = BarrierN(2,sr2a13,sr2a1rhop3,sPim,rRes2,mass1[i]); B2_r2a14 = BarrierN(2,sr2a14,sr2a1rhop4,sPim,rRes2,mass1[i]);
3889 }
3890
3891 calt1(Pip1,Pi01,t1r2a1rhop1); calt1(Pip1,Pi02,t1r2a1rhop2); calt1(Pip2,Pi01,t1r2a1rhop3); calt1(Pip2,Pi02,t1r2a1rhop4);
3892 calt1(Pip2,Pi02,t1r2rhop1); calt1(Pip2,Pi01,t1r2rhop2); calt1(Pip1,Pi02,t1r2rhop3); calt1(Pip1,Pi01,t1r2rhop4);
3893 calt1(pr2a11,pr2rhop1,t1Ds_r2a1rhop1); calt1(pr2a12,pr2rhop2,t1Ds_r2a1rhop2); calt1(pr2a13,pr2rhop3,t1Ds_r2a1rhop3); calt1(pr2a14,pr2rhop4,t1Ds_r2a1rhop4);
3894 calt2(pr2a1rhop1,Pim,t2r2a11); calt2(pr2a1rhop2,Pim,t2r2a12); calt2(pr2a1rhop3,Pim,t2r2a13); calt2(pr2a1rhop4,Pim,t2r2a14);
3895
3896 for(int i=0; i<4; i++)
3897 {
3898 double tttrhop1 = t1r2rhop1[i]*G[i][i];
3899 double tttrhop2 = t1r2rhop2[i]*G[i][i];
3900 double tttrhop3 = t1r2rhop3[i]*G[i][i];
3901 double tttrhop4 = t1r2rhop4[i]*G[i][i];
3902
3903 for(int j=0; j<4; j++)
3904 {
3905 double tttrho01 = t1r2a1rhop1[j]*G[j][j];
3906 double tttrho02 = t1r2a1rhop2[j]*G[j][j];
3907 double tttrho03 = t1r2a1rhop3[j]*G[j][j];
3908 double tttrho04 = t1r2a1rhop4[j]*G[j][j];
3909
3910 for(int k=0; k<4; k++)
3911 {
3912 double tttDs1 = t1Ds_r2a1rhop1[k]*G[k][k];
3913 double tttDs2 = t1Ds_r2a1rhop2[k]*G[k][k];
3914 double tttDs3 = t1Ds_r2a1rhop3[k]*G[k][k];
3915 double tttDs4 = t1Ds_r2a1rhop4[k]*G[k][k];
3916
3917 for(int l=0; l<4; l++)
3918 {
3919 double ttta11 = t2r2a11[l][j]*G[l][l];
3920 double ttta12 = t2r2a12[l][j]*G[l][l];
3921 double ttta13 = t2r2a13[l][j]*G[l][l];
3922 double ttta14 = t2r2a14[l][j]*G[l][l];
3923
3924 for(int m=0; m<4; m++)
3925 {
3926
3927 temp_PDF1 += tttrhop1*tttrho01*tttDs1*ttta11*pDs[m]*G[m][m]*E[m][l][i][k];
3928 temp_PDF2 += tttrhop2*tttrho02*tttDs2*ttta12*pDs[m]*G[m][m]*E[m][l][i][k];
3929 temp_PDF3 += tttrhop3*tttrho03*tttDs3*ttta13*pDs[m]*G[m][m]*E[m][l][i][k];
3930 temp_PDF4 += tttrhop4*tttrho04*tttDs4*ttta14*pDs[m]*G[m][m]*E[m][l][i][k];
3931 }
3932 }
3933
3934 }
3935 }
3936 }
3937
3938 temp_PDF1 = temp_PDF1*B1_r2a1rhop1*B1_r2rhop1*B1_Ds_r2a1rhop1*B2_r2a11;
3939 temp_PDF2 = temp_PDF2*B1_r2a1rhop2*B1_r2rhop2*B1_Ds_r2a1rhop2*B2_r2a12;
3940 temp_PDF3 = temp_PDF3*B1_r2a1rhop3*B1_r2rhop3*B1_Ds_r2a1rhop3*B2_r2a13;
3941 temp_PDF4 = temp_PDF4*B1_r2a1rhop4*B1_r2rhop4*B1_Ds_r2a1rhop4*B2_r2a14;
3942
3943 }
3944
3945 else if(g2[i]==1220){
3946 if(B1_r2a1rhop1==-1){ B1_r2a1rhop1 = BarrierN(1,sr2a1rhop1,sPip1,sPi01,rRes2,mass2[i]); B1_r2a1rhop2 = BarrierN(1,sr2a1rhop2,sPip1,sPi02,rRes2,mass2[i]); B1_r2a1rhop3 = BarrierN(1,sr2a1rhop3,sPip2,sPi01,rRes2,mass2[i]); B1_r2a1rhop4 = BarrierN(1,sr2a1rhop4,sPip2,sPi02,rRes2,mass2[i]);
3947 }
3948 if(B1_r2rhop1==-1){ B1_r2rhop1 = BarrierN(1,sr2rhop1,sPip2,sPi02,rRes2,mass2[i]); B1_r2rhop2 = BarrierN(1,sr2rhop2,sPip2,sPi01,rRes2,mass2[i]); B1_r2rhop3 = BarrierN(1,sr2rhop3,sPip1,sPi02,rRes2,mass2[i]); B1_r2rhop4 = BarrierN(1,sr2rhop4,sPip1,sPi01,rRes2,mass2[i]);
3949 }
3950 if(B2_Ds_r2a1rhop1==-1) { B2_Ds_r2a1rhop1 = BarrierN(2,sDs,sr2a11,sr2rhop1,rDs2,mDsM); B2_Ds_r2a1rhop2 = BarrierN(2,sDs,sr2a12,sr2rhop2,rDs2,mDsM); B2_Ds_r2a1rhop3 = BarrierN(2,sDs,sr2a13,sr2rhop3,rDs2,mDsM); B2_Ds_r2a1rhop4 = BarrierN(2,sDs,sr2a14,sr2rhop4,rDs2,mDsM);
3951 }
3952
3953 calG2(pr2a1rhop1,Pim,p1r2a11); calG2(pr2a1rhop2,Pim,p1r2a12); calG2(pr2a1rhop3,Pim,p1r2a13); calG2(pr2a1rhop4,Pim,p1r2a14);
3954 calt1(Pip1,Pi01,t1r2a1rhop1); calt1(Pip1,Pi02,t1r2a1rhop2); calt1(Pip2,Pi01,t1r2a1rhop3); calt1(Pip2,Pi02,t1r2a1rhop4);
3955 calt1(Pip2,Pi02,t1r2rhop1); calt1(Pip2,Pi01,t1r2rhop2); calt1(Pip1,Pi02,t1r2rhop3); calt1(Pip1,Pi01,t1r2rhop4);
3956 calt2(pr2a11,pr2rhop1,t2Ds_r2a1rhop1); calt2(pr2a12,pr2rhop2,t2Ds_r2a1rhop2); calt2(pr2a13,pr2rhop3,t2Ds_r2a1rhop3); calt2(pr2a14,pr2rhop4,t2Ds_r2a1rhop4);
3957
3958 for(int i=0; i<4;i++)
3959 {
3960 double tttrhop1 = t1r2rhop1[i]*G[i][i];
3961 double tttrhop2 = t1r2rhop2[i]*G[i][i];
3962 double tttrhop3 = t1r2rhop3[i]*G[i][i];
3963 double tttrhop4 = t1r2rhop4[i]*G[i][i];
3964
3965 for(int j=0; j<4; j++)
3966 {
3967 double tttrho01 = t1r2a1rhop1[j]*G[j][j];
3968 double tttrho02 = t1r2a1rhop2[j]*G[j][j];
3969 double tttrho03 = t1r2a1rhop3[j]*G[j][j];
3970 double tttrho04 = t1r2a1rhop4[j]*G[j][j];
3971
3972 for(int k=0; k<4; k++)
3973 {
3974 temp_PDF1 += tttrhop1*tttrho01*p1r2a11[k][j]*t2Ds_r2a1rhop1[k][i];
3975 temp_PDF2 += tttrhop2*tttrho02*p1r2a12[k][j]*t2Ds_r2a1rhop2[k][i];
3976 temp_PDF3 += tttrhop3*tttrho03*p1r2a13[k][j]*t2Ds_r2a1rhop3[k][i];
3977 temp_PDF4 += tttrhop4*tttrho04*p1r2a14[k][j]*t2Ds_r2a1rhop4[k][i];
3978 }
3979 }
3980 }
3981
3982 temp_PDF1 = temp_PDF1*B1_r2a1rhop1*B1_r2rhop1*B2_Ds_r2a1rhop1;
3983 temp_PDF2 = temp_PDF2*B1_r2a1rhop2*B1_r2rhop2*B2_Ds_r2a1rhop2;
3984 temp_PDF3 = temp_PDF3*B1_r2a1rhop3*B1_r2rhop3*B2_Ds_r2a1rhop3;
3985 temp_PDF4 = temp_PDF4*B1_r2a1rhop4*B1_r2rhop4*B2_Ds_r2a1rhop4;
3986 }
3987
3988 else if(g2[i]==1222){
3989
3990 if(B1_r2a1rhop1==-1){ B1_r2a1rhop1 = BarrierN(1,sr2a1rhop1,sPip1,sPi01,rRes2,mass2[i]); B1_r2a1rhop2 = BarrierN(1,sr2a1rhop2,sPip1,sPi02,rRes2,mass2[i]); B1_r2a1rhop3 = BarrierN(1,sr2a1rhop3,sPip2,sPi01,rRes2,mass2[i]); B1_r2a1rhop4 = BarrierN(1,sr2a1rhop4,sPip2,sPi02,rRes2,mass2[i]);
3991 }
3992 if(B1_r2rhop1==-1){ B1_r2rhop1 = BarrierN(1,sr2rhop1,sPip2,sPi02,rRes2,mass2[i]); B1_r2rhop2 = BarrierN(1,sr2rhop2,sPip2,sPi01,rRes2,mass2[i]); B1_r2rhop3 = BarrierN(1,sr2rhop3,sPip1,sPi02,rRes2,mass2[i]); B1_r2rhop4 = BarrierN(1,sr2rhop4,sPip1,sPi01,rRes2,mass2[i]);
3993 }
3994
3995 if(B2_Ds_r2a1rhop1==-1) { B2_Ds_r2a1rhop1 = BarrierN(2,sDs,sr2a11,sr2rhop1,rDs2,mDsM); B2_Ds_r2a1rhop2 = BarrierN(2,sDs,sr2a12,sr2rhop2,rDs2,mDsM); B2_Ds_r2a1rhop3 = BarrierN(2,sDs,sr2a13,sr2rhop3,rDs2,mDsM); B2_Ds_r2a1rhop4 = BarrierN(2,sDs,sr2a14,sr2rhop4,rDs2,mDsM);
3996 }
3997 if(B2_r2a11==-1){ B2_r2a11 = BarrierN(2,sr2a11,sr2a1rhop1,sPim,rRes2,mass1[i]); B2_r2a12 = BarrierN(2,sr2a12,sr2a1rhop2,sPim,rRes2,mass1[i]); B2_r2a13 = BarrierN(2,sr2a13,sr2a1rhop3,sPim,rRes2,mass1[i]); B2_r2a14 = BarrierN(2,sr2a14,sr2a1rhop4,sPim,rRes2,mass1[i]);
3998 }
3999
4000 calt1(Pip1,Pi01,t1r2a1rhop1); calt1(Pip1,Pi02,t1r2a1rhop2); calt1(Pip2,Pi01,t1r2a1rhop3); calt1(Pip2,Pi02,t1r2a1rhop4);
4001 calt1(Pip2,Pi02,t1r2rhop1); calt1(Pip2,Pi01,t1r2rhop2); calt1(Pip1,Pi02,t1r2rhop3); calt1(Pip1,Pi01,t1r2rhop4);
4002 calt2(pr2a11,pr2rhop1,t2Ds_r2a1rhop1); calt2(pr2a12,pr2rhop2,t2Ds_r2a1rhop2); calt2(pr2a13,pr2rhop3,t2Ds_r2a1rhop3); calt2(pr2a14,pr2rhop4,t2Ds_r2a1rhop4);
4003 calt2(pr2a1rhop1,Pim,t2r2a11); calt2(pr2a1rhop2,Pim,t2r2a12); calt2(pr2a1rhop3,Pim,t2r2a13); calt2(pr2a1rhop4,Pim,t2r2a14);
4004
4005 for(int i=0; i<4; i++)
4006 {
4007 double tttrhop1 = t1r2rhop1[i]*G[i][i];
4008 double tttrhop2 = t1r2rhop2[i]*G[i][i];
4009 double tttrhop3 = t1r2rhop3[i]*G[i][i];
4010 double tttrhop4 = t1r2rhop4[i]*G[i][i];
4011
4012 for(int j=0; j<4; j++)
4013 {
4014 double tttrho01 = t1r2a1rhop1[j]*G[j][j];
4015 double tttrho02 = t1r2a1rhop2[j]*G[j][j];
4016 double tttrho03 = t1r2a1rhop3[j]*G[j][j];
4017 double tttrho04 = t1r2a1rhop4[j]*G[j][j];
4018
4019 for(int k=0; k<4; k++)
4020 {
4021
4022 temp_PDF1 += tttrhop1*tttrho01*t2Ds_r2a1rhop1[k][i]*G[k][k]*t2r2a11[k][j];
4023 temp_PDF2 += tttrhop2*tttrho02*t2Ds_r2a1rhop2[k][i]*G[k][k]*t2r2a12[k][j];
4024 temp_PDF3 += tttrhop3*tttrho03*t2Ds_r2a1rhop3[k][i]*G[k][k]*t2r2a13[k][j];
4025 temp_PDF4 += tttrhop4*tttrho04*t2Ds_r2a1rhop4[k][i]*G[k][k]*t2r2a14[k][j];
4026 }
4027 }
4028 }
4029
4030 temp_PDF1 = temp_PDF1*B1_r2a1rhop1*B1_r2rhop1*B2_Ds_r2a1rhop1*B2_r2a11;
4031 temp_PDF2 = temp_PDF2*B1_r2a1rhop2*B1_r2rhop2*B2_Ds_r2a1rhop2*B2_r2a12;
4032 temp_PDF3 = temp_PDF3*B1_r2a1rhop3*B1_r2rhop3*B2_Ds_r2a1rhop3*B2_r2a13;
4033 temp_PDF4 = temp_PDF4*B1_r2a1rhop4*B1_r2rhop4*B2_Ds_r2a1rhop4*B2_r2a14;
4034
4035 }
4036
4037
4038 if(g0[i] == 1){
4039 if(g2[i]==1020||g2[i]==1120||g2[i]==1220) {
4040 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr2a11,sr2a1rhop1,sPim,rRes2,0,pro00_1);
4041 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr2a12,sr2a1rhop2,sPim,rRes2,0,pro00_2);
4042 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr2a13,sr2a1rhop3,sPim,rRes2,0,pro00_3);
4043 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr2a14,sr2a1rhop4,sPim,rRes2,0,pro00_4);
4044 }
4045 else{
4046 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr2a11,sr2a1rhop1,sPim,rRes2,2,pro00_1);
4047 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr2a12,sr2a1rhop2,sPim,rRes2,2,pro00_2);
4048 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr2a13,sr2a1rhop3,sPim,rRes2,2,pro00_3);
4049 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr2a14,sr2a1rhop4,sPim,rRes2,2,pro00_4);
4050
4051 }
4052
4053
4054
4055 propagatorGS(mass2sq,mass2[i],width2[i],sr2a1rhop1,sPip1,sPi01,rRes2,pro01_1);
4056 propagatorGS(mass2sq,mass2[i],width2[i],sr2a1rhop2,sPip1,sPi02,rRes2,pro01_2);
4057 propagatorGS(mass2sq,mass2[i],width2[i],sr2a1rhop3,sPip2,sPi01,rRes2,pro01_3);
4058 propagatorGS(mass2sq,mass2[i],width2[i],sr2a1rhop4,sPip2,sPi02,rRes2,pro01_4);
4059
4060
4061
4062 Com_Multi(pro00_1,pro01_1,pro0_1); Com_Multi(pro00_2,pro01_2,pro0_2);
4063 Com_Multi(pro00_3,pro01_3,pro0_3); Com_Multi(pro00_4,pro01_4,pro0_4);
4064
4065
4066 }
4067 else if(g0[i]==0){
4068 pro0_1[0] = 1; pro0_1[1] = 0;
4069 pro0_2[0] = 1; pro0_2[1] = 0;
4070 pro0_3[0] = 1; pro0_3[1] = 0;
4071 pro0_4[0] = 1; pro0_4[1] = 0;
4072 }
4073
4074 if(g1[i]==1){
4075
4076 propagatorGS(mass2sq,mass2[i],width2[i],sr2rhop1,sPip2,sPi02,rRes2,pro1_1);
4077 propagatorGS(mass2sq,mass2[i],width2[i],sr2rhop2,sPip2,sPi01,rRes2,pro1_2);
4078 propagatorGS(mass2sq,mass2[i],width2[i],sr2rhop3,sPip1,sPi02,rRes2,pro1_3);
4079 propagatorGS(mass2sq,mass2[i],width2[i],sr2rhop4,sPip1,sPi01,rRes2,pro1_4);
4080
4081 }
4082 else if(g1[i]==0){
4083 pro1_1[0] = 1; pro1_1[1] = 0;
4084 pro1_2[0] = 1; pro1_2[1] = 0;
4085 pro1_3[0] = 1; pro1_3[1] = 0;
4086 pro1_4[0] = 1; pro1_4[1] = 0;
4087 }
4088
4089
4090 Com_Multi(pro0_1,pro1_1,pro_1); Com_Multi(pro0_2,pro1_2,pro_2);
4091 Com_Multi(pro0_3,pro1_3,pro_3); Com_Multi(pro0_4,pro1_4,pro_4);
4092
4093 amp_tmp1[0] = temp_PDF1*pro_1[0];
4094 amp_tmp1[1] = temp_PDF1*pro_1[1];
4095 amp_tmp2[0] = temp_PDF2*pro_2[0];
4096 amp_tmp2[1] = temp_PDF2*pro_2[1];
4097 amp_tmp3[0] = temp_PDF3*pro_3[0];
4098 amp_tmp3[1] = temp_PDF3*pro_3[1];
4099 amp_tmp4[0] = temp_PDF4*pro_4[0];
4100 amp_tmp4[1] = temp_PDF4*pro_4[1];
4101
4102 }
4103
4104
4105 else if(modetype[i]==18){
4106 if(g2[i]==1020){
4107 if(B1_r3a1rhop1==-1){ B1_r3a1rhop1 = BarrierN(1,sr3a1rhop1,sPip1,sPi01,rRes2,mass2[i]); B1_r3a1rhop2 = BarrierN(1,sr3a1rhop2,sPip1,sPi02,rRes2,mass2[i]); B1_r3a1rhop3 = BarrierN(1,sr3a1rhop3,sPip2,sPi01,rRes2,mass2[i]); B1_r3a1rhop4 = BarrierN(1,sr3a1rhop4,sPip2,sPi02,rRes2,mass2[i]);
4108 }
4109 if(B1_r3rho01==-1){ B1_r3rho01 = BarrierN(1,sr3rho01,sPip2,sPim,rRes2,mass2[i]); B1_r3rho02 = BarrierN(1,sr3rho02,sPip2,sPim,rRes2,mass2[i]); B1_r3rho03 = BarrierN(1,sr3rho03,sPip1,sPim,rRes2,mass2[i]); B1_r3rho04 = BarrierN(1,sr3rho04,sPip1,sPim,rRes2,mass2[i]);
4110 }
4111
4112 calG2(pr3a1rhop1,Pi02,p1r3a11); calG2(pr3a1rhop2,Pi01,p1r3a12); calG2(pr3a1rhop3,Pi02,p1r3a13); calG2(pr3a1rhop4,Pi01,p1r3a14);
4113 calt1(Pip1,Pi01,t1r3a1rhop1); calt1(Pip1,Pi02,t1r3a1rhop2); calt1(Pip2,Pi01,t1r3a1rhop3); calt1(Pip2,Pi02,t1r3a1rhop4);
4114 calt1(Pip2,Pim,t1r3rho01); calt1(Pip2,Pim,t1r3rho02); calt1(Pip1,Pim,t1r3rho03); calt1(Pip1,Pim,t1r3rho04);
4115
4116 for(int i=0; i<4; i++)
4117 {
4118 double ttt1rho0 = t1r3a1rhop1[i]*G[i][i];
4119 double ttt2rho0 = t1r3a1rhop2[i]*G[i][i];
4120 double ttt3rho0 = t1r3a1rhop3[i]*G[i][i];
4121 double ttt4rho0 = t1r3a1rhop4[i]*G[i][i];
4122 for(int j=0; j<4; j++)
4123 {
4124 temp_PDF1 += ttt1rho0*t1r3rho01[j]*G[j][j]*p1r3a11[i][j];
4125 temp_PDF2 += ttt2rho0*t1r3rho02[j]*G[j][j]*p1r3a12[i][j];
4126 temp_PDF3 += ttt3rho0*t1r3rho03[j]*G[j][j]*p1r3a13[i][j];
4127 temp_PDF4 += ttt4rho0*t1r3rho04[j]*G[j][j]*p1r3a14[i][j];
4128 }
4129
4130 }
4131
4132 temp_PDF1 = temp_PDF1*B1_r3a1rhop1*B1_r3rho01;
4133 temp_PDF2 = temp_PDF2*B1_r3a1rhop2*B1_r3rho02;
4134 temp_PDF3 = temp_PDF3*B1_r3a1rhop3*B1_r3rho03;
4135 temp_PDF4 = temp_PDF4*B1_r3a1rhop4*B1_r3rho04;
4136
4137 }
4138
4139 else if(g2[i]==1022){
4140 if(B1_r3a1rhop1==-1){ B1_r3a1rhop1 = BarrierN(1,sr3a1rhop1,sPip1,sPi01,rRes2,mass2[i]); B1_r3a1rhop2 = BarrierN(1,sr3a1rhop2,sPip1,sPi02,rRes2,mass2[i]); B1_r3a1rhop3 = BarrierN(1,sr3a1rhop3,sPip2,sPi01,rRes2,mass2[i]); B1_r3a1rhop4 = BarrierN(1,sr3a1rhop4,sPip2,sPi02,rRes2,mass2[i]);
4141 }
4142 if(B1_r3rho01==-1){ B1_r3rho01 = BarrierN(1,sr3rho01,sPip2,sPim,rRes2,mass2[i]); B1_r3rho02 = BarrierN(1,sr3rho02,sPip2,sPim,rRes2,mass2[i]); B1_r3rho03 = BarrierN(1,sr3rho03,sPip1,sPim,rRes2,mass2[i]); B1_r3rho04 = BarrierN(1,sr3rho04,sPip1,sPim,rRes2,mass2[i]);
4143 }
4144
4145 if(B2_r3a11==-1){ B2_r3a11 = BarrierN(2,sr3a11,sr3a1rhop1,sPi02,rRes2,mass1[i]); B2_r3a12 = BarrierN(2,sr3a12,sr3a1rhop2,sPi01,rRes2,mass1[i]); B2_r3a13 = BarrierN(2,sr3a13,sr3a1rhop3,sPi02,rRes2,mass1[i]); B2_r3a14 = BarrierN(2,sr3a14,sr3a1rhop4,sPi01,rRes2,mass1[i]);
4146 }
4147
4148 calG2(pr3a1rhop1,Pi02,p1r3a11); calG2(pr3a1rhop2,Pi01,p1r3a12); calG2(pr3a1rhop3,Pi02,p1r3a13); calG2(pr3a1rhop4,Pi01,p1r3a14);
4149 calt1(Pip1,Pi01,t1r3a1rhop1); calt1(Pip1,Pi02,t1r3a1rhop2); calt1(Pip2,Pi01,t1r3a1rhop3); calt1(Pip2,Pi02,t1r3a1rhop4);
4150 calt1(Pip2,Pim,t1r3rho01); calt1(Pip2,Pim,t1r3rho02); calt1(Pip1,Pim,t1r3rho03); calt1(Pip1,Pim,t1r3rho04);
4151 calt2(pr3a1rhop1,Pi02,t2r3a11); calt2(pr3a1rhop2,Pi01,t2r3a12); calt2(pr3a1rhop3,Pi02,t2r3a13); calt2(pr3a1rhop4,Pi01,t2r3a14);
4152
4153 for(int i=0; i<4; i++)
4154 {
4155 double tttrhop1 = t1r3rho01[i]*G[i][i];
4156 double tttrhop2 = t1r3rho02[i]*G[i][i];
4157 double tttrhop3 = t1r3rho03[i]*G[i][i];
4158 double tttrhop4 = t1r3rho04[i]*G[i][i];
4159
4160 for(int j=0; j<4; j++)
4161 {
4162 temp_PDF1 += tttrhop1*t1r3a1rhop1[j]*G[j][j]*t2r3a11[j][i];
4163 temp_PDF2 += tttrhop2*t1r3a1rhop2[j]*G[j][j]*t2r3a12[j][i];
4164 temp_PDF3 += tttrhop3*t1r3a1rhop3[j]*G[j][j]*t2r3a13[j][i];
4165 temp_PDF4 += tttrhop4*t1r3a1rhop4[j]*G[j][j]*t2r3a14[j][i];
4166 }
4167 }
4168
4169 temp_PDF1 = temp_PDF1*B1_r3a1rhop1*B1_r3rho01*B2_r3a11;
4170 temp_PDF2 = temp_PDF2*B1_r3a1rhop2*B1_r3rho02*B2_r3a12;
4171 temp_PDF3 = temp_PDF3*B1_r3a1rhop3*B1_r3rho03*B2_r3a13;
4172 temp_PDF4 = temp_PDF4*B1_r3a1rhop4*B1_r3rho04*B2_r3a14;
4173
4174 }
4175
4176 else if(g2[i]==1120){
4177 if(B1_r3a1rhop1==-1){ B1_r3a1rhop1 = BarrierN(1,sr3a1rhop1,sPip1,sPi01,rRes2,mass2[i]); B1_r3a1rhop2 = BarrierN(1,sr3a1rhop2,sPip1,sPi02,rRes2,mass2[i]); B1_r3a1rhop3 = BarrierN(1,sr3a1rhop3,sPip2,sPi01,rRes2,mass2[i]); B1_r3a1rhop4 = BarrierN(1,sr3a1rhop4,sPip2,sPi02,rRes2,mass2[i]);
4178 }
4179 if(B1_r3rho01==-1){ B1_r3rho01 = BarrierN(1,sr3rho01,sPip2,sPim,rRes2,mass2[i]); B1_r3rho02 = BarrierN(1,sr3rho02,sPip2,sPim,rRes2,mass2[i]); B1_r3rho03 = BarrierN(1,sr3rho03,sPip1,sPim,rRes2,mass2[i]); B1_r3rho04 = BarrierN(1,sr3rho04,sPip1,sPim,rRes2,mass2[i]);
4180 }
4181 if(B1_Ds_r3a1rho01==-1){ B1_Ds_r3a1rho01 = BarrierN(1,sDs,sr3a11,sr3rho01,rDs2,mDsM); B1_Ds_r3a1rho02 = BarrierN(1,sDs,sr3a12,sr3rho02,rDs2,mDsM); B1_Ds_r3a1rho03 = BarrierN(1,sDs,sr3a13,sr3rho03,rDs2,mDsM); B1_Ds_r3a1rho04 = BarrierN(1,sDs,sr3a14,sr3rho04,rDs2,mDsM);
4182 }
4183
4184 calG2(pr3a1rhop1,Pi02,p1r3a11); calG2(pr3a1rhop2,Pi01,p1r3a12); calG2(pr3a1rhop3,Pi02,p1r3a13); calG2(pr3a1rhop4,Pi01,p1r3a14);
4185 calt1(Pip1,Pi01,t1r3a1rhop1); calt1(Pip1,Pi02,t1r3a1rhop2); calt1(Pip2,Pi01,t1r3a1rhop3); calt1(Pip2,Pi02,t1r3a1rhop4);
4186 calt1(Pip2,Pim,t1r3rho01); calt1(Pip2,Pim,t1r3rho02); calt1(Pip1,Pim,t1r3rho03); calt1(Pip1,Pim,t1r3rho04);
4187 calt1(pr3a11,pr3rho01,t1Ds_r3a1rho01); calt1(pr3a12,pr3rho02,t1Ds_r3a1rho02); calt1(pr3a13,pr3rho03,t1Ds_r3a1rho03); calt1(pr3a14,pr3rho04,t1Ds_r3a1rho04);
4188
4189 for(int i=0; i<4; i++)
4190 {
4191 double tttrhop1 = t1r3rho01[i]*G[i][i];
4192 double tttrhop2 = t1r3rho02[i]*G[i][i];
4193 double tttrhop3 = t1r3rho03[i]*G[i][i];
4194 double tttrhop4 = t1r3rho04[i]*G[i][i];
4195
4196 for(int j=0; j<4; j++)
4197 {
4198 double tttrho01 = t1r3a1rhop1[j]*G[j][j];
4199 double tttrho02 = t1r3a1rhop2[j]*G[j][j];
4200 double tttrho03 = t1r3a1rhop3[j]*G[j][j];
4201 double tttrho04 = t1r3a1rhop4[j]*G[j][j];
4202
4203 for(int k=0; k<4; k++)
4204 {
4205 double tttDs1 = t1Ds_r3a1rho01[k]*G[k][k];
4206 double tttDs2 = t1Ds_r3a1rho02[k]*G[k][k];
4207 double tttDs3 = t1Ds_r3a1rho03[k]*G[k][k];
4208 double tttDs4 = t1Ds_r3a1rho04[k]*G[k][k];
4209
4210 for(int l=0; l<4; l++)
4211 {
4212 double pppDs1 = pDs[l]*G[l][l];
4213 double pppDs2 = pDs[l]*G[l][l];
4214 double pppDs3 = pDs[l]*G[l][l];
4215 double pppDs4 = pDs[l]*G[l][l];
4216
4217 for(int m=0; m<4; m++)
4218 {
4219 temp_PDF1 += tttrhop1*tttrho01*tttDs1*pppDs1*p1r3a11[m][j]*G[m][m]*E[i][k][l][m];
4220 temp_PDF2 += tttrhop2*tttrho02*tttDs2*pppDs2*p1r3a12[m][j]*G[m][m]*E[i][k][l][m];
4221 temp_PDF3 += tttrhop3*tttrho03*tttDs3*pppDs3*p1r3a13[m][j]*G[m][m]*E[i][k][l][m];
4222 temp_PDF4 += tttrhop4*tttrho04*tttDs4*pppDs4*p1r3a14[m][j]*G[m][m]*E[i][k][l][m];
4223 }
4224 }
4225 }
4226 }
4227 }
4228
4229 temp_PDF1 = temp_PDF1*B1_r3a1rhop1*B1_r3rho01*B1_Ds_r3a1rho01;
4230 temp_PDF2 = temp_PDF2*B1_r3a1rhop2*B1_r3rho02*B1_Ds_r3a1rho02;
4231 temp_PDF3 = temp_PDF3*B1_r3a1rhop3*B1_r3rho03*B1_Ds_r3a1rho03;
4232 temp_PDF4 = temp_PDF4*B1_r3a1rhop4*B1_r3rho04*B1_Ds_r3a1rho04;
4233 }
4234
4235 else if(g2[i]==1122){
4236 if(B1_r3a1rhop1==-1){ B1_r3a1rhop1 = BarrierN(1,sr3a1rhop1,sPip1,sPi01,rRes2,mass2[i]); B1_r3a1rhop2 = BarrierN(1,sr3a1rhop2,sPip1,sPi02,rRes2,mass2[i]); B1_r3a1rhop3 = BarrierN(1,sr3a1rhop3,sPip2,sPi01,rRes2,mass2[i]); B1_r3a1rhop4 = BarrierN(1,sr3a1rhop4,sPip2,sPi02,rRes2,mass2[i]);
4237 }
4238 if(B1_r3rho01==-1){ B1_r3rho01 = BarrierN(1,sr3rho01,sPip2,sPim,rRes2,mass2[i]); B1_r3rho02 = BarrierN(1,sr3rho02,sPip2,sPim,rRes2,mass2[i]); B1_r3rho03 = BarrierN(1,sr3rho03,sPip1,sPim,rRes2,mass2[i]); B1_r3rho04 = BarrierN(1,sr3rho04,sPip1,sPim,rRes2,mass2[i]);
4239 }
4240
4241 if(B1_Ds_r3a1rho01==-1){ B1_Ds_r3a1rho01 = BarrierN(1,sDs,sr3a11,sr3rho01,rDs2,mDsM); B1_Ds_r3a1rho02 = BarrierN(1,sDs,sr3a12,sr3rho02,rDs2,mDsM); B1_Ds_r3a1rho03 = BarrierN(1,sDs,sr3a13,sr3rho03,rDs2,mDsM); B1_Ds_r3a1rho04 = BarrierN(1,sDs,sr3a14,sr3rho04,rDs2,mDsM);
4242 }
4243 if(B2_r3a11==-1){ B2_r3a11 = BarrierN(2,sr3a11,sr3a1rhop1,sPi02,rRes2,mass1[i]); B2_r3a12 = BarrierN(2,sr3a12,sr3a1rhop2,sPi01,rRes2,mass1[i]); B2_r3a13 = BarrierN(2,sr3a13,sr3a1rhop3,sPi02,rRes2,mass1[i]); B2_r3a14 = BarrierN(2,sr3a14,sr3a1rhop4,sPi01,rRes2,mass1[i]);
4244 }
4245
4246 calt1(Pip1,Pi01,t1r3a1rhop1); calt1(Pip1,Pi02,t1r3a1rhop2); calt1(Pip2,Pi01,t1r3a1rhop3); calt1(Pip2,Pi02,t1r3a1rhop4);
4247 calt1(Pip2,Pim,t1r3rho01); calt1(Pip2,Pim,t1r3rho02); calt1(Pip1,Pim,t1r3rho03); calt1(Pip1,Pim,t1r3rho04);
4248 calt2(pr3a1rhop1,Pi02,t2r3a11); calt2(pr3a1rhop2,Pi01,t2r3a12); calt2(pr3a1rhop3,Pi02,t2r3a13); calt2(pr3a1rhop4,Pi01,t2r3a14);
4249 calt1(pr3a11,pr3rho01,t1Ds_r3a1rho01); calt1(pr3a12,pr3rho02,t1Ds_r3a1rho02); calt1(pr3a13,pr3rho03,t1Ds_r3a1rho03); calt1(pr3a14,pr3rho04,t1Ds_r3a1rho04);
4250
4251 for(int i=0; i<4; i++)
4252 {
4253 double tttrhop1 = t1r3rho01[i]*G[i][i];
4254 double tttrhop2 = t1r3rho02[i]*G[i][i];
4255 double tttrhop3 = t1r3rho03[i]*G[i][i];
4256 double tttrhop4 = t1r3rho04[i]*G[i][i];
4257
4258 for(int j=0; j<4; j++)
4259 {
4260 double tttrho01 = t1r3a1rhop1[j]*G[j][j];
4261 double tttrho02 = t1r3a1rhop2[j]*G[j][j];
4262 double tttrho03 = t1r3a1rhop3[j]*G[j][j];
4263 double tttrho04 = t1r3a1rhop4[j]*G[j][j];
4264
4265 for(int k=0; k<4; k++)
4266 {
4267 double tttDs1 = t1Ds_r3a1rho01[k]*G[k][k];
4268 double tttDs2 = t1Ds_r3a1rho02[k]*G[k][k];
4269 double tttDs3 = t1Ds_r3a1rho03[k]*G[k][k];
4270 double tttDs4 = t1Ds_r3a1rho04[k]*G[k][k];
4271
4272 for(int l=0; l<4; l++)
4273 {
4274 double ttta11 = t2r3a11[l][j]*G[l][l];
4275 double ttta12 = t2r3a12[l][j]*G[l][l];
4276 double ttta13 = t2r3a13[l][j]*G[l][l];
4277 double ttta14 = t2r3a14[l][j]*G[l][l];
4278
4279 for(int m=0; m<4; m++)
4280 {
4281 temp_PDF1 += tttrhop1*tttrho01*tttDs1*ttta11*pDs[m]*G[m][m]*E[m][l][i][k];
4282 temp_PDF2 += tttrhop2*tttrho02*tttDs2*ttta12*pDs[m]*G[m][m]*E[m][l][i][k];
4283 temp_PDF3 += tttrhop3*tttrho03*tttDs3*ttta13*pDs[m]*G[m][m]*E[m][l][i][k];
4284 temp_PDF4 += tttrhop4*tttrho04*tttDs4*ttta14*pDs[m]*G[m][m]*E[m][l][i][k];
4285 }
4286 }
4287
4288 }
4289 }
4290 }
4291
4292 temp_PDF1 = temp_PDF1*B1_r3a1rhop1*B1_r3rho01*B1_Ds_r3a1rho01*B2_r3a11;
4293 temp_PDF2 = temp_PDF2*B1_r3a1rhop2*B1_r3rho02*B1_Ds_r3a1rho02*B2_r3a12;
4294 temp_PDF3 = temp_PDF3*B1_r3a1rhop3*B1_r3rho03*B1_Ds_r3a1rho03*B2_r3a13;
4295 temp_PDF4 = temp_PDF4*B1_r3a1rhop4*B1_r3rho04*B1_Ds_r3a1rho04*B2_r3a14;
4296
4297 }
4298
4299 else if(g2[i]==1220){
4300 if(B1_r3a1rhop1==-1){ B1_r3a1rhop1 = BarrierN(1,sr3a1rhop1,sPip1,sPi01,rRes2,mass2[i]); B1_r3a1rhop2 = BarrierN(1,sr3a1rhop2,sPip1,sPi02,rRes2,mass2[i]); B1_r3a1rhop3 = BarrierN(1,sr3a1rhop3,sPip2,sPi01,rRes2,mass2[i]); B1_r3a1rhop4 = BarrierN(1,sr3a1rhop4,sPip2,sPi02,rRes2,mass2[i]);
4301 }
4302 if(B1_r3rho01==-1){ B1_r3rho01 = BarrierN(1,sr3rho01,sPip2,sPim,rRes2,mass2[i]); B1_r3rho02 = BarrierN(1,sr3rho02,sPip2,sPim,rRes2,mass2[i]); B1_r3rho03 = BarrierN(1,sr3rho03,sPip1,sPim,rRes2,mass2[i]); B1_r3rho04 = BarrierN(1,sr3rho04,sPip1,sPim,rRes2,mass2[i]);
4303 }
4304
4305 if(B2_Ds_r3a1rho01==-1) { B2_Ds_r3a1rho01 = BarrierN(2,sDs,sr3a11,sr3rho01,rDs2,mDsM); B2_Ds_r3a1rho02 = BarrierN(2,sDs,sr3a12,sr3rho02,rDs2,mDsM); B2_Ds_r3a1rho03 = BarrierN(2,sDs,sr3a13,sr3rho03,rDs2,mDsM); B2_Ds_r3a1rho04 = BarrierN(2,sDs,sr3a14,sr3rho04,rDs2,mDsM);
4306 }
4307
4308 calG2(pr3a1rhop1,Pi02,p1r3a11); calG2(pr3a1rhop2,Pi01,p1r3a12); calG2(pr3a1rhop3,Pi02,p1r3a13); calG2(pr3a1rhop4,Pi01,p1r3a14);
4309 calt1(Pip1,Pi01,t1r3a1rhop1); calt1(Pip1,Pi02,t1r3a1rhop2); calt1(Pip2,Pi01,t1r3a1rhop3); calt1(Pip2,Pi02,t1r3a1rhop4);
4310 calt1(Pip2,Pim,t1r3rho01); calt1(Pip2,Pim,t1r3rho02); calt1(Pip1,Pim,t1r3rho03); calt1(Pip1,Pim,t1r3rho04);
4311 calt2(pr3a11,pr3rho01,t2Ds_r3a1rho01); calt2(pr3a12,pr3rho02,t2Ds_r3a1rho02); calt2(pr3a13,pr3rho03,t2Ds_r3a1rho03); calt2(pr3a14,pr3rho04,t2Ds_r3a1rho04);
4312
4313 for(int i=0; i<4;i++)
4314 {
4315 double tttrhop1 = t1r3rho01[i]*G[i][i];
4316 double tttrhop2 = t1r3rho02[i]*G[i][i];
4317 double tttrhop3 = t1r3rho03[i]*G[i][i];
4318 double tttrhop4 = t1r3rho04[i]*G[i][i];
4319
4320 for(int j=0; j<4; j++)
4321 {
4322 double tttrho01 = t1r3a1rhop1[j]*G[j][j];
4323 double tttrho02 = t1r3a1rhop2[j]*G[j][j];
4324 double tttrho03 = t1r3a1rhop3[j]*G[j][j];
4325 double tttrho04 = t1r3a1rhop4[j]*G[j][j];
4326
4327 for(int k=0; k<4; k++)
4328 {
4329 temp_PDF1 += tttrhop1*tttrho01*p1r3a11[k][j]*t2Ds_r3a1rho01[k][i];
4330 temp_PDF2 += tttrhop2*tttrho02*p1r3a12[k][j]*t2Ds_r3a1rho02[k][i];
4331 temp_PDF3 += tttrhop3*tttrho03*p1r3a13[k][j]*t2Ds_r3a1rho03[k][i];
4332 temp_PDF4 += tttrhop4*tttrho04*p1r3a14[k][j]*t2Ds_r3a1rho04[k][i];
4333 }
4334 }
4335 }
4336
4337 temp_PDF1 = temp_PDF1*B1_r3a1rhop1*B1_r3rho01*B2_Ds_r3a1rho01;
4338 temp_PDF2 = temp_PDF2*B1_r3a1rhop2*B1_r3rho02*B2_Ds_r3a1rho02;
4339 temp_PDF3 = temp_PDF3*B1_r3a1rhop3*B1_r3rho03*B2_Ds_r3a1rho03;
4340 temp_PDF4 = temp_PDF4*B1_r3a1rhop4*B1_r3rho04*B2_Ds_r3a1rho04;
4341 }
4342
4343 else if(g2[i]==1222){
4344
4345 if(B1_r3a1rhop1==-1){ B1_r3a1rhop1 = BarrierN(1,sr3a1rhop1,sPip1,sPi01,rRes2,mass2[i]); B1_r3a1rhop2 = BarrierN(1,sr3a1rhop2,sPip1,sPi02,rRes2,mass2[i]); B1_r3a1rhop3 = BarrierN(1,sr3a1rhop3,sPip2,sPi01,rRes2,mass2[i]); B1_r3a1rhop4 = BarrierN(1,sr3a1rhop4,sPip2,sPi02,rRes2,mass2[i]);
4346 }
4347 if(B1_r3rho01==-1){ B1_r3rho01 = BarrierN(1,sr3rho01,sPip2,sPim,rRes2,mass2[i]); B1_r3rho02 = BarrierN(1,sr3rho02,sPip2,sPim,rRes2,mass2[i]); B1_r3rho03 = BarrierN(1,sr3rho03,sPip1,sPim,rRes2,mass2[i]); B1_r3rho04 = BarrierN(1,sr3rho04,sPip1,sPim,rRes2,mass2[i]);
4348 }
4349
4350 if(B2_r3a11==-1){ B2_r3a11 = BarrierN(2,sr3a11,sr3a1rhop1,sPi02,rRes2,mass1[i]); B2_r3a12 = BarrierN(2,sr3a12,sr3a1rhop2,sPi01,rRes2,mass1[i]); B2_r3a13 = BarrierN(2,sr3a13,sr3a1rhop3,sPi02,rRes2,mass1[i]); B2_r3a14 = BarrierN(2,sr3a14,sr3a1rhop4,sPi01,rRes2,mass1[i]);
4351 }
4352 if(B2_Ds_r3a1rho01==-1) { B2_Ds_r3a1rho01 = BarrierN(2,sDs,sr3a11,sr3rho01,rDs2,mDsM); B2_Ds_r3a1rho02 = BarrierN(2,sDs,sr3a12,sr3rho02,rDs2,mDsM); B2_Ds_r3a1rho03 = BarrierN(2,sDs,sr3a13,sr3rho03,rDs2,mDsM); B2_Ds_r3a1rho04 = BarrierN(2,sDs,sr3a14,sr3rho04,rDs2,mDsM);
4353 }
4354
4355 calt1(Pip1,Pi01,t1r3a1rhop1); calt1(Pip1,Pi02,t1r3a1rhop2); calt1(Pip2,Pi01,t1r3a1rhop3); calt1(Pip2,Pi02,t1r3a1rhop4);
4356 calt1(Pip2,Pim,t1r3rho01); calt1(Pip2,Pim,t1r3rho02); calt1(Pip1,Pim,t1r3rho03); calt1(Pip1,Pim,t1r3rho04);
4357 calt2(pr3a1rhop1,Pi02,t2r3a11); calt2(pr3a1rhop2,Pi01,t2r3a12); calt2(pr3a1rhop3,Pi02,t2r3a13); calt2(pr3a1rhop4,Pi01,t2r3a14);
4358 calt2(pr3a11,pr3rho01,t2Ds_r3a1rho01); calt2(pr3a12,pr3rho02,t2Ds_r3a1rho02); calt2(pr3a13,pr3rho03,t2Ds_r3a1rho03); calt2(pr3a14,pr3rho04,t2Ds_r3a1rho04);
4359
4360 for(int i=0; i<4; i++)
4361 {
4362 double tttrhop1 = t1r3rho01[i]*G[i][i];
4363 double tttrhop2 = t1r3rho02[i]*G[i][i];
4364 double tttrhop3 = t1r3rho03[i]*G[i][i];
4365 double tttrhop4 = t1r3rho04[i]*G[i][i];
4366
4367 for(int j=0; j<4; j++)
4368 {
4369 double tttrho01 = t1r3a1rhop1[j]*G[j][j];
4370 double tttrho02 = t1r3a1rhop2[j]*G[j][j];
4371 double tttrho03 = t1r3a1rhop3[j]*G[j][j];
4372 double tttrho04 = t1r3a1rhop4[j]*G[j][j];
4373
4374 for(int k=0; k<4; k++)
4375 {
4376 temp_PDF1 += tttrhop1*tttrho01*t2Ds_r3a1rho01[k][i]*G[k][k]*t2r3a11[k][j];
4377 temp_PDF2 += tttrhop2*tttrho02*t2Ds_r3a1rho02[k][i]*G[k][k]*t2r3a12[k][j];
4378 temp_PDF3 += tttrhop3*tttrho03*t2Ds_r3a1rho03[k][i]*G[k][k]*t2r3a13[k][j];
4379 temp_PDF4 += tttrhop4*tttrho04*t2Ds_r3a1rho04[k][i]*G[k][k]*t2r3a14[k][j];
4380 }
4381 }
4382 }
4383
4384 temp_PDF1 = temp_PDF1*B1_r3a1rhop1*B1_r3rho01*B2_Ds_r3a1rho01*B2_r3a11;
4385 temp_PDF2 = temp_PDF2*B1_r3a1rhop2*B1_r3rho02*B2_Ds_r3a1rho02*B2_r3a12;
4386 temp_PDF3 = temp_PDF3*B1_r3a1rhop3*B1_r3rho03*B2_Ds_r3a1rho03*B2_r3a13;
4387 temp_PDF4 = temp_PDF4*B1_r3a1rhop4*B1_r3rho04*B2_Ds_r3a1rho04*B2_r3a14;
4388
4389 }
4390
4391
4392 if(g0[i] == 1){
4393 if(g2[i]==1020||g2[i]==1120||g2[i]==1220) {
4394 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr3a11,sr3a1rhop1,sPi02,rRes2,0,pro00_1);
4395 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr3a12,sr3a1rhop2,sPi01,rRes2,0,pro00_2);
4396 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr3a13,sr3a1rhop3,sPi02,rRes2,0,pro00_3);
4397 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr3a14,sr3a1rhop4,sPi01,rRes2,0,pro00_4);
4398 }
4399 else{
4400 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr3a11,sr3a1rhop1,sPi02,rRes2,2,pro00_1);
4401 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr3a12,sr3a1rhop2,sPi01,rRes2,2,pro00_2);
4402 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr3a13,sr3a1rhop3,sPi02,rRes2,2,pro00_3);
4403 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr3a14,sr3a1rhop4,sPi01,rRes2,2,pro00_4);
4404
4405 }
4406
4407
4408
4409 propagatorGS(mass2sq,mass2[i],width2[i],sr3a1rhop1,sPip1,sPi01,rRes2,pro01_1);
4410 propagatorGS(mass2sq,mass2[i],width2[i],sr3a1rhop2,sPip1,sPi02,rRes2,pro01_2);
4411 propagatorGS(mass2sq,mass2[i],width2[i],sr3a1rhop3,sPip2,sPi01,rRes2,pro01_3);
4412 propagatorGS(mass2sq,mass2[i],width2[i],sr3a1rhop4,sPip2,sPi02,rRes2,pro01_4);
4413
4414
4415 Com_Multi(pro00_1,pro01_1,pro0_1); Com_Multi(pro00_2,pro01_2,pro0_2);
4416 Com_Multi(pro00_3,pro01_3,pro0_3); Com_Multi(pro00_4,pro01_4,pro0_4);
4417
4418
4419 }
4420 else if(g0[i]==0){
4421 pro0_1[0] = 1; pro0_1[1] = 0;
4422 pro0_2[0] = 1; pro0_2[1] = 0;
4423 pro0_3[0] = 1; pro0_3[1] = 0;
4424 pro0_4[0] = 1; pro0_4[1] = 0;
4425 }
4426
4427 if(g1[i]==1){
4428
4429
4430 propagatorGS(mass2sq,mass2[i],width2[i],sr3rho01,sPip2,sPim,rRes2,pro1_1);
4431 propagatorGS(mass2sq,mass2[i],width2[i],sr3rho02,sPip2,sPim,rRes2,pro1_2);
4432 propagatorGS(mass2sq,mass2[i],width2[i],sr3rho03,sPip1,sPim,rRes2,pro1_3);
4433 propagatorGS(mass2sq,mass2[i],width2[i],sr3rho04,sPip1,sPim,rRes2,pro1_4);
4434
4435 }
4436 else if(g1[i]==0){
4437 pro1_1[0] = 1; pro1_1[1] = 0;
4438 pro1_2[0] = 1; pro1_2[1] = 0;
4439 pro1_3[0] = 1; pro1_3[1] = 0;
4440 pro1_4[0] = 1; pro1_4[1] = 0;
4441 }
4442
4443
4444 Com_Multi(pro0_1,pro1_1,pro_1); Com_Multi(pro0_2,pro1_2,pro_2);
4445 Com_Multi(pro0_3,pro1_3,pro_3); Com_Multi(pro0_4,pro1_4,pro_4);
4446
4447 amp_tmp1[0] = temp_PDF1*pro_1[0];
4448 amp_tmp1[1] = temp_PDF1*pro_1[1];
4449 amp_tmp2[0] = temp_PDF2*pro_2[0];
4450 amp_tmp2[1] = temp_PDF2*pro_2[1];
4451 amp_tmp3[0] = temp_PDF3*pro_3[0];
4452 amp_tmp3[1] = temp_PDF3*pro_3[1];
4453 amp_tmp4[0] = temp_PDF4*pro_4[0];
4454 amp_tmp4[1] = temp_PDF4*pro_4[1];
4455
4456 }
4457
4458 else if(modetype[i]==19){
4459 if(g2[i]==1020){
4460 if(B1_r4a1rhom1==-1){ B1_r4a1rhom1 = BarrierN(1,sr4a1rhom1,sPi01,sPim,rRes2,mass2[i]); B1_r4a1rhom2 = BarrierN(1,sr4a1rhom2,sPi02,sPim,rRes2,mass2[i]); B1_r4a1rhom3 = BarrierN(1,sr4a1rhom3,sPi01,sPim,rRes2,mass2[i]); B1_r4a1rhom4 = BarrierN(1,sr4a1rhom4,sPi02,sPim,rRes2,mass2[i]);
4461 }
4462 if(B1_r4rhop1==-1){ B1_r4rhop1 = BarrierN(1,sr4rhop1,sPip2,sPi02,rRes2,mass2[i]); B1_r4rhop2 = BarrierN(1,sr4rhop2,sPip2,sPi01,rRes2,mass2[i]); B1_r4rhop3 = BarrierN(1,sr4rhop3,sPip1,sPi02,rRes2,mass2[i]); B1_r4rhop4 = BarrierN(1,sr4rhop4,sPip1,sPi01,rRes2,mass2[i]);
4463 }
4464
4465 calG2(pr4a1rhom1,Pip1,p1r4a11); calG2(pr4a1rhom2,Pip1,p1r4a12); calG2(pr4a1rhom3,Pip2,p1r4a13); calG2(pr4a1rhom4,Pip2,p1r4a14);
4466 calt1(Pi01,Pim,t1r4a1rhom1); calt1(Pi02,Pim,t1r4a1rhom2); calt1(Pi01,Pim,t1r4a1rhom3); calt1(Pi02,Pim,t1r4a1rhom4);
4467 calt1(Pip2,Pi02,t1r4rhop1); calt1(Pip2,Pi01,t1r4rhop2); calt1(Pip1,Pi02,t1r4rhop3); calt1(Pip1,Pi01,t1r4rhop4);
4468
4469 for(int i=0; i<4; i++)
4470 {
4471 double ttt1rhom = t1r4a1rhom1[i]*G[i][i];
4472 double ttt2rhom = t1r4a1rhom2[i]*G[i][i];
4473 double ttt3rhom = t1r4a1rhom3[i]*G[i][i];
4474 double ttt4rhom = t1r4a1rhom4[i]*G[i][i];
4475 for(int j=0; j<4; j++)
4476 {
4477 temp_PDF1 += ttt1rhom*t1r4rhop1[j]*G[j][j]*p1r4a11[i][j];
4478 temp_PDF2 += ttt2rhom*t1r4rhop2[j]*G[j][j]*p1r4a12[i][j];
4479 temp_PDF3 += ttt3rhom*t1r4rhop3[j]*G[j][j]*p1r4a13[i][j];
4480 temp_PDF4 += ttt4rhom*t1r4rhop4[j]*G[j][j]*p1r4a14[i][j];
4481 }
4482
4483 }
4484
4485 temp_PDF1 = temp_PDF1*B1_r4a1rhom1*B1_r4rhop1;
4486 temp_PDF2 = temp_PDF2*B1_r4a1rhom2*B1_r4rhop2;
4487 temp_PDF3 = temp_PDF3*B1_r4a1rhom3*B1_r4rhop3;
4488 temp_PDF4 = temp_PDF4*B1_r4a1rhom4*B1_r4rhop4;
4489
4490 }
4491
4492 else if(g2[i]==1022){
4493 if(B1_r4a1rhom1==-1){ B1_r4a1rhom1 = BarrierN(1,sr4a1rhom1,sPi01,sPim,rRes2,mass2[i]); B1_r4a1rhom2 = BarrierN(1,sr4a1rhom2,sPi02,sPim,rRes2,mass2[i]); B1_r4a1rhom3 = BarrierN(1,sr4a1rhom3,sPi01,sPim,rRes2,mass2[i]); B1_r4a1rhom4 = BarrierN(1,sr4a1rhom4,sPi02,sPim,rRes2,mass2[i]);
4494 }
4495 if(B1_r4rhop1==-1){ B1_r4rhop1 = BarrierN(1,sr4rhop1,sPip2,sPi02,rRes2,mass2[i]); B1_r4rhop2 = BarrierN(1,sr4rhop2,sPip2,sPi01,rRes2,mass2[i]); B1_r4rhop3 = BarrierN(1,sr4rhop3,sPip1,sPi02,rRes2,mass2[i]); B1_r4rhop4 = BarrierN(1,sr4rhop4,sPip1,sPi01,rRes2,mass2[i]);
4496 }
4497
4498 if(B2_r4a11==-1){ B2_r4a11 = BarrierN(2,sr4a11,sr4a1rhom1,sPip1,rRes2,mass1[i]); B2_r4a12 = BarrierN(2,sr4a12,sr4a1rhom2,sPip1,rRes2,mass1[i]); B2_r4a13 = BarrierN(2,sr4a13,sr4a1rhom3,sPip2,rRes2,mass1[i]); B2_r4a14 = BarrierN(2,sr4a14,sr4a1rhom4,sPip2,rRes2,mass1[i]);
4499 }
4500
4501 calt1(Pi01,Pim,t1r4a1rhom1); calt1(Pi02,Pim,t1r4a1rhom2); calt1(Pi01,Pim,t1r4a1rhom3); calt1(Pi02,Pim,t1r4a1rhom4);
4502 calt1(Pip2,Pi02,t1r4rhop1); calt1(Pip2,Pi01,t1r4rhop2); calt1(Pip1,Pi02,t1r4rhop3); calt1(Pip1,Pi01,t1r4rhop4);
4503 calt2(pr4a1rhom1,Pip1,t2r4a11); calt2(pr4a1rhom2,Pip1,t2r4a12); calt2(pr4a1rhom3,Pip2,t2r4a13); calt2(pr4a1rhom4,Pip2,t2r4a14);
4504
4505 for(int i=0; i<4; i++)
4506 {
4507 double tttrhop1 = t1r4rhop1[i]*G[i][i];
4508 double tttrhop2 = t1r4rhop2[i]*G[i][i];
4509 double tttrhop3 = t1r4rhop3[i]*G[i][i];
4510 double tttrhop4 = t1r4rhop4[i]*G[i][i];
4511
4512 for(int j=0; j<4; j++)
4513 {
4514
4515 temp_PDF1 += tttrhop1*t1r4a1rhom1[j]*G[j][j]*t2r4a11[j][i];
4516 temp_PDF2 += tttrhop2*t1r4a1rhom2[j]*G[j][j]*t2r4a12[j][i];
4517 temp_PDF3 += tttrhop3*t1r4a1rhom3[j]*G[j][j]*t2r4a13[j][i];
4518 temp_PDF4 += tttrhop4*t1r4a1rhom4[j]*G[j][j]*t2r4a14[j][i];
4519 }
4520 }
4521
4522 temp_PDF1 = temp_PDF1*B1_r4a1rhom1*B1_r4rhop1*B2_r4a11;
4523 temp_PDF2 = temp_PDF2*B1_r4a1rhom2*B1_r4rhop2*B2_r4a12;
4524 temp_PDF3 = temp_PDF3*B1_r4a1rhom3*B1_r4rhop3*B2_r4a13;
4525 temp_PDF4 = temp_PDF4*B1_r4a1rhom4*B1_r4rhop4*B2_r4a14;
4526
4527 }
4528
4529 else if(g2[i]==1120){
4530 if(B1_r4a1rhom1==-1){ B1_r4a1rhom1 = BarrierN(1,sr4a1rhom1,sPi01,sPim,rRes2,mass2[i]); B1_r4a1rhom2 = BarrierN(1,sr4a1rhom2,sPi02,sPim,rRes2,mass2[i]); B1_r4a1rhom3 = BarrierN(1,sr4a1rhom3,sPi01,sPim,rRes2,mass2[i]); B1_r4a1rhom4 = BarrierN(1,sr4a1rhom4,sPi02,sPim,rRes2,mass2[i]);
4531 }
4532 if(B1_r4rhop1==-1){ B1_r4rhop1 = BarrierN(1,sr4rhop1,sPip2,sPi02,rRes2,mass2[i]); B1_r4rhop2 = BarrierN(1,sr4rhop2,sPip2,sPi01,rRes2,mass2[i]); B1_r4rhop3 = BarrierN(1,sr4rhop3,sPip1,sPi02,rRes2,mass2[i]); B1_r4rhop4 = BarrierN(1,sr4rhop4,sPip1,sPi01,rRes2,mass2[i]);
4533 }
4534
4535 if(B1_Ds_r4a1rhop1==-1){ B1_Ds_r4a1rhop1 = BarrierN(1,sDs,sr4a11,sr4rhop1,rDs2,mDsM); B1_Ds_r4a1rhop2 = BarrierN(1,sDs,sr4a12,sr4rhop2,rDs2,mDsM); B1_Ds_r4a1rhop3 = BarrierN(1,sDs,sr4a13,sr4rhop3,rDs2,mDsM); B1_Ds_r4a1rhop4 = BarrierN(1,sDs,sr4a14,sr4rhop4,rDs2,mDsM);
4536 }
4537
4538 calG2(pr4a1rhom1,Pip1,p1r4a11); calG2(pr4a1rhom2,Pip1,p1r4a12); calG2(pr4a1rhom3,Pip2,p1r4a13); calG2(pr4a1rhom4,Pip2,p1r4a14);
4539 calt1(Pi01,Pim,t1r4a1rhom1); calt1(Pi02,Pim,t1r4a1rhom2); calt1(Pi01,Pim,t1r4a1rhom3); calt1(Pi02,Pim,t1r4a1rhom4);
4540 calt1(Pip2,Pi02,t1r4rhop1); calt1(Pip2,Pi01,t1r4rhop2); calt1(Pip1,Pi02,t1r4rhop3); calt1(Pip1,Pi01,t1r4rhop4);
4541 calt1(pr4a11,pr4rhop1,t1Ds_r4a1rhop1); calt1(pr4a12,pr4rhop2,t1Ds_r4a1rhop2); calt1(pr4a13,pr4rhop3,t1Ds_r4a1rhop3); calt1(pr4a14,pr4rhop4,t1Ds_r4a1rhop4);
4542
4543 for(int i=0; i<4; i++)
4544 {
4545 double tttrhop1 = t1r4rhop1[i]*G[i][i];
4546 double tttrhop2 = t1r4rhop2[i]*G[i][i];
4547 double tttrhop3 = t1r4rhop3[i]*G[i][i];
4548 double tttrhop4 = t1r4rhop4[i]*G[i][i];
4549
4550 for(int j=0; j<4; j++)
4551 {
4552 double tttrhom1 = t1r4a1rhom1[j]*G[j][j];
4553 double tttrhom2 = t1r4a1rhom2[j]*G[j][j];
4554 double tttrhom3 = t1r4a1rhom3[j]*G[j][j];
4555 double tttrhom4 = t1r4a1rhom4[j]*G[j][j];
4556
4557 for(int k=0; k<4; k++)
4558 {
4559 double tttDs1 = t1Ds_r4a1rhop1[k]*G[k][k];
4560 double tttDs2 = t1Ds_r4a1rhop2[k]*G[k][k];
4561 double tttDs3 = t1Ds_r4a1rhop3[k]*G[k][k];
4562 double tttDs4 = t1Ds_r4a1rhop4[k]*G[k][k];
4563
4564 for(int l=0; l<4; l++)
4565 {
4566 double pppDs1 = pDs[l]*G[l][l];
4567 double pppDs2 = pDs[l]*G[l][l];
4568 double pppDs3 = pDs[l]*G[l][l];
4569 double pppDs4 = pDs[l]*G[l][l];
4570
4571 for(int m=0; m<4; m++)
4572 {
4573 temp_PDF1 += tttrhop1*tttrhom1*tttDs1*pppDs1*p1r4a11[m][j]*G[m][m]*E[i][k][l][m];
4574 temp_PDF2 += tttrhop2*tttrhom2*tttDs2*pppDs2*p1r4a12[m][j]*G[m][m]*E[i][k][l][m];
4575 temp_PDF3 += tttrhop3*tttrhom3*tttDs3*pppDs3*p1r4a13[m][j]*G[m][m]*E[i][k][l][m];
4576 temp_PDF4 += tttrhop4*tttrhom4*tttDs4*pppDs4*p1r4a14[m][j]*G[m][m]*E[i][k][l][m];
4577 }
4578 }
4579 }
4580 }
4581 }
4582
4583 temp_PDF1 = temp_PDF1*B1_r4a1rhom1*B1_r4rhop1*B1_Ds_r4a1rhop1;
4584 temp_PDF2 = temp_PDF2*B1_r4a1rhom2*B1_r4rhop2*B1_Ds_r4a1rhop2;
4585 temp_PDF3 = temp_PDF3*B1_r4a1rhom3*B1_r4rhop3*B1_Ds_r4a1rhop3;
4586 temp_PDF4 = temp_PDF4*B1_r4a1rhom4*B1_r4rhop4*B1_Ds_r4a1rhop4;
4587 }
4588
4589 else if(g2[i]==1122){
4590 if(B1_r4a1rhom1==-1){ B1_r4a1rhom1 = BarrierN(1,sr4a1rhom1,sPi01,sPim,rRes2,mass2[i]); B1_r4a1rhom2 = BarrierN(1,sr4a1rhom2,sPi02,sPim,rRes2,mass2[i]); B1_r4a1rhom3 = BarrierN(1,sr4a1rhom3,sPi01,sPim,rRes2,mass2[i]); B1_r4a1rhom4 = BarrierN(1,sr4a1rhom4,sPi02,sPim,rRes2,mass2[i]);
4591 }
4592 if(B1_r4rhop1==-1){ B1_r4rhop1 = BarrierN(1,sr4rhop1,sPip2,sPi02,rRes2,mass2[i]); B1_r4rhop2 = BarrierN(1,sr4rhop2,sPip2,sPi01,rRes2,mass2[i]); B1_r4rhop3 = BarrierN(1,sr4rhop3,sPip1,sPi02,rRes2,mass2[i]); B1_r4rhop4 = BarrierN(1,sr4rhop4,sPip1,sPi01,rRes2,mass2[i]);
4593 }
4594
4595 if(B2_r4a11==-1){ B2_r4a11 = BarrierN(2,sr4a11,sr4a1rhom1,sPip1,rRes2,mass1[i]); B2_r4a12 = BarrierN(2,sr4a12,sr4a1rhom2,sPip1,rRes2,mass1[i]); B2_r4a13 = BarrierN(2,sr4a13,sr4a1rhom3,sPip2,rRes2,mass1[i]); B2_r4a14 = BarrierN(2,sr4a14,sr4a1rhom4,sPip2,rRes2,mass1[i]);
4596 }
4597 if(B1_Ds_r4a1rhop1==-1){ B1_Ds_r4a1rhop1 = BarrierN(1,sDs,sr4a11,sr4rhop1,rDs2,mDsM); B1_Ds_r4a1rhop2 = BarrierN(1,sDs,sr4a12,sr4rhop2,rDs2,mDsM); B1_Ds_r4a1rhop3 = BarrierN(1,sDs,sr4a13,sr4rhop3,rDs2,mDsM); B1_Ds_r4a1rhop4 = BarrierN(1,sDs,sr4a14,sr4rhop4,rDs2,mDsM);
4598 }
4599
4600
4601
4602 calt1(Pi01,Pim,t1r4a1rhom1); calt1(Pi02,Pim,t1r4a1rhom2); calt1(Pi01,Pim,t1r4a1rhom3); calt1(Pi02,Pim,t1r4a1rhom4);
4603 calt1(Pip2,Pi02,t1r4rhop1); calt1(Pip2,Pi01,t1r4rhop2); calt1(Pip1,Pi02,t1r4rhop3); calt1(Pip1,Pi01,t1r4rhop4);
4604 calt2(pr4a1rhom1,Pip1,t2r4a11); calt2(pr4a1rhom2,Pip1,t2r4a12); calt2(pr4a1rhom3,Pip2,t2r4a13); calt2(pr4a1rhom4,Pip2,t2r4a14);
4605 calt1(pr4a11,pr4rhop1,t1Ds_r4a1rhop1); calt1(pr4a12,pr4rhop2,t1Ds_r4a1rhop2); calt1(pr4a13,pr4rhop3,t1Ds_r4a1rhop3); calt1(pr4a14,pr4rhop4,t1Ds_r4a1rhop4);
4606
4607 for(int i=0; i<4; i++)
4608 {
4609 double tttrhop1 = t1r4rhop1[i]*G[i][i];
4610 double tttrhop2 = t1r4rhop2[i]*G[i][i];
4611 double tttrhop3 = t1r4rhop3[i]*G[i][i];
4612 double tttrhop4 = t1r4rhop4[i]*G[i][i];
4613
4614 for(int j=0; j<4; j++)
4615 {
4616 double tttrhom1 = t1r4a1rhom1[j]*G[j][j];
4617 double tttrhom2 = t1r4a1rhom2[j]*G[j][j];
4618 double tttrhom3 = t1r4a1rhom3[j]*G[j][j];
4619 double tttrhom4 = t1r4a1rhom4[j]*G[j][j];
4620
4621 for(int k=0; k<4; k++)
4622 {
4623 double tttDs1 = t1Ds_r4a1rhop1[k]*G[k][k];
4624 double tttDs2 = t1Ds_r4a1rhop2[k]*G[k][k];
4625 double tttDs3 = t1Ds_r4a1rhop3[k]*G[k][k];
4626 double tttDs4 = t1Ds_r4a1rhop4[k]*G[k][k];
4627
4628 for(int l=0; l<4; l++)
4629 {
4630 double ttta11 = t2r4a11[l][j]*G[l][l];
4631 double ttta12 = t2r4a12[l][j]*G[l][l];
4632 double ttta13 = t2r4a13[l][j]*G[l][l];
4633 double ttta14 = t2r4a14[l][j]*G[l][l];
4634
4635 for(int m=0; m<4; m++)
4636 {
4637
4638 temp_PDF1 += tttrhop1*tttrhom1*tttDs1*ttta11*pDs[m]*G[m][m]*E[m][l][i][k];
4639 temp_PDF2 += tttrhop2*tttrhom2*tttDs2*ttta12*pDs[m]*G[m][m]*E[m][l][i][k];
4640 temp_PDF3 += tttrhop3*tttrhom3*tttDs3*ttta13*pDs[m]*G[m][m]*E[m][l][i][k];
4641 temp_PDF4 += tttrhop4*tttrhom4*tttDs4*ttta14*pDs[m]*G[m][m]*E[m][l][i][k];
4642 }
4643 }
4644
4645 }
4646 }
4647 }
4648
4649 temp_PDF1 = temp_PDF1*B1_r4a1rhom1*B1_r4rhop1*B1_Ds_r4a1rhop1*B2_r4a11;
4650 temp_PDF2 = temp_PDF2*B1_r4a1rhom2*B1_r4rhop2*B1_Ds_r4a1rhop2*B2_r4a12;
4651 temp_PDF3 = temp_PDF3*B1_r4a1rhom3*B1_r4rhop3*B1_Ds_r4a1rhop3*B2_r4a13;
4652 temp_PDF4 = temp_PDF4*B1_r4a1rhom4*B1_r4rhop4*B1_Ds_r4a1rhop4*B2_r4a14;
4653
4654 }
4655
4656 else if(g2[i]==1220){
4657 if(B1_r4a1rhom1==-1){ B1_r4a1rhom1 = BarrierN(1,sr4a1rhom1,sPi01,sPim,rRes2,mass2[i]); B1_r4a1rhom2 = BarrierN(1,sr4a1rhom2,sPi02,sPim,rRes2,mass2[i]); B1_r4a1rhom3 = BarrierN(1,sr4a1rhom3,sPi01,sPim,rRes2,mass2[i]); B1_r4a1rhom4 = BarrierN(1,sr4a1rhom4,sPi02,sPim,rRes2,mass2[i]);
4658 }
4659 if(B1_r4rhop1==-1){ B1_r4rhop1 = BarrierN(1,sr4rhop1,sPip2,sPi02,rRes2,mass2[i]); B1_r4rhop2 = BarrierN(1,sr4rhop2,sPip2,sPi01,rRes2,mass2[i]); B1_r4rhop3 = BarrierN(1,sr4rhop3,sPip1,sPi02,rRes2,mass2[i]); B1_r4rhop4 = BarrierN(1,sr4rhop4,sPip1,sPi01,rRes2,mass2[i]);
4660 }
4661 if(B2_Ds_r4a1rhop1==-1) { B2_Ds_r4a1rhop1 = BarrierN(2,sDs,sr4a11,sr4rhop1,rDs2,mDsM); B2_Ds_r4a1rhop2 = BarrierN(2,sDs,sr4a12,sr4rhop2,rDs2,mDsM); B2_Ds_r4a1rhop3 = BarrierN(2,sDs,sr4a13,sr4rhop3,rDs2,mDsM); B2_Ds_r4a1rhop4 = BarrierN(2,sDs,sr4a14,sr4rhop4,rDs2,mDsM);
4662 }
4663
4664 calG2(pr4a1rhom1,Pip1,p1r4a11); calG2(pr4a1rhom2,Pip1,p1r4a12); calG2(pr4a1rhom3,Pip2,p1r4a13); calG2(pr4a1rhom4,Pip2,p1r4a14);
4665 calt1(Pi01,Pim,t1r4a1rhom1); calt1(Pi02,Pim,t1r4a1rhom2); calt1(Pi01,Pim,t1r4a1rhom3); calt1(Pi02,Pim,t1r4a1rhom4);
4666 calt1(Pip2,Pi02,t1r4rhop1); calt1(Pip2,Pi01,t1r4rhop2); calt1(Pip1,Pi02,t1r4rhop3); calt1(Pip1,Pi01,t1r4rhop4);
4667 calt2(pr4a11,pr4rhop1,t2Ds_r4a1rhop1); calt2(pr4a12,pr4rhop2,t2Ds_r4a1rhop2); calt2(pr4a13,pr4rhop3,t2Ds_r4a1rhop3); calt2(pr4a14,pr4rhop4,t2Ds_r4a1rhop4);
4668
4669 for(int i=0; i<4;i++)
4670 {
4671 double tttrhop1 = t1r4rhop1[i]*G[i][i];
4672 double tttrhop2 = t1r4rhop2[i]*G[i][i];
4673 double tttrhop3 = t1r4rhop3[i]*G[i][i];
4674 double tttrhop4 = t1r4rhop4[i]*G[i][i];
4675
4676 for(int j=0; j<4; j++)
4677 {
4678 double tttrhom1 = t1r4a1rhom1[j]*G[j][j];
4679 double tttrhom2 = t1r4a1rhom2[j]*G[j][j];
4680 double tttrhom3 = t1r4a1rhom3[j]*G[j][j];
4681 double tttrhom4 = t1r4a1rhom4[j]*G[j][j];
4682
4683 for(int k=0; k<4; k++)
4684 {
4685 temp_PDF1 += tttrhop1*tttrhom1*p1r4a11[k][j]*t2Ds_r4a1rhop1[k][i];
4686 temp_PDF2 += tttrhop2*tttrhom2*p1r4a12[k][j]*t2Ds_r4a1rhop2[k][i];
4687 temp_PDF3 += tttrhop3*tttrhom3*p1r4a13[k][j]*t2Ds_r4a1rhop3[k][i];
4688 temp_PDF4 += tttrhop4*tttrhom4*p1r4a14[k][j]*t2Ds_r4a1rhop4[k][i];
4689 }
4690 }
4691 }
4692
4693 temp_PDF1 = temp_PDF1*B1_r4a1rhom1*B1_r4rhop1*B2_Ds_r4a1rhop1;
4694 temp_PDF2 = temp_PDF2*B1_r4a1rhom2*B1_r4rhop2*B2_Ds_r4a1rhop2;
4695 temp_PDF3 = temp_PDF3*B1_r4a1rhom3*B1_r4rhop3*B2_Ds_r4a1rhop3;
4696 temp_PDF4 = temp_PDF4*B1_r4a1rhom4*B1_r4rhop4*B2_Ds_r4a1rhop4;
4697 }
4698
4699 else if(g2[i]==1222){
4700 if(B1_r4a1rhom1==-1){ B1_r4a1rhom1 = BarrierN(1,sr4a1rhom1,sPi01,sPim,rRes2,mass2[i]); B1_r4a1rhom2 = BarrierN(1,sr4a1rhom2,sPi02,sPim,rRes2,mass2[i]); B1_r4a1rhom3 = BarrierN(1,sr4a1rhom3,sPi01,sPim,rRes2,mass2[i]); B1_r4a1rhom4 = BarrierN(1,sr4a1rhom4,sPi02,sPim,rRes2,mass2[i]);
4701 }
4702 if(B1_r4rhop1==-1){ B1_r4rhop1 = BarrierN(1,sr4rhop1,sPip2,sPi02,rRes2,mass2[i]); B1_r4rhop2 = BarrierN(1,sr4rhop2,sPip2,sPi01,rRes2,mass2[i]); B1_r4rhop3 = BarrierN(1,sr4rhop3,sPip1,sPi02,rRes2,mass2[i]); B1_r4rhop4 = BarrierN(1,sr4rhop4,sPip1,sPi01,rRes2,mass2[i]);
4703 }
4704
4705 if(B2_r4a11==-1){ B2_r4a11 = BarrierN(2,sr4a11,sr4a1rhom1,sPip1,rRes2,mass1[i]); B2_r4a12 = BarrierN(2,sr4a12,sr4a1rhom2,sPip1,rRes2,mass1[i]); B2_r4a13 = BarrierN(2,sr4a13,sr4a1rhom3,sPip2,rRes2,mass1[i]); B2_r4a14 = BarrierN(2,sr4a14,sr4a1rhom4,sPip2,rRes2,mass1[i]);
4706 }
4707 if(B2_Ds_r4a1rhop1==-1) { B2_Ds_r4a1rhop1 = BarrierN(2,sDs,sr4a11,sr4rhop1,rDs2,mDsM); B2_Ds_r4a1rhop2 = BarrierN(2,sDs,sr4a12,sr4rhop2,rDs2,mDsM); B2_Ds_r4a1rhop3 = BarrierN(2,sDs,sr4a13,sr4rhop3,rDs2,mDsM); B2_Ds_r4a1rhop4 = BarrierN(2,sDs,sr4a14,sr4rhop4,rDs2,mDsM);
4708 }
4709
4710 calt1(Pi01,Pim,t1r4a1rhom1); calt1(Pi02,Pim,t1r4a1rhom2); calt1(Pi01,Pim,t1r4a1rhom3); calt1(Pi02,Pim,t1r4a1rhom4);
4711 calt1(Pip2,Pi02,t1r4rhop1); calt1(Pip2,Pi01,t1r4rhop2); calt1(Pip1,Pi02,t1r4rhop3); calt1(Pip1,Pi01,t1r4rhop4);
4712 calt2(pr4a1rhom1,Pip1,t2r4a11); calt2(pr4a1rhom2,Pip1,t2r4a12); calt2(pr4a1rhom3,Pip2,t2r4a13); calt2(pr4a1rhom4,Pip2,t2r4a14);
4713 calt2(pr4a11,pr4rhop1,t2Ds_r4a1rhop1); calt2(pr4a12,pr4rhop2,t2Ds_r4a1rhop2); calt2(pr4a13,pr4rhop3,t2Ds_r4a1rhop3); calt2(pr4a14,pr4rhop4,t2Ds_r4a1rhop4);
4714
4715 for(int i=0; i<4; i++)
4716 {
4717 double tttrhop1 = t1r4rhop1[i]*G[i][i];
4718 double tttrhop2 = t1r4rhop2[i]*G[i][i];
4719 double tttrhop3 = t1r4rhop3[i]*G[i][i];
4720 double tttrhop4 = t1r4rhop4[i]*G[i][i];
4721
4722 for(int j=0; j<4; j++)
4723 {
4724 double tttrhom1 = t1r4a1rhom1[j]*G[j][j];
4725 double tttrhom2 = t1r4a1rhom2[j]*G[j][j];
4726 double tttrhom3 = t1r4a1rhom3[j]*G[j][j];
4727 double tttrhom4 = t1r4a1rhom4[j]*G[j][j];
4728
4729 for(int k=0; k<4; k++)
4730 {
4731
4732 temp_PDF1 += tttrhop1*tttrhom1*t2Ds_r4a1rhop1[k][i]*G[k][k]*t2r4a11[k][j];
4733 temp_PDF2 += tttrhop2*tttrhom2*t2Ds_r4a1rhop2[k][i]*G[k][k]*t2r4a12[k][j];
4734 temp_PDF3 += tttrhop3*tttrhom3*t2Ds_r4a1rhop3[k][i]*G[k][k]*t2r4a13[k][j];
4735 temp_PDF4 += tttrhop4*tttrhom4*t2Ds_r4a1rhop4[k][i]*G[k][k]*t2r4a14[k][j];
4736 }
4737 }
4738 }
4739
4740 temp_PDF1 = temp_PDF1*B1_r4a1rhom1*B1_r4rhop1*B2_Ds_r4a1rhop1*B2_r4a11;
4741 temp_PDF2 = temp_PDF2*B1_r4a1rhom2*B1_r4rhop2*B2_Ds_r4a1rhop2*B2_r4a12;
4742 temp_PDF3 = temp_PDF3*B1_r4a1rhom3*B1_r4rhop3*B2_Ds_r4a1rhop3*B2_r4a13;
4743 temp_PDF4 = temp_PDF4*B1_r4a1rhom4*B1_r4rhop4*B2_Ds_r4a1rhop4*B2_r4a14;
4744
4745 }
4746
4747
4748 if(g0[i] == 1){
4749 if(g2[i]==1020||g2[i]==1120||g2[i]==1220) {
4750 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr4a11,sr4a1rhom1,sPip1,rRes2,0,pro00_1);
4751 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr4a12,sr4a1rhom2,sPip1,rRes2,0,pro00_2);
4752 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr4a13,sr4a1rhom3,sPip2,rRes2,0,pro00_3);
4753 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr4a14,sr4a1rhom4,sPip2,rRes2,0,pro00_4);}
4754 else{
4755 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr4a11,sr4a1rhom1,sPip1,rRes2,2,pro00_1);
4756 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr4a12,sr4a1rhom2,sPip1,rRes2,2,pro00_2);
4757 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr4a13,sr4a1rhom3,sPip2,rRes2,2,pro00_3);
4758 propagatorRBW_a1(mass1sq,mass1[i],width1[i],sr4a14,sr4a1rhom4,sPip2,rRes2,2,pro00_4);
4759 }
4760
4761 propagatorGS(mass2sq,mass2[i],width2[i],sr4a1rhom1,sPi01,sPim,rRes2,pro01_1);
4762 propagatorGS(mass2sq,mass2[i],width2[i],sr4a1rhom2,sPi02,sPim,rRes2,pro01_2);
4763 propagatorGS(mass2sq,mass2[i],width2[i],sr4a1rhom3,sPi01,sPim,rRes2,pro01_3);
4764 propagatorGS(mass2sq,mass2[i],width2[i],sr4a1rhom4,sPi02,sPim,rRes2,pro01_4);
4765
4766
4767 Com_Multi(pro00_1,pro01_1,pro0_1); Com_Multi(pro00_2,pro01_2,pro0_2);
4768 Com_Multi(pro00_3,pro01_3,pro0_3); Com_Multi(pro00_4,pro01_4,pro0_4);
4769
4770
4771 }
4772 else if(g0[i]==0){
4773 pro0_1[0] = 1; pro0_1[1] = 0;
4774 pro0_2[0] = 1; pro0_2[1] = 0;
4775 pro0_3[0] = 1; pro0_3[1] = 0;
4776 pro0_4[0] = 1; pro0_4[1] = 0;
4777 }
4778
4779 if(g1[i]==1){
4780
4781 propagatorGS(mass2sq,mass2[i],width2[i],sr4rhop1,sPip2,sPi02,rRes2,pro1_1);
4782 propagatorGS(mass2sq,mass2[i],width2[i],sr4rhop2,sPip2,sPi01,rRes2,pro1_2);
4783 propagatorGS(mass2sq,mass2[i],width2[i],sr4rhop3,sPip1,sPi02,rRes2,pro1_3);
4784 propagatorGS(mass2sq,mass2[i],width2[i],sr4rhop4,sPip1,sPi01,rRes2,pro1_4);
4785
4786 }
4787 else if(g1[i]==0){
4788 pro1_1[0] = 1; pro1_1[1] = 0;
4789 pro1_2[0] = 1; pro1_2[1] = 0;
4790 pro1_3[0] = 1; pro1_3[1] = 0;
4791 pro1_4[0] = 1; pro1_4[1] = 0;
4792 }
4793
4794
4795 Com_Multi(pro0_1,pro1_1,pro_1); Com_Multi(pro0_2,pro1_2,pro_2);
4796 Com_Multi(pro0_3,pro1_3,pro_3); Com_Multi(pro0_4,pro1_4,pro_4);
4797
4798 amp_tmp1[0] = -1.0*(temp_PDF1*pro_1[0]);
4799 amp_tmp1[1] = -1.0*(temp_PDF1*pro_1[1]);
4800 amp_tmp2[0] = -1.0*(temp_PDF2*pro_2[0]);
4801 amp_tmp2[1] = -1.0*(temp_PDF2*pro_2[1]);
4802 amp_tmp3[0] = -1.0*(temp_PDF3*pro_3[0]);
4803 amp_tmp3[1] = -1.0*(temp_PDF3*pro_3[1]);
4804 amp_tmp4[0] = -1.0*(temp_PDF4*pro_4[0]);
4805 amp_tmp4[1] = -1.0*(temp_PDF4*pro_4[1]);
4806
4807
4808 }
4809
4810 else if(modetype[i]==100){
4811 amp_tmp1[0] = 1;
4812 amp_tmp2[0] = 1;
4813 amp_tmp3[0] = 1;
4814 amp_tmp4[0] = 1;
4815 amp_tmp1[1] = 0;
4816 amp_tmp2[1] = 0;
4817 amp_tmp3[1] = 0;
4818 amp_tmp4[1] = 0;
4819
4820
4821 }
4822 amp_tmp[0] = amp_tmp1[0]+amp_tmp2[0]+amp_tmp3[0]+amp_tmp4[0];
4823 amp_tmp[1] = amp_tmp1[1]+amp_tmp2[1]+amp_tmp3[1]+amp_tmp4[1];
4824
4825 Com_Multi(amp_tmp,cof,amp_PDF);
4826 PDF[0] += amp_PDF[0];
4827 PDF[1] += amp_PDF[1];
4828 }
4829
4830 double value = PDF[0]*PDF[0] + PDF[1]*PDF[1];
4831 if(value <=0) value = 1e-20;
4832
4833
4834 Result = value;
4835
4836}
sin
double sin(const BesAngle a)
Definition BesAngle.h:210
cos
double cos(const BesAngle a)
Definition BesAngle.h:213
mass
double mass
Definition CosmicGenerator.cxx:138
f
TFile f("ana_bhabha660a_dqa_mcPat_zy_old.root")
n
const Int_t n
Definition DataBase/tau_mode.c:65
g1
TF1 * g1
Definition DataBase/tau_mode.c:66
exp
EvtComplex exp(const EvtComplex &c)
Definition EvtComplex.hh:252
a1width
double a1width[3000]
Definition EvtDsTopipipipi0pi0.cc:300
q
****INTEGER imax DOUBLE PRECISION m_pi *DOUBLE PRECISION m_amfin DOUBLE PRECISION m_Chfin DOUBLE PRECISION m_Xenph DOUBLE PRECISION m_sinw2 DOUBLE PRECISION m_GFermi DOUBLE PRECISION m_MfinMin DOUBLE PRECISION m_ta2 INTEGER m_out INTEGER m_KeyFSR INTEGER m_KeyQCD *COMMON c_Semalib $ !copy of input $ !CMS energy $ !beam mass $ !final mass $ !beam charge $ !final charge $ !smallest final mass $ !Z mass $ !Z width $ !EW mixing angle $ !Gmu Fermi $ alphaQED at q
Definition KKsem.h:33
CS
TCrossPart * CS
Definition Mcgpj.cxx:51
t
TTree * t
Definition binning.cxx:23
EvtDecayBase::checkSpinDaughter
void checkSpinDaughter(int d1, EvtSpinType::spintype sp)
Definition EvtDecayBase.cc:533
EvtDecayBase::checkSpinParent
void checkSpinParent(EvtSpinType::spintype sp)
Definition EvtDecayBase.cc:520
EvtDecayBase::setProbMax
void setProbMax(double prbmx)
Definition EvtDecayBase.cc:297
EvtDecayBase::checkNDaug
void checkNDaug(int d1, int d2=-1)
Definition EvtDecayBase.cc:504
EvtDecayBase::getDaugs
EvtId * getDaugs()
Definition EvtDecayBase.hh:65
EvtDecayBase::checkNArg
void checkNArg(int a1, int a2=-1, int a3=-1, int a4=-1)
Definition EvtDecayBase.cc:482
EvtDecayProb::setProb
void setProb(double prob)
Definition EvtDecayProb.hh:34
EvtDsTopipipipi0pi0::decay
void decay(EvtParticle *p)
Definition EvtDsTopipipipi0pi0.cc:261
EvtDsTopipipipi0pi0::getName
void getName(std::string &name)
Definition EvtDsTopipipipi0pi0.cc:35
EvtPDL::getStdHep
static int getStdHep(EvtId id)
Definition EvtPDL.hh:56
EvtParticle::getId
EvtId getId() const
Definition EvtParticle.cc:112
EvtParticle::getP4
const EvtVector4R & getP4() const
Definition EvtParticle.cc:120
EvtParticle::getDaug
EvtParticle * getDaug(int i)
Definition EvtParticle.cc:84
EvtParticle::initializePhaseSpace
double initializePhaseSpace(int numdaughter, EvtId *daughters, double poleSize=-1., int whichTwo1=0, int whichTwo2=1)
Definition EvtParticle.cc:1070
EvtVector4R::get
double get(int i) const
Definition EvtVector4R.hh:179
b
const double b
Definition slope.cxx:9