Mercurial > octave-nkf

comparison liboctave/dbleGEPBAL.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 (dggbal, DGGBAL) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type& N, 39 F77_FUNC (dggbal, DGGBAL) (F77_CONST_CHAR_ARG_DECL,
40 double* A, const octave_idx_type& LDA, double* B, 40 const octave_idx_type& N,
41 const octave_idx_type& LDB, octave_idx_type& ILO, octave_idx_type& IHI, 41 double* A, const octave_idx_type& LDA,
42 double* B, const octave_idx_type& LDB,
43 octave_idx_type& ILO, octave_idx_type& IHI,
42 double* LSCALE, double* RSCALE, 44 double* LSCALE, double* RSCALE,
43 double* WORK, octave_idx_type& INFO 45 double* 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 (dggbak, DGGBAK) (F77_CONST_CHAR_ARG_DECL, 49 F77_FUNC (dggbak, DGGBAK) (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 double* LSCALE, 52 const octave_idx_type& ILO,
51 const double* RSCALE, octave_idx_type& M, double* V, 53 const octave_idx_type& IHI,
54 const double* LSCALE, const double* RSCALE,
55 octave_idx_type& M, double* 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 }