Mercurial > octave-nkf

comparison liboctave/floatSVD.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 3ce0c530a9c9
children fd0a3ac60b0e
comparison
equal deleted inserted replaced
11494:a2c3c43af79e 11495:8a5e980da6aa
34 extern "C" 34 extern "C"
35 { 35 {
36 F77_RET_T 36 F77_RET_T
37 F77_FUNC (sgesvd, SGESVD) (F77_CONST_CHAR_ARG_DECL, 37 F77_FUNC (sgesvd, SGESVD) (F77_CONST_CHAR_ARG_DECL,
38 F77_CONST_CHAR_ARG_DECL, 38 F77_CONST_CHAR_ARG_DECL,
39 const octave_idx_type&, const octave_idx_type&, float*, 39 const octave_idx_type&, const octave_idx_type&,
40 const octave_idx_type&, float*, float*, 40 float*, const octave_idx_type&, float*,
41 const octave_idx_type&, float*, const octave_idx_type&, 41 float*, const octave_idx_type&, float*,
42 float*, const octave_idx_type&, octave_idx_type& 42 const octave_idx_type&, float*,
43 const octave_idx_type&, octave_idx_type&
43 F77_CHAR_ARG_LEN_DECL 44 F77_CHAR_ARG_LEN_DECL
44 F77_CHAR_ARG_LEN_DECL); 45 F77_CHAR_ARG_LEN_DECL);
45 46
46 F77_RET_T 47 F77_RET_T
47 F77_FUNC (sgesdd, SGESDD) (F77_CONST_CHAR_ARG_DECL, 48 F77_FUNC (sgesdd, SGESDD) (F77_CONST_CHAR_ARG_DECL,
48 const octave_idx_type&, const octave_idx_type&, float*, 49 const octave_idx_type&, const octave_idx_type&,
49 const octave_idx_type&, float*, float*, 50 float*, const octave_idx_type&, float*,
50 const octave_idx_type&, float*, const octave_idx_type&, 51 float*, const octave_idx_type&, float*,
51 float*, const octave_idx_type&, octave_idx_type *, octave_idx_type& 52 const octave_idx_type&, float*,
53 const octave_idx_type&, octave_idx_type *,
54 octave_idx_type&
52 F77_CHAR_ARG_LEN_DECL); 55 F77_CHAR_ARG_LEN_DECL);
53 } 56 }
54 57
55 FloatMatrix 58 FloatMatrix
56 FloatSVD::left_singular_matrix (void) const 59 FloatSVD::left_singular_matrix (void) const