modparameters Module Reference

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

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

Function/Subroutine Documentation

aff()

real(8) function modparameters::aff	(	integer	id1in,
		integer	id2in,
		real(8)	h1,
		real(8)	h2
	)

Definition at line 1659 of file mod_Parameters.F90.

implicit none
real(8) :: AFF
integer :: id1, id2, id1in, id2in
real(8) :: h1,h2
logical, save :: printedneutrinowarning = .false.
 
id1 = abs(id1in)
id2 = abs(id2in)
 
  if(id1.ne.id2)then
    print*,"Not a valid Z to fermion pair vertex!",id1in,id2in
    stop
  !photon ll
  else if(id1.eq.convertlhe(elm_).or.id1.eq.convertlhe(mum_).or.id1.eq.convertlhe(tam_))then
    if((id1in*h1).gt.0d0)then
      aff = qlr
    else
      aff = qll
    endif
  !photon uu
  else if(id1.eq.convertlhe(up_).or.id1.eq.convertlhe(chm_).or.id1.eq.convertlhe(top_))then
    if((id1in*h1).gt.0d0)then
      aff = qur
    else
      aff = qul
    endif
  !photon dd
  else if(id1.eq.convertlhe(dn_).or.id1.eq.convertlhe(str_).or.id1.eq.convertlhe(bot_))then
    if((id1in*h1).gt.0d0)then
      aff = qdr
    else
      aff = qdl
    endif
  !photon nu nu
  else if(id1.eq.convertlhe(nue_).or.id1.eq.convertlhe(num_).or.id1.eq.convertlhe(nut_))then
    aff = 0d0
    if (.not. printedneutrinowarning) then
      print*,"Warning, gamma > nu nu~ gives 0.",id1in,id2in
      printedneutrinowarning = .true.
    endif
  else
    print*,"Not a valid photon to fermion pair vertex!",id1in,id2in
    stop
  endif
 
return

chargeflip()

integer function modparameters::chargeflip

(

integer

Part

)

Definition at line 2689 of file mod_Parameters.F90.

implicit none
integer :: ChargeFlip
integer :: Part
 
  if( (abs(part).ge.1 .and. abs(part).le.9)  .or. (abs(part).ge.13 .and. abs(part).le.16)) then! quarks, leptons, W's, neutrinos
      chargeflip = -part
  elseif( (abs(part).ge.10 .and. abs(part).le.12) ) then!  glu,pho,Z0
      chargeflip = +part
  elseif( part.eq.25 .or. part.eq.32 .or. part.eq.39 ) then ! Higgs,Zprime,Graviton
      chargeflip = +part
  else
      print *, "Error: Invalid flavor in ChargeFlip"
      stop
  endif
 

ckm()

real(8) function modparameters::ckm	(	integer	id1in,
		integer	id2in
	)

Definition at line 1593 of file mod_Parameters.F90.

implicit none
real(8) :: CKM
integer :: id1in, id2in
  ckm=ckmbare(id1in, id2in)*sqrt(scalefactor(id1in,id2in))

ckmbare()

real(8) function modparameters::ckmbare	(	integer	id1in,
		integer	id2in
	)

Definition at line 1563 of file mod_Parameters.F90.

implicit none
real(8) :: CKMbare
integer :: id1, id2, id1in, id2in
id1 = abs(id1in)
id2 = abs(id2in)
if((id1.eq.convertlhe(up_)  .and.  id2.eq.convertlhe(dn_))  .or.  (id1.eq.convertlhe(dn_)  .and.  id2.eq.convertlhe(up_)))then
  ckmbare= vckm_ud
elseif((id1.eq.convertlhe(up_)  .and.  id2.eq.convertlhe(str_))  .or.  (id1.eq.convertlhe(str_)  .and.  id2.eq.convertlhe(up_)))then
  ckmbare= vckm_us
elseif((id1.eq.convertlhe(up_)  .and.  id2.eq.convertlhe(bot_))  .or.  (id1.eq.convertlhe(bot_)  .and.  id2.eq.convertlhe(up_)))then
  ckmbare= vckm_ub
elseif((id1.eq.convertlhe(chm_)  .and.  id2.eq.convertlhe(dn_))  .or.  (id1.eq.convertlhe(dn_)  .and.  id2.eq.convertlhe(chm_)))then
  ckmbare= vckm_cd
elseif((id1.eq.convertlhe(chm_)  .and.  id2.eq.convertlhe(str_))  .or.  (id1.eq.convertlhe(str_)  .and.  id2.eq.convertlhe(chm_)))then
  ckmbare= vckm_cs
elseif((id1.eq.convertlhe(chm_)  .and.  id2.eq.convertlhe(bot_))  .or.  (id1.eq.convertlhe(bot_)  .and.  id2.eq.convertlhe(chm_)))then
  ckmbare= vckm_cb
elseif((id1.eq.convertlhe(top_)  .and.  id2.eq.convertlhe(dn_))  .or.  (id1.eq.convertlhe(dn_)  .and.  id2.eq.convertlhe(top_)))then
  ckmbare= vckm_td
elseif((id1.eq.convertlhe(top_)  .and.  id2.eq.convertlhe(str_))  .or.  (id1.eq.convertlhe(str_)  .and.  id2.eq.convertlhe(top_)))then
  ckmbare= vckm_ts
elseif((id1.eq.convertlhe(top_)  .and.  id2.eq.convertlhe(bot_))  .or.  (id1.eq.convertlhe(bot_)  .and.  id2.eq.convertlhe(top_)))then
  ckmbare= vckm_tb
else
  ckmbare= 1d0
endif
 

computeckmelements()

subroutine modparameters::computeckmelements	(	real(8)	inVCKM_ud,
		real(8)	inVCKM_us,
		real(8)	inVCKM_cd,
		real(8)	inVCKM_cs,
		real(8)	inVCKM_ts,
		real(8)	inVCKM_tb,
		real(8), optional	inVCKM_ub,
		real(8), optional	inVCKM_cb,
		real(8), optional	inVCKM_td
	)

Definition at line 2708 of file mod_Parameters.F90.

implicit none
real(8) :: inVCKM_ud
real(8) :: inVCKM_us
real(8) :: inVCKM_cd
real(8) :: inVCKM_cs
real(8) :: inVCKM_ts
real(8) :: inVCKM_tb
real(8), optional :: inVCKM_ub
real(8), optional :: inVCKM_cb
real(8), optional :: inVCKM_td
real(8) :: sumVsq(1:3),diffVsq
 
   vckm_ud=invckm_ud
   vckm_us=invckm_us
   vckm_cd=invckm_cd
   vckm_cs=invckm_cs
   vckm_ts=invckm_ts
   vckm_tb=invckm_tb
 
   if(present(invckm_ub)) then
      vckm_ub = invckm_ub
   else
      diffvsq = 1d0-vckm_ud**2-vckm_us**2
      if (diffvsq.ge.0d0) then
         vckm_ub = sqrt(diffvsq)
      else
         vckm_ub = 0d0
      endif
   endif
   if(present(invckm_cb)) then
      vckm_cb = invckm_cb
   else
      diffvsq = 1d0-vckm_cd**2-vckm_cs**2
      if (diffvsq.ge.0d0) then
         vckm_cb = sqrt(diffvsq)
      else
         vckm_cb = 0d0
      endif
   endif
   if(present(invckm_td)) then
      vckm_td = invckm_td
   else
      diffvsq = 1d0-vckm_td**2-vckm_ts**2
      if (diffvsq.ge.0d0) then
         vckm_tb = sqrt(diffvsq)
      else
         vckm_tb = 0d0
      endif
   endif
 
   sumvsq(1) = vckm_ub**2+vckm_us**2+vckm_ud**2
   vckm_ud=vckm_ud/sqrt(sumvsq(1))
   vckm_us=vckm_us/sqrt(sumvsq(1))
   vckm_ub=vckm_ub/sqrt(sumvsq(1))
   sumvsq(2) = vckm_cb**2+vckm_cs**2+vckm_cd**2
   vckm_cd=vckm_cd/sqrt(sumvsq(2))
   vckm_cs=vckm_cs/sqrt(sumvsq(2))
   vckm_cb=vckm_cb/sqrt(sumvsq(2))
   sumvsq(3) = vckm_tb**2+vckm_ts**2+vckm_td**2
   vckm_td=vckm_td/sqrt(sumvsq(3))
   vckm_ts=vckm_ts/sqrt(sumvsq(3))
   vckm_tb=vckm_tb/sqrt(sumvsq(3))
 

computeewvariables()

subroutine modparameters::computeewvariables

Definition at line 2785 of file mod_Parameters.F90.

implicit none
 
   ! Calculate fundamental couplings
   vev = 1.0d0/sqrt(gf*sqrt(2.0d0))
   gwsq = 4.0d0 * m_w**2/vev**2
   sitw = sqrt(xw)
   twosc = sqrt(4d0*xw*(1d0-xw))
 
   esq = 4.0_dp*pi*alpha_qed
   overallcouplvffsq = esq/(twosc**2) ! ~= gwsq/4.0_dp/(1.0_dp-xw)
   ! Z couplings
   ar_lep =2d0*(t3lr-qlr*xw)
   al_lep =2d0*(t3ll-qll*xw)
   ar_neu =2d0*(t3nr-qnr*xw)
   al_neu =2d0*(t3nl-qnl*xw)
   ar_qup =2d0*(t3ur-qur*xw)
   al_qup =2d0*(t3ul-qul*xw)
   ar_qdn =2d0*(t3dr-qdr*xw)
   al_qdn =2d0*(t3dl-qdl*xw)
   
   ! Zff couplings: adding user specified values (default 0.0) to SM values 
   al_lep = al_lep + daz_lep_left 
   ar_lep = ar_lep + daz_lep_right
   al_neu = al_neu + daz_neu_left
   ar_neu = ar_neu + daz_neu_right
   al_qup = al_qup + daz_qup_left
   ar_qup = ar_qup + daz_qup_right
   al_qdn = al_qdn + daz_qdn_left
   ar_qdn = ar_qdn + daz_qdn_right
   
   ! W couplings
   bl = sqrt(2d0*(1d0-xw))
   br = 0d0
   ! A couplings
   cr_lep = -twosc*qlr
   cl_lep = -twosc*qll
   cr_neu = -twosc*qnr
   cl_neu = -twosc*qnl
   cr_qup = -twosc*qur
   cl_qup = -twosc*qul
   cr_qdn = -twosc*qdr
   cl_qdn = -twosc*qdl
 
   ! Normalizations used in VH and VBF
   couplwffsq = gwsq/2.0_dp
   couplzffsq = gwsq/4.0_dp/(1.0_dp-xw)
   !couplZffsq = alpha_QED*4d0*pi/xw/4.0_dp/(1.0_dp-xw)
   couplazff = -gwsq*sitw/2.0_dp/sqrt(1.0_dp-xw)
   couplaffsq = gwsq*xw
 
 
   
 

computeqcdvariables()

subroutine modparameters::computeqcdvariables

Definition at line 2841 of file mod_Parameters.F90.

implicit none
   gs = sqrt(alphas*4.0_dp*pi)

convertfrompartindex()

integer function modparameters::convertfrompartindex

(

integer

Part

)

Definition at line 1922 of file mod_Parameters.F90.

implicit none
integer :: convertFromPartIndex
integer :: Part
 
 
  if( part.eq.pdfglu_ ) then
      convertfrompartindex = glu_
  elseif( part.eq.pdfup_  ) then
      convertfrompartindex = up_
  elseif( part.eq.pdfaup_ ) then
      convertfrompartindex = aup_
  elseif( part.eq.pdfdn_  ) then
      convertfrompartindex = dn_
  elseif( part.eq.pdfadn_ ) then
      convertfrompartindex = adn_
  elseif( part.eq.pdfchm_ ) then
      convertfrompartindex = chm_
  elseif( part.eq.pdfachm_) then
      convertfrompartindex = achm_
  elseif( part.eq.pdfstr_ ) then
      convertfrompartindex = str_
  elseif( part.eq.pdfastr_) then
      convertfrompartindex = astr_
  elseif( part.eq.pdfbot_ ) then
      convertfrompartindex = bot_
  elseif( part.eq.pdfabot_) then
      convertfrompartindex = abot_
  elseif( part.eq.pdftop_ ) then
      convertfrompartindex = top_
  elseif( part.eq.pdfatop_) then
      convertfrompartindex = atop_
  else
      print *, "Unsuccessful conversion to a parton id from the ME array index ",part
      stop
  endif
 

convertlhe()

integer function modparameters::convertlhe

(

integer

Part

)

Definition at line 1798 of file mod_Parameters.F90.

implicit none
integer :: convertLHE
integer :: Part
 
 
  if(     part.eq.0 ) then
      convertlhe = 0
  elseif( part.eq.glu_ ) then
      convertlhe = 21
  elseif( part.eq.elm_ ) then
      convertlhe = 11
  elseif( part.eq.elp_ ) then
      convertlhe =-11
  elseif( part.eq.mum_ ) then
      convertlhe = 13
  elseif( part.eq.mup_ ) then
      convertlhe =-13
  elseif( part.eq.tam_ ) then
      convertlhe = 15
  elseif( part.eq.tap_ ) then
      convertlhe =-15
  elseif( part.eq.nue_ ) then
      convertlhe = 12
  elseif( part.eq.anue_) then
      convertlhe =-12
  elseif( part.eq.num_) then
      convertlhe = 14
  elseif( part.eq.anum_) then
      convertlhe =-14
  elseif( part.eq.nut_ ) then
      convertlhe = 16
  elseif( part.eq.anut_) then
      convertlhe =-16
  elseif( part.eq.up_  ) then
      convertlhe = 2
  elseif( part.eq.aup_ ) then
      convertlhe =-2
  elseif( part.eq.dn_  ) then
      convertlhe = 1
  elseif( part.eq.adn_ ) then
      convertlhe =-1
  elseif( part.eq.chm_ ) then
      convertlhe = 4
  elseif( part.eq.achm_) then
      convertlhe =-4
  elseif( part.eq.str_ ) then
      convertlhe = 3
  elseif( part.eq.astr_) then
      convertlhe =-3
  elseif( part.eq.bot_ ) then
      convertlhe = 5
  elseif( part.eq.abot_) then
      convertlhe =-5
  elseif( part.eq.top_ ) then
      convertlhe = 6
  elseif( part.eq.atop_) then
      convertlhe =-6
  elseif( part.eq.z0_) then
      convertlhe =23
  elseif( part.eq.wp_) then
      convertlhe =24
  elseif( part.eq.wm_) then
      convertlhe =-24
  elseif( part.eq.pho_) then
      convertlhe =22
  elseif( part.eq.hig_) then
      convertlhe =25
  elseif( part.eq.zpr_) then
      convertlhe =32
  elseif( part.eq.zpr2_) then
      convertlhe =33
  elseif( part.eq.wppr_) then
      convertlhe =34
  elseif( part.eq.wmpr_) then
      convertlhe =-34
  elseif( part.eq.gra_) then
      convertlhe =39
  elseif( part.le.not_a_particle_) then
      convertlhe = not_a_particle_
  else
      print *, "LHE format not implemented for ",part
      stop
  endif
 

convertlhereverse()

integer function modparameters::convertlhereverse

(

integer

Part

)

Definition at line 1711 of file mod_Parameters.F90.

implicit none
integer :: convertLHEreverse
integer :: Part
 
  if(     part.eq.0 ) then      ! 0=Glu_ is not the official LHE convention
      convertlhereverse = glu_
  elseif( part.eq.1 ) then
      convertlhereverse = dn_
  elseif( part.eq.2 ) then
      convertlhereverse = up_
  elseif( part.eq.3 ) then
      convertlhereverse = str_
  elseif( part.eq.4 ) then
      convertlhereverse = chm_
  elseif( part.eq.5 ) then
      convertlhereverse = bot_
  elseif( part.eq.6 ) then
      convertlhereverse = top_
  elseif( part.eq.-1 ) then
      convertlhereverse = adn_
  elseif( part.eq.-2 ) then
      convertlhereverse = aup_
  elseif( part.eq.-3 ) then
      convertlhereverse = astr_
  elseif( part.eq.-4 ) then
      convertlhereverse = achm_
  elseif( part.eq.-5 ) then
      convertlhereverse = abot_
  elseif( part.eq.-6 ) then
      convertlhereverse = atop_
  elseif( part.eq.21 ) then
      convertlhereverse = glu_
  elseif( part.eq.11 ) then
      convertlhereverse = elm_
  elseif( part.eq.22 ) then
      convertlhereverse = pho_
  elseif( part.eq.23 ) then
      convertlhereverse = z0_
  elseif( part.eq.24 ) then
      convertlhereverse = wp_
  elseif( part.eq.-24 ) then
      convertlhereverse = wm_
  elseif( part.eq.-11 ) then
      convertlhereverse = elp_
  elseif( part.eq.13 ) then
      convertlhereverse = mum_
  elseif( part.eq.-13 ) then
      convertlhereverse = mup_
  elseif( part.eq.15 ) then
      convertlhereverse = tam_
  elseif( part.eq.-15 ) then
      convertlhereverse = tap_
  elseif( part.eq.12 ) then
      convertlhereverse = nue_
  elseif( part.eq.-12) then
      convertlhereverse = anue_
  elseif( part.eq.14) then
      convertlhereverse = num_
  elseif( part.eq.-14) then
      convertlhereverse = anum_
  elseif( part.eq.16 ) then
      convertlhereverse = nut_
  elseif( part.eq.-16) then
      convertlhereverse = anut_
  elseif( part.eq.+25) then
      convertlhereverse = hig_
  elseif( part.eq.-25) then
      convertlhereverse = hig_
  elseif( part.eq.32) then
      convertlhereverse = zpr_
  elseif( part.eq.33) then
      convertlhereverse = zpr2_
  elseif( part.eq.34) then
      convertlhereverse = wppr_
  elseif( part.eq.-34) then
      convertlhereverse = wmpr_
  else
      print *, "MYLHE format not implemented for ",part
      stop
  endif
 
 

converttopartindex()

integer function modparameters::converttopartindex

(

integer

Part

)

Definition at line 1886 of file mod_Parameters.F90.

implicit none
integer :: convertToPartIndex
integer :: Part
 
 
  if( part.eq.glu_ ) then
      converttopartindex = pdfglu_
  elseif( part.eq.up_  ) then
      converttopartindex = pdfup_
  elseif( part.eq.aup_ ) then
      converttopartindex = pdfaup_
  elseif( part.eq.dn_  ) then
      converttopartindex = pdfdn_
  elseif( part.eq.adn_ ) then
      converttopartindex = pdfadn_
  elseif( part.eq.chm_ ) then
      converttopartindex = pdfchm_
  elseif( part.eq.achm_) then
      converttopartindex = pdfachm_
  elseif( part.eq.str_ ) then
      converttopartindex = pdfstr_
  elseif( part.eq.astr_) then
      converttopartindex = pdfastr_
  elseif( part.eq.bot_ ) then
      converttopartindex = pdfbot_
  elseif( part.eq.abot_) then
      converttopartindex = pdfabot_
  else
      print *, "Unsuccessful conversion to a parton ME array index from ",part
      stop
  endif
 

countjets()

integer function modparameters::countjets

(

integer, dimension(:)

MY_IDUP

)

Definition at line 2587 of file mod_Parameters.F90.

implicit none
integer :: MY_IDUP(:),CountJets
integer :: i
 
   countjets = 0
   do i = 1,size(my_idup)
      if( isajet( my_idup(i) ) ) countjets=countjets+1
   enddo
 
 
RETURN

countleptons()

integer function modparameters::countleptons

(

integer, dimension(:)

MY_IDUP

)

Definition at line 2572 of file mod_Parameters.F90.

implicit none
integer :: MY_IDUP(:),CountLeptons
integer :: i
 
   countleptons = 0
   do i = 1,size(my_idup)
      if( isalepton( my_idup(i) ) ) countleptons=countleptons+1
   enddo
 
 
RETURN

coupledvertex()

integer function modparameters::coupledvertex	(	integer, dimension(1:2), intent(in)	id,
		integer, intent(in)	hel,
		integer, optional	useAHcoupl
	)

Definition at line 2467 of file mod_Parameters.F90.

   implicit none
   integer, optional :: useAHcoupl
   integer, intent(in) :: id(1:2),hel
   integer :: testAHcoupl
   integer :: CoupledVertex
 
   testahcoupl = 0
   if(present(useahcoupl)) then
      testahcoupl = useahcoupl
   endif
   if( (&
   (id(1).eq.elp_ .and. id(2).eq.nue_) .or. (id(2).eq.elp_ .and. id(1).eq.nue_) .or. &
   (id(1).eq.mup_ .and. id(2).eq.num_) .or. (id(2).eq.mup_ .and. id(1).eq.num_) .or. &
   (id(1).eq.tap_ .and. id(2).eq.nut_) .or. (id(2).eq.tap_ .and. id(1).eq.nut_) .or. &
   (id(1).eq.up_  .and. (id(2).eq.adn_ .or. id(2).eq.astr_ .or. id(2).eq.abot_)) .or. (id(2).eq.up_  .and. (id(1).eq.adn_ .or. id(1).eq.astr_ .or. id(1).eq.abot_)) .or. &
   (id(1).eq.chm_ .and. (id(2).eq.adn_ .or. id(2).eq.astr_ .or. id(2).eq.abot_)) .or. (id(2).eq.chm_ .and. (id(1).eq.adn_ .or. id(1).eq.astr_ .or. id(1).eq.abot_)) .or. &
   (id(1).eq.top_ .and. (id(2).eq.adn_ .or. id(2).eq.astr_ .or. id(2).eq.abot_)) .or. (id(2).eq.top_ .and. (id(1).eq.adn_ .or. id(1).eq.astr_ .or. id(1).eq.abot_))      &
   ) .and. hel.lt.0) then
      coupledvertex=wp_
   elseif( (&
   (id(1).eq.elm_ .and. id(2).eq.anue_) .or. (id(2).eq.elm_ .and. id(1).eq.anue_) .or. &
   (id(1).eq.mum_ .and. id(2).eq.anum_) .or. (id(2).eq.mum_ .and. id(1).eq.anum_) .or. &
   (id(1).eq.tam_ .and. id(2).eq.anut_) .or. (id(2).eq.tam_ .and. id(1).eq.anut_) .or. &
   (id(1).eq.aup_  .and. (id(2).eq.dn_ .or. id(2).eq.str_ .or. id(2).eq.bot_)) .or. (id(2).eq.aup_  .and. (id(1).eq.dn_ .or. id(1).eq.str_ .or. id(1).eq.bot_)) .or. &
   (id(1).eq.achm_ .and. (id(2).eq.dn_ .or. id(2).eq.str_ .or. id(2).eq.bot_)) .or. (id(2).eq.achm_ .and. (id(1).eq.dn_ .or. id(1).eq.str_ .or. id(1).eq.bot_)) .or. &
   (id(1).eq.atop_ .and. (id(2).eq.dn_ .or. id(2).eq.str_ .or. id(2).eq.bot_)) .or. (id(2).eq.atop_ .and. (id(1).eq.dn_ .or. id(1).eq.str_ .or. id(1).eq.bot_))      &
   ) .and. hel.lt.0) then
      coupledvertex=wm_
   elseif( (&
   (id(1).eq.elm_ .and. id(2).eq.elp_) .or. (id(2).eq.elm_ .and. id(1).eq.elp_) .or. &
   (id(1).eq.mum_ .and. id(2).eq.mup_) .or. (id(2).eq.mum_ .and. id(1).eq.mup_) .or. &
   (id(1).eq.tam_ .and. id(2).eq.tap_) .or. (id(2).eq.tam_ .and. id(1).eq.tap_) .or. &
   (id(1).eq.up_  .and. id(2).eq.aup_) .or. (id(2).eq.up_  .and. id(1).eq.aup_) .or. &
   (id(1).eq.dn_  .and. id(2).eq.adn_) .or. (id(2).eq.dn_  .and. id(1).eq.adn_) .or. &
   (id(1).eq.chm_ .and. id(2).eq.achm_) .or. (id(2).eq.chm_ .and. id(1).eq.achm_) .or. &
   (id(1).eq.str_ .and. id(2).eq.astr_) .or. (id(2).eq.str_ .and. id(1).eq.astr_) .or. &
   (id(1).eq.top_ .and. id(2).eq.atop_) .or. (id(2).eq.top_ .and. id(1).eq.atop_) .or. &
   (id(1).eq.bot_ .and. id(2).eq.abot_) .or. (id(2).eq.bot_ .and. id(1).eq.abot_)      &
   ) .and. hel.ne.0) then
      if(testahcoupl.eq.1) then
         coupledvertex=pho_
      elseif(testahcoupl.eq.2) then
         coupledvertex=hig_
      else
         coupledvertex=z0_
      endif
   elseif( (&
   (id(1).eq.nue_ .and. id(2).eq.anue_) .or. (id(2).eq.nue_ .and. id(1).eq.anue_) .or. &
   (id(1).eq.num_ .and. id(2).eq.anum_) .or. (id(2).eq.num_ .and. id(1).eq.anum_) .or. &
   (id(1).eq.nut_ .and. id(2).eq.anut_) .or. (id(2).eq.nut_ .and. id(1).eq.anut_)      &
   ) .and. hel.lt.0) then
      coupledvertex=z0_ ! Only Z coupling to nuL-nubR
   else
      coupledvertex=not_a_particle_
   endif
 
   return

coupledvertexisdiagonal()

logical function modparameters::coupledvertexisdiagonal	(	integer, dimension(1:2), intent(in)	id,
		integer, intent(in)	hel
	)

Definition at line 2527 of file mod_Parameters.F90.

   implicit none
   integer, intent(in) :: id(1:2),hel
   logical :: CoupledVertexIsDiagonal
 
   if( (&
   (id(1).eq.elp_ .and. id(2).eq.nue_) .or. (id(2).eq.elp_ .and. id(1).eq.nue_) .or. & ! W+ -> l+ nu
   (id(1).eq.mup_ .and. id(2).eq.num_) .or. (id(2).eq.mup_ .and. id(1).eq.num_) .or. &
   (id(1).eq.tap_ .and. id(2).eq.nut_) .or. (id(2).eq.tap_ .and. id(1).eq.nut_) .or. &
   (id(1).eq.up_  .and. id(2).eq.adn_) .or. (id(2).eq.up_  .and. id(1).eq.adn_) .or. & ! W+ -> qu qbd
   (id(1).eq.chm_ .and. id(2).eq.astr_) .or. (id(2).eq.chm_ .and. id(1).eq.astr_) .or. &
   (id(1).eq.top_ .and. id(2).eq.abot_) .or. (id(2).eq.top_ .and. id(1).eq.abot_) .or. &
   (id(1).eq.elm_ .and. id(2).eq.anue_) .or. (id(2).eq.elm_ .and. id(1).eq.anue_) .or. & ! W- -> l- nub
   (id(1).eq.mum_ .and. id(2).eq.anum_) .or. (id(2).eq.mum_ .and. id(1).eq.anum_) .or. &
   (id(1).eq.tam_ .and. id(2).eq.anut_) .or. (id(2).eq.tam_ .and. id(1).eq.anut_) .or. &
   (id(1).eq.aup_  .and. id(2).eq.dn_ ) .or. (id(2).eq.aup_  .and. id(1).eq.dn_) .or. & ! W- -> qd qbu
   (id(1).eq.achm_ .and. id(2).eq.str_) .or. (id(2).eq.achm_ .and. id(1).eq.str_) .or. &
   (id(1).eq.atop_ .and. id(2).eq.bot_) .or. (id(2).eq.atop_ .and. id(1).eq.bot_) .or. &
   (id(1).eq.nue_ .and. id(2).eq.anue_) .or. (id(2).eq.nue_ .and. id(1).eq.anue_) .or. & ! Z -> nu nu
   (id(1).eq.num_ .and. id(2).eq.anum_) .or. (id(2).eq.num_ .and. id(1).eq.anum_) .or. &
   (id(1).eq.nut_ .and. id(2).eq.anut_) .or. (id(2).eq.nut_ .and. id(1).eq.anut_)      &
   ) .and. hel.lt.0) then
      coupledvertexisdiagonal=.true.
   elseif( (&
   (id(1).eq.elm_ .and. id(2).eq.elp_) .or. (id(2).eq.elm_ .and. id(1).eq.elp_) .or. & ! Z -> ll
   (id(1).eq.mum_ .and. id(2).eq.mup_) .or. (id(2).eq.mum_ .and. id(1).eq.mup_) .or. &
   (id(1).eq.tam_ .and. id(2).eq.tap_) .or. (id(2).eq.tam_ .and. id(1).eq.tap_) .or. &
   (id(1).eq.up_  .and. id(2).eq.aup_) .or. (id(2).eq.up_  .and. id(1).eq.aup_) .or. & ! Z -> qq
   (id(1).eq.dn_  .and. id(2).eq.adn_) .or. (id(2).eq.dn_  .and. id(1).eq.adn_) .or. &
   (id(1).eq.chm_ .and. id(2).eq.achm_) .or. (id(2).eq.chm_ .and. id(1).eq.achm_) .or. &
   (id(1).eq.str_ .and. id(2).eq.astr_) .or. (id(2).eq.str_ .and. id(1).eq.astr_) .or. &
   (id(1).eq.top_ .and. id(2).eq.atop_) .or. (id(2).eq.top_ .and. id(1).eq.atop_) .or. &
   (id(1).eq.bot_ .and. id(2).eq.abot_) .or. (id(2).eq.bot_ .and. id(1).eq.abot_)      &
   ) .and. hel.ne.0) then
      coupledvertexisdiagonal=.true.
   else
      coupledvertexisdiagonal=.false.
   endif
 
   return

coupltolhewm()

logical function modparameters::coupltolhewm

(

integer, dimension(1:2), intent(in)

Part

)

Definition at line 2663 of file mod_Parameters.F90.

  implicit none
  logical :: CouplToLHEWm
  integer, intent(in) :: Part(1:2)
 
  coupltolhewm = &
     ((part(1).eq.-2.and.part(2).eq. 1) &
  .or.(part(1).eq.-2.and.part(2).eq. 3) &
  .or.(part(1).eq.-2.and.part(2).eq. 5) &
  .or.(part(1).eq.-4.and.part(2).eq. 1) &
  .or.(part(1).eq.-4.and.part(2).eq. 3) &
  .or.(part(1).eq.-4.and.part(2).eq. 5) &
  .or.(part(1).eq. 1.and.part(2).eq.-2) &
  .or.(part(1).eq. 3.and.part(2).eq.-2) &
  .or.(part(1).eq. 5.and.part(2).eq.-2) &
  .or.(part(1).eq. 1.and.part(2).eq.-4) &
  .or.(part(1).eq. 3.and.part(2).eq.-4) &
  .or.(part(1).eq. 5.and.part(2).eq.-4))
 
  return

coupltolhewp()

logical function modparameters::coupltolhewp

(

integer, dimension(1:2), intent(in)

Part

)

Definition at line 2640 of file mod_Parameters.F90.

  implicit none
  logical :: CouplToLHEWp
  integer, intent(in) :: Part(1:2)
 
  coupltolhewp = &
     ((part(1).eq.2 .and.part(2).eq.-1) &
  .or.(part(1).eq.2 .and.part(2).eq.-3) &
  .or.(part(1).eq.2 .and.part(2).eq.-5) &
  .or.(part(1).eq.4 .and.part(2).eq.-1) &
  .or.(part(1).eq.4 .and.part(2).eq.-3) &
  .or.(part(1).eq.4 .and.part(2).eq.-5) &
  .or.(part(1).eq.-1.and.part(2).eq. 2) &
  .or.(part(1).eq.-3.and.part(2).eq. 2) &
  .or.(part(1).eq.-5.and.part(2).eq. 2) &
  .or.(part(1).eq.-1.and.part(2).eq. 4) &
  .or.(part(1).eq.-3.and.part(2).eq. 4) &
  .or.(part(1).eq.-5.and.part(2).eq. 4))
 
  return

evalalphas()

subroutine modparameters::evalalphas

Definition at line 2850 of file mod_Parameters.F90.

!   use ModParameters
   IMPLICIT NONE
#if useLHAPDF==1
!--- This is simply a wrapper to the LHAPDF implementation of the running coupling alphas, in the style of the native MCFM routine
   DOUBLE PRECISION alphasPDF
   REAL(DP) :: Q
      q = mu_ren/gev
      alphas=alphaspdf(q)
#else
!     Evaluation of strong coupling constant alphas
!     Original Author: R.K. Ellis
!     q -- Scale at which alpha_s is to be evaluated
!     alphas_mz -- ModParameters value of alpha_s at the mass of the Z-boson
!     nloops_pdf -- ModParameters value of the number of loops (1,2, or 3) at which the beta function is evaluated to determine running.
!     If you somehow need a more complete implementation, check everything at or before commit 28472c5bfee128dde458fd4929b4d3ece9519ab8
   INTEGER, PARAMETER :: NF6=6
   INTEGER, PARAMETER :: NF5=5
   INTEGER, PARAMETER :: NF4=4
   INTEGER, PARAMETER :: NF3=3
   INTEGER, PARAMETER :: NF2=2
   INTEGER, PARAMETER :: NF1=1
   INTEGER, PARAMETER :: NF0=0
 
      IF (mu_ren .LE. 0d0) THEN
         WRITE(6,*) .le.'ModParameters::EvalAlphaS: Mu_Ren  0, Mu_Ren (GeV) = ',(mu_ren*gev)
         stop
      ENDIF
      IF (nqflavors_pdf .GT. nf6 .OR. nqflavors_pdf .LT. nf0) THEN
         WRITE(6,*) 'ModParameters::EvalAlphaS: nQflavors_pdf has to be between 0 and 6. nQflavors_pdf = ',nqflavors_pdf
         stop
      ENDIF
      IF (nqflavors_pdf .NE. nf5) THEN
         WRITE(6,*) 'ModParameters::EvalAlphaS: nQflavors_pdf invalid, nQflavors_pdf = ',nqflavors_pdf
         WRITE(6,*) 'ModParameters::EvalAlphaS: Check 28472c5bfee128dde458fd4929b4d3ece9519ab8'
         stop
      ENDIF
      IF (nloops_pdf .NE. 1) THEN
         WRITE(6,*) 'ModParameters::EvalAlphaS: nloops_pdf invalid, nloops_pdf = ',nloops_pdf
         WRITE(6,*) 'ModParameters::EvalAlphaS: Check 28472c5bfee128dde458fd4929b4d3ece9519ab8'
         stop
      ENDIF
 
      alphas=alphas_mz/(1.0_dp+alphas_mz*b0_pdf(nqflavors_pdf)*2.0_dp*dlog((mu_ren/zmass_pdf)))
#endif
      ! Calculate the derived couplings
      call computeqcdvariables()
   RETURN

getdecaywidth()

real(8) function modparameters::getdecaywidth

(

integer

Part

)

Definition at line 2074 of file mod_Parameters.F90.

implicit none
real(8) :: getDecayWidth
integer :: Part
 
  getdecaywidth = 0d0
  if( abs(part).eq.abs(top_) ) then
      getdecaywidth = ga_top
  elseif( abs(part).eq.abs(z0_) ) then
      getdecaywidth = ga_z
  elseif( abs(part).eq.abs(zpr_) ) then
      getdecaywidth = ga_zprime
  elseif( abs(part).eq.abs(wp_) ) then
      getdecaywidth = ga_w
  elseif( abs(part).eq.abs(wppr_) ) then
      getdecaywidth = ga_wprime
  elseif( abs(part).eq.abs(hig_) ) then
      getdecaywidth = ga_reso
  elseif( abs(part).eq.abs(tam_) ) then
      getdecaywidth = ga_tau
  endif
 

gethiggsdecaywidth()

real(8) function modparameters::gethiggsdecaywidth

(

integer

jH

)

Definition at line 2133 of file mod_Parameters.F90.

implicit none
real(8) :: getHiggsDecayWidth
integer :: jH
   gethiggsdecaywidth=0d0
   if (jh .eq. 1) then
      gethiggsdecaywidth = ga_reso
   elseif (jh .eq.2) then
      gethiggsdecaywidth = ga_reso2
   endif

gethiggsmass()

real(8) function modparameters::gethiggsmass

(

integer

jH

)

Definition at line 2121 of file mod_Parameters.F90.

implicit none
real(8) :: getHiggsMass
integer :: jH
   gethiggsmass=0d0
   if (jh .eq. 1) then
      gethiggsmass = m_reso
   elseif (jh .eq.2) then
      gethiggsmass = m_reso2
   endif

getlheparticle()

character(len=3) function modparameters::getlheparticle

(

integer

PartLHE

)

Definition at line 2229 of file mod_Parameters.F90.

implicit none
character(len=3) :: getLHEParticle
integer :: PartLHE,Part
 
 
  part = convertlhereverse(partlhe)
  getlheparticle = getparticle(part)
 

getmass()

real(8) function modparameters::getmass

(

integer

Part

)

