Mercurial > octave
diff src/DLD-FUNCTIONS/qz.cc @ 11586:12df7854fa7c
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 | 1577c6f80926 |
line wrap: on
line diff
--- a/src/DLD-FUNCTIONS/qz.cc Thu Jan 20 17:21:27 2011 -0500 +++ b/src/DLD-FUNCTIONS/qz.cc Thu Jan 20 17:24:59 2011 -0500 @@ -82,7 +82,7 @@ octave_idx_type& IHI, double* LSCALE, double* RSCALE, double* WORK, octave_idx_type& INFO - F77_CHAR_ARG_LEN_DECL); + F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (dggbak, DGGBAK) (F77_CONST_CHAR_ARG_DECL, @@ -162,8 +162,8 @@ Complex* A, const octave_idx_type& LDA, Complex* B, const octave_idx_type& LDB, Complex* ALPHA, Complex* BETA, Complex* CQ, - const octave_idx_type& LDQ, - Complex* CZ, const octave_idx_type& LDZ, + const octave_idx_type& LDQ, + Complex* CZ, const octave_idx_type& LDZ, Complex* WORK, const octave_idx_type& LWORK, double* RWORK, octave_idx_type& INFO F77_CHAR_ARG_LEN_DECL @@ -624,7 +624,7 @@ #endif static char qz_job; - qz_job = (nargout < 2 ? 'E' : 'S'); + qz_job = (nargout < 2 ? 'E' : 'S'); if (complex_case) { @@ -647,24 +647,24 @@ F77_CHAR_ARG_LEN (1) F77_CHAR_ARG_LEN (1))); - ComplexRowVector cwork (1 * nn); + ComplexRowVector cwork (1 * nn); F77_XFCN (zhgeqz, ZHGEQZ, (F77_CONST_CHAR_ARG2 (&qz_job, 1), F77_CONST_CHAR_ARG2 (&compq, 1), F77_CONST_CHAR_ARG2 (&compz, 1), - nn, ilo, ihi, - caa.fortran_vec (), nn, - cbb.fortran_vec (),nn, - xalpha.fortran_vec (), xbeta.fortran_vec (), + nn, ilo, ihi, + caa.fortran_vec (), nn, + cbb.fortran_vec (),nn, + xalpha.fortran_vec (), xbeta.fortran_vec (), CQ.fortran_vec (), nn, - CZ.fortran_vec (), nn, + CZ.fortran_vec (), nn, cwork.fortran_vec (), nn, rwork.fortran_vec (), info F77_CHAR_ARG_LEN (1) F77_CHAR_ARG_LEN (1) - F77_CHAR_ARG_LEN (1))); + F77_CHAR_ARG_LEN (1))); - if (compq == 'V') + if (compq == 'V') { // Left eigenvector. F77_XFCN (zggbak, ZGGBAK, @@ -674,7 +674,7 @@ nn, CQ.fortran_vec (), nn, info F77_CHAR_ARG_LEN (1) F77_CHAR_ARG_LEN (1))); - } + } // Right eigenvector. if (compz == 'V') @@ -686,7 +686,7 @@ nn, CZ.fortran_vec (), nn, info F77_CHAR_ARG_LEN (1) F77_CHAR_ARG_LEN (1))); - } + } } else @@ -1072,7 +1072,7 @@ nn, CVL.fortran_vec (), nn, CVR.fortran_vec (), nn, nn, m, cwork2.fortran_vec (), rwork2.fortran_vec (), info F77_CHAR_ARG_LEN (1) - F77_CHAR_ARG_LEN (1))); + F77_CHAR_ARG_LEN (1))); } else { @@ -1197,7 +1197,7 @@ std::cout << std::endl << "qz: retval(0) = caa = " <<std::endl; octave_print_internal (std::cout, caa, 0); std::cout << std::endl; -#endif +#endif retval(1) = cbb; retval(0) = caa; } @@ -1213,7 +1213,7 @@ retval(1) = bb; retval(0) = aa; } - } + } break;