changeset 30895:360d330cc30e

don't change ode options.havejacfun (reverts part of e1788b1a315f) * ode15i.m, ode15s.m: Revert change of havejacfun -> havejacfcn field name used in options struct that is passed to __ode15__. If we change that field, we'll also need to change __ode15__, possibly providing a path for backward compatibility?
author John W. Eaton <jwe@octave.org>
date Tue, 05 Apr 2022 01:06:00 -0400
parents 9c686fa8132e
children c9788d7f6e65
files scripts/ode/ode15i.m scripts/ode/ode15s.m
diffstat 2 files changed, 7 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ode/ode15i.m	Mon Apr 04 18:16:38 2022 -0700
+++ b/scripts/ode/ode15i.m	Tue Apr 05 01:06:00 2022 -0400
@@ -172,7 +172,7 @@
   ## Jacobian
   options.havejac       = false;
   options.havejacsparse = false;
-  options.havejacfcn    = false;
+  options.havejacfun    = false;
 
   if (! isempty (options.Jacobian))
     options.havejac = true;
@@ -196,7 +196,7 @@
       endif
 
     elseif (is_function_handle (options.Jacobian))
-      options.havejacfcn = true;
+      options.havejacfun = true;
       if (nargin (options.Jacobian) == 3)
         [J1, J2] = options.Jacobian (trange(1), y0, yp0);
 
--- a/scripts/ode/ode15s.m	Mon Apr 04 18:16:38 2022 -0700
+++ b/scripts/ode/ode15s.m	Tue Apr 05 01:06:00 2022 -0400
@@ -216,12 +216,12 @@
   ## Jacobian
   options.havejac       = false;
   options.havejacsparse = false;
-  options.havejacfcn    = false;
+  options.havejacfun    = false;
 
   if (! isempty (options.Jacobian))
     options.havejac = true;
     if (is_function_handle (options.Jacobian))
-      options.havejacfcn = true;
+      options.havejacfun = true;
       if (nargin (options.Jacobian) == 2)
         A = options.Jacobian (trange(1), y0);
         if (! issquare (A) || rows (A) != n || ! isnumeric (A) || ! isreal (A))
@@ -263,13 +263,13 @@
 
   ## If Mass or Jacobian is fcn, then new Jacobian is fcn
   if (options.havejac)
-    if (options.havejacfcn || options.havetimedep)
+    if (options.havejacfun || options.havetimedep)
       options.Jacobian = @ (t, y, yp) wrapjacfcn (t, y, yp,
                                                   options.Jacobian,
                                                   options.Mass,
                                                   options.havetimedep,
-                                                  options.havejacfcn);
-      options.havejacfcn = true;
+                                                  options.havejacfun);
+      options.havejacfun = true;
     else   # All matrices are constant
       if (! isempty (options.Mass))
         options.Jacobian = {[- options.Jacobian], [options.Mass]};