diff liboctave/sparse-base-chol.cc @ 10314:07ebe522dac2

untabify liboctave C++ sources
author John W. Eaton <jwe@octave.org>
date Thu, 11 Feb 2010 12:23:32 -0500
parents 4c0cdbe0acca
children fd0a3ac60b0e
line wrap: on
line diff
--- a/liboctave/sparse-base-chol.cc
+++ b/liboctave/sparse-base-chol.cc
@@ -60,18 +60,18 @@
       pend = Sp [k+1];
       Sp [k] = pdest;
       for (; p < pend; p++)
-	{
-	  sik = Sx [p];
-	  if (CHOLMOD_IS_NONZERO (sik))
-	    {
-	      if (p != pdest)
-		{
-		  Si [pdest] = Si [p];
-		  Sx [pdest] = sik;
-		}
-	      pdest++;
-	    }
-	}
+        {
+          sik = Sx [p];
+          if (CHOLMOD_IS_NONZERO (sik))
+            {
+              if (p != pdest)
+                {
+                  Si [pdest] = Si [p];
+                  Sx [pdest] = sik;
+                }
+              pdest++;
+            }
+        }
     }
   Sp [ncol] = pdest;
 }
@@ -90,7 +90,7 @@
   if (a_nr != a_nc)
     {
       (*current_liboctave_error_handler) 
-	("SparseCHOL requires square matrix");
+        ("SparseCHOL requires square matrix");
       return -1;
     }
 
@@ -183,26 +183,26 @@
       END_INTERRUPT_IMMEDIATELY_IN_FOREIGN_CODE;
 
       if (minor_p > 0 && minor_p < a_nr)
-	{
-	  size_t n1 = a_nr + 1;
-	  Lsparse->p = CHOLMOD_NAME(realloc) (minor_p+1,
-					      sizeof(octave_idx_type),
-					      Lsparse->p, &n1, cm);
-	  BEGIN_INTERRUPT_IMMEDIATELY_IN_FOREIGN_CODE;
-	  CHOLMOD_NAME(reallocate_sparse) 
-	    (static_cast<octave_idx_type *>(Lsparse->p)[minor_p], Lsparse, cm);
-	  END_INTERRUPT_IMMEDIATELY_IN_FOREIGN_CODE;
-	  Lsparse->ncol = minor_p;
-	}
+        {
+          size_t n1 = a_nr + 1;
+          Lsparse->p = CHOLMOD_NAME(realloc) (minor_p+1,
+                                              sizeof(octave_idx_type),
+                                              Lsparse->p, &n1, cm);
+          BEGIN_INTERRUPT_IMMEDIATELY_IN_FOREIGN_CODE;
+          CHOLMOD_NAME(reallocate_sparse) 
+            (static_cast<octave_idx_type *>(Lsparse->p)[minor_p], Lsparse, cm);
+          END_INTERRUPT_IMMEDIATELY_IN_FOREIGN_CODE;
+          Lsparse->ncol = minor_p;
+        }
 
       drop_zeros (Lsparse);
 
       if (! natural)
-	{
-	  perms.resize (a_nr);
-	  for (octave_idx_type i = 0; i < a_nr; i++)
-	    perms(i) = static_cast<octave_idx_type *>(Lfactor->Perm)[i];
-	}
+        {
+          perms.resize (a_nr);
+          for (octave_idx_type i = 0; i < a_nr; i++)
+            perms(i) = static_cast<octave_idx_type *>(Lfactor->Perm)[i];
+        }
 
       static char tmp[] = " ";