00001 *
00002 *
00003 *
00004 *
00005 *
00006 *
00007 *
00008 *
00009 *
00010 *
00011 *
00012 * Class members:
00013 *
00014 *
00015 DOUBLE PRECISION m_version
00016 CHARACTER*14 m_Date
00017 PARAMETER ( m_Version = 4.17d0 )
00018 PARAMETER ( m_Date = ' 19 Nov 2001')
00019 *
00020 INTEGER m_phmax ! maximum photon multiplicity ISR+FSR
00021 PARAMETER ( m_phmax = 100)
00022 INTEGER m_jlim
00023 PARAMETER( m_jlim = 10000)
00024 INTEGER m_lenwt ! maximum number of auxiliary weights in WtSet
00025 PARAMETER ( m_lenwt = 1000)
00026 *
00027 DOUBLE PRECISION m_xpar, m_ypar
00028 INTEGER m_out, m_Idyfs, m_nevgen, m_idgen, m_KeyWgt
00029 INTEGER m_npmax, m_idbra, m_nphot
00030 INTEGER m_KeyHad, m_KeyISR, m_KeyFSR, m_KeyINT, m_KeyGPS
00031 INTEGER m_Phel, m_isr, m_KFini, m_IsBeamPolarized
00032 INTEGER m_KeySkip, m_EvtGenInterface
00033 DOUBLE PRECISION m_CMSene, m_DelEne, m_Xcrunb, m_WTmax, m_HadMin, m_MasPhot, m_Emin
00034 DOUBLE PRECISION m_BornCru,m_WtCrud, m_WtMain, m_sphot
00035 DOUBLE PRECISION m_WtSet, m_WtList, m_alfinv, m_vcut, m_Xenph
00036 DOUBLE PRECISION m_p1, m_p2, m_q1, m_q2
00037 DOUBLE PRECISION m_PolBeam1, m_PolBeam2
00038 DOUBLE PRECISION m_xSecPb, m_xErrPb
00039 *
00040 COMMON /c_KK2f/
00041 $ m_CMSene, ! CMS energy average
00042 $ m_PolBeam1(4), ! Spin Polarization vector first beam
00043 $ m_PolBeam2(4), ! Spin Polarization vector second beam
00044 $ m_DelEne, ! Beam energy spread [GeV]
00045 $ m_HadMin, ! minimum hadronization energy [GeV]
00046 $ m_xpar(m_jlim), ! input parameters, READ ONLY, never touch them!!!!
00047 $ m_ypar(m_jlim), ! debug facility
00048 $ m_WTmax, ! maximum weight
00049 $ m_alfinv, ! inverse alfaQED
00050 $ m_Emin, ! minimum real photon energy, IR regulator
00051 $ m_MasPhot, ! ficticious photon mass, IR regulator
00052 $ m_Xenph, ! Enhancement factor for Crude photon multiplicity
00053 $ m_vcut(3), ! technical cut on E/Ebeam for non-IR real contributions
00054 $ m_xSecPb, ! output cross-section available through getter
00055 $ m_xErrPb, ! output crossxsection available through getter
00056 *----------- EVENT-----------------
00057 $ m_p1(4), ! e- beam
00058 $ m_p2(4), ! e+ beam
00059 $ m_q1(4), ! final fermion
00060 $ m_q2(4), ! final anti-fermion
00061 $ m_sphot(m_phmax,4), ! photon momenta
00062 $ m_WtMain, ! MAIN weight of KK2f
00063 $ m_WtCrud, ! crude distr from ISR and FSR
00064 $ m_WtSet(m_lenwt), ! complete list of weights
00065 $ m_WtList(m_lenwt), ! complete list of weights
00066 $ m_Xcrunb, ! crude in nanobarns
00067 $ m_BornCru, ! Crude Born
00068 $ m_isr( m_phmax), ! =1 for isr, 0 for fsr
00069 $ m_Phel(m_phmax), ! photon helicity =1,0 for +,-
00070 $ m_nphot, ! Total Photon multiplicity
00071 *----------------------------------
00072 $ m_IsBeamPolarized, ! status of beam polarization
00073 $ m_KFini, ! KF of beam fermion
00074 $ m_KeyWgt, ! weight=1 on/off switch
00075 $ m_KeyHad, ! hadronization switch
00076 $ m_nevgen, ! serial number of the event
00077 $ m_npmax, ! maximum photon multiplicity
00078 $ m_KeyISR, ! ISR switch
00079 $ m_KeyFSR, ! FSR switch
00080 $ m_KeyINT, ! ISR/FSR INTereference switch
00081 $ m_KeyGPS, ! New exponentiation switch
00082 $ m_out, ! output unit number
00083 $ m_Idyfs, ! pointer for histograming
00084 $ m_idbra, ! pointer for brancher
00085 $ m_idgen, ! special histogram for this generator
00086 *--------------------------------------------------------------------
00087 $ m_KeySkip, ! Skip flag while event generating
00088 $ m_EvtGenInterface ! particle decay handled by EvtGen/not
00089 *
00090 SAVE /c_KK2f/
00091 *
00092 *
00093 * Class procedures:
00094 *
00095 *
00096 *
00097 *
00098 *