Mercurial > jwe > octave
diff liboctave/array/fColVector.cc @ 21120:499b851fbfae
Replace pattern if/err_XXX/else/code with if/err_XXX/ code.
* schur.cc, ov-complex.h, ov-cx-mat.cc, ov-cx-sparse.cc, ov-float.h,
ov-flt-complex.h, ov-flt-cx-mat.cc, ov-flt-re-mat.cc, ov-range.cc,
ov-re-mat.cc, ov-re-sparse.cc, ov-scalar.h, ov-str-mat.cc, ops.h, pt-idx.cc,
Array.cc, CColVector.cc, CMatrix.cc, CRowVector.cc, MSparse.cc, PermMatrix.cc,
Sparse.cc, dColVector.cc, dMatrix.cc, dRowVector.cc, dSparse.cc,
fCColVector.cc, fCMatrix.cc, fCRowVector.cc, fColVector.cc, fMatrix.cc,
fRowVector.cc:
Replace pattern if/err_XXX/else/code with if/err_XXX/ code.
author | Rik <rik@octave.org> |
---|---|
date | Wed, 20 Jan 2016 16:58:59 -0800 |
parents | e39e05d90788 |
children | 7cac4e7458f2 |
line wrap: on
line diff
--- a/liboctave/array/fColVector.cc Wed Jan 20 16:10:23 2016 -0800 +++ b/liboctave/array/fColVector.cc Wed Jan 20 16:58:59 2016 -0800 @@ -205,23 +205,21 @@ if (nc != a_len) err_nonconformant ("operator *", nr, nc, a_len, 1); - else + + retval.clear (nr); + + if (nr != 0) { - retval.clear (nr); - - if (nr != 0) + if (nc == 0) + retval.fill (0.0); + else { - if (nc == 0) - retval.fill (0.0); - else - { - float *y = retval.fortran_vec (); + float *y = retval.fortran_vec (); - F77_XFCN (sgemv, SGEMV, (F77_CONST_CHAR_ARG2 ("N", 1), - nr, nc, 1.0f, m.data (), nr, - a.data (), 1, 0.0f, y, 1 - F77_CHAR_ARG_LEN (1))); - } + F77_XFCN (sgemv, SGEMV, (F77_CONST_CHAR_ARG2 ("N", 1), + nr, nc, 1.0f, m.data (), nr, + a.data (), 1, 0.0f, y, 1 + F77_CHAR_ARG_LEN (1))); } } @@ -242,20 +240,18 @@ if (nc != a_len) err_nonconformant ("operator *", nr, nc, a_len, 1); + + if (nr == 0 || nc == 0) + retval.resize (nr, 0.0); else { - if (nr == 0 || nc == 0) - retval.resize (nr, 0.0); - else - { - retval.resize (nr); + retval.resize (nr); - for (octave_idx_type i = 0; i < a_len; i++) - retval.elem (i) = a.elem (i) * m.elem (i, i); + for (octave_idx_type i = 0; i < a_len; i++) + retval.elem (i) = a.elem (i) * m.elem (i, i); - for (octave_idx_type i = a_len; i < nr; i++) - retval.elem (i) = 0.0; - } + for (octave_idx_type i = a_len; i < nr; i++) + retval.elem (i) = 0.0; } return retval;