Mercurial > hg > octave-lyh
diff liboctave/fCRowVector.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 | 12884915a8e4 |
line wrap: on
line diff
--- a/liboctave/fCRowVector.cc +++ b/liboctave/fCRowVector.cc @@ -42,14 +42,14 @@ { F77_RET_T F77_FUNC (cgemv, CGEMV) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const FloatComplex&, - const FloatComplex*, const octave_idx_type&, const FloatComplex*, - const octave_idx_type&, const FloatComplex&, FloatComplex*, const octave_idx_type& - F77_CHAR_ARG_LEN_DECL); + const octave_idx_type&, const octave_idx_type&, const FloatComplex&, + const FloatComplex*, const octave_idx_type&, const FloatComplex*, + const octave_idx_type&, const FloatComplex&, FloatComplex*, const octave_idx_type& + F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (xcdotu, XCDOTU) (const octave_idx_type&, const FloatComplex*, const octave_idx_type&, - const FloatComplex*, const octave_idx_type&, FloatComplex&); + const FloatComplex*, const octave_idx_type&, FloatComplex&); } // FloatComplex Row Vector class @@ -94,7 +94,7 @@ make_unique (); for (octave_idx_type i = 0; i < a_len; i++) - xelem (c+i) = a.elem (i); + xelem (c+i) = a.elem (i); } return *this; @@ -116,7 +116,7 @@ make_unique (); for (octave_idx_type i = 0; i < a_len; i++) - xelem (c+i) = a.elem (i); + xelem (c+i) = a.elem (i); } return *this; @@ -132,7 +132,7 @@ make_unique (); for (octave_idx_type i = 0; i < len; i++) - xelem (i) = val; + xelem (i) = val; } return *this; @@ -148,7 +148,7 @@ make_unique (); for (octave_idx_type i = 0; i < len; i++) - xelem (i) = val; + xelem (i) = val; } return *this; @@ -172,7 +172,7 @@ make_unique (); for (octave_idx_type i = c1; i <= c2; i++) - xelem (i) = val; + xelem (i) = val; } return *this; @@ -196,7 +196,7 @@ make_unique (); for (octave_idx_type i = c1; i <= c2; i++) - xelem (i) = val; + xelem (i) = val; } return *this; @@ -337,21 +337,21 @@ else { if (len == 0) - retval.resize (a_nc, 0.0); + retval.resize (a_nc, 0.0); else - { - // Transpose A to form A'*x == (x'*A)' + { + // Transpose A to form A'*x == (x'*A)' - octave_idx_type ld = a_nr; + octave_idx_type ld = a_nr; - retval.resize (a_nc); - FloatComplex *y = retval.fortran_vec (); + retval.resize (a_nc); + FloatComplex *y = retval.fortran_vec (); - F77_XFCN (cgemv, CGEMV, (F77_CONST_CHAR_ARG2 ("T", 1), - a_nr, a_nc, 1.0, a.data (), - ld, v.data (), 1, 0.0, y, 1 - F77_CHAR_ARG_LEN (1))); - } + F77_XFCN (cgemv, CGEMV, (F77_CONST_CHAR_ARG2 ("T", 1), + a_nr, a_nc, 1.0, a.data (), + ld, v.data (), 1, 0.0, y, 1 + F77_CHAR_ARG_LEN (1))); + } } return retval; @@ -379,8 +379,8 @@ for (octave_idx_type i = 1; i < len; i++) if (std::abs (elem (i)) < absres) { - res = elem (i); - absres = std::abs (res); + res = elem (i); + absres = std::abs (res); } return res; @@ -399,8 +399,8 @@ for (octave_idx_type i = 1; i < len; i++) if (std::abs (elem (i)) > absres) { - res = elem (i); - absres = std::abs (res); + res = elem (i); + absres = std::abs (res); } return res;