!
! zeroed relative energy avarage, avg relative energy**2, weighting for relative energy,
! rms of relative energy 
!
subroutine nbzero_ebb
  use nbi_com, only :ebb_rel_co,ebb_rel2_co,ebb_rel2_co, rms_ebb_co,&
       & rms_ebbx_co, ebb_relx_co
  use nbi_com, only :ebb_rel_cnt,ebb_rel2_cnt,ebb_rel2_cnt, rms_ebb_cnt,&
       & rms_ebbx_cnt, ebb_relx_cnt
  use nbi_com, only :ebb_rel_fn,ebb_rel2_fn,ebb_rel2_fn, rms_ebb_fn,&
       rms_ebbx_fn, ebb_relx_fn, bnb_ien2,bnb_ienx,bnb_fn,bnb_fnx,&
       zero

  ebb_rel_co=zero
  ebb_rel2_co=zero
  rms_ebb_co=zero
  rms_ebbx_co=zero
  ebb_relx_co=zero
!
  ebb_rel_cnt=zero
  ebb_rel2_cnt=zero
  rms_ebb_cnt=zero
  rms_ebbx_cnt=zero
  ebb_relx_cnt=zero
!
  ebb_rel_fn=zero
  ebb_rel2_fn=zero
  rms_ebb_fn=zero
  rms_ebbx_fn=zero
  ebb_relx_fn=zero
!
  bnb_ien2 = zero
  bnb_ienx = zero
  bnb_fn = zero
  bnb_fnx = zero
end subroutine nbzero_ebb
      
