NAG Library Routine Document

d02kef (sl2_breaks_funs)

1
Purpose

d02kef finds a specified eigenvalue of a regular or singular second-order Sturm–Liouville system on a finite or infinite interval, using a Pruefer transformation and a shooting method. It also reports values of the eigenfunction and its derivatives. Provision is made for discontinuities in the coefficient functions or their derivatives.

2
Specification

Fortran Interface
Subroutine d02kef ( xpoint, m, match, coeffn, bdyval, k, tol, elam, delam, hmax, maxit, maxfun, monit, report, ifail)
Integer, Intent (In):: m, k, maxfun
Integer, Intent (Inout):: match, maxit, ifail
Real (Kind=nag_wp), Intent (In):: xpoint(m), tol
Real (Kind=nag_wp), Intent (Inout):: elam, delam, hmax(2,m)
External:: coeffn, bdyval, monit, report
C Header Interface
#include <nagmk26.h>
void  d02kef_ (const double xpoint[], const Integer *m, Integer *match,
void (NAG_CALL *coeffn)(double *p, double *q, double *dqdl, const double *x, const double *elam, const Integer *jint),
void (NAG_CALL *bdyval)(const double *xl, const double *xr, const double *elam, double yl[], double yr[]),
const Integer *k, const double *tol, double *elam, double *delam, double hmax[], Integer *maxit, const Integer *maxfun,
void (NAG_CALL *monit)(const Integer *nit, const Integer *iflag, const double *elam, const double finfo[]),
void (NAG_CALL *report)(const double *x, const double v[], const Integer *jint),
Integer *ifail)

3
Description

d02kef has essentially the same purpose as d02kdf with minor modifications to enable values of the eigenfunction to be obtained after convergence to the eigenvalue has been achieved.
It first finds a specified eigenvalue λ~ of a Sturm–Liouville system defined by a self-adjoint differential equation of the second-order
px y + q x;λ y=0 ,   a<x<b ,  
together with appropriate boundary conditions at the two, finite or infinite, end points a and b. The functions p and q, which are real-valued, are defined by coeffn. The boundary conditions must be defined by bdyval, and, in the case of a singularity at a or b, take the form of an asymptotic formula for the solution near the relevant end point.
When the final estimate λ=λ~ of the eigenvalue has been found, the routine integrates the differential equation once more with that value of λ, and with initial conditions chosen so that the integral
S=aby x 2 q λ x;λdx 
is approximately one. When qx;λ is of the form λwx+qx, which is the most common case, S represents the square of the norm of y induced by the inner product
f,g = ab fx gx wx dx ,  
with respect to which the eigenfunctions are mutually orthogonal. This normalization of y is only approximate, but experience shows that S generally differs from unity by only one or two per cent.
During this final integration the report is called at each integration mesh point x. Sufficient information is returned to permit you to compute yx and yx for printing or plotting. For reasons described in Section 9.2, d02kef passes across to report, not y and y, but the Pruefer variables β, ϕ and ρ on which the numerical method is based. Their relationship to y and y is given by the equations
px y = β expρ2 cosϕ2 ,   y=1β expρ2 sinϕ2 .  
A specimen report is given in Section 10 below.
For the theoretical basis of the numerical method to be valid, the following conditions should hold on the coefficient functions:
(a) px must be nonzero and must not change sign throughout the interval a,b; and,
(b) q λ  must not change sign throughout the interval a,b for all relevant values of λ, and must not be identically zero as x varies, for any λ.
Points of discontinuity in the functions p and q or their derivatives are allowed, and should be included as ‘break-points’ in the array xpoint.
A good account of the theory of Sturm–Liouville systems, with some description of Pruefer transformations, is given in Chapter X of Birkhoff and Rota (1962). An introduction to the use of Pruefer transformations for the numerical solution of eigenvalue problems arising from physics and chemistry is given in Bailey (1966).
The scaled Pruefer method is described in a short note by Pryce and Hargrave (1977) and in some detail in the technical report by Pryce (1981).

4
References

Abramowitz M and Stegun I A (1972) Handbook of Mathematical Functions (3rd Edition) Dover Publications
Bailey P B (1966) Sturm–Liouville eigenvalues via a phase function SIAM J. Appl. Math. 14 242–249
Banks D O and Kurowski I (1968) Computation of eigenvalues of singular Sturm–Liouville Systems Math. Comput. 22 304–310
Birkhoff G and Rota G C (1962) Ordinary Differential Equations Ginn & Co., Boston and New York
Pryce J D (1981) Two codes for Sturm–Liouville problems Technical Report CS-81-01 Department of Computer Science, Bristol University
Pryce J D and Hargrave B A (1977) The scaled Prüfer method for one-parameter and multi-parameter eigenvalue problems in ODEs IMA Numerical Analysis Newsletter 1(3)

