Mercurial > hg > octave-lyh

diff liboctave/fCmplxGEPBAL.cc @ 11495:8a5e980da6aa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
style fixes
author John W. Eaton <jwe@octave.org>
date Thu, 13 Jan 2011 02:09:02 -0500
parents 07ebe522dac2
children fd0a3ac60b0e
line wrap: on
line diff
--- a/liboctave/fCmplxGEPBAL.cc
+++ b/liboctave/fCmplxGEPBAL.cc
@@ -36,9 +36,11 @@
 extern "C"
 {
   F77_RET_T
-  F77_FUNC (cggbal, CGGBAL) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type& N,
-                             FloatComplex* A, const octave_idx_type& LDA, FloatComplex* B,
-                             const octave_idx_type& LDB, octave_idx_type& ILO, octave_idx_type& IHI,
+  F77_FUNC (cggbal, CGGBAL) (F77_CONST_CHAR_ARG_DECL,
+                             const octave_idx_type& N,
+                             FloatComplex* A, const octave_idx_type& LDA,
+                             FloatComplex* B, const octave_idx_type& LDB,
+                             octave_idx_type& ILO, octave_idx_type& IHI,
                              float* LSCALE, float* RSCALE,
                              float* WORK, octave_idx_type& INFO
                              F77_CHAR_ARG_LEN_DECL);
@@ -46,7 +48,8 @@
   F77_RET_T
   F77_FUNC (sggbak, SGGBAK) (F77_CONST_CHAR_ARG_DECL,
                              F77_CONST_CHAR_ARG_DECL,
-                             const octave_idx_type& N, const octave_idx_type& ILO,
+                             const octave_idx_type& N,
+                             const octave_idx_type& ILO,
                              const octave_idx_type& IHI, const float* LSCALE,
                              const float* RSCALE, octave_idx_type& M, float* V,
                              const octave_idx_type& LDV, octave_idx_type& INFO