3
integer max_plots,max_bins,max_wgts,max_points
4
parameter (max_plots=200)
5
parameter (max_bins=100)
6
parameter (max_wgts=300)
7
parameter (max_points=max_plots*40)
9
logical booked(max_plots)
10
integer nbin(max_plots),nwgts,np,p_bin(max_points)
11
$ ,p_label(max_points),histi(max_plots,max_bins)
12
character*50 title(max_plots)
13
character*15 wgts_info(max_wgts)
14
double precision histy(max_wgts,max_plots,max_bins)
15
$ ,histy_acc(max_wgts,max_plots,max_bins),histy2(max_plots
16
$ ,max_bins),histy_err(max_plots,max_bins),histxl(max_plots
17
$ ,max_bins),histxm(max_plots,max_bins),step(max_plots)
18
$ ,p_wgts(max_wgts,max_points)
20
common/HwU_common/histy,histy_acc,histy2,histy_err,histxl,histxm
21
& ,p_wgts,step,histi,nbin,p_bin,p_label,np,nwgts,booked,title