5
Arguments

1:     xpointm – Real (Kind=nag_wp) arrayInput
On entry: the points where the boundary conditions computed by bdyval are to be imposed, and also any break-points, i.e., xpoint1 to xpointm must contain values x1,,xm such that
x1x2<x3<<xm-1xm  
with the following meanings:
(a) x1 and xm are the left- and right-hand end points, a and b, of the domain of definition of the Sturm–Liouville system if these are finite. If either a or b is infinite, the corresponding value x1 or xm may be a more-or-less arbitrarily ‘large’ number of appropriate sign.
(b) x2 and xm-1 are the Boundary Matching Points (BMPs), that is the points at which the left and right boundary conditions computed in bdyval are imposed.
If the left-hand end point is a regular point then you should set x2=x1 =a, while if it is a singular point you must set x2>x1. Similarly xm-1=xm (=b) if the right-hand end point is regular, and xm-1<xm if it is singular.
(c) The remaining m-4 points x3,,xm-2, if any, define ‘break-points’ which divide the interval x2,xm-1 into m-3 sub-intervals
i1=x2,x3,,im-3=xm-2,xm-1.  
Numerical integration of the differential equation is stopped and restarted at each break-point. In simple cases no break-points are needed. However, if px or qx;λ are given by different formulae in different parts of the interval, integration is more efficient if the range is broken up by break-points in the appropriate way. Similarly points where any jumps occur in px or qx;λ, or in their derivatives up to the fifth-order, should appear as break-points.
Examples are given in Sections 9 and 10. xpoint determines the position of the Shooting Matching Point (SMP), as explained in Section 9.3.
Constraint: xpoint1xpoint2<<xpointm-1xpointm.
2:     m – IntegerInput
On entry: the number of points in the array xpoint.
Constraint: m4.
3:     match – IntegerInput/Output
On entry: must be set to the index of the ‘break-point’ to be used as the matching point (see Section 9.3). If match is set to a value outside the range 2,m-1 then a default value is taken, corresponding to the break-point nearest the centre of the interval xpoint2,xpointm-1.
On exit: the index of the break-point actually used as the matching point.
4:     coeffn – Subroutine, supplied by the user.External Procedure
coeffn must compute the values of the coefficient functions px and qx;λ for given values of x and λ. Section 3 states the conditions which p and q must satisfy. See Sections 9.4 and 10 for examples.
The specification of coeffn is:
Fortran Interface
Subroutine coeffn ( p, q, dqdl, x, elam, jint)
Integer, Intent (In):: jint
Real (Kind=nag_wp), Intent (In):: x, elam
Real (Kind=nag_wp), Intent (Out):: p, q, dqdl
C Header Interface
#include <nagmk26.h>
void  coeffn (double *p, double *q, double *dqdl, const double *x, const double *elam, const Integer *jint)
1:     p – Real (Kind=nag_wp)Output
On exit: the value of px for the current value of x.
2:     q – Real (Kind=nag_wp)Output
On exit: the value of qx;λ for the current value of x and the current trial value of λ.
3:     dqdl – Real (Kind=nag_wp)Output
On exit: the value of q λ x;λ  for the current value of x and the current trial value of λ. However dqdl is only used in error estimation and, in the rare cases where it may be difficult to evaluate, an approximation (say to within 20%) will suffice.
4:     x – Real (Kind=nag_wp)Input
On entry: the current value of x.
5:     elam – Real (Kind=nag_wp)Input
On entry: the current trial value of the eigenvalue argument λ.
6:     jint – IntegerInput
On entry: the index j of the sub-interval ij (see specification of xpoint) in which x lies.
coeffn must either be a module subprogram USEd by, or declared as EXTERNAL in, the (sub)program from which d02kef is called. Arguments denoted as Input must not be changed by this procedure.
Note: coeffn should not return floating-point NaN (Not a Number) or infinity values, since these are not handled by d02kef. If your code inadvertently does return any NaNs or infinities, d02kef is likely to produce unexpected results.
5:     bdyval – Subroutine, supplied by the user.External Procedure
bdyval must define the boundary conditions. For each end point, bdyval must return (in yl or yr) values of yx and pxyx which are consistent with the boundary conditions at the end points; only the ratio of the values matters. Here x is a given point (xl or xr) equal to, or close to, the end point.
For a regular end point (a, say), x=a, a boundary condition of the form
c1ya+c2ya=0  
can be handled by returning constant values in yl, e.g., yl1=c2 and yl2=-c1pa.
For a singular end point however, yl1 and yl2 will in general be functions of xl and elam, and yr1 and yr2 functions of xr and elam, usually derived analytically from a power-series or asymptotic expansion. Examples are given in Sections 9.5 and 10.
The specification of bdyval is:
Fortran Interface
Subroutine bdyval ( xl, xr, elam, yl, yr)
Real (Kind=nag_wp), Intent (In):: xl, xr, elam
Real (Kind=nag_wp), Intent (Out):: yl(3), yr(3)
C Header Interface
#include <nagmk26.h>
void  bdyval (const double *xl, const double *xr, const double *elam, double yl[], double yr[])
1:     xl – Real (Kind=nag_wp)Input
On entry: if a is a regular end point of the system (so that a=x1=x2), xl contains a. If a is a singular point (so that ax1<x2), xl contains a point x such that x1<xx2.
2:     xr – Real (Kind=nag_wp)Input
On entry: if b is a regular end point of the system (so that xm-1=xm=b), xr contains b. If b is a singular point (so that xm-1<xmb), xr contains a point x such that xm-1x<xm.
3:     elam – Real (Kind=nag_wp)Input
On entry: the current trial value of λ.
4:     yl3 – Real (Kind=nag_wp) arrayOutput
On exit: yl1 and yl2 should contain values of yx and pxyx respectively (not both zero) which are consistent with the boundary condition at the left-hand end point, given by x=xl. yl3 should not be set.
5:     yr3 – Real (Kind=nag_wp) arrayOutput
On exit: yr1 and yr2 should contain values of yx and pxyx respectively (not both zero) which are consistent with the boundary condition at the right-hand end point, given by x=xr. yr3 should not be set.
bdyval must either be a module subprogram USEd by, or declared as EXTERNAL in, the (sub)program from which d02kef is called. Arguments denoted as Input must not be changed by this procedure.
Note: bdyval should not return floating-point NaN (Not a Number) or infinity values, since these are not handled by d02kef. If your code inadvertently does return any NaNs or infinities, d02kef is likely to produce unexpected results.
6:     k – IntegerInput
On entry: k, the index of the required eigenvalue when the eigenvalues are ordered
λ0 < λ1 < λ2 < < λk < .  
Constraint: k0.
7:     tol – Real (Kind=nag_wp)Input
On entry: the tolerance argument which determines the accuracy of the computed eigenvalue. The error estimate held in delam on exit satisfies the mixed absolute/relative error test
delamtol×max1.0,elam, (1)
where elam is the final estimate of the eigenvalue. delam is usually somewhat smaller than the right-hand side of (1) but not several orders of magnitude smaller.
Constraint: tol>0.0.
8:     elam – Real (Kind=nag_wp)Input/Output
On entry: an initial estimate of the eigenvalue λ~.
On exit: the final computed estimate, whether or not an error occurred.
9:     delam – Real (Kind=nag_wp)Input/Output
On entry: an indication of the scale of the problem in the λ-direction. delam holds the initial ‘search step’ (positive or negative). Its value is not critical, but the first two trial evaluations are made at elam and elam+delam, so the routine will work most efficiently if the eigenvalue lies between these values. A reasonable choice (if a closer bound is not known) is half the distance between adjacent eigenvalues in the neighbourhood of the one sought. In practice, there will often be a problem, similar to the one in hand but with known eigenvalues, which will help one to choose initial values for elam and delam.
If delam=0.0 on entry, it is given the default value of 0.25×max1.0,elam.
On exit: if ifail=0, delam holds an estimate of the absolute error in the computed eigenvalue, that is λ~-elamdelam. (In Section 9.2 we discuss the assumptions under which this is true.) The true error is rarely more than twice, or less than a tenth, of the estimated error.
If ifail0, delam may hold an estimate of the error, or its initial value, depending on the value of ifail. See Section 6 for further details.
10:   hmax2m – Real (Kind=nag_wp) arrayInput/Output
On entry: hmax1j should contain a maximum step size to be used by the differential equation code in the jth sub-interval ij (as described in the specification of argument xpoint), for j=1,2,,m-3. If it is zero the routine generates a maximum step size internally.
It is recommended that hmax1j be set to zero unless the coefficient functions p and q have features (such as a narrow peak) within the jth sub-interval that could be ‘missed’ if a long step were taken. In such a case hmax1j should be set to about half the distance over which the feature should be observed. Too small a value will increase the computing time for the routine. See Section 9 for further suggestions.
The rest of the array is used as workspace.
On exit: hmax1m-1 and hmax1m contain the sensitivity coefficients σl,σr, described in Section 9.6. Other entries contain diagnostic output in the case of an error exit (see Section 6).
11:   maxit – IntegerInput/Output
On entry: a bound on nr, the number of root-finding iterations allowed, that is the number of trial values of λ that are used. If maxit0, no such bound is assumed. (See also maxfun.)
Suggested value: maxit=0.
On exit: will have been decreased by the number of iterations actually performed, whether or not it was positive on entry.
12:   maxfun – IntegerInput
On entry: a bound on nf, the number of calls to coeffn made in any one root-finding iteration. If maxfun0, no such bound is assumed.
Suggested value: maxfun=0.
maxfun and maxit may be used to limit the computational cost of a call to d02kef, which is roughly proportional to nr×nf.
13:   monit – Subroutine, supplied by the NAG Library or the user.External Procedure
monit is called by d02kef at the end of each root-finding iteration and allows you to monitor the course of the computation by printing out the arguments (see Section 10 for an example).
If no monitoring is required, the dummy (sub)program d02kay may be used. (d02kay is included in the NAG Library.)
The specification of monit is:
Fortran Interface
Subroutine monit ( nit, iflag, elam, finfo)
Integer, Intent (In):: nit, iflag
Real (Kind=nag_wp), Intent (In):: elam, finfo(15)
C Header Interface
#include <nagmk26.h>
void  monit (const Integer *nit, const Integer *iflag, const double *elam, const double finfo[])
1:     nit – IntegerInput
On entry: the current value of the argument maxit of d02kef, this is decreased by one at each iteration.
2:     iflag – IntegerInput
On entry: describes what phase the computation is in.
iflag<0
An error occurred in the computation at this iteration; an error exit from d02kef with ifail=-iflag will follow.
iflag=1
The routine is trying to bracket the eigenvalue λ~.
iflag=2
The routine is converging to the eigenvalue λ~ (having already bracketed it).
3:     elam – Real (Kind=nag_wp)Input
On entry: the current trial value of λ.
4:     finfo15 – Real (Kind=nag_wp) arrayInput
On entry: information about the behaviour of the shooting method, and diagnostic information in the case of errors. It should not normally be printed in full if no error has occurred (that is, if iflag>0), though the first few components may be of interest to you. In case of an error (iflag<0) all the components of finfo should be printed.
The contents of finfo are as follows:
finfo1
The current value of the ‘miss-distance’ or ‘residual’ function fλ on which the shooting method is based. (See Section 9.2 for further information.) finfo1 is set to zero if iflag<0.
finfo2
An estimate of the quantity λ defined as follows. Consider the perturbation in the miss-distance fλ that would result if the local error in the solution of the differential equation were always positive and equal to its maximum permitted value. Then λ is the perturbation in λ that would have the same effect on fλ. Thus, at the zero of fλ,λ is an approximate bound on the perturbation of the zero (that is the eigenvalue) caused by errors in numerical solution. If λ is very large then it is possible that there has been a programming error in coeffn such that q is independent of λ. If this is the case, an error exit with ifail=5 should follow. finfo2 is set to zero if iflag<0.
finfo3
The number of internal iterations, using the same value of λ and tighter accuracy tolerances, needed to bring the accuracy (that is, the value of λ) to an acceptable value. Its value should normally be 1.0, and should almost never exceed 2.0.
finfo4
The number of calls to coeffn at this iteration.
finfo5
The number of successful steps taken by the internal differential equation solver at this iteration. A step is successful if it is used to advance the integration.
finfo6
The number of unsuccessful steps used by the internal integrator at this iteration.
finfo7
The number of successful steps at the maximum step size taken by the internal integrator at this iteration.
finfo8
Not used.
finfo9 to finfo15
Set to zero, unless iflag<0 in which case they hold the following values describing the point of failure:
finfo9
The index of the sub-interval where failure occurred, in the range 1 to m-3. In case of an error in bdyval, it is set to 0 or m-2 depending on whether the left or right boundary condition caused the error.
finfo10
The value of the independent variable, x, the point at which the error occurred. In case of an error in bdyval, it is set to the value of xl or xr as appropriate (see the specification of bdyval).
finfo11, finfo12, finfo13
The current values of the Pruefer dependent variables β, ϕ and ρ respectively. These are set to zero in case of an error in bdyval.
finfo14
The local-error tolerance being used by the internal integrator at the point of failure. This is set to zero in the case of an error in bdyval.
finfo15
The last integration mesh point. This is set to zero in the case of an error in bdyval.
monit must either be a module subprogram USEd by, or declared as EXTERNAL in, the (sub)program from which d02kef is called. Arguments denoted as Input must not be changed by this procedure.
14:   report – Subroutine, supplied by the user.External Procedure
report provides the means by which you may compute the eigenfunction yx and its derivative at each integration mesh point x. (See Section 9 for an example.)
The specification of report is:
Fortran Interface
Subroutine report ( x, v, jint)
Integer, Intent (In):: jint
Real (Kind=nag_wp), Intent (In):: x, v(3)
C Header Interface
#include <nagmk26.h>
void  report (const double *x, const double v[], const Integer *jint)
1:     x – Real (Kind=nag_wp)Input
On entry: the current value of the independent variable x. See Section 9.3 for the order in which values of x are supplied.
2:     v3 – Real (Kind=nag_wp) arrayInput
On entry: v1, v2, v3 hold the current values of the Pruefer variables β, ϕ, ρ respectively.
3:     jint – IntegerInput
On entry: indicates the sub-interval between break-points in which x lies exactly as for coeffn, except that at the extreme left-hand end point (when x=xpoint2) jint is set to 0 and at the extreme right-hand end point (when x=xr=xpointm-1) jint is set to m-2.
report must either be a module subprogram USEd by, or declared as EXTERNAL in, the (sub)program from which d02kef is called. Arguments denoted as Input must not be changed by this procedure.
15:   ifail – IntegerInput/Output
On entry: ifail must be set to 0, -1 or 1. If you are unfamiliar with this argument you should refer to Section 3.4 in How to Use the NAG Library and its Documentation 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 argument, 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
On entry, k=value.
Constraint: k0.
On entry, m=value.
Constraint: m4.
On entry, tol=value.
Constraint: tol>0.0.
ifail=2
On entry, the sequence of boundary and break points is not monotonic.
For i=value, point i-1=value and point i=value.
The constraint on the specification of left- or right-hand boundary condition has been violated.
At some call to bdyval, invalid values were returned, that is, either yl1=yl2=0.0, or yr1=yr2=0.0 (a programming error in bdyval). See the last call of monit for details.This error exit will also occur if px is zero at the point where the boundary condition is imposed. Probably bdyval was called with xl equal to a singular end point a or with xr equal to a singular end point b.
ifail=3
The function px became zero or changed sign in the interval a,b.
ifail=4
After value iterations the eigenvalue had not been found to the required accuracy.
ifail=5
The bracketing phase failed to bracket the eigenvalue within ten iterations. This may be due to an error in formulating the problem (for example, q is independent of λ), or by very poor initial estimates for the eigenvalue and search step.
On exit, elam and elam+delam give the end points of the interval within which no eigenvalue was located by the routine.
ifail=6
The last iteration was terminated because more than value calls to evaluate p, q and its derivative were performed.
ifail=7
Too small a step size was required at the start of a sub-interval to obtain the desired accuracy.
ifail=8
Too small a step size was required during solution in a sub-interval to obtain the desired accuracy.
At some point inside a sub-interval the step size in the differential equation solver was reduced to a value too small to make significant progress (for the same reasons as with ifail=7). This could be due to pathological behaviour of px and qx;λ or to an unreasonable accuracy requirement or to the current value of λ making the equations ‘stiff’. See the last call of monit for details.
ifail=9
The tolerance set is too small for the problem being solved and the machine precision being used. The local eigenvalue estimate returned is likely to be a very good approximation.
ifail=10
An internal error has occurred corresponding to a pole of the matching function. Try solving the problem again with a smaller tolerance.
ifail=-99
An unexpected error has been triggered by this routine. Please contact NAG.
See Section 3.9 in How to Use the NAG Library and its Documentation for further information.
ifail=-399
Your licence key may have expired or may not have been installed correctly.
See Section 3.8 in How to Use the NAG Library and its Documentation for further information.
ifail=-999
Dynamic memory allocation failed.
See Section 3.7 in How to Use the NAG Library and its Documentation for further information.
Note: error exits with ifail=2, 3, 6, 7 or 8 are caused by being unable to set up or solve the differential equation at some iteration and will be immediately preceded by a call of monit giving diagnostic information. For other errors, diagnostic information is contained in hmax2j, for j=1,2,,m, where appropriate.

