Mercurial > octave-nkf

comparison src/ov-re-mat.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 57077d0ddc8e
comparison
equal deleted inserted replaced
5156:7c3b22bafedc 5157:8ca032643f55
473 if (swap) 473 if (swap)
474 swap_bytes<4> (&di); 474 swap_bytes<4> (&di);
475 dv(i) = di; 475 dv(i) = di;
476 } 476 }
477 477
478 // Convert an array with a single dimension to be a row vector.
479 // Octave should never write files like this, other software
480 // might.
481
482 if (mdims == 1)
483 {
484 mdims = 2;
485 dv.resize (mdims);
486 dv(1) = dv(0);
487 dv(0) = 1;
488 }
489
478 if (! is.read (X_CAST (char *, &tmp), 1)) 490 if (! is.read (X_CAST (char *, &tmp), 1))
479 return false; 491 return false;
480 492
481 NDArray m(dv); 493 NDArray m(dv);
482 double *re = m.fortran_vec (); 494 double *re = m.fortran_vec ();