Definition at line 2021 of file mod_Parameters.F90.

implicit none
real(8) :: getMass
integer :: Part
 
 
  if( part.eq.glu_ ) then
      getmass = 0d0
  elseif( abs(part).eq.abs(elm_) ) then
      getmass = m_el
  elseif( abs(part).eq.abs(mum_) ) then
      getmass = m_mu
  elseif( abs(part).eq.abs(tam_) ) then
      getmass = m_tau
  elseif( abs(part).eq.abs(nue_) ) then
      getmass = 0d0
  elseif( abs(part).eq.abs(num_) ) then
      getmass = 0d0
  elseif( abs(part).eq.abs(nut_) ) then
      getmass = 0d0
  elseif( abs(part).eq.abs(up_) ) then
      getmass = 0d0
  elseif( abs(part).eq.abs(dn_) ) then
      getmass = 0d0
  elseif( abs(part).eq.abs(chm_) ) then
      getmass = m_charm
  elseif( abs(part).eq.abs(str_) ) then
      getmass = 0d0
  elseif( abs(part).eq.abs(bot_) ) then
      getmass = m_bot
  elseif( abs(part).eq.abs(top_) ) then
      getmass = m_top
  elseif( abs(part).eq.abs(z0_) ) then
      getmass = m_z
  elseif( abs(part).eq.abs(zpr_) ) then
      getmass = m_zprime
  elseif( abs(part).eq.abs(wp_) ) then
      getmass = m_w
  elseif( abs(part).eq.abs(wppr_) ) then
      getmass = m_wprime
  elseif( abs(part).eq.abs(pho_) ) then
      getmass = 0d0
  elseif( abs(part).eq.abs(hig_) ) then
      getmass = m_reso
  elseif( part.eq.not_a_particle_) then
      getmass = 0d0
  else
     print *, "Error in getMass",part
     stop
  endif
 

getparticle()

character(len=3) function modparameters::getparticle

(

integer

Part

)

Definition at line 2146 of file mod_Parameters.F90.

implicit none
character(len=3) :: getParticle
integer :: Part
 
 
  if( part.eq.glu_ ) then
      getparticle = "glu"
  elseif( part.eq.0 ) then
      getparticle = "glu"
  elseif( part.eq.elm_ ) then
      getparticle = "el-"
  elseif( part.eq.elp_ ) then
      getparticle = "el+"
  elseif( part.eq.mum_ ) then
      getparticle = "mu-"
  elseif( part.eq.mup_ ) then
      getparticle = "mu+"
  elseif( part.eq.tam_ ) then
      getparticle = "ta-"
  elseif( part.eq.tap_ ) then
      getparticle = "t+-"
  elseif( part.eq.nue_ ) then
      getparticle = "nuE"
  elseif( part.eq.anue_ ) then
      getparticle = "AnE"
  elseif( part.eq.num_ ) then
      getparticle = "nuM"
  elseif( part.eq.anum_ ) then
      getparticle = "AnM"
  elseif( part.eq.nut_ ) then
      getparticle = "nuT"
  elseif( part.eq.anut_ ) then
      getparticle = "AnT"
  elseif( part.eq.up_ ) then
      getparticle = " up"
  elseif( part.eq.aup_ ) then
      getparticle = "Aup"
  elseif( part.eq.dn_ ) then
      getparticle = " dn"
  elseif( part.eq.adn_ ) then
      getparticle = "Adn"
  elseif( part.eq.chm_ ) then
      getparticle = "chm"
  elseif( part.eq.achm_ ) then
      getparticle = "Achm"
  elseif( part.eq.str_ ) then
      getparticle = "str"
  elseif( part.eq.astr_ ) then
      getparticle = "Astr"
  elseif( part.eq.bot_ ) then
      getparticle = "bot"
  elseif( part.eq.abot_ ) then
      getparticle = "Abot"
  elseif( part.eq.top_ ) then
      getparticle = "top"
  elseif( part.eq.atop_ ) then
      getparticle = "Atop"
  elseif( part.eq.z0_ ) then
      getparticle = " Z0"
  elseif( part.eq.zpr_ ) then
      getparticle = " Zprime"
  elseif( part.eq.wp_ ) then
      getparticle = " W+"
  elseif( part.eq.wm_ ) then
      getparticle = " W-"
  elseif( part.eq.wppr_ ) then
      getparticle = " W+prime"
  elseif( part.eq.wmpr_ ) then
      getparticle = " W-prime"
  elseif( part.eq.pho_ ) then
      getparticle = "pho"
  elseif( part.eq.hig_ ) then
      getparticle = "Hig"
  else
     print *, "Error in getParticle",part
     stop
  endif
 
 

hvvspinzerodynamiccoupling()

complex(8) function modparameters::hvvspinzerodynamiccoupling	(	integer, intent(in)	index,
		real(8), intent(in)	sWplus,
		real(8), intent(in)	sWminus,
		real(8), intent(in)	sWW,
		logical, optional	tryWWcoupl
	)

Definition at line 1161 of file mod_Parameters.F90.

integer, intent(in) :: index
real(8), intent(in) :: sWplus, sWminus, sWW
real(8) :: sWplus_signed, sWminus_signed, sWW_signed, QsqCompoundFactor
logical,optional :: tryWWcoupl
complex(8) :: HVVSpinZeroDynamicCoupling
complex(8) :: vvcoupl(1:8)
real(8) :: lambda_v
real(8) :: lambda_v120(1:3)
logical :: forceZZcoupl
logical :: computeQsqCompundCoupl
 
   if(present(trywwcoupl)) then
      forcezzcoupl = (.not.trywwcoupl .or. .not.distinguish_hwwcouplings .or. (index.gt.4 .and. index.lt.12))
   else
      forcezzcoupl = .true.
   endif
   computeqsqcompundcoupl = .false.
   swplus_signed=0d0
   swminus_signed=0d0
   sww_signed=0d0
   vvcoupl(:)=czero
   hvvspinzerodynamiccoupling=czero
   if( forcezzcoupl ) then
      if(cz_q1sq.ne.0) swplus_signed=abs(swplus)*dble(sign(1,cz_q1sq))
      if(cz_q2sq.ne.0) swminus_signed=abs(swminus)*dble(sign(1,cz_q2sq))
      if(cz_q12sq.ne.0) sww_signed=abs(sww)*dble(sign(1,cz_q12sq))
      if(cz_q1sq.ne.0 .or. cz_q2sq.ne.0 .or. cz_q12sq.ne.0) computeqsqcompundcoupl=.true.
      if(index.eq.1) then ! ZZ 1-4
         vvcoupl = (/ ghz1, ghz1_prime, ghz1_prime2, ghz1_prime3, ghz1_prime4, ghz1_prime5, ghz1_prime6, ghz1_prime7 /)
         lambda_v = lambda_z1
         lambda_v120 = (/ lambda_z11, lambda_z12, lambda_z10 /)
      elseif(index.eq.2) then
         vvcoupl = (/ ghz2, ghz2_prime, ghz2_prime2, ghz2_prime3, ghz2_prime4, ghz2_prime5, ghz2_prime6, ghz2_prime7 /)
         lambda_v = lambda_z2
         lambda_v120 = (/ lambda_z21, lambda_z22, lambda_z20 /)
      elseif(index.eq.3) then
         vvcoupl = (/ ghz3, ghz3_prime, ghz3_prime2, ghz3_prime3, ghz3_prime4, ghz3_prime5, ghz3_prime6, ghz3_prime7 /)
         lambda_v = lambda_z3
         lambda_v120 = (/ lambda_z31, lambda_z32, lambda_z30 /)
      elseif(index.eq.4) then
         vvcoupl = (/ ghz4, ghz4_prime, ghz4_prime2, ghz4_prime3, ghz4_prime4, ghz4_prime5, ghz4_prime6, ghz4_prime7 /)
         lambda_v = lambda_z4
         lambda_v120 = (/ lambda_z41, lambda_z42, lambda_z40 /)
      elseif(index.eq.5) then ! Zgs 1
         vvcoupl(3) = ghzgs1_prime2
         lambda_v = lambda_zgs1
         lambda_v120 = (/ lambda_z11, lambda_z12, lambda_z10 /)
      elseif(index.eq.6) then ! Zgs 2-4
         vvcoupl(1) = ghzgs2
         lambda_v = 1d0 ! Not present
         lambda_v120 = (/ lambda_z21, lambda_z22, lambda_z20 /)
      elseif(index.eq.7) then
         vvcoupl(1) = ghzgs3
         lambda_v = 1d0 ! Not present
         lambda_v120 = (/ lambda_z31, lambda_z32, lambda_z30 /)
      elseif(index.eq.8) then
         vvcoupl(1) = ghzgs4
         lambda_v = 1d0 ! Not present
         lambda_v120 = (/ lambda_z41, lambda_z42, lambda_z40 /)
      elseif(index.eq.9) then ! gsgs 2-4
         vvcoupl(1) = ghgsgs2
         lambda_v = 1d0 ! Not present
         lambda_v120 = (/ lambda_z21, lambda_z22, lambda_z20 /)
      elseif(index.eq.10) then
         vvcoupl(1) = ghgsgs3
         lambda_v = 1d0 ! Not present
         lambda_v120 = (/ lambda_z31, lambda_z32, lambda_z30 /)
      elseif(index.eq.11) then
         vvcoupl(1) = ghgsgs4
         lambda_v = 1d0 ! Not present
         lambda_v120 = (/ lambda_z41, lambda_z42, lambda_z40 /)
      elseif(index.eq.12) then ! ZpZ 1-4
         vvcoupl = (/ ghzzp1, ghzzp1_prime, ghzzp1_prime2, ghzzp1_prime3, ghzzp1_prime4, ghzzp1_prime5, ghzzp1_prime6, ghzzp1_prime7 /)
         lambda_v = lambda_z1
         lambda_v120 = (/ lambda_z11, lambda_z12, lambda_z10 /)
      elseif(index.eq.13) then
         vvcoupl = (/ ghzzp2, ghzzp2_prime, ghzzp2_prime2, ghzzp2_prime3, ghzzp2_prime4, ghzzp2_prime5, ghzzp2_prime6, ghzzp2_prime7 /)
         lambda_v = lambda_z2
         lambda_v120 = (/ lambda_z11, lambda_z12, lambda_z10 /)
      elseif(index.eq.14) then
         vvcoupl = (/ ghzzp3, ghzzp3_prime, ghzzp3_prime2, ghzzp3_prime3, ghzzp3_prime4, ghzzp3_prime5, ghzzp3_prime6, ghzzp3_prime7 /)
         lambda_v = lambda_z3
         lambda_v120 = (/ lambda_z11, lambda_z12, lambda_z10 /)
      elseif(index.eq.15) then
         vvcoupl = (/ ghzzp4, ghzzp4_prime, ghzzp4_prime2, ghzzp4_prime3, ghzzp4_prime4, ghzzp4_prime5, ghzzp4_prime6, ghzzp4_prime7 /)
         lambda_v = lambda_z4
         lambda_v120 = (/ lambda_z11, lambda_z12, lambda_z10 /)
      elseif(index.eq.16) then ! ZpZp 1-4
         vvcoupl = (/ ghzpzp1, ghzpzp1_prime, ghzpzp1_prime2, ghzpzp1_prime3, ghzpzp1_prime4, ghzpzp1_prime5, ghzpzp1_prime6, ghzpzp1_prime7 /)
         lambda_v = lambda_z1
         lambda_v120 = (/ lambda_z11, lambda_z12, lambda_z10 /)
      elseif(index.eq.17) then
         vvcoupl = (/ ghzpzp2, ghzpzp2_prime, ghzpzp2_prime2, ghzpzp2_prime3, ghzpzp2_prime4, ghzpzp2_prime5, ghzpzp2_prime6, ghzpzp2_prime7 /)
         lambda_v = lambda_z2
         lambda_v120 = (/ lambda_z11, lambda_z12, lambda_z10 /)
      elseif(index.eq.18) then
         vvcoupl = (/ ghzpzp3, ghzpzp3_prime, ghzpzp3_prime2, ghzpzp3_prime3, ghzpzp3_prime4, ghzpzp3_prime5, ghzpzp3_prime6, ghzpzp3_prime7 /)
         lambda_v = lambda_z3
         lambda_v120 = (/ lambda_z11, lambda_z12, lambda_z10 /)
      elseif(index.eq.19) then
         vvcoupl = (/ ghzpzp4, ghzpzp4_prime, ghzpzp4_prime2, ghzpzp4_prime3, ghzpzp4_prime4, ghzpzp4_prime5, ghzpzp4_prime6, ghzpzp4_prime7 /)
         lambda_v = lambda_z4
         lambda_v120 = (/ lambda_z11, lambda_z12, lambda_z10 /)
      elseif(index.eq.20) then ! Zpgs 1
         vvcoupl(3) = ghzpgs1_prime2
         lambda_v = lambda_zgs1
         lambda_v120 = (/ lambda_z11, lambda_z12, lambda_z10 /)
      elseif(index.eq.21) then ! Zpgs 2-4
         vvcoupl(1) = ghzpgs2
         lambda_v = 1d0 ! Not present
         lambda_v120 = (/ lambda_z21, lambda_z22, lambda_z20 /)
      elseif(index.eq.22) then
         vvcoupl(1) = ghzpgs3
         lambda_v = 1d0 ! Not present
         lambda_v120 = (/ lambda_z31, lambda_z32, lambda_z30 /)
      elseif(index.eq.23) then
         vvcoupl(1) = ghzpgs4
         lambda_v = 1d0 ! Not present
         lambda_v120 = (/ lambda_z41, lambda_z42, lambda_z40 /)
      endif
   else
      if(cw_q1sq.ne.0) swplus_signed=abs(swplus)*dble(sign(1,cw_q1sq))
      if(cw_q2sq.ne.0) swminus_signed=abs(swminus)*dble(sign(1,cw_q2sq))
      if(cw_q12sq.ne.0) sww_signed=abs(sww)*dble(sign(1,cw_q12sq))
      if(cw_q1sq.ne.0 .or. cw_q2sq.ne.0 .or. cw_q12sq.ne.0) computeqsqcompundcoupl=.true.
      if(index.eq.1) then
         vvcoupl = (/ ghw1, ghw1_prime, ghw1_prime2, ghw1_prime3, ghw1_prime4, ghw1_prime5, ghw1_prime6, ghw1_prime7 /)
         lambda_v = lambda_w1
         lambda_v120 = (/ lambda_w11, lambda_w12, lambda_w10 /)
      elseif(index.eq.2) then
         vvcoupl = (/ ghw2, ghw2_prime, ghw2_prime2, ghw2_prime3, ghw2_prime4, ghw2_prime5, ghw2_prime6, ghw2_prime7 /)
         lambda_v = lambda_w2
         lambda_v120 = (/ lambda_w21, lambda_w22, lambda_w20 /)
      elseif(index.eq.3) then
         vvcoupl = (/ ghw3, ghw3_prime, ghw3_prime2, ghw3_prime3, ghw3_prime4, ghw3_prime5, ghw3_prime6, ghw3_prime7 /)
         lambda_v = lambda_w3
         lambda_v120 = (/ lambda_w31, lambda_w32, lambda_w30 /)
      elseif(index.eq.4) then
         vvcoupl = (/ ghw4, ghw4_prime, ghw4_prime2, ghw4_prime3, ghw4_prime4, ghw4_prime5, ghw4_prime6, ghw4_prime7 /)
         lambda_v = lambda_w4
         lambda_v120 = (/ lambda_w41, lambda_w42, lambda_w40 /)
      elseif(index.eq.12) then
         vvcoupl = (/ ghwwp1, ghwwp1_prime, ghwwp1_prime2, ghwwp1_prime3, ghwwp1_prime4, ghwwp1_prime5, ghwwp1_prime6, ghwwp1_prime7 /)
         lambda_v = lambda_w1
         lambda_v120 = (/ lambda_w11, lambda_w12, lambda_w10 /)
      elseif(index.eq.13) then
         vvcoupl = (/ ghwwp2, ghwwp2_prime, ghwwp2_prime2, ghwwp2_prime3, ghwwp2_prime4, ghwwp2_prime5, ghwwp2_prime6, ghwwp2_prime7 /)
         lambda_v = lambda_w2
         lambda_v120 = (/ lambda_w11, lambda_w12, lambda_w10 /)
      elseif(index.eq.14) then
         vvcoupl = (/ ghwwp3, ghwwp3_prime, ghwwp3_prime2, ghwwp3_prime3, ghwwp3_prime4, ghwwp3_prime5, ghwwp3_prime6, ghwwp3_prime7 /)
         lambda_v = lambda_w3
         lambda_v120 = (/ lambda_w11, lambda_w12, lambda_w10 /)
      elseif(index.eq.15) then
         vvcoupl = (/ ghwwp4, ghwwp4_prime, ghwwp4_prime2, ghwwp4_prime3, ghwwp4_prime4, ghwwp4_prime5, ghwwp4_prime6, ghwwp4_prime7 /)
         lambda_v = lambda_w4
         lambda_v120 = (/ lambda_w11, lambda_w12, lambda_w10 /)
      elseif(index.eq.16) then
         vvcoupl = (/ ghwpwp1, ghwpwp1_prime, ghwpwp1_prime2, ghwpwp1_prime3, ghwpwp1_prime4, ghwpwp1_prime5, ghwpwp1_prime6, ghwpwp1_prime7 /)
         lambda_v = lambda_w1
         lambda_v120 = (/ lambda_w11, lambda_w12, lambda_w10 /)
      elseif(index.eq.17) then
         vvcoupl = (/ ghwpwp2, ghwpwp2_prime, ghwpwp2_prime2, ghwpwp2_prime3, ghwpwp2_prime4, ghwpwp2_prime5, ghwpwp2_prime6, ghwpwp2_prime7 /)
         lambda_v = lambda_w2
         lambda_v120 = (/ lambda_w11, lambda_w12, lambda_w10 /)
      elseif(index.eq.18) then
         vvcoupl = (/ ghwpwp3, ghwpwp3_prime, ghwpwp3_prime2, ghwpwp3_prime3, ghwpwp3_prime4, ghwpwp3_prime5, ghwpwp3_prime6, ghwpwp3_prime7 /)
         lambda_v = lambda_w3
         lambda_v120 = (/ lambda_w11, lambda_w12, lambda_w10 /)
      elseif(index.eq.19) then
         vvcoupl = (/ ghwpwp4, ghwpwp4_prime, ghwpwp4_prime2, ghwpwp4_prime3, ghwpwp4_prime4, ghwpwp4_prime5, ghwpwp4_prime6, ghwpwp4_prime7 /)
         lambda_v = lambda_w4
         lambda_v120 = (/ lambda_w11, lambda_w12, lambda_w10 /)
      endif
   endif
 
   if(vvcoupl(2).ne.czero) hvvspinzerodynamiccoupling = hvvspinzerodynamiccoupling + vvcoupl(2) * lambda_v**4/(lambda_v**2 + abs(swplus))/(lambda_v**2 + abs(swminus))
   if(vvcoupl(3).ne.czero) hvvspinzerodynamiccoupling = hvvspinzerodynamiccoupling + vvcoupl(3) * ( swplus + swminus )/lambda_v**2
   if(vvcoupl(4).ne.czero) hvvspinzerodynamiccoupling = hvvspinzerodynamiccoupling + vvcoupl(4) * ( swplus - swminus )/lambda_v**2
   if(vvcoupl(5).ne.czero) hvvspinzerodynamiccoupling = hvvspinzerodynamiccoupling + vvcoupl(5) * ( sww )/lambda_q**2
   if(vvcoupl(6).ne.czero) hvvspinzerodynamiccoupling = hvvspinzerodynamiccoupling + vvcoupl(6) * ( swplus**2 + swminus**2 )/lambda_v**4
   if(vvcoupl(7).ne.czero) hvvspinzerodynamiccoupling = hvvspinzerodynamiccoupling + vvcoupl(7) * ( swplus**2 - swminus**2 )/lambda_v**4
   if(vvcoupl(8).ne.czero) hvvspinzerodynamiccoupling = hvvspinzerodynamiccoupling + vvcoupl(8) * ( swplus    * swminus    )/lambda_v**4
 
   if(index.eq.1) then
      if(computeqsqcompundcoupl) then
         qsqcompoundfactor = (lambda_v120(1)**2 + swplus_signed)*(lambda_v120(2)**2 + swminus_signed)*(lambda_v120(3)**2 + sww_signed)
         if(qsqcompoundfactor.ne.0d0) then
            qsqcompoundfactor = (lambda_v120(1)*lambda_v120(2)*lambda_v120(3))**2/qsqcompoundfactor
         endif
         hvvspinzerodynamiccoupling = hvvspinzerodynamiccoupling * qsqcompoundfactor
      endif
      if(vvcoupl(1).ne.czero) hvvspinzerodynamiccoupling = hvvspinzerodynamiccoupling + vvcoupl(1)
   else
      if(vvcoupl(1).ne.czero) hvvspinzerodynamiccoupling = hvvspinzerodynamiccoupling + vvcoupl(1)
      if(computeqsqcompundcoupl) then
         qsqcompoundfactor = (lambda_v120(1)**2 + swplus_signed)*(lambda_v120(2)**2 + swminus_signed)*(lambda_v120(3)**2 + sww_signed)
         if(qsqcompoundfactor.ne.0d0) then
            qsqcompoundfactor = (lambda_v120(1)*lambda_v120(2)*lambda_v120(3))**2/qsqcompoundfactor
         endif
         hvvspinzerodynamiccoupling = hvvspinzerodynamiccoupling * qsqcompoundfactor
      endif
   endif
 
return

initcollier()

subroutine modparameters::initcollier	(	integer, intent(in)	Nmax,
		integer, intent(in)	Rmax
	)

Definition at line 3397 of file mod_Parameters.F90.

#if useCollier==1
use collier
implicit none
integer, intent(in) :: Nmax, Rmax
integer :: supNmax, supRmax
   supnmax = max(nmax, collier_maxnloopprops)
   suprmax = max(rmax, collier_maxrank)
   if ((supnmax .gt. collier_maxnloopprops) .or. (suprmax .gt. collier_maxrank)) then
      call init_cll(supnmax,suprmax,'')
      call setmode_cll(1)
   endif
#else
implicit none
integer, intent(in) :: Nmax, Rmax
   return
#endif

isaboson()

logical function modparameters::isaboson

(

integer

PartType

)

Definition at line 2453 of file mod_Parameters.F90.

implicit none
logical :: IsABoson
integer :: PartType
  isaboson = ( abs(parttype).eq.abs(pho_) .or. abs(parttype).eq.abs(z0_) .or. abs(parttype).eq.abs(wp_) .or. abs(parttype).eq.abs(hig_) )

isagluon()

logical function modparameters::isagluon

(

integer

PartType

)

Definition at line 2423 of file mod_Parameters.F90.

implicit none
logical :: IsAGluon
integer :: PartType
  isagluon = (abs(parttype).eq.glu_)

isajet()

logical function modparameters::isajet

(

integer

PartType

)

Definition at line 2438 of file mod_Parameters.F90.

implicit none
logical :: IsAJet
integer :: PartType
  isajet = (isalightquark(parttype) .or. isagluon(parttype))

isalepton()

logical function modparameters::isalepton

(

integer

PartType

)

Definition at line 2409 of file mod_Parameters.F90.

implicit none
logical :: IsALepton
integer :: PartType
  isalepton = ( abs(parttype).eq.abs(elp_) .or. abs(parttype).eq.abs(mup_) .or. abs(parttype).eq.abs(tap_) )

isalheboson()

logical function modparameters::isalheboson

(

integer

PartType

)

Definition at line 2460 of file mod_Parameters.F90.

implicit none
logical :: IsALHEBoson
integer :: PartType
  isalheboson = ( abs(parttype).ge.22 .and. abs(parttype).le.25 )

isalhegluon()

logical function modparameters::isalhegluon

(

integer

PartType

)

Definition at line 2430 of file mod_Parameters.F90.

implicit none
logical :: IsALHEGluon
integer :: PartType
  isalhegluon = (abs(parttype).eq.convertlhe(glu_))

isalhejet()

logical function modparameters::isalhejet

(

integer

PartType

)

Definition at line 2445 of file mod_Parameters.F90.

implicit none
logical :: IsALHEJet
integer :: PartType
  isalhejet = (isalhelightquark(parttype) .or. isalhegluon(parttype))

isalhelepton()

logical function modparameters::isalhelepton

(

integer

PartType

)

Definition at line 2415 of file mod_Parameters.F90.

implicit none
logical :: IsALHELepton
integer :: PartType
  isalhelepton = ( abs(parttype).eq.11 .or. abs(parttype).eq.13 .or. abs(parttype).eq.15 )

isalhelightquark()

logical function modparameters::isalhelightquark

(

integer

PartType

)

Definition at line 2388 of file mod_Parameters.F90.

implicit none
logical :: IsALHELightQuark
integer :: PartType
   isalhelightquark=islheuptypelightquark(parttype) .or. islhedowntypequark(parttype)

isalheneutrino()

logical function modparameters::isalheneutrino

(

integer

PartType

)

Definition at line 2402 of file mod_Parameters.F90.

implicit none
logical :: IsALHENeutrino
integer :: PartType
   isalheneutrino = ( abs(parttype).eq.12 .or. abs(parttype).eq.14 .or. abs(parttype).eq.16 )

isalhequark()

logical function modparameters::isalhequark

(

integer

PartType

)

Definition at line 2375 of file mod_Parameters.F90.

implicit none
logical :: IsALHEQuark
integer :: PartType
   isalhequark=islheuptypequark(parttype) .or. islhedowntypequark(parttype)

isalightquark()

logical function modparameters::isalightquark

(

integer

PartType

)

Definition at line 2382 of file mod_Parameters.F90.

implicit none
logical :: IsALightQuark
integer :: PartType
   isalightquark=isuptypelightquark(parttype) .or. isdowntypequark(parttype)

isaneutrino()

logical function modparameters::isaneutrino

(

integer

PartType

)

Definition at line 2396 of file mod_Parameters.F90.

implicit none
logical :: IsANeutrino
integer :: PartType
   isaneutrino = ( abs(parttype).eq.abs(nue_) .or. abs(parttype).eq.abs(num_) .or. abs(parttype).eq.abs(nut_) )

isaphoton()

logical function modparameters::isaphoton

(

integer

DKMode

)

Definition at line 2313 of file mod_Parameters.F90.

implicit none
logical :: IsAPhoton
integer :: DKMode
 
 
  if( dkmode.eq.7 ) then
     isaphoton = .true.
  else
     isaphoton=.false.
  endif
 
 

isaquark()

logical function modparameters::isaquark

(

integer

PartType

)

Definition at line 2369 of file mod_Parameters.F90.

implicit none
logical :: IsAQuark
integer :: PartType
   isaquark=isuptypequark(parttype) .or. isdowntypequark(parttype)

isawdecay()

logical function modparameters::isawdecay

(

integer

DKMode

)

Definition at line 2278 of file mod_Parameters.F90.

implicit none
logical :: IsAWDecay
integer :: DKMode
 
 
  if( dkmode.eq.4 ) then
     isawdecay = .true.
  elseif( dkmode.eq.5 ) then
     isawdecay = .true.
  elseif( dkmode.eq.6 ) then
     isawdecay = .true.
  elseif( dkmode.eq.10 ) then
     isawdecay = .true.
  elseif( dkmode.eq.11 ) then
     isawdecay = .true.
  elseif( dkmode.lt.0 ) then
     isawdecay = (            &
        dkmode.eq.-2*1   .or. & ! W->enu
        dkmode.eq.-3*1   .or. & ! W->munu
        dkmode.eq.-5*7   .or. & ! W->du
        dkmode.eq.-5*13  .or. & ! W->dc
        dkmode.eq.-11*7  .or. & ! W->su
        dkmode.eq.-11*13 .or. & ! W->sc
        dkmode.eq.-17*7  .or. & ! W->bu
        dkmode.eq.-17*13      & ! W->bc
     )
  else
     isawdecay=.false.
  endif
 
 

isazdecay()

logical function modparameters::isazdecay

(

integer

DKMode

)

Definition at line 2243 of file mod_Parameters.F90.

implicit none
logical :: IsAZDecay
integer :: DKMode
 
 
  if( dkmode.eq.0 ) then
     isazdecay = .true.
  elseif( dkmode.eq.1 ) then
     isazdecay = .true.
  elseif( dkmode.eq.2 ) then
     isazdecay = .true.
  elseif( dkmode.eq.3 ) then
     isazdecay = .true.
  elseif( dkmode.eq.8 ) then
     isazdecay = .true.
  elseif( dkmode.eq.9 ) then
     isazdecay = .true.
  elseif( dkmode.lt.0 ) then
     isazdecay = (            &
        dkmode.eq.-2*2   .or. & ! Z->ee
        dkmode.eq.-3*3   .or. & ! Z->mumu
        dkmode.eq.-5*5   .or. & ! Z->dd
        dkmode.eq.-7*7   .or. & ! Z->uu
        dkmode.eq.-11*11 .or. & ! Z->ss
        dkmode.eq.-13*13 .or. & ! Z->cc
        dkmode.eq.-17*17      & ! Z->bb
     )
  else
     isazdecay=.false.
  endif
 

isdowntypequark()

logical function modparameters::isdowntypequark

(

integer

PartType

)

Definition at line 2330 of file mod_Parameters.F90.

implicit none
logical :: IsDownTypeQuark
integer :: PartType
   isdowntypequark = ( abs(parttype).eq.abs(dn_) .or. abs(parttype).eq.abs(str_) .or. abs(parttype).eq.abs(bot_) )

islhedowntypequark()

logical function modparameters::islhedowntypequark

(

integer

PartType

)

Definition at line 2336 of file mod_Parameters.F90.

implicit none
logical :: IsLHEDownTypeQuark
integer :: PartType
   islhedowntypequark = ( abs(parttype).eq.1 .or. abs(parttype).eq.3 .or. abs(parttype).eq.5 )

islheuptypelightquark()

logical function modparameters::islheuptypelightquark

(

integer

PartType

)

Definition at line 2362 of file mod_Parameters.F90.

implicit none
logical :: IsLHEUpTypeLightQuark
integer :: PartType
   islheuptypelightquark = ( abs(parttype).eq.2 .or. abs(parttype).eq.4 )

islheuptypequark()

logical function modparameters::islheuptypequark

(

integer

PartType

)

Definition at line 2349 of file mod_Parameters.F90.

implicit none
logical :: IsLHEUpTypeQuark
integer :: PartType
   islheuptypequark = ( abs(parttype).eq.2 .or. abs(parttype).eq.4 .or. abs(parttype).eq.6 )

isuptypelightquark()

logical function modparameters::isuptypelightquark

(

integer

PartType

)

Definition at line 2356 of file mod_Parameters.F90.

implicit none
logical :: IsUpTypeLightQuark
integer :: PartType
   isuptypelightquark = ( abs(parttype).eq.abs(up_) .or. abs(parttype).eq.abs(chm_))

isuptypequark()

logical function modparameters::isuptypequark

(

integer

PartType

)

Definition at line 2343 of file mod_Parameters.F90.

implicit none
logical :: IsUpTypeQuark
integer :: PartType
   isuptypequark = ( abs(parttype).eq.abs(up_) .or. abs(parttype).eq.abs(chm_) .or. abs(parttype).eq.abs(top_) )

massfrun()

real(8) function modparameters::massfrun	(	real(8), intent(in)	mf,
		real(8), intent(in)	scale
	)

Definition at line 2904 of file mod_Parameters.F90.

!
!-----------------------------------------------------------------------------
!
!       This function returns the 'nloop' value of a MSbar fermion mass
!       at a given scale.
!
!       INPUT: mf    = MSbar mass of fermion at MSbar fermion mass scale
!              scale = scale at which the running mass is evaluated
!              asmz  = AS(MZ) : this is passed to alphas(scale,asmz,2)
!              nloop = # of loops in the evolutionC
!
!       COMMON BLOCKS: COMMON/QMASS/CMASS,BMASS,TMASS
!                      contains the MS-bar masses of the heavy quarks.
!
!       EXTERNAL:      double precision alphas(scale,asmz,2)
!
!-----------------------------------------------------------------------------
!
!      use ModParameters
      implicit none
!
!     ARGUMENTS
!
      real(8), intent(in) :: mf, scale
      real(8) scale_temp_ren
      !integer , intent(in) :: nloop
!
!     LOCAL
!
      real(8)  beta0, beta1,gamma0,gamma1
      real(8)  as,asmf,l2
      integer  nfrun
 
      scale_temp_ren=mu_ren
!
!     EXTERNAL
!
!      double precision  alphas
!      external          alphas
!
!     COMMON
!
!      real *8      cmass,bmass,tmass
!      COMMON/QMASS/CMASS,BMASS,TMASS
!
!     CONSTANTS
!
!      double precision  One, Two, Three, Pi
      !parameter( One = 1d0, Two = 2d0, Three = 3d0 )
      !parameter( Pi = 3.14159265358979323846d0)
 
      if ( mf.gt.m_top ) then
         nfrun = 6
      else
         nfrun = 5
      end if
 
      beta0 = ( 11d0 - 2d0/3d0 *nfrun )/4d0
      !beta1 = ( 102d0  - 38d0/3d0*nf )/16d0
      gamma0= 1d0
      !gamma1= ( 202d0/3d0  - 20d0/9d0*nf )/16d0
      !A1    = -beta1*gamma0/beta0**2+gamma1/beta0
      mu_ren=scale
      call evalalphas()
      as=alphas
 
      mu_ren=mf
      call evalalphas()
      asmf=alphas
      !l2    = (1d0+A1*as/Pi)/(one+A1*asmf/Pi)
 
      massfrun = mf * (as/asmf)**(gamma0/beta0)
 
      !if(nloop.eq.2) massfrun=massfrun*l2
 
      mu_ren=scale_temp_ren
      call evalalphas()
 
      return

pol_dk2mom()

complex(dp) function, dimension(4) modparameters::pol_dk2mom	(	complex(dp), dimension(1:4), intent(in)	plepton,
		complex(dp), dimension(1:4), intent(in)	antilepton,
		integer, intent(in)	i,
		logical, intent(in), optional	outgoing
	)

Definition at line 3068 of file mod_Parameters.F90.

  implicit none
    integer, intent(in) :: i
    integer :: j
    complex(dp), intent(in) :: plepton(1:4),antilepton(1:4)
    logical, intent(in),optional :: outgoing
    complex(dp) :: pol_dk2mom(4),Ub(4),V(4),q(4),qsq
 
 
    q=plepton+antilepton
    qsq=q(1)**2-q(2)**2-q(3)**2-q(4)**2
 
    ub(:)=ubar0(plepton,i)
    v(:)=v0(antilepton,-i)
    !---Now return in Kirill's notation  1=E,2=px,3=py,4=pz
    !   This is an expression for (-i)/qsq* (-i) Ub(+/-)) Gamma^\mu V(-/+)
    pol_dk2mom(1)=-(ub(2)*v(4)+v(2)*ub(4)+ub(1)*v(3)+v(1)*ub(3))
    pol_dk2mom(2)=-(-ub(1)*v(4)+v(1)*ub(4)-ub(2)*v(3)+v(2)*ub(3))
    pol_dk2mom(3)=-ci*(ub(1)*v(4)+v(1)*ub(4)-ub(2)*v(3)-v(2)*ub(3))
    pol_dk2mom(4)=-(ub(2)*v(4)-v(2)*ub(4)-ub(1)*v(3)+v(1)*ub(3))
 
 
    do j=1,4
       pol_dk2mom(j)=pol_dk2mom(j)/qsq
    enddo
 
    ! -- do nothing in this case
    if (present(outgoing)) then
       !if (outgoing) pol_dk2mom = conjg(pol_dk2mom)
    endif
 

pol_mass()

complex(8) function, dimension(4) modparameters::pol_mass	(	complex(8), dimension(4), intent(in)	p,
		integer, intent(in)	i,
		logical, intent(in), optional	outgoing
	)

Definition at line 3102 of file mod_Parameters.F90.

   implicit none
   integer, intent(in) :: i
   integer :: pol
   complex(8), intent(in) :: p(4)
   logical, intent(in),optional :: outgoing
   complex(8) :: pol_mass(4)
   complex(8) :: msq,m
   real(8) :: p0,px,py,pz, pv,pvsq
   real(8) :: ct,st,cphi,sphi
 
      p0=dreal(p(1))
      px=dreal(p(2))
      py=dreal(p(3))
      pz=dreal(p(4))
 
      pv=px**2 + py**2 + pz**2
      m=p0**2-pv
      m=sqrt(m)
      pv=sqrt(pv)
 
      if(cdabs(pv/m).lt.1d-8) then
         if(i.eq.0) then
            pol_mass(1:3)=czero
            pol_mass( 4 )=cone
            return
         endif
         ct = 1d0; st=0d0
      else
         ct= pz/pv
         st= dsqrt(dabs(1.0d0-ct**2))
      endif
 
 
      if (st .lt. 1d-15) then
         cphi=1.0d0
         sphi=0d0
      else
         cphi= px/pv/st
         sphi= py/pv/st
      endif
 
 