7
Accuracy

See the discussion in Section 9.2.

8
Parallelism and Performance

d02kef is not threaded in any implementation.

9
Further Comments

9.1
Timing

The time taken by d02kef depends on the complexity of the coefficient functions, whether they or their derivatives are rapidly changing, the tolerance demanded, and how many iterations are needed to obtain convergence. The amount of work per iteration is roughly doubled when tol is divided by 16. To make the most economical use of the routine, one should try to obtain good initial values for elam and delam, and, where appropriate, good asymptotic formulae. Also the boundary matching points should not be set unnecessarily close to singular points. The extra time needed to compute the eigenfunction is principally the cost of one additional integration once the eigenvalue has been found.

9.2
General Description of the Algorithm

A shooting method, for differential equation problems containing unknown parameters, relies on the construction of a ‘miss-distance function’, which for given trial values of the parameters measures how far the conditions of the problem are from being met. The problem is then reduced to one of finding the values of the parameters for which the miss-distance function is zero, that is to a root-finding process. Shooting methods differ mainly in how the miss-distance is defined.
d02kef defines a miss-distance fλ based on the rotation about the origin of the point px=pxyx,yx in the Phase Plane as the solution proceeds from a to b. The boundary conditions define the ray (i.e., two-sided line through the origin) on which px should start, and the ray on which it should finish. The eigenvalue k defines the total number of half-turns it should make. Numerical solution is actually done by ‘shooting forward’ from x=a and ‘shooting backward’ from x=b to a matching point x=c. Then fλ is taken as the angle between the rays to the two resulting points Pac and Pbc. A relative scaling of the py and y axes, based on the behaviour of the coefficient functions p and q, is used to improve the numerical behaviour.
Figure 1
Figure 1
The resulting function fλ is monotonic over -<λ<, increasing if q λ >0 and decreasing if q λ <0, with a unique zero at the desired eigenvalue λ~. The routine measures fλ in units of a half-turn. This means that as λ increases, fλ varies by about 1 as each eigenvalue is passed. (This feature implies that the values of fλ at successive iterations – especially in the early stages of the iterative process – can be used with suitable extrapolation or interpolation to help the choice of initial estimates for eigenvalues near to the one currently being found.)
The routine actually computes a value for fλ with errors, arising from the local errors of the differential equation code and from the asymptotic formulae provided by you if singular points are involved. However, the error estimate output in delam is usually fairly realistic, in that the actual error λ~-elam is within an order of magnitude of delam.
We pass the values of β, ϕ, ρ across through report rather than converting them to values of y, y inside d02kef, for the following reasons. First, there may be cases where auxiliary quantities can be more accurately computed from the Pruefer variables than from y and y. Second, in singular problems on an infinite interval y and y may underflow towards the end of the range, whereas the Pruefer variables remain well-behaved. Third, with high-order eigenvalues (and therefore highly oscillatory eigenfunctions) the eigenfunction may have a complete oscillation (or more than one oscillation) between two mesh points, so that values of y and y at mesh points give a very poor representation of the curve. The probable behaviour of the Pruefer variables in this case is that β and ρ vary slowly whilst ϕ increases quickly: for all three Pruefer variables linear interpolation between the values at adjacent mesh points is probably sufficiently accurate to yield acceptable intermediate values of β, ϕ, ρ (and hence of y,y) for graphical purposes.
Similar considerations apply to the exponentially decaying ‘tails’ of the eigenfunctions that often occur in singular problems. Here ϕ has approximately constant value whilst ρ increases rapidly in the direction of integration, though the step length is generally fairly small over such a range.
If the solution is output through report at x values which are too widely spaced, the step length can be controlled by choosing hmax suitably, or, preferably, by reducing tol. Both these choices will lead to more accurate eigenvalues and eigenfunctions but at some computational cost.

