Mercurial > octave-nkf

diff src/ov-base-int.cc @ 5157:8ca032643f55

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-02-23 00:18:58 by jwe]
author jwe
date Wed, 23 Feb 2005 00:18:58 +0000
parents e35b034d3523
children 4c8a2e4e0717
line wrap: on
line diff
--- a/src/ov-base-int.cc	Tue Feb 22 17:42:16 2005 +0000
+++ b/src/ov-base-int.cc	Wed Feb 23 00:18:58 2005 +0000
@@ -173,6 +173,18 @@
       dv(i) = di;
     }
 
+  // Convert an array with a single dimension to be a row vector.
+  // Octave should never write files like this, other software
+  // might.
+
+  if (mdims == 1)
+    {
+      mdims = 2;
+      dv.resize (mdims);
+      dv(1) = dv(0);
+      dv(0) = 1;
+    }
+
   T m (dv);
 
   if (! is.read (X_CAST (char *, m.data ()), m.byte_size ()))