MRKISS 2025-09-10
A tiny library with zero dependencies that aims to make it easy to use & experiment with explicit Runge-Kutta methods.
Loading...
Searching...
No Matches
mrkiss_eerk_verner_7_6.f90
Go to the documentation of this file.
1! -*- Mode:F90; Coding:us-ascii-unix; fill-column:129 -*-
2!.!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!.H.S.!!
3!>
4!! @file mrkiss_eerk_verner_7_6.f90
5!! @author Mitch Richling http://www.mitchr.me/
6!! @brief Butcher tableau for Verner's 10 stage, Order (7,6) Runge-Kutta method.@EOL
7!! @keywords ode ivp differential equation initial value problem rk
8!! @std F2023
9!! @see https://github.com/richmit/MRKISS
10!! @copyright
11!! @parblock
12!! Copyright (c) 2025, Mitchell Jay Richling <http://www.mitchr.me/> All rights reserved.
13!!
14!! Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following
15!! conditions are met:
16!!
17!! 1. Redistributions of source code must retain the above copyright notice, this list of conditions, and the following
18!! disclaimer.
19!!
20!! 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions, and the following
21!! disclaimer in the documentation and/or other materials provided with the distribution.
22!!
23!! 3. Neither the name of the copyright holder nor the names of its contributors may be used to endorse or promote products
24!! derived from this software without specific prior written permission.
25!!
26!! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
27!! INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
28!! DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
29!! EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
30!! USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31!! LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
32!! OF THE POSSIBILITY OF SUCH DAMAGE.
33!! @endparblock
34!.!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!.H.E.!!
35
36!----------------------------------------------------------------------------------------------------------------------------------
37!> Butcher tableau for Verner's 10 stage, Order (7,6) Runge-Kutta method
38!!
39!! @image html eerk_verner_7_6-stab.png
40!!
41!! @par IMO
42!! This is my go-to O(7,6) method.
43!!
44!! @par Known Aliases
45!! 'ARKODE_VERNER_10_6_7' (SUNDIALS).
46!!
47!! @par Stability Image Links
48!! <a href="eerk_verner_7_6-stab.png"> <img src="eerk_verner_7_6-stab.png" width="256px"> </a>
49!! <a href="eerk_verner_7_6-astab.png"> <img src="eerk_verner_7_6-astab.png" width="256px"> </a>
50!! <a href="eerk_verner_7_6-star1.png"> <img src="eerk_verner_7_6-star1.png" width="256px"> </a>
51!! <a href="eerk_verner_7_6-star2.png"> <img src="eerk_verner_7_6-star2.png" width="256px"> </a>
52!!
53!! @par References:
54!! - Verner (2010); Numerically Optimal Runge-Kutta Pairs with Interpolants; Num. Alg. 53 (2-3); p383-396;
55!! zotero://select/items/0_24ANPMLC
56!! - Verner (2007, CORRECTED 2024); A "more efficient" Runge-Kutta (7)6 Pair with corrected Interpolants;
57!! https://www.sfu.ca/~jverner/; zotero://select/items/0_9NS8U6I6
58!! - Retreived 2025-07-26: https://www.sfu.ca/~jverner/RKV76.IIa.Efficient.00001675585.240711.FLOAT6040OnWeb
59!! - Retreived 2025-07-26: https://www.sfu.ca/~jverner/RKV76.IIa.Efficient.00001675585.240711.CoeffsOnlyRATandRAD
60!! - Retreived 2025-07-26: https://www.sfu.ca/~jverner/RKV76.IIa.Efficient.00001675585.240712.CoeffsOnlyFLOAT
61!!
62module mrkiss_eerk_verner_7_6
63 use mrkiss_config, only: rk
64 implicit none
65 public
66 !> The order of the overall method
67 integer, parameter :: s = 10
68 !> Number of methods
69 integer, parameter :: m = 2
70 !> The @f$\mathbf{a}@f$ matrix for the Butcher Tableau. @hideinitializer @hideinlinesource
71 real(kind=rk), parameter :: a(s,s) = reshape([ 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.0000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, &
72 & 0.0050000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.0000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, &
73 & -1.0767901234567901234567901234567901234567901234568_rk, 1.1856790123456790123456790123456790123456790123457_rk, 0.0000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, &
74 & 0.040833333333333333333333333333333333333333333333333_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.1225000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, &
75 & 0.63891392362557267805081216159933361099541857559350_rk, 0.00000000000000000000000000000000000000000000000000_rk, -2.4556726382236568096626405664306538942107455226989_rk, 2.2722587145980841316118284048313202832153269471054_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, &
76 & -2.6615773750187571311192592978618181192788611062128_rk, 0.00000000000000000000000000000000000000000000000000_rk, 10.804513886456137695653966553655328384821669531386_rk, -8.3539146573961994119680485478192916915408825761034_rk, 0.82048759495665697914204173417438392096187091021663_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, &
77 & 6.0677414346967709927183601838772767146792664017689_rk, 0.00000000000000000000000000000000000000000000000000_rk, -24.711273635911085797342034852907460018034177162968_rk, 20.427517930788893940457731117483466126966093164941_rk, -1.9061579788166471506240967843527570108789746813015_rk, 1.0061722492420680147900403358994741872677922775599_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, &
78 & 12.054670076253202995091094528927783116480425241068_rk, 0.00000000000000000000000000000000000000000000000000_rk, -49.754784950468989328072576153314447583218172258343_rk, 41.142888638604676632596984167101573542086199316807_rk, -4.4617601499740041856419116034848153750507726150453_rk, 2.0423348222391749598217170777086085437376938736295_rk, -0.098348436654061073795308016938702244035373558116456_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, &
79 & 10.138146522881807876418451419816890307685556619745_rk, 0.00000000000000000000000000000000000000000000000000_rk, -42.641136031717502146228460067366357306245835300606_rk, 35.763840039922570071350211780231600540342982686387_rk, -4.3480228403929076533403702969082459437102834163912_rk, 2.0098622683770358954419435930118275547707297292107_rk, 0.34874904603382724059538228530531458791404132524818_rk, -0.27143900510483128423715871409102974075719164359251_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, &
80 & -45.030072034298677124353224050737696351514544471994_rk, 0.00000000000000000000000000000000000000000000000000_rk, 187.32724376545888407524182061542019973835156113331_rk, -154.02882369350186905967286210345104025817573554904_rk, 18.564653063475362338594923329584391367651380645405_rk, -7.1418096792950788549254204968235511928209417937567_rk, 1.3088085781613786251147627060076966965082800360840_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk], [s, s])
81 !> The @f$\mathbf{b}@f$ matrix for the Butcher Tableau. @hideinitializer @hideinlinesource
82 real(kind=rk), parameter :: b(s,m) = reshape([ 0.047155618486272221704317651088381756795693267386650_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.000000000000000000000000000000000000000000000000_rk, 0.25750564298434151895964361010376875809863957125888_rk, 0.26216653977412620477138630957645277111291404673697_rk, 0.15216092656738557403231331991651175355225951822513_rk, 0.49399691700324842469071758932278768442958530857136_rk, -0.29430311714032504415572447440927034291387355706895_rk, 0.081317472324951099997345994401367618924781844889955_rk, 0.000000000000000000000000000000000000000000000000000_rk, &
83 & 0.044608606606341176287318175974791977814319332350139_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.000000000000000000000000000000000000000000000000_rk, 0.26716403785713726805091022609438378997384066010408_rk, 0.22010183001772930199797157766507530963231916428101_rk, 0.21884317031431568309831208335128938245775487595798_rk, 0.22898717054112028833781738897635523653622392293999_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.00000000000000000000000000000000000000000000000000_rk, 0.020295184663356282227670547938104303585542044366799_rk], [s, m])
84 !> The @f$\mathbf{c}@f$ matrix for the Butcher Tableau. @hideinitializer @hideinlinesource
85 real(kind=rk), parameter :: c(s) = [ 0.00000000000000000000000000000000000000000000000000_rk, 0.0050000000000000000000000000000000000000000000000000_rk, 0.10888888888888888888888888888888888888888888888889_rk, 0.16333333333333333333333333333333333333333333333333_rk, 0.45550000000000000000000000000000000000000000000000_rk, 0.60950944899783813170870044214860249496379675928661_rk, 0.88400000000000000000000000000000000000000000000000_rk, 0.92500000000000000000000000000000000000000000000000_rk, 1.00000000000000000000000000000000000000000000000000_rk, 1.000000000000000000000000000000000000000000000000000_rk]
86 !> The method orders
87 integer, parameter :: p(m) = [7, 6]
88 !> Number of stages for each method
89 integer, parameter :: se(m) = [9, 10]
90end module mrkiss_eerk_verner_7_6
mrkiss_config
Configuration for MRKISS == MR RK KISS == Mitch Richling's Runge-Kutta Keep It Simple Stupid.
Definition mrkiss_config.f90:38
mrkiss_config::rk
integer, parameter, public rk
Real kind used across the library.
Definition mrkiss_config.f90:46
mrkiss_eerk_verner_7_6
Butcher tableau for Verner's 10 stage, Order (7,6) Runge-Kutta method.
Definition mrkiss_eerk_verner_7_6.f90:62
mrkiss_eerk_verner_7_6::c
real(kind=rk), dimension(s), parameter c
The matrix for the Butcher Tableau.
Definition mrkiss_eerk_verner_7_6.f90:85
mrkiss_eerk_verner_7_6::b
real(kind=rk), dimension(s, m), parameter b
The matrix for the Butcher Tableau.
Definition mrkiss_eerk_verner_7_6.f90:82
mrkiss_eerk_verner_7_6::a
real(kind=rk), dimension(s, s), parameter a
The matrix for the Butcher Tableau.
Definition mrkiss_eerk_verner_7_6.f90:71
mrkiss_eerk_verner_7_6::m
integer, parameter m
Number of methods.
Definition mrkiss_eerk_verner_7_6.f90:69
mrkiss_eerk_verner_7_6::s
integer, parameter s
The order of the overall method.
Definition mrkiss_eerk_verner_7_6.f90:67
mrkiss_eerk_verner_7_6::p
integer, dimension(m), parameter p
The method orders.
Definition mrkiss_eerk_verner_7_6.f90:87
mrkiss_eerk_verner_7_6::se
integer, dimension(m), parameter se
Number of stages for each method.
Definition mrkiss_eerk_verner_7_6.f90:89