Mercurial > hg > octave-nkf
diff liboctave/fColVector.cc @ 10314:07ebe522dac2
untabify liboctave C++ sources
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Thu, 11 Feb 2010 12:23:32 -0500 |
| parents | 4c0cdbe0acca |
| children | a0728e81ed25 |
line wrap: on
line diff
--- a/liboctave/fColVector.cc +++ b/liboctave/fColVector.cc @@ -42,11 +42,11 @@ { F77_RET_T F77_FUNC (sgemv, SGEMV) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const float&, - const float*, const octave_idx_type&, const float*, - const octave_idx_type&, const float&, float*, - const octave_idx_type& - F77_CHAR_ARG_LEN_DECL); + const octave_idx_type&, const octave_idx_type&, const float&, + const float*, const octave_idx_type&, const float*, + const octave_idx_type&, const float&, float*, + const octave_idx_type& + F77_CHAR_ARG_LEN_DECL); } // Column Vector class. @@ -82,7 +82,7 @@ make_unique (); for (octave_idx_type i = 0; i < a_len; i++) - xelem (r+i) = a.elem (i); + xelem (r+i) = a.elem (i); } return *this; @@ -98,7 +98,7 @@ make_unique (); for (octave_idx_type i = 0; i < len; i++) - xelem (i) = val; + xelem (i) = val; } return *this; @@ -122,7 +122,7 @@ make_unique (); for (octave_idx_type i = r1; i <= r2; i++) - xelem (i) = val; + xelem (i) = val; } return *this; @@ -242,17 +242,17 @@ else { if (nr == 0 || nc == 0) - retval.resize (nr, 0.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;