Mercurial > octave
view liboctave/numeric/DASRT.h @ 29931:7faff48840eb
prefer data over fortran_vec for read-only access to data
See also the discussion here: https://octave.discourse.group/t/rename-uses-of-fortran-vec-to-data-for-clarity/1439
* Array.h (const T * Array<T>::fortran_vec (void) const): Deprecate.
Change all uses to call data instead.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Fri, 30 Jul 2021 11:46:05 -0400 |
parents | 0a5b15007766 |
children | b3717fd85e49 |
line wrap: on
line source
//////////////////////////////////////////////////////////////////////// // // Copyright (C) 2002-2021 The Octave Project Developers // // See the file COPYRIGHT.md in the top-level directory of this // distribution or <https://octave.org/copyright/>. // // This file is part of Octave. // // Octave is free software: you can redistribute it and/or modify it // under the terms of the GNU General Public License as published by // the Free Software Foundation, either version 3 of the License, or // (at your option) any later version. // // Octave is distributed in the hope that it will be useful, but // WITHOUT ANY WARRANTY; without even the implied warranty of // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the // GNU General Public License for more details. // // You should have received a copy of the GNU General Public License // along with Octave; see the file COPYING. If not, see // <https://www.gnu.org/licenses/>. // //////////////////////////////////////////////////////////////////////// #if ! defined (octave_DASRT_h) #define octave_DASRT_h 1 #include "octave-config.h" #include <string> #include "Array.h" #include "DASRT-opts.h" #include "dMatrix.h" class DASRT_result { public: DASRT_result (void) : x (), xdot (), t () { } DASRT_result (const Matrix& xx, const Matrix& xxdot, const ColumnVector& tt) : x (xx), xdot (xxdot), t (tt) { } DASRT_result (const DASRT_result& r) : x (r.x), xdot (r.xdot), t (r.t) { } DASRT_result& operator = (const DASRT_result& r) { if (this != &r) { x = r.x; xdot = r.xdot; t = r.t; } return *this; } ~DASRT_result (void) = default; Matrix state (void) const { return x; } Matrix deriv (void) const { return xdot; } ColumnVector times (void) const { return t; } private: Matrix x; Matrix xdot; ColumnVector t; }; class OCTAVE_API DASRT : public DAERT, public DASRT_options { public: DASRT (void) : DAERT (), DASRT_options (), initialized (false), liw (0), lrw (0), ng (0), info (), iwork (), jroot (), rwork (), abs_tol (), rel_tol () { } DASRT (const ColumnVector& s, double tm, DAERTFunc& f) : DAERT (s, tm, f), DASRT_options (), initialized (false), liw (0), lrw (0), ng (0), info (), iwork (), jroot (), rwork (), abs_tol (), rel_tol () { } DASRT (const ColumnVector& s, const ColumnVector& deriv, double tm, DAERTFunc& f) : DAERT (s, deriv, tm, f), DASRT_options (), initialized (false), liw (0), lrw (0), ng (0), info (), iwork (), jroot (), rwork (), abs_tol (), rel_tol () { } ~DASRT (void) = default; DASRT_result integrate (const ColumnVector& tout); DASRT_result integrate (const ColumnVector& tout, const ColumnVector& tcrit); std::string error_message (void) const; private: bool initialized; octave_f77_int_type liw; octave_f77_int_type lrw; octave_f77_int_type ng; Array<octave_f77_int_type> info; Array<octave_f77_int_type> iwork; Array<octave_f77_int_type> jroot; Array<double> rwork; Array<double> abs_tol; Array<double> rel_tol; void integrate (double t); }; #endif