ZERO_RC is a FORTRAN77 library which seeks solutions of a scalar nonlinear equation f(x)=0, or a system of nonlinear equations, using reverse communication (RC).
One of the standard problems in numerical analysis is to determine an approximate solution to a scalar nonlinear equation of the form f(x)=0.
Reliable and efficient procedures for this task, sometimes called "zero finders" or "root solvers" are available in many libraries. These procedures typically require the user to write a sub-procedure to evaluate the function for any argument x; the form and list of arguments for this sub-procedure are strictly prescribed by the library procedure. The user must somehow make this sub-procedure available to the solver, either by using a fixed name for the sub-procedure, or by passing in the actual name as an argument.
In many cases, it can be inconvenient to use such a library routine, because it is inserted between the main user program and the user function. This means that data defining the function, which might be chosen in the main program, must then somehow be communicated to the user function, perhaps by declaring some kind of global memory, or by sneaking the data through in an extra argument provided by the library procedure, or by the use of auxilliary data files.
Moreover, the user essentially loses control of the process until the library procedure returns. It might, however, be the case that the user could detect important error conditions, or gather useful information, if the intermediate x values generated by the library procedure were visible.
If we denote this typical method of interaction between a user and a library an instance of "forward communication", then there is an alternative approach, known as "reverse communication", which allows the user much more freedom in designing the function evaluation, and in observing and intervening in the iteration that is seeking the solution.
An idealized version of the use of a reverse communication zero finder might look like this:
x = initial approximation.
while ( not satisfied )
fx = f(x)
x = root ( x, fx )
end
Here, "not satisfied" might simply be a test of the magnitude of f(x).
But note two things:
Reverse communication zero finders can be very useful in situations where the function to be evaluated is actually the outcome of a complicated process. For instance, if we are seeking an eigenvalue x that makes the determinant of some matrix zero, then our function evaluation may require us to form a large matrix and to factor it in order to evaluate the determinant. This may be cumbersome to do if we must perform all these operations in a sub-procedure.
Similarly, we might be solving a boundary value problem using the shooting method, and f(x) might be the deviation at the final time between the computed and desired boundary values. In that case, a subprocedure formulation would require us to set up and solve a boundary value problem repeatedly in an isolated piece of code.
The computer code and data files described and made available on this web page are distributed under the GNU LGPL license.
ZERO_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 (RC).
BISECTION_RC, a FORTRAN77 library which seeks a solution to the equation F(X)=0 using bisection within a user-supplied change of sign interval [A,B]. The procedure is written using reverse communication (RC).
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. A reverse communication option is included.
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 (RC).
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.
TOMS365, a FORTRAN77 library which finds a root of an analytic complex function by the downhill method; this is ACM TOMS algorithm 365.
TOMS419, a FORTRAN77 library which seeks the roots of a polynomial with complex coefficients; this library is commonly called CPOLY; this is ACM TOMS algorithm 419.
TOMS429, a FORTRAN77 library which reports information about the estimated location of roots of a polynomial; this is ACM TOMS algorithm 429.
TOMS493, a FORTRAN77 library which seeks the roots of a real polynomial; this library is commonly called RPOLY; this is ACM TOMS algorithm 493.
You can go up one level to the FORTRAN77 source codes.