integer function cbnt
      include 'grid3_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)

* Electron info
      write(*,*) eg_nc, ' electrons'
      call hf1(101, 1.0*eg_nc, 1.0)
      do i = 1, eg_nc
      call hf1(102, eg_et(i), 1.0)
      call hf1(103, eg_eta(i), 1.0)
      call hf1(104, eg_phi(i), 1.0)
      enddo

      cbnt = 1
      end