changeset 3800:115cbfcd067e

[project @ 2001-02-22 21:55:15 by jwe]
author jwe
date Thu, 22 Feb 2001 21:55:17 +0000
parents 36fe147645b6
children bc61e418f200
files ChangeLog configure.in scripts/control/system/__zp2ssg2__.m src/ChangeLog src/DLD-FUNCTIONS/minmax.cc
diffstat 5 files changed, 15 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2001-02-22  John W. Eaton  <jwe@bevo.che.wisc.edu>
+
+	* configure.in: Allow for using f2c when setting functions to look
+	for in the BLAS and Lapack libraries.
+	From Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at>.
+
 2001-02-10  Mumit Khan  <khan@nanotech.wisc.edu>
 
 	* test/octave.test/string/dec2hex-1.m: Don't assume hex format
--- a/configure.in
+++ b/configure.in
@@ -21,7 +21,7 @@
 ### Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 ### 02111-1307, USA. 
 
-AC_REVISION($Revision: 1.339 $)
+AC_REVISION($Revision: 1.340 $)
 AC_PREREQ(2.9)
 AC_INIT(src/octave.cc)
 AC_CONFIG_HEADER(config.h)
@@ -550,7 +550,7 @@
     cheev_func=CHEEV
   fi
 else
-  if test "$octave_cv_f77_append_underscore" = "yes"; then
+  if test "$octave_cv_f77_append_underscore" = "yes" || test -n "${F2C}"; then
     dgemm_func=dgemm_
     cheev_func=cheev_
   else
--- a/scripts/control/system/__zp2ssg2__.m
+++ b/scripts/control/system/__zp2ssg2__.m
@@ -39,7 +39,7 @@
     ## roundoff)
     err = abs(rvals(cidx) - r1');
     minerr = min(err);
-    c2i = find(err == minerr);
+    c2i = min(find(err == minerr));
     r2i = cidx(c2i);
     r2 = rvals(r2i);
     cidx = complement(r2i,cidx);
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2001-02-22  John W. Eaton  <jwe@bevo.che.wisc.edu>
+
+	* DLD-FUNCTIONS/minmax.cc (EMPTY_RETURN_CHECK): For empty matrix
+	args, make Octave's min	and max behave like Matlab.
+
 2001-02-18  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
 	* OPERATORS/op-s-s.cc (el_or, el_and): Return bool value.
--- a/src/DLD-FUNCTIONS/minmax.cc
+++ b/src/DLD-FUNCTIONS/minmax.cc
@@ -39,7 +39,7 @@
 
 #define EMPTY_RETURN_CHECK(T) \
   if (nr == 0 || nc == 0) \
-    return T (0, 0)
+    return T (nr, nc);
 
 static Matrix
 min (double d, const Matrix& m)