00001 *
00002 *
00003 *
00004 *
00005 INTEGER imax
00006 PARAMETER (imax=1000)
00007 DOUBLE PRECISION m_pi
00008 PARAMETER (m_pi =3.1415926535897932d0)
00009 *
00010 DOUBLE PRECISION m_xpar, m_CMSene, m_amel, m_amfin
00011 DOUBLE PRECISION m_gnanob, m_Chini, m_Chfin
00012 DOUBLE PRECISION m_vvmin, m_vvmax, m_Xenph
00013 DOUBLE PRECISION m_Zmass, m_Zgamma, m_sinw2
00014 DOUBLE PRECISION m_alfinv, m_alfinvMZ, m_GFermi
00015 DOUBLE PRECISION m_svar1, m_cMax, m_MfinMin
00016 DOUBLE PRECISION m_eps1, m_eps2, m_ta1, m_ta2
00017 INTEGER m_KeyZet, m_KeyDis, m_out
00018 INTEGER m_KFini, m_KFfin, m_KeyFoB, m_KeyFSR
00019 INTEGER m_Nchanel,m_KeyQCD
00020 *
00021 COMMON /c_Semalib/
00022 $ m_xpar(imax), ! copy of input
00023 $ m_CMSene, ! CMS energy
00024 $ m_amel, ! beam mass
00025 $ m_amfin, ! final mass
00026 $ m_Chini, ! beam charge
00027 $ m_Chfin, ! final charge
00028 $ m_MfinMin, ! smallest final mass
00029 $ m_Zmass, ! Z mass
00030 $ m_Zgamma, ! Z width
00031 $ m_sinw2, ! EW mixing angle
00032 $ m_GFermi, ! Gmu Fermi
00033 $ m_alfinv, ! 1/alphaQED at q^2=0
00034 $ m_alfinvMZ, ! 1/alphaQED at MZ
00035 $ m_gnanob, ! GeV^2 -> nanobarns
00036 $ m_vvmin, ! minimum v
00037 $ m_vvmax, ! maximum v
00038 $ m_svar1, ! propagator sprim
00039 $ m_eps1, ! longit. polarization 1-st beam
00040 $ m_eps2, ! longit. polarization 2-nd beam
00041 $ m_ta1, ! longit. polarization 1-st final ferm.
00042 $ m_ta2, ! longit. polarization 2-nd final ferm.
00043 $ m_cMax, ! cos(theta_max)
00044 $ m_Xenph, ! Enhancement factor for Crude photon multiplicity
00045 $ m_KeyZet, ! type of Born
00046 $ m_KeyDis, ! type of bremsstrahlung
00047 $ m_KFini, ! KF flavour code 1-st beam
00048 $ m_KFfin, ! KF flavour code 1-st final fermion
00049 $ m_KeyFoB, ! togle swith for Forward or Backward
00050 $ m_KeyFSR, ! FSR on/off
00051 $ m_KeyQCD, ! QCD factor for quarks on/off
00052 $ m_Nchanel, ! No of open chanels
00053 $ m_out ! output file number
00054 *
00055 *
00056 *
00057 *
00058