Mercurial > octave
diff src/DLD-FUNCTIONS/spqr.cc @ 5648:69a4f320d95a
[project @ 2006-03-08 20:17:37 by dbateman]
author | dbateman |
---|---|
date | Wed, 08 Mar 2006 20:17:38 +0000 |
parents | 2618a0750ae6 |
children | 233d98d95659 |
line wrap: on
line diff
--- a/src/DLD-FUNCTIONS/spqr.cc Tue Mar 07 15:57:52 2006 +0000 +++ b/src/DLD-FUNCTIONS/spqr.cc Wed Mar 08 20:17:38 2006 +0000 @@ -37,9 +37,9 @@ #include "SparseCmplxQR.h" #ifdef IDX_TYPE_LONG -#define CSSPARSE_NAME(name) name ## _dl +#define CXSPARSE_NAME(name) cs_dl ## name #else -#define CSSPARSE_NAME(name) name ## _di +#define CXSPARSE_NAME(name) cs_di ## name #endif // PKG_ADD: dispatch ("qr", "spqr", "sparse matrix"); @@ -229,7 +229,7 @@ DEFUN_DLD (dmperm, args, nargout, "-*- texinfo -*-\n\ @deftypefn {Loadable Function} {@var{p} =} dmperm (@var{s})\n\ -@deftypefnx {Loadable Function} {[@var{p}. @var{q}. @var{r}, @var{s}] =} dmperm (@var{s})\n\ +@deftypefnx {Loadable Function} {[@var{p}, @var{q}, @var{r}, @var{s}] =} dmperm (@var{s})\n\ \n\ @cindex Dulmage-Mendelsohn decomposition\n\ Perform a Deulmage-Mendelsohn permutation on the sparse matrix @var{s}.\n\ @@ -263,7 +263,7 @@ octave_idx_type nc = arg.columns (); SparseMatrix m; SparseComplexMatrix cm; - CSSPARSE_NAME (cs) csm; + CXSPARSE_NAME () csm; csm.m = nr; csm.n = nc; csm.x = NULL; @@ -288,20 +288,20 @@ { if (nargout <= 1) { - octave_idx_type *jmatch = CSSPARSE_NAME (cs_maxtrans) (&csm); + octave_idx_type *jmatch = CXSPARSE_NAME (_maxtrans) (&csm); retval(0) = put_int (jmatch + nr, nc); - CSSPARSE_NAME (cs_free) (jmatch); + CXSPARSE_NAME (_free) (jmatch); } else { - CSSPARSE_NAME (csd) *dm = CSSPARSE_NAME(cs_dmperm) (&csm); + CXSPARSE_NAME (d) *dm = CXSPARSE_NAME(_dmperm) (&csm); //retval(5) = put_int (dm->rr, 5); //retval(4) = put_int (dm->cc, 5); retval(3) = put_int (dm->S, dm->nb+1); retval(2) = put_int (dm->R, dm->nb+1); retval(1) = put_int (dm->Q, nc); retval(0) = put_int (dm->P, nr); - CSSPARSE_NAME (cs_dfree) (dm); + CXSPARSE_NAME (_dfree) (dm); } } #else