Program Rootz
c-----------------------------------------------------------------
c Driver program for zeroin.f
c a single root of an equation f(x)=0 in [a,b] interval
c program zeroin.f is from
c "Computer Methods for Mathematical Computations",
c by Forsythe, Malcolm, and Moler (1977) (see also www.netlib.org)
c-----------------------------------------------------------------
      Real*8 f,a,b,Root,eps,zeroin
      External f
      a = 0.5
      b = 5.0
      eps = 1.0e-6
        Root = zeroin(a,b,f,eps)
        write(*,100) Root
100   Format(' Zeroin root is =',1pe12.5)
      End

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