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