!     i=0 is longitudinal polarization
!     the following ifstatement distinguishes between
!     positive and negative energies
      if ( p0 .gt. 0.0d0) then
         pol=i
      else
         pol=-i
      endif
 
      ! -- take complex conjugate for outgoing
      if (present(outgoing)) then
         if (outgoing) pol = -pol
      endif
 
      if(pol.eq.-1 .or. pol.eq.1) then
         pol_mass(1)=czero
         pol_mass(2)=(ct*cphi-pol*ci*sphi)/sqrt2
         pol_mass(3)=(ct*sphi+pol*ci*cphi)/sqrt2
         pol_mass(4)=-st/sqrt2
      else if(pol.eq.0) then
         pol_mass(1)= pv/m
         pol_mass(2)= p0/m/pv*px
         pol_mass(3)= p0/m/pv*py
         pol_mass(4)= p0/m/pv*pz
      else
         print *,"wrong helicity setting in pol_mass"
         stop
      endif
 

pol_mass2()

complex(dp) function, dimension(4) modparameters::pol_mass2	(	complex(dp), dimension(4), intent(in)	p,
		integer, intent(in)	i,
		character(len=*), intent(in)	out
	)

Definition at line 3176 of file mod_Parameters.F90.

   implicit none
    integer, intent(in) :: i
    complex(dp), intent(in) :: p(4)
    character(len=*), intent(in):: out
    complex(dp) :: pol_mass2(4)
    ! -------------------------------------
 
    if (out == 'out') then
       pol_mass2 = pol_mass(p,i,outgoing=.true.)
    else
       pol_mass2 = pol_mass(p,i,outgoing=.false.)
    endif

pol_mless()

complex(dp) function, dimension(4) modparameters::pol_mless	(	complex(dp), dimension(4), intent(in)	p,
		integer, intent(in)	i,
		logical, intent(in), optional	outgoing
	)

Definition at line 2997 of file mod_Parameters.F90.

  implicit none
    complex(dp), intent(in)    :: p(4)
    integer, intent(in)          :: i
    logical, intent(in),optional :: outgoing
    ! -------------------------------
    integer :: pol
    real(dp) :: p0,px,py,pz
    real(dp) :: pv,ct,st,cphi,sphi
    complex(dp) :: pol_mless(4)
 
!^^^IFmp
!    p0=(p(1)+conjg(p(1)))/two
!    px=(p(2)+conjg(p(2)))/two
!    py=(p(3)+conjg(p(3)))/two
!    pz=(p(4)+conjg(p(4)))/two
!^^^ELSE
    p0=real(p(1),dp)
    px=real(p(2),dp)
    py=real(p(3),dp)
    pz=real(p(4),dp)
!^^^END
 
 
    pv=sqrt(abs(p0**2))
    ct=pz/pv
    st=sqrt(abs(1.0_dp-ct**2))
 
    if (st < tol) then
       cphi=1.0_dp
       sphi=0.0_dp
    else
       cphi= px/pv/st
       sphi= py/pv/st
    endif
 
 
    ! -- distinguish between positive and negative energies
    if ( p0 > 0.0_dp) then
       pol=i
    else
       pol=-i
    endif
 
    ! -- take complex conjugate for outgoing
    if (present(outgoing)) then
       if (outgoing) pol = -pol
    endif
 
    pol_mless(1)=czero
    pol_mless(2)=ct*cphi/sqrt2 - ci*pol*sphi/sqrt2
    pol_mless(3)=ct*sphi/sqrt2 + ci*pol*cphi/sqrt2
    pol_mless(4)=-st/sqrt2
 

pol_mless2()

complex(dp) function, dimension(4) modparameters::pol_mless2	(	complex(dp), dimension(4), intent(in)	p,
		integer, intent(in)	i,
		character(len=*), intent(in)	out
	)

Definition at line 3053 of file mod_Parameters.F90.

  implicit none
    integer, intent(in) :: i
    complex(dp), intent(in) :: p(4)
    character(len=*), intent(in):: out
    complex(dp) :: pol_mless2(4)
    ! -------------------------------------
 
    if (out == 'out') then
       pol_mless2 = pol_mless(p,i,outgoing=.true.)
    else
       pol_mless2 = pol_mless(p,i,outgoing=.false.)
    endif

scalefactor()

real(8) function modparameters::scalefactor	(	integer	id1in,
		integer	id2in
	)

Definition at line 1509 of file mod_Parameters.F90.

implicit none
real(8) :: ScaleFactor
integer :: id1, id2, id1in, id2in
id1 = abs(id1in)
id2 = abs(id2in)
 
! W->qq
if((id1.eq.convertlhe(up_)  .and.  id2.eq.convertlhe(dn_))  .or.  (id1.eq.convertlhe(dn_)  .and.  id2.eq.convertlhe(up_)))then
  scalefactor = scale_alpha_w_ud
elseif((id1.eq.convertlhe(up_)  .and.  id2.eq.convertlhe(str_))  .or.  (id1.eq.convertlhe(str_)  .and.  id2.eq.convertlhe(up_)))then
  scalefactor = scale_alpha_w_ud
elseif((id1.eq.convertlhe(up_)  .and.  id2.eq.convertlhe(bot_))  .or.  (id1.eq.convertlhe(bot_)  .and.  id2.eq.convertlhe(up_)))then
  scalefactor = scale_alpha_w_ud
elseif((id1.eq.convertlhe(chm_)  .and.  id2.eq.convertlhe(dn_))  .or.  (id1.eq.convertlhe(dn_)  .and.  id2.eq.convertlhe(chm_)))then
  scalefactor = scale_alpha_w_cs
elseif((id1.eq.convertlhe(chm_)  .and.  id2.eq.convertlhe(str_))  .or.  (id1.eq.convertlhe(str_)  .and.  id2.eq.convertlhe(chm_)))then
  scalefactor = scale_alpha_w_cs
elseif((id1.eq.convertlhe(chm_)  .and.  id2.eq.convertlhe(bot_))  .or.  (id1.eq.convertlhe(bot_)  .and.  id2.eq.convertlhe(chm_)))then
  scalefactor = scale_alpha_w_cs
! W-> td
elseif((id1.eq.convertlhe(top_)  .and.  id2.eq.convertlhe(dn_))  .or.  (id1.eq.convertlhe(dn_)  .and.  id2.eq.convertlhe(top_)))then
  scalefactor = 1d0
elseif((id1.eq.convertlhe(top_)  .and.  id2.eq.convertlhe(str_))  .or.  (id1.eq.convertlhe(str_)  .and.  id2.eq.convertlhe(top_)))then
  scalefactor = 1d0
elseif((id1.eq.convertlhe(top_)  .and.  id2.eq.convertlhe(bot_))  .or.  (id1.eq.convertlhe(bot_)  .and.  id2.eq.convertlhe(top_)))then
  scalefactor = 1d0
! W->lnu
elseif((abs(id1).eq.abs(convertlhe(nut_))  .and.  abs(id2).eq.abs(convertlhe(tap_)))  .or.  (abs(id1).eq.abs(convertlhe(tap_))  .and.  abs(id2).eq.abs(convertlhe(nut_))))then
  scalefactor = scale_alpha_w_tn
elseif((abs(id1).eq.abs(convertlhe(num_))  .and.  abs(id2).eq.abs(convertlhe(mup_)))  .or.  (abs(id1).eq.abs(convertlhe(mup_))  .and.  abs(id2).eq.abs(convertlhe(num_))))then
  scalefactor = scale_alpha_w_ln
elseif((abs(id1).eq.abs(convertlhe(nue_))  .and.  abs(id2).eq.abs(convertlhe(elp_)))  .or.  (abs(id1).eq.abs(convertlhe(elp_))  .and.  abs(id2).eq.abs(convertlhe(nue_))))then
  scalefactor = scale_alpha_w_ln
! Z->qq
elseif((id1.eq.convertlhe(up_)  .and.  id2.eq.convertlhe(up_))  .or.  (id1.eq.convertlhe(chm_)  .and.  id2.eq.convertlhe(chm_)))then
  scalefactor = scale_alpha_z_uu
elseif((id1.eq.convertlhe(dn_)  .and.  id2.eq.convertlhe(dn_))  .or.  (id1.eq.convertlhe(str_)  .and.  id2.eq.convertlhe(str_))  .or.  (id1.eq.convertlhe(bot_)  .and.  id2.eq.convertlhe(bot_)))then
  scalefactor = scale_alpha_z_dd
! Z-> ll, nunu
elseif(id1.eq.convertlhe(tap_)  .and.  id2.eq.convertlhe(tap_))then
  scalefactor = scale_alpha_z_tt
elseif((id1.eq.convertlhe(mup_)  .and.  id2.eq.convertlhe(mup_))  .or.  (id1.eq.convertlhe(elp_)  .and.  id2.eq.convertlhe(elp_)))then
  scalefactor = scale_alpha_z_ll
elseif((id1.eq.convertlhe(nut_)  .and.  id2.eq.convertlhe(nut_))  .or.  (id1.eq.convertlhe(num_)  .and.  id2.eq.convertlhe(num_))  .or.  (id1.eq.convertlhe(nue_)  .and.  id2.eq.convertlhe(nue_)))then
  scalefactor = scale_alpha_z_nn
! Everything else
else
  scalefactor = 1d0
endif
 
return

setdecaywidth()

subroutine modparameters::setdecaywidth	(	real(8), intent(in)	width,
		integer, intent(in)	ipart
	)

Definition at line 1996 of file mod_Parameters.F90.

implicit none
real(8), intent(in) :: width
integer, intent(in) :: ipart
integer :: Part
 
  part=abs(ipart)
  if( part.eq.abs(tam_) ) then
      ga_tau = width
  elseif( part.eq.abs(top_) ) then
      ga_top = width
  elseif( part.eq.abs(z0_) ) then
      ga_z = width
  elseif( part.eq.abs(zpr_) ) then
      ga_zprime = width
  elseif( part.eq.abs(wp_) ) then
      ga_w = width
  elseif( part.eq.abs(wppr_) ) then
      ga_wprime = width
  elseif( part.eq.abs(hig_) ) then
      ga_reso = width
  endif
 

setdefaultckm()

subroutine modparameters::setdefaultckm

Definition at line 2774 of file mod_Parameters.F90.

implicit none
   vckm_ud = 0.974285d0
   vckm_us = 0.225290d0
   vckm_cs = 0.9734244d0
   vckm_cd =-0.225182d0
   vckm_tb = 0.99912367d0
   vckm_ts =-0.040920069d0
   call computeckmelements(vckm_ud, vckm_us, vckm_cd, vckm_cs, vckm_ts, vckm_tb)

sethiggsdecaywidth()

subroutine modparameters::sethiggsdecaywidth	(	integer	jH,
		real(8)	width
	)

Definition at line 2110 of file mod_Parameters.F90.

implicit none
real(8) :: width
integer :: jH
   if (jh .eq. 1) then
      ga_reso=width
   elseif (jh .eq.2) then
      ga_reso2=width
   endif

sethiggsmass()

subroutine modparameters::sethiggsmass	(	integer	jH,
		real(8)	mass
	)

Definition at line 2099 of file mod_Parameters.F90.

implicit none
real(8) :: mass
integer :: jH
   if (jh .eq. 1) then
      m_reso=mass
   elseif (jh .eq.2) then
      m_reso2=mass
   endif

setmass()

subroutine modparameters::setmass	(	real(8), intent(in)	mass,
		integer, intent(in)	ipart
	)

Definition at line 1962 of file mod_Parameters.F90.

implicit none
real(8), intent(in) :: mass
integer, intent(in) :: ipart
integer :: Part
 
  part=abs(ipart)
  if( part.eq.abs(elm_) ) then
      m_el = mass
  elseif( part.eq.abs(mum_) ) then
      m_mu = mass
  elseif( part.eq.abs(tam_) ) then
      m_tau = mass
  elseif( part.eq.abs(chm_) ) then
      m_charm = mass
  elseif( part.eq.abs(bot_) ) then
      m_bot = mass
  elseif( part.eq.abs(top_) ) then
      m_top = mass
  elseif( part.eq.abs(z0_) ) then
      m_z = mass
  elseif( part.eq.abs(zpr_) ) then
      m_zprime = mass
  elseif( part.eq.abs(wp_) ) then
      m_w = mass
  elseif( part.eq.abs(wppr_) ) then
      m_wprime = mass
  elseif( part.eq.abs(hig_) ) then
      m_reso = mass
  endif
 

spinoru()

subroutine modparameters::spinoru	(	real(dp), dimension(:,:)	p,
		complex(dp), dimension(:,:)	za,
		complex(dp), dimension(:,:)	zb,
		real(dp), dimension(:,:)	s
	)

Definition at line 3331 of file mod_Parameters.F90.

!---Calculate spinor products
!---taken from MCFM & modified by R. Rontsch, May 2015
!---extended to deal with negative energies ie with all momenta outgoing
!---Arbitrary conventions of Bern, Dixon, Kosower, Weinzierl,
!---za(i,j)*zb(j,i)=s(i,j)
      implicit none
      real(dp) :: p(:,:),two
      integer, parameter :: mxpart=14
      complex(dp):: c23(mxpart),f(mxpart),rt(mxpart),za(:,:),zb(:,:),czero,cone,ci
      real(dp)   :: s(:,:)
      integer i,j,N
 
      n = size(p,1)
!       if (size(p,1) .ne. N) then
!          call Error("spinorz: momentum mismatch",size(p,1))
!       endif
      two=2d0
      czero=dcmplx(0d0,0d0)
      cone=dcmplx(1d0,0d0)
      ci=dcmplx(0d0,1d0)
 
 
!---if one of the vectors happens to be zero this routine fails.
      do j=1,n
         za(j,j)=czero
         zb(j,j)=za(j,j)
 
!-----positive energy case
         if (p(j,4) .gt. 0d0) then
            rt(j)=dsqrt(p(j,4)+p(j,1))
            c23(j)=dcmplx(p(j,3),-p(j,2))
            f(j)=cone
         else
!-----negative energy case
            rt(j)=dsqrt(-p(j,4)-p(j,1))
            c23(j)=dcmplx(-p(j,3),p(j,2))
            f(j)=ci
         endif
      enddo
      do i=2,n
         do j=1,i-1
         s(i,j)=two*(p(i,4)*p(j,4)-p(i,1)*p(j,1)-p(i,2)*p(j,2)-p(i,3)*p(j,3))
         za(i,j)=f(i)*f(j)*(c23(i)*dcmplx(rt(j)/rt(i))-c23(j)*dcmplx(rt(i)/rt(j)))
 
         if (abs(s(i,j)).lt.1d-5) then
         zb(i,j)=-(f(i)*f(j))**2*dconjg(za(i,j))
         else
         zb(i,j)=-dcmplx(s(i,j))/za(i,j)
         endif
         za(j,i)=-za(i,j)
         zb(j,i)=-zb(i,j)
         s(j,i)=s(i,j)
         enddo
      enddo
 

su2flip()

integer function modparameters::su2flip

(

integer

Part

)

Definition at line 2603 of file mod_Parameters.F90.

implicit none
integer :: SU2flip
integer :: Part
 
  if( abs(part).eq.up_ ) then
      su2flip = sign(1,part)*dn_
  elseif( abs(part).eq.dn_ ) then
      su2flip = sign(1,part)*up_
  elseif( abs(part).eq.chm_ ) then
      su2flip = sign(1,part)*str_
  elseif( abs(part).eq.str_ ) then
      su2flip = sign(1,part)*chm_
  elseif( abs(part).eq.bot_ ) then
      su2flip = sign(1,part)*top_
  elseif( abs(part).eq.top_ ) then
      su2flip = sign(1,part)*bot_
  elseif( abs(part).eq.elp_ ) then
      su2flip = sign(1,part)*nue_
  elseif( abs(part).eq.mup_ ) then
      su2flip = sign(1,part)*num_
  elseif( abs(part).eq.tap_ ) then
      su2flip = sign(1,part)*nut_
  elseif( abs(part).eq.nue_ ) then
      su2flip = sign(1,part)*elp_
  elseif( abs(part).eq.num_ ) then
      su2flip = sign(1,part)*mup_
  elseif( abs(part).eq.nut_ ) then
      su2flip = sign(1,part)*tap_
  else
      print *, "Error: Invalid flavor in SU2flip ",part
      stop
  endif
 

ubar0()

complex(dp) function, dimension(4) modparameters::ubar0	(	complex(dp), dimension(4), intent(in)	p,
		integer, intent(in)	i
	)

Definition at line 3193 of file mod_Parameters.F90.

   implicit none
    complex(dp), intent(in) :: p(4)
    integer, intent(in) :: i
    complex(dp) :: ubar0(4)
    complex(dp) :: fc, fc2
    real(dp)    :: p0,px,py,pz,mass
 
 
    p0=real(p(1),dp)
    px=real(p(2),dp)
    py=real(p(3),dp)
    pz=real(p(4),dp)
    mass=dsqrt(dabs(p0**2-px**2-py**2-pz**2))
    if( mass.lt.1d-4 ) mass=0d0
 
 
    fc2 = p0 + pz
    fc=sqrt(fc2)
 
    if (abs(fc2).gt. tol) then
       if (i.eq.1) then
          ubar0(1)=czero
          ubar0(2)=czero
          ubar0(3)=fc
          ubar0(4)=(px-ci*py)/fc
       elseif (i.eq.-1) then
          ubar0(1)=(px+ci*py)/fc
          ubar0(2)=-fc
          ubar0(3)=czero
          ubar0(4)=czero
       else
          stop 'ubar0: i out of range'
       endif
    else
       if (i.eq.1) then
          ubar0(1) = czero
          ubar0(2) = czero
          ubar0(3) = czero
          ubar0(4) = sqrt(cone*two*p0)
       elseif (i.eq.-1) then
          ubar0(1) = sqrt(cone*(two*p0))
          ubar0(2) = czero
          ubar0(3) = czero
          ubar0(4) = czero
       else
          stop 'ubar0: i out of range'
       endif
    endif
 
 
!       if (i.eq.1) then
!           ubar0(1)=dcmplx(mass,0d0)/fc
!           ubar0(2)=czero
!           ubar0(3)=fc
!           ubar0(4)=dcmplx(px,-py)/fc
!       elseif (i.eq.-1) then
!           ubar0(1)=dcmplx(px,py)/fc
!           ubar0(2)=-fc
!           ubar0(3)=czero
!           ubar0(4)=-dcmplx(mass,0d0)/fc
!        else
!           stop 'ubar0: i out of range'
!       endif
 
 
 

v0()

complex(dp) function, dimension(4) modparameters::v0	(	complex(dp), dimension(4), intent(in)	p,
		integer, intent(in)	i
	)

Definition at line 3263 of file mod_Parameters.F90.

   implicit none
    complex(dp), intent(in) :: p(4)
    integer, intent(in)       :: i
    complex(dp) :: v0(4)
    complex(dp) :: fc2, fc
    real(dp)    :: p0,px,py,pz,mass
 
    p0=real(p(1),dp)
    px=real(p(2),dp)
    py=real(p(3),dp)
    pz=real(p(4),dp)
    mass=dsqrt(dabs(p0**2-px**2-py**2-pz**2))
    if( mass.lt.1d-4 ) mass=0d0
 
 
    fc2 = p0 + pz
    fc=sqrt(fc2)
 
    if (abs(fc2).gt. tol) then
       if (i.eq.1) then
          v0(1)=czero
          v0(2)=czero
          v0(3)=(px-ci*py)/fc
          v0(4)=-fc
       elseif (i.eq.-1) then
          v0(1)=fc
          v0(2)=(px+ci*py)/fc
          v0(3)=czero
          v0(4)=czero
       else
          stop 'v0: i out of range'
       endif
    else
       if (i.eq.1) then
          v0(1)=czero
          v0(2)=czero
          v0(3)=sqrt(cone*two*p0)
          v0(4)=czero
       elseif (i.eq.-1) then
          v0(1)=czero
          v0(2)=sqrt(cone*two*p0)
          v0(3)=czero
          v0(4)=czero
       else
          stop 'v0: i out of range'
       endif
    endif
 
 
!       if (i.eq.+1) then
!           v0(1)=czero
!           v0(2)=dcmplx(mass,0d0)/fc
!           v0(3)=dcmplx(px,-py)/fc
!           v0(4)=-fc
!       elseif (i.eq.-1) then
!           v0(1)=fc
!           v0(2)=dcmplx(px,py)/fc
!           v0(3)=dcmplx(-mass,0d0)/fc
!           v0(4)=czero
!        else
!           stop 'v0: i out of range'
!       endif
 
 
 

vpffcoupling()

complex(8) function modparameters::vpffcoupling	(	integer, intent(in)	jhuid,
		integer, intent(in)	hel,
		logical, intent(in)	useWp
	)

Definition at line 1370 of file mod_Parameters.F90.

integer, intent(in) :: jhuid
integer, intent(in) :: hel
logical, intent(in) :: useWp
complex(8) :: VpffCoupling
integer :: absid
 
   vpffcoupling=czero
   if (abs(hel).ne.1) then
      return
   endif
   absid=abs(jhuid)
 
   if(usewp) then
      if (absid.eq.abs(up_) .or. absid.eq.abs(dn_)) then
         if(hel.eq.-1) then
            vpffcoupling=ewp_up_left
         else
            vpffcoupling=ewp_up_right
         endif
      elseif (absid.eq.abs(chm_) .or. absid.eq.abs(str_)) then
         if(hel.eq.-1) then
            vpffcoupling=ewp_chm_left
         else
            vpffcoupling=ewp_chm_right
         endif
      elseif (absid.eq.abs(top_) .or. absid.eq.abs(bot_)) then
         if(hel.eq.-1) then
            vpffcoupling=ewp_top_left
         else
            vpffcoupling=ewp_top_right
         endif
      elseif (absid.eq.abs(elp_) .or. absid.eq.abs(nue_)) then
         if(hel.eq.-1) then
            vpffcoupling=ewp_el_left
         else
            vpffcoupling=ewp_el_right
         endif
      elseif (absid.eq.abs(mup_) .or. absid.eq.abs(num_)) then
         if(hel.eq.-1) then
            vpffcoupling=ewp_mu_left
         else
            vpffcoupling=ewp_mu_right
         endif
      elseif (absid.eq.abs(tap_) .or. absid.eq.abs(nut_)) then
         if(hel.eq.-1) then
            vpffcoupling=ewp_ta_left
         else
            vpffcoupling=ewp_ta_right
         endif
      endif
   else
      if (absid.eq.abs(up_)) then
         if(hel.eq.-1) then
            vpffcoupling=ezp_up_left
         else
            vpffcoupling=ezp_up_right
         endif
      elseif (absid.eq.abs(dn_)) then
         if(hel.eq.-1) then
            vpffcoupling=ezp_dn_left
         else
            vpffcoupling=ezp_dn_right
         endif
      elseif (absid.eq.abs(chm_)) then
         if(hel.eq.-1) then
            vpffcoupling=ezp_chm_left
         else
            vpffcoupling=ezp_chm_right
         endif
      elseif (absid.eq.abs(str_)) then
         if(hel.eq.-1) then
            vpffcoupling=ezp_str_left
         else
            vpffcoupling=ezp_str_right
         endif
      elseif (absid.eq.abs(top_)) then
         if(hel.eq.-1) then
            vpffcoupling=ezp_top_left
         else
            vpffcoupling=ezp_top_right
         endif
      elseif (absid.eq.abs(bot_)) then
         if(hel.eq.-1) then
            vpffcoupling=ezp_bot_left
         else
            vpffcoupling=ezp_bot_right
         endif
      elseif (absid.eq.abs(elp_)) then
         if(hel.eq.-1) then
            vpffcoupling=ezp_el_left
         else
            vpffcoupling=ezp_el_right
         endif
      elseif (absid.eq.abs(nue_)) then
         if(hel.eq.-1) then
            vpffcoupling=ezp_nue_left
         else
            vpffcoupling=ezp_nue_right
         endif
      elseif (absid.eq.abs(mup_)) then
         if(hel.eq.-1) then
            vpffcoupling=ezp_mu_left
         else
            vpffcoupling=ezp_mu_right
         endif
      elseif (absid.eq.abs(num_)) then
         if(hel.eq.-1) then
            vpffcoupling=ezp_nue_left
         else
            vpffcoupling=ezp_nue_right
         endif
      elseif (absid.eq.abs(tap_)) then
         if(hel.eq.-1) then
            vpffcoupling=ezp_ta_left
         else
            vpffcoupling=ezp_ta_right
         endif
      elseif (absid.eq.abs(nut_)) then
         if(hel.eq.-1) then
            vpffcoupling=ezp_nue_left
         else
            vpffcoupling=ezp_nue_right
         endif
      endif
   endif
 

vpffcoupling_pdg()

complex(8) function modparameters::vpffcoupling_pdg	(	integer, intent(in)	pdgid,
		integer, intent(in)	hel,
		logical, intent(in)	useWp
	)

Definition at line 1498 of file mod_Parameters.F90.

integer, intent(in) :: pdgid
integer, intent(in) :: hel
logical, intent(in) :: useWp
complex(8) :: VpffCoupling_PDG
integer :: jhuid
   jhuid=convertlhereverse(pdgid)
   vpffcoupling_pdg=vpffcoupling(jhuid,hel,usewp)

zff()

real(8) function modparameters::zff	(	integer	id1in,
		integer	id2in,
		real(8)	h1,
		real(8)	h2
	)

Definition at line 1650 of file mod_Parameters.F90.

implicit none
real(8) :: ZFF
integer :: id1in, id2in
real(8) :: h1,h2
  zff = zffbare(id1in,id2in,h1,h2) * sqrt(scalefactor(id1in,id2in))
return

zffbare()

real(8) function modparameters::zffbare	(	integer	id1in,
		integer	id2in,
		real(8)	h1,
		real(8)	h2
	)

Definition at line 1601 of file mod_Parameters.F90.

implicit none
real(8) :: ZFFbare
integer :: id1, id2, id1in, id2in
real(8) :: h1,h2
 
id1 = abs(id1in)
id2 = abs(id2in)
 
  if(id1.ne.id2)then
    print*,"Not a valid Z to fermion pair vertex!",id1in,id2in
    stop
  !Zll
  else if(id1.eq.convertlhe(elm_).or.id1.eq.convertlhe(mum_).or.id1.eq.convertlhe(tam_))then
    if((id1in*h1).gt.0d0)then
      zffbare = ar_lep
    else
      zffbare = al_lep
    endif
  !Zuu
  else if(id1.eq.convertlhe(up_).or.id1.eq.convertlhe(chm_).or.id1.eq.convertlhe(top_))then
    if((id1in*h1).gt.0d0)then
      zffbare = ar_qup
    else
      zffbare = al_qup
    endif
  !Zdd
  else if(id1.eq.convertlhe(dn_).or.id1.eq.convertlhe(str_).or.id1.eq.convertlhe(bot_))then
    if((id1in*h1).gt.0d0)then
      zffbare = ar_qdn
    else
      zffbare = al_qdn
    endif
  !Z nu nu
  else if(id1.eq.convertlhe(nue_).or.id1.eq.convertlhe(num_).or.id1.eq.convertlhe(nut_))then
    if((id1in*h1).lt.0d0)then
      zffbare = al_neu
    else
      print*,"No right-handed neutrino here!",id1in,h1
      stop
    endif
  else
    print*,"Not a valid Z to fermion pair vertex!",id1in,id2in
    stop
  endif
 
return

Variable Documentation

a1

complex(8), public modparameters::a1 = (0d0, 0d0)

Definition at line 923 of file mod_Parameters.F90.

  complex(8), public :: a1 = (0d0,0d0)    ! g1  -- c.f. draft

a2

complex(8), public modparameters::a2 = (0d0, 0d0)

Definition at line 924 of file mod_Parameters.F90.

  complex(8), public :: a2 = (0d0,0d0)    ! g2

a3

complex(8), public modparameters::a3 = (0d0, 0d0)

Definition at line 925 of file mod_Parameters.F90.

  complex(8), public :: a3 = (0d0,0d0)    ! g3

a4

complex(8), public modparameters::a4 = (0d0, 0d0)

Definition at line 926 of file mod_Parameters.F90.

  complex(8), public :: a4 = (0d0,0d0)    ! g4

a5

complex(8), public modparameters::a5 = (0d0, 0d0)

Definition at line 927 of file mod_Parameters.F90.

  complex(8), public :: a5 = (0d0,0d0)    ! pseudoscalar, g8

abot_

integer, target, public modparameters::abot_ = -6

Definition at line 1111 of file mod_Parameters.F90.

integer, public, target :: ABot_ = -6

accepcounter

integer(8), public modparameters::accepcounter =0

Definition at line 50 of file mod_Parameters.F90.

integer(8), public :: AccepCounter=0

accepcounter_part

integer(8), dimension(-6:6,-6:6), public modparameters::accepcounter_part =0

Definition at line 52 of file mod_Parameters.F90.

integer(8), public :: AccepCounter_part(-6:6,-6:6)=0,rejecounter_part(-6:6,-6:6)=0,requevents(-6:+6,-6:+6)=0

accepcounter_part2

integer(8), dimension(1:nmaxchannels), public modparameters::accepcounter_part2 =0

Definition at line 55 of file mod_Parameters.F90.

integer(8), public :: AccepCounter_part2(1:NMAXCHANNELS)=0

achm_

integer, target, public modparameters::achm_ = -3

Definition at line 1108 of file mod_Parameters.F90.

integer, public, target :: AChm_ = -3

adn_

integer, target, public modparameters::adn_ = -2

Definition at line 1107 of file mod_Parameters.F90.

integer, public, target :: ADn_  = -2

ahg1

complex(8), parameter, public modparameters::ahg1 = (1.0d0, 0d0)

Definition at line 362 of file mod_Parameters.F90.

   complex(8), public, parameter :: ahg1 = (1.0d0,0d0)

ahg2

complex(8), parameter, public modparameters::ahg2 = (0d0, 0d0)

Definition at line 363 of file mod_Parameters.F90.

   complex(8), public, parameter :: ahg2 = (0d0,0d0)

ahg3

complex(8), parameter, public modparameters::ahg3 = (0d0, 0d0)

Definition at line 364 of file mod_Parameters.F90.

   complex(8), public, parameter :: ahg3 = (0d0,0d0)  ! pseudoscalar

ahz1

complex(8), parameter, public modparameters::ahz1 = (1.0d0, 0d0)

Definition at line 365 of file mod_Parameters.F90.

   complex(8), public, parameter :: ahz1 = (1.0d0,0d0)

ahz2

complex(8), parameter, public modparameters::ahz2 = (0d0, 0d0)

Definition at line 366 of file mod_Parameters.F90.

   complex(8), public, parameter :: ahz2 = (0d0,0d0)  ! this coupling does not contribute for gamma+gamma final states

ahz3

complex(8), parameter, public modparameters::ahz3 = (0d0, 0d0)

Definition at line 367 of file mod_Parameters.F90.

   complex(8), public, parameter :: ahz3 = (0d0,0d0)  ! pseudoscalar

al_lep

real(8), public modparameters::al_lep

Definition at line 1059 of file mod_Parameters.F90.

real(8), public            :: aL_lep ! = -2d0*sitW**2*(-1d0)-1d0

al_neu

real(8), public modparameters::al_neu

Definition at line 1061 of file mod_Parameters.F90.

real(8), public            :: aL_neu ! = -2d0*sitW**2*(0d0)+1d0

al_qdn

real(8), public modparameters::al_qdn

Definition at line 1065 of file mod_Parameters.F90.

real(8), public            :: aL_QDn ! = -2d0*sitW**2*(-1d0/3d0)-1d0

al_qup

real(8), public modparameters::al_qup

Definition at line 1063 of file mod_Parameters.F90.

real(8), public            :: aL_QUp ! = -2d0*sitW**2*(2d0/3d0)+1d0

alertcounter

integer(8), public modparameters::alertcounter =0

Definition at line 51 of file mod_Parameters.F90.

integer(8), public :: AlertCounter=0

alpha_dip

real(8), public modparameters::alpha_dip = 1d0

Definition at line 199 of file mod_Parameters.F90.

real(8), public :: alpha_dip = 1d0 !extra non physical degree of freedom for dipoles. Vary to check indepedence (of alpha_dip).

alpha_qed

real(8), public modparameters::alpha_qed = 1d0/128d0

Definition at line 248 of file mod_Parameters.F90.

real(8), public            :: alpha_QED = 1d0/128d0         ! el.magn. coupling

alphas

real(dp), public modparameters::alphas

Definition at line 269 of file mod_Parameters.F90.

real(dp), public           :: alphas                     ! strong coupling per event, set to some reasonable value

alphas_mz

real(dp), public modparameters::alphas_mz

Definition at line 270 of file mod_Parameters.F90.

real(dp), public           :: alphas_mz                  ! strong coupling at M_Z, reset later in main per PDF

anue_

integer, target, public modparameters::anue_ = -14

Definition at line 1116 of file mod_Parameters.F90.

integer, public, target :: ANuE_ = -14

anum_

integer, target, public modparameters::anum_ = -15

Definition at line 1117 of file mod_Parameters.F90.

integer, public, target :: ANuM_ = -15

anut_

integer, target, public modparameters::anut_ = -16

Definition at line 1118 of file mod_Parameters.F90.

integer, public, target :: ANuT_ = -16

ar_lep

real(8), public modparameters::ar_lep

Definition at line 1058 of file mod_Parameters.F90.

real(8), public            :: aR_lep ! = -2d0*sitW**2*(-1d0)

ar_neu

real(8), public modparameters::ar_neu

Definition at line 1060 of file mod_Parameters.F90.

real(8), public            :: aR_neu ! = -2d0*sitW**2*(0d0)

ar_qdn

real(8), public modparameters::ar_qdn

Definition at line 1064 of file mod_Parameters.F90.

real(8), public            :: aR_QDn ! = -2d0*sitW**2*(-1d0/3d0)

ar_qup

real(8), public modparameters::ar_qup

Definition at line 1062 of file mod_Parameters.F90.

real(8), public            :: aR_QUp ! = -2d0*sitW**2*(2d0/3d0)

astr_

integer, target, public modparameters::astr_ = -4

Definition at line 1109 of file mod_Parameters.F90.

integer, public, target :: AStr_ = -4

atop_

integer, target, public modparameters::atop_ = -5

Definition at line 1110 of file mod_Parameters.F90.

integer, public, target :: ATop_ = -5

attobarn

real(8), parameter, public modparameters::attobarn =1e-18*barn

Definition at line 104 of file mod_Parameters.F90.

real(8), public, parameter :: attobarn=1e-18*barn

aup_

integer, target, public modparameters::aup_ = -1

Definition at line 1106 of file mod_Parameters.F90.

integer, public, target :: AUp_  = -1

avegg

real(dp), parameter, public modparameters::avegg = 1.0_dp/4.0_dp/64.0_dp

Definition at line 1019 of file mod_Parameters.F90.

real(dp), public, parameter :: avegg = 1.0_dp/4.0_dp/64.0_dp

aveqg

real(dp), parameter, public modparameters::aveqg = 1.0_dp/4.0_dp/24.0_dp

Definition at line 1020 of file mod_Parameters.F90.

real(dp), public, parameter :: aveqg = 1.0_dp/4.0_dp/24.0_dp

aveqq

real(dp), parameter, public modparameters::aveqq = 1.0_dp/4.0_dp/9.0_dp

Definition at line 1021 of file mod_Parameters.F90.

real(dp), public, parameter :: aveqq = 1.0_dp/4.0_dp/9.0_dp

avgcs

real(8), public modparameters::avgcs =0d0

Definition at line 119 of file mod_Parameters.F90.

b0_pdf

real(dp), dimension(0:6), parameter, public modparameters::b0_pdf = (/ 0.8753521870054244D0,0.822300539308126D0,0.7692488916108274D0,0.716197243913529D0,0.6631455962162306D0,0.6100939485189321D0,0.5570423008216338D0 /)

Definition at line 1013 of file mod_Parameters.F90.

real(dp), public, parameter :: B0_PDF(0:6) = (/ 0.8753521870054244d0,0.822300539308126d0,0.7692488916108274d0,0.716197243913529d0,0.6631455962162306d0,0.6100939485189321d0,0.5570423008216338d0 /)

b1

complex(8), public modparameters::b1 = (0d0, 0d0)

Definition at line 936 of file mod_Parameters.F90.

  complex(8), public :: b1 = (0d0,0d0)

b10

complex(8), public modparameters::b10 =(0d0, 0d0)

Definition at line 945 of file mod_Parameters.F90.

  complex(8), public :: b10 =(0d0,0d0)  ! this coupling does not contribute to V+gamma final states

b2

complex(8), public modparameters::b2 = (0d0, 0d0)

Definition at line 937 of file mod_Parameters.F90.

  complex(8), public :: b2 = (0d0,0d0)

