Program Root1
c---------------------------------------------------------
c Driver program for root_bs.f
c a single root of an equation f(x)=0 in [a,b] interval
c October 2006
c---------------------------------------------------------
      Real*8 f,a,b,root,eps
      Integer*4 iflag
      External f
      a = 0.5
      b = 5.0
      eps = 1.0e-6
        call Root_bs(f,a,b,eps,root,iflag)
      if(iflag.eq.1) then
         write(*,100) root
         else
         write(*,101)
      end if
100   Format(' Root is =',1pe12.5)
101   Format(' no root for Bisectional method')

      End

c-----------------------------------------------------
c Function f(x)
c-----------------------------------------------------
      Function f(x)
      Real*8 f, x
      f = exp(x)*log(x)-cos(x)
      return
      end