mod_Parameters.F90 File Reference

Go to the source code of this file.

Modules
module	modparameters

Functions/Subroutines
complex(8) function	modparameters::hvvspinzerodynamiccoupling (index, sWplus, sWminus, sWW, tryWWcoupl)
complex(8) function	modparameters::vpffcoupling (jhuid, hel, useWp)
complex(8) function	modparameters::vpffcoupling_pdg (pdgid, hel, useWp)
real(8) function	modparameters::scalefactor (id1in, id2in)
real(8) function	modparameters::ckmbare (id1in, id2in)
real(8) function	modparameters::ckm (id1in, id2in)
real(8) function	modparameters::zffbare (id1in, id2in, h1, h2)
real(8) function	modparameters::zff (id1in, id2in, h1, h2)
real(8) function	modparameters::aff (id1in, id2in, h1, h2)
integer function	modparameters::convertlhereverse (Part)
integer function	modparameters::convertlhe (Part)
integer function	modparameters::converttopartindex (Part)
integer function	modparameters::convertfrompartindex (Part)
subroutine	modparameters::setmass (mass, ipart)
subroutine	modparameters::setdecaywidth (width, ipart)
real(8) function	modparameters::getmass (Part)
real(8) function	modparameters::getdecaywidth (Part)
subroutine	modparameters::sethiggsmass (jH, mass)
subroutine	modparameters::sethiggsdecaywidth (jH, width)
real(8) function	modparameters::gethiggsmass (jH)
real(8) function	modparameters::gethiggsdecaywidth (jH)
character(len=3) function	modparameters::getparticle (Part)
character(len=3) function	modparameters::getlheparticle (PartLHE)
logical function	modparameters::isazdecay (DKMode)
logical function	modparameters::isawdecay (DKMode)
logical function	modparameters::isaphoton (DKMode)
logical function	modparameters::isdowntypequark (PartType)
logical function	modparameters::islhedowntypequark (PartType)
logical function	modparameters::isuptypequark (PartType)
logical function	modparameters::islheuptypequark (PartType)
logical function	modparameters::isuptypelightquark (PartType)
logical function	modparameters::islheuptypelightquark (PartType)
logical function	modparameters::isaquark (PartType)
logical function	modparameters::isalhequark (PartType)
logical function	modparameters::isalightquark (PartType)
logical function	modparameters::isalhelightquark (PartType)
logical function	modparameters::isaneutrino (PartType)
logical function	modparameters::isalheneutrino (PartType)
logical function	modparameters::isalepton (PartType)
logical function	modparameters::isalhelepton (PartType)
logical function	modparameters::isagluon (PartType)
logical function	modparameters::isalhegluon (PartType)
logical function	modparameters::isajet (PartType)
logical function	modparameters::isalhejet (PartType)
logical function	modparameters::isaboson (PartType)
logical function	modparameters::isalheboson (PartType)
integer function	modparameters::coupledvertex (id, hel, useAHcoupl)
logical function	modparameters::coupledvertexisdiagonal (id, hel)
integer function	modparameters::countleptons (MY_IDUP)
integer function	modparameters::countjets (MY_IDUP)
integer function	modparameters::su2flip (Part)
logical function	modparameters::coupltolhewp (Part)
logical function	modparameters::coupltolhewm (Part)
integer function	modparameters::chargeflip (Part)
subroutine	modparameters::computeckmelements (inVCKM_ud, inVCKM_us, inVCKM_cd, inVCKM_cs, inVCKM_ts, inVCKM_tb, inVCKM_ub, inVCKM_cb, inVCKM_td)
subroutine	modparameters::setdefaultckm ()
subroutine	modparameters::computeewvariables ()
subroutine	modparameters::computeqcdvariables ()
subroutine	modparameters::evalalphas ()
real(8) function	modparameters::massfrun (mf, scale)
complex(dp) function, dimension(4)	modparameters::pol_mless (p, i, outgoing)
complex(dp) function, dimension(4)	modparameters::pol_mless2 (p, i, out)
complex(dp) function, dimension(4)	modparameters::pol_dk2mom (plepton, antilepton, i, outgoing)
complex(8) function, dimension(4)	modparameters::pol_mass (p, i, outgoing)
complex(dp) function, dimension(4)	modparameters::pol_mass2 (p, i, out)
complex(dp) function, dimension(4)	modparameters::ubar0 (p, i)
complex(dp) function, dimension(4)	modparameters::v0 (p, i)
subroutine	modparameters::spinoru (p, za, zb, s)
subroutine	modparameters::initcollier (Nmax, Rmax)

