1 /*---------------------------------------------------------------------------*\
3 \\ / F ield | OpenFOAM: The Open Source CFD Toolbox
5 \\ / A nd | Copyright (C) 1991-2009 OpenCFD Ltd.
7 -------------------------------------------------------------------------------
9 This file is part of OpenFOAM.
11 OpenFOAM is free software; you can redistribute it and/or modify it
12 under the terms of the GNU General Public License as published by the
13 Free Software Foundation; either version 2 of the License, or (at your
14 option) any later version.
16 OpenFOAM is distributed in the hope that it will be useful, but WITHOUT
17 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
18 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
21 You should have received a copy of the GNU General Public License
22 along with OpenFOAM; if not, write to the Free Software Foundation,
23 Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
35 \*---------------------------------------------------------------------------*/
40 #include "ODESolver.H"
42 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
47 /*---------------------------------------------------------------------------*\
48 Class KRR4 Declaration
49 \*---------------------------------------------------------------------------*/
57 mutable scalarField yTemp_;
58 mutable scalarField dydxTemp_;
59 mutable scalarField g1_;
60 mutable scalarField g2_;
61 mutable scalarField g3_;
62 mutable scalarField g4_;
63 mutable scalarField yErr_;
64 mutable scalarField dfdx_;
65 mutable scalarSquareMatrix dfdy_;
66 mutable scalarSquareMatrix a_;
67 mutable labelList pivotIndices_;
69 static const int maxtry = 40;
71 static const scalar safety, grow, pgrow, shrink, pshrink, errcon;
76 c21, c31, c32, c41, c42, c43,
85 //- Runtime type information
91 //- Construct from ODE
104 const scalarField& yScale,
112 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
114 } // End namespace Foam
116 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
120 // ************************************************************************* //