b3

complex(8), public modparameters::b3 = (0d0, 0d0)

Definition at line 938 of file mod_Parameters.F90.

  complex(8), public :: b3 = (0d0,0d0)

b4

complex(8), public modparameters::b4 = (0d0, 0d0)

Definition at line 939 of file mod_Parameters.F90.

  complex(8), public :: b4 = (0d0,0d0)

b5

complex(8), public modparameters::b5 = (0d0, 0d0)

Definition at line 940 of file mod_Parameters.F90.

  complex(8), public :: b5 = (0d0,0d0)  ! this coupling does not contribute to V+gamma final states

b6

complex(8), public modparameters::b6 = (0d0, 0d0)

Definition at line 941 of file mod_Parameters.F90.

  complex(8), public :: b6 = (0d0,0d0)  ! this coupling does not contribute to V+gamma final states

b7

complex(8), public modparameters::b7 = (0d0, 0d0)

Definition at line 942 of file mod_Parameters.F90.

  complex(8), public :: b7 = (0d0,0d0)  ! this coupling does not contribute to V+gamma final states

b8

complex(8), public modparameters::b8 = (0d0, 0d0)

Definition at line 943 of file mod_Parameters.F90.

  complex(8), public :: b8 = (0d0,0d0)

b9

complex(8), public modparameters::b9 = (0d0, 0d0)

Definition at line 944 of file mod_Parameters.F90.

  complex(8), public :: b9 = (0d0,0d0)  ! this coupling does not contribute to V+gamma final states

barn

real(8), parameter, public modparameters::barn =1d-28*(meter**2)

Definition at line 101 of file mod_Parameters.F90.

real(8), public, parameter :: barn=1d-28*(meter**2)

bgsgs1

complex(8), public modparameters::bgsgs1 = (0d0, 0d0)

Definition at line 975 of file mod_Parameters.F90.

  complex(8), public :: bgsgs1 = (0d0,0d0)

bgsgs2

complex(8), public modparameters::bgsgs2 = (0d0, 0d0)

Definition at line 976 of file mod_Parameters.F90.

  complex(8), public :: bgsgs2 = (0d0,0d0)

bgsgs3

complex(8), public modparameters::bgsgs3 = (0d0, 0d0)

Definition at line 977 of file mod_Parameters.F90.

  complex(8), public :: bgsgs3 = (0d0,0d0)

bgsgs4

complex(8), public modparameters::bgsgs4 = (0d0, 0d0)

Definition at line 978 of file mod_Parameters.F90.

  complex(8), public :: bgsgs4 = (0d0,0d0)

bgsgs8

complex(8), public modparameters::bgsgs8 = (0d0, 0d0)

Definition at line 979 of file mod_Parameters.F90.

  complex(8), public :: bgsgs8 = (0d0,0d0)

bl

real(8), public modparameters::bl

Definition at line 1066 of file mod_Parameters.F90.

real(8), public            :: bL ! = dsqrt(2d0)*dsqrt(1d0-sitW**2)

bot_

integer, target, public modparameters::bot_ = 6

Definition at line 1089 of file mod_Parameters.F90.

integer, public, target :: Bot_ = 6

br

real(8), public modparameters::br

Definition at line 1067 of file mod_Parameters.F90.

real(8), public            :: bR ! = 0d0

br_counter

integer, dimension(1:5,1:5), public modparameters::br_counter =0

Definition at line 126 of file mod_Parameters.F90.

integer, public :: Br_counter(1:5,1:5)=0

br_w_cs

real(8), parameter, public modparameters::br_w_cs = 1d0/2d0*Br_W_hadr

Definition at line 309 of file mod_Parameters.F90.

real(8), public, parameter :: Br_W_cs   = 1d0/2d0*br_w_hadr                           ! c-s W branching

br_w_en

real(8), parameter, public modparameters::br_w_en = 1d0/3d0*Br_W_ll

Definition at line 305 of file mod_Parameters.F90.

real(8), public, parameter :: Br_W_en   = 1d0/3d0*br_w_ll                             ! electron W branching

br_w_hadr

real(8), parameter, public modparameters::br_w_hadr = 100d0*percent - Br_W_ll

Definition at line 297 of file mod_Parameters.F90.

real(8), public, parameter :: Br_W_hadr = 100d0*percent - br_w_ll                     ! hadronic W branching

br_w_ll

real(8), parameter, public modparameters::br_w_ll = 32.72d0*percent

Definition at line 296 of file mod_Parameters.F90.

real(8), public, parameter :: Br_W_ll   = 32.72d0*percent                             ! leptonic W branching

br_w_ll_counter

integer, public modparameters::br_w_ll_counter =0

Definition at line 124 of file mod_Parameters.F90.

integer, public :: Br_W_ll_counter=0

br_w_mn

real(8), parameter, public modparameters::br_w_mn = 1d0/3d0*Br_W_ll

Definition at line 306 of file mod_Parameters.F90.

real(8), public, parameter :: Br_W_mn   = 1d0/3d0*br_w_ll                             ! muon W branching

br_w_tn

real(8), parameter, public modparameters::br_w_tn = 1d0/3d0*Br_W_ll

Definition at line 307 of file mod_Parameters.F90.

real(8), public, parameter :: Br_W_tn   = 1d0/3d0*br_w_ll                             ! electron W branching

br_w_ud

real(8), parameter, public modparameters::br_w_ud = 1d0/2d0*Br_W_hadr

Definition at line 308 of file mod_Parameters.F90.

real(8), public, parameter :: Br_W_ud   = 1d0/2d0*br_w_hadr                           ! u-d W branching

br_w_ud_counter

integer, public modparameters::br_w_ud_counter =0

Definition at line 125 of file mod_Parameters.F90.

integer, public :: Br_W_ud_counter=0

br_z_bb

real(8), parameter, public modparameters::br_z_bb = Br_Z_hadr - Br_Z_uu - Br_Z_dd - Br_Z_cc - Br_Z_ss

Definition at line 295 of file mod_Parameters.F90.

real(8), public, parameter :: Br_Z_bb   = br_z_hadr - br_z_uu - br_z_dd - br_z_cc - br_z_ss

br_z_cc

real(8), parameter, public modparameters::br_z_cc = 11.6d0*percent

Definition at line 292 of file mod_Parameters.F90.

real(8), public, parameter :: Br_Z_cc   = 11.6d0*percent                              ! chm chmbar Z branching

br_z_dd

real(8), parameter, public modparameters::br_z_dd = 15.6d0*percent

Definition at line 293 of file mod_Parameters.F90.

real(8), public, parameter :: Br_Z_dd   = 15.6d0*percent                              ! dn dnbar Z branching

br_z_dd_counter

integer, public modparameters::br_z_dd_counter =0

Definition at line 123 of file mod_Parameters.F90.

integer, public :: Br_Z_dd_counter=0

br_z_ee

real(8), parameter, public modparameters::br_z_ee = 1d0/3d0*Br_Z_ll

Definition at line 301 of file mod_Parameters.F90.

real(8), public, parameter :: Br_Z_ee   = 1d0/3d0*br_z_ll                             ! electron Z branching

br_z_hadr

real(8), parameter, public modparameters::br_z_hadr = 69.91d0*percent

Definition at line 289 of file mod_Parameters.F90.

real(8), public, parameter :: Br_Z_hadr = 69.91d0*percent                             ! hadronic Z branching

br_z_inv

real(8), parameter, public modparameters::br_z_inv = 100d0*percent - Br_Z_ll - Br_Z_hadr

Definition at line 290 of file mod_Parameters.F90.

real(8), public, parameter :: Br_Z_inv  = 100d0*percent - br_z_ll - br_z_hadr         ! invisible Z branching

br_z_inv_counter

integer, public modparameters::br_z_inv_counter =0

Definition at line 121 of file mod_Parameters.F90.

integer, public :: Br_Z_inv_counter=0

br_z_ll

real(8), parameter, public modparameters::br_z_ll = 10.10d0*percent

Definition at line 288 of file mod_Parameters.F90.

real(8), public, parameter :: Br_Z_ll   = 10.10d0*percent                             ! leptonic Z branching

br_z_ll_counter

integer, public modparameters::br_z_ll_counter =0

Definition at line 120 of file mod_Parameters.F90.

integer, public :: Br_Z_ll_counter=0

br_z_mm

real(8), parameter, public modparameters::br_z_mm = 1d0/3d0*Br_Z_ll

Definition at line 302 of file mod_Parameters.F90.

real(8), public, parameter :: Br_Z_mm   = 1d0/3d0*br_z_ll                             ! muon Z branching

br_z_nn

real(8), parameter, public modparameters::br_z_nn = 1d0/3d0*Br_Z_inv

Definition at line 304 of file mod_Parameters.F90.

real(8), public, parameter :: Br_Z_nn   = 1d0/3d0*br_z_inv                            ! neutrino Z branching

br_z_ss

real(8), parameter, public modparameters::br_z_ss = 15.6d0*percent

Definition at line 294 of file mod_Parameters.F90.

real(8), public, parameter :: Br_Z_ss   = 15.6d0*percent                              ! str strbar Z branching

br_z_tt

real(8), parameter, public modparameters::br_z_tt = 1d0/3d0*Br_Z_ll

Definition at line 303 of file mod_Parameters.F90.

real(8), public, parameter :: Br_Z_tt   = 1d0/3d0*br_z_ll                             ! tau Z branching

br_z_uu

real(8), parameter, public modparameters::br_z_uu = 11.6d0*percent

Definition at line 291 of file mod_Parameters.F90.

real(8), public, parameter :: Br_Z_uu   = 11.6d0*percent                              ! up upbar Z branching

br_z_uu_counter

integer, public modparameters::br_z_uu_counter =0

Definition at line 122 of file mod_Parameters.F90.

integer, public :: Br_Z_uu_counter=0

breitwignercutoff

real(8), public modparameters::breitwignercutoff = 20d0

Definition at line 272 of file mod_Parameters.F90.

real(8), public            :: BreitWignerCutoff = 20d0   ! This is the cutoff to the phase space calculation in mod_CrossSection.F90

brhadr_w_cs

real(8), parameter, public modparameters::brhadr_w_cs = Br_W_cs/Br_W_hadr

Definition at line 325 of file mod_Parameters.F90.

real(8), public, parameter :: Brhadr_W_cs = br_w_cs/br_w_hadr                         ! W branching fraction Ga(chm)/Ga(hadronic)

brhadr_w_ud

real(8), parameter, public modparameters::brhadr_w_ud = Br_W_ud/Br_W_hadr

Definition at line 324 of file mod_Parameters.F90.

real(8), public, parameter :: Brhadr_W_ud = br_w_ud/br_w_hadr                         ! W branching fraction Ga(up)/Ga(hadronic)

brhadr_z_bb

real(8), parameter, public modparameters::brhadr_z_bb = Br_Z_bb/Br_Z_hadr

Definition at line 323 of file mod_Parameters.F90.

real(8), public, parameter :: Brhadr_Z_bb = br_z_bb/br_z_hadr                         ! Z branching fraction Ga(bot)/Ga(hadronic)

brhadr_z_cc

real(8), parameter, public modparameters::brhadr_z_cc = Br_Z_cc/Br_Z_hadr

Definition at line 320 of file mod_Parameters.F90.

real(8), public, parameter :: Brhadr_Z_cc = br_z_cc/br_z_hadr                         ! Z branching fraction Ga(chm)/Ga(hadronic)

brhadr_z_dd

real(8), parameter, public modparameters::brhadr_z_dd = Br_Z_dd/Br_Z_hadr

Definition at line 321 of file mod_Parameters.F90.

real(8), public, parameter :: Brhadr_Z_dd = br_z_dd/br_z_hadr                         ! Z branching fraction Ga(don)/Ga(hadronic)

brhadr_z_ss

real(8), parameter, public modparameters::brhadr_z_ss = Br_Z_ss/Br_Z_hadr

Definition at line 322 of file mod_Parameters.F90.

real(8), public, parameter :: Brhadr_Z_ss = br_z_ss/br_z_hadr                         ! Z branching fraction Ga(str)/Ga(hadronic)

brhadr_z_uu

real(8), parameter, public modparameters::brhadr_z_uu = Br_Z_uu/Br_Z_hadr

Definition at line 319 of file mod_Parameters.F90.

real(8), public, parameter :: Brhadr_Z_uu = br_z_uu/br_z_hadr                         ! Z branching fraction Ga(up)/Ga(hadronic)

brlept_w_en

real(8), parameter, public modparameters::brlept_w_en = Br_W_en/Br_W_ll

Definition at line 315 of file mod_Parameters.F90.

real(8), public, parameter :: Brlept_W_en = br_w_en/br_w_ll                           ! W branching fraction Ga(el)/Ga(leptonic)

brlept_w_mn

real(8), parameter, public modparameters::brlept_w_mn = Br_W_mn/Br_W_ll

Definition at line 316 of file mod_Parameters.F90.

real(8), public, parameter :: Brlept_W_mn = br_w_mn/br_w_ll                           ! W branching fraction Ga(mu)/Ga(leptonic)

brlept_w_tn

real(8), parameter, public modparameters::brlept_w_tn = Br_W_tn/Br_W_ll

Definition at line 317 of file mod_Parameters.F90.

real(8), public, parameter :: Brlept_W_tn = br_w_tn/br_w_ll                           ! W branching fraction Ga(tau)/Ga(leptonic)

brlept_z_ee

real(8), parameter, public modparameters::brlept_z_ee = Br_Z_ee/Br_Z_ll

Definition at line 311 of file mod_Parameters.F90.

real(8), public, parameter :: Brlept_Z_ee = br_z_ee/br_z_ll                           ! Z branching fraction Ga(el)/Ga(leptonic)

brlept_z_mm

real(8), parameter, public modparameters::brlept_z_mm = Br_Z_mm/Br_Z_ll

Definition at line 312 of file mod_Parameters.F90.

real(8), public, parameter :: Brlept_Z_mm = br_z_mm/br_z_ll                           ! Z branching fraction Ga(mu)/Ga(leptonic)

brlept_z_nn

real(8), parameter, public modparameters::brlept_z_nn = Br_Z_nn/Br_Z_inv

Definition at line 314 of file mod_Parameters.F90.

real(8), public, parameter :: Brlept_Z_nn = br_z_nn/br_z_inv                          ! Z branching fraction Ga(neu)/Ga(invisible)

brlept_z_tt

real(8), parameter, public modparameters::brlept_z_tt = Br_Z_tt/Br_Z_ll

Definition at line 313 of file mod_Parameters.F90.

real(8), public, parameter :: Brlept_Z_tt = br_z_tt/br_z_ll                           ! Z branching fraction Ga(tau)/Ga(leptonic)

bzgs1

complex(8), public modparameters::bzgs1 = (0d0, 0d0)

Definition at line 969 of file mod_Parameters.F90.

  complex(8), public :: bzgs1 = (0d0,0d0)

bzgs2

complex(8), public modparameters::bzgs2 = (0d0, 0d0)

Definition at line 970 of file mod_Parameters.F90.

  complex(8), public :: bzgs2 = (0d0,0d0)

bzgs3

complex(8), public modparameters::bzgs3 = (0d0, 0d0)

Definition at line 971 of file mod_Parameters.F90.

  complex(8), public :: bzgs3 = (0d0,0d0)

bzgs4

complex(8), public modparameters::bzgs4 = (0d0, 0d0)

Definition at line 972 of file mod_Parameters.F90.

  complex(8), public :: bzgs4 = (0d0,0d0)

bzgs8

complex(8), public modparameters::bzgs8 = (0d0, 0d0)

Definition at line 973 of file mod_Parameters.F90.

  complex(8), public :: bzgs8 = (0d0,0d0)

bzpgs1

complex(8), public modparameters::bzpgs1 = (0d0, 0d0)

Definition at line 981 of file mod_Parameters.F90.

  complex(8), public :: bzpgs1 = (0d0,0d0)

bzpgs2

complex(8), public modparameters::bzpgs2 = (0d0, 0d0)

Definition at line 982 of file mod_Parameters.F90.

  complex(8), public :: bzpgs2 = (0d0,0d0)

bzpgs3

complex(8), public modparameters::bzpgs3 = (0d0, 0d0)

Definition at line 983 of file mod_Parameters.F90.

  complex(8), public :: bzpgs3 = (0d0,0d0)

bzpgs4

complex(8), public modparameters::bzpgs4 = (0d0, 0d0)

Definition at line 984 of file mod_Parameters.F90.

  complex(8), public :: bzpgs4 = (0d0,0d0)

bzpgs8

complex(8), public modparameters::bzpgs8 = (0d0, 0d0)

Definition at line 985 of file mod_Parameters.F90.

  complex(8), public :: bzpgs8 = (0d0,0d0)

bzpzp1

complex(8), public modparameters::bzpzp1 = (0d0, 0d0)

Definition at line 958 of file mod_Parameters.F90.

  complex(8), public :: bzpzp1 = (0d0,0d0)

bzpzp10

complex(8), public modparameters::bzpzp10 =(0d0, 0d0)

Definition at line 967 of file mod_Parameters.F90.

  complex(8), public :: bzpzp10 =(0d0,0d0)

bzpzp2

complex(8), public modparameters::bzpzp2 = (0d0, 0d0)

Definition at line 959 of file mod_Parameters.F90.

  complex(8), public :: bzpzp2 = (0d0,0d0)

bzpzp3

complex(8), public modparameters::bzpzp3 = (0d0, 0d0)

Definition at line 960 of file mod_Parameters.F90.

  complex(8), public :: bzpzp3 = (0d0,0d0)

bzpzp4

complex(8), public modparameters::bzpzp4 = (0d0, 0d0)

Definition at line 961 of file mod_Parameters.F90.

  complex(8), public :: bzpzp4 = (0d0,0d0)

bzpzp5

complex(8), public modparameters::bzpzp5 = (0d0, 0d0)

Definition at line 962 of file mod_Parameters.F90.

  complex(8), public :: bzpzp5 = (0d0,0d0)

bzpzp6

complex(8), public modparameters::bzpzp6 = (0d0, 0d0)

Definition at line 963 of file mod_Parameters.F90.

  complex(8), public :: bzpzp6 = (0d0,0d0)

bzpzp7

complex(8), public modparameters::bzpzp7 = (0d0, 0d0)

Definition at line 964 of file mod_Parameters.F90.

  complex(8), public :: bzpzp7 = (0d0,0d0)

bzpzp8

complex(8), public modparameters::bzpzp8 = (0d0, 0d0)

Definition at line 965 of file mod_Parameters.F90.

  complex(8), public :: bzpzp8 = (0d0,0d0)

bzpzp9

complex(8), public modparameters::bzpzp9 = (0d0, 0d0)

Definition at line 966 of file mod_Parameters.F90.

  complex(8), public :: bzpzp9 = (0d0,0d0)

bzzp1

complex(8), public modparameters::bzzp1 = (0d0, 0d0)

Definition at line 947 of file mod_Parameters.F90.

  complex(8), public :: bzzp1 = (0d0,0d0)

bzzp10

complex(8), public modparameters::bzzp10 =(0d0, 0d0)

Definition at line 956 of file mod_Parameters.F90.

  complex(8), public :: bzzp10 =(0d0,0d0)

bzzp2

complex(8), public modparameters::bzzp2 = (0d0, 0d0)

Definition at line 948 of file mod_Parameters.F90.

  complex(8), public :: bzzp2 = (0d0,0d0)

bzzp3

complex(8), public modparameters::bzzp3 = (0d0, 0d0)

Definition at line 949 of file mod_Parameters.F90.

  complex(8), public :: bzzp3 = (0d0,0d0)

bzzp4

complex(8), public modparameters::bzzp4 = (0d0, 0d0)

Definition at line 950 of file mod_Parameters.F90.

  complex(8), public :: bzzp4 = (0d0,0d0)

bzzp5

complex(8), public modparameters::bzzp5 = (0d0, 0d0)

Definition at line 951 of file mod_Parameters.F90.

  complex(8), public :: bzzp5 = (0d0,0d0)

bzzp6

complex(8), public modparameters::bzzp6 = (0d0, 0d0)

Definition at line 952 of file mod_Parameters.F90.

  complex(8), public :: bzzp6 = (0d0,0d0)

bzzp7

complex(8), public modparameters::bzzp7 = (0d0, 0d0)

Definition at line 953 of file mod_Parameters.F90.

  complex(8), public :: bzzp7 = (0d0,0d0)

bzzp8

complex(8), public modparameters::bzzp8 = (0d0, 0d0)

Definition at line 954 of file mod_Parameters.F90.

  complex(8), public :: bzzp8 = (0d0,0d0)

bzzp9

complex(8), public modparameters::bzzp9 = (0d0, 0d0)

Definition at line 955 of file mod_Parameters.F90.

  complex(8), public :: bzzp9 = (0d0,0d0)

c1

complex(8), parameter, public modparameters::c1 = (1.0d0, 0d0)

Definition at line 988 of file mod_Parameters.F90.

  complex(8), public, parameter  :: c1 = (1.0d0,0d0)

c2

complex(8), parameter, public modparameters::c2 = (0d0, 0d0)

Definition at line 989 of file mod_Parameters.F90.

  complex(8), public, parameter  :: c2 = (0d0,0d0)

c2w_q12sq

integer, public modparameters::c2w_q12sq = 0

Definition at line 850 of file mod_Parameters.F90.

   integer,    public :: c2w_q12sq = 0

c2w_q1sq

integer, public modparameters::c2w_q1sq = 0

Definition at line 848 of file mod_Parameters.F90.

   integer,    public :: c2w_q1sq = 0 ! Sign of q1,2,12**2 for the following Lambda2's, set to 1 or -1 to get q**2-dependence from these form factor Lambda2s

c2w_q2sq

integer, public modparameters::c2w_q2sq = 0

Definition at line 849 of file mod_Parameters.F90.

   integer,    public :: c2w_q2sq = 0

c2z_q12sq

integer, public modparameters::c2z_q12sq = 0

Definition at line 787 of file mod_Parameters.F90.

   integer,    public :: c2z_q12sq = 0

c2z_q1sq

integer, public modparameters::c2z_q1sq = 0

Definition at line 785 of file mod_Parameters.F90.

   integer,    public :: c2z_q1sq = 0 ! Sign of q1,2,12**2 for the following Lambda2's, set to 1 or -1 to get q**2-dependence from these form factor Lambda2s

c2z_q2sq

integer, public modparameters::c2z_q2sq = 0

Definition at line 786 of file mod_Parameters.F90.

   integer,    public :: c2z_q2sq = 0

c3

complex(8), parameter, public modparameters::c3 = (0d0, 0d0)

Definition at line 990 of file mod_Parameters.F90.

  complex(8), public, parameter  :: c3 = (0d0,0d0)

c41

complex(8), parameter, public modparameters::c41 = (0d0, 0d0)

Definition at line 991 of file mod_Parameters.F90.

  complex(8), public, parameter  :: c41= (0d0,0d0)

c42

complex(8), parameter, public modparameters::c42 = (0d0, 0d0)

Definition at line 992 of file mod_Parameters.F90.

  complex(8), public, parameter  :: c42= (0d0,0d0)

c5

complex(8), parameter, public modparameters::c5 = (0d0, 0d0)

Definition at line 993 of file mod_Parameters.F90.

  complex(8), public, parameter  :: c5 = (0d0,0d0)

c6

complex(8), parameter, public modparameters::c6 = (0d0, 0d0)

Definition at line 994 of file mod_Parameters.F90.

  complex(8), public, parameter  :: c6 = (0d0,0d0) ! this coupling does not contribute to gamma+gamma final states

c7

complex(8), parameter, public modparameters::c7 = (0d0, 0d0)

Definition at line 995 of file mod_Parameters.F90.

  complex(8), public, parameter  :: c7 = (0d0,0d0) ! this coupling does not contribute to gamma+gamma final states

ca

real(dp), parameter, public modparameters::ca = 3.0_dp

Definition at line 1016 of file mod_Parameters.F90.

real(dp), public, parameter :: Ca = 3.0_dp

cf

real(dp), parameter, public modparameters::cf = 4.0_dp/3.0_dp

Definition at line 1017 of file mod_Parameters.F90.

real(dp), public, parameter :: Cf = 4.0_dp/3.0_dp

channels_ratio_fix

real(8), public modparameters::channels_ratio_fix = 0.25d0

Definition at line 170 of file mod_Parameters.F90.

real(8), public :: channels_ratio_fix = 0.25d0   ! desired ratio of  N_qq/(N_qq+N_gg)

chm_

integer, target, public modparameters::chm_ = 3

Definition at line 1086 of file mod_Parameters.F90.

integer, public, target :: Chm_ = 3

ci

complex(8), parameter, public modparameters::ci =(0d0, 1.0d0)

Definition at line 88 of file mod_Parameters.F90.

complex(8), parameter, public :: ci=(0d0,1.0d0)

cl_lep

real(8), public modparameters::cl_lep

Definition at line 1069 of file mod_Parameters.F90.

real(8), public            :: cL_lep ! = -2d0*sitW*dsqrt(1d0-sitW**2)*(-1d0)

cl_neu

real(8), public modparameters::cl_neu

Definition at line 1071 of file mod_Parameters.F90.

real(8), public            :: cL_neu ! = -2d0*sitW*dsqrt(1d0-sitW**2)*(0d0)

cl_qdn

real(8), public modparameters::cl_qdn

Definition at line 1075 of file mod_Parameters.F90.

real(8), public            :: cL_QDn ! = -2d0*sitW*dsqrt(1d0-sitW**2)*(-1d0/3d0)

cl_qup

real(8), public modparameters::cl_qup

Definition at line 1073 of file mod_Parameters.F90.

real(8), public            :: cL_QUp ! = -2d0*sitW*dsqrt(1d0-sitW**2)*(2d0/3d0)

collider

integer, public modparameters::collider

Definition at line 17 of file mod_Parameters.F90.

integer, public :: Collider,PChannel,Process,DecayMode1,DecayMode2,TopDecays,TauDecays

collider_energy

real(8), public modparameters::collider_energy

Definition at line 19 of file mod_Parameters.F90.

real(8), public :: Collider_Energy

cone

complex(8), parameter, public modparameters::cone = 1.0d0

Definition at line 87 of file mod_Parameters.F90.

complex(8), parameter, public :: cone = 1.0d0

convertlhefile

logical, public modparameters::convertlhefile

Definition at line 28 of file mod_Parameters.F90.

counttauasany

logical, public modparameters::counttauasany

Definition at line 29 of file mod_Parameters.F90.

couplaffsq

real(dp), public modparameters::couplaffsq

Definition at line 1081 of file mod_Parameters.F90.

real(dp), public           :: couplAffsq

couplazff

real(dp), public modparameters::couplazff

Definition at line 1080 of file mod_Parameters.F90.

real(dp), public           :: couplAZff

couplwffsq

real(dp), public modparameters::couplwffsq

Definition at line 1078 of file mod_Parameters.F90.

real(dp), public           :: couplWffsq

couplzffsq

real(dp), public modparameters::couplzffsq

Definition at line 1079 of file mod_Parameters.F90.

real(dp), public           :: couplZffsq

cr_lep

real(8), public modparameters::cr_lep

Definition at line 1068 of file mod_Parameters.F90.

real(8), public            :: cR_lep ! = -2d0*sitW*dsqrt(1d0-sitW**2)*(-1d0)

cr_neu

real(8), public modparameters::cr_neu

Definition at line 1070 of file mod_Parameters.F90.

real(8), public            :: cR_neu ! = -2d0*sitW*dsqrt(1d0-sitW**2)*(0d0)

cr_qdn

real(8), public modparameters::cr_qdn

Definition at line 1074 of file mod_Parameters.F90.

real(8), public            :: cR_QDn ! = -2d0*sitW*dsqrt(1d0-sitW**2)*(-1d0/3d0)

cr_qup

real(8), public modparameters::cr_qup

Definition at line 1072 of file mod_Parameters.F90.

real(8), public            :: cR_QUp ! = -2d0*sitW*dsqrt(1d0-sitW**2)*(2d0/3d0)

crosssec

real(8), dimension(-6:+6,-6:+6), public modparameters::crosssec =0

Definition at line 53 of file mod_Parameters.F90.

crosssec2

real(8), dimension(1:nmaxchannels), public modparameters::crosssec2 =0

Definition at line 56 of file mod_Parameters.F90.

real(8), public :: CrossSec2(1:NMAXCHANNELS)=0

crosssecmax

real(8), dimension(-6:+6,-6:+6), public modparameters::crosssecmax =0

Definition at line 53 of file mod_Parameters.F90.

real(8), public :: CrossSecMax(-6:+6,-6:+6)=0,crosssec(-6:+6,-6:+6)=0

crosssecmax2

real(8), dimension(1:nmaxchannels), public modparameters::crosssecmax2 =0

Definition at line 57 of file mod_Parameters.F90.

real(8), public :: CrossSecMax2(1:NMAXCHANNELS)=0

crosssectionwithweights

real(8), public modparameters::crosssectionwithweights = 0d0

Definition at line 147 of file mod_Parameters.F90.

real(8), public :: CrossSectionWithWeights = 0d0, crosssectionwithweightserrorsquared = 0d0

crosssectionwithweightserrorsquared

real(8), public modparameters::crosssectionwithweightserrorsquared = 0d0

Definition at line 147 of file mod_Parameters.F90.

csmaxfile

character(len=500) modparameters::csmaxfile

Definition at line 62 of file mod_Parameters.F90.

character(len=500) :: CSmaxFile

ctauunit

real(8), parameter, public modparameters::ctauunit =milimeter

Definition at line 100 of file mod_Parameters.F90.

real(8), public, parameter :: ctauUnit=milimeter

customlowerscalebound

real(8), public modparameters::customlowerscalebound

Definition at line 21 of file mod_Parameters.F90.

customupperscalebound

real(8), public modparameters::customupperscalebound

Definition at line 21 of file mod_Parameters.F90.

cw_q12sq

integer, public modparameters::cw_q12sq = 0

Definition at line 499 of file mod_Parameters.F90.

   integer,    public :: cw_q12sq = 0

cw_q1sq

integer, public modparameters::cw_q1sq = 0

Definition at line 497 of file mod_Parameters.F90.

   integer,    public :: cw_q1sq = 0 ! Sign of q1,2,12**2 for the following Lambda's, set to 1 or -1 to get q**2-dependence from these form factor Lambdas

cw_q2sq

integer, public modparameters::cw_q2sq = 0

Definition at line 498 of file mod_Parameters.F90.

   integer,    public :: cw_q2sq = 0

cz_q12sq

integer, public modparameters::cz_q12sq = 0

Definition at line 436 of file mod_Parameters.F90.

   integer,    public :: cz_q12sq = 0

cz_q1sq

integer, public modparameters::cz_q1sq = 0

Definition at line 434 of file mod_Parameters.F90.

   integer,    public :: cz_q1sq = 0 ! Sign of q1,2,12**2 for the following Lambda's, set to 1 or -1 to get q**2-dependence from these form factor Lambdas

cz_q2sq

integer, public modparameters::cz_q2sq = 0

Definition at line 435 of file mod_Parameters.F90.

   integer,    public :: cz_q2sq = 0

czero

complex(8), parameter, public modparameters::czero = (0d0, 0d0)

Definition at line 86 of file mod_Parameters.F90.

complex(8), parameter, public :: czero = (0d0,0d0)

daawpwm

complex(8), public modparameters::daawpwm = (1.0d0, 0d0)

Definition at line 874 of file mod_Parameters.F90.

   complex(8),    public :: dAAWpWm= (1.0d0,0d0)

datafile

character(len=500) modparameters::datafile

Definition at line 61 of file mod_Parameters.F90.

character(len=500) :: DataFile

daz_lep_left

real(8), public modparameters::daz_lep_left = (0d0)

Definition at line 999 of file mod_Parameters.F90.

   real(8), public :: daz_Lep_left  = (0d0)

daz_lep_right

real(8), public modparameters::daz_lep_right = (0d0)

Definition at line 1000 of file mod_Parameters.F90.

   real(8), public :: daz_Lep_right  = (0d0)

daz_neu_left

real(8), public modparameters::daz_neu_left = (0d0)

Definition at line 1001 of file mod_Parameters.F90.

   real(8), public :: daz_Neu_left  = (0d0)

daz_neu_right

real(8), public modparameters::daz_neu_right = (0d0)

Definition at line 1002 of file mod_Parameters.F90.

   real(8), public :: daz_Neu_right  = (0d0)

daz_qdn_left

real(8), public modparameters::daz_qdn_left = (0d0)

Definition at line 1005 of file mod_Parameters.F90.

   real(8), public :: daz_QDn_left  = (0d0)

daz_qdn_right

real(8), public modparameters::daz_qdn_right = (0d0)

Definition at line 1006 of file mod_Parameters.F90.

   real(8), public :: daz_QDn_right  = (0d0)

daz_qup_left

real(8), public modparameters::daz_qup_left = (0d0)

Definition at line 1003 of file mod_Parameters.F90.

   real(8), public :: daz_QUp_left  = (0d0)

daz_qup_right

real(8), public modparameters::daz_qup_right = (0d0)

Definition at line 1004 of file mod_Parameters.F90.

   real(8), public :: daz_QUp_right  = (0d0)

debugcounter

integer, dimension(0:10), public modparameters::debugcounter = 0

Definition at line 1148 of file mod_Parameters.F90.

integer, public :: DebugCounter(0:10) = 0

debugvar

real(8), dimension(0:10), public modparameters::debugvar = 0d0

Definition at line 1149 of file mod_Parameters.F90.

real(8), public :: debugvar(0:10) = 0d0

decaymode1

integer, public modparameters::decaymode1

Definition at line 17 of file mod_Parameters.F90.

decaymode2

integer, public modparameters::decaymode2

Definition at line 17 of file mod_Parameters.F90.

defaultseeds

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/)

Definition at line 160 of file mod_Parameters.F90.

integer, public, parameter :: DefaultSeeds(1:nmaxseeds) = (/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/)

detajetcut

real(8), public modparameters::detajetcut = -1d0

Definition at line 207 of file mod_Parameters.F90.

real(8), public :: detajetcut = -1d0                          ! min difference in eta between jets

dfour_a

complex(8), public modparameters::dfour_a = (0.0d0, 0d0)

Definition at line 877 of file mod_Parameters.F90.

   complex(8),    public :: dFour_A= (0.0d0,0d0)

dfour_z

complex(8), public modparameters::dfour_z = (0.0d0, 0d0)

Definition at line 878 of file mod_Parameters.F90.

   complex(8),    public :: dFour_Z= (0.0d0,0d0)

distinguish_hwwcouplings

logical, public modparameters::distinguish_hwwcouplings =.false.

Definition at line 453 of file mod_Parameters.F90.

   logical, public :: distinguish_HWWcouplings=.false.

dm_a

complex(8), public modparameters::dm_a = (1.0d0, 0d0)

Definition at line 870 of file mod_Parameters.F90.

   complex(8),    public :: dM_A= (1.0d0,0d0)

dm_z

complex(8), public modparameters::dm_z = (1.0d0, 0d0)

Definition at line 873 of file mod_Parameters.F90.

   complex(8),    public :: dM_Z= (1.0d0,0d0)

dn_

integer, target, public modparameters::dn_ = 2

Definition at line 1085 of file mod_Parameters.F90.

integer, public, target :: Dn_  = 2

doprintpmzz

logical, public modparameters::doprintpmzz

Definition at line 28 of file mod_Parameters.F90.

dp

integer, parameter, public modparameters::dp = selected_real_kind(15)

Definition at line 11 of file mod_Parameters.F90.

integer, public, parameter :: dp = selected_real_kind(15)

dp_a

complex(8), public modparameters::dp_a = (1.0d0, 0d0)

Definition at line 869 of file mod_Parameters.F90.

   complex(8),    public :: dP_A= (1.0d0,0d0)

dp_z

complex(8), public modparameters::dp_z = (1.0d0, 0d0)

Definition at line 872 of file mod_Parameters.F90.

   complex(8),    public :: dP_Z= (1.0d0,0d0)

dv_a

complex(8), public modparameters::dv_a = (1.0d0, 0d0)

Definition at line 868 of file mod_Parameters.F90.

   complex(8),    public :: dV_A= (1.0d0,0d0)

dv_z

complex(8), public modparameters::dv_z = (1.0d0, 0d0)

Definition at line 871 of file mod_Parameters.F90.

   complex(8),    public :: dV_Z= (1.0d0,0d0)

dzawpwm

complex(8), public modparameters::dzawpwm = (1.0d0, 0d0)

Definition at line 875 of file mod_Parameters.F90.

   complex(8),    public :: dZAWpWm= (1.0d0,0d0)

dzzwpwm

complex(8), public modparameters::dzzwpwm = (1.0d0, 0d0)

Definition at line 876 of file mod_Parameters.F90.

   complex(8),    public :: dZZWpWm= (1.0d0,0d0)

elm_

integer, target, public modparameters::elm_ = -7

