PROGRAM Master_Code
      IMPLICIT REAL*8 (a-h, o-z)
c
      write(*,*)' Enter the two edges of the search interval '
      read(*,*)xmin,xmax
      write(*,*)' Enter Max. number of Iterations '
      read(*,*)nmax
      write(*,*)' Enter Maximum Allowed Error for the Function'
      read(*,*)errfun
c
      call BISECT (xmin,xmax,nmax,xr,errfun)
c
      write(*,*)
      write(*,*)' *****       Solution = ',xr
      write(*,*)' *****  Abs(Function) = ',errfun
      end

      include 'bisect.for'