NAG FL Interface
d02pqf (ivp_​rkts_​setup)

Settings help

FL Name Style:


FL Specification Language:


1 Purpose

d02pqf is a setup routine which must be called prior to the first call of either of the integration routines d02pef, d02pff and d02pgf.

2 Specification

Fortran Interface
Subroutine d02pqf ( n, tstart, tend, yinit, tol, thresh, method, hstart, iwsav, rwsav, ifail)
Integer, Intent (In) :: n, method
Integer, Intent (Inout) :: ifail
Integer, Intent (Out) :: iwsav(130)
Real (Kind=nag_wp), Intent (In) :: tstart, tend, yinit(n), tol, thresh(n), hstart
Real (Kind=nag_wp), Intent (Out) :: rwsav(32*n+350)
C Header Interface
#include <nag.h>
void  d02pqf_ (const Integer *n, const double *tstart, const double *tend, const double yinit[], const double *tol, const double thresh[], const Integer *method, const double *hstart, Integer iwsav[], double rwsav[], Integer *ifail)
The routine may be called by the names d02pqf or nagf_ode_ivp_rkts_setup.

3 Description

d02pqf and its associated routines (d02pef, d02pff, d02pgf, d02phf, d02pjf, d02prf, d02psf, d02ptf and d02puf) solve the initial value problem for a first-order system of ordinary differential equations. The routines, based on Runge–Kutta methods and derived from RKSUITE (see Brankin et al. (1991)), integrate
y=f(t,y)  given  y(t0)=y0  
where y is the vector of n solution components and t is the independent variable.
The integration proceeds by steps from the initial point t0 towards the final point tf. An approximate solution y is computed at each step. For each component yi, for i=1,2,,n, the error made in the step, i.e., the local error, is estimated. The step size is chosen automatically so that the integration will proceed efficiently while keeping this local error estimate smaller than a tolerance that you specify by means of arguments tol and thresh.
d02pef can be used to solve the ‘usual task’, namely integrating the system of differential equations to obtain answers at points you specify. d02pff is used for more ‘complicated’ tasks where f(t,y) can readily be coded within a routine argument and high-order interpolation is not required. d02pgf is used for the most ‘complicated’ tasks where f(t,y) is best evaluated outside the integrator or where high-order interpolation is required.
You should consider carefully how you want the local error to be controlled. Essentially the code uses relative local error control, with tol being the desired relative accuracy. For reliable computation, the code must work with approximate solutions that have some correct digits, so there is an upper bound on the value used for tol. It is impossible to compute a numerical solution that is more accurate than the correctly rounded value of the true solution, so you are not allowed to specify tol too small for the precision you are using. The magnitude of the local error in yi on any step will not be greater than tol×max(μi,thresh(i)) where μi is an average magnitude of yi over the step. If thresh(i) is smaller than the current value of μi, this is a relative error test and tol indicates how many significant digits you want in yi. If thresh(i) is larger than the current value of μi, this is an absolute error test with tolerance tol×thresh(i). Relative error control is the recommended mode of operation, but pure relative error control, thresh(i)=0.0, is not permitted. See Section 9 for further information about error control.
d02pef, d02pff and d02pgf control local error rather than the true (global) error, the difference between the numerical and true solution. Control of the local error controls the true error indirectly. Roughly speaking, the code produces a solution that satisfies the differential equation with a discrepancy bounded in magnitude by the error tolerance. What this implies about how close the numerical solution is to the true solution depends on the stability of the problem. Most practical problems are at least moderately stable, and the true error is then comparable to the error tolerance. To judge the accuracy of the numerical solution, you could reduce tol substantially, e.g., use 0.1×tol, and solve the problem again. This will usually result in a rather more accurate solution, and the true error of the first integration can be estimated by comparison. Alternatively, a global error assessment can be computed automatically using the argument method. Because indirect control of the true error by controlling the local error is generally satisfactory and because both ways of assessing true errors cost twice, or more, the cost of the integration itself, such assessments are used mostly for spot checks, selecting appropriate tolerances for local error control, and exploratory computations.
d02pef, d02pff and d02pgf each implement three Runge–Kutta formula pairs, and you must select one for the integration. The best choice for method depends on the problem. The order of accuracy is 3, 5 and 8 respectively. As a rule, the smaller tol is, the larger you should take the order of the method. If the components thresh are small enough that you are effectively specifying relative error control, experience suggests
tol efficient method
10−2-10−4 order 2 and 3 pair
10−3-10−6 order 4 and 5 pair
10−5- order 7 and 8 pair
The overlap in the ranges of tolerances appropriate for a given method merely reflects the dependence of efficiency on the problem being solved. Making tol smaller will normally make the integration more expensive. However, in the range of tolerances appropriate to a method, the increase in cost is modest. There are situations for which one method, or even this kind of code, is a poor choice. You should not specify a very small value for thresh(i), when the ith solution component might vanish. In particular, you should not do this when yi=0.0. If you do, the code will have to work hard with any value for method to compute significant digits, but the lowest order method is a particularly poor choice in this situation. All three methods are inefficient when the problem is ‘stiff’. If it is only mildly stiff, you can solve it with acceptable efficiency with the order 2 and 3 pair, but if it is moderately or very stiff, a code designed specifically for such problems will be much more efficient. The higher the order the more smoothness is required of the solution in order for the method to be efficient.
When assessment of the true (global) error is requested, this error assessment is updated at each step. Its value can be obtained at any time by a call to d02puf. The code monitors the computation of the global error assessment and reports any doubts it has about the reliability of the results. The assessment scheme requires some smoothness of f(t,y), and it can be deceived if f is insufficiently smooth. At very crude tolerances the numerical solution can become so inaccurate that it is impossible to continue assessing the accuracy reliably. At very stringent tolerances the effects of finite precision arithmetic can make it impossible to assess the accuracy reliably. The cost of this is roughly twice the cost of the integration itself with the 5th and 8th order methods, and three times with the 3rd order method.
The first step of the integration is critical because it sets the scale of the problem. The integrator will find a starting step size automatically if you set the argument hstart to 0.0. Automatic selection of the first step is so effective that you should normally use it. Nevertheless, you might want to specify a trial value for the first step to be certain that the code recognizes the scale on which phenomena occur near the initial point. Also, automatic computation of the first step size involves some cost, so supplying a good value for this step size will result in a less expensive start. If you are confident that you have a good value, provide it via the argument hstart.

