bin/BCVEGPY/pybookinit.F

0001 c*******************************************************

0002 c*******************************************************

0003 c***              initialize the pybook

0004 c*******************************************************

0005 c*******************************************************

0006       subroutine pybookinit
0007       implicit double precision(a-h, o-z)
0008         implicit integer(i-n)
0009
0010         common/ptpass/ptmin,ptmax,crossmax,etamin,etamax,
0011      &  smin,smax,ymin,ymax,psetamin,psetamax
0012         common/histcol/inx
0013       common/subopen/subfactor,subenergy,isubonly
0014       common/extraz/zfactor,zmin,zmax
0015
0016 c************************************************

0017 c...typical histogram range of the kinematic variables.

0018       call uphistrange(isubonly)
0019
0020 c...book histograms.

0021       if(isubonly.eq.1) inx=50
0022       if(isubonly.eq.0) inx=100
0023
0024         call pybook(1,'pt spectrum',inx,ptmin,ptmax)
0025       call pybook(2,'rap spectrum',inx,etamin,etamax)
0026         call pybook(3,'cm energy spectrum',inx,smin,smax)
0027         call pybook(4,'y spectrum',inx,ymin,ymax)
0028         call pybook(5,'pseudo rap spectrum',inx,psetamin,psetamax)
0029         call pybook(6,'z spectrum',inx,zmin,zmax)
0030
0031       call pybook(11,'rap spectrum (pt=5.00)',inx,etamin,etamax)
0032       call pybook(12,'rap spectrum (pt=20.0)',inx,etamin,etamax)
0033       call pybook(13,'rap spectrum (pt=35.0)',inx,etamin,etamax)
0034       call pybook(14,'rap spectrum (pt=50.0)',inx,etamin,etamax)
0035       call pybook(15,'rap spectrum (pt=100.)',inx,etamin,etamax)
0036
0037         call pybook(21,'pt spectrum (|y|=0.5)',inx,ptmin,ptmax)
0038         call pybook(22,'pt spectrum (|y|=1.0)',inx,ptmin,ptmax)
0039         call pybook(23,'pt spectrum (|y|=1.5)',inx,ptmin,ptmax)
0040         call pybook(24,'pt spectrum (|y|=2.0)',inx,ptmin,ptmax)
0041         call pybook(25,'pt spectrum (|y|=2.5)',inx,ptmin,ptmax)
0042
0043         call pybook(31,'cm energy spectrum (|y|=0.5)',inx,smin,smax)
0044         call pybook(32,'cm energy spectrum (|y|=1.0)',inx,smin,smax)
0045         call pybook(33,'cm energy spectrum (|y|=1.5)',inx,smin,smax)
0046         call pybook(34,'cm energy spectrum (|y|=2.0)',inx,smin,smax)
0047         call pybook(35,'cm energy spectrum (|y|=2.5)',inx,smin,smax)
0048
0049         call pybook(41,'cm energy spectrum (pt=5.00)',inx,smin,smax)
0050         call pybook(42,'cm energy spectrum (pt=20.0)',inx,smin,smax)
0051         call pybook(43,'cm energy spectrum (pt=35.0)',inx,smin,smax)
0052         call pybook(44,'cm energy spectrum (pt=50.0)',inx,smin,smax)
0053         call pybook(45,'cm energy spectrum (pt=100.)',inx,smin,smax)
0054
0055         call pybook(52,'pt spectrum (0.5<|y|<1.0)',inx,ptmin,ptmax)
0056         call pybook(53,'pt spectrum (1.0<|y|<1.5)',inx,ptmin,ptmax)
0057         call pybook(54,'pt spectrum (1.5<|y|<2.0)',inx,ptmin,ptmax)
0058         call pybook(55,'pt spectrum (2.0<|y|<2.5)',inx,ptmin,ptmax)
0059
0060       return
0061         end
0062