[Scipy-svn] r3201 - trunk/Lib/optimize

[scipy-svn@scip...]

Author: dmitrey.kroshko
Date: 2007-07-27 01:56:52 -0500 (Fri, 27 Jul 2007)
New Revision: 3201

Modified:
   trunk/Lib/optimize/minpack.h
Log:
bugfix in leastsq, jacobian transpose (ticket 416)


Modified: trunk/Lib/optimize/minpack.h
===================================================================
--- trunk/Lib/optimize/minpack.h	2007-07-27 03:34:16 UTC (rev 3200)
+++ trunk/Lib/optimize/minpack.h	2007-07-27 06:56:52 UTC (rev 3201)
@@ -94,7 +94,7 @@
     diag = (double *)ap_diag -> data; \
     mode = 2; } }
 
-#define MATRIXC2F(jac,data,n,m) {double *p1=(double *)(jac), *p2, *p3=(double *)(data);\
+#define MATRIXC2F(jac,data,m,n) {double *p1=(double *)(jac), *p2, *p3=(double *)(data);\
 int i,j;\
 for (j=0;j<(m);p3++,j++) \
   for (p2=p3,i=0;i<(n);p2+=(m),i++,p1++) \