Mercurial > hg > octave-nkf

comparison src/ov-cx-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
419 if (swap) 419 if (swap)
420 swap_bytes<4> (&di); 420 swap_bytes<4> (&di);
421 dv(i) = di; 421 dv(i) = di;
422 } 422 }
423 423
424 // Convert an array with a single dimension to be a row vector.
425 // Octave should never write files like this, other software
426 // might.
427
428 if (mdims == 1)
429 {
430 mdims = 2;
431 dv.resize (mdims);
432 dv(1) = dv(0);
433 dv(0) = 1;
434 }
435
424 if (! is.read (X_CAST (char *, &tmp), 1)) 436 if (! is.read (X_CAST (char *, &tmp), 1))
425 return false; 437 return false;
426 438
427 ComplexNDArray m(dv); 439 ComplexNDArray m(dv);
428 Complex *im = m.fortran_vec (); 440 Complex *im = m.fortran_vec ();