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