1
c**************************************************************
3
c**************************************************************
7
real*8 scale,scalefact,alpsfact
8
logical fixed_ren_scale,fixed_fac_scale,fixed_couplings,hmult
10
common/to_scale/scale,scalefact,alpsfact,fixed_ren_scale,fixed_fac_scale,
11
$ fixed_couplings,ickkw,nhmult,hmult
16
double precision ebeam(2), xbk(2),q2fact(2)
17
common/to_collider/ ebeam , xbk ,q2fact, lpp
21
double precision bwcutoff
22
common/to_bwcutoff/ bwcutoff
24
c Sudakov grid file name
26
character*130 issgridfile
27
common/to_sgridfile/issgridfile
29
c kT/pT scheme for xqcut, clustering according to channel
32
logical chcluster,pdfwgt
33
common/to_cluster/ktscheme,chcluster,pdfwgt