00001 *
00002 *
00003 *
00004 *
00005 *
00006 *
00007 *
00008 *
00009 *
00010 * Class members:
00011 INTEGER m_npmx ! maximum photon multiplicity, see also m_nmax
00012 PARAMETER ( m_npmx = 100)
00013 DOUBLE PRECISION m_CMSene, m_XXXene, m_DelEne, m_exe, m_amel
00014 DOUBLE PRECISION m_vv, m_x1, m_x2
00015 DOUBLE PRECISION m_vvmin, m_vvmax, m_HadMin, m_alfinv
00016 DOUBLE PRECISION m_XCrude, m_xcgaus, m_ErGaus, m_Xenph
00017 INTEGER m_KeyZet, m_KeyISR, m_MltISR, m_KeyFix, m_KeyWtm
00018 INTEGER m_nmax, m_out, m_NevGen, m_idyfs
00019 DOUBLE PRECISION m_sphot, m_sphum, m_PX, m_yini, m_zini
00020 DOUBLE PRECISION m_p1, m_p2, m_q1, m_q2
00021 DOUBLE PRECISION m_WtBasic, m_Wt_KF
00022 DOUBLE PRECISION m_WtIni, m_WtMass, m_WtDil, m_WtCut
00023 INTEGER m_nphot, m_KFfin
00024 *
00025 COMMON /c_KarLud/
00026 $ m_CMSene, ! Input CMS energy [GeV]
00027 $ m_XXXene, ! CMS energy after beam-spread/beam-strahlung [GeV]
00028 $ m_DelEne, ! Beam energy spread [GeV]
00029 $ m_exe, ! z-boost due to beam spread
00030 $ m_amel, ! electron beam mass
00031 * ff-pair spectrum
00032 $ m_vv, ! v = 1-s'/s
00033 $ m_x1, ! x=1-z for 1-st beam
00034 $ m_x2, ! x=1-z for 2-nd beam
00035 $ m_vvmin, ! minimum v, infrared cut
00036 $ m_vvmax, ! maximum v
00037 $ m_HadMin, ! minimum hadronization mass [GeV]
00038 * Basic QED
00039 $ m_alfinv, ! Alpha_QED at Thomson limit
00040 * Normalization, MC technicalities
00041 $ m_XCrude, ! Crude xsect. from Vesk1
00042 $ m_xcgaus, ! from gauss integration
00043 $ m_ErGaus, ! gauss precision
00044 $ m_Xenph, ! crude photon multiplicity enhancement factor
00045 * ----------------- EVENT -------------------------
00046 $ m_p1(4), ! beam momentum
00047 $ m_p2(4), ! beam momentum
00048 $ m_q1(4), ! final momentum UNUSED for FSR switched ON
00049 $ m_q2(4), ! final momentum UNUSED for FSR switched ON
00050 $ m_sphot(m_npmx,4), ! photon momenta
00051 $ m_sphum(4), ! sum of photon momenta
00052 $ m_PX(4), ! total 4-momentum minus ISR photons
00053 $ m_yini(m_npmx), ! Sudakov y-variables
00054 $ m_zini(m_npmx), ! Sudakov z-variables
00055 $ m_WtBasic, ! Weight associated with V generation
00056 $ m_Wt_KF, ! Weight associated with KF generation
00057 $ m_WtIni, ! Weight associated with photon momenta generation
00058 $ m_WtMass, ! WtIni component
00059 $ m_WtDil, ! WtIni component m_WtIni=m_WtMass*m_WtDil*m_WtCut
00060 $ m_WtCut, ! WtIni component
00061 $ m_nphot, ! Photon multiplicity
00062 $ m_KFfin, ! final fermion code
00063 * -------------------------------------------------
00064 * Test Switches
00065 $ m_KeyZet, ! Z-boson on/off
00066 $ m_KeyISR, ! ISR on/off
00067 $ m_MltISR, ! fixed photon mult. VERY SPECIAL tests
00068 $ m_KeyFix, ! fixed v=vvmav. VERY SPECIAL tests
00069 $ m_KeyWtm, ! omitting mass terms in S-factors
00070 * Miscelaneous
00071 $ m_nmax, ! maximum photon multiplicity
00072 $ m_out, ! output unit number
00073 $ m_NevGen, ! event counter
00074 $ m_idyfs ! pointer for histograms
00075 *
00076 SAVE /c_KarLud/
00077 *
00078 *
00079 *
00080 *