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 masses and gamms
00007 double precision m_phi0_Kp,g_phi0_Kp,m_phi1_Kp,g_phi1_Kp,m_om0_Kp,
00008 & g_om0_Kp,m_om1_Kp,g_om1_Kp,m_om2_Kp,g_om2_Kp,m_rho0_Kp,g_rho0_Kp,
00009 & m_rho1_Kp,g_rho1_Kp,m_rho2_Kp,g_rho2_Kp
00010 c --- Pions pi+pi- masses and gamms
00011 double precision m_rho0_pion,g_rho0_pion,m_rho1_pion,g_rho1_pion,
00012 & m_rho2_pion,g_rho2_pion,m_rho3_pion,g_rho3_pion,m_om0_pion,
00013 & g_om0_pion
00014 c --- Lambdas
00015 double precision alpha_lamb,ratio_lamb
00016 c --- cuts ---
00017 double precision Emin,gmin,phot1cut,phot2cut,pi1cut,pi2cut,
00018 & piphcut,accecut,q2min,w,q2_max_c,ver_s,q2_min_c
00019 c --- histograms ---
00020 character*20 title(20)
00021 double precision xlow(20),xup(20)
00022 integer bins(20),iprint
00023 c --- Maxima ---
00024 double precision Mmax(2),gross(2),klein(2),tr(2),count(2)
00025 c --- flags --
00026 integer nlo,tagged,pion,fsr,fsrnlo,ivac,FF_Pion,f0_model
00027 c ---
00028 complex*16 cvac_s,cvac_s_pi,cvac_s_phi
00029 c ---
00030 common /ctes/pi,gev2nbarn,gev2pbarn,alpha,me,mmu,mpi,mpi0,Sp,mp,
00031 & ebeam,ver_s,rmass,momenta,cvac_s,mnt,mKp,mKn,cvac_s_pi,
00032 & cvac_s_phi,mlamb
00033 common/mass_gamm_Kp/m_phi0_Kp,g_phi0_Kp,m_phi1_Kp,g_phi1_Kp,
00034 & m_om0_Kp,g_om0_Kp,m_om1_Kp,g_om1_Kp,m_om2_Kp,g_om2_Kp,
00035 & m_rho0_Kp,g_rho0_Kp,m_rho1_Kp,g_rho1_Kp,m_rho2_Kp,g_rho2_Kp
00036 common/mass_gamm_pion/m_rho0_pion,g_rho0_pion,m_rho1_pion,
00037 & g_rho1_pion,m_rho2_pion,g_rho2_pion,m_rho3_pion,g_rho3_pion,
00038 & m_om0_pion,g_om0_pion
00039 common/lambda_par/ alpha_lamb,ratio_lamb
00040 common/cuts/ Emin,gmin,phot1cut,phot2cut,pi1cut,pi2cut,
00041 & piphcut,accecut,q2min,w,q2_max_c,q2_min_c
00042 common /histo/ xlow,xup,bins,title
00043 common /maxima/ Mmax,gross,klein,tr,count,iprint
00044 common/flags/nlo,tagged,pion,fsr,fsrnlo,ivac,FF_Pion,f0_model
