00001 *
00002 *
00003 *
00004 *
00005 *
00006 *
00007 *
00008 *
00009 * Class members:
00010 INTEGER m_npmx ! maximum photon multiplicity, see also m_nmax
00011 PARAMETER ( m_npmx = 100)
00012 DOUBLE PRECISION m_alfinv, m_emin, m_delta, m_MasPhot
00013 DOUBLE PRECISION m_phot, m_yfin, m_zfin, m_phsu
00014 DOUBLE PRECISION m_Xenph
00015 DOUBLE PRECISION m_q1, m_q2, m_r1, m_r2
00016 DOUBLE PRECISION m_VoluMC, m_YFS_IR, m_YFSkon, m_WtMass
00017 INTEGER m_KeyPia, m_MltFSR, m_nmax
00018 INTEGER m_out, m_idyfs, m_Nevgen
00019 INTEGER m_KeyFSR, m_KeyQSR, m_IsFSR
00020 INTEGER m_nphot, m_MarTot
00021 *
00022 COMMON /c_KarFin/
00023 $ m_out, ! Output file
00024 $ m_NevGen, ! Event serial number
00025 $ m_alfinv, ! alpha QED at Thomson limit
00026 $ m_emin, ! minimum energy at CMS for remooval
00027 $ m_delta, ! infrared cut, dimensionless
00028 $ m_MasPhot, ! dummy photon mass, IR regulator
00029 $ m_Xenph, ! crude photon multiplicity enhancement factor
00030 *-----------------EVENT---------------------
00031 $ m_VoluMC, ! MC crude volume of PhhSpace*Sfactors
00032 $ m_YFS_IR, ! YFS formfactor IR part only
00033 $ m_YFSkon, ! YFS formfactor non-IR finite part
00034 $ m_WtMass, ! mass weight, product
00035 $ m_q1(4), ! fermion momentum
00036 $ m_q2(4), ! fermion momentum
00037 $ m_r1(4), ! shadow of q1 fermion momentum
00038 $ m_r2(4), ! shadow of q2 fermion momentum
00039 $ m_phsu(4), ! sum of photon momenta
00040 $ m_phot(m_npmx,4), ! photon momenta
00041 $ m_yfin(m_npmx), ! Sudakov y-variables
00042 $ m_zfin(m_npmx), ! Sudakov z-variables
00043 $ m_nphot, ! Photon multiplicity
00044 *--------------------------------------------
00045 $ m_idyfs, ! Pointer for Histograms
00046 $ m_KeyPia, ! soft photon remooval switch
00047 $ m_MltFSR, ! special test switch
00048 $ m_nmax, ! max photon multiplicity
00049 $ m_KeyFSR, ! FSR switch general
00050 $ m_KeyQSR, ! FSR switch for quarks
00051 $ m_IsFSR, ! FSR flag for actual event
00052 $ m_MarTot ! marked events counter
00053 *
00054 SAVE /c_KarFin/
00055 *
00056 *
00057 *
00058 *
