diff src/DLD-FUNCTIONS/dmperm.cc @ 10154:40dfc0c99116

DLD-FUNCTIONS/*.cc: untabify
author John W. Eaton <jwe@octave.org>
date Wed, 20 Jan 2010 17:33:41 -0500
parents 7c02ec148a3c
children d0ce5e973937
line wrap: on
line diff
--- a/src/DLD-FUNCTIONS/dmperm.cc	Wed Jan 20 17:24:23 2010 -0500
+++ b/src/DLD-FUNCTIONS/dmperm.cc	Wed Jan 20 17:33:41 2010 -0500
@@ -85,47 +85,47 @@
   if (!error_state)
     {
       if (nargout <= 1 || rank)
-	{
+        {
 #if defined(CS_VER) && (CS_VER >= 2)
-	  octave_idx_type *jmatch = CXSPARSE_NAME (_maxtrans) (&csm, 0);
+          octave_idx_type *jmatch = CXSPARSE_NAME (_maxtrans) (&csm, 0);
 #else
-	  octave_idx_type *jmatch = CXSPARSE_NAME (_maxtrans) (&csm);
+          octave_idx_type *jmatch = CXSPARSE_NAME (_maxtrans) (&csm);
 #endif
-	  if (rank)
-	    {
-	      octave_idx_type r = 0;
-	      for (octave_idx_type i = 0; i < nc; i++)
-		if (jmatch[nr+i] >= 0)
-		  r++;
-	      retval(0) = static_cast<double>(r);
-	    }
-	  else
-	    retval(0) = put_int (jmatch + nr, nc);
-	  CXSPARSE_NAME (_free) (jmatch);
-	}
+          if (rank)
+            {
+              octave_idx_type r = 0;
+              for (octave_idx_type i = 0; i < nc; i++)
+                if (jmatch[nr+i] >= 0)
+                  r++;
+              retval(0) = static_cast<double>(r);
+            }
+          else
+            retval(0) = put_int (jmatch + nr, nc);
+          CXSPARSE_NAME (_free) (jmatch);
+        }
       else
-	{
+        {
 #if defined(CS_VER) && (CS_VER >= 2)
-	  CXSPARSE_NAME (d) *dm = CXSPARSE_NAME(_dmperm) (&csm, 0);
+          CXSPARSE_NAME (d) *dm = CXSPARSE_NAME(_dmperm) (&csm, 0);
 #else
-	  CXSPARSE_NAME (d) *dm = CXSPARSE_NAME(_dmperm) (&csm);
+          CXSPARSE_NAME (d) *dm = CXSPARSE_NAME(_dmperm) (&csm);
 #endif
 
-	  //retval(5) = put_int (dm->rr, 5);
-	  //retval(4) = put_int (dm->cc, 5);
+          //retval(5) = put_int (dm->rr, 5);
+          //retval(4) = put_int (dm->cc, 5);
 #if defined(CS_VER) && (CS_VER >= 2)
-	  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);
+          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);
 #else
-	  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);
+          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);
 #endif
-	  CXSPARSE_NAME (_dfree) (dm);
-	}
+          CXSPARSE_NAME (_dfree) (dm);
+        }
     }
   return retval;
 }