9.3
The Position of the Shooting Matching Point c

This point is always one of the values xi in array xpoint. It may be specified using the argument match. The default value is chosen to be the value of that xi, 2im-1, that lies closest to the middle of the interval x2,xm-1. If there is a tie, the rightmost candidate is chosen. In particular if there are no break-points, then c=xm-1 (=x3); that is, the shooting is from left to right in this case. A break-point may be inserted purely to move c to an interior point of the interval, even though the form of the equations does not require it. This often speeds up convergence especially with singular problems.
Note that the shooting method used by the code integrates first from the left-hand end xl, then from the right-hand end xr, to meet at the matching point c in the middle. This will of course be reflected in printed or graphical output. The diagram shows a possible sequence of nine mesh points τ1 through τ9 in the order in which they appear, assuming there are just two sub-intervals (so m=5).
Figure 2
Figure 2
Since the shooting method usually fails to match up the two ‘legs’ of the curve exactly, there is bound to be a jump in y, or in pxy or both, at the matching point c. The code in fact ‘shares’ the discrepancy out so that both y and pxy have a jump. A large jump does not imply an inaccurate eigenvalue, but implies either
(a) a badly chosen matching point: if qx;λ has a ‘humped’ shape, c should be chosen near the maximum value of q, especially if q is negative at the ends of the interval;
(b) an inherently ill-conditioned problem, typically one where another eigenvalue is pathologically close to the one being sought. In this case it is extremely difficult to obtain an accurate eigenfunction.
In Section 10, we find the 11th eigenvalue and corresponding eigenfunction of the equation
y+λ-x-2/x2y=0  on  0<x<,  
the boundary conditions being that y should remain bounded as x tends to 0 and x tends to . The coding of this problem is discussed in detail in Section 9.5.
The choice of matching point c is open. If we choose c=30.0 as in d02kdf example program we find that the exponentially increasing component of the solution dominates and we get extremely inaccurate values for the eigenfunction (though the eigenvalue is determined accurately). The values of the eigenfunction calculated with c=30.0 are given schematically in Figure 3.
Figure 3
Figure 3
If we choose c as the maximum of the hump in qx;λ (see item (a) above) we instead obtain the accurate results given in Figure 4
Figure 4
Figure 4

