D200: First-order Differential Equations (Runge-Kutta)

Author(s): G.A. Erskine Library: MATHLIB
Submitter: Submitted: 01.09.1983
Language: Fortran Revised: 01.03.1994

Subroutine subprograms RRKSTP and DRKSTP advance the solution of the system of tex2html_wrap_inline123 simultaneous first-order differential equations

displaymath125

by a single step of length h in the independent variable x.

On CDC and Cray computers, the double-precision version DRKSTP is not available.

Structure:

SUBROUTINE subprograms
User Entry Names : RKSTP, DRKSTP
Obsolete User Entry Names : RKSTP tex2html_wrap_inline131 RRKSTP
Files Referenced : Unit 6
External References: user-supplied SUBROUTINE subprogram

Usage:

For tex2html_wrap_inline133 (type REAL), tex2html_wrap_inline135 (type DOUBLE PRECISION),

    CALL tRKSTP(N,H,X,Y,SUB,W)
N
(INTEGER) Number n of equations.
H
(type according to t) The step-length h.
X
(type according to t) On entry, X must be equal to the initial value of the independent variable x. On exit, X is equal to x+h.
Y
(type according to t) One-dimensional array of length tex2html_wrap_inline145 N. On entry, tex2html_wrap_inline147 , must contain tex2html_wrap_inline149 . On exit, tex2html_wrap_inline151 , contains approximate values tex2html_wrap_inline153 .
SUB
Name of a user-supplied SUBROUTINE subprogram, declared EXTERNAL in the calling program.
W
(type according to t) Array containing at least 3*N elements required as working-space.
The user-supplied subroutine SUB should be of the form
    SUBROUTINE SUB(X,Y,F)
where the variable X and the one-dimensional arrays Y(*) and F(*) are of type t. This subroutine must set

displaymath155

Method:

Using boldface quantities to denote vectors of length n, the computational sequence is as follows:

eqnarray82

The error per step is proportional to tex2html_wrap_inline159 .

Error handling:

tex2html_wrap_inline161 acts as do nothing.

References:

  1. F.B. Hildebrand, Introduction to numerical analysis, (McGraw-Hill, New-York 1956) Sect. 6.16.
tex2html_wrap_inline163

Michel Goossens Wed Jun 5 00:09:27 METDST 1996