# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1203581127 18000
# Node ID 087af2a4ca269f7bdc6835cf8bdf5ee3b9260520
# Parent  5d50ebf98273609df0503fbdcb3be92cf7780837
fsolve: detect nonsquare systems

diff -r 5d50ebf98273 -r 087af2a4ca26 src/ChangeLog
--- a/src/ChangeLog	Wed Feb 20 14:56:28 2008 -0500
+++ b/src/ChangeLog	Thu Feb 21 03:05:27 2008 -0500
@@ -1,3 +1,9 @@
+2008-02-21  John W. Eaton  <jwe@octave.org>
+
+	* DLD-FUNCTIONS/fsolve.cc (fsolve_user_jacobian):
+	Check dimensions of user-supplied Jacobian matrix.
+	(fsolve_user_function): Check for non-square systems.
+
 2008-02-12  David Bateman  <dbateman@free.fr?
 
 	* graphics.h.in: Implement the cdatamapping property in patch,
diff -r 5d50ebf98273 -r 087af2a4ca26 src/DLD-FUNCTIONS/fsolve.cc
--- a/src/DLD-FUNCTIONS/fsolve.cc	Wed Feb 20 14:56:28 2008 -0500
+++ b/src/DLD-FUNCTIONS/fsolve.cc	Thu Feb 21 03:05:27 2008 -0500
@@ -139,6 +139,8 @@
 
 	  if (error_state || retval.length () <= 0)
 	    gripe_user_supplied_eval ("fsolve");
+	  else if (retval.length () != x.length ())
+	    error ("fsolve: unable to solve non-square systems");
 	}
       else
 	gripe_user_supplied_eval ("fsolve");
@@ -188,6 +190,9 @@
 
 	  if (error_state || retval.length () <= 0)
 	    gripe_user_supplied_eval ("fsolve");
+	  else if (! (retval.rows () == x.length ()
+		      && retval.columns () == x.length ()))
+	    error ("fsolve: invalid Jacobian matrix dimensions");
 	}
       else
 	gripe_user_supplied_eval ("fsolve");