9.4
Examples of Coding the coeffn

Coding coeffn is straightforward except when break-points are needed. The examples below show:
(a) a simple case,
(b) a case in which discontinuities in the coefficient functions or their derivatives necessitate break-points, and
(c) a case where break-points together with the hmax argument are an efficient way to deal with a coefficient function that is well-behaved except over one short interval.
(Some of these cases are among the examples in Section 10.)
Example A
The modified Bessel equation
x xy + λx2-ν2 y=0 .  
Assuming the interval of solution does not contain the origin and dividing through by x, we have px=x and qx;λ=λx-ν2/x. The code could be
Subroutine coeffn(p,q,dqdl,x,elam,jint)
...
p = x
q = elam*x - nu*nu/x
dqdl = x
Return
End
where NU (standing for ν) is a real variable that might be defined in a DATA statement, or might be in user-declared COMMON so that its value could be set in the main program.
Example B
The Schroedinger equation
y+λ+qxy=0,  
where
qx = x2- 10 x 4, 6x x> 4,  
over some interval ‘approximating to -,’, say -20,20. Here we need break-points at ±4, forming three sub-intervals i1=-20,-4, i2=-4,4, i3=4,20. The code could be
Subroutine coeffn(p,q,dqdl,x,elam,jint)
...
If (jint.eq.2) Then
  q = elam + x*x - 10.0E0