4 References

Brankin R W, Gladwell I and Shampine L F (1991) RKSUITE: A suite of Runge–Kutta codes for the initial value problems for ODEs SoftReport 91-S1 Southern Methodist University

5 Arguments

1: n Integer Input
On entry: n, the number of ordinary differential equations in the system to be solved by the integration routine.
Constraint: n1.
2: tstart Real (Kind=nag_wp) Input
On entry: the initial value of the independent variable, t0.
3: tend Real (Kind=nag_wp) Input
On entry: the final value of the independent variable, tf, at which the solution is required. tstart and tend together determine the direction of integration.
Constraint: tend must be distinguishable from tstart for the method and the precision of the machine being used.
4: yinit(n) Real (Kind=nag_wp) array Input
On entry: y0, the initial values of the solution, yi, for i=1,2,,n.
5: tol Real (Kind=nag_wp) Input
On entry: a relative error tolerance. The actual tolerance used is max(10×machine precision,min(tol,0.01)); that is, the minimum tolerance is set at 10 times machine precision and the maximum tolerance is set at 0.01.
6: thresh(n) Real (Kind=nag_wp) array Input
On entry: a vector of thresholds. For the ith component, the actual threshold used is max(safe range,thresh(i)), where safe range is the value returned by x02amf.
7: method Integer Input
On entry: the Runge–Kutta method to be used.
method=1 or −1
A 2(3) pair is used.
method=2 or −2
A 4(5) pair is used.
method=3 or −3
A 7(8) pair is used.
Constraint: method=1, −1, 2, −2, 3 or −3. Note: if method>0 then global error assessment is to be computed with the main integration; if method<0 then global error assessment will not be computed.
8: hstart Real (Kind=nag_wp) Input
On entry: a value for the size of the first step in the integration to be attempted. The absolute value of hstart is used with the direction being determined by tstart and tend. The actual first step taken by the integrator may be different to hstart if the underlying algorithm determines that hstart is unsuitable. If hstart=0.0 then the size of the first step is computed automatically.
Suggested value: hstart=0.0.
9: iwsav(130) Integer array Communication Array
10: rwsav(32×n+350) Real (Kind=nag_wp) array Communication Array
On exit: the contents of the communication arrays must not be changed prior to calling one of the integration routines.
11: ifail Integer Input/Output
On entry: ifail must be set to 0, −1 or 1 to set behaviour on detection of an error; these values have no effect when no error is detected.
A value of 0 causes the printing of an error message and program execution will be halted; otherwise program execution continues. A value of −1 means that an error message is printed while a value of 1 means that it is not.
If halting is not appropriate, the value −1 or 1 is recommended. If message printing is undesirable, then the value 1 is recommended. Otherwise, the value 0 is recommended. When the value -1 or 1 is used it is essential to test the value of ifail on exit.
On exit: ifail=0 unless the routine detects an error or a warning has been flagged (see Section 6).

6 Error Indicators and Warnings

If on entry ifail=0 or −1, explanatory error messages are output on the current error message unit (as defined by x04aaf).
Errors or warnings detected by the routine:
ifail=1
On entry, method=value.
Constraint: method=−3, −2, −1, 1, 2 or 3.
On entry, n=value.
Constraint: n1.
On entry, too much workspace required.
Workspace provided was value, workspace required is value.
On entry, tstart=value.
Constraint: tstarttend.
On entry, tstart is too close to tend.
|tstart-tend|=value, but this quantity should be at least value.
ifail=-99
An unexpected error has been triggered by this routine. Please contact NAG.
See Section 7 in the Introduction to the NAG Library FL Interface for further information.
ifail=-399
Your licence key may have expired or may not have been installed correctly.
See Section 8 in the Introduction to the NAG Library FL Interface for further information.
ifail=-999
Dynamic memory allocation failed.
See Section 9 in the Introduction to the NAG Library FL Interface for further information.

7 Accuracy

Not applicable.

8 Parallelism and Performance

Background information to multithreading can be found in the Multithreading documentation.
d02pqf is not threaded in any implementation.

9 Further Comments

If d02pff and d02pgf is to be used for the integration then the value of the argument tend may be reset during the integration without the overhead associated with a complete restart; this can be achieved by a call to d02prf.
It is often the case that a solution component (the ith, say) is of no interest when it is smaller in magnitude than a certain threshold. You can inform the code of this by setting the ith component of thresh to this threshold. In this way you avoid the cost of computing significant digits in the ith component of y when it is smaller than the threshold of interest. This matter is important when a component of y vanishes, and in particular, when the initial value is zero. An appropriate threshold depends on the general size of y in the course of the integration. Physical reasoning may help you select suitable threshold values. If you do not know what to expect of y, you can find out by a preliminary integration using d02pef with nominal values of thresh. As d02pef integrates by steps in time, it stores, for each component, the largest magnitude of solution computed so far; these values are output in the array ymax. This can help determine more appropriate values for thresh for an accurate integration. For example, the values in thresh could be set to 10×machine precision times the final value of ymax.

10 Example

See Section 10 in d02pef, d02pff, d02prf, d02psf and d02puf.