Mercurial > hg > octave-nkf

changeset 480:738791c163b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-06-29 15:37:07 by jwe]
author jwe
date Wed, 29 Jun 1994 15:37:07 +0000
parents 8e9dcc406332
children 376ac108f611
files src/det.cc
diffstat 1 files changed, 8 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/src/det.cc
+++ b/src/det.cc
@@ -75,14 +75,14 @@
 	    int info;
 	    double rcond = 0.0;
 	    DET det = m.determinant (info, rcond);
+	    double d = 0.0;
 	    if (info == -1)
 	      warning ("det: matrix singular to machine precision, rcond = %g",
 		       rcond);
 	    else
-	      {
-		double d = det.value ();
-		retval = tree_constant (d);
-	      }
+	      d = det.value ();
+
+	    retval = tree_constant (d);
 	  }
 	else
 	  gripe_square_matrix_required ("det");
@@ -96,14 +96,14 @@
 	    int info;
 	    double rcond = 0.0;
 	    ComplexDET det = m.determinant (info, rcond);
+	    Complex c = 0.0;
 	    if (info == -1)
 	      warning ("det: matrix singular to machine precision, rcond = %g",
 		       rcond);
 	    else
-	      {
-		Complex c = det.value ();
-		retval = tree_constant (c);
-	      }
+	      Complex c = det.value ();
+
+	    retval = tree_constant (c);
 	  }
 	else
 	  gripe_square_matrix_required ("det");