Else
  q = elam + 6.0E0/abs(x)
Endif
p = 1.0E0
dqdl = 1.0E0
Return
End
The array xpoint would contain the values x1, -20.0, -4.0, +4.0, +20.0, x6 and m would be 6. The choice of appropriate values for x1 and x6 depends on the form of the asymptotic formula computed by bdyval and the technique is discussed in Section 9.5.
Example C
y+λ1-2e-100x2y=0,  -10x10.  
Here qx;λ is nearly constant over the range except for a sharp inverted spike over approximately -0.1x0.1. There is a danger that the routine will build up to a large step size and ‘step over’ the spike without noticing it. By using break-points – say at ±0.5 – one can restrict the step size near the spike without impairing the efficiency elsewhere.
The code for coeffn could be
Subroutine coeffn(p,q,dqdl,x,elam,jint)
...
p = 1.0E0
dqdl = 1.0E0 - 2.0E0*exp(-100.0E0*x*x)
q = elam*dqdl
Return
End
xpoint might contain -10.0, -10.0, -0.5, 0.5, 10.0, 10.0 (assuming ±10 are regular points) and m would be 6. hmax1j, for j=1,2,3, might contain 0.0, 0.1 and 0.0.

9.5
Examples of Boundary Conditions at Singular Points

Quoting from page 243 of Bailey (1966): ‘Usually ... the differential equation has two essentially different types of solution near a singular point, and the boundary condition there merely serves to distinguish one kind from the other. This is the case in all the standard examples of mathematical physics.’
In most cases the behaviour of the ratio pxy/y near the point is quite different for the two types of solution. Essentially what you provide through the bdyval is an approximation to this ratio, valid as x tends to the singular point (SP).
You must decide (a) how accurate to make this approximation or asymptotic formula, for example how many terms of a series to use, and (b) where to place the boundary matching point (BMP) at which the numerical solution of the differential equation takes over from the asymptotic formula. Taking the BMP closer to the SP will generally improve the accuracy of the asymptotic formula, but will make the computation more expensive as the Pruefer differential equations generally become progressively more ill-behaved as the SP is approached. You are strongly recommended to experiment with placing the BMPs. In many singular problems quite crude asymptotic formulae will do. To help you avoid needlessly accurate formulae, d02kef outputs two ‘sensitivity coefficients’ σl,σr which estimate how much the errors at the BMPs affect the computed eigenvalue. They are described in detail in Section 9.6.
Example of coding bdyval:
The example below illustrates typical situations:
y+λ-x-2x2 y=0,  0<x<  
the boundary conditions being that y should remain bounded as x tends to 0 and x tends to .
At the end x=0 there is one solution that behaves like x2 and another that behaves like x-1. For the first of these solutions pxy/y is asymptotically 2/x while for the second it is asymptotically -1/x. Thus the desired ratio is specified by setting
yl1=x  and  yl2=2.0.  
At the end x= the equation behaves like Airy's equation shifted through λ, i.e., like y-ty=0 where t=x-λ, so again there are two types of solution. The solution we require behaves as
exp-23t32/t4  
and the other as
exp+23t32/t4.  
Hence, the desired solution has pxy/y-t so that we could set yr1=1.0 and yr2=-x-λ. The complete subroutine might thus be
Subroutine bdyval(xl,xr,elam,yl,yr)
Real xl, xr, elam, yl(3), yr(3)
yl(1) = xl
yl(2) = 2.0E0
yr(1) = 1.0E0
yr(2) = -sqrt(xr-elam)
Return
End
Clearly for this problem it is essential that any value given by d02kef to xr is well to the right of the value of elam, so that you must vary the right-hand BMP with the eigenvalue index k. One would expect λk to be near the kth zero of the Airy function Aix, so there is no problem estimating elam.
More accurate asymptotic formulae are easily found: near x=0 by the standard Frobenius method, and near x= by using standard asymptotics for Aix, Aix, (see page 448 of Abramowitz and Stegun (1972)).
For example, by the Frobenius method the solution near x=0 has the expansion
y=x2c0+c1x+c2x2+  
with
c0= 1,c1= 0, c2=-λ10, c3=118,, cn=cn- 3-λ cn- 2 nn+ 3 .  
This yields
pxyy=2-25λx2+ x 1-λ10x2+ .  

