Mercurial > octave-nkf
diff liboctave/floatGEPBAL.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/floatGEPBAL.cc Wed Jan 12 22:09:57 2011 +0100 +++ b/liboctave/floatGEPBAL.cc Thu Jan 13 02:09:02 2011 -0500 @@ -36,9 +36,11 @@ extern "C" { F77_RET_T - F77_FUNC (sggbal, SGGBAL) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type& N, - float* A, const octave_idx_type& LDA, float* B, - const octave_idx_type& LDB, octave_idx_type& ILO, octave_idx_type& IHI, + F77_FUNC (sggbal, SGGBAL) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type& N, float* A, + const octave_idx_type& LDA, float* 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,9 +48,11 @@ 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& IHI, const float* LSCALE, - const float* RSCALE, octave_idx_type& M, float* V, + 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 F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL);