Bisection Method Fortran