Mercurial > hg > octave-lyh

comparison src/ov-cx-mat.cc @ 5450:6b42c78c77d3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-09-15 15:36:26 by jwe]
author jwe
date Thu, 15 Sep 2005 15:36:26 +0000
parents 4c8a2e4e0717
children ce79d238f142
comparison
equal deleted inserted replaced
5449:7332a98b6de7 5450:6b42c78c77d3
72 72
73 if (nr == 1 && nc == 1) 73 if (nr == 1 && nc == 1)
74 { 74 {
75 Complex c = matrix (0, 0); 75 Complex c = matrix (0, 0);
76 76
77 if (std::imag (c) == 0.0) 77 double im = std::imag (c);
78
79 if (im == 0.0 && ! lo_ieee_signbit (im))
78 retval = new octave_scalar (std::real (c)); 80 retval = new octave_scalar (std::real (c));
79 else 81 else
80 retval = new octave_complex (c); 82 retval = new octave_complex (c);
81 } 83 }
82 else if (nr == 0 || nc == 0) 84 else if (nr == 0 || nc == 0)