diff liboctave/dSparse.cc @ 8335:64cf956a109c

templatize & fix DET
author Jaroslav Hajek <highegg@gmail.com>
date Wed, 19 Nov 2008 11:23:07 +0100
parents b11c31849b44
children 8b1a2555c4e2
line wrap: on
line diff
--- a/liboctave/dSparse.cc	Tue Nov 18 22:55:13 2008 +0100
+++ b/liboctave/dSparse.cc	Wed Nov 19 11:23:07 2008 +0100
@@ -1188,10 +1188,7 @@
 
   if (nr == 0 || nc == 0 || nr != nc)
     {
-      double d[2];
-      d[0] = 1.0;
-      d[1] = 0.0;
-      retval = DET (d);
+      retval = DET (1.0);
     }
   else
     {
@@ -1270,10 +1267,9 @@
 	    {
 	      UMFPACK_DNAME (report_numeric) (Numeric, control);
 
-	      double d[2];
-
-	      status = UMFPACK_DNAME (get_determinant) (&d[0],
-						   &d[1], Numeric, info);
+	      double c10, e10;
+
+	      status = UMFPACK_DNAME (get_determinant) (&c10, &e10, Numeric, info);
 
 	      if (status < 0)
 		{
@@ -1284,7 +1280,7 @@
 		  UMFPACK_DNAME (report_info) (control, info);
 		}
 	      else
-		retval = DET (d);
+		retval = DET (c10, e10, 10);
 
 	      UMFPACK_DNAME (free_numeric) (&Numeric);
 	    }