Definition at line 1112 of file mod_Parameters.F90.

integer, public, target :: ElM_  = -7

elp_

integer, target, public modparameters::elp_ = 7

Definition at line 1090 of file mod_Parameters.F90.

integer, public, target :: ElP_ = 7

esq

real(dp), public modparameters::esq

Definition at line 251 of file mod_Parameters.F90.

real(dp), public           :: esq ! = 4.0d0 * pi * alpha_QED  ! Fundamental charge

etajetcut

real(8), public modparameters::etajetcut = -1d0

Definition at line 206 of file mod_Parameters.F90.

real(8), public :: etajetcut = -1d0                           ! jet max |eta|

etalepcut

real(8), public modparameters::etalepcut = 999d0

Definition at line 217 of file mod_Parameters.F90.

real(8), public :: etalepcut = 999d0                           ! lepton max |eta|

ev

real(8), parameter, public modparameters::ev =1d-9*GeV

Definition at line 97 of file mod_Parameters.F90.

real(8), public, parameter :: eV=1d-9*gev

evalcounter

integer(8), public modparameters::evalcounter =0

Definition at line 48 of file mod_Parameters.F90.

integer(8), public :: EvalCounter=0

ewp_chm_left

complex(8), public modparameters::ewp_chm_left = (0d0, 0d0)

Definition at line 707 of file mod_Parameters.F90.

   complex(8), public :: ewp_Chm_left  = (0d0,0d0)

ewp_chm_right

complex(8), public modparameters::ewp_chm_right = (0d0, 0d0)

Definition at line 708 of file mod_Parameters.F90.

   complex(8), public :: ewp_Chm_right  = (0d0,0d0)

ewp_el_left

complex(8), public modparameters::ewp_el_left = (0d0, 0d0)

Definition at line 699 of file mod_Parameters.F90.

   complex(8), public :: ewp_El_left  = (0d0,0d0)

ewp_el_right

complex(8), public modparameters::ewp_el_right = (0d0, 0d0)

Definition at line 700 of file mod_Parameters.F90.

   complex(8), public :: ewp_El_right  = (0d0,0d0)

ewp_mu_left

complex(8), public modparameters::ewp_mu_left = (0d0, 0d0)

Definition at line 701 of file mod_Parameters.F90.

   complex(8), public :: ewp_Mu_left  = (0d0,0d0)

ewp_mu_right

complex(8), public modparameters::ewp_mu_right = (0d0, 0d0)

Definition at line 702 of file mod_Parameters.F90.

   complex(8), public :: ewp_Mu_right  = (0d0,0d0)

ewp_ta_left

complex(8), public modparameters::ewp_ta_left = (0d0, 0d0)

Definition at line 703 of file mod_Parameters.F90.

   complex(8), public :: ewp_Ta_left  = (0d0,0d0)

ewp_ta_right

complex(8), public modparameters::ewp_ta_right = (0d0, 0d0)

Definition at line 704 of file mod_Parameters.F90.

   complex(8), public :: ewp_Ta_right  = (0d0,0d0)

ewp_top_left

complex(8), public modparameters::ewp_top_left = (0d0, 0d0)

Definition at line 709 of file mod_Parameters.F90.

   complex(8), public :: ewp_Top_left  = (0d0,0d0)

ewp_top_right

complex(8), public modparameters::ewp_top_right = (0d0, 0d0)

Definition at line 710 of file mod_Parameters.F90.

   complex(8), public :: ewp_Top_right  = (0d0,0d0)

ewp_up_left

complex(8), public modparameters::ewp_up_left = (0d0, 0d0)

Definition at line 705 of file mod_Parameters.F90.

   complex(8), public :: ewp_Up_left  = (0d0,0d0)

ewp_up_right

complex(8), public modparameters::ewp_up_right = (0d0, 0d0)

Definition at line 706 of file mod_Parameters.F90.

   complex(8), public :: ewp_Up_right  = (0d0,0d0)

ezp_bot_left

complex(8), public modparameters::ezp_bot_left = (0d0, 0d0)

Definition at line 614 of file mod_Parameters.F90.

   complex(8), public :: ezp_Bot_left  = (0d0,0d0)

ezp_bot_right

complex(8), public modparameters::ezp_bot_right = (0d0, 0d0)

Definition at line 615 of file mod_Parameters.F90.

   complex(8), public :: ezp_Bot_right  = (0d0,0d0)

ezp_chm_left

complex(8), public modparameters::ezp_chm_left = (0d0, 0d0)

Definition at line 608 of file mod_Parameters.F90.

   complex(8), public :: ezp_Chm_left  = (0d0,0d0)

ezp_chm_right

complex(8), public modparameters::ezp_chm_right = (0d0, 0d0)

Definition at line 609 of file mod_Parameters.F90.

   complex(8), public :: ezp_Chm_right  = (0d0,0d0)

ezp_dn_left

complex(8), public modparameters::ezp_dn_left = (0d0, 0d0)

Definition at line 610 of file mod_Parameters.F90.

   complex(8), public :: ezp_Dn_left  = (0d0,0d0)

ezp_dn_right

complex(8), public modparameters::ezp_dn_right = (0d0, 0d0)

Definition at line 611 of file mod_Parameters.F90.

   complex(8), public :: ezp_Dn_right  = (0d0,0d0)

ezp_el_left

complex(8), public modparameters::ezp_el_left = (0d0, 0d0)

Definition at line 598 of file mod_Parameters.F90.

   complex(8), public :: ezp_El_left  = (0d0,0d0)

ezp_el_right

complex(8), public modparameters::ezp_el_right = (0d0, 0d0)

Definition at line 599 of file mod_Parameters.F90.

   complex(8), public :: ezp_El_right  = (0d0,0d0)

ezp_mu_left

complex(8), public modparameters::ezp_mu_left = (0d0, 0d0)

Definition at line 600 of file mod_Parameters.F90.

   complex(8), public :: ezp_Mu_left  = (0d0,0d0)

ezp_mu_right

complex(8), public modparameters::ezp_mu_right = (0d0, 0d0)

Definition at line 601 of file mod_Parameters.F90.

   complex(8), public :: ezp_Mu_right  = (0d0,0d0)

ezp_nue_left

complex(8), public modparameters::ezp_nue_left = (0d0, 0d0)

Definition at line 604 of file mod_Parameters.F90.

   complex(8), public :: ezp_NuE_left  = (0d0,0d0)   !same for NuMu and NuTau

ezp_nue_right

complex(8), public modparameters::ezp_nue_right = (0d0, 0d0)

Definition at line 605 of file mod_Parameters.F90.

   complex(8), public :: ezp_NuE_right  = (0d0,0d0)  !same for NuMu and NuTau

ezp_str_left

complex(8), public modparameters::ezp_str_left = (0d0, 0d0)

Definition at line 612 of file mod_Parameters.F90.

   complex(8), public :: ezp_Str_left  = (0d0,0d0)

ezp_str_right

complex(8), public modparameters::ezp_str_right = (0d0, 0d0)

Definition at line 613 of file mod_Parameters.F90.

   complex(8), public :: ezp_Str_right  = (0d0,0d0)

ezp_ta_left

complex(8), public modparameters::ezp_ta_left = (0d0, 0d0)

Definition at line 602 of file mod_Parameters.F90.

   complex(8), public :: ezp_Ta_left  = (0d0,0d0)

ezp_ta_right

complex(8), public modparameters::ezp_ta_right = (0d0, 0d0)

Definition at line 603 of file mod_Parameters.F90.

   complex(8), public :: ezp_Ta_right  = (0d0,0d0)

ezp_top_left

complex(8), public modparameters::ezp_top_left = (0d0, 0d0)

Definition at line 616 of file mod_Parameters.F90.

   complex(8), public :: ezp_Top_left  = (0d0,0d0)

ezp_top_right

complex(8), public modparameters::ezp_top_right = (0d0, 0d0)

Definition at line 617 of file mod_Parameters.F90.

   complex(8), public :: ezp_Top_right  = (0d0,0d0)

ezp_up_left

complex(8), public modparameters::ezp_up_left = (0d0, 0d0)

Definition at line 606 of file mod_Parameters.F90.

   complex(8), public :: ezp_Up_left  = (0d0,0d0)

ezp_up_right

complex(8), public modparameters::ezp_up_right = (0d0, 0d0)

Definition at line 607 of file mod_Parameters.F90.

   complex(8), public :: ezp_Up_right  = (0d0,0d0)

facscheme

integer, public modparameters::facscheme

Definition at line 20 of file mod_Parameters.F90.

integer, public :: FacScheme,RenScheme

femtobarn

real(8), parameter, public modparameters::femtobarn =1e-15*barn

Definition at line 103 of file mod_Parameters.F90.

real(8), public, parameter :: femtobarn=1e-15*barn

filesopened

logical, public modparameters::filesopened = .false.

Definition at line 31 of file mod_Parameters.F90.

logical, public :: FilesOpened = .false.

findcrosssectionwithweights

logical, public modparameters::findcrosssectionwithweights = .false.

Definition at line 145 of file mod_Parameters.F90.

logical, public :: FindCrossSectionWithWeights = .false.

fix_channels_ratio

logical, public modparameters::fix_channels_ratio = .false.

Definition at line 168 of file mod_Parameters.F90.

logical, public :: fix_channels_ratio = .false.

foundhiggsmass

logical, public modparameters::foundhiggsmass

Definition at line 29 of file mod_Parameters.F90.

foundhiggswidth

logical, public modparameters::foundhiggswidth

Definition at line 29 of file mod_Parameters.F90.

ga_reso

real(8), public modparameters::ga_reso = 0.00407d0 *GeV

Definition at line 231 of file mod_Parameters.F90.

real(8), public            :: Ga_Reso = 0.00407d0 *gev      ! X resonance width

ga_reso2

real(8), public modparameters::ga_reso2 = 0d0 *GeV

Definition at line 233 of file mod_Parameters.F90.

real(8), public            :: Ga_Reso2= 0d0       *gev      ! second resonance width

ga_tau

real(8), public modparameters::ga_tau = 2.267d-12 *GeV

Definition at line 243 of file mod_Parameters.F90.

real(8), public            :: Ga_tau = 2.267d-12   *gev     ! tau width

ga_top

real(8), public modparameters::ga_top = 2.0d0 *GeV

Definition at line 225 of file mod_Parameters.F90.

real(8), public            :: Ga_Top  = 2.0d0     *gev      ! top quark width

ga_v

real(8), public modparameters::ga_v

Definition at line 78 of file mod_Parameters.F90.

ga_v_ps

real(8), public modparameters::ga_v_ps

Definition at line 78 of file mod_Parameters.F90.

ga_vprime

real(8), public modparameters::ga_vprime

Definition at line 78 of file mod_Parameters.F90.

ga_w

real(8), public modparameters::ga_w = 2.085d0 *GeV

Definition at line 229 of file mod_Parameters.F90.

real(8), public            :: Ga_W    = 2.085d0   *gev      ! W boson width(PDG-2011)

ga_w_ps

real(8), public modparameters::ga_w_ps

Definition at line 78 of file mod_Parameters.F90.

ga_wprime

real(8), public modparameters::ga_wprime = 0d0

Definition at line 713 of file mod_Parameters.F90.

   real(8), public :: Ga_Wprime = 0d0

ga_z

real(8), public modparameters::ga_z = 2.4952d0 *GeV

Definition at line 227 of file mod_Parameters.F90.

real(8), public            :: Ga_Z    = 2.4952d0  *gev      ! Z boson width(PDG-2011)

ga_z_ps

real(8), public modparameters::ga_z_ps

Definition at line 78 of file mod_Parameters.F90.

ga_zprime

real(8), public modparameters::ga_zprime = 0d0

Definition at line 620 of file mod_Parameters.F90.

   real(8), public :: Ga_Zprime = 0d0

gabarh

real(8), public modparameters::gabarh = -999d0

Definition at line 134 of file mod_Parameters.F90.

real(8), public :: gabarH = -999d0   !for CPS

gamma_0

real(dp), parameter, public modparameters::gamma_0 = 0.5772156649015328606065120900824024310421_dp

Definition at line 81 of file mod_Parameters.F90.

real(dp), public, parameter :: gamma_0 = 0.5772156649015328606065120900824024310421_dp  !Euler–Mascheroni constant

generate_as

logical, parameter, public modparameters::generate_as = .false.

Definition at line 361 of file mod_Parameters.F90.

   logical, public, parameter :: generate_as = .false. ! .true. uses ah* instead of gh*

generate_bis

logical, parameter, public modparameters::generate_bis = .true.

Definition at line 932 of file mod_Parameters.F90.

  logical, public, parameter :: generate_bis = .true.

generateevents

logical, public modparameters::generateevents

Definition at line 29 of file mod_Parameters.F90.

gev

real(8), parameter, public modparameters::gev =1d0/100d0

Definition at line 93 of file mod_Parameters.F90.

real(8), public, parameter :: GeV=1d0/100d0 ! we are using units of 100GeV, i.e. Lambda=10 is 1TeV

gf

real(8), public modparameters::gf = 1.16639d-5/GeV**2

Definition at line 247 of file mod_Parameters.F90.

real(8), public            :: Gf = 1.16639d-5/gev**2        ! Fermi constant

ggmode

integer, parameter, public modparameters::ggmode =07

Definition at line 13 of file mod_Parameters.F90.

gh2g2

complex(8), public modparameters::gh2g2 = (0d0, 0d0)

Definition at line 721 of file mod_Parameters.F90.

   complex(8), public :: gh2g2 = (0d0,0d0)

gh2g2_4gen

complex(8), public modparameters::gh2g2_4gen = (0d0, 0d0)

Definition at line 726 of file mod_Parameters.F90.

   complex(8), public :: gh2g2_4gen = (0d0,0d0)

gh2g3

complex(8), public modparameters::gh2g3 = (0d0, 0d0)

Definition at line 722 of file mod_Parameters.F90.

   complex(8), public :: gh2g3 = (0d0,0d0)

gh2g3_4gen

complex(8), public modparameters::gh2g3_4gen = (0d0, 0d0)

Definition at line 727 of file mod_Parameters.F90.

   complex(8), public :: gh2g3_4gen = (0d0,0d0)

gh2g4

complex(8), public modparameters::gh2g4 = (0d0, 0d0)

Definition at line 723 of file mod_Parameters.F90.

   complex(8), public :: gh2g4 = (0d0,0d0)   ! pseudoscalar

gh2g4_4gen

complex(8), public modparameters::gh2g4_4gen = (0d0, 0d0)

Definition at line 728 of file mod_Parameters.F90.

   complex(8), public :: gh2g4_4gen = (0d0,0d0)

gh2gsgs2

complex(8), public modparameters::gh2gsgs2 = (0.00d0, 0d0)

Definition at line 739 of file mod_Parameters.F90.

   complex(8), public :: gh2gsgs2 = (0.00d0,0d0)

gh2gsgs3

complex(8), public modparameters::gh2gsgs3 = (0.00d0, 0d0)

Definition at line 740 of file mod_Parameters.F90.

   complex(8), public :: gh2gsgs3 = (0.00d0,0d0)

gh2gsgs4

complex(8), public modparameters::gh2gsgs4 = (0.00d0, 0d0)

Definition at line 741 of file mod_Parameters.F90.

   complex(8), public :: gh2gsgs4 = (0.00d0,0d0)

gh2w1

complex(8), public modparameters::gh2w1 = (0.0d0, 0d0)

Definition at line 805 of file mod_Parameters.F90.

   complex(8), public :: gh2w1 = (0.0d0,0d0)

gh2w1_prime

complex(8), public modparameters::gh2w1_prime = (0.0d0, 0d0)

Definition at line 811 of file mod_Parameters.F90.

   complex(8), public :: gh2w1_prime = (0.0d0,0d0)

gh2w1_prime2

complex(8), public modparameters::gh2w1_prime2 = (0.0d0, 0d0)

Definition at line 812 of file mod_Parameters.F90.

   complex(8), public :: gh2w1_prime2= (0.0d0,0d0)

gh2w1_prime3

complex(8), public modparameters::gh2w1_prime3 = (0.0d0, 0d0)

Definition at line 813 of file mod_Parameters.F90.

   complex(8), public :: gh2w1_prime3= (0.0d0,0d0)

gh2w1_prime4

complex(8), public modparameters::gh2w1_prime4 = (0.0d0, 0d0)

Definition at line 814 of file mod_Parameters.F90.

   complex(8), public :: gh2w1_prime4= (0.0d0,0d0)

gh2w1_prime5

complex(8), public modparameters::gh2w1_prime5 = (0.0d0, 0d0)

Definition at line 815 of file mod_Parameters.F90.

   complex(8), public :: gh2w1_prime5= (0.0d0,0d0)

gh2w1_prime6

complex(8), public modparameters::gh2w1_prime6 = (0.0d0, 0d0)

Definition at line 816 of file mod_Parameters.F90.

   complex(8), public :: gh2w1_prime6= (0.0d0,0d0)

gh2w1_prime7

complex(8), public modparameters::gh2w1_prime7 = (0.0d0, 0d0)

Definition at line 817 of file mod_Parameters.F90.

   complex(8), public :: gh2w1_prime7= (0.0d0,0d0)

gh2w2

complex(8), public modparameters::gh2w2 = (0.0d0, 0d0)

Definition at line 806 of file mod_Parameters.F90.

   complex(8), public :: gh2w2 = (0.0d0,0d0)

gh2w2_prime

complex(8), public modparameters::gh2w2_prime = (0.0d0, 0d0)

Definition at line 819 of file mod_Parameters.F90.

   complex(8), public :: gh2w2_prime = (0.0d0,0d0)

gh2w2_prime2

complex(8), public modparameters::gh2w2_prime2 = (0.0d0, 0d0)

Definition at line 820 of file mod_Parameters.F90.

   complex(8), public :: gh2w2_prime2= (0.0d0,0d0)

gh2w2_prime3

complex(8), public modparameters::gh2w2_prime3 = (0.0d0, 0d0)

Definition at line 821 of file mod_Parameters.F90.

   complex(8), public :: gh2w2_prime3= (0.0d0,0d0)

gh2w2_prime4

complex(8), public modparameters::gh2w2_prime4 = (0.0d0, 0d0)

Definition at line 822 of file mod_Parameters.F90.

   complex(8), public :: gh2w2_prime4= (0.0d0,0d0)

gh2w2_prime5

complex(8), public modparameters::gh2w2_prime5 = (0.0d0, 0d0)

Definition at line 823 of file mod_Parameters.F90.

   complex(8), public :: gh2w2_prime5= (0.0d0,0d0)

gh2w2_prime6

complex(8), public modparameters::gh2w2_prime6 = (0.0d0, 0d0)

Definition at line 824 of file mod_Parameters.F90.

   complex(8), public :: gh2w2_prime6= (0.0d0,0d0)

gh2w2_prime7

complex(8), public modparameters::gh2w2_prime7 = (0.0d0, 0d0)

Definition at line 825 of file mod_Parameters.F90.

   complex(8), public :: gh2w2_prime7= (0.0d0,0d0)

gh2w3

complex(8), public modparameters::gh2w3 = (0.0d0, 0d0)

Definition at line 807 of file mod_Parameters.F90.

   complex(8), public :: gh2w3 = (0.0d0,0d0)

gh2w3_prime

complex(8), public modparameters::gh2w3_prime = (0.0d0, 0d0)

Definition at line 827 of file mod_Parameters.F90.

   complex(8), public :: gh2w3_prime = (0.0d0,0d0)

gh2w3_prime2

complex(8), public modparameters::gh2w3_prime2 = (0.0d0, 0d0)

Definition at line 828 of file mod_Parameters.F90.

   complex(8), public :: gh2w3_prime2= (0.0d0,0d0)

gh2w3_prime3

complex(8), public modparameters::gh2w3_prime3 = (0.0d0, 0d0)

Definition at line 829 of file mod_Parameters.F90.

   complex(8), public :: gh2w3_prime3= (0.0d0,0d0)

gh2w3_prime4

complex(8), public modparameters::gh2w3_prime4 = (0.0d0, 0d0)

Definition at line 830 of file mod_Parameters.F90.

   complex(8), public :: gh2w3_prime4= (0.0d0,0d0)

gh2w3_prime5

complex(8), public modparameters::gh2w3_prime5 = (0.0d0, 0d0)

Definition at line 831 of file mod_Parameters.F90.

   complex(8), public :: gh2w3_prime5= (0.0d0,0d0)

gh2w3_prime6

complex(8), public modparameters::gh2w3_prime6 = (0.0d0, 0d0)

Definition at line 832 of file mod_Parameters.F90.

   complex(8), public :: gh2w3_prime6= (0.0d0,0d0)

gh2w3_prime7

complex(8), public modparameters::gh2w3_prime7 = (0.0d0, 0d0)

Definition at line 833 of file mod_Parameters.F90.

   complex(8), public :: gh2w3_prime7= (0.0d0,0d0)

gh2w4

complex(8), public modparameters::gh2w4 = (0.0d0, 0d0)

Definition at line 808 of file mod_Parameters.F90.

   complex(8), public :: gh2w4 = (0.0d0,0d0)

gh2w4_prime

complex(8), public modparameters::gh2w4_prime = (0.0d0, 0d0)

Definition at line 835 of file mod_Parameters.F90.

   complex(8), public :: gh2w4_prime = (0.0d0,0d0)

gh2w4_prime2

complex(8), public modparameters::gh2w4_prime2 = (0.0d0, 0d0)

Definition at line 836 of file mod_Parameters.F90.

   complex(8), public :: gh2w4_prime2= (0.0d0,0d0)

gh2w4_prime3

complex(8), public modparameters::gh2w4_prime3 = (0.0d0, 0d0)

Definition at line 837 of file mod_Parameters.F90.

   complex(8), public :: gh2w4_prime3= (0.0d0,0d0)

gh2w4_prime4

complex(8), public modparameters::gh2w4_prime4 = (0.0d0, 0d0)

Definition at line 838 of file mod_Parameters.F90.

   complex(8), public :: gh2w4_prime4= (0.0d0,0d0)

gh2w4_prime5

complex(8), public modparameters::gh2w4_prime5 = (0.0d0, 0d0)

Definition at line 839 of file mod_Parameters.F90.

   complex(8), public :: gh2w4_prime5= (0.0d0,0d0)

gh2w4_prime6

complex(8), public modparameters::gh2w4_prime6 = (0.0d0, 0d0)

Definition at line 840 of file mod_Parameters.F90.

   complex(8), public :: gh2w4_prime6= (0.0d0,0d0)

gh2w4_prime7

complex(8), public modparameters::gh2w4_prime7 = (0.0d0, 0d0)

Definition at line 841 of file mod_Parameters.F90.

   complex(8), public :: gh2w4_prime7= (0.0d0,0d0)

gh2z1

complex(8), public modparameters::gh2z1 = (0.0d0, 0d0)

Definition at line 731 of file mod_Parameters.F90.

   complex(8), public :: gh2z1 = (0.0d0,0d0)

gh2z1_prime

complex(8), public modparameters::gh2z1_prime = (0.0d0, 0d0)

Definition at line 744 of file mod_Parameters.F90.

   complex(8), public :: gh2z1_prime = (0.0d0,0d0)

gh2z1_prime2

complex(8), public modparameters::gh2z1_prime2 = (0.0d0, 0d0)

Definition at line 745 of file mod_Parameters.F90.

   complex(8), public :: gh2z1_prime2= (0.0d0,0d0)

gh2z1_prime3

complex(8), public modparameters::gh2z1_prime3 = (0.0d0, 0d0)

Definition at line 746 of file mod_Parameters.F90.

   complex(8), public :: gh2z1_prime3= (0.0d0,0d0)

gh2z1_prime4

complex(8), public modparameters::gh2z1_prime4 = (0.0d0, 0d0)

Definition at line 747 of file mod_Parameters.F90.

   complex(8), public :: gh2z1_prime4= (0.0d0,0d0)

gh2z1_prime5

complex(8), public modparameters::gh2z1_prime5 = (0.0d0, 0d0)

Definition at line 748 of file mod_Parameters.F90.

   complex(8), public :: gh2z1_prime5= (0.0d0,0d0)

gh2z1_prime6

complex(8), public modparameters::gh2z1_prime6 = (0.0d0, 0d0)

Definition at line 749 of file mod_Parameters.F90.

   complex(8), public :: gh2z1_prime6= (0.0d0,0d0)

gh2z1_prime7

complex(8), public modparameters::gh2z1_prime7 = (0.0d0, 0d0)

Definition at line 750 of file mod_Parameters.F90.

   complex(8), public :: gh2z1_prime7= (0.0d0,0d0)

gh2z2

complex(8), public modparameters::gh2z2 = (0.0d0, 0d0)

Definition at line 732 of file mod_Parameters.F90.

   complex(8), public :: gh2z2 = (0.0d0,0d0)

gh2z2_prime

complex(8), public modparameters::gh2z2_prime = (0.0d0, 0d0)

Definition at line 752 of file mod_Parameters.F90.

   complex(8), public :: gh2z2_prime = (0.0d0,0d0)

gh2z2_prime2

complex(8), public modparameters::gh2z2_prime2 = (0.0d0, 0d0)

Definition at line 753 of file mod_Parameters.F90.

   complex(8), public :: gh2z2_prime2= (0.0d0,0d0)

gh2z2_prime3

complex(8), public modparameters::gh2z2_prime3 = (0.0d0, 0d0)

Definition at line 754 of file mod_Parameters.F90.

   complex(8), public :: gh2z2_prime3= (0.0d0,0d0)

gh2z2_prime4

complex(8), public modparameters::gh2z2_prime4 = (0.0d0, 0d0)

Definition at line 755 of file mod_Parameters.F90.

   complex(8), public :: gh2z2_prime4= (0.0d0,0d0)

gh2z2_prime5

complex(8), public modparameters::gh2z2_prime5 = (0.0d0, 0d0)

Definition at line 756 of file mod_Parameters.F90.

   complex(8), public :: gh2z2_prime5= (0.0d0,0d0)

gh2z2_prime6

complex(8), public modparameters::gh2z2_prime6 = (0.0d0, 0d0)

Definition at line 757 of file mod_Parameters.F90.

   complex(8), public :: gh2z2_prime6= (0.0d0,0d0)

gh2z2_prime7

complex(8), public modparameters::gh2z2_prime7 = (0.0d0, 0d0)

Definition at line 758 of file mod_Parameters.F90.

   complex(8), public :: gh2z2_prime7= (0.0d0,0d0)

gh2z3

complex(8), public modparameters::gh2z3 = (0.0d0, 0d0)

Definition at line 733 of file mod_Parameters.F90.

   complex(8), public :: gh2z3 = (0.0d0,0d0)

gh2z3_prime

complex(8), public modparameters::gh2z3_prime = (0.0d0, 0d0)

Definition at line 760 of file mod_Parameters.F90.

   complex(8), public :: gh2z3_prime = (0.0d0,0d0)

gh2z3_prime2

complex(8), public modparameters::gh2z3_prime2 = (0.0d0, 0d0)

Definition at line 761 of file mod_Parameters.F90.

   complex(8), public :: gh2z3_prime2= (0.0d0,0d0)

gh2z3_prime3

complex(8), public modparameters::gh2z3_prime3 = (0.0d0, 0d0)

Definition at line 762 of file mod_Parameters.F90.

   complex(8), public :: gh2z3_prime3= (0.0d0,0d0)

gh2z3_prime4

complex(8), public modparameters::gh2z3_prime4 = (0.0d0, 0d0)

Definition at line 763 of file mod_Parameters.F90.

   complex(8), public :: gh2z3_prime4= (0.0d0,0d0)

gh2z3_prime5

complex(8), public modparameters::gh2z3_prime5 = (0.0d0, 0d0)

Definition at line 764 of file mod_Parameters.F90.

   complex(8), public :: gh2z3_prime5= (0.0d0,0d0)

gh2z3_prime6

complex(8), public modparameters::gh2z3_prime6 = (0.0d0, 0d0)

Definition at line 765 of file mod_Parameters.F90.

   complex(8), public :: gh2z3_prime6= (0.0d0,0d0)

gh2z3_prime7

complex(8), public modparameters::gh2z3_prime7 = (0.0d0, 0d0)

Definition at line 766 of file mod_Parameters.F90.

   complex(8), public :: gh2z3_prime7= (0.0d0,0d0)

gh2z4

complex(8), public modparameters::gh2z4 = (0.0d0, 0d0)

Definition at line 734 of file mod_Parameters.F90.

   complex(8), public :: gh2z4 = (0.0d0,0d0)   ! pseudoscalar

gh2z4_prime

complex(8), public modparameters::gh2z4_prime = (0.0d0, 0d0)

Definition at line 768 of file mod_Parameters.F90.

   complex(8), public :: gh2z4_prime = (0.0d0,0d0)

gh2z4_prime2

complex(8), public modparameters::gh2z4_prime2 = (0.0d0, 0d0)

Definition at line 769 of file mod_Parameters.F90.

   complex(8), public :: gh2z4_prime2= (0.0d0,0d0)

gh2z4_prime3

complex(8), public modparameters::gh2z4_prime3 = (0.0d0, 0d0)

Definition at line 770 of file mod_Parameters.F90.

   complex(8), public :: gh2z4_prime3= (0.0d0,0d0)

gh2z4_prime4

complex(8), public modparameters::gh2z4_prime4 = (0.0d0, 0d0)

Definition at line 771 of file mod_Parameters.F90.

   complex(8), public :: gh2z4_prime4= (0.0d0,0d0)

gh2z4_prime5

complex(8), public modparameters::gh2z4_prime5 = (0.0d0, 0d0)

Definition at line 772 of file mod_Parameters.F90.

   complex(8), public :: gh2z4_prime5= (0.0d0,0d0)

gh2z4_prime6

complex(8), public modparameters::gh2z4_prime6 = (0.0d0, 0d0)

Definition at line 773 of file mod_Parameters.F90.

   complex(8), public :: gh2z4_prime6= (0.0d0,0d0)

gh2z4_prime7

complex(8), public modparameters::gh2z4_prime7 = (0.0d0, 0d0)

Definition at line 774 of file mod_Parameters.F90.

   complex(8), public :: gh2z4_prime7= (0.0d0,0d0)

gh2zgs1_prime2

complex(8), public modparameters::gh2zgs1_prime2 = (0.0d0, 0d0)

Definition at line 776 of file mod_Parameters.F90.

   complex(8), public :: gh2zgs1_prime2= (0.0d0,0d0)

gh2zgs2

complex(8), public modparameters::gh2zgs2 = (0.00d0, 0d0)

Definition at line 736 of file mod_Parameters.F90.

   complex(8), public :: gh2zgs2  = (0.00d0,0d0)

gh2zgs3

complex(8), public modparameters::gh2zgs3 = (0.00d0, 0d0)

Definition at line 737 of file mod_Parameters.F90.

   complex(8), public :: gh2zgs3  = (0.00d0,0d0)

gh2zgs4

complex(8), public modparameters::gh2zgs4 = (0.00d0, 0d0)

Definition at line 738 of file mod_Parameters.F90.

   complex(8), public :: gh2zgs4  = (0.00d0,0d0)

ghg2

complex(8), public modparameters::ghg2 = (1.0d0, 0d0)

Definition at line 371 of file mod_Parameters.F90.

   complex(8), public :: ghg2 = (1.0d0,0d0)

ghg2_4gen

complex(8), public modparameters::ghg2_4gen = (0d0, 0d0)

Definition at line 376 of file mod_Parameters.F90.

   complex(8), public :: ghg2_4gen = (0d0,0d0)

ghg3

complex(8), public modparameters::ghg3 = (0d0, 0d0)

Definition at line 372 of file mod_Parameters.F90.

   complex(8), public :: ghg3 = (0d0,0d0)

ghg3_4gen

complex(8), public modparameters::ghg3_4gen = (0d0, 0d0)

Definition at line 377 of file mod_Parameters.F90.

   complex(8), public :: ghg3_4gen = (0d0,0d0)

ghg4

complex(8), public modparameters::ghg4 = (0d0, 0d0)

Definition at line 373 of file mod_Parameters.F90.

   complex(8), public :: ghg4 = (0d0,0d0)   ! pseudoscalar

ghg4_4gen

complex(8), public modparameters::ghg4_4gen = (0d0, 0d0)

Definition at line 378 of file mod_Parameters.F90.

   complex(8), public :: ghg4_4gen = (0d0,0d0)

ghgsgs2

complex(8), public modparameters::ghgsgs2 = (0d0, 0d0)

Definition at line 423 of file mod_Parameters.F90.

   complex(8), public :: ghgsgs2 = (0d0,0d0)

ghgsgs3

complex(8), public modparameters::ghgsgs3 = (0d0, 0d0)

Definition at line 424 of file mod_Parameters.F90.

   complex(8), public :: ghgsgs3 = (0d0,0d0)

ghgsgs4

complex(8), public modparameters::ghgsgs4 = (0d0, 0d0)

Definition at line 425 of file mod_Parameters.F90.

   complex(8), public :: ghgsgs4 = (0d0,0d0)

ghw1

complex(8), public modparameters::ghw1 = (0d0, 0d0)

Definition at line 454 of file mod_Parameters.F90.

   complex(8), public :: ghw1 = (0d0,0d0)

ghw1_prime

complex(8), public modparameters::ghw1_prime = (0d0, 0d0)

Definition at line 460 of file mod_Parameters.F90.

   complex(8), public :: ghw1_prime = (0d0,0d0)

ghw1_prime2

complex(8), public modparameters::ghw1_prime2 = (0d0, 0d0)

Definition at line 461 of file mod_Parameters.F90.

   complex(8), public :: ghw1_prime2= (0d0,0d0)

ghw1_prime3

complex(8), public modparameters::ghw1_prime3 = (0d0, 0d0)

Definition at line 462 of file mod_Parameters.F90.

   complex(8), public :: ghw1_prime3= (0d0,0d0)

ghw1_prime4

complex(8), public modparameters::ghw1_prime4 = (0d0, 0d0)

Definition at line 463 of file mod_Parameters.F90.

   complex(8), public :: ghw1_prime4= (0d0,0d0)

ghw1_prime5

complex(8), public modparameters::ghw1_prime5 = (0d0, 0d0)

Definition at line 464 of file mod_Parameters.F90.

   complex(8), public :: ghw1_prime5= (0d0,0d0)

ghw1_prime6

complex(8), public modparameters::ghw1_prime6 = (0d0, 0d0)

Definition at line 465 of file mod_Parameters.F90.

   complex(8), public :: ghw1_prime6= (0d0,0d0)

ghw1_prime7

complex(8), public modparameters::ghw1_prime7 = (0d0, 0d0)

Definition at line 466 of file mod_Parameters.F90.

   complex(8), public :: ghw1_prime7= (0d0,0d0)

ghw2

complex(8), public modparameters::ghw2 = (0d0, 0d0)

Definition at line 455 of file mod_Parameters.F90.

   complex(8), public :: ghw2 = (0d0,0d0)

ghw2_prime

complex(8), public modparameters::ghw2_prime = (0d0, 0d0)

Definition at line 468 of file mod_Parameters.F90.

   complex(8), public :: ghw2_prime = (0d0,0d0)

ghw2_prime2

complex(8), public modparameters::ghw2_prime2 = (0d0, 0d0)

Definition at line 469 of file mod_Parameters.F90.

   complex(8), public :: ghw2_prime2= (0d0,0d0)

ghw2_prime3

complex(8), public modparameters::ghw2_prime3 = (0d0, 0d0)

Definition at line 470 of file mod_Parameters.F90.

   complex(8), public :: ghw2_prime3= (0d0,0d0)

ghw2_prime4

complex(8), public modparameters::ghw2_prime4 = (0d0, 0d0)

Definition at line 471 of file mod_Parameters.F90.

   complex(8), public :: ghw2_prime4= (0d0,0d0)

ghw2_prime5

complex(8), public modparameters::ghw2_prime5 = (0d0, 0d0)

Definition at line 472 of file mod_Parameters.F90.

   complex(8), public :: ghw2_prime5= (0d0,0d0)

ghw2_prime6

complex(8), public modparameters::ghw2_prime6 = (0d0, 0d0)

Definition at line 473 of file mod_Parameters.F90.

   complex(8), public :: ghw2_prime6= (0d0,0d0)

ghw2_prime7

complex(8), public modparameters::ghw2_prime7 = (0d0, 0d0)

Definition at line 474 of file mod_Parameters.F90.

   complex(8), public :: ghw2_prime7= (0d0,0d0)

ghw3

complex(8), public modparameters::ghw3 = (0d0, 0d0)

Definition at line 456 of file mod_Parameters.F90.

   complex(8), public :: ghw3 = (0d0,0d0)

ghw3_prime

complex(8), public modparameters::ghw3_prime = (0d0, 0d0)

Definition at line 476 of file mod_Parameters.F90.

   complex(8), public :: ghw3_prime = (0d0,0d0)

ghw3_prime2

complex(8), public modparameters::ghw3_prime2 = (0d0, 0d0)

