Mercurial > octave-nkf

comparison liboctave/floatGEPBAL.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
comparison
equal deleted inserted replaced
11494:a2c3c43af79e 11495:8a5e980da6aa
34 #include "oct-locbuf.h" 34 #include "oct-locbuf.h"
35 35
36 extern "C" 36 extern "C"
37 { 37 {
38 F77_RET_T 38 F77_RET_T
39 F77_FUNC (sggbal, SGGBAL) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type& N, 39 F77_FUNC (sggbal, SGGBAL) (F77_CONST_CHAR_ARG_DECL,
40 float* A, const octave_idx_type& LDA, float* B, 40 const octave_idx_type& N, float* A,
41 const octave_idx_type& LDB, octave_idx_type& ILO, octave_idx_type& IHI, 41 const octave_idx_type& LDA, float* B,
42 const octave_idx_type& LDB,
43 octave_idx_type& ILO, octave_idx_type& IHI,
42 float* LSCALE, float* RSCALE, 44 float* LSCALE, float* RSCALE,
43 float* WORK, octave_idx_type& INFO 45 float* WORK, octave_idx_type& INFO
44 F77_CHAR_ARG_LEN_DECL); 46 F77_CHAR_ARG_LEN_DECL);
45 47
46 F77_RET_T 48 F77_RET_T
47 F77_FUNC (sggbak, SGGBAK) (F77_CONST_CHAR_ARG_DECL, 49 F77_FUNC (sggbak, SGGBAK) (F77_CONST_CHAR_ARG_DECL,
48 F77_CONST_CHAR_ARG_DECL, 50 F77_CONST_CHAR_ARG_DECL,
49 const octave_idx_type& N, const octave_idx_type& ILO, 51 const octave_idx_type& N,
50 const octave_idx_type& IHI, const float* LSCALE, 52 const octave_idx_type& ILO,
51 const float* RSCALE, octave_idx_type& M, float* V, 53 const octave_idx_type& IHI,
54 const float* LSCALE, const float* RSCALE,
55 octave_idx_type& M, float* V,
52 const octave_idx_type& LDV, octave_idx_type& INFO 56 const octave_idx_type& LDV, octave_idx_type& INFO
53 F77_CHAR_ARG_LEN_DECL 57 F77_CHAR_ARG_LEN_DECL
54 F77_CHAR_ARG_LEN_DECL); 58 F77_CHAR_ARG_LEN_DECL);
55 59
56 } 60 }