implicit none
c
      real x,y,H
      integer i,nevent
      data nevent/100000/
c
      common/pawc/H(1000000)
      call Hlimit(1000000)
c
      call Hbook1(1,'1d Histogram',200,0.,200.,0.)
      call Hbook2(2,'2d Histogram',200,0.,200.,300,0.,300.,0.)
c
      call sgrnd(12345678)
c
      do i=1,nevent
         call mtcalc(x)
         x = x * 100
         call mtcalc(y)
         y = y * 200
         call HF1(1,x,1.)
         call HF2(2,x,y,1.)
      enddo
c     
      call Hrput(0,'sample.hbk','N')
c     
      end