# HG changeset patch
# User jwe
# Date 831883555 0
# Node ID bc6ecd8f117593d22133e533213585ec4cc12495
# Parent  6b3a4558a9358e3d8c32178910217cbe84ddb38c
[project @ 1996-05-12 06:45:55 by jwe]

diff -r 6b3a4558a935 -r bc6ecd8f1175 src/oct-stream.cc
--- a/src/oct-stream.cc	Sun May 12 04:30:59 1996 +0000
+++ b/src/oct-stream.cc	Sun May 12 06:45:55 1996 +0000
@@ -855,7 +855,7 @@
 	{
 	  mval.resize (nr, 32, 0.0);
 	  data = mval.fortran_vec ();
-	  max_size = nr * nc;
+	  max_size = nr * 32;
 	}
     }
   else
@@ -1000,7 +1000,7 @@
 
   if (ok ())
     {
-      mval.resize (final_nr, final_nc);
+      mval.resize (final_nr, final_nc, 0.0);
 
       retval = mval;
     }
@@ -1048,7 +1048,7 @@
 	      max_size *= 2; \
  \
 	      if (nr > 0) \
-		mval.resize (nr, max_size / 2, 0.0); \
+		mval.resize (nr, max_size / nr, 0.0); \
 	      else \
 		mval.resize (max_size, 1, 0.0); \
  \
@@ -1065,6 +1065,8 @@
 octave_base_stream::do_scanf (scanf_format_list& fmt_list,
 			      int nr, int nc, int& count)
 {
+  count = 0;
+
   octave_value retval = Matrix ();
 
   istream *isp = input_stream ();
@@ -1090,7 +1092,7 @@
 	{
 	  mval.resize (nr, 32, 0.0);
 	  data = mval.fortran_vec ();
-	  max_size = nr * nc;
+	  max_size = nr * 32;
 	}
     }
   else
@@ -1239,7 +1241,7 @@
 
   if (ok ())
     {
-      mval.resize (final_nr, final_nc);
+      mval.resize (final_nr, final_nc, 0.0);
 
       if (all_char_conv)
 	{