Mercurial > octave

changeset 31388:18a6c1408626

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
LSODE: Make sure m_iwork is sufficiently large for following assignments (bug #63303). * liboctave/numeric/LSODE.cc (LSODE::do_integrate): Make sure m_iwork is sufficiently large for following assignments during initialization.
author Markus Mützel <markus.muetzel@gmx.de>
date Wed, 02 Nov 2022 18:26:14 +0100
parents 2850eef38937
children c3ed2ad87aca
files liboctave/numeric/LSODE.cc
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/liboctave/numeric/LSODE.cc	Wed Nov 02 17:46:15 2022 +0100
+++ b/liboctave/numeric/LSODE.cc	Wed Nov 02 18:26:14 2022 +0100
@@ -131,6 +131,8 @@
 
       user_jac_ignore_ml_mu = true;
 
+      m_iwork = Array<octave_f77_int_type> (dim_vector (2, 1));
+
       m_iwork(0) = lower_jacobian_subdiagonals ();  // 'ML' in dlsode.f
 
       m_iwork(1) = upper_jacobian_subdiagonals ();  // 'MU' in dlsode.f