Variables
character(len= *), parameter	modparameters::jhugen_version ="v7.5.4"
integer, parameter, public	modparameters::dp = selected_real_kind(15)
real(8), parameter, public	modparameters::tol = 0.0000001d0
integer, parameter, public	modparameters::invalidmode =-1
integer, parameter, public	modparameters::wwmode =00
integer, parameter, public	modparameters::zzmode =01
integer, parameter, public	modparameters::zgsmode =02
integer, parameter, public	modparameters::gszmode =03
integer, parameter, public	modparameters::gsgsmode =04
integer, parameter, public	modparameters::zgmode =05
integer, parameter, public	modparameters::gsgmode =06
integer, parameter, public	modparameters::ggmode =07
integer, parameter, public	modparameters::wwpmode =10
integer, parameter, public	modparameters::wpwmode =11
integer, parameter, public	modparameters::wpwpmode =12
integer, parameter, public	modparameters::zzpmode =20
integer, parameter, public	modparameters::zpzmode =21
integer, parameter, public	modparameters::zpzpmode =22
integer, parameter, public	modparameters::gszpmode =30
integer, parameter, public	modparameters::zpgsmode =31
integer, parameter, public	modparameters::zpgmode =32
integer, public	modparameters::collider
integer, public	modparameters::pchannel
integer, public	modparameters::process
integer, public	modparameters::decaymode1
integer, public	modparameters::decaymode2
integer, public	modparameters::topdecays
integer, public	modparameters::taudecays
integer, public	modparameters::vegasit1
integer, public	modparameters::vegasnc0
integer, public	modparameters::vegasnc1
integer, public	modparameters::vegasnc2
integer, public	modparameters::pmzzevals
real(8), public	modparameters::collider_energy
integer, public	modparameters::facscheme
integer, public	modparameters::renscheme
real(8), public	modparameters::mufacmultiplier
real(8), public	modparameters::murenmultiplier
real(8), public	modparameters::customupperscalebound
real(8), public	modparameters::customlowerscalebound
integer, public	modparameters::vegasit1_default
integer, public	modparameters::vegasnc0_default
integer, public	modparameters::vegasnc1_default
integer, public	modparameters::vegasnc2_default
integer, public	modparameters::numhistograms
integer, dimension(1:2), public	modparameters::requestnleptons = -1
integer, dimension(1:2), public	modparameters::requestnjets = -1
integer, dimension(1:2), public	modparameters::requestos = -1
integer, dimension(1:2), public	modparameters::requestossf = -1
logical, public	modparameters::unweighted
logical, public	modparameters::offshellreson
logical, public	modparameters::offshellv1
logical, public	modparameters::offshellv2
logical, public	modparameters::readlhefile
logical, public	modparameters::convertlhefile
logical, public	modparameters::doprintpmzz
logical, public	modparameters::readcsmax
logical, public	modparameters::generateevents
logical, public	modparameters::counttauasany
logical, public	modparameters::hasleptonfilter
logical, public	modparameters::foundhiggsmass
logical, public	modparameters::foundhiggswidth
integer, public	modparameters::writefailedevents
logical, public	modparameters::filesopened = .false.
integer, parameter, public	modparameters::krenfacscheme_default =0
integer, parameter, public	modparameters::krenfacscheme_mhstar =1
integer, parameter, public	modparameters::krenfacscheme_mjjhstar =2
integer, parameter, public	modparameters::krenfacscheme_mjj_mhstar =3
integer, parameter, public	modparameters::krenfacscheme_mj_mj_mhstar =4
integer, parameter, public	modparameters::krenfacscheme_mjj =5
integer, parameter, public	modparameters::krenfacscheme_mj_mj =6
integer, parameter, public	modparameters::krenfacscheme_mjhstar =7
integer, parameter, public	modparameters::krenfacscheme_mj_mhstar =8
integer, parameter, public	modparameters::krenfacscheme_mj =9
integer, parameter, public	modparameters::krenfacscheme_maxptj =10
integer, parameter, public	modparameters::krenfacscheme_minptj =11
integer, parameter, public	modparameters::krenfacscheme_custom_scale =12
integer, parameter, public	modparameters::nrenfacschemes =13
integer, parameter, public	modparameters::maxpart = 30
integer, parameter, public	modparameters::nmaxchannels =200
integer(8), public	modparameters::evalcounter =0
integer(8), public	modparameters::rejecounter =0
integer(8), public	modparameters::accepcounter =0
integer(8), public	modparameters::alertcounter =0
integer(8), dimension(-6:6,-6:6), public	modparameters::accepcounter_part =0
integer(8), dimension(-6:6,-6:6), public	modparameters::rejecounter_part =0
integer(8), dimension(-6:+6,-6:+6), public	modparameters::requevents =0
real(8), dimension(-6:+6,-6:+6), public	modparameters::crosssecmax =0
real(8), dimension(-6:+6,-6:+6), public	modparameters::crosssec =0
integer(8), dimension(1:nmaxchannels), public	modparameters::requevents2 =0
integer(8), dimension(1:nmaxchannels), public	modparameters::accepcounter_part2 =0
real(8), dimension(1:nmaxchannels), public	modparameters::crosssec2 =0
real(8), dimension(1:nmaxchannels), public	modparameters::crosssecmax2 =0
integer, public	modparameters::ipart_sel
integer, public	modparameters::jpart_sel
integer, public	modparameters::ichann_sel
real(8)	modparameters::time_start
real(8)	modparameters::time_end
real(8)	modparameters::time_int
logical, public	modparameters::warmup
character(len=500)	modparameters::datafile
character(len=500)	modparameters::csmaxfile
character(len=500)	modparameters::logfile
character(len=500)	modparameters::lheprodfile
character(len=100)	modparameters::lhapdfstring
character(len=500)	modparameters::lhapdf_data_path
integer, public	modparameters::lhapdfmember
integer, public	modparameters::lenlhapdfstring
integer, public	modparameters::pdfset
logical, public	modparameters::includeinterference
logical, public	modparameters::reweightinterference
logical, public	modparameters::writegit
real(8), public	modparameters::m_v
real(8), public	modparameters::ga_v
real(8), public	modparameters::m_vprime
real(8), public	modparameters::ga_vprime
real(8), public	modparameters::m_v_ps
real(8), public	modparameters::ga_v_ps
real(8), public	modparameters::m_z_ps
real(8), public	modparameters::ga_z_ps
real(8), public	modparameters::m_w_ps
real(8), public	modparameters::ga_w_ps
real(dp), parameter, public	modparameters::pi =3.141592653589793238462643383279502884197_dp
real(dp), parameter, public	modparameters::sqrt2 = 1.4142135623730950488016887242096980786_dp
real(dp), parameter, public	modparameters::gamma_0 = 0.5772156649015328606065120900824024310421_dp
real(dp), parameter, public	modparameters::pisq = pi**2
real(8), parameter, public	modparameters::one = 1.0d0
real(8), parameter, public	modparameters::mone = -1.0d0
real(8), parameter, public	modparameters::half = 0.5d0
real(8), parameter, public	modparameters::two = 2.0d0
real(8), parameter, public	modparameters::zero = 0d0
complex(8), parameter, public	modparameters::czero = (0d0, 0d0)
complex(8), parameter, public	modparameters::cone = 1.0d0
complex(8), parameter, public	modparameters::ci =(0d0, 1.0d0)
complex(8), parameter, public	modparameters::ne =(0d0, 1.0d0)
real(8), parameter, public	modparameters::percent =1d0/100d0
real(8), parameter, public	modparameters::symmfac =1d0/2d0
real(8), parameter, public	modparameters::spinavg =1d0/4d0
real(8), parameter, public	modparameters::quarkcolavg =1d0/3d0
real(8), parameter, public	modparameters::gluoncolavg =1d0/8d0
real(8), parameter, public	modparameters::gev =1d0/100d0
real(8), parameter, public	modparameters::tev =1d+3*GeV
real(8), parameter, public	modparameters::mev =1d-3*GeV
real(8), parameter, public	modparameters::kev =1d-6*GeV
real(8), parameter, public	modparameters::ev =1d-9*GeV
real(8), parameter, public	modparameters::meter =1d6
real(8), parameter, public	modparameters::milimeter =1d-3*meter
real(8), parameter, public	modparameters::ctauunit =milimeter
real(8), parameter, public	modparameters::barn =1d-28*(meter**2)
real(8), parameter, public	modparameters::picobarn =1e-12*barn
real(8), parameter, public	modparameters::femtobarn =1e-15*barn
real(8), parameter, public	modparameters::attobarn =1e-18*barn
real(8), parameter, public	modparameters::second =1d15
real(8), parameter, public	modparameters::milisecond =1d-3*second
real(8), parameter, public	modparameters::speedoflight =299792458*meter/second
real(8), parameter, public	modparameters::planckconstant =4.13567d-15*eV*second
real(8), parameter, public	modparameters::hbar =PlanckConstant/(2d0*pi)
real(8), parameter, public	modparameters::hbarc =hbar*SpeedOfLight
real(8), parameter, public	modparameters::hbarc2 =hbarc**2
real(8), parameter, public	modparameters::hbarc2_fbgev2 = hbarc2/(femtobarn*(GeV**2))
real(8), parameter, public	modparameters::hbarc2_pbgev2 = hbarc2/(picobarn*(GeV**2))
real(8), parameter, public	modparameters::hbarc2xsecunit = hbarc2_fbGeV2*(GeV**2)
real(8), public	modparameters::mincs =1d10
real(8), public	modparameters::maxcs =0d0
real(8), public	modparameters::avgcs =0d0
integer, public	modparameters::br_z_ll_counter =0
integer, public	modparameters::br_z_inv_counter =0
integer, public	modparameters::br_z_uu_counter =0
integer, public	modparameters::br_z_dd_counter =0
integer, public	modparameters::br_w_ll_counter =0
integer, public	modparameters::br_w_ud_counter =0
integer, dimension(1:5, 1:5), public	modparameters::br_counter =0
integer, dimension(0:8), public	modparameters::leptinevent = 0
integer, dimension(0:8), public	modparameters::jetsinevent = 0
logical, public	modparameters::reweightdecay = .false.
integer, public	modparameters::userseed = 0
integer, public	modparameters::widthscheme = 0
integer, public	modparameters::widthschemein = 0
real(8), public	modparameters::mubarh = -999d0
real(8), public	modparameters::gabarh = -999d0
real(8), public	modparameters::maxinputmhstar = -999d0
real(8), public	modparameters::mininputmhstar = 1d15
real(8), public	modparameters::mhstarforphasespace
logical, public	modparameters::readpmzz
character(len=500), public	modparameters::pmzzfile = "PMZZdistribution.out"
real(8), public	modparameters::pmzz_mreso = -1d0
integer, parameter, public	modparameters::pmzzsize = 10000
real(8), dimension(1:pmzzsize, 1:2), public	modparameters::pmzzdistribution
integer, public	modparameters::pmzzminindex =-1
integer, public	modparameters::pmzzmaxindex =-1
complex(8), public	modparameters::printpmzz
integer, public	modparameters::printpmzzintervals
integer, public	modparameters::vbfoffsh_run =-1
logical, public	modparameters::findcrosssectionwithweights = .false.
real(8), public	modparameters::vprimedecaylengthmasscutofffactor = -1d0
real(8), public	modparameters::crosssectionwithweights = 0d0
real(8), public	modparameters::crosssectionwithweightserrorsquared = 0d0
integer, parameter, public	modparameters::nmaxseeds = 33
integer, dimension(1:nmaxseeds), parameter, public	modparameters::defaultseeds = (/847362834,470115596,392845769,191039475,372910496,192049687,695820194,218930493,902943834,471748302,123958674,390534012,938576849,386472918,938576483,891928354,593857698,938576432,948576849,192847564 ,218940493,902943854,471748304,123958670,390534013,938576846,386472917,938576484,891928359,593857698,938576434,948576848,192847565/)
integer, dimension(1:nmaxseeds), public	modparameters::theseeds = DefaultSeeds
logical, public	modparameters::fix_channels_ratio = .false.
real(8), public	modparameters::channels_ratio_fix = 0.25d0
logical, public	modparameters::writeweightedlhe = .false.
logical, public	modparameters::randomizevvdecays = .true.
logical, public	modparameters::useunformattedread = .false.
logical, public	modparameters::hbbdecays =.false.
logical, public	modparameters::h_dk =.false.
character(len=2), public	modparameters::vh_pc = "lo"
real(8), public	modparameters::alpha_dip = 1d0
real(8), public	modparameters::ptjetcut = -1d0*GeV
real(8), public	modparameters::etajetcut = -1d0
real(8), public	modparameters::detajetcut = -1d0
real(8), public	modparameters::rjet = -1d0
real(8), public	modparameters::mjjcut = 0d0*GeV
real(8), dimension(1:2), public	modparameters::m4l_minmax = (/ -1d0,-1d0 /)*GeV
real(8), dimension(1:2), public	modparameters::m2l_minmax = (/ 0d0,14000d0 /)*GeV
real(8), dimension(1:2), public	modparameters::mvh_minmax = (/ 0d0,14000d0 /)*GeV
logical, public	modparameters::includegammastar = .false.
logical, public	modparameters::includevprime = .false.
real(8), public	modparameters::mphotoncutoff = -1d0*GeV
real(8), public	modparameters::ptlepcut = -1d0*GeV
real(8), public	modparameters::etalepcut = 999d0
real(8), public	modparameters::pthcut = 0d0*GeV
logical, public	modparameters::jetsoppositeeta = .false.
real(8), public	modparameters::m_top = 173.2d0 *GeV
real(8), public	modparameters::ga_top = 2.0d0 *GeV
real(8), public	modparameters::m_z = 91.1876d0 *GeV
real(8), public	modparameters::ga_z = 2.4952d0 *GeV
real(8), public	modparameters::m_w = 80.399d0 *GeV
real(8), public	modparameters::ga_w = 2.085d0 *GeV
real(8), public	modparameters::m_reso = 125.0d0 *GeV
real(8), public	modparameters::ga_reso = 0.00407d0 *GeV
real(8), public	modparameters::m_reso2 = -1d0 *GeV
real(8), public	modparameters::ga_reso2 = 0d0 *GeV
real(8), public	modparameters::higgsdecaylengthmm = 0d0
real(8), public	modparameters::vprimedecaylengthmm = 0d0
real(8), public	modparameters::m_bot = 4.75d0 *GeV
real(8), public	modparameters::m_charm = 1.275d0 *GeV
real(8), public	modparameters::m_el = 0.00051100d0 *GeV
real(8), public	modparameters::m_mu = 0.10566d0 *GeV
real(8), public	modparameters::m_tau = 1.7768d0 *GeV
real(8), public	modparameters::ga_tau = 2.267d-12 *GeV
real(8), public	modparameters::m_bot_4gen = 100000d0*GeV
real(8), public	modparameters::m_top_4gen = 100000d0*GeV
real(8), public	modparameters::gf = 1.16639d-5/GeV**2
real(8), public	modparameters::alpha_qed = 1d0/128d0
real(8), public	modparameters::vev
real(8), public	modparameters::gwsq
real(dp), public	modparameters::esq
real(8), public	modparameters::xw = 0.23119d0
real(8), public	modparameters::sitw
real(8), public	modparameters::twosc
real(8), parameter, public	modparameters::lhc_energy =13d0 *TeV
real(8), parameter, public	modparameters::tev_energy =1.96d0 *TeV
real(8), parameter, public	modparameters::ilc_energy =250d0 *GeV
real(8), public	modparameters::pol_a = 0d0
real(8), public	modparameters::pol_b = 0d0
integer, parameter, public	modparameters::nqflavors_pdf = 5
integer, parameter, public	modparameters::nloops_pdf = 1
real(8), public	modparameters::zmass_pdf
real(8), public	modparameters::mu_fact
real(8), public	modparameters::mu_ren
real(dp), public	modparameters::alphas
real(dp), public	modparameters::alphas_mz
real(dp), public	modparameters::gs
real(8), public	modparameters::breitwignercutoff = 20d0
real(8), public	modparameters::vckm_ud
real(8), public	modparameters::vckm_us
real(8), public	modparameters::vckm_cs
real(8), public	modparameters::vckm_cd
real(8), public	modparameters::vckm_tb
real(8), public	modparameters::vckm_ts
real(8), public	modparameters::vckm_cb
real(8), public	modparameters::vckm_ub
real(8), public	modparameters::vckm_td
real(8), parameter, public	modparameters::br_z_ll = 10.10d0*percent
real(8), parameter, public	modparameters::br_z_hadr = 69.91d0*percent
real(8), parameter, public	modparameters::br_z_inv = 100d0*percent - Br_Z_ll - Br_Z_hadr
real(8), parameter, public	modparameters::br_z_uu = 11.6d0*percent
real(8), parameter, public	modparameters::br_z_cc = 11.6d0*percent
real(8), parameter, public	modparameters::br_z_dd = 15.6d0*percent
real(8), parameter, public	modparameters::br_z_ss = 15.6d0*percent
real(8), parameter, public	modparameters::br_z_bb = Br_Z_hadr - Br_Z_uu - Br_Z_dd - Br_Z_cc - Br_Z_ss
real(8), parameter, public	modparameters::br_w_ll = 32.72d0*percent
real(8), parameter, public	modparameters::br_w_hadr = 100d0*percent - Br_W_ll
real(8), parameter, public	modparameters::br_z_ee = 1d0/3d0*Br_Z_ll
real(8), parameter, public	modparameters::br_z_mm = 1d0/3d0*Br_Z_ll
real(8), parameter, public	modparameters::br_z_tt = 1d0/3d0*Br_Z_ll
real(8), parameter, public	modparameters::br_z_nn = 1d0/3d0*Br_Z_inv
real(8), parameter, public	modparameters::br_w_en = 1d0/3d0*Br_W_ll
real(8), parameter, public	modparameters::br_w_mn = 1d0/3d0*Br_W_ll
real(8), parameter, public	modparameters::br_w_tn = 1d0/3d0*Br_W_ll
real(8), parameter, public	modparameters::br_w_ud = 1d0/2d0*Br_W_hadr
real(8), parameter, public	modparameters::br_w_cs = 1d0/2d0*Br_W_hadr
real(8), parameter, public	modparameters::brlept_z_ee = Br_Z_ee/Br_Z_ll
real(8), parameter, public	modparameters::brlept_z_mm = Br_Z_mm/Br_Z_ll
real(8), parameter, public	modparameters::brlept_z_tt = Br_Z_tt/Br_Z_ll
real(8), parameter, public	modparameters::brlept_z_nn = Br_Z_nn/Br_Z_inv
real(8), parameter, public	modparameters::brlept_w_en = Br_W_en/Br_W_ll
real(8), parameter, public	modparameters::brlept_w_mn = Br_W_mn/Br_W_ll
real(8), parameter, public	modparameters::brlept_w_tn = Br_W_tn/Br_W_ll
real(8), parameter, public	modparameters::brhadr_z_uu = Br_Z_uu/Br_Z_hadr
real(8), parameter, public	modparameters::brhadr_z_cc = Br_Z_cc/Br_Z_hadr
real(8), parameter, public	modparameters::brhadr_z_dd = Br_Z_dd/Br_Z_hadr
real(8), parameter, public	modparameters::brhadr_z_ss = Br_Z_ss/Br_Z_hadr
real(8), parameter, public	modparameters::brhadr_z_bb = Br_Z_bb/Br_Z_hadr
real(8), parameter, public	modparameters::brhadr_w_ud = Br_W_ud/Br_W_hadr
real(8), parameter, public	modparameters::brhadr_w_cs = Br_W_cs/Br_W_hadr
real(8), public	modparameters::scale_alpha_z_uu = 1.037560d0
real(8), public	modparameters::scale_alpha_z_dd = 1.037560d0
real(8), public	modparameters::scale_alpha_z_ll = 1d0
real(8), public	modparameters::scale_alpha_z_tt = 1d0
real(8), public	modparameters::scale_alpha_z_nn = 1d0
real(8), public	modparameters::scale_alpha_w_ud = 1.038200d0
real(8), public	modparameters::scale_alpha_w_cs = 1.038200d0
real(8), public	modparameters::scale_alpha_w_ln = 1d0
real(8), public	modparameters::scale_alpha_w_tn = 1d0
real(8), parameter, public	modparameters::lambda = 1000d0 *GeV
real(8), parameter, public	modparameters::lambda2 = 1000d0 *GeV
logical, parameter, public	modparameters::generate_as = .false.
complex(8), parameter, public	modparameters::ahg1 = (1.0d0, 0d0)
complex(8), parameter, public	modparameters::ahg2 = (0d0, 0d0)
complex(8), parameter, public	modparameters::ahg3 = (0d0, 0d0)
complex(8), parameter, public	modparameters::ahz1 = (1.0d0, 0d0)
complex(8), parameter, public	modparameters::ahz2 = (0d0, 0d0)
complex(8), parameter, public	modparameters::ahz3 = (0d0, 0d0)
complex(8), public	modparameters::ghg2 = (1.0d0, 0d0)
complex(8), public	modparameters::ghg3 = (0d0, 0d0)
complex(8), public	modparameters::ghg4 = (0d0, 0d0)
complex(8), public	modparameters::ghg2_4gen = (0d0, 0d0)
complex(8), public	modparameters::ghg3_4gen = (0d0, 0d0)
complex(8), public	modparameters::ghg4_4gen = (0d0, 0d0)
complex(8), public	modparameters::ghz1 = (2.0d0, 0d0)
complex(8), public	modparameters::ghz2 = (0d0, 0d0)
complex(8), public	modparameters::ghz3 = (0d0, 0d0)
complex(8), public	modparameters::ghz4 = (0d0, 0d0)
complex(8), public	modparameters::ghz1_prime = (0d0, 0d0)
complex(8), public	modparameters::ghz1_prime2 = (0d0, 0d0)
complex(8), public	modparameters::ghz1_prime3 = (0d0, 0d0)
complex(8), public	modparameters::ghz1_prime4 = (0d0, 0d0)
complex(8), public	modparameters::ghz1_prime5 = (0d0, 0d0)
complex(8), public	modparameters::ghz1_prime6 = (0d0, 0d0)
complex(8), public	modparameters::ghz1_prime7 = (0d0, 0d0)
complex(8), public	modparameters::ghz2_prime = (0d0, 0d0)
complex(8), public	modparameters::ghz2_prime2 = (0d0, 0d0)
complex(8), public	modparameters::ghz2_prime3 = (0d0, 0d0)
complex(8), public	modparameters::ghz2_prime4 = (0d0, 0d0)
complex(8), public	modparameters::ghz2_prime5 = (0d0, 0d0)
complex(8), public	modparameters::ghz2_prime6 = (0d0, 0d0)
complex(8), public	modparameters::ghz2_prime7 = (0d0, 0d0)
complex(8), public	modparameters::ghz3_prime = (0d0, 0d0)
complex(8), public	modparameters::ghz3_prime2 = (0d0, 0d0)
complex(8), public	modparameters::ghz3_prime3 = (0d0, 0d0)
complex(8), public	modparameters::ghz3_prime4 = (0d0, 0d0)
complex(8), public	modparameters::ghz3_prime5 = (0d0, 0d0)
complex(8), public	modparameters::ghz3_prime6 = (0d0, 0d0)
complex(8), public	modparameters::ghz3_prime7 = (0d0, 0d0)
complex(8), public	modparameters::ghz4_prime = (0d0, 0d0)
complex(8), public	modparameters::ghz4_prime2 = (0d0, 0d0)
complex(8), public	modparameters::ghz4_prime3 = (0d0, 0d0)
complex(8), public	modparameters::ghz4_prime4 = (0d0, 0d0)
complex(8), public	modparameters::ghz4_prime5 = (0d0, 0d0)
complex(8), public	modparameters::ghz4_prime6 = (0d0, 0d0)
complex(8), public	modparameters::ghz4_prime7 = (0d0, 0d0)
complex(8), public	modparameters::ghzgs1_prime2 = (0d0, 0d0)
complex(8), public	modparameters::ghzgs2 = (0d0, 0d0)
complex(8), public	modparameters::ghzgs3 = (0d0, 0d0)
complex(8), public	modparameters::ghzgs4 = (0d0, 0d0)
complex(8), public	modparameters::ghgsgs2 = (0d0, 0d0)
complex(8), public	modparameters::ghgsgs3 = (0d0, 0d0)
complex(8), public	modparameters::ghgsgs4 = (0d0, 0d0)
real(8), parameter, public	modparameters::lambda_z1 = 10000d0*GeV
real(8), parameter, public	modparameters::lambda_z2 = 10000d0*GeV
real(8), parameter, public	modparameters::lambda_z3 = 10000d0*GeV
real(8), parameter, public	modparameters::lambda_z4 = 10000d0*GeV
real(8), parameter, public	modparameters::lambda_zgs1 = 10000d0*GeV
real(8), parameter, public	modparameters::lambda_q = 10000d0*GeV
integer, public	modparameters::cz_q1sq = 0
integer, public	modparameters::cz_q2sq = 0
integer, public	modparameters::cz_q12sq = 0
real(8), public	modparameters::lambda_z11 = 100d0*GeV
real(8), public	modparameters::lambda_z21 = 100d0*GeV
real(8), public	modparameters::lambda_z31 = 100d0*GeV
real(8), public	modparameters::lambda_z41 = 100d0*GeV
real(8), public	modparameters::lambda_z12 = 100d0*GeV
real(8), public	modparameters::lambda_z22 = 100d0*GeV
real(8), public	modparameters::lambda_z32 = 100d0*GeV
real(8), public	modparameters::lambda_z42 = 100d0*GeV
real(8), public	modparameters::lambda_z10 = 100d0*GeV
real(8), public	modparameters::lambda_z20 = 100d0*GeV
real(8), public	modparameters::lambda_z30 = 100d0*GeV
real(8), public	modparameters::lambda_z40 = 100d0*GeV
logical, public	modparameters::distinguish_hwwcouplings =.false.
complex(8), public	modparameters::ghw1 = (0d0, 0d0)
complex(8), public	modparameters::ghw2 = (0d0, 0d0)
complex(8), public	modparameters::ghw3 = (0d0, 0d0)
complex(8), public	modparameters::ghw4 = (0d0, 0d0)
complex(8), public	modparameters::ghw1_prime = (0d0, 0d0)
complex(8), public	modparameters::ghw1_prime2 = (0d0, 0d0)
complex(8), public	modparameters::ghw1_prime3 = (0d0, 0d0)
complex(8), public	modparameters::ghw1_prime4 = (0d0, 0d0)
complex(8), public	modparameters::ghw1_prime5 = (0d0, 0d0)
complex(8), public	modparameters::ghw1_prime6 = (0d0, 0d0)
complex(8), public	modparameters::ghw1_prime7 = (0d0, 0d0)
complex(8), public	modparameters::ghw2_prime = (0d0, 0d0)
complex(8), public	modparameters::ghw2_prime2 = (0d0, 0d0)
complex(8), public	modparameters::ghw2_prime3 = (0d0, 0d0)
complex(8), public	modparameters::ghw2_prime4 = (0d0, 0d0)
complex(8), public	modparameters::ghw2_prime5 = (0d0, 0d0)
complex(8), public	modparameters::ghw2_prime6 = (0d0, 0d0)
complex(8), public	modparameters::ghw2_prime7 = (0d0, 0d0)
complex(8), public	modparameters::ghw3_prime = (0d0, 0d0)
complex(8), public	modparameters::ghw3_prime2 = (0d0, 0d0)
complex(8), public	modparameters::ghw3_prime3 = (0d0, 0d0)
complex(8), public	modparameters::ghw3_prime4 = (0d0, 0d0)
complex(8), public	modparameters::ghw3_prime5 = (0d0, 0d0)
complex(8), public	modparameters::ghw3_prime6 = (0d0, 0d0)
complex(8), public	modparameters::ghw3_prime7 = (0d0, 0d0)
complex(8), public	modparameters::ghw4_prime = (0d0, 0d0)
complex(8), public	modparameters::ghw4_prime2 = (0d0, 0d0)
complex(8), public	modparameters::ghw4_prime3 = (0d0, 0d0)
complex(8), public	modparameters::ghw4_prime4 = (0d0, 0d0)
complex(8), public	modparameters::ghw4_prime5 = (0d0, 0d0)
complex(8), public	modparameters::ghw4_prime6 = (0d0, 0d0)
complex(8), public	modparameters::ghw4_prime7 = (0d0, 0d0)
real(8), parameter, public	modparameters::lambda_w1 = 10000d0*GeV
real(8), parameter, public	modparameters::lambda_w2 = 10000d0*GeV
real(8), parameter, public	modparameters::lambda_w3 = 10000d0*GeV
real(8), parameter, public	modparameters::lambda_w4 = 10000d0*GeV
integer, public	modparameters::cw_q1sq = 0
integer, public	modparameters::cw_q2sq = 0
integer, public	modparameters::cw_q12sq = 0
real(8), public	modparameters::lambda_w11 = 100d0*GeV
real(8), public	modparameters::lambda_w21 = 100d0*GeV
real(8), public	modparameters::lambda_w31 = 100d0*GeV
real(8), public	modparameters::lambda_w41 = 100d0*GeV
real(8), public	modparameters::lambda_w12 = 100d0*GeV
real(8), public	modparameters::lambda_w22 = 100d0*GeV
real(8), public	modparameters::lambda_w32 = 100d0*GeV
real(8), public	modparameters::lambda_w42 = 100d0*GeV
real(8), public	modparameters::lambda_w10 = 100d0*GeV
real(8), public	modparameters::lambda_w20 = 100d0*GeV
real(8), public	modparameters::lambda_w30 = 100d0*GeV
real(8), public	modparameters::lambda_w40 = 100d0*GeV
complex(8), public	modparameters::ghzzp1 = (0d0, 0d0)
complex(8), public	modparameters::ghzzp2 = (0d0, 0d0)
complex(8), public	modparameters::ghzzp3 = (0d0, 0d0)
complex(8), public	modparameters::ghzzp4 = (0d0, 0d0)
complex(8), public	modparameters::ghzzp1_prime = (0d0, 0d0)
complex(8), public	modparameters::ghzzp1_prime2 = (0d0, 0d0)
complex(8), public	modparameters::ghzzp1_prime3 = (0d0, 0d0)
complex(8), public	modparameters::ghzzp1_prime4 = (0d0, 0d0)
complex(8), public	modparameters::ghzzp1_prime5 = (0d0, 0d0)
complex(8), public	modparameters::ghzzp1_prime6 = (0d0, 0d0)
complex(8), public	modparameters::ghzzp1_prime7 = (0d0, 0d0)
complex(8), public	modparameters::ghzzp2_prime = (0d0, 0d0)
complex(8), public	modparameters::ghzzp2_prime2 = (0d0, 0d0)
complex(8), public	modparameters::ghzzp2_prime3 = (0d0, 0d0)
complex(8), public	modparameters::ghzzp2_prime4 = (0d0, 0d0)
complex(8), public	modparameters::ghzzp2_prime5 = (0d0, 0d0)
complex(8), public	modparameters::ghzzp2_prime6 = (0d0, 0d0)
complex(8), public	modparameters::ghzzp2_prime7 = (0d0, 0d0)
complex(8), public	modparameters::ghzzp3_prime = (0d0, 0d0)
complex(8), public	modparameters::ghzzp3_prime2 = (0d0, 0d0)
complex(8), public	modparameters::ghzzp3_prime3 = (0d0, 0d0)
complex(8), public	modparameters::ghzzp3_prime4 = (0d0, 0d0)
complex(8), public	modparameters::ghzzp3_prime5 = (0d0, 0d0)
complex(8), public	modparameters::ghzzp3_prime6 = (0d0, 0d0)
complex(8), public	modparameters::ghzzp3_prime7 = (0d0, 0d0)
complex(8), public	modparameters::ghzzp4_prime = (0d0, 0d0)
complex(8), public	modparameters::ghzzp4_prime2 = (0d0, 0d0)
complex(8), public	modparameters::ghzzp4_prime3 = (0d0, 0d0)
complex(8), public	modparameters::ghzzp4_prime4 = (0d0, 0d0)
complex(8), public	modparameters::ghzzp4_prime5 = (0d0, 0d0)
complex(8), public	modparameters::ghzzp4_prime6 = (0d0, 0d0)
complex(8), public	modparameters::ghzzp4_prime7 = (0d0, 0d0)
complex(8), public	modparameters::ghzpgs1_prime2 = (0d0, 0d0)
complex(8), public	modparameters::ghzpgs2 = (0d0, 0d0)
complex(8), public	modparameters::ghzpgs3 = (0d0, 0d0)
complex(8), public	modparameters::ghzpgs4 = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp1 = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp2 = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp3 = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp4 = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp1_prime = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp1_prime2 = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp1_prime3 = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp1_prime4 = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp1_prime5 = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp1_prime6 = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp1_prime7 = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp2_prime = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp2_prime2 = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp2_prime3 = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp2_prime4 = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp2_prime5 = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp2_prime6 = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp2_prime7 = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp3_prime = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp3_prime2 = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp3_prime3 = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp3_prime4 = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp3_prime5 = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp3_prime6 = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp3_prime7 = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp4_prime = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp4_prime2 = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp4_prime3 = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp4_prime4 = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp4_prime5 = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp4_prime6 = (0d0, 0d0)
complex(8), public	modparameters::ghzpzp4_prime7 = (0d0, 0d0)
complex(8), public	modparameters::ezp_el_left = (0d0, 0d0)
complex(8), public	modparameters::ezp_el_right = (0d0, 0d0)
complex(8), public	modparameters::ezp_mu_left = (0d0, 0d0)
complex(8), public	modparameters::ezp_mu_right = (0d0, 0d0)
complex(8), public	modparameters::ezp_ta_left = (0d0, 0d0)
complex(8), public	modparameters::ezp_ta_right = (0d0, 0d0)
complex(8), public	modparameters::ezp_nue_left = (0d0, 0d0)
complex(8), public	modparameters::ezp_nue_right = (0d0, 0d0)
complex(8), public	modparameters::ezp_up_left = (0d0, 0d0)
complex(8), public	modparameters::ezp_up_right = (0d0, 0d0)
complex(8), public	modparameters::ezp_chm_left = (0d0, 0d0)
complex(8), public	modparameters::ezp_chm_right = (0d0, 0d0)
complex(8), public	modparameters::ezp_dn_left = (0d0, 0d0)
complex(8), public	modparameters::ezp_dn_right = (0d0, 0d0)
complex(8), public	modparameters::ezp_str_left = (0d0, 0d0)
complex(8), public	modparameters::ezp_str_right = (0d0, 0d0)
complex(8), public	modparameters::ezp_bot_left = (0d0, 0d0)
complex(8), public	modparameters::ezp_bot_right = (0d0, 0d0)
complex(8), public	modparameters::ezp_top_left = (0d0, 0d0)
complex(8), public	modparameters::ezp_top_right = (0d0, 0d0)
real(8), public	modparameters::m_zprime = -1d0
real(8), public	modparameters::ga_zprime = 0d0
complex(8), public	modparameters::ghwwp1 = (0d0, 0d0)
complex(8), public	modparameters::ghwwp2 = (0d0, 0d0)
complex(8), public	modparameters::ghwwp3 = (0d0, 0d0)
complex(8), public	modparameters::ghwwp4 = (0d0, 0d0)
complex(8), public	modparameters::ghwwp1_prime = (0d0, 0d0)
complex(8), public	modparameters::ghwwp1_prime2 = (0d0, 0d0)
complex(8), public	modparameters::ghwwp1_prime3 = (0d0, 0d0)
complex(8), public	modparameters::ghwwp1_prime4 = (0d0, 0d0)
complex(8), public	modparameters::ghwwp1_prime5 = (0d0, 0d0)
complex(8), public	modparameters::ghwwp1_prime6 = (0d0, 0d0)
complex(8), public	modparameters::ghwwp1_prime7 = (0d0, 0d0)
complex(8), public	modparameters::ghwwp2_prime = (0d0, 0d0)
complex(8), public	modparameters::ghwwp2_prime2 = (0d0, 0d0)
complex(8), public	modparameters::ghwwp2_prime3 = (0d0, 0d0)
complex(8), public	modparameters::ghwwp2_prime4 = (0d0, 0d0)
complex(8), public	modparameters::ghwwp2_prime5 = (0d0, 0d0)
complex(8), public	modparameters::ghwwp2_prime6 = (0d0, 0d0)
complex(8), public	modparameters::ghwwp2_prime7 = (0d0, 0d0)
complex(8), public	modparameters::ghwwp3_prime = (0d0, 0d0)
complex(8), public	modparameters::ghwwp3_prime2 = (0d0, 0d0)
complex(8), public	modparameters::ghwwp3_prime3 = (0d0, 0d0)
complex(8), public	modparameters::ghwwp3_prime4 = (0d0, 0d0)
complex(8), public	modparameters::ghwwp3_prime5 = (0d0, 0d0)
complex(8), public	modparameters::ghwwp3_prime6 = (0d0, 0d0)
complex(8), public	modparameters::ghwwp3_prime7 = (0d0, 0d0)
complex(8), public	modparameters::ghwwp4_prime = (0d0, 0d0)
complex(8), public	modparameters::ghwwp4_prime2 = (0d0, 0d0)
complex(8), public	modparameters::ghwwp4_prime3 = (0d0, 0d0)
complex(8), public	modparameters::ghwwp4_prime4 = (0d0, 0d0)
complex(8), public	modparameters::ghwwp4_prime5 = (0d0, 0d0)
complex(8), public	modparameters::ghwwp4_prime6 = (0d0, 0d0)
complex(8), public	modparameters::ghwwp4_prime7 = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp1 = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp2 = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp3 = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp4 = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp1_prime = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp1_prime2 = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp1_prime3 = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp1_prime4 = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp1_prime5 = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp1_prime6 = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp1_prime7 = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp2_prime = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp2_prime2 = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp2_prime3 = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp2_prime4 = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp2_prime5 = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp2_prime6 = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp2_prime7 = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp3_prime = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp3_prime2 = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp3_prime3 = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp3_prime4 = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp3_prime5 = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp3_prime6 = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp3_prime7 = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp4_prime = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp4_prime2 = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp4_prime3 = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp4_prime4 = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp4_prime5 = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp4_prime6 = (0d0, 0d0)
complex(8), public	modparameters::ghwpwp4_prime7 = (0d0, 0d0)
complex(8), public	modparameters::ewp_el_left = (0d0, 0d0)
complex(8), public	modparameters::ewp_el_right = (0d0, 0d0)
complex(8), public	modparameters::ewp_mu_left = (0d0, 0d0)
complex(8), public	modparameters::ewp_mu_right = (0d0, 0d0)
complex(8), public	modparameters::ewp_ta_left = (0d0, 0d0)
complex(8), public	modparameters::ewp_ta_right = (0d0, 0d0)
complex(8), public	modparameters::ewp_up_left = (0d0, 0d0)
complex(8), public	modparameters::ewp_up_right = (0d0, 0d0)
complex(8), public	modparameters::ewp_chm_left = (0d0, 0d0)
complex(8), public	modparameters::ewp_chm_right = (0d0, 0d0)
complex(8), public	modparameters::ewp_top_left = (0d0, 0d0)
complex(8), public	modparameters::ewp_top_right = (0d0, 0d0)
real(8), public	modparameters::m_wprime = -1d0
real(8), public	modparameters::ga_wprime = 0d0
complex(8), public	modparameters::gh2g2 = (0d0, 0d0)
complex(8), public	modparameters::gh2g3 = (0d0, 0d0)
complex(8), public	modparameters::gh2g4 = (0d0, 0d0)
complex(8), public	modparameters::gh2g2_4gen = (0d0, 0d0)
complex(8), public	modparameters::gh2g3_4gen = (0d0, 0d0)
complex(8), public	modparameters::gh2g4_4gen = (0d0, 0d0)
complex(8), public	modparameters::gh2z1 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z2 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z3 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z4 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2zgs2 = (0.00d0, 0d0)
complex(8), public	modparameters::gh2zgs3 = (0.00d0, 0d0)
complex(8), public	modparameters::gh2zgs4 = (0.00d0, 0d0)
complex(8), public	modparameters::gh2gsgs2 = (0.00d0, 0d0)
complex(8), public	modparameters::gh2gsgs3 = (0.00d0, 0d0)
complex(8), public	modparameters::gh2gsgs4 = (0.00d0, 0d0)
complex(8), public	modparameters::gh2z1_prime = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z1_prime2 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z1_prime3 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z1_prime4 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z1_prime5 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z1_prime6 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z1_prime7 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z2_prime = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z2_prime2 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z2_prime3 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z2_prime4 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z2_prime5 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z2_prime6 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z2_prime7 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z3_prime = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z3_prime2 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z3_prime3 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z3_prime4 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z3_prime5 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z3_prime6 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z3_prime7 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z4_prime = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z4_prime2 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z4_prime3 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z4_prime4 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z4_prime5 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z4_prime6 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2z4_prime7 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2zgs1_prime2 = (0.0d0, 0d0)
real(8), parameter, public	modparameters::lambda2_z1 = 10000d0*GeV
real(8), parameter, public	modparameters::lambda2_z2 = 10000d0*GeV
real(8), parameter, public	modparameters::lambda2_z3 = 10000d0*GeV
real(8), parameter, public	modparameters::lambda2_z4 = 10000d0*GeV
real(8), parameter, public	modparameters::lambda2_zgs1 = 10000d0*GeV
real(8), parameter, public	modparameters::lambda2_q = 10000d0*GeV
integer, public	modparameters::c2z_q1sq = 0
integer, public	modparameters::c2z_q2sq = 0
integer, public	modparameters::c2z_q12sq = 0
real(8), public	modparameters::lambda2_z11 = 100d0*GeV
real(8), public	modparameters::lambda2_z21 = 100d0*GeV
real(8), public	modparameters::lambda2_z31 = 100d0*GeV
real(8), public	modparameters::lambda2_z41 = 100d0*GeV
real(8), public	modparameters::lambda2_z12 = 100d0*GeV
real(8), public	modparameters::lambda2_z22 = 100d0*GeV
real(8), public	modparameters::lambda2_z32 = 100d0*GeV
real(8), public	modparameters::lambda2_z42 = 100d0*GeV
real(8), public	modparameters::lambda2_z10 = 100d0*GeV
real(8), public	modparameters::lambda2_z20 = 100d0*GeV
real(8), public	modparameters::lambda2_z30 = 100d0*GeV
real(8), public	modparameters::lambda2_z40 = 100d0*GeV
complex(8), public	modparameters::gh2w1 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w2 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w3 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w4 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w1_prime = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w1_prime2 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w1_prime3 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w1_prime4 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w1_prime5 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w1_prime6 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w1_prime7 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w2_prime = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w2_prime2 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w2_prime3 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w2_prime4 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w2_prime5 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w2_prime6 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w2_prime7 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w3_prime = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w3_prime2 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w3_prime3 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w3_prime4 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w3_prime5 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w3_prime6 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w3_prime7 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w4_prime = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w4_prime2 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w4_prime3 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w4_prime4 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w4_prime5 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w4_prime6 = (0.0d0, 0d0)
complex(8), public	modparameters::gh2w4_prime7 = (0.0d0, 0d0)
real(8), parameter, public	modparameters::lambda2_w1 = 10000d0*GeV
real(8), parameter, public	modparameters::lambda2_w2 = 10000d0*GeV
real(8), parameter, public	modparameters::lambda2_w3 = 10000d0*GeV
real(8), parameter, public	modparameters::lambda2_w4 = 10000d0*GeV
integer, public	modparameters::c2w_q1sq = 0
integer, public	modparameters::c2w_q2sq = 0
integer, public	modparameters::c2w_q12sq = 0
real(8), public	modparameters::lambda2_w11 = 100d0*GeV
real(8), public	modparameters::lambda2_w21 = 100d0*GeV
real(8), public	modparameters::lambda2_w31 = 100d0*GeV
real(8), public	modparameters::lambda2_w41 = 100d0*GeV
real(8), public	modparameters::lambda2_w12 = 100d0*GeV
real(8), public	modparameters::lambda2_w22 = 100d0*GeV
real(8), public	modparameters::lambda2_w32 = 100d0*GeV
real(8), public	modparameters::lambda2_w42 = 100d0*GeV
real(8), public	modparameters::lambda2_w10 = 100d0*GeV
real(8), public	modparameters::lambda2_w20 = 100d0*GeV
real(8), public	modparameters::lambda2_w30 = 100d0*GeV
real(8), public	modparameters::lambda2_w40 = 100d0*GeV
complex(8), public	modparameters::dv_a = (1.0d0, 0d0)
complex(8), public	modparameters::dp_a = (1.0d0, 0d0)
complex(8), public	modparameters::dm_a = (1.0d0, 0d0)
complex(8), public	modparameters::dv_z = (1.0d0, 0d0)
complex(8), public	modparameters::dp_z = (1.0d0, 0d0)
complex(8), public	modparameters::dm_z = (1.0d0, 0d0)
complex(8), public	modparameters::daawpwm = (1.0d0, 0d0)
complex(8), public	modparameters::dzawpwm = (1.0d0, 0d0)
complex(8), public	modparameters::dzzwpwm = (1.0d0, 0d0)
complex(8), public	modparameters::dfour_a = (0.0d0, 0d0)
complex(8), public	modparameters::dfour_z = (0.0d0, 0d0)
complex(8), public	modparameters::kappa = (1d0, 0d0)
complex(8), public	modparameters::kappa_tilde = (0d0, 0d0)
complex(8), public	modparameters::kappa_top = (1d0, 0d0)
complex(8), public	modparameters::kappa_tilde_top = (0d0, 0d0)
complex(8), public	modparameters::kappa_bot = (1d0, 0d0)
complex(8), public	modparameters::kappa_tilde_bot = (0d0, 0d0)
complex(8), public	modparameters::kappa_4gen_top = (0d0, 0d0)
complex(8), public	modparameters::kappa_tilde_4gen_top = (0d0, 0d0)
complex(8), public	modparameters::kappa_4gen_bot = (0d0, 0d0)
complex(8), public	modparameters::kappa_tilde_4gen_bot = (0d0, 0d0)
complex(8), public	modparameters::kappa2_top = (0d0, 0d0)
complex(8), public	modparameters::kappa2_tilde_top = (0d0, 0d0)
complex(8), public	modparameters::kappa2_bot = (0d0, 0d0)
complex(8), public	modparameters::kappa2_tilde_bot = (0d0, 0d0)
complex(8), public	modparameters::kappa2_4gen_top = (0d0, 0d0)
complex(8), public	modparameters::kappa2_tilde_4gen_top = (0d0, 0d0)
complex(8), public	modparameters::kappa2_4gen_bot = (0d0, 0d0)
complex(8), public	modparameters::kappa2_tilde_4gen_bot = (0d0, 0d0)
complex(8), public	modparameters::zprime_qq_left = (1.0d0, 0d0)
complex(8), public	modparameters::zprime_qq_right = (1.0d0, 0d0)
complex(8), public	modparameters::zprime_zz_1 = (0d0, 0d0)
complex(8), public	modparameters::zprime_zz_2 = (0d0, 0d0)
complex(8), public	modparameters::a1 = (0d0, 0d0)
complex(8), public	modparameters::a2 = (0d0, 0d0)
complex(8), public	modparameters::a3 = (0d0, 0d0)
complex(8), public	modparameters::a4 = (0d0, 0d0)
complex(8), public	modparameters::a5 = (0d0, 0d0)
complex(8), public	modparameters::graviton_qq_left = (1.0d0, 0d0)
complex(8), public	modparameters::graviton_qq_right = (1.0d0, 0d0)
logical, parameter, public	modparameters::generate_bis = .true.
logical, parameter, public	modparameters::use_dynamic_mg = .true.
complex(8), public	modparameters::b1 = (0d0, 0d0)
complex(8), public	modparameters::b2 = (0d0, 0d0)
complex(8), public	modparameters::b3 = (0d0, 0d0)
complex(8), public	modparameters::b4 = (0d0, 0d0)
complex(8), public	modparameters::b5 = (0d0, 0d0)
complex(8), public	modparameters::b6 = (0d0, 0d0)
complex(8), public	modparameters::b7 = (0d0, 0d0)
complex(8), public	modparameters::b8 = (0d0, 0d0)
complex(8), public	modparameters::b9 = (0d0, 0d0)
complex(8), public	modparameters::b10 =(0d0, 0d0)
complex(8), public	modparameters::bzzp1 = (0d0, 0d0)
complex(8), public	modparameters::bzzp2 = (0d0, 0d0)
complex(8), public	modparameters::bzzp3 = (0d0, 0d0)
complex(8), public	modparameters::bzzp4 = (0d0, 0d0)
complex(8), public	modparameters::bzzp5 = (0d0, 0d0)
complex(8), public	modparameters::bzzp6 = (0d0, 0d0)
complex(8), public	modparameters::bzzp7 = (0d0, 0d0)
complex(8), public	modparameters::bzzp8 = (0d0, 0d0)
complex(8), public	modparameters::bzzp9 = (0d0, 0d0)
complex(8), public	modparameters::bzzp10 =(0d0, 0d0)
complex(8), public	modparameters::bzpzp1 = (0d0, 0d0)
complex(8), public	modparameters::bzpzp2 = (0d0, 0d0)
complex(8), public	modparameters::bzpzp3 = (0d0, 0d0)
complex(8), public	modparameters::bzpzp4 = (0d0, 0d0)
complex(8), public	modparameters::bzpzp5 = (0d0, 0d0)
complex(8), public	modparameters::bzpzp6 = (0d0, 0d0)
complex(8), public	modparameters::bzpzp7 = (0d0, 0d0)
complex(8), public	modparameters::bzpzp8 = (0d0, 0d0)
complex(8), public	modparameters::bzpzp9 = (0d0, 0d0)
complex(8), public	modparameters::bzpzp10 =(0d0, 0d0)
complex(8), public	modparameters::bzgs1 = (0d0, 0d0)
complex(8), public	modparameters::bzgs2 = (0d0, 0d0)
complex(8), public	modparameters::bzgs3 = (0d0, 0d0)
complex(8), public	modparameters::bzgs4 = (0d0, 0d0)
complex(8), public	modparameters::bzgs8 = (0d0, 0d0)
complex(8), public	modparameters::bgsgs1 = (0d0, 0d0)
complex(8), public	modparameters::bgsgs2 = (0d0, 0d0)
complex(8), public	modparameters::bgsgs3 = (0d0, 0d0)
complex(8), public	modparameters::bgsgs4 = (0d0, 0d0)
complex(8), public	modparameters::bgsgs8 = (0d0, 0d0)
complex(8), public	modparameters::bzpgs1 = (0d0, 0d0)
complex(8), public	modparameters::bzpgs2 = (0d0, 0d0)
complex(8), public	modparameters::bzpgs3 = (0d0, 0d0)
complex(8), public	modparameters::bzpgs4 = (0d0, 0d0)
complex(8), public	modparameters::bzpgs8 = (0d0, 0d0)
complex(8), parameter, public	modparameters::c1 = (1.0d0, 0d0)
complex(8), parameter, public	modparameters::c2 = (0d0, 0d0)
complex(8), parameter, public	modparameters::c3 = (0d0, 0d0)
complex(8), parameter, public	modparameters::c41 = (0d0, 0d0)
complex(8), parameter, public	modparameters::c42 = (0d0, 0d0)
complex(8), parameter, public	modparameters::c5 = (0d0, 0d0)
complex(8), parameter, public	modparameters::c6 = (0d0, 0d0)
complex(8), parameter, public	modparameters::c7 = (0d0, 0d0)
real(8), public	modparameters::daz_lep_left = (0d0)
real(8), public	modparameters::daz_lep_right = (0d0)
real(8), public	modparameters::daz_neu_left = (0d0)
real(8), public	modparameters::daz_neu_right = (0d0)
real(8), public	modparameters::daz_qup_left = (0d0)
real(8), public	modparameters::daz_qup_right = (0d0)
real(8), public	modparameters::daz_qdn_left = (0d0)
real(8), public	modparameters::daz_qdn_right = (0d0)
real(dp), dimension(0:6), parameter, public	modparameters::b0_pdf = (/ 0.8753521870054244D0,0.822300539308126D0,0.7692488916108274D0,0.716197243913529D0,0.6631455962162306D0,0.6100939485189321D0,0.5570423008216338D0 /)
real(dp), parameter, public	modparameters::nf = 5.0_dp
real(dp), parameter, public	modparameters::xn = 3.0_dp
real(dp), parameter, public	modparameters::ca = 3.0_dp
real(dp), parameter, public	modparameters::cf = 4.0_dp/3.0_dp
real(dp), parameter, public	modparameters::tr = 0.5_dp
real(dp), parameter, public	modparameters::avegg = 1.0_dp/4.0_dp/64.0_dp
real(dp), parameter, public	modparameters::aveqg = 1.0_dp/4.0_dp/24.0_dp
real(dp), parameter, public	modparameters::aveqq = 1.0_dp/4.0_dp/9.0_dp
real(8), parameter, public	modparameters::t3ll = -0.5d0
real(8), parameter, public	modparameters::t3lr = 0d0
real(8), parameter, public	modparameters::t3nl = 0.5d0
real(8), parameter, public	modparameters::t3nr = 0d0
real(8), parameter, public	modparameters::t3ul = 0.5d0
real(8), parameter, public	modparameters::t3ur = 0d0
real(8), parameter, public	modparameters::t3dl = -0.5d0
real(8), parameter, public	modparameters::t3dr = 0d0
real(8), parameter, public	modparameters::qll = -1d0
real(8), parameter, public	modparameters::qlr = -1d0
real(8), parameter, public	modparameters::qnl = 0d0
real(8), parameter, public	modparameters::qnr = 0d0
real(8), parameter, public	modparameters::qul = 2d0/3d0
real(8), parameter, public	modparameters::qur = 2d0/3d0
real(8), parameter, public	modparameters::qdl = -1d0/3d0
real(8), parameter, public	modparameters::qdr = -1d0/3d0
real(8), public	modparameters::overallcouplvffsq
real(8), public	modparameters::ar_lep
real(8), public	modparameters::al_lep
real(8), public	modparameters::ar_neu
real(8), public	modparameters::al_neu
real(8), public	modparameters::ar_qup
real(8), public	modparameters::al_qup
real(8), public	modparameters::ar_qdn
real(8), public	modparameters::al_qdn
real(8), public	modparameters::bl
real(8), public	modparameters::br
real(8), public	modparameters::cr_lep
real(8), public	modparameters::cl_lep
real(8), public	modparameters::cr_neu
real(8), public	modparameters::cl_neu
real(8), public	modparameters::cr_qup
real(8), public	modparameters::cl_qup
real(8), public	modparameters::cr_qdn
real(8), public	modparameters::cl_qdn
real(dp), public	modparameters::couplwffsq
real(dp), public	modparameters::couplzffsq
real(dp), public	modparameters::couplazff
real(dp), public	modparameters::couplaffsq
integer, target, public	modparameters::up_ = 1
integer, target, public	modparameters::dn_ = 2
integer, target, public	modparameters::chm_ = 3
integer, target, public	modparameters::str_ = 4
integer, target, public	modparameters::top_ = 5
integer, target, public	modparameters::bot_ = 6
integer, target, public	modparameters::elp_ = 7
integer, target, public	modparameters::mup_ = 8
integer, target, public	modparameters::tap_ = 9
integer, target, public	modparameters::glu_ = 10
integer, target, public	modparameters::pho_ = 11
integer, target, public	modparameters::z0_ = 12
integer, target, public	modparameters::wp_ = 13
integer, target, public	modparameters::nue_ = 14
integer, target, public	modparameters::num_ = 15
integer, target, public	modparameters::nut_ = 16
integer, target, public	modparameters::hig_ = 25
integer, target, public	modparameters::zpr_ = 32
integer, target, public	modparameters::zpr2_ = 33
integer, target, public	modparameters::wppr_ = 34
integer, target, public	modparameters::gra_ = 39
integer, target, public	modparameters::aup_ = -1
integer, target, public	modparameters::adn_ = -2
integer, target, public	modparameters::achm_ = -3
integer, target, public	modparameters::astr_ = -4
integer, target, public	modparameters::atop_ = -5
integer, target, public	modparameters::abot_ = -6
integer, target, public	modparameters::elm_ = -7
integer, target, public	modparameters::mum_ = -8
integer, target, public	modparameters::tam_ = -9
integer, target, public	modparameters::wm_ = -13
integer, target, public	modparameters::anue_ = -14
integer, target, public	modparameters::anum_ = -15
integer, target, public	modparameters::anut_ = -16
integer, target, public	modparameters::wmpr_ = -34
integer, parameter, public	modparameters::not_a_particle_ = -9000
real(8), dimension(1:4), parameter, public	modparameters::mom_not_a_particle = (/0d0,0d0,0d0,0d0/)
integer, parameter, public	modparameters::pdfglu_ = 0
integer, parameter, public	modparameters::pdfdn_ = 1
integer, parameter, public	modparameters::pdfup_ = 2
integer, parameter, public	modparameters::pdfstr_ = 3
integer, parameter, public	modparameters::pdfchm_ = 4
integer, parameter, public	modparameters::pdfbot_ = 5
integer, parameter, public	modparameters::pdftop_ = 6
integer, parameter, public	modparameters::pdfadn_ = -1
integer, parameter, public	modparameters::pdfaup_ = -2
integer, parameter, public	modparameters::pdfastr_ = -3
integer, parameter, public	modparameters::pdfachm_ = -4
integer, parameter, public	modparameters::pdfabot_ = -5
integer, parameter, public	modparameters::pdfatop_ = -6
integer, parameter	modparameters::io_stdout =6
integer, parameter	modparameters::io_lheoutfile =14
integer, parameter	modparameters::io_histofile =15
integer, parameter	modparameters::io_lheinfile =16
integer, parameter	modparameters::io_logfile =17
integer, parameter	modparameters::io_csmaxfile =18
integer, parameter	modparameters::io_lheoutfile2 =19
integer, parameter	modparameters::io_lheoutfile3 =20
integer, parameter	modparameters::io_tmpfile =21
integer, dimension(0:10), public	modparameters::debugcounter = 0
real(8), dimension(0:10), public	modparameters::debugvar = 0d0
integer, dimension(1:2), public	modparameters::ijpartons =0