bin/BCVEGPY/uphistrange.F

0001       subroutine uphistrange(isubonly)
0002         implicit integer (i-n)
0003         implicit double precision (a-h,o-z)
0004         common/ptpass/ptmin,ptmax,crossmax,etamin,etamax,
0005      &  smin,smax,ymin,ymax,psetamin,psetamax
0006 c...to get the distribution of an extra factor z=(2(k1+k2).p_bc)/shat.

0007       common/extraz/zfactor,zmin,zmax
0008
0009 c...typical histogram range of the kinematic variables.

0010 c...you may short the range to get a more precise result.

0011         if(isubonly.eq.1) then
0012           ptmin   = 0.0d0
0013           ptmax   = 5.0d+1
0014           etamin  =-5.0d+0
0015           etamax  = 5.0d+0
0016           smin    = 0.0d0
0017           smax    = 5.0d+1
0018           ymin    =-5.0d+0
0019           ymax    = 5.0d+0
0020           psetamin=-5.0d+0
0021           psetamax= 5.0d+0
0022           zmin    = 0.0d0
0023           zmax    = 1.0d0
0024         else
0025           ptmin   = 0.0d0
0026           ptmax   = 7.0d+1
0027           etamin  =-5.0d+0
0028           etamax  = 5.0d+0
0029           smin    = 0.0d0
0030           smax    = 7.0d+1
0031           ymin    =-5.0d+0
0032           ymax    = 5.0d+0
0033           psetamin=-5.0d+0
0034           psetamax= 5.0d+0
0035           zmin    = 0.0d0
0036           zmax    = 1.0d0
0037         end if
0038
0039         end