# HG changeset patch
# User dbateman
# Date 1115718098 0
# Node ID a103c41e68b20c2797255f0768748a7b6e7ad6f0
# Parent  2781568bf95109ae93695ede19c39e5b2f6590d5
[project @ 2005-05-10 09:41:38 by dbateman]

diff -r 2781568bf951 -r a103c41e68b2 liboctave/CSparse.cc
--- a/liboctave/CSparse.cc	Tue May 10 05:31:13 2005 +0000
+++ b/liboctave/CSparse.cc	Tue May 10 09:41:38 2005 +0000
@@ -738,11 +738,11 @@
 		  
 		  UMFPACK_ZNAME (report_status) (control, status);
 		  UMFPACK_ZNAME (report_info) (control, info);
-		  
-		  UMFPACK_ZNAME (free_numeric) (&Numeric);
 		}
 	      else
 		retval = ComplexDET (d);
+		  
+	      UMFPACK_ZNAME (free_numeric) (&Numeric);
 	    }
 	}
     }
diff -r 2781568bf951 -r a103c41e68b2 liboctave/ChangeLog
--- a/liboctave/ChangeLog	Tue May 10 05:31:13 2005 +0000
+++ b/liboctave/ChangeLog	Tue May 10 09:41:38 2005 +0000
@@ -1,3 +1,9 @@
+2005-05-10  David Bateman <dbateman@free.fr>
+
+	* dSparse.cc (determinant): Free numeric factorization after
+	sucessful calculation.
+	* CSparse.cc (determinant): ditto.
+
 2005-05-06  John W. Eaton  <jwe@octave.org>
 
 	* dbleCHOL.cc (CHOL::init): Use xelem instead of elem for indexing
diff -r 2781568bf951 -r a103c41e68b2 liboctave/dSparse.cc
--- a/liboctave/dSparse.cc	Tue May 10 05:31:13 2005 +0000
+++ b/liboctave/dSparse.cc	Tue May 10 09:41:38 2005 +0000
@@ -817,11 +817,11 @@
 		  
 		  UMFPACK_DNAME (report_status) (control, status);
 		  UMFPACK_DNAME (report_info) (control, info);
-
-		  UMFPACK_DNAME (free_numeric) (&Numeric);
 		}
 	      else
 		retval = DET (d);
+
+	      UMFPACK_DNAME (free_numeric) (&Numeric);
 	    }
 	}
     }