12 #include <gsl/gsl_integration.h>
13 #include <gsl/gsl_spline.h>
160 double amplsq_factor;
178 double hA1w1,rho2,R1w1,R2w1;
179 double N_A, N_1, N_2, j_A, j_0, j_1, j_2, k_A, k_0, k_1, k_2, l_A;
180 double af0,af1,af2,ag0,ag1,ag2,aF11,aF12,aF21,aF22;
181 double mBcstV1,mBcstV2,mBcstV3,mBcstV4,mBcstA1,mBcstA2,mBcstA3,mBcstA4,
182 mBcstP1,mBcstP2,mBcstP3,chiTV,chiTA,chiTP,nI;
183 double zV1,zV2,zV3,zV4,zA1,zA2,zA3,zA4,zP1,zP2,zP3;
184 double cached_intJ1s_tau, cached_intJ1c_tau, cached_intJ2s_tau, cached_intJ2c_tau, cached_intJ3_tau, cached_intJ4_tau,
185 cached_intJ5_tau, cached_intJ6s_tau, cached_intJ6c_tau, cached_intJ7_tau, cached_intJ8_tau, cached_intJ9_tau,
186 cached_intJ1s_mu, cached_intJ1c_mu, cached_intJ2s_mu, cached_intJ2c_mu, cached_intJ3_mu,
187 cached_intJ4_mu, cached_intJ5_mu, cached_intJ6s_mu, cached_intJ6c_mu, cached_intJ7_mu, cached_intJ8_mu, cached_intJ9_mu,
188 cached_intJ1s_el, cached_intJ1c_el, cached_intJ2s_el, cached_intJ2c_el, cached_intJ3_el, cached_intJ4_el,
189 cached_intJ5_el, cached_intJ6s_el, cached_intJ6c_el, cached_intJ7_el, cached_intJ8_el, cached_intJ9_el;
190 double hA1w1_cache,rho2_cache,R1w1_cache,R2w1_cache;
191 double N_A_cache, N_1_cache, N_2_cache, j_A_cache, j_0_cache, j_1_cache, j_2_cache, k_A_cache, k_0_cache, k_1_cache, k_2_cache, l_A_cache;
192 double af0_cache,af1_cache,af2_cache,ag0_cache,ag1_cache,ag2_cache,aF11_cache,aF12_cache,aF21_cache,aF22_cache;
193 double CS_cache,CSp_cache,CP_cache,CPp_cache,CV_cache,CVp_cache,CA_cache,CAp_cache,CT_cache,CTp_cache;
194 bool checkcache_int_tau, checkcache_int_mu, checkcache_int_el;
199 void updateParameters();
208 double lambda_half(
double a,
double b,
double c);
215 double phi_f(
double z);
222 double f_BGL(
double q2);
229 double phi_g(
double q2);
236 double g_BGL(
double q2);
243 double phi_F1(
double q2);
250 double F1_BGL(
double q2);
257 double phi_F2(
double q2);
264 double F2_BGL(
double q2);
271 double hA1(
double q2);
278 double R1(
double q2);
285 double R2(
double q2);
292 double R0(
double q2);
306 double A0(
double q2);
314 double A1(
double q2);
321 double A2(
double q2);
328 double T1(
double q2);
336 double T2(
double q2);
343 double A12(
double q2);
350 double T23(
double q2);
518 double J1s(
double q2);
525 double J1c(
double q2);
532 double J2s(
double q2);
539 double J2c(
double q2);
546 double J3(
double q2);
553 double J4(
double q2);
560 double J5(
double q2);
567 double J6s(
double q2);
574 double J6c(
double q2);
581 double J7(
double q2);
588 double J8(
double q2);
595 double J9(
double q2);
604 double integrateJ(
int i,
double q2_min,
double q2_max) ;
611 double dGammadw(
double w);
619 double dGammadcldq2(
double q2,
double cl);
626 double dGammadcl(
double cl);
634 double dGammadcVdq2(
double q2,
double cV);
641 double dGammadcV(
double cV);
649 double dGammadchidq2(
double q2,
double chi);
657 double dGammadchi(
double chi);
664 double Hminus(
double q2);
671 double Hplus(
double q2);
678 double H0(
double q2);
685 double H0t(
double q2);
692 double dGpdq2(
double q2);
699 double dGmdq2(
double q2);
708 double integrateGpm(
int i,
double q2_min,
double q2_max) ;
710 gsl_error_handler_t * old_handler;
714 gsl_integration_cquad_workspace * w_J;