9.6
The Sensitivity Parameters σl and σr

The sensitivity parameters σl, σr (held in hmax1m-1 and hmax1m on output) estimate the effect of errors in the boundary conditions. For sufficiently small errors Δy, Δpy in y and py respectively, the relations
Δλy.Δpy-py.Δylσl Δλy.Δpy-py.Δyrσr  
are satisfied, where the subscripts l, r denote errors committed at the left- and right-hand BMPs respectively, and Δλ denotes the consequent error in the computed eigenvalue.

9.7
‘Missed Zeros’

This is a pitfall to beware of at a singular point. If the BMP is chosen so far from the SP that a zero of the desired eigenfunction lies in between them, then the routine will fail to ‘notice’ this zero. Since the index of k of an eigenvalue is the number of zeros of its eigenfunction, the result will be that
(a) the wrong eigenvalue will be computed for the given index k – in fact some λk+k will be found where k1;
(b) the same index k can cause convergence to any of several eigenvalues depending on the initial values of elam and delam.
It is up to you to take suitable precautions – for instance by varying the position of the BMPs in the light of knowledge of the asymptotic behaviour of the eigenfunction at different eigenvalues.

10
Example

This example finds the 11th eigenvalue and eigenfunction of the example of Section 9.5, using the simple asymptotic formulae for the boundary conditions.
Comparison of the results from this example program with the corresponding results from d02kdf example program shows that similar output is produced from monit, followed by the eigenfunction values from report, and then a further line of information from monit (corresponding to the integration to find the eigenfunction). Final information is printed within the example program exactly as with d02kdf.
Note the discrepancy at the matching point c (=43, the maximum of qx;λ, in this case) between the solutions obtained by integrations from left- and right-hand end points.

10.1
Program Text

Program Text (d02kefe.f90)

10.2
Program Data

Program Data (d02kefe.d)

10.3
Program Results

Program Results (d02kefe.r)

GnuplotProduced by GNUPLOT 4.6 patchlevel 3 −10 −8 −6 −4 −2 0 2 4 6 8 10 0 5 10 15 20 25 30 Eigenfunction and Derivative x Example Program Regular Singular Second-order Sturm-Liouville System 11th Eigenfunction and Derivative p(x)y' y gnuplot_plot_1 gnuplot_plot_2