# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1649135160 14400
# Node ID 360d330cc30ef0edcf5dec2222cb8fdc6831d5f2
# Parent  9c686fa8132e43b687dc8fafaffddba4bf6fc050
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?

diff -r 9c686fa8132e -r 360d330cc30e scripts/ode/ode15i.m
--- 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);
 
diff -r 9c686fa8132e -r 360d330cc30e scripts/ode/ode15s.m
--- 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]};