Mercurial > hg > octave-lyh
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 +++ b/liboctave/dSparse.cc @@ -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); }