Definition at line 477 of file mod_Parameters.F90.

   complex(8), public :: ghw3_prime2= (0d0,0d0)

ghw3_prime3

complex(8), public modparameters::ghw3_prime3 = (0d0, 0d0)

Definition at line 478 of file mod_Parameters.F90.

   complex(8), public :: ghw3_prime3= (0d0,0d0)

ghw3_prime4

complex(8), public modparameters::ghw3_prime4 = (0d0, 0d0)

Definition at line 479 of file mod_Parameters.F90.

   complex(8), public :: ghw3_prime4= (0d0,0d0)

ghw3_prime5

complex(8), public modparameters::ghw3_prime5 = (0d0, 0d0)

Definition at line 480 of file mod_Parameters.F90.

   complex(8), public :: ghw3_prime5= (0d0,0d0)

ghw3_prime6

complex(8), public modparameters::ghw3_prime6 = (0d0, 0d0)

Definition at line 481 of file mod_Parameters.F90.

   complex(8), public :: ghw3_prime6= (0d0,0d0)

ghw3_prime7

complex(8), public modparameters::ghw3_prime7 = (0d0, 0d0)

Definition at line 482 of file mod_Parameters.F90.

   complex(8), public :: ghw3_prime7= (0d0,0d0)

ghw4

complex(8), public modparameters::ghw4 = (0d0, 0d0)

Definition at line 457 of file mod_Parameters.F90.

   complex(8), public :: ghw4 = (0d0,0d0)

ghw4_prime

complex(8), public modparameters::ghw4_prime = (0d0, 0d0)

Definition at line 484 of file mod_Parameters.F90.

   complex(8), public :: ghw4_prime = (0d0,0d0)

ghw4_prime2

complex(8), public modparameters::ghw4_prime2 = (0d0, 0d0)

Definition at line 485 of file mod_Parameters.F90.

   complex(8), public :: ghw4_prime2= (0d0,0d0)

ghw4_prime3

complex(8), public modparameters::ghw4_prime3 = (0d0, 0d0)

Definition at line 486 of file mod_Parameters.F90.

   complex(8), public :: ghw4_prime3= (0d0,0d0)

ghw4_prime4

complex(8), public modparameters::ghw4_prime4 = (0d0, 0d0)

Definition at line 487 of file mod_Parameters.F90.

   complex(8), public :: ghw4_prime4= (0d0,0d0)

ghw4_prime5

complex(8), public modparameters::ghw4_prime5 = (0d0, 0d0)

Definition at line 488 of file mod_Parameters.F90.

   complex(8), public :: ghw4_prime5= (0d0,0d0)

ghw4_prime6

complex(8), public modparameters::ghw4_prime6 = (0d0, 0d0)

Definition at line 489 of file mod_Parameters.F90.

   complex(8), public :: ghw4_prime6= (0d0,0d0)

ghw4_prime7

complex(8), public modparameters::ghw4_prime7 = (0d0, 0d0)

Definition at line 490 of file mod_Parameters.F90.

   complex(8), public :: ghw4_prime7= (0d0,0d0)

ghwpwp1

complex(8), public modparameters::ghwpwp1 = (0d0, 0d0)

Definition at line 661 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp1 = (0d0,0d0)

ghwpwp1_prime

complex(8), public modparameters::ghwpwp1_prime = (0d0, 0d0)

Definition at line 667 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp1_prime = (0d0,0d0)

ghwpwp1_prime2

complex(8), public modparameters::ghwpwp1_prime2 = (0d0, 0d0)

Definition at line 668 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp1_prime2= (0d0,0d0)

ghwpwp1_prime3

complex(8), public modparameters::ghwpwp1_prime3 = (0d0, 0d0)

Definition at line 669 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp1_prime3= (0d0,0d0)

ghwpwp1_prime4

complex(8), public modparameters::ghwpwp1_prime4 = (0d0, 0d0)

Definition at line 670 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp1_prime4= (0d0,0d0)

ghwpwp1_prime5

complex(8), public modparameters::ghwpwp1_prime5 = (0d0, 0d0)

Definition at line 671 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp1_prime5= (0d0,0d0)

ghwpwp1_prime6

complex(8), public modparameters::ghwpwp1_prime6 = (0d0, 0d0)

Definition at line 672 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp1_prime6= (0d0,0d0)

ghwpwp1_prime7

complex(8), public modparameters::ghwpwp1_prime7 = (0d0, 0d0)

Definition at line 673 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp1_prime7= (0d0,0d0)

ghwpwp2

complex(8), public modparameters::ghwpwp2 = (0d0, 0d0)

Definition at line 662 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp2 = (0d0,0d0)

ghwpwp2_prime

complex(8), public modparameters::ghwpwp2_prime = (0d0, 0d0)

Definition at line 675 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp2_prime = (0d0,0d0)

ghwpwp2_prime2

complex(8), public modparameters::ghwpwp2_prime2 = (0d0, 0d0)

Definition at line 676 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp2_prime2= (0d0,0d0)

ghwpwp2_prime3

complex(8), public modparameters::ghwpwp2_prime3 = (0d0, 0d0)

Definition at line 677 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp2_prime3= (0d0,0d0)

ghwpwp2_prime4

complex(8), public modparameters::ghwpwp2_prime4 = (0d0, 0d0)

Definition at line 678 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp2_prime4= (0d0,0d0)

ghwpwp2_prime5

complex(8), public modparameters::ghwpwp2_prime5 = (0d0, 0d0)

Definition at line 679 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp2_prime5= (0d0,0d0)

ghwpwp2_prime6

complex(8), public modparameters::ghwpwp2_prime6 = (0d0, 0d0)

Definition at line 680 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp2_prime6= (0d0,0d0)

ghwpwp2_prime7

complex(8), public modparameters::ghwpwp2_prime7 = (0d0, 0d0)

Definition at line 681 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp2_prime7= (0d0,0d0)

ghwpwp3

complex(8), public modparameters::ghwpwp3 = (0d0, 0d0)

Definition at line 663 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp3 = (0d0,0d0)

ghwpwp3_prime

complex(8), public modparameters::ghwpwp3_prime = (0d0, 0d0)

Definition at line 683 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp3_prime = (0d0,0d0)

ghwpwp3_prime2

complex(8), public modparameters::ghwpwp3_prime2 = (0d0, 0d0)

Definition at line 684 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp3_prime2= (0d0,0d0)

ghwpwp3_prime3

complex(8), public modparameters::ghwpwp3_prime3 = (0d0, 0d0)

Definition at line 685 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp3_prime3= (0d0,0d0)

ghwpwp3_prime4

complex(8), public modparameters::ghwpwp3_prime4 = (0d0, 0d0)

Definition at line 686 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp3_prime4= (0d0,0d0)

ghwpwp3_prime5

complex(8), public modparameters::ghwpwp3_prime5 = (0d0, 0d0)

Definition at line 687 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp3_prime5= (0d0,0d0)

ghwpwp3_prime6

complex(8), public modparameters::ghwpwp3_prime6 = (0d0, 0d0)

Definition at line 688 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp3_prime6= (0d0,0d0)

ghwpwp3_prime7

complex(8), public modparameters::ghwpwp3_prime7 = (0d0, 0d0)

Definition at line 689 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp3_prime7= (0d0,0d0)

ghwpwp4

complex(8), public modparameters::ghwpwp4 = (0d0, 0d0)

Definition at line 664 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp4 = (0d0,0d0)

ghwpwp4_prime

complex(8), public modparameters::ghwpwp4_prime = (0d0, 0d0)

Definition at line 691 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp4_prime = (0d0,0d0)

ghwpwp4_prime2

complex(8), public modparameters::ghwpwp4_prime2 = (0d0, 0d0)

Definition at line 692 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp4_prime2= (0d0,0d0)

ghwpwp4_prime3

complex(8), public modparameters::ghwpwp4_prime3 = (0d0, 0d0)

Definition at line 693 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp4_prime3= (0d0,0d0)

ghwpwp4_prime4

complex(8), public modparameters::ghwpwp4_prime4 = (0d0, 0d0)

Definition at line 694 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp4_prime4= (0d0,0d0)

ghwpwp4_prime5

complex(8), public modparameters::ghwpwp4_prime5 = (0d0, 0d0)

Definition at line 695 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp4_prime5= (0d0,0d0)

ghwpwp4_prime6

complex(8), public modparameters::ghwpwp4_prime6 = (0d0, 0d0)

Definition at line 696 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp4_prime6= (0d0,0d0)

ghwpwp4_prime7

complex(8), public modparameters::ghwpwp4_prime7 = (0d0, 0d0)

Definition at line 697 of file mod_Parameters.F90.

   complex(8), public :: ghwpwp4_prime7= (0d0,0d0)

ghwwp1

complex(8), public modparameters::ghwwp1 = (0d0, 0d0)

Definition at line 623 of file mod_Parameters.F90.

   complex(8), public :: ghwwp1 = (0d0,0d0)

ghwwp1_prime

complex(8), public modparameters::ghwwp1_prime = (0d0, 0d0)

Definition at line 629 of file mod_Parameters.F90.

   complex(8), public :: ghwwp1_prime = (0d0,0d0)

ghwwp1_prime2

complex(8), public modparameters::ghwwp1_prime2 = (0d0, 0d0)

Definition at line 630 of file mod_Parameters.F90.

   complex(8), public :: ghwwp1_prime2= (0d0,0d0)

ghwwp1_prime3

complex(8), public modparameters::ghwwp1_prime3 = (0d0, 0d0)

Definition at line 631 of file mod_Parameters.F90.

   complex(8), public :: ghwwp1_prime3= (0d0,0d0)

ghwwp1_prime4

complex(8), public modparameters::ghwwp1_prime4 = (0d0, 0d0)

Definition at line 632 of file mod_Parameters.F90.

   complex(8), public :: ghwwp1_prime4= (0d0,0d0)

ghwwp1_prime5

complex(8), public modparameters::ghwwp1_prime5 = (0d0, 0d0)

Definition at line 633 of file mod_Parameters.F90.

   complex(8), public :: ghwwp1_prime5= (0d0,0d0)

ghwwp1_prime6

complex(8), public modparameters::ghwwp1_prime6 = (0d0, 0d0)

Definition at line 634 of file mod_Parameters.F90.

   complex(8), public :: ghwwp1_prime6= (0d0,0d0)

ghwwp1_prime7

complex(8), public modparameters::ghwwp1_prime7 = (0d0, 0d0)

Definition at line 635 of file mod_Parameters.F90.

   complex(8), public :: ghwwp1_prime7= (0d0,0d0)

ghwwp2

complex(8), public modparameters::ghwwp2 = (0d0, 0d0)

Definition at line 624 of file mod_Parameters.F90.

   complex(8), public :: ghwwp2 = (0d0,0d0)

ghwwp2_prime

complex(8), public modparameters::ghwwp2_prime = (0d0, 0d0)

Definition at line 637 of file mod_Parameters.F90.

   complex(8), public :: ghwwp2_prime = (0d0,0d0)

ghwwp2_prime2

complex(8), public modparameters::ghwwp2_prime2 = (0d0, 0d0)

Definition at line 638 of file mod_Parameters.F90.

   complex(8), public :: ghwwp2_prime2= (0d0,0d0)

ghwwp2_prime3

complex(8), public modparameters::ghwwp2_prime3 = (0d0, 0d0)

Definition at line 639 of file mod_Parameters.F90.

   complex(8), public :: ghwwp2_prime3= (0d0,0d0)

ghwwp2_prime4

complex(8), public modparameters::ghwwp2_prime4 = (0d0, 0d0)

Definition at line 640 of file mod_Parameters.F90.

   complex(8), public :: ghwwp2_prime4= (0d0,0d0)

ghwwp2_prime5

complex(8), public modparameters::ghwwp2_prime5 = (0d0, 0d0)

Definition at line 641 of file mod_Parameters.F90.

   complex(8), public :: ghwwp2_prime5= (0d0,0d0)

ghwwp2_prime6

complex(8), public modparameters::ghwwp2_prime6 = (0d0, 0d0)

Definition at line 642 of file mod_Parameters.F90.

   complex(8), public :: ghwwp2_prime6= (0d0,0d0)

ghwwp2_prime7

complex(8), public modparameters::ghwwp2_prime7 = (0d0, 0d0)

Definition at line 643 of file mod_Parameters.F90.

   complex(8), public :: ghwwp2_prime7= (0d0,0d0)

ghwwp3

complex(8), public modparameters::ghwwp3 = (0d0, 0d0)

Definition at line 625 of file mod_Parameters.F90.

   complex(8), public :: ghwwp3 = (0d0,0d0)

ghwwp3_prime

complex(8), public modparameters::ghwwp3_prime = (0d0, 0d0)

Definition at line 645 of file mod_Parameters.F90.

   complex(8), public :: ghwwp3_prime = (0d0,0d0)

ghwwp3_prime2

complex(8), public modparameters::ghwwp3_prime2 = (0d0, 0d0)

Definition at line 646 of file mod_Parameters.F90.

   complex(8), public :: ghwwp3_prime2= (0d0,0d0)

ghwwp3_prime3

complex(8), public modparameters::ghwwp3_prime3 = (0d0, 0d0)

Definition at line 647 of file mod_Parameters.F90.

   complex(8), public :: ghwwp3_prime3= (0d0,0d0)

ghwwp3_prime4

complex(8), public modparameters::ghwwp3_prime4 = (0d0, 0d0)

Definition at line 648 of file mod_Parameters.F90.

   complex(8), public :: ghwwp3_prime4= (0d0,0d0)

ghwwp3_prime5

complex(8), public modparameters::ghwwp3_prime5 = (0d0, 0d0)

Definition at line 649 of file mod_Parameters.F90.

   complex(8), public :: ghwwp3_prime5= (0d0,0d0)

ghwwp3_prime6

complex(8), public modparameters::ghwwp3_prime6 = (0d0, 0d0)

Definition at line 650 of file mod_Parameters.F90.

   complex(8), public :: ghwwp3_prime6= (0d0,0d0)

ghwwp3_prime7

complex(8), public modparameters::ghwwp3_prime7 = (0d0, 0d0)

Definition at line 651 of file mod_Parameters.F90.

   complex(8), public :: ghwwp3_prime7= (0d0,0d0)

ghwwp4

complex(8), public modparameters::ghwwp4 = (0d0, 0d0)

Definition at line 626 of file mod_Parameters.F90.

   complex(8), public :: ghwwp4 = (0d0,0d0)

ghwwp4_prime

complex(8), public modparameters::ghwwp4_prime = (0d0, 0d0)

Definition at line 653 of file mod_Parameters.F90.

   complex(8), public :: ghwwp4_prime = (0d0,0d0)

ghwwp4_prime2

complex(8), public modparameters::ghwwp4_prime2 = (0d0, 0d0)

Definition at line 654 of file mod_Parameters.F90.

   complex(8), public :: ghwwp4_prime2= (0d0,0d0)

ghwwp4_prime3

complex(8), public modparameters::ghwwp4_prime3 = (0d0, 0d0)

Definition at line 655 of file mod_Parameters.F90.

   complex(8), public :: ghwwp4_prime3= (0d0,0d0)

ghwwp4_prime4

complex(8), public modparameters::ghwwp4_prime4 = (0d0, 0d0)

Definition at line 656 of file mod_Parameters.F90.

   complex(8), public :: ghwwp4_prime4= (0d0,0d0)

ghwwp4_prime5

complex(8), public modparameters::ghwwp4_prime5 = (0d0, 0d0)

Definition at line 657 of file mod_Parameters.F90.

   complex(8), public :: ghwwp4_prime5= (0d0,0d0)

ghwwp4_prime6

complex(8), public modparameters::ghwwp4_prime6 = (0d0, 0d0)

Definition at line 658 of file mod_Parameters.F90.

   complex(8), public :: ghwwp4_prime6= (0d0,0d0)

ghwwp4_prime7

complex(8), public modparameters::ghwwp4_prime7 = (0d0, 0d0)

Definition at line 659 of file mod_Parameters.F90.

   complex(8), public :: ghwwp4_prime7= (0d0,0d0)

ghz1

complex(8), public modparameters::ghz1 = (2.0d0, 0d0)

Definition at line 381 of file mod_Parameters.F90.

   complex(8), public :: ghz1 = (2.0d0,0d0) ! SM=2 (MCFM => =1)

ghz1_prime

complex(8), public modparameters::ghz1_prime = (0d0, 0d0)

Definition at line 387 of file mod_Parameters.F90.

   complex(8), public :: ghz1_prime = (0d0,0d0)

ghz1_prime2

complex(8), public modparameters::ghz1_prime2 = (0d0, 0d0)

Definition at line 388 of file mod_Parameters.F90.

   complex(8), public :: ghz1_prime2= (0d0,0d0)

ghz1_prime3

complex(8), public modparameters::ghz1_prime3 = (0d0, 0d0)

Definition at line 389 of file mod_Parameters.F90.

   complex(8), public :: ghz1_prime3= (0d0,0d0)

ghz1_prime4

complex(8), public modparameters::ghz1_prime4 = (0d0, 0d0)

Definition at line 390 of file mod_Parameters.F90.

   complex(8), public :: ghz1_prime4= (0d0,0d0)

ghz1_prime5

complex(8), public modparameters::ghz1_prime5 = (0d0, 0d0)

Definition at line 391 of file mod_Parameters.F90.

   complex(8), public :: ghz1_prime5= (0d0,0d0)

ghz1_prime6

complex(8), public modparameters::ghz1_prime6 = (0d0, 0d0)

Definition at line 392 of file mod_Parameters.F90.

   complex(8), public :: ghz1_prime6= (0d0,0d0)

ghz1_prime7

complex(8), public modparameters::ghz1_prime7 = (0d0, 0d0)

Definition at line 393 of file mod_Parameters.F90.

   complex(8), public :: ghz1_prime7= (0d0,0d0)

ghz2

complex(8), public modparameters::ghz2 = (0d0, 0d0)

Definition at line 382 of file mod_Parameters.F90.

   complex(8), public :: ghz2 = (0d0,0d0)

ghz2_prime

complex(8), public modparameters::ghz2_prime = (0d0, 0d0)

Definition at line 395 of file mod_Parameters.F90.

   complex(8), public :: ghz2_prime = (0d0,0d0)

ghz2_prime2

complex(8), public modparameters::ghz2_prime2 = (0d0, 0d0)

Definition at line 396 of file mod_Parameters.F90.

   complex(8), public :: ghz2_prime2= (0d0,0d0)

ghz2_prime3

complex(8), public modparameters::ghz2_prime3 = (0d0, 0d0)

Definition at line 397 of file mod_Parameters.F90.

   complex(8), public :: ghz2_prime3= (0d0,0d0)

ghz2_prime4

complex(8), public modparameters::ghz2_prime4 = (0d0, 0d0)

Definition at line 398 of file mod_Parameters.F90.

   complex(8), public :: ghz2_prime4= (0d0,0d0)

ghz2_prime5

complex(8), public modparameters::ghz2_prime5 = (0d0, 0d0)

Definition at line 399 of file mod_Parameters.F90.

   complex(8), public :: ghz2_prime5= (0d0,0d0)

ghz2_prime6

complex(8), public modparameters::ghz2_prime6 = (0d0, 0d0)

Definition at line 400 of file mod_Parameters.F90.

   complex(8), public :: ghz2_prime6= (0d0,0d0)

ghz2_prime7

complex(8), public modparameters::ghz2_prime7 = (0d0, 0d0)

Definition at line 401 of file mod_Parameters.F90.

   complex(8), public :: ghz2_prime7= (0d0,0d0)

ghz3

complex(8), public modparameters::ghz3 = (0d0, 0d0)

Definition at line 383 of file mod_Parameters.F90.

   complex(8), public :: ghz3 = (0d0,0d0)

ghz3_prime

complex(8), public modparameters::ghz3_prime = (0d0, 0d0)

Definition at line 403 of file mod_Parameters.F90.

   complex(8), public :: ghz3_prime = (0d0,0d0)

ghz3_prime2

complex(8), public modparameters::ghz3_prime2 = (0d0, 0d0)

Definition at line 404 of file mod_Parameters.F90.

   complex(8), public :: ghz3_prime2= (0d0,0d0)

ghz3_prime3

complex(8), public modparameters::ghz3_prime3 = (0d0, 0d0)

Definition at line 405 of file mod_Parameters.F90.

   complex(8), public :: ghz3_prime3= (0d0,0d0)

ghz3_prime4

complex(8), public modparameters::ghz3_prime4 = (0d0, 0d0)

Definition at line 406 of file mod_Parameters.F90.

   complex(8), public :: ghz3_prime4= (0d0,0d0)

ghz3_prime5

complex(8), public modparameters::ghz3_prime5 = (0d0, 0d0)

Definition at line 407 of file mod_Parameters.F90.

   complex(8), public :: ghz3_prime5= (0d0,0d0)

ghz3_prime6

complex(8), public modparameters::ghz3_prime6 = (0d0, 0d0)

Definition at line 408 of file mod_Parameters.F90.

   complex(8), public :: ghz3_prime6= (0d0,0d0)

ghz3_prime7

complex(8), public modparameters::ghz3_prime7 = (0d0, 0d0)

Definition at line 409 of file mod_Parameters.F90.

   complex(8), public :: ghz3_prime7= (0d0,0d0)

ghz4

complex(8), public modparameters::ghz4 = (0d0, 0d0)

Definition at line 384 of file mod_Parameters.F90.

   complex(8), public :: ghz4 = (0d0,0d0)   ! pseudoscalar

ghz4_prime

complex(8), public modparameters::ghz4_prime = (0d0, 0d0)

Definition at line 411 of file mod_Parameters.F90.

   complex(8), public :: ghz4_prime = (0d0,0d0)

ghz4_prime2

complex(8), public modparameters::ghz4_prime2 = (0d0, 0d0)

Definition at line 412 of file mod_Parameters.F90.

   complex(8), public :: ghz4_prime2= (0d0,0d0)

ghz4_prime3

complex(8), public modparameters::ghz4_prime3 = (0d0, 0d0)

Definition at line 413 of file mod_Parameters.F90.

   complex(8), public :: ghz4_prime3= (0d0,0d0)

ghz4_prime4

complex(8), public modparameters::ghz4_prime4 = (0d0, 0d0)

Definition at line 414 of file mod_Parameters.F90.

   complex(8), public :: ghz4_prime4= (0d0,0d0)

ghz4_prime5

complex(8), public modparameters::ghz4_prime5 = (0d0, 0d0)

Definition at line 415 of file mod_Parameters.F90.

   complex(8), public :: ghz4_prime5= (0d0,0d0)

ghz4_prime6

complex(8), public modparameters::ghz4_prime6 = (0d0, 0d0)

Definition at line 416 of file mod_Parameters.F90.

   complex(8), public :: ghz4_prime6= (0d0,0d0)

ghz4_prime7

complex(8), public modparameters::ghz4_prime7 = (0d0, 0d0)

Definition at line 417 of file mod_Parameters.F90.

   complex(8), public :: ghz4_prime7= (0d0,0d0)

ghzgs1_prime2

complex(8), public modparameters::ghzgs1_prime2 = (0d0, 0d0)

Definition at line 419 of file mod_Parameters.F90.

   complex(8), public :: ghzgs1_prime2= (0d0,0d0)

ghzgs2

complex(8), public modparameters::ghzgs2 = (0d0, 0d0)

Definition at line 420 of file mod_Parameters.F90.

   complex(8), public :: ghzgs2  = (0d0,0d0)

ghzgs3

complex(8), public modparameters::ghzgs3 = (0d0, 0d0)

Definition at line 421 of file mod_Parameters.F90.

   complex(8), public :: ghzgs3  = (0d0,0d0)

ghzgs4

complex(8), public modparameters::ghzgs4 = (0d0, 0d0)

Definition at line 422 of file mod_Parameters.F90.

   complex(8), public :: ghzgs4  = (0d0,0d0)

ghzpgs1_prime2

complex(8), public modparameters::ghzpgs1_prime2 = (0d0, 0d0)

Definition at line 553 of file mod_Parameters.F90.

   complex(8), public :: ghzpgs1_prime2= (0d0,0d0)

ghzpgs2

complex(8), public modparameters::ghzpgs2 = (0d0, 0d0)

Definition at line 554 of file mod_Parameters.F90.

   complex(8), public :: ghzpgs2  = (0d0,0d0)

ghzpgs3

complex(8), public modparameters::ghzpgs3 = (0d0, 0d0)

Definition at line 555 of file mod_Parameters.F90.

   complex(8), public :: ghzpgs3  = (0d0,0d0)

ghzpgs4

complex(8), public modparameters::ghzpgs4 = (0d0, 0d0)

Definition at line 556 of file mod_Parameters.F90.

   complex(8), public :: ghzpgs4  = (0d0,0d0)

ghzpzp1

complex(8), public modparameters::ghzpzp1 = (0d0, 0d0)

Definition at line 559 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp1 = (0d0,0d0)

ghzpzp1_prime

complex(8), public modparameters::ghzpzp1_prime = (0d0, 0d0)

Definition at line 565 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp1_prime = (0d0,0d0)

ghzpzp1_prime2

complex(8), public modparameters::ghzpzp1_prime2 = (0d0, 0d0)

Definition at line 566 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp1_prime2= (0d0,0d0)

ghzpzp1_prime3

complex(8), public modparameters::ghzpzp1_prime3 = (0d0, 0d0)

Definition at line 567 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp1_prime3= (0d0,0d0)

ghzpzp1_prime4

complex(8), public modparameters::ghzpzp1_prime4 = (0d0, 0d0)

Definition at line 568 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp1_prime4= (0d0,0d0)

ghzpzp1_prime5

complex(8), public modparameters::ghzpzp1_prime5 = (0d0, 0d0)

Definition at line 569 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp1_prime5= (0d0,0d0)

ghzpzp1_prime6

complex(8), public modparameters::ghzpzp1_prime6 = (0d0, 0d0)

Definition at line 570 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp1_prime6= (0d0,0d0)

ghzpzp1_prime7

complex(8), public modparameters::ghzpzp1_prime7 = (0d0, 0d0)

Definition at line 571 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp1_prime7= (0d0,0d0)

ghzpzp2

complex(8), public modparameters::ghzpzp2 = (0d0, 0d0)

Definition at line 560 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp2 = (0d0,0d0)

ghzpzp2_prime

complex(8), public modparameters::ghzpzp2_prime = (0d0, 0d0)

Definition at line 573 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp2_prime = (0d0,0d0)

ghzpzp2_prime2

complex(8), public modparameters::ghzpzp2_prime2 = (0d0, 0d0)

Definition at line 574 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp2_prime2= (0d0,0d0)

ghzpzp2_prime3

complex(8), public modparameters::ghzpzp2_prime3 = (0d0, 0d0)

Definition at line 575 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp2_prime3= (0d0,0d0)

ghzpzp2_prime4

complex(8), public modparameters::ghzpzp2_prime4 = (0d0, 0d0)

Definition at line 576 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp2_prime4= (0d0,0d0)

ghzpzp2_prime5

complex(8), public modparameters::ghzpzp2_prime5 = (0d0, 0d0)

Definition at line 577 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp2_prime5= (0d0,0d0)

ghzpzp2_prime6

complex(8), public modparameters::ghzpzp2_prime6 = (0d0, 0d0)

Definition at line 578 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp2_prime6= (0d0,0d0)

ghzpzp2_prime7

complex(8), public modparameters::ghzpzp2_prime7 = (0d0, 0d0)

Definition at line 579 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp2_prime7= (0d0,0d0)

ghzpzp3

complex(8), public modparameters::ghzpzp3 = (0d0, 0d0)

Definition at line 561 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp3 = (0d0,0d0)

ghzpzp3_prime

complex(8), public modparameters::ghzpzp3_prime = (0d0, 0d0)

Definition at line 581 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp3_prime = (0d0,0d0)

ghzpzp3_prime2

complex(8), public modparameters::ghzpzp3_prime2 = (0d0, 0d0)

Definition at line 582 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp3_prime2= (0d0,0d0)

ghzpzp3_prime3

complex(8), public modparameters::ghzpzp3_prime3 = (0d0, 0d0)

Definition at line 583 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp3_prime3= (0d0,0d0)

ghzpzp3_prime4

complex(8), public modparameters::ghzpzp3_prime4 = (0d0, 0d0)

Definition at line 584 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp3_prime4= (0d0,0d0)

ghzpzp3_prime5

complex(8), public modparameters::ghzpzp3_prime5 = (0d0, 0d0)

Definition at line 585 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp3_prime5= (0d0,0d0)

ghzpzp3_prime6

complex(8), public modparameters::ghzpzp3_prime6 = (0d0, 0d0)

Definition at line 586 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp3_prime6= (0d0,0d0)

ghzpzp3_prime7

complex(8), public modparameters::ghzpzp3_prime7 = (0d0, 0d0)

Definition at line 587 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp3_prime7= (0d0,0d0)

ghzpzp4

complex(8), public modparameters::ghzpzp4 = (0d0, 0d0)

Definition at line 562 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp4 = (0d0,0d0)

ghzpzp4_prime

complex(8), public modparameters::ghzpzp4_prime = (0d0, 0d0)

Definition at line 589 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp4_prime = (0d0,0d0)

ghzpzp4_prime2

complex(8), public modparameters::ghzpzp4_prime2 = (0d0, 0d0)

Definition at line 590 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp4_prime2= (0d0,0d0)

ghzpzp4_prime3

complex(8), public modparameters::ghzpzp4_prime3 = (0d0, 0d0)

Definition at line 591 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp4_prime3= (0d0,0d0)

ghzpzp4_prime4

complex(8), public modparameters::ghzpzp4_prime4 = (0d0, 0d0)

Definition at line 592 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp4_prime4= (0d0,0d0)

ghzpzp4_prime5

complex(8), public modparameters::ghzpzp4_prime5 = (0d0, 0d0)

Definition at line 593 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp4_prime5= (0d0,0d0)

ghzpzp4_prime6

complex(8), public modparameters::ghzpzp4_prime6 = (0d0, 0d0)

Definition at line 594 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp4_prime6= (0d0,0d0)

ghzpzp4_prime7

complex(8), public modparameters::ghzpzp4_prime7 = (0d0, 0d0)

Definition at line 595 of file mod_Parameters.F90.

   complex(8), public :: ghzpzp4_prime7= (0d0,0d0)

ghzzp1

complex(8), public modparameters::ghzzp1 = (0d0, 0d0)

Definition at line 514 of file mod_Parameters.F90.

   complex(8), public :: ghzzp1 = (0d0,0d0)

ghzzp1_prime

complex(8), public modparameters::ghzzp1_prime = (0d0, 0d0)

Definition at line 520 of file mod_Parameters.F90.

   complex(8), public :: ghzzp1_prime = (0d0,0d0)

ghzzp1_prime2

complex(8), public modparameters::ghzzp1_prime2 = (0d0, 0d0)

Definition at line 521 of file mod_Parameters.F90.

   complex(8), public :: ghzzp1_prime2= (0d0,0d0)

ghzzp1_prime3

complex(8), public modparameters::ghzzp1_prime3 = (0d0, 0d0)

Definition at line 522 of file mod_Parameters.F90.

   complex(8), public :: ghzzp1_prime3= (0d0,0d0)

ghzzp1_prime4

complex(8), public modparameters::ghzzp1_prime4 = (0d0, 0d0)

Definition at line 523 of file mod_Parameters.F90.

   complex(8), public :: ghzzp1_prime4= (0d0,0d0)

ghzzp1_prime5

complex(8), public modparameters::ghzzp1_prime5 = (0d0, 0d0)

Definition at line 524 of file mod_Parameters.F90.

   complex(8), public :: ghzzp1_prime5= (0d0,0d0)

ghzzp1_prime6

complex(8), public modparameters::ghzzp1_prime6 = (0d0, 0d0)

Definition at line 525 of file mod_Parameters.F90.

   complex(8), public :: ghzzp1_prime6= (0d0,0d0)

ghzzp1_prime7

complex(8), public modparameters::ghzzp1_prime7 = (0d0, 0d0)

Definition at line 526 of file mod_Parameters.F90.

   complex(8), public :: ghzzp1_prime7= (0d0,0d0)

ghzzp2

complex(8), public modparameters::ghzzp2 = (0d0, 0d0)

Definition at line 515 of file mod_Parameters.F90.

   complex(8), public :: ghzzp2 = (0d0,0d0)

ghzzp2_prime

complex(8), public modparameters::ghzzp2_prime = (0d0, 0d0)

Definition at line 528 of file mod_Parameters.F90.

   complex(8), public :: ghzzp2_prime = (0d0,0d0)

ghzzp2_prime2

complex(8), public modparameters::ghzzp2_prime2 = (0d0, 0d0)

Definition at line 529 of file mod_Parameters.F90.

   complex(8), public :: ghzzp2_prime2= (0d0,0d0)

ghzzp2_prime3

complex(8), public modparameters::ghzzp2_prime3 = (0d0, 0d0)

Definition at line 530 of file mod_Parameters.F90.

   complex(8), public :: ghzzp2_prime3= (0d0,0d0)

ghzzp2_prime4

complex(8), public modparameters::ghzzp2_prime4 = (0d0, 0d0)

Definition at line 531 of file mod_Parameters.F90.

   complex(8), public :: ghzzp2_prime4= (0d0,0d0)

ghzzp2_prime5

complex(8), public modparameters::ghzzp2_prime5 = (0d0, 0d0)

Definition at line 532 of file mod_Parameters.F90.

   complex(8), public :: ghzzp2_prime5= (0d0,0d0)

ghzzp2_prime6

complex(8), public modparameters::ghzzp2_prime6 = (0d0, 0d0)

Definition at line 533 of file mod_Parameters.F90.

   complex(8), public :: ghzzp2_prime6= (0d0,0d0)

ghzzp2_prime7

complex(8), public modparameters::ghzzp2_prime7 = (0d0, 0d0)

Definition at line 534 of file mod_Parameters.F90.

   complex(8), public :: ghzzp2_prime7= (0d0,0d0)

ghzzp3

complex(8), public modparameters::ghzzp3 = (0d0, 0d0)

Definition at line 516 of file mod_Parameters.F90.

   complex(8), public :: ghzzp3 = (0d0,0d0)

ghzzp3_prime

complex(8), public modparameters::ghzzp3_prime = (0d0, 0d0)

Definition at line 536 of file mod_Parameters.F90.

   complex(8), public :: ghzzp3_prime = (0d0,0d0)

ghzzp3_prime2

complex(8), public modparameters::ghzzp3_prime2 = (0d0, 0d0)

Definition at line 537 of file mod_Parameters.F90.

   complex(8), public :: ghzzp3_prime2= (0d0,0d0)

ghzzp3_prime3

complex(8), public modparameters::ghzzp3_prime3 = (0d0, 0d0)

Definition at line 538 of file mod_Parameters.F90.

   complex(8), public :: ghzzp3_prime3= (0d0,0d0)

ghzzp3_prime4

complex(8), public modparameters::ghzzp3_prime4 = (0d0, 0d0)

Definition at line 539 of file mod_Parameters.F90.

   complex(8), public :: ghzzp3_prime4= (0d0,0d0)

ghzzp3_prime5

complex(8), public modparameters::ghzzp3_prime5 = (0d0, 0d0)

Definition at line 540 of file mod_Parameters.F90.

   complex(8), public :: ghzzp3_prime5= (0d0,0d0)

ghzzp3_prime6

complex(8), public modparameters::ghzzp3_prime6 = (0d0, 0d0)

Definition at line 541 of file mod_Parameters.F90.

   complex(8), public :: ghzzp3_prime6= (0d0,0d0)

ghzzp3_prime7

complex(8), public modparameters::ghzzp3_prime7 = (0d0, 0d0)

Definition at line 542 of file mod_Parameters.F90.

   complex(8), public :: ghzzp3_prime7= (0d0,0d0)

ghzzp4

complex(8), public modparameters::ghzzp4 = (0d0, 0d0)

Definition at line 517 of file mod_Parameters.F90.

   complex(8), public :: ghzzp4 = (0d0,0d0)

ghzzp4_prime

complex(8), public modparameters::ghzzp4_prime = (0d0, 0d0)

Definition at line 544 of file mod_Parameters.F90.

   complex(8), public :: ghzzp4_prime = (0d0,0d0)

ghzzp4_prime2

complex(8), public modparameters::ghzzp4_prime2 = (0d0, 0d0)

Definition at line 545 of file mod_Parameters.F90.

   complex(8), public :: ghzzp4_prime2= (0d0,0d0)

ghzzp4_prime3

complex(8), public modparameters::ghzzp4_prime3 = (0d0, 0d0)

Definition at line 546 of file mod_Parameters.F90.

   complex(8), public :: ghzzp4_prime3= (0d0,0d0)

ghzzp4_prime4

complex(8), public modparameters::ghzzp4_prime4 = (0d0, 0d0)

Definition at line 547 of file mod_Parameters.F90.

   complex(8), public :: ghzzp4_prime4= (0d0,0d0)

