diff src/oct-stream.cc @ 2687:3e611118ce15

[project @ 1997-02-14 23:37:36 by jwe]
author jwe
date Fri, 14 Feb 1997 23:37:37 +0000
parents 00b2eff19bf5
children 2ff2b536cc9d
line wrap: on
line diff
--- a/src/oct-stream.cc	Fri Feb 14 22:31:39 1997 +0000
+++ b/src/oct-stream.cc	Fri Feb 14 23:37:37 1997 +0000
@@ -961,12 +961,30 @@
 	{
 	  if (elt)
 	    {
-	      if (nr > 0 && nc > 0 && count == max_size)
+	      if (count == max_size)
 		{
-		  final_nr = nr;
-		  final_nc = nc;
-
-		  break;
+		  if (nr > 0)
+		    {
+		      if (nc > 0)
+			{
+			  final_nr = nr;
+			  final_nc = nc;
+
+			  break;
+			}
+		      else
+			{
+			  max_size *= 2;
+			  mval.resize (nr, max_size / nr, 0.0);
+			  data = mval.fortran_vec ();
+			}
+		    }
+		  else
+		    {
+		      max_size *=2;
+		      mval.resize (max_size, 1, 0.0);
+		      data = mval.fortran_vec ();
+		    }
 		}
 
 	      const char *fmt = elt->text;