diff liboctave/Array2-idx.h @ 2245:aaeccf9e1d32

[project @ 1996-05-22 05:21:16 by jwe]
author jwe
date Wed, 22 May 1996 05:21:20 +0000
parents 320f5463c201
children 58e5955495d7
line wrap: on
line diff
--- a/liboctave/Array2-idx.h
+++ b/liboctave/Array2-idx.h
@@ -208,13 +208,23 @@
 		resize (0, 0);
 	      else
 		{
-		  int new_nc = nc - num_to_delete;
+		  int new_nc = nc;
+
+		  int idx = 0;
+
+		  for (int j = 0; j < nc; j++)
+		    if (j == idx_j.elem (idx))
+		      {
+			idx++;
+			new_nc--;
+		      }
+
 		  if (new_nc > 0)
 		    {
 		      T *new_data = new T [nr * new_nc];
 
 		      int jj = 0;
-		      int idx = 0;
+		      idx = 0;
 		      for (int j = 0; j < nc; j++)
 			{
 			  if (j == idx_j.elem (idx))
@@ -257,13 +267,23 @@
 		resize (0, 0);
 	      else 
 		{
-		  int new_nr = nr - num_to_delete;
+		  int new_nr = nr;
+
+		  int idx = 0;
+
+		  for (int i = 0; i < nr; i++)
+		    if (i == idx_i.elem (idx))
+		      {
+			idx++;
+			new_nr--;
+		      }
+
 		  if (new_nr > 0)
 		    {
 		      T *new_data = new T [new_nr * nc];
 
 		      int ii = 0;
-		      int idx = 0;
+		      idx = 0;
 		      for (int i = 0; i < nr; i++)
 			{
 			  if (i == idx_i.elem (idx))