ghzzp4_prime5

complex(8), public modparameters::ghzzp4_prime5 = (0d0, 0d0)

Definition at line 548 of file mod_Parameters.F90.

   complex(8), public :: ghzzp4_prime5= (0d0,0d0)

ghzzp4_prime6

complex(8), public modparameters::ghzzp4_prime6 = (0d0, 0d0)

Definition at line 549 of file mod_Parameters.F90.

   complex(8), public :: ghzzp4_prime6= (0d0,0d0)

ghzzp4_prime7

complex(8), public modparameters::ghzzp4_prime7 = (0d0, 0d0)

Definition at line 550 of file mod_Parameters.F90.

   complex(8), public :: ghzzp4_prime7= (0d0,0d0)

glu_

integer, target, public modparameters::glu_ = 10

Definition at line 1093 of file mod_Parameters.F90.

integer, public, target :: Glu_ = 10

gluoncolavg

real(8), parameter, public modparameters::gluoncolavg =1d0/8d0

Definition at line 91 of file mod_Parameters.F90.

gra_

integer, target, public modparameters::gra_ = 39

Definition at line 1104 of file mod_Parameters.F90.

integer, public, target :: Gra_ = 39

graviton_qq_left

complex(8), public modparameters::graviton_qq_left = (1.0d0, 0d0)

Definition at line 928 of file mod_Parameters.F90.

  complex(8), public :: graviton_qq_left  = (1.0d0,0d0)! graviton coupling to quarks

graviton_qq_right

complex(8), public modparameters::graviton_qq_right = (1.0d0, 0d0)

Definition at line 929 of file mod_Parameters.F90.

  complex(8), public :: graviton_qq_right = (1.0d0,0d0)

gs

real(dp), public modparameters::gs

Definition at line 271 of file mod_Parameters.F90.

real(dp), public           :: gs                         ! = sqrt(alphas*4.0_dp*pi)

gsgmode

integer, parameter, public modparameters::gsgmode =06

Definition at line 13 of file mod_Parameters.F90.

gsgsmode

integer, parameter, public modparameters::gsgsmode =04

Definition at line 13 of file mod_Parameters.F90.

gszmode

integer, parameter, public modparameters::gszmode =03

Definition at line 13 of file mod_Parameters.F90.

gszpmode

integer, parameter, public modparameters::gszpmode =30

Definition at line 16 of file mod_Parameters.F90.

integer, public, parameter :: gsZpMode=30,zpgsmode=31,zpgmode=32

gwsq

real(8), public modparameters::gwsq

Definition at line 250 of file mod_Parameters.F90.

real(8), public            :: gwsq ! = 4.0d0 * M_W**2/vev**2  ! weak constant squared

h_dk

logical, public modparameters::h_dk =.false.

Definition at line 180 of file mod_Parameters.F90.

logical, public :: H_DK =.false.                 ! default to false so H in V* > VH (Process = 50) does not decay to bbbar

half

real(8), parameter, public modparameters::half = 0.5d0

Definition at line 84 of file mod_Parameters.F90.

real(8), public, parameter :: half  = 0.5d0,two = 2.0d0

hasleptonfilter

logical, public modparameters::hasleptonfilter

Definition at line 29 of file mod_Parameters.F90.

hbar

real(8), parameter, public modparameters::hbar =PlanckConstant/(2d0*pi)

Definition at line 109 of file mod_Parameters.F90.

real(8), public, parameter :: hbar=planckconstant/(2d0*pi)

hbarc

real(8), parameter, public modparameters::hbarc =hbar*SpeedOfLight

Definition at line 110 of file mod_Parameters.F90.

real(8), public, parameter :: hbarc=hbar*speedoflight

hbarc2

real(8), parameter, public modparameters::hbarc2 =hbarc**2

Definition at line 111 of file mod_Parameters.F90.

real(8), public, parameter :: hbarc2=hbarc**2

hbarc2_fbgev2

real(8), parameter, public modparameters::hbarc2_fbgev2 = hbarc2/(femtobarn*(GeV**2))

Definition at line 112 of file mod_Parameters.F90.

real(8), public, parameter :: hbarc2_fbGeV2 = hbarc2/(femtobarn*(gev**2))

hbarc2_pbgev2

real(8), parameter, public modparameters::hbarc2_pbgev2 = hbarc2/(picobarn*(GeV**2))

Definition at line 113 of file mod_Parameters.F90.

real(8), public, parameter :: hbarc2_pbGeV2 = hbarc2/(picobarn*(gev**2))

hbarc2xsecunit

real(8), parameter, public modparameters::hbarc2xsecunit = hbarc2_fbGeV2*(GeV**2)

Definition at line 114 of file mod_Parameters.F90.

real(8), public, parameter :: hbarc2XsecUnit = hbarc2_fbgev2*(gev**2) ! Units of xsec are reported in fb. Mutliplication by GeV**2 is to cancel out the units of ME*PS.

hbbdecays

logical, public modparameters::hbbdecays =.false.

Definition at line 178 of file mod_Parameters.F90.

logical, public :: HbbDecays =.false.                 ! default to false so H in V* > VH (Process = 51) does not decay to bbbar

hig_

integer, target, public modparameters::hig_ = 25

Definition at line 1100 of file mod_Parameters.F90.

integer, public, target :: Hig_ = 25

higgsdecaylengthmm

real(8), public modparameters::higgsdecaylengthmm = 0d0

Definition at line 235 of file mod_Parameters.F90.

real(8), public            :: HiggsDecayLengthMM = 0d0      ! Higgs decay length in [mm]

ichann_sel

integer, public modparameters::ichann_sel

Definition at line 58 of file mod_Parameters.F90.

ijpartons

integer, dimension(1:2), public modparameters::ijpartons =0

Definition at line 1152 of file mod_Parameters.F90.

integer, public :: ijPartons(1:2)=0

ilc_energy

real(8), parameter, public modparameters::ilc_energy =250d0 *GeV

Definition at line 258 of file mod_Parameters.F90.

real(8), public, parameter :: ILC_Energy=250d0  *gev        ! Linear collider center of mass energy

includegammastar

logical, public modparameters::includegammastar = .false.

Definition at line 213 of file mod_Parameters.F90.

logical, public :: includeGammaStar = .false.                 ! include offshell photons?

includeinterference

logical, public modparameters::includeinterference

Definition at line 77 of file mod_Parameters.F90.

logical, public :: includeInterference, ReweightInterference, writegit

includevprime

logical, public modparameters::includevprime = .false.

Definition at line 214 of file mod_Parameters.F90.

logical, public :: includeVprime = .false.

invalidmode

integer, parameter, public modparameters::invalidmode =-1

Definition at line 13 of file mod_Parameters.F90.

integer, public, parameter :: InvalidMode=-1,wwmode=00,zzmode=01,zgsmode=02,gszmode=03,gsgsmode=04,zgmode=05,gsgmode=06,ggmode=07

io_csmaxfile

integer, parameter modparameters::io_csmaxfile =18

Definition at line 1143 of file mod_Parameters.F90.

integer,parameter :: io_CSmaxFile=18

io_histofile

integer, parameter modparameters::io_histofile =15

Definition at line 1140 of file mod_Parameters.F90.

integer,parameter :: io_HistoFile=15

io_lheinfile

integer, parameter modparameters::io_lheinfile =16

Definition at line 1141 of file mod_Parameters.F90.

integer,parameter :: io_LHEInFile=16

io_lheoutfile

integer, parameter modparameters::io_lheoutfile =14

Definition at line 1139 of file mod_Parameters.F90.

integer,parameter :: io_LHEOutFile=14

io_lheoutfile2

integer, parameter modparameters::io_lheoutfile2 =19

Definition at line 1144 of file mod_Parameters.F90.

integer,parameter :: io_LHEOutFile2=19

io_lheoutfile3

integer, parameter modparameters::io_lheoutfile3 =20

Definition at line 1145 of file mod_Parameters.F90.

integer,parameter :: io_LHEOutFile3=20

io_logfile

integer, parameter modparameters::io_logfile =17

Definition at line 1142 of file mod_Parameters.F90.

integer,parameter :: io_LogFile=17

io_stdout

integer, parameter modparameters::io_stdout =6

Definition at line 1138 of file mod_Parameters.F90.

integer,parameter :: io_stdout=6

io_tmpfile

integer, parameter modparameters::io_tmpfile =21

Definition at line 1146 of file mod_Parameters.F90.

integer,parameter :: io_TmpFile=21   !to use for whatever purpose is needed, but close afterwards

ipart_sel

integer, public modparameters::ipart_sel

Definition at line 58 of file mod_Parameters.F90.

integer, public :: iPart_sel, jPart_sel, iChann_sel

jetsinevent

integer, dimension(0:8), public modparameters::jetsinevent = 0

Definition at line 128 of file mod_Parameters.F90.

integer, public :: JetsInEvent(0:8) = 0

jetsoppositeeta

logical, public modparameters::jetsoppositeeta = .false.

Definition at line 219 of file mod_Parameters.F90.

logical, public :: JetsOppositeEta = .false.                   ! Ensures associated jets are in opposite hemispheres. Useful to obtain VBF/VBS topology from inclusive production

jhugen_version

character(len=*), parameter modparameters::jhugen_version ="v7.5.4"

Definition at line 6 of file mod_Parameters.F90.

character(len=*),parameter :: JHUGen_Version="v7.5.4"

jpart_sel

integer, public modparameters::jpart_sel

Definition at line 58 of file mod_Parameters.F90.

kappa

complex(8), public modparameters::kappa = (1d0, 0d0)

Definition at line 882 of file mod_Parameters.F90.

   complex(8), public :: kappa       = (1d0,0d0)

kappa2_4gen_bot

complex(8), public modparameters::kappa2_4gen_bot = (0d0, 0d0)

Definition at line 904 of file mod_Parameters.F90.

   complex(8), public :: kappa2_4gen_bot       = (0d0,0d0)

kappa2_4gen_top

complex(8), public modparameters::kappa2_4gen_top = (0d0, 0d0)

Definition at line 902 of file mod_Parameters.F90.

   complex(8), public :: kappa2_4gen_top       = (0d0,0d0)

kappa2_bot

complex(8), public modparameters::kappa2_bot = (0d0, 0d0)

Definition at line 899 of file mod_Parameters.F90.

   complex(8), public :: kappa2_bot       = (0d0,0d0)

kappa2_tilde_4gen_bot

complex(8), public modparameters::kappa2_tilde_4gen_bot = (0d0, 0d0)

Definition at line 905 of file mod_Parameters.F90.

   complex(8), public :: kappa2_tilde_4gen_bot = (0d0,0d0)

kappa2_tilde_4gen_top

complex(8), public modparameters::kappa2_tilde_4gen_top = (0d0, 0d0)

Definition at line 903 of file mod_Parameters.F90.

   complex(8), public :: kappa2_tilde_4gen_top = (0d0,0d0)

kappa2_tilde_bot

complex(8), public modparameters::kappa2_tilde_bot = (0d0, 0d0)

Definition at line 900 of file mod_Parameters.F90.

   complex(8), public :: kappa2_tilde_bot = (0d0,0d0)

kappa2_tilde_top

complex(8), public modparameters::kappa2_tilde_top = (0d0, 0d0)

Definition at line 898 of file mod_Parameters.F90.

   complex(8), public :: kappa2_tilde_top = (0d0,0d0)

kappa2_top

complex(8), public modparameters::kappa2_top = (0d0, 0d0)

Definition at line 897 of file mod_Parameters.F90.

   complex(8), public :: kappa2_top       = (0d0,0d0)

kappa_4gen_bot

complex(8), public modparameters::kappa_4gen_bot = (0d0, 0d0)

Definition at line 893 of file mod_Parameters.F90.

   complex(8), public :: kappa_4gen_bot       = (0d0,0d0)

kappa_4gen_top

complex(8), public modparameters::kappa_4gen_top = (0d0, 0d0)

Definition at line 891 of file mod_Parameters.F90.

   complex(8), public :: kappa_4gen_top       = (0d0,0d0)

kappa_bot

complex(8), public modparameters::kappa_bot = (1d0, 0d0)

Definition at line 888 of file mod_Parameters.F90.

   complex(8), public :: kappa_bot       = (1d0,0d0)

kappa_tilde

complex(8), public modparameters::kappa_tilde = (0d0, 0d0)

Definition at line 883 of file mod_Parameters.F90.

   complex(8), public :: kappa_tilde = (0d0,0d0)

kappa_tilde_4gen_bot

complex(8), public modparameters::kappa_tilde_4gen_bot = (0d0, 0d0)

Definition at line 894 of file mod_Parameters.F90.

   complex(8), public :: kappa_tilde_4gen_bot = (0d0,0d0)

kappa_tilde_4gen_top

complex(8), public modparameters::kappa_tilde_4gen_top = (0d0, 0d0)

Definition at line 892 of file mod_Parameters.F90.

   complex(8), public :: kappa_tilde_4gen_top = (0d0,0d0)

kappa_tilde_bot

complex(8), public modparameters::kappa_tilde_bot = (0d0, 0d0)

Definition at line 889 of file mod_Parameters.F90.

   complex(8), public :: kappa_tilde_bot = (0d0,0d0)

kappa_tilde_top

complex(8), public modparameters::kappa_tilde_top = (0d0, 0d0)

Definition at line 887 of file mod_Parameters.F90.

   complex(8), public :: kappa_tilde_top = (0d0,0d0)

kappa_top

complex(8), public modparameters::kappa_top = (1d0, 0d0)

Definition at line 886 of file mod_Parameters.F90.

   complex(8), public :: kappa_top       = (1d0,0d0)

kev

real(8), parameter, public modparameters::kev =1d-6*GeV

Definition at line 96 of file mod_Parameters.F90.

real(8), public, parameter :: keV=1d-6*gev

krenfacscheme_custom_scale

integer, parameter, public modparameters::krenfacscheme_custom_scale =12

Definition at line 44 of file mod_Parameters.F90.

integer, public, parameter :: kRenFacScheme_custom_scale=12

krenfacscheme_default

integer, parameter, public modparameters::krenfacscheme_default =0

Definition at line 32 of file mod_Parameters.F90.

integer, public, parameter :: kRenFacScheme_default=0

krenfacscheme_maxptj

integer, parameter, public modparameters::krenfacscheme_maxptj =10

Definition at line 42 of file mod_Parameters.F90.

integer, public, parameter :: kRenFacScheme_maxpTj=10

krenfacscheme_mhstar

integer, parameter, public modparameters::krenfacscheme_mhstar =1

Definition at line 33 of file mod_Parameters.F90.

integer, public, parameter :: kRenFacScheme_mhstar=1

krenfacscheme_minptj

integer, parameter, public modparameters::krenfacscheme_minptj =11

Definition at line 43 of file mod_Parameters.F90.

integer, public, parameter :: kRenFacScheme_minpTj=11

krenfacscheme_mj

integer, parameter, public modparameters::krenfacscheme_mj =9

Definition at line 41 of file mod_Parameters.F90.

integer, public, parameter :: kRenFacScheme_mj=9

krenfacscheme_mj_mhstar

integer, parameter, public modparameters::krenfacscheme_mj_mhstar =8

Definition at line 40 of file mod_Parameters.F90.

integer, public, parameter :: kRenFacScheme_mj_mhstar=8

krenfacscheme_mj_mj

integer, parameter, public modparameters::krenfacscheme_mj_mj =6

Definition at line 38 of file mod_Parameters.F90.

integer, public, parameter :: kRenFacScheme_mj_mj=6

krenfacscheme_mj_mj_mhstar

integer, parameter, public modparameters::krenfacscheme_mj_mj_mhstar =4

Definition at line 36 of file mod_Parameters.F90.

integer, public, parameter :: kRenFacScheme_mj_mj_mhstar=4

krenfacscheme_mjhstar

integer, parameter, public modparameters::krenfacscheme_mjhstar =7

Definition at line 39 of file mod_Parameters.F90.

integer, public, parameter :: kRenFacScheme_mjhstar=7

krenfacscheme_mjj

integer, parameter, public modparameters::krenfacscheme_mjj =5

Definition at line 37 of file mod_Parameters.F90.

integer, public, parameter :: kRenFacScheme_mjj=5

krenfacscheme_mjj_mhstar

integer, parameter, public modparameters::krenfacscheme_mjj_mhstar =3

Definition at line 35 of file mod_Parameters.F90.

integer, public, parameter :: kRenFacScheme_mjj_mhstar=3

krenfacscheme_mjjhstar

integer, parameter, public modparameters::krenfacscheme_mjjhstar =2

Definition at line 34 of file mod_Parameters.F90.

integer, public, parameter :: kRenFacScheme_mjjhstar=2

lambda

real(8), parameter, public modparameters::lambda = 1000d0 *GeV

Definition at line 354 of file mod_Parameters.F90.

real(8), public, parameter :: Lambda  = 1000d0    *gev

lambda2

real(8), parameter, public modparameters::lambda2 = 1000d0 *GeV

Definition at line 355 of file mod_Parameters.F90.

real(8), public, parameter :: Lambda2 = 1000d0    *gev      ! for second resonance

lambda2_q

real(8), parameter, public modparameters::lambda2_q = 10000d0*GeV

Definition at line 783 of file mod_Parameters.F90.

   real(8),    public, parameter :: Lambda2_Q  = 10000d0*gev

lambda2_w1

real(8), parameter, public modparameters::lambda2_w1 = 10000d0*GeV

Definition at line 843 of file mod_Parameters.F90.

   real(8),    public, parameter :: Lambda2_w1 = 10000d0*gev

lambda2_w10

real(8), public modparameters::lambda2_w10 = 100d0*GeV

Definition at line 859 of file mod_Parameters.F90.

   real(8),    public :: Lambda2_w10 = 100d0*gev ! For the Higgs

lambda2_w11

real(8), public modparameters::lambda2_w11 = 100d0*GeV

Definition at line 851 of file mod_Parameters.F90.

   real(8),    public :: Lambda2_w11 = 100d0*gev ! For W+

lambda2_w12

real(8), public modparameters::lambda2_w12 = 100d0*GeV

Definition at line 855 of file mod_Parameters.F90.

   real(8),    public :: Lambda2_w12 = 100d0*gev ! For W-

lambda2_w2

real(8), parameter, public modparameters::lambda2_w2 = 10000d0*GeV

Definition at line 844 of file mod_Parameters.F90.

   real(8),    public, parameter :: Lambda2_w2 = 10000d0*gev

lambda2_w20

real(8), public modparameters::lambda2_w20 = 100d0*GeV

Definition at line 860 of file mod_Parameters.F90.

   real(8),    public :: Lambda2_w20 = 100d0*gev

lambda2_w21

real(8), public modparameters::lambda2_w21 = 100d0*GeV

Definition at line 852 of file mod_Parameters.F90.

   real(8),    public :: Lambda2_w21 = 100d0*gev

lambda2_w22

real(8), public modparameters::lambda2_w22 = 100d0*GeV

Definition at line 856 of file mod_Parameters.F90.

   real(8),    public :: Lambda2_w22 = 100d0*gev

lambda2_w3

real(8), parameter, public modparameters::lambda2_w3 = 10000d0*GeV

Definition at line 845 of file mod_Parameters.F90.

   real(8),    public, parameter :: Lambda2_w3 = 10000d0*gev

lambda2_w30

real(8), public modparameters::lambda2_w30 = 100d0*GeV

Definition at line 861 of file mod_Parameters.F90.

   real(8),    public :: Lambda2_w30 = 100d0*gev

lambda2_w31

real(8), public modparameters::lambda2_w31 = 100d0*GeV

Definition at line 853 of file mod_Parameters.F90.

   real(8),    public :: Lambda2_w31 = 100d0*gev

lambda2_w32

real(8), public modparameters::lambda2_w32 = 100d0*GeV

Definition at line 857 of file mod_Parameters.F90.

   real(8),    public :: Lambda2_w32 = 100d0*gev

lambda2_w4

real(8), parameter, public modparameters::lambda2_w4 = 10000d0*GeV

Definition at line 846 of file mod_Parameters.F90.

   real(8),    public, parameter :: Lambda2_w4 = 10000d0*gev

lambda2_w40

real(8), public modparameters::lambda2_w40 = 100d0*GeV

Definition at line 862 of file mod_Parameters.F90.

   real(8),    public :: Lambda2_w40 = 100d0*gev

lambda2_w41

real(8), public modparameters::lambda2_w41 = 100d0*GeV

Definition at line 854 of file mod_Parameters.F90.

   real(8),    public :: Lambda2_w41 = 100d0*gev

lambda2_w42

real(8), public modparameters::lambda2_w42 = 100d0*GeV

Definition at line 858 of file mod_Parameters.F90.

   real(8),    public :: Lambda2_w42 = 100d0*gev

lambda2_z1

real(8), parameter, public modparameters::lambda2_z1 = 10000d0*GeV

Definition at line 778 of file mod_Parameters.F90.

   real(8),    public, parameter :: Lambda2_z1 = 10000d0*gev

lambda2_z10

real(8), public modparameters::lambda2_z10 = 100d0*GeV

Definition at line 796 of file mod_Parameters.F90.

   real(8),    public :: Lambda2_z10 = 100d0*gev ! For the Higgs

lambda2_z11

real(8), public modparameters::lambda2_z11 = 100d0*GeV

Definition at line 788 of file mod_Parameters.F90.

   real(8),    public :: Lambda2_z11 = 100d0*gev ! For Z1

lambda2_z12

real(8), public modparameters::lambda2_z12 = 100d0*GeV

Definition at line 792 of file mod_Parameters.F90.

   real(8),    public :: Lambda2_z12 = 100d0*gev ! For Z2

lambda2_z2

real(8), parameter, public modparameters::lambda2_z2 = 10000d0*GeV

Definition at line 779 of file mod_Parameters.F90.

   real(8),    public, parameter :: Lambda2_z2 = 10000d0*gev

lambda2_z20

real(8), public modparameters::lambda2_z20 = 100d0*GeV

Definition at line 797 of file mod_Parameters.F90.

   real(8),    public :: Lambda2_z20 = 100d0*gev

lambda2_z21

real(8), public modparameters::lambda2_z21 = 100d0*GeV

Definition at line 789 of file mod_Parameters.F90.

   real(8),    public :: Lambda2_z21 = 100d0*gev

lambda2_z22

real(8), public modparameters::lambda2_z22 = 100d0*GeV

Definition at line 793 of file mod_Parameters.F90.

   real(8),    public :: Lambda2_z22 = 100d0*gev

lambda2_z3

real(8), parameter, public modparameters::lambda2_z3 = 10000d0*GeV

Definition at line 780 of file mod_Parameters.F90.

   real(8),    public, parameter :: Lambda2_z3 = 10000d0*gev

lambda2_z30

real(8), public modparameters::lambda2_z30 = 100d0*GeV

Definition at line 798 of file mod_Parameters.F90.

   real(8),    public :: Lambda2_z30 = 100d0*gev

lambda2_z31

real(8), public modparameters::lambda2_z31 = 100d0*GeV

Definition at line 790 of file mod_Parameters.F90.

   real(8),    public :: Lambda2_z31 = 100d0*gev

lambda2_z32

real(8), public modparameters::lambda2_z32 = 100d0*GeV

Definition at line 794 of file mod_Parameters.F90.

   real(8),    public :: Lambda2_z32 = 100d0*gev

lambda2_z4

real(8), parameter, public modparameters::lambda2_z4 = 10000d0*GeV

Definition at line 781 of file mod_Parameters.F90.

   real(8),    public, parameter :: Lambda2_z4 = 10000d0*gev

lambda2_z40

real(8), public modparameters::lambda2_z40 = 100d0*GeV

Definition at line 799 of file mod_Parameters.F90.

   real(8),    public :: Lambda2_z40 = 100d0*gev

lambda2_z41

real(8), public modparameters::lambda2_z41 = 100d0*GeV

Definition at line 791 of file mod_Parameters.F90.

   real(8),    public :: Lambda2_z41 = 100d0*gev

lambda2_z42

real(8), public modparameters::lambda2_z42 = 100d0*GeV

Definition at line 795 of file mod_Parameters.F90.

   real(8),    public :: Lambda2_z42 = 100d0*gev

lambda2_zgs1

real(8), parameter, public modparameters::lambda2_zgs1 = 10000d0*GeV

Definition at line 782 of file mod_Parameters.F90.

   real(8),    public, parameter :: Lambda2_zgs1 = 10000d0*gev

lambda_q

real(8), parameter, public modparameters::lambda_q = 10000d0*GeV

Definition at line 432 of file mod_Parameters.F90.

   real(8),    public, parameter :: Lambda_Q  = 10000d0*gev

lambda_w1

real(8), parameter, public modparameters::lambda_w1 = 10000d0*GeV

Definition at line 492 of file mod_Parameters.F90.

   real(8),    public, parameter :: Lambda_w1 = 10000d0*gev

lambda_w10

real(8), public modparameters::lambda_w10 = 100d0*GeV

Definition at line 508 of file mod_Parameters.F90.

   real(8),    public :: Lambda_w10 = 100d0*gev ! For the Higgs

lambda_w11

real(8), public modparameters::lambda_w11 = 100d0*GeV

Definition at line 500 of file mod_Parameters.F90.

   real(8),    public :: Lambda_w11 = 100d0*gev ! For W+

lambda_w12

real(8), public modparameters::lambda_w12 = 100d0*GeV

Definition at line 504 of file mod_Parameters.F90.

   real(8),    public :: Lambda_w12 = 100d0*gev ! For W-

lambda_w2

real(8), parameter, public modparameters::lambda_w2 = 10000d0*GeV

Definition at line 493 of file mod_Parameters.F90.

   real(8),    public, parameter :: Lambda_w2 = 10000d0*gev

lambda_w20

real(8), public modparameters::lambda_w20 = 100d0*GeV

Definition at line 509 of file mod_Parameters.F90.

   real(8),    public :: Lambda_w20 = 100d0*gev

lambda_w21

real(8), public modparameters::lambda_w21 = 100d0*GeV

Definition at line 501 of file mod_Parameters.F90.

   real(8),    public :: Lambda_w21 = 100d0*gev

lambda_w22

real(8), public modparameters::lambda_w22 = 100d0*GeV

Definition at line 505 of file mod_Parameters.F90.

   real(8),    public :: Lambda_w22 = 100d0*gev

lambda_w3

real(8), parameter, public modparameters::lambda_w3 = 10000d0*GeV

Definition at line 494 of file mod_Parameters.F90.

   real(8),    public, parameter :: Lambda_w3 = 10000d0*gev

lambda_w30

real(8), public modparameters::lambda_w30 = 100d0*GeV

Definition at line 510 of file mod_Parameters.F90.

   real(8),    public :: Lambda_w30 = 100d0*gev

lambda_w31

real(8), public modparameters::lambda_w31 = 100d0*GeV

Definition at line 502 of file mod_Parameters.F90.

   real(8),    public :: Lambda_w31 = 100d0*gev

lambda_w32

real(8), public modparameters::lambda_w32 = 100d0*GeV

Definition at line 506 of file mod_Parameters.F90.

   real(8),    public :: Lambda_w32 = 100d0*gev

lambda_w4

real(8), parameter, public modparameters::lambda_w4 = 10000d0*GeV

Definition at line 495 of file mod_Parameters.F90.

   real(8),    public, parameter :: Lambda_w4 = 10000d0*gev

lambda_w40

real(8), public modparameters::lambda_w40 = 100d0*GeV

Definition at line 511 of file mod_Parameters.F90.

   real(8),    public :: Lambda_w40 = 100d0*gev

lambda_w41

real(8), public modparameters::lambda_w41 = 100d0*GeV

Definition at line 503 of file mod_Parameters.F90.

   real(8),    public :: Lambda_w41 = 100d0*gev

lambda_w42

real(8), public modparameters::lambda_w42 = 100d0*GeV

Definition at line 507 of file mod_Parameters.F90.

   real(8),    public :: Lambda_w42 = 100d0*gev

lambda_z1

real(8), parameter, public modparameters::lambda_z1 = 10000d0*GeV

Definition at line 427 of file mod_Parameters.F90.

   real(8),    public, parameter :: Lambda_z1 = 10000d0*gev

lambda_z10

real(8), public modparameters::lambda_z10 = 100d0*GeV

Definition at line 446 of file mod_Parameters.F90.

   real(8),    public :: Lambda_z10 = 100d0*gev ! For the Higgs

lambda_z11

real(8), public modparameters::lambda_z11 = 100d0*GeV

Definition at line 438 of file mod_Parameters.F90.

   real(8),    public :: Lambda_z11 = 100d0*gev ! For Z1

lambda_z12

real(8), public modparameters::lambda_z12 = 100d0*GeV

Definition at line 442 of file mod_Parameters.F90.

   real(8),    public :: Lambda_z12 = 100d0*gev ! For Z2

lambda_z2

real(8), parameter, public modparameters::lambda_z2 = 10000d0*GeV

Definition at line 428 of file mod_Parameters.F90.

   real(8),    public, parameter :: Lambda_z2 = 10000d0*gev

lambda_z20

real(8), public modparameters::lambda_z20 = 100d0*GeV

Definition at line 447 of file mod_Parameters.F90.

   real(8),    public :: Lambda_z20 = 100d0*gev

lambda_z21

real(8), public modparameters::lambda_z21 = 100d0*GeV

Definition at line 439 of file mod_Parameters.F90.

   real(8),    public :: Lambda_z21 = 100d0*gev

lambda_z22

real(8), public modparameters::lambda_z22 = 100d0*GeV

Definition at line 443 of file mod_Parameters.F90.

   real(8),    public :: Lambda_z22 = 100d0*gev

lambda_z3

real(8), parameter, public modparameters::lambda_z3 = 10000d0*GeV

Definition at line 429 of file mod_Parameters.F90.

   real(8),    public, parameter :: Lambda_z3 = 10000d0*gev

lambda_z30

real(8), public modparameters::lambda_z30 = 100d0*GeV

Definition at line 448 of file mod_Parameters.F90.

   real(8),    public :: Lambda_z30 = 100d0*gev

lambda_z31

real(8), public modparameters::lambda_z31 = 100d0*GeV

Definition at line 440 of file mod_Parameters.F90.

   real(8),    public :: Lambda_z31 = 100d0*gev

lambda_z32

real(8), public modparameters::lambda_z32 = 100d0*GeV

Definition at line 444 of file mod_Parameters.F90.

   real(8),    public :: Lambda_z32 = 100d0*gev

lambda_z4

real(8), parameter, public modparameters::lambda_z4 = 10000d0*GeV

Definition at line 430 of file mod_Parameters.F90.

   real(8),    public, parameter :: Lambda_z4 = 10000d0*gev

lambda_z40

real(8), public modparameters::lambda_z40 = 100d0*GeV

Definition at line 449 of file mod_Parameters.F90.

   real(8),    public :: Lambda_z40 = 100d0*gev

lambda_z41

real(8), public modparameters::lambda_z41 = 100d0*GeV

Definition at line 441 of file mod_Parameters.F90.

   real(8),    public :: Lambda_z41 = 100d0*gev

lambda_z42

real(8), public modparameters::lambda_z42 = 100d0*GeV

Definition at line 445 of file mod_Parameters.F90.

   real(8),    public :: Lambda_z42 = 100d0*gev

lambda_zgs1

real(8), parameter, public modparameters::lambda_zgs1 = 10000d0*GeV

Definition at line 431 of file mod_Parameters.F90.

   real(8),    public, parameter :: Lambda_zgs1 = 10000d0*gev

lenlhapdfstring

integer, public modparameters::lenlhapdfstring

Definition at line 68 of file mod_Parameters.F90.

leptinevent

integer, dimension(0:8), public modparameters::leptinevent = 0

Definition at line 127 of file mod_Parameters.F90.

integer, public :: LeptInEvent(0:8) = 0

lhapdf_data_path

character(len=500) modparameters::lhapdf_data_path

Definition at line 67 of file mod_Parameters.F90.

character(len=500) :: LHAPDF_DATA_PATH

lhapdfmember

integer, public modparameters::lhapdfmember

Definition at line 68 of file mod_Parameters.F90.

integer, public :: LHAPDFMember, lenLHAPDFString ! lenLHAPDFString is needed in MELA

lhapdfstring

character(len=100) modparameters::lhapdfstring

Definition at line 66 of file mod_Parameters.F90.

character(len=100) :: LHAPDFString

lhc_energy

real(8), parameter, public modparameters::lhc_energy =13d0 *TeV

Definition at line 256 of file mod_Parameters.F90.

real(8), public, parameter :: LHC_Energy=13d0  *tev      ! LHC hadronic center of mass energy

lheprodfile

character(len=500) modparameters::lheprodfile

Definition at line 64 of file mod_Parameters.F90.

character(len=500) :: LHEProdFile

logfile

character(len=500) modparameters::logfile

Definition at line 63 of file mod_Parameters.F90.

character(len=500) :: LogFile

m2l_minmax

real(8), dimension(1:2), public modparameters::m2l_minmax = (/ 0d0,14000d0 /)*GeV

Definition at line 211 of file mod_Parameters.F90.

real(8), public :: m2l_minmax(1:2) = (/ 0d0,14000d0 /)*gev   ! min and max for m_V in VH production;

m4l_minmax

real(8), dimension(1:2), public modparameters::m4l_minmax = (/ -1d0,-1d0 /)*GeV

Definition at line 210 of file mod_Parameters.F90.

real(8), public :: m4l_minmax(1:2) = (/ -1d0,-1d0 /)*gev      ! min and max for m_4l. default is (-1,-1): m_4l ~ Higgs resonance (on-shell)

m_bot

real(8), public modparameters::m_bot = 4.75d0 *GeV

Definition at line 238 of file mod_Parameters.F90.

real(8), public            :: m_bot = 4.75d0       *gev     ! bottom quark mass

m_bot_4gen

real(8), public modparameters::m_bot_4gen = 100000d0*GeV

Definition at line 244 of file mod_Parameters.F90.

real(8), public            :: m_bot_4gen = 100000d0*gev     ! b mass for fourth-generation loop in gg MCFM

m_charm

real(8), public modparameters::m_charm = 1.275d0 *GeV

Definition at line 239 of file mod_Parameters.F90.

real(8), public            :: m_charm = 1.275d0    *gev     ! charm quark mass

m_el

real(8), public modparameters::m_el = 0.00051100d0 *GeV

Definition at line 240 of file mod_Parameters.F90.

real(8), public            :: m_el = 0.00051100d0  *gev     ! electron mass

m_mu

real(8), public modparameters::m_mu = 0.10566d0 *GeV

Definition at line 241 of file mod_Parameters.F90.

real(8), public            :: m_mu = 0.10566d0     *gev     ! muon mass

m_reso

real(8), public modparameters::m_reso = 125.0d0 *GeV

Definition at line 230 of file mod_Parameters.F90.

real(8), public            :: M_Reso  = 125.0d0   *gev      ! X resonance mass (spin 0, spin 1, spin 2, can be overwritten by command line argument)

m_reso2

real(8), public modparameters::m_reso2 = -1d0 *GeV

Definition at line 232 of file mod_Parameters.F90.

real(8), public            :: M_Reso2 = -1d0      *gev      ! second resonance mass (spin 0 in off-shell MCFM, can be overwritten by command line argument)

m_tau

real(8), public modparameters::m_tau = 1.7768d0 *GeV

Definition at line 242 of file mod_Parameters.F90.

real(8), public            :: m_tau = 1.7768d0     *gev     ! tau mass

m_top

real(8), public modparameters::m_top = 173.2d0 *GeV

Definition at line 224 of file mod_Parameters.F90.

real(8), public            :: M_Top   = 173.2d0   *gev      ! top quark mass

m_top_4gen

real(8), public modparameters::m_top_4gen = 100000d0*GeV

Definition at line 245 of file mod_Parameters.F90.

real(8), public            :: m_top_4gen = 100000d0*gev     ! t mass for fourth-generation loop in gg MCFM

m_v

real(8), public modparameters::m_v

Definition at line 78 of file mod_Parameters.F90.

real(8), public :: M_V,Ga_V, M_Vprime,Ga_Vprime, M_V_ps,Ga_V_ps, M_Z_ps,Ga_Z_ps, M_W_ps,Ga_W_ps

m_v_ps

real(8), public modparameters::m_v_ps

Definition at line 78 of file mod_Parameters.F90.

m_vprime

real(8), public modparameters::m_vprime

Definition at line 78 of file mod_Parameters.F90.

m_w

real(8), public modparameters::m_w = 80.399d0 *GeV

Definition at line 228 of file mod_Parameters.F90.

real(8), public            :: M_W     = 80.399d0  *gev      ! W boson mass (PDG-2011)

m_w_ps

real(8), public modparameters::m_w_ps

Definition at line 78 of file mod_Parameters.F90.

m_wprime

real(8), public modparameters::m_wprime = -1d0

Definition at line 712 of file mod_Parameters.F90.

   real(8), public :: M_Wprime = -1d0 ! <0: CT interaction, >=0: Heavy Zprime propagator

