00001 implicit none
00002 c ------------------ couplings, masses, momenta -------------------
00003 double precision pi,gev2nbarn,gev2pbarn,alpha,me,mmu,
00004 & mpi,mpi0,Sp,ebeam,rmass(10),momenta(15,0:3),mp,mnt,mKp,mKn,
00005 & mlamb
00006 c ------------------------ Kaons commons -------------------------
00007 double precision m_phi0_Kp,g_phi0_Kp,m_phi1_Kp,g_phi1_Kp,
00008 & m_phi2_Kp,g_phi2_Kp,m_phi3_Kp,g_phi3_Kp,m_om0_Kp,g_om0_Kp,
00009 & m_om1_Kp,g_om1_Kp,m_om2_Kp,g_om2_Kp,m_om3_Kp,g_om3_Kp,m_om4_Kp,
00010 & g_om4_Kp,m_rho0_Kp,g_rho0_Kp,m_rho1_Kp,g_rho1_Kp,m_rho2_Kp,
00011 & g_rho2_Kp,m_rho3_Kp,g_rho3_Kp,m_rho4_Kp,g_rho4_Kp
00012 real*8 c_phi0_Kp,c_phi1_Kp,c_phi2_Kp,c_phi3_Kp,c_phin_Kp,
00013 & c_rho0_Kp,c_rho1_Kp,c_rho2_Kp,c_rho3_Kp,c_rho4_Kp,c_rhon_Kp,
00014 & c_om0_Kp,c_om1_Kp,c_om2_Kp,c_om3_Kp,c_om4_Kp,c_omn_Kp,
00015 & eta_phi_Kp,gam_phi_Kp,gam_rho_Kp,
00016 & gam_om_Kp,beta_phi_Kp,beta_rho_Kp,beta_om_Kp
00017 real*8 coeff_rho_Kp(1000),coeff_om_Kp(1000),coeff_phi_Kp(1000),
00018 & mass_n_rho_Kp(1000),mass_n_om_Kp(1000),mass_n_phi_Kp(1000),
00019 & gam_n_rho_Kp(1000),gam_n_om_Kp(1000),gam_n_phi_Kp(1000)
00020 real*8 tab_qq_Kp(80000)
00021 complex*16 tab_sum_rho_Kp(80000),tab_sum_om_Kp(80000),
00022 & tab_sum_phi_Kp(80000),KaonFormFactor_Sp
00023 c ----------------------- Pi+ Pi- commons -------------------------
00024 double precision m_rho0_pion,g_rho0_pion,m_rho1_pion,g_rho1_pion,
00025 & m_rho2_pion,g_rho2_pion,m_rho3_pion,g_rho3_pion,m_om0_pion,
00026 & g_om0_pion
00027 real*8 c_0_pion,c_1_pion,c_2_pion,c_3_pion,c_n_pion,c_om_pion,
00028 & gam_rho_pion,beta_rho_pion
00029 complex*16 PionFormFactor_Sp
00030 real*8 m_n_pionGS(0:2000),gam_n_pionGS(0:2000),c_n_pionGS(0:2000),
00031 1 dd_ffpi(0:2000),poch_ffpi(0:2000),par_pionGS(25),
00032 2 HH_p_ffpi(0:2000)
00033 complex*16 eephi,ee12,ee23,ee34,ee45
00034 real*8 grid_qq(1000001)
00035 complex*16 grid_ffpi(1000001)
00036 c ------------------------- 4pi commons ---------------------------
00037 real*8 a1m_4pi,a1g_4pi,rhom_4pi,rhog_4pi,rho1m_4pi,rho1g_4pi,
00038 & rho2m_4pi,rho2g_4pi,omm_4pi,omg_4pi,f0m_4pi,f0g_4pi,pim_4pi,
00039 & coupl1_4pi,coupl2_4pi,coupl3_4pi,coupl_om_4pi,rho1m_f_4pi,
00040 & rho1g_f_4pi,rho2m_f_4pi,rho2g_f_4pi,rho3m_f_4pi,rho3g_f_4pi,
00041 & b1_a1_4pi,b2_a1_4pi,b3_a1_4pi,b1_f0_4pi,b2_f0_4pi,b3_f0_4pi,
00042 & b1_om_4pi,b2_om_4pi,b3_om_4pi,omm2_4pi,ommg_4pi,f0m2_4pi,
00043 & f0mg_4pi,a1m2_4pi,con_4pi
00044 c ------------------ 3pi (Pi+ Pi- Pi0) commons --------------------
00045 real*8 omm0_3pi,omg0_3pi,omm1_3pi,omg1_3pi,omm2_3pi,omg2_3pi,
00046 & phim0_3pi,phig0_3pi,rhom0m_3pi,rhog0m_3pi,rhom0p_3pi,rhog0p_3pi,
00047 & rhom0z_3pi,rhog0z_3pi,rhom1m_3pi,rhog1m_3pi,rhom1p_3pi,
00048 & rhog1p_3pi,rhom1z_3pi,rhog1z_3pi,rhom2m_3pi,rhog2m_3pi,
00049 & rhom2p_3pi,rhog2p_3pi,rhom2z_3pi,rhog2z_3pi,
00050 & aa_3pi,bb_3pi,dd_3pi,ee_3pi,gg_3pi,jj_3pi,kk_3pi
00051 c ------------------------ Lambdas -------------------------------
00052 double precision alpha_lamb,ratio_lamb
00053 c -------------------- narrow resonances -------------------------
00054 real*8 mjp,gamjp,gamjpee,bjpmm,mp2s,gamp2s,gamp2see,Br_phi_ee
00055 complex*16 KaonFormFactor_mjp,KaonFormFactor_mp2s,cjp_Kp,
00056 & cjp_K0,cp2s_Kp,cp2s_K0
00057 c -------------------------- cuts --------------------------------
00058 double precision Emin,gmin,phot1cut,phot2cut,pi1cut,pi2cut,
00059 & piphcut,accecut,q2min,w,q2_max_c,ver_s,q2_min_c
00060 c ------------------------ histograms -----------------------------
00061 character*20 title(20)
00062 double precision xlow(20),xup(20)
00063 integer bins(20),iprint
00064 c ------------------------- Maxima --------------------------------
00065 double precision Mmax(2),gross(2),klein(2),tr(2),count(2)
00066 c ------------------------ generation -----------------------------
00067 real*8 onemb2c2
00068 c -------------------------- flags --------------------------------
00069 integer nlo,pion,fsr,fsrnlo,ivac,FF_Pion,f0_model,FF_kaon,
00070 & narr_res
00071 c ------------------------ vacuum ---------------------------------
00072 complex*16 cvac_s,cvac_s_pi,cvac_s_pi1
00073 c -----------------------------------------------------------------
00074 c ------------------ couplings, masses, momenta -------------------
00075 common /ctes/pi,gev2nbarn,gev2pbarn,alpha,me,mmu,mpi,mpi0,Sp,mp,
00076 & ebeam,ver_s,rmass,momenta,cvac_s,mnt,mKp,mKn,cvac_s_pi,
00077 & cvac_s_pi1,mlamb
00078 c ---------------------- Kaons commons ----------------------------
00079 common/mass_gamm_Kp/m_phi0_Kp,g_phi0_Kp,m_phi1_Kp,g_phi1_Kp,
00080 & m_phi2_Kp,g_phi2_Kp,m_phi3_Kp,g_phi3_Kp,m_om0_Kp,g_om0_Kp,
00081 & m_om1_Kp,g_om1_Kp,m_om2_Kp,g_om2_Kp,m_om3_Kp,g_om3_Kp,m_om4_Kp,
00082 & g_om4_Kp,m_rho0_Kp,g_rho0_Kp,m_rho1_Kp,g_rho1_Kp,m_rho2_Kp,
00083 & g_rho2_Kp,m_rho3_Kp,g_rho3_Kp,m_rho4_Kp,g_rho4_Kp
00084 common/param_Kp/c_phi0_Kp,c_phi1_Kp,c_phi2_Kp,c_phi3_Kp,
00085 & c_phin_Kp,c_rho0_Kp,c_rho1_Kp,c_rho2_Kp,c_rho3_Kp,c_rho4_Kp,
00086 & c_rhon_Kp,c_om0_Kp,c_om1_Kp,c_om2_Kp,c_om3_Kp,c_om4_Kp,c_omn_Kp,
00087 & eta_phi_Kp,gam_phi_Kp,gam_rho_Kp,gam_om_Kp,beta_phi_Kp,
00088 & beta_rho_Kp,beta_om_Kp
00089 common/param_sum_Kp/coeff_rho_Kp,coeff_om_Kp,coeff_phi_Kp,
00090 & mass_n_rho_Kp,mass_n_om_Kp,mass_n_phi_Kp,gam_n_rho_Kp,
00091 & gam_n_om_Kp,gam_n_phi_Kp,tab_qq_Kp,
00092 & tab_sum_rho_Kp,tab_sum_om_Kp,tab_sum_phi_Kp
00093 c --------------------- Pi+ Pi- commons ---------------------------
00094 common/mass_gamm_pion/m_rho0_pion,g_rho0_pion,m_rho1_pion,
00095 & g_rho1_pion,m_rho2_pion,g_rho2_pion,m_rho3_pion,g_rho3_pion,
00096 & m_om0_pion,g_om0_pion
00097 common/param_pion/c_0_pion,c_1_pion,c_2_pion,c_3_pion,c_n_pion,
00098 & c_om_pion
00099 common/sum_par_pion/gam_rho_pion,beta_rho_pion
00100 c ---
00101 common/FF_Sp/PionFormFactor_Sp,KaonFormFactor_Sp
00102 common/pion_ff_2008/par_pionGS,m_n_pionGS,gam_n_pionGS,c_n_pionGS,
00103 1 dd_ffpi,poch_ffpi,eephi,ee12,ee23,ee34,ee45,HH_p_ffpi
00104 common/cgrid/grid_qq,grid_ffpi
00105 c ------------------------ 4pi commons -----------------------------
00106 common /pi4_par/
00107 & a1m_4pi,a1g_4pi,rhom_4pi,rhog_4pi,rho1m_4pi,rho1g_4pi,
00108 & rho2m_4pi,rho2g_4pi,omm_4pi,omg_4pi,f0m_4pi,f0g_4pi,pim_4pi,
00109 & coupl1_4pi,coupl2_4pi,coupl3_4pi,coupl_om_4pi,rho1m_f_4pi,
00110 & rho1g_f_4pi,rho2m_f_4pi,rho2g_f_4pi,rho3m_f_4pi,rho3g_f_4pi,
00111 & b1_a1_4pi,b2_a1_4pi,b3_a1_4pi,b1_f0_4pi,b2_f0_4pi,b3_f0_4pi,
00112 & b1_om_4pi,b2_om_4pi,b3_om_4pi,omm2_4pi,ommg_4pi,f0m2_4pi,
00113 & f0mg_4pi,a1m2_4pi,con_4pi
00114 c -------------------- 3pi (Pi+ Pi- Pi0) commons --------------------
00115 common/mass_3pi/omm0_3pi,omg0_3pi,omm1_3pi,omg1_3pi,omm2_3pi,
00116 & omg2_3pi,phim0_3pi,phig0_3pi
00117 common/rho_3pi/rhom0m_3pi,rhog0m_3pi,rhom0p_3pi,rhog0p_3pi,
00118 & rhom0z_3pi,rhog0z_3pi,rhom1m_3pi,rhog1m_3pi,rhom1p_3pi,
00119 & rhog1p_3pi,rhom1z_3pi,rhog1z_3pi,rhom2m_3pi,rhog2m_3pi,
00120 & rhom2p_3pi,rhog2p_3pi,rhom2z_3pi,rhog2z_3pi
00121 common/formf_3pi/aa_3pi,bb_3pi,dd_3pi,ee_3pi,gg_3pi,jj_3pi,kk_3pi
00122 c -------------------------- Lambdas ---------------------------------
00123 common/lambda_par/ alpha_lamb,ratio_lamb
00124 c -------------------- narrow resonances -------------------------
00125 common/narrow_res/mjp,gamjp,gamjpee,mp2s,gamp2s,gamp2see
00126 & ,Br_phi_ee,cjp_Kp,cjp_K0,cp2s_Kp,cp2s_K0,
00127 & KaonFormFactor_mjp,KaonFormFactor_mp2s
00128 c ---------------------------- cuts ----------------------------------
00129 common/cuts/ Emin,gmin,phot1cut,phot2cut,pi1cut,pi2cut,
00130 & piphcut,accecut,q2min,w,q2_max_c,q2_min_c
00131 c ------------------------- histograms -------------------------------
00132 common /histo/ xlow,xup,bins,title
00133 c --------------------------- Maxima ---------------------------------
00134 common /maxima/ Mmax,gross,klein,tr,count,iprint
00135 c --------------------------- flags ----------------------------------
00136 common/flags/nlo,pion,fsr,fsrnlo,ivac,FF_Pion,f0_model,
00137 & FF_kaon,narr_res
00138 c ------------------------ generation -----------------------------
00139 common /generation/onemb2c2
