Mercurial > hg > octave-lyh

comparison liboctave/fCmplxSCHUR.cc @ 11586:12df7854fa7c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
strip trailing whitespace from source files
author John W. Eaton <jwe@octave.org>
date Thu, 20 Jan 2011 17:24:59 -0500
parents 57632dea2446
children 72c96de7a403
comparison
equal deleted inserted replaced
11585:1473d0cf86d2 11586:12df7854fa7c
61 { 61 {
62 return (abs (a) < 1.0); 62 return (abs (a) < 1.0);
63 } 63 }
64 64
65 octave_idx_type 65 octave_idx_type
66 FloatComplexSCHUR::init (const FloatComplexMatrix& a, const std::string& ord, 66 FloatComplexSCHUR::init (const FloatComplexMatrix& a, const std::string& ord,
67 bool calc_unitary) 67 bool calc_unitary)
68 { 68 {
69 octave_idx_type a_nr = a.rows (); 69 octave_idx_type a_nr = a.rows ();
70 octave_idx_type a_nc = a.cols (); 70 octave_idx_type a_nc = a.cols ();
71 71
145 F77_CHAR_ARG_LEN (1))); 145 F77_CHAR_ARG_LEN (1)));
146 146
147 return info; 147 return info;
148 } 148 }
149 149
150 FloatComplexSCHUR::FloatComplexSCHUR (const FloatComplexMatrix& s, 150 FloatComplexSCHUR::FloatComplexSCHUR (const FloatComplexMatrix& s,
151 const FloatComplexMatrix& u) 151 const FloatComplexMatrix& u)
152 : schur_mat (s), unitary_mat (u), selector (0) 152 : schur_mat (s), unitary_mat (u), selector (0)
153 { 153 {
154 octave_idx_type n = s.rows (); 154 octave_idx_type n = s.rows ();
155 if (s.columns () != n || u.rows () != n || u.columns () != n) 155 if (s.columns () != n || u.rows () != n || u.columns () != n)