m_z

real(8), public modparameters::m_z = 91.1876d0 *GeV

Definition at line 226 of file mod_Parameters.F90.

real(8), public            :: M_Z     = 91.1876d0 *gev      ! Z boson mass (PDG-2011)

m_z_ps

real(8), public modparameters::m_z_ps

Definition at line 78 of file mod_Parameters.F90.

m_zprime

real(8), public modparameters::m_zprime = -1d0

Definition at line 619 of file mod_Parameters.F90.

   real(8), public :: M_Zprime = -1d0 ! <0: CT interaction, >=0: Heavy Zprime propagator

maxcs

real(8), public modparameters::maxcs =0d0

Definition at line 119 of file mod_Parameters.F90.

maxinputmhstar

real(8), public modparameters::maxinputmhstar = -999d0

Definition at line 135 of file mod_Parameters.F90.

real(8), public :: maxInputmHstar = -999d0, mininputmhstar = 1d15, mhstarforphasespace

maxpart

integer, parameter, public modparameters::maxpart = 30

Definition at line 46 of file mod_Parameters.F90.

integer, public, parameter :: maxpart = 30

meter

real(8), parameter, public modparameters::meter =1d6

Definition at line 98 of file mod_Parameters.F90.

real(8), public, parameter :: meter=1d6

mev

real(8), parameter, public modparameters::mev =1d-3*GeV

Definition at line 95 of file mod_Parameters.F90.

real(8), public, parameter :: MeV=1d-3*gev

mhstarforphasespace

real(8), public modparameters::mhstarforphasespace

Definition at line 135 of file mod_Parameters.F90.

milimeter

real(8), parameter, public modparameters::milimeter =1d-3*meter

Definition at line 99 of file mod_Parameters.F90.

real(8), public, parameter :: milimeter=1d-3*meter

milisecond

real(8), parameter, public modparameters::milisecond =1d-3*second

Definition at line 106 of file mod_Parameters.F90.

real(8), public, parameter :: milisecond=1d-3*second

mincs

real(8), public modparameters::mincs =1d10

Definition at line 119 of file mod_Parameters.F90.

real(8),public :: minCS=1d10,maxcs=0d0,avgcs=0d0

mininputmhstar

real(8), public modparameters::mininputmhstar = 1d15

Definition at line 135 of file mod_Parameters.F90.

mjjcut

real(8), public modparameters::mjjcut = 0d0*GeV

Definition at line 209 of file mod_Parameters.F90.

real(8), public :: mJJcut = 0d0*gev                           ! minimum mJJ

mom_not_a_particle

real(8), dimension(1:4), parameter, public modparameters::mom_not_a_particle = (/0d0,0d0,0d0,0d0/)

Definition at line 1122 of file mod_Parameters.F90.

real(8), public, parameter :: Mom_Not_a_particle(1:4) = (/0d0,0d0,0d0,0d0/)

mone

real(8), parameter, public modparameters::mone = -1.0d0

Definition at line 83 of file mod_Parameters.F90.

mphotoncutoff

real(8), public modparameters::mphotoncutoff = -1d0*GeV

Definition at line 215 of file mod_Parameters.F90.

real(8), public :: MPhotonCutoff = -1d0*gev                          ! minimum |mass_ll| for offshell photons when includeGammaStar = .true. or in VBF bkg

mu_fact

real(8), public modparameters::mu_fact

Definition at line 267 of file mod_Parameters.F90.

real(8), public            :: Mu_Fact                    ! pdf factorization scale (set to M_Reso in main.F90)

mu_ren

real(8), public modparameters::mu_ren

Definition at line 268 of file mod_Parameters.F90.

real(8), public            :: Mu_Ren                     ! QCD renormalization (alpha_s) scale (set to M_Reso in main.F90)

mubarh

real(8), public modparameters::mubarh = -999d0

Definition at line 133 of file mod_Parameters.F90.

real(8), public :: mubarH = -999d0   !for CPS

mufacmultiplier

real(8), public modparameters::mufacmultiplier

Definition at line 21 of file mod_Parameters.F90.

real(8), public :: MuFacMultiplier,MuRenMultiplier,CustomUpperScaleBound, CustomLowerScaleBound

mum_

integer, target, public modparameters::mum_ = -8

Definition at line 1113 of file mod_Parameters.F90.

integer, public, target :: MuM_  = -8

mup_

integer, target, public modparameters::mup_ = 8

Definition at line 1091 of file mod_Parameters.F90.

integer, public, target :: MuP_ = 8

murenmultiplier

real(8), public modparameters::murenmultiplier

Definition at line 21 of file mod_Parameters.F90.

mvh_minmax

real(8), dimension(1:2), public modparameters::mvh_minmax = (/ 0d0,14000d0 /)*GeV

Definition at line 212 of file mod_Parameters.F90.

real(8), public :: mVH_minmax(1:2) = (/ 0d0,14000d0 /)*gev      ! min and max for m_VH in VH production;

ne

complex(8), parameter, public modparameters::ne =(0d0, 1.0d0)

Definition at line 89 of file mod_Parameters.F90.

complex(8), parameter, public :: ne=(0d0,1.0d0)

nf

real(dp), parameter, public modparameters::nf = 5.0_dp

Definition at line 1014 of file mod_Parameters.F90.

real(dp), public, parameter :: nf = 5.0_dp

nloops_pdf

integer, parameter, public modparameters::nloops_pdf = 1

Definition at line 265 of file mod_Parameters.F90.

integer, public, parameter :: nloops_pdf = 1             ! alpha_s order

nmaxchannels

integer, parameter, public modparameters::nmaxchannels =200

Definition at line 47 of file mod_Parameters.F90.

integer, public, parameter :: NMAXCHANNELS=200 ! Maximum 250 from vegas_common xi dimensions

nmaxseeds

integer, parameter, public modparameters::nmaxseeds = 33

Definition at line 159 of file mod_Parameters.F90.

integer, public, parameter :: nmaxseeds = 33

not_a_particle_

integer, parameter, public modparameters::not_a_particle_ = -9000

Definition at line 1121 of file mod_Parameters.F90.

integer, public, parameter :: Not_a_particle_  = -9000

nqflavors_pdf

integer, parameter, public modparameters::nqflavors_pdf = 5

Definition at line 264 of file mod_Parameters.F90.

integer, public, parameter :: nQflavors_pdf = 5          ! Number of flavors enforced to the PDF, used in ModParameters::EvalAlphaS()

nrenfacschemes

integer, parameter, public modparameters::nrenfacschemes =13

Definition at line 45 of file mod_Parameters.F90.

integer, public, parameter :: nRenFacSchemes=13

nue_

integer, target, public modparameters::nue_ = 14

Definition at line 1097 of file mod_Parameters.F90.

integer, public, target :: NuE_ = 14

num_

integer, target, public modparameters::num_ = 15

Definition at line 1098 of file mod_Parameters.F90.

integer, public, target :: NuM_ = 15

numhistograms

integer, public modparameters::numhistograms

Definition at line 23 of file mod_Parameters.F90.

integer, public :: NumHistograms

nut_

integer, target, public modparameters::nut_ = 16

Definition at line 1099 of file mod_Parameters.F90.

integer, public, target :: NuT_ = 16

offshellreson

logical, public modparameters::offshellreson

Definition at line 28 of file mod_Parameters.F90.

offshellv1

logical, public modparameters::offshellv1

Definition at line 28 of file mod_Parameters.F90.

offshellv2

logical, public modparameters::offshellv2

Definition at line 28 of file mod_Parameters.F90.

one

real(8), parameter, public modparameters::one = 1.0d0

Definition at line 83 of file mod_Parameters.F90.

real(8), public, parameter :: one = 1.0d0, mone = -1.0d0

overallcouplvffsq

real(8), public modparameters::overallcouplvffsq

Definition at line 1057 of file mod_Parameters.F90.

real(8), public            :: overallCouplVffsq ! Overall coupling squared that goes along with the ones below

pchannel

integer, public modparameters::pchannel

Definition at line 17 of file mod_Parameters.F90.

pdfabot_

integer, parameter, public modparameters::pdfabot_ = -5

Definition at line 1135 of file mod_Parameters.F90.

integer, public, parameter :: pdfABot_ = -5

pdfachm_

integer, parameter, public modparameters::pdfachm_ = -4

Definition at line 1134 of file mod_Parameters.F90.

integer, public, parameter :: pdfAChm_ = -4

pdfadn_

integer, parameter, public modparameters::pdfadn_ = -1

Definition at line 1131 of file mod_Parameters.F90.

integer, public, parameter :: pdfADn_ = -1

pdfastr_

integer, parameter, public modparameters::pdfastr_ = -3

Definition at line 1133 of file mod_Parameters.F90.

integer, public, parameter :: pdfAStr_ = -3

pdfatop_

integer, parameter, public modparameters::pdfatop_ = -6

Definition at line 1136 of file mod_Parameters.F90.

integer, public, parameter :: pdfATop_ = -6 ! Dummy

pdfaup_

integer, parameter, public modparameters::pdfaup_ = -2

Definition at line 1132 of file mod_Parameters.F90.

integer, public, parameter :: pdfAUp_ = -2

pdfbot_

integer, parameter, public modparameters::pdfbot_ = 5

Definition at line 1129 of file mod_Parameters.F90.

integer, public, parameter :: pdfBot_ = 5

pdfchm_

integer, parameter, public modparameters::pdfchm_ = 4

Definition at line 1128 of file mod_Parameters.F90.

integer, public, parameter :: pdfChm_ = 4

pdfdn_

integer, parameter, public modparameters::pdfdn_ = 1

Definition at line 1125 of file mod_Parameters.F90.

integer, public, parameter :: pdfDn_ = 1

pdfglu_

integer, parameter, public modparameters::pdfglu_ = 0

Definition at line 1124 of file mod_Parameters.F90.

integer, public, parameter :: pdfGlu_ = 0

pdfset

integer, public modparameters::pdfset

Definition at line 69 of file mod_Parameters.F90.

integer, public :: PDFSet

pdfstr_

integer, parameter, public modparameters::pdfstr_ = 3

Definition at line 1127 of file mod_Parameters.F90.

integer, public, parameter :: pdfStr_ = 3

pdftop_

integer, parameter, public modparameters::pdftop_ = 6

Definition at line 1130 of file mod_Parameters.F90.

integer, public, parameter :: pdfTop_ = 6 ! Dummy

pdfup_

integer, parameter, public modparameters::pdfup_ = 2

Definition at line 1126 of file mod_Parameters.F90.

integer, public, parameter :: pdfUp_ = 2

percent

real(8), parameter, public modparameters::percent =1d0/100d0

Definition at line 90 of file mod_Parameters.F90.

real(8), public, parameter :: percent=1d0/100d0

pho_

integer, target, public modparameters::pho_ = 11

Definition at line 1094 of file mod_Parameters.F90.

integer, public, target :: Pho_ = 11

pi

real(dp), parameter, public modparameters::pi =3.141592653589793238462643383279502884197_dp

Definition at line 79 of file mod_Parameters.F90.

real(dp), public, parameter :: pi =3.141592653589793238462643383279502884197_dp

picobarn

real(8), parameter, public modparameters::picobarn =1e-12*barn

Definition at line 102 of file mod_Parameters.F90.

real(8), public, parameter :: picobarn=1e-12*barn

pisq

real(dp), parameter, public modparameters::pisq = pi**2

Definition at line 82 of file mod_Parameters.F90.

real(dp), public, parameter :: pisq = pi**2

planckconstant

real(8), parameter, public modparameters::planckconstant =4.13567d-15*eV*second

Definition at line 108 of file mod_Parameters.F90.

real(8), public, parameter :: PlanckConstant=4.13567d-15*ev*second

pmzz_mreso

real(8), public modparameters::pmzz_mreso = -1d0

Definition at line 138 of file mod_Parameters.F90.

real(8), public :: PMZZ_mReso = -1d0

pmzzdistribution

real(8), dimension(1:pmzzsize,1:2), public modparameters::pmzzdistribution

Definition at line 140 of file mod_Parameters.F90.

real(8), public :: PMZZdistribution(1:PMZZsize,1:2)  !huge array, in normal cases will never get near the edge

pmzzevals

integer, public modparameters::pmzzevals

Definition at line 18 of file mod_Parameters.F90.

pmzzfile

character(len=500), public modparameters::pmzzfile = "PMZZdistribution.out"

Definition at line 137 of file mod_Parameters.F90.

character(len=500), public :: PMZZfile = "PMZZdistribution.out"

pmzzmaxindex

integer, public modparameters::pmzzmaxindex =-1

Definition at line 141 of file mod_Parameters.F90.

pmzzminindex

integer, public modparameters::pmzzminindex =-1

Definition at line 141 of file mod_Parameters.F90.

integer, public :: PMZZminindex=-1, pmzzmaxindex=-1  !store the largest and smallest values currently used

pmzzsize

integer, parameter, public modparameters::pmzzsize = 10000

Definition at line 139 of file mod_Parameters.F90.

integer, public, parameter :: PMZZsize = 10000

pol_a

real(8), public modparameters::pol_a = 0d0

Definition at line 260 of file mod_Parameters.F90.

real(8), public            :: POL_A = 0d0                   ! e+ polarization. 0: no polarization, 100: helicity = 1, -100: helicity = -1

pol_b

real(8), public modparameters::pol_b = 0d0

Definition at line 261 of file mod_Parameters.F90.

real(8), public            :: POL_B = 0d0                   ! e- polarization. 0: no polarization, 100: helicity = 1, -100: helicity = -1

printpmzz

complex(8), public modparameters::printpmzz

Definition at line 142 of file mod_Parameters.F90.

complex(8), public :: PrintPMZZ   !real part is the minimum, imaginary part is the maximum

printpmzzintervals

integer, public modparameters::printpmzzintervals

Definition at line 143 of file mod_Parameters.F90.

integer, public :: PrintPMZZIntervals

process

integer, public modparameters::process

Definition at line 17 of file mod_Parameters.F90.

pthcut

real(8), public modparameters::pthcut = 0d0*GeV

Definition at line 218 of file mod_Parameters.F90.

real(8), public :: pTHcut = 0d0*gev

ptjetcut

real(8), public modparameters::ptjetcut = -1d0*GeV

Definition at line 205 of file mod_Parameters.F90.

real(8), public :: pTjetcut = -1d0*gev                        ! jet min pt

ptlepcut

real(8), public modparameters::ptlepcut = -1d0*GeV

Definition at line 216 of file mod_Parameters.F90.

real(8), public :: pTlepcut = -1d0*gev                         ! lepton min pt

qdl

real(8), parameter, public modparameters::qdl = -1d0/3d0

Definition at line 1038 of file mod_Parameters.F90.

real(8), public, parameter :: QdL = -1d0/3d0

qdr

real(8), parameter, public modparameters::qdr = -1d0/3d0

Definition at line 1039 of file mod_Parameters.F90.

real(8), public, parameter :: QdR = -1d0/3d0

qll

real(8), parameter, public modparameters::qll = -1d0

Definition at line 1032 of file mod_Parameters.F90.

real(8), public, parameter :: QlL = -1d0

qlr

real(8), parameter, public modparameters::qlr = -1d0

Definition at line 1033 of file mod_Parameters.F90.

real(8), public, parameter :: QlR = -1d0

qnl

real(8), parameter, public modparameters::qnl = 0d0

Definition at line 1034 of file mod_Parameters.F90.

real(8), public, parameter :: QnL =  0d0

qnr

real(8), parameter, public modparameters::qnr = 0d0

Definition at line 1035 of file mod_Parameters.F90.

real(8), public, parameter :: QnR =  0d0

quarkcolavg

real(8), parameter, public modparameters::quarkcolavg =1d0/3d0

Definition at line 91 of file mod_Parameters.F90.

qul

real(8), parameter, public modparameters::qul = 2d0/3d0

Definition at line 1036 of file mod_Parameters.F90.

real(8), public, parameter :: QuL = 2d0/3d0

qur

real(8), parameter, public modparameters::qur = 2d0/3d0

Definition at line 1037 of file mod_Parameters.F90.

real(8), public, parameter :: QuR = 2d0/3d0

randomizevvdecays

logical, public modparameters::randomizevvdecays = .true.

Definition at line 174 of file mod_Parameters.F90.

logical, public :: RandomizeVVdecays = .true.    ! randomize DecayMode1 and DecayMode2 in H-->VV and TTBAR decays whenever appropriate

readcsmax

logical, public modparameters::readcsmax

Definition at line 29 of file mod_Parameters.F90.

logical, public :: ReadCSmax,GenerateEvents,CountTauAsAny,HasLeptonFilter, FoundHiggsMass, FoundHiggsWidth

readlhefile

logical, public modparameters::readlhefile

Definition at line 28 of file mod_Parameters.F90.

readpmzz

logical, public modparameters::readpmzz

Definition at line 136 of file mod_Parameters.F90.

logical, public :: ReadPMZZ

rejecounter

integer(8), public modparameters::rejecounter =0

Definition at line 49 of file mod_Parameters.F90.

integer(8), public :: RejeCounter=0

rejecounter_part

integer(8), dimension(-6:6,-6:6), public modparameters::rejecounter_part =0

Definition at line 52 of file mod_Parameters.F90.

renscheme

integer, public modparameters::renscheme

Definition at line 20 of file mod_Parameters.F90.

requestnjets

integer, dimension(1:2), public modparameters::requestnjets = -1

Definition at line 25 of file mod_Parameters.F90.

integer, public :: RequestNJets(1:2) = -1

requestnleptons

integer, dimension(1:2), public modparameters::requestnleptons = -1

Definition at line 24 of file mod_Parameters.F90.

integer, public :: RequestNLeptons(1:2) = -1

requestos

integer, dimension(1:2), public modparameters::requestos = -1

Definition at line 26 of file mod_Parameters.F90.

integer, public :: RequestOS(1:2) = -1

requestossf

integer, dimension(1:2), public modparameters::requestossf = -1

Definition at line 27 of file mod_Parameters.F90.

integer, public :: RequestOSSF(1:2) = -1

requevents

integer(8), dimension(-6:+6,-6:+6), public modparameters::requevents =0

Definition at line 52 of file mod_Parameters.F90.

requevents2

integer(8), dimension(1:nmaxchannels), public modparameters::requevents2 =0

Definition at line 54 of file mod_Parameters.F90.

integer(8), public :: RequEvents2(1:NMAXCHANNELS)=0

reweightdecay

logical, public modparameters::reweightdecay = .false.

Definition at line 129 of file mod_Parameters.F90.

logical, public :: ReweightDecay = .false.

reweightinterference

logical, public modparameters::reweightinterference

Definition at line 77 of file mod_Parameters.F90.

rjet

real(8), public modparameters::rjet = -1d0

Definition at line 208 of file mod_Parameters.F90.

real(8), public :: Rjet = -1d0                                ! jet deltaR

scale_alpha_w_cs

real(8), public modparameters::scale_alpha_w_cs = 1.038200d0

Definition at line 333 of file mod_Parameters.F90.

real(8), public :: scale_alpha_W_cs = 1.038200d0 ! scaling factor of alpha (~partial width) for W > c s

scale_alpha_w_ln

real(8), public modparameters::scale_alpha_w_ln = 1d0

Definition at line 334 of file mod_Parameters.F90.

real(8), public :: scale_alpha_W_ln = 1d0        ! scaling factor of alpha (~partial width) for W > l nu (l=e,mu)

scale_alpha_w_tn

real(8), public modparameters::scale_alpha_w_tn = 1d0

Definition at line 335 of file mod_Parameters.F90.

real(8), public :: scale_alpha_W_tn = 1d0        ! scaling factor of alpha (~partial width) for W > tau nu

scale_alpha_w_ud

real(8), public modparameters::scale_alpha_w_ud = 1.038200d0

Definition at line 332 of file mod_Parameters.F90.

real(8), public :: scale_alpha_W_ud = 1.038200d0 ! scaling factor of alpha (~partial width) for W > u d

scale_alpha_z_dd

real(8), public modparameters::scale_alpha_z_dd = 1.037560d0

Definition at line 328 of file mod_Parameters.F90.

real(8), public :: scale_alpha_Z_dd = 1.037560d0 ! scaling factor of alpha (~partial width) for Z > d d~, s s~, b b~

scale_alpha_z_ll

real(8), public modparameters::scale_alpha_z_ll = 1d0

Definition at line 329 of file mod_Parameters.F90.

real(8), public :: scale_alpha_Z_ll = 1d0        ! scaling factor of alpha (~partial width) for Z > l+ l-  (l=e,mu)

scale_alpha_z_nn

real(8), public modparameters::scale_alpha_z_nn = 1d0

Definition at line 331 of file mod_Parameters.F90.

real(8), public :: scale_alpha_Z_nn = 1d0        ! scaling factor of alpha (~partial width) for Z > nu nu~

scale_alpha_z_tt

real(8), public modparameters::scale_alpha_z_tt = 1d0

Definition at line 330 of file mod_Parameters.F90.

real(8), public :: scale_alpha_Z_tt = 1d0        ! scaling factor of alpha (~partial width) for Z > tau+ tau-

scale_alpha_z_uu

real(8), public modparameters::scale_alpha_z_uu = 1.037560d0

Definition at line 327 of file mod_Parameters.F90.

real(8), public :: scale_alpha_Z_uu = 1.037560d0 ! scaling factor of alpha (~partial width) for Z > u u~, c c~

second

real(8), parameter, public modparameters::second =1d15

Definition at line 105 of file mod_Parameters.F90.

real(8), public, parameter :: second=1d15

sitw

real(8), public modparameters::sitw

Definition at line 254 of file mod_Parameters.F90.

real(8), public            :: sitW ! = dsqrt(xw)            ! sin(Theta_Weinberg) (PDG-2008)

speedoflight

real(8), parameter, public modparameters::speedoflight =299792458*meter/second

Definition at line 107 of file mod_Parameters.F90.

real(8), public, parameter :: SpeedOfLight=299792458*meter/second

spinavg

real(8), parameter, public modparameters::spinavg =1d0/4d0

Definition at line 91 of file mod_Parameters.F90.

sqrt2

real(dp), parameter, public modparameters::sqrt2 = 1.4142135623730950488016887242096980786_dp

Definition at line 80 of file mod_Parameters.F90.

real(dp), public, parameter :: sqrt2 = 1.4142135623730950488016887242096980786_dp

str_

integer, target, public modparameters::str_ = 4

Definition at line 1087 of file mod_Parameters.F90.

integer, public, target :: Str_ = 4

symmfac

real(8), parameter, public modparameters::symmfac =1d0/2d0

Definition at line 91 of file mod_Parameters.F90.

real(8), public, parameter :: SymmFac=1d0/2d0, spinavg=1d0/4d0, quarkcolavg=1d0/3d0, gluoncolavg=1d0/8d0

t3dl

real(8), parameter, public modparameters::t3dl = -0.5d0

Definition at line 1030 of file mod_Parameters.F90.

real(8), public, parameter :: T3dL= -0.5d0

t3dr

real(8), parameter, public modparameters::t3dr = 0d0

Definition at line 1031 of file mod_Parameters.F90.

real(8), public, parameter :: T3dR= 0d0

t3ll

real(8), parameter, public modparameters::t3ll = -0.5d0

Definition at line 1024 of file mod_Parameters.F90.

real(8), public, parameter :: T3lL= -0.5d0

t3lr

real(8), parameter, public modparameters::t3lr = 0d0

Definition at line 1025 of file mod_Parameters.F90.

real(8), public, parameter :: T3lR=  0d0

t3nl

real(8), parameter, public modparameters::t3nl = 0.5d0

Definition at line 1026 of file mod_Parameters.F90.

real(8), public, parameter :: T3nL=  0.5d0

t3nr

real(8), parameter, public modparameters::t3nr = 0d0

Definition at line 1027 of file mod_Parameters.F90.

real(8), public, parameter :: T3nR=  0d0

t3ul

real(8), parameter, public modparameters::t3ul = 0.5d0

Definition at line 1028 of file mod_Parameters.F90.

real(8), public, parameter :: T3uL= 0.5d0

t3ur

real(8), parameter, public modparameters::t3ur = 0d0

Definition at line 1029 of file mod_Parameters.F90.

real(8), public, parameter :: T3uR= 0d0

tam_

integer, target, public modparameters::tam_ = -9

Definition at line 1114 of file mod_Parameters.F90.

integer, public, target :: TaM_  = -9

tap_

integer, target, public modparameters::tap_ = 9

Definition at line 1092 of file mod_Parameters.F90.

integer, public, target :: TaP_ = 9

taudecays

integer, public modparameters::taudecays

Definition at line 17 of file mod_Parameters.F90.

tev

real(8), parameter, public modparameters::tev =1d+3*GeV

Definition at line 94 of file mod_Parameters.F90.

real(8), public, parameter :: TeV=1d+3*gev

tev_energy

real(8), parameter, public modparameters::tev_energy =1.96d0 *TeV

Definition at line 257 of file mod_Parameters.F90.

real(8), public, parameter :: TEV_Energy=1.96d0  *tev       ! Tevatron hadronic center of mass energy

theseeds

integer, dimension(1:nmaxseeds), public modparameters::theseeds = DefaultSeeds

Definition at line 161 of file mod_Parameters.F90.

integer, public            :: TheSeeds(1:nmaxseeds) = defaultseeds

time_end

real(8) modparameters::time_end

Definition at line 59 of file mod_Parameters.F90.

time_int

real(8) modparameters::time_int

Definition at line 59 of file mod_Parameters.F90.

time_start

real(8) modparameters::time_start

Definition at line 59 of file mod_Parameters.F90.

real(8) :: time_start,time_end,time_int

tol

real(8), parameter, public modparameters::tol = 0.0000001d0

Definition at line 12 of file mod_Parameters.F90.

real(8), public, parameter :: tol = 0.0000001d0

top_

integer, target, public modparameters::top_ = 5

Definition at line 1088 of file mod_Parameters.F90.

integer, public, target :: Top_ = 5

topdecays

integer, public modparameters::topdecays

Definition at line 17 of file mod_Parameters.F90.

tr

real(dp), parameter, public modparameters::tr = 0.5_dp

Definition at line 1018 of file mod_Parameters.F90.

real(dp), public, parameter :: Tr = 0.5_dp

two

real(8), parameter, public modparameters::two = 2.0d0

Definition at line 84 of file mod_Parameters.F90.

twosc

real(8), public modparameters::twosc

Definition at line 255 of file mod_Parameters.F90.

real(8), public            :: twosc ! = sqrt(4.0_dp*xw*(1.0_dp-xw))

unweighted

logical, public modparameters::unweighted

Definition at line 28 of file mod_Parameters.F90.

logical, public :: Unweighted,OffShellReson,OffShellV1,OffShellV2,ReadLHEFile,ConvertLHEFile,DoPrintPMZZ

up_

integer, target, public modparameters::up_ = 1

Definition at line 1084 of file mod_Parameters.F90.

integer, public, target :: Up_  = 1

use_dynamic_mg

logical, parameter, public modparameters::use_dynamic_mg = .true.

Definition at line 933 of file mod_Parameters.F90.

  logical, public, parameter :: use_dynamic_MG = .true.

userseed

integer, public modparameters::userseed = 0

Definition at line 130 of file mod_Parameters.F90.

integer, public :: UserSeed = 0

useunformattedread

logical, public modparameters::useunformattedread = .false.

Definition at line 176 of file mod_Parameters.F90.

logical, public :: UseUnformattedRead = .false.  !Set this to true if the regular reading fails for whatever reason

vbfoffsh_run

integer, public modparameters::vbfoffsh_run =-1

Definition at line 144 of file mod_Parameters.F90.

integer, public :: VBFoffsh_run=-1

vckm_cb

real(8), public modparameters::vckm_cb

Definition at line 282 of file mod_Parameters.F90.

real(8), public            :: VCKM_cb! = dsqrt(1d0-VCKM_cd**2-VCKM_cs**2)

vckm_cd

real(8), public modparameters::vckm_cd

Definition at line 279 of file mod_Parameters.F90.

real(8), public            :: VCKM_cd! =-0.225182d0

vckm_cs

real(8), public modparameters::vckm_cs

Definition at line 278 of file mod_Parameters.F90.

real(8), public            :: VCKM_cs! = 0.9734244d0

vckm_tb

real(8), public modparameters::vckm_tb

Definition at line 280 of file mod_Parameters.F90.

real(8), public            :: VCKM_tb! = 0.99912367d0

vckm_td

real(8), public modparameters::vckm_td

Definition at line 284 of file mod_Parameters.F90.

real(8), public            :: VCKM_td! = dsqrt(1d0-VCKM_tb**2-VCKM_ts**2)

vckm_ts

real(8), public modparameters::vckm_ts

Definition at line 281 of file mod_Parameters.F90.

real(8), public            :: VCKM_ts! =-0.040920069d0

vckm_ub

real(8), public modparameters::vckm_ub

Definition at line 283 of file mod_Parameters.F90.

real(8), public            :: VCKM_ub! = dsqrt(1d0-VCKM_ud**2-VCKM_us**2)

vckm_ud

real(8), public modparameters::vckm_ud

Definition at line 276 of file mod_Parameters.F90.

real(8), public            :: VCKM_ud! = 0.974285d0

vckm_us

real(8), public modparameters::vckm_us

Definition at line 277 of file mod_Parameters.F90.

real(8), public            :: VCKM_us! = 0.225290d0

vegasit1

integer, public modparameters::vegasit1

Definition at line 18 of file mod_Parameters.F90.

integer, public :: VegasIt1,VegasNc0,VegasNc1,VegasNc2,PMZZEvals

vegasit1_default

integer, public modparameters::vegasit1_default

Definition at line 22 of file mod_Parameters.F90.

integer, public :: VegasIt1_default,VegasNc0_default,VegasNc1_default,VegasNc2_default

vegasnc0

integer, public modparameters::vegasnc0

Definition at line 18 of file mod_Parameters.F90.

vegasnc0_default

integer, public modparameters::vegasnc0_default

Definition at line 22 of file mod_Parameters.F90.

vegasnc1

integer, public modparameters::vegasnc1

Definition at line 18 of file mod_Parameters.F90.

vegasnc1_default

integer, public modparameters::vegasnc1_default

Definition at line 22 of file mod_Parameters.F90.

vegasnc2

integer, public modparameters::vegasnc2

Definition at line 18 of file mod_Parameters.F90.

vegasnc2_default

integer, public modparameters::vegasnc2_default

Definition at line 22 of file mod_Parameters.F90.

vev

real(8), public modparameters::vev

Definition at line 249 of file mod_Parameters.F90.

real(8), public            :: vev ! = 1.0d0/sqrt(Gf*sqrt(2.0d0))

vh_pc

character(len=2), public modparameters::vh_pc = "lo"

Definition at line 184 of file mod_Parameters.F90.

character(len=2), public :: VH_PC = "lo"                ! VH partonic channel and mode selection, in development.

vprimedecaylengthmasscutofffactor

real(8), public modparameters::vprimedecaylengthmasscutofffactor = -1d0

Definition at line 146 of file mod_Parameters.F90.

real(8), public :: VprimeDecayLengthMassCutoffFactor = -1d0 ! x Ga_Vprime

vprimedecaylengthmm

real(8), public modparameters::vprimedecaylengthmm = 0d0

Definition at line 236 of file mod_Parameters.F90.

real(8), public            :: VprimeDecayLengthMM = 0d0     ! Vprime decay length in [mm]

warmup

logical, public modparameters::warmup

Definition at line 60 of file mod_Parameters.F90.

logical, public :: warmup

widthscheme

integer, public modparameters::widthscheme = 0

Definition at line 131 of file mod_Parameters.F90.

integer, public  :: WidthScheme = 0   ! 1=running BW-width, 2=fixed BW-width (default), 3=Passarino's CPS

widthschemein

integer, public modparameters::widthschemein = 0

Definition at line 132 of file mod_Parameters.F90.

integer, public  :: WidthSchemeIn = 0   ! 1=running BW-width, 2=fixed BW-width (default), 3=Passarino's CPS

wm_

integer, target, public modparameters::wm_ = -13

Definition at line 1115 of file mod_Parameters.F90.

integer, public, target :: Wm_   = -13

wmpr_

integer, target, public modparameters::wmpr_ = -34

Definition at line 1119 of file mod_Parameters.F90.

integer, public, target :: Wmpr_ = -34

wp_

integer, target, public modparameters::wp_ = 13

Definition at line 1096 of file mod_Parameters.F90.

integer, public, target :: Wp_  = 13

wppr_

integer, target, public modparameters::wppr_ = 34

Definition at line 1103 of file mod_Parameters.F90.

integer, public, target :: Wppr_ = 34

wpwmode

integer, parameter, public modparameters::wpwmode =11

Definition at line 14 of file mod_Parameters.F90.

wpwpmode

integer, parameter, public modparameters::wpwpmode =12

Definition at line 14 of file mod_Parameters.F90.

writefailedevents

integer, public modparameters::writefailedevents

Definition at line 30 of file mod_Parameters.F90.

integer, public :: WriteFailedEvents

writegit

logical, public modparameters::writegit

Definition at line 77 of file mod_Parameters.F90.

writeweightedlhe

logical, public modparameters::writeweightedlhe = .false.

Definition at line 172 of file mod_Parameters.F90.

logical, public :: writeWeightedLHE = .false.

wwmode

integer, parameter, public modparameters::wwmode =00

Definition at line 13 of file mod_Parameters.F90.

wwpmode

integer, parameter, public modparameters::wwpmode =10

Definition at line 14 of file mod_Parameters.F90.

integer, public, parameter :: WWpMode=10,wpwmode=11,wpwpmode=12

xn

real(dp), parameter, public modparameters::xn = 3.0_dp

Definition at line 1015 of file mod_Parameters.F90.

real(dp), public, parameter :: xn = 3.0_dp

xw

real(8), public modparameters::xw = 0.23119d0

Definition at line 253 of file mod_Parameters.F90.

real(8), public            :: xw = 0.23119d0                ! sin**2(Theta_Weinberg) (PDG-2008)

z0_

integer, target, public modparameters::z0_ = 12

Definition at line 1095 of file mod_Parameters.F90.

integer, public, target :: Z0_  = 12

zero

real(8), parameter, public modparameters::zero = 0d0

Definition at line 85 of file mod_Parameters.F90.

real(8), public, parameter :: zero  = 0d0

zgmode

integer, parameter, public modparameters::zgmode =05

Definition at line 13 of file mod_Parameters.F90.

zgsmode

integer, parameter, public modparameters::zgsmode =02

Definition at line 13 of file mod_Parameters.F90.

zmass_pdf

real(8), public modparameters::zmass_pdf

Definition at line 266 of file mod_Parameters.F90.

real(8), public            :: zmass_pdf                  ! Z mass used in pdf toward the QCD scale, reset later in main per PDF if needed

zpgmode

integer, parameter, public modparameters::zpgmode =32

Definition at line 16 of file mod_Parameters.F90.

zpgsmode

integer, parameter, public modparameters::zpgsmode =31

Definition at line 16 of file mod_Parameters.F90.

zpr2_

integer, target, public modparameters::zpr2_ = 33

Definition at line 1102 of file mod_Parameters.F90.

integer, public, target :: Zpr2_ = 33

zpr_

integer, target, public modparameters::zpr_ = 32

Definition at line 1101 of file mod_Parameters.F90.

integer, public, target :: Zpr_ = 32

zprime_qq_left

complex(8), public modparameters::zprime_qq_left = (1.0d0, 0d0)

Definition at line 912 of file mod_Parameters.F90.

   complex(8), public :: zprime_qq_left  = (1.0d0,0d0)

zprime_qq_right

complex(8), public modparameters::zprime_qq_right = (1.0d0, 0d0)

Definition at line 913 of file mod_Parameters.F90.

   complex(8), public :: zprime_qq_right = (1.0d0,0d0)

zprime_zz_1

complex(8), public modparameters::zprime_zz_1 = (0d0, 0d0)

Definition at line 914 of file mod_Parameters.F90.

   complex(8), public :: zprime_zz_1 =  (0d0,0d0)!  =1 for JP=1- vector

zprime_zz_2

complex(8), public modparameters::zprime_zz_2 = (0d0, 0d0)

Definition at line 915 of file mod_Parameters.F90.

   complex(8), public :: zprime_zz_2 =  (0d0,0d0)!  =1 for JP=1+ pseudovector

zpzmode

integer, parameter, public modparameters::zpzmode =21

Definition at line 15 of file mod_Parameters.F90.

zpzpmode

integer, parameter, public modparameters::zpzpmode =22

Definition at line 15 of file mod_Parameters.F90.

zzmode

integer, parameter, public modparameters::zzmode =01

Definition at line 13 of file mod_Parameters.F90.

zzpmode

integer, parameter, public modparameters::zzpmode =20

Definition at line 15 of file mod_Parameters.F90.

integer, public, parameter :: ZZpMode=20,zpzmode=21,zpzpmode=22