c -*- Fortran -*-
      integer nhist,maxbins,maxmulti
      parameter (nhist=400,maxbins=500,maxmulti=10)
      character * 70 stringhist(nhist)
      real * 8 xhistarr(maxbins+1,nhist),
     1     yhistarr(maxmulti,0:maxbins+1,nhist)
      integer nhits(0:maxbins+1,nhist),nbins(nhist),jhist,
     1     ient1(nhist),nmulti
      real * 8 yhistarr1(maxmulti,0:maxbins+1,nhist),
     1       errhistarr1(maxmulti,0:maxbins+1,nhist),
     1       yhistarr2(maxmulti,0:maxbins+1,nhist),
     3       errhistarr2(maxmulti,0:maxbins+1,nhist)
      common/histnew/xhistarr,yhistarr,
     1       yhistarr1,errhistarr1,
     3       yhistarr2,errhistarr2,
     5       nhits,nbins,jhist,ient1,nmulti,
     6       stringhist
      save /histnew/