Mercurial > hg > octave-nkf
diff liboctave/dbleGEPBAL.cc @ 11495:8a5e980da6aa
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/dbleGEPBAL.cc +++ b/liboctave/dbleGEPBAL.cc @@ -36,9 +36,11 @@ extern "C" { F77_RET_T - F77_FUNC (dggbal, DGGBAL) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type& N, - double* A, const octave_idx_type& LDA, double* B, - const octave_idx_type& LDB, octave_idx_type& ILO, octave_idx_type& IHI, + F77_FUNC (dggbal, DGGBAL) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type& N, + double* A, const octave_idx_type& LDA, + double* B, const octave_idx_type& LDB, + octave_idx_type& ILO, octave_idx_type& IHI, double* LSCALE, double* RSCALE, double* WORK, octave_idx_type& INFO F77_CHAR_ARG_LEN_DECL); @@ -46,9 +48,11 @@ F77_RET_T F77_FUNC (dggbak, DGGBAK) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type& N, const octave_idx_type& ILO, - const octave_idx_type& IHI, const double* LSCALE, - const double* RSCALE, octave_idx_type& M, double* V, + const octave_idx_type& N, + const octave_idx_type& ILO, + const octave_idx_type& IHI, + const double* LSCALE, const double* RSCALE, + octave_idx_type& M, double* V, const octave_idx_type& LDV, octave_idx_type& INFO F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL);