20 $ m_alfQCDMZ, ! alphaQCD
at (Q^2=
MZ^2) DIZET
22 $
m_KFfin, ! KF code of
final fermion DIZET
23 $
m_IVini, ! vertical
id of initial ferm. DIZET
24 $
m_IVfin, ! vertical
id of
final ferm. DIZET
25 $ m_ibox ! EW boxes on/off DIZET
************Class m_alfQCDMZ INTEGER m_KFfin INTEGER m_IVfin INTEGER m_ibox *COMMON c_DZface $ m_alfinvMZ
************Class m_alfQCDMZ INTEGER m_KFfin INTEGER m_IVfin INTEGER m_ibox *COMMON c_DZface $ alphaQED !alphaQCD !KF code of final fermion DIZET $ !vertical id of initial ferm DIZET $ m_IVfin
************Class members
************Class m_alfQCDMZ INTEGER m_KFfin INTEGER m_IVini
************Class m_alfQCDMZ INTEGER m_KFfin INTEGER m_IVfin INTEGER m_ibox *COMMON c_DZface $ alphaQED at(Q^2=MZ^2) DIZET $ m_alfQCDMZ
character *LEPTONflag integer iresonances real zeta5 real adp3 real large_3 real * MZ
**********Class see also m_nmax DOUBLE PRECISION m_amel DOUBLE PRECISION m_x2 DOUBLE PRECISION m_alfinv DOUBLE PRECISION m_Xenph INTEGER m_KeyWtm INTEGER m_idyfs DOUBLE PRECISION m_zini DOUBLE PRECISION m_q2 DOUBLE PRECISION m_Wt_KF DOUBLE PRECISION m_WtCut INTEGER m_KFfin *COMMON c_KarLud $ !Input CMS energy[GeV] $ !CMS energy after beam spread beam strahlung[GeV] $ !Beam energy spread[GeV] $ !z boost due to beam spread $ !electron beam mass *ff pair spectrum $ !minimum infrared cut $ !maximum v $ !minimum hadronization mass *[GeV] Basic QED $ !Alpha_QED at Thomson limit MC technicalities $ !Crude xsect from Vesk1 $ !from gauss integration $ !gauss precision $ !crude photon multiplicity enhancement factor *EVENT $ !beam momentum $ !beam momentum $ !final momentum UNUSED for FSR switched ON $ !final momentum UNUSED for FSR switched ON $ !photon momenta $ !sum of photon momenta $ !total momentum minus ISR photons $ !Sudakov y variables $ !Sudakov z variables $ !Weight associated with V generation $ !Weight associated with KF generation $ !Weight associated with photon momenta generation $ !WtIni component $ !WtIni component !WtIni component $ !Photon multiplicity $ m_KFfin
IMPLICIT REAL *A O Z IMPLICIT INTEGER(I-N) C.... COMMONBALOCKS FOR MODE COMMON/MODEXS/ICH common/bornXS/xborn REAL *8 USER_XX(1000)