BISECTION_RC is a FORTRAN77 library which demonstrates the simple bisection method for solving a scalar nonlinear equation in a change of sign interval, using reverse communication.
The routine assumes that an interval [a,b] is known, over which the function f(x) is continuous, and for which f(a) and f(b) are of opposite sign. By repeatedly computing and testing the midpoint, the halving change of sign interval may be reduced, so that either the uncertainty interval or the magnitude of the function value becomes small enough to satisfy the user as an approximation to the location of a root of the function.
This routine is in part a demonstration of the idea of reverse communication. Many zero finders require that the user define f(x) by writing a function with a very specific set of input and output arguments, and sometimes with a specific name, so that the user can call the zero finder, which in turn can call the function. This is sometimes an awkward formulation to follow. Reverse communication instead allows the user's calling program to retain control of the function evaluation.
To use the reverse communication zero finder, the user defines the values of A and B, and sets a parameter JOB to zero to indicate that this is the first call. From then on, the zero finder repeatedly returns a value X, asking the user to evaluate the function there. Once the user has evaluated FX = f(X), the user may accept this approximation to the root, or else call the zero finder again, passing the just-computed value of FX so that it can take another bisection step.
The computer code and data files described and made available on this web page are distributed under the GNU LGPL license.
BISECTION_RC is available in a C version and a C++ version and a FORTRAN77 version and a FORTRAN90 version and a MATLAB version and a Python version.
BACKTRACK_BINARY_RC, a FORTRAN77 library which carries out a backtrack search for a set of binary decisions, using reverse communication.
BISECTION_INTEGER, a FORTRAN77 library which seeks an integer solution to the equation F(X)=0, using bisection within a user-supplied change of sign interval [A,B].
BRENT, a FORTRAN77 library which contains Richard Brent's routines for finding the zero, local minimizer, or global minimizer of a scalar function of a scalar argument, without the use of derivative information.
CG_RC, a FORTRAN77 library which implements the conjugate gradient method for solving a positive definite sparse linear system A*x=b, using reverse communication.
NMS, a FORTRAN77 library which includes a wide variety of numerical software, including solvers for linear systems of equations, interpolation of data, numerical quadrature, linear least squares data fitting, the solution of nonlinear equations, ordinary differential equations, optimization and nonlinear least squares, simulation and random numbers, trigonometric approximation and Fast Fourier Transforms (FFT).
SORT_RC, a FORTRAN77library which can sort a list of any kind of objects, using reverse communication (RC).
TEST_ZERO, a FORTRAN77 library which implements test problems for the solution of a single nonlinear equation in one variable.
ZERO_RC, a FORTRAN77 library which seeks solutions of a nonlinear equation f(x)=0, using reverse communication.
You can go up one level to the FORTRAN77 source codes.