C. This subroutine is called after hweini_() in HerwigModule::genBeginJob()
C. and set branching fraction
C. Time-stamp: <2002-10-29 05:28:20 takeuchi>
C. Common blocks in this file are based upon herwig 6.5
C.
C.  BRFRAC(1)= Br(t->u dbar b)
C.  BRFRAC(2)= Br(t->c sbar b)
C.  BRFRAC(3)= Br(t->nu_e e+ b)
C.  BRFRAC(4)= Br(t->nu_mu mu+ b)
C.  BRFRAC(5)= Br(t->mu_tau tau+ b)
C.  BRFRAC(6)= Br(tbar->ubar d bbar)
C.  BRFRAC(7)= Br(tbar->cbar s bbar)
C.  BRFRAC(8)= Br(tbar->nu_ebar e- bbar)
C.  BRFRAC(9)= Br(tbar->nu_mubar mu- bbar)
C.  BRFRAC(10)= Br(tbar->mu_taubar tau- bbar)

      subroutine hwbrset
#include "herwig_i/herwig6400.inc"

      integer iii

      print *, 'hwbrset: Braching fractions in Herwig are changed.'

C. force
      do iii=1,10
         BRFRAC(iii)=0.0
      enddo
C      BRFRAC(3)=1.0
      BRFRAC(1)=0.5
      BRFRAC(2)=0.5
      BRFRAC(8)=1.0

      do iii=1,10
         print *, 'hwbrset: ', iii, BRFRAC(iii)
      enddo

      end