D02PZF (PDF version)
D02 Chapter Contents
D02 Chapter Introduction
NAG Library Manual

NAG Library Routine Document

D02PZF

Note:  before using this routine, please read the Users' Note for your implementation to check the interpretation of bold italicised terms and other implementation-dependent details.

 Contents

    1  Purpose
    7  Accuracy

1  Purpose

D02PZF provides details about global error assessment computed during an integration with either D02PCF or D02PDF.

2  Specification

SUBROUTINE D02PZF ( RMSERR, ERRMAX, TERRMX, WORK, IFAIL)
INTEGER  IFAIL
REAL (KIND=nag_wp)  RMSERR(*), ERRMAX, TERRMX, WORK(*)

3  Description

D02PZF and its associated routines (D02PCF, D02PDF, D02PVF, D02PWF, D02PXF and D02PYF) 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=ft,y  given  yt0=y0  
where y is the vector of n solution components and t is the independent variable.
After a call to D02PCF or D02PDF, D02PZF can be called for information about error assessment, if this assessment was specified in the setup routine D02PVF. A more accurate ‘true’ solution y^ is computed in a secondary integration. The error is measured as specified in D02PVF for local error control. At each step in the primary integration, an average magnitude μi of component yi is computed, and the error in the component is
yi-y^i maxμi,THRESi .  
It is difficult to estimate reliably the true error at a single point. For this reason the RMS (root-mean-square) average of the estimated global error in each solution component is computed. This average is taken over all steps from the beginning of the integration through to the current integration point. If all has gone well, the average errors reported will be comparable to TOL (see D02PVF). The maximum error seen in any component in the integration so far and the point where the maximum error first occurred are also reported.

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  Parameters

1:     RMSERR* – REAL (KIND=nag_wp) arrayOutput
Note: the dimension of the array RMSERR must be at least n.
On exit: RMSERRi approximates the RMS average of the true error of the numerical solution for the ith solution component, for i=1,2,,n. The average is taken over all steps from the beginning of the integration to the current integration point.
2:     ERRMAX – REAL (KIND=nag_wp)Output
On exit: the maximum weighted approximate true error taken over all solution components and all steps.
3:     TERRMX – REAL (KIND=nag_wp)Output
On exit: the first value of the independent variable where an approximate true error attains the maximum value, ERRMAX.
4:     WORK* – REAL (KIND=nag_wp) arrayInput
Note: the dimension of the array WORK must be at least LENWRK (see D02PVF).
On entry: this must be the same array as supplied to D02PCF or D02PDF and must remain unchanged between calls.
5:     IFAIL – INTEGERInput/Output
On entry: IFAIL must be set to 0, -1​ or ​1. If you are unfamiliar with this parameter you should refer to Section 3.3 in the Essential Introduction for details.
For environments where it might be inappropriate to halt program execution when an error is detected, the value -1​ or ​1 is recommended. If the output of error messages is undesirable, then the value 1 is recommended. Otherwise, if you are not familiar with this parameter, the recommended value is 0. 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
An invalid call to D02PZF has been made, for example without a previous call to D02PCF or D02PDF, or without error assessment having been specified in a call to D02PVF. You cannot continue integrating the problem.
IFAIL=-99
An unexpected error has been triggered by this routine. Please contact NAG.
See Section 3.8 in the Essential Introduction for further information.
IFAIL=-399
Your licence key may have expired or may not have been installed correctly.
See Section 3.7 in the Essential Introduction for further information.
IFAIL=-999
Dynamic memory allocation failed.
See Section 3.6 in the Essential Introduction for further information.

7  Accuracy

Not applicable.

8  Parallelism and Performance

Not applicable.

9  Further Comments

If the integration has proceeded ‘well’ and the problem is smooth enough, stable and not too difficult then the values returned in the arguments RMSERR and ERRMAX should be comparable to the value of TOL specified in the prior call to D02PVF.

10  Example

This example integrates a two body problem. The equations for the coordinates xt,yt of one body as functions of time t in a suitable frame of reference are
x=-xr3 ,   y=-yr3,   r=x2+y2.  
The initial conditions
x0=1-ε, x0=0 y0=0, y0= 1+ε 1-ε  
lead to elliptic motion with 0<ε<1. ε=0.7 is selected and reposed as
y1=y3 y2=y4 y3=- y1r3 y4=- y2r3  
over the range 0,3π. Relative error control is used with threshold values of 1.0E−10 for each solution component and a high-order Runge–Kutta method (METHOD=3) with tolerance TOL=1.0E−6. The value of π is obtained by using X01AAF.
Note that the length of WORK is large enough for any valid combination of input arguments to D02PVF. Note also, for illustration purposes since it is not necessary for this problem, this example integrates to the end of the range regardless of efficiency concerns (i.e., returns from D02PCF with IFAIL=2, 3 or 4).

10.1  Program Text

Program Text (d02pzfe.f90)

10.2  Program Data

Program Data (d02pzfe.d)

10.3  Program Results

Program Results (d02pzfe.r)

GnuplotProduced by GNUPLOT 4.6 patchlevel 3 −0.8 −0.6 −0.4 −0.2 0 0.2 0.4 0.6 0.8 −2 −1.5 −1 −0.5 0 0.5 −0.1 −0.05 0 0.05 0.1 −0.25 −0.2 −0.15 −0.1 −0.05 0 0.05 Orbit - y y Deviation from True Ellipse Orbit - x Example Program Solution to a Two-body Problem using High-order Runge-Kutta x Deviation from True Ellipse orbit deviation o gnuplot_plot_1 gnuplot_plot_2

D02PZF (PDF version)
D02 Chapter Contents
D02 Chapter Introduction
NAG Library Manual

© The Numerical Algorithms Group Ltd, Oxford, UK. 2015