integer function cbnt
      include 'cbnt.inc'

      write(*,*) idnevt, run, event
      call hf1(1,1.0*run,1.0)
      call hf1(2,1.0*event,1.0)
      call hf1(3,1.0*event,1.0)
      call hf1(4,1.0*event,1.0)
      call hf1(5,1.0*event,1.0)
      call hf1(6,1.0*event,1.0)
      cbnt = 1
      end