real mean,variance
      common /distpars/mean,variance

      integer id
      integer nbins
      real xlow,xhigh
      common /results/id,bins,xlow,xhigh
      character*40 title
      common /strings/title

      integer batch_maxsize
      parameter (batch_maxsize=1000000)
      real rvec,pvec
      common /data/rvec(2,batch_maxsize),pvec(batch_maxsize)