Mercurial > octave-nkf

comparison liboctave/CmplxSVD.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
33 extern "C" 33 extern "C"
34 { 34 {
35 F77_RET_T 35 F77_RET_T
36 F77_FUNC (zgesvd, ZGESVD) (F77_CONST_CHAR_ARG_DECL, 36 F77_FUNC (zgesvd, ZGESVD) (F77_CONST_CHAR_ARG_DECL,
37 F77_CONST_CHAR_ARG_DECL, 37 F77_CONST_CHAR_ARG_DECL,
38 const octave_idx_type&, const octave_idx_type&, Complex*, 38 const octave_idx_type&, const octave_idx_type&,
39 const octave_idx_type&, double*, Complex*, const octave_idx_type&, 39 Complex*, const octave_idx_type&,
40 Complex*, const octave_idx_type&, Complex*, const octave_idx_type&, 40 double*, Complex*, const octave_idx_type&,
41 double*, octave_idx_type& 41 Complex*, const octave_idx_type&, Complex*,
42 const octave_idx_type&, double*, octave_idx_type&
42 F77_CHAR_ARG_LEN_DECL 43 F77_CHAR_ARG_LEN_DECL
43 F77_CHAR_ARG_LEN_DECL); 44 F77_CHAR_ARG_LEN_DECL);
44 45
45 F77_RET_T 46 F77_RET_T
46 F77_FUNC (zgesdd, ZGESDD) (F77_CONST_CHAR_ARG_DECL, 47 F77_FUNC (zgesdd, ZGESDD) (F77_CONST_CHAR_ARG_DECL,
47 const octave_idx_type&, const octave_idx_type&, Complex*, 48 const octave_idx_type&, const octave_idx_type&,
48 const octave_idx_type&, double*, Complex*, const octave_idx_type&, 49 Complex*, const octave_idx_type&,
49 Complex*, const octave_idx_type&, Complex*, const octave_idx_type&, 50 double*, Complex*, const octave_idx_type&,
50 double*, octave_idx_type *, octave_idx_type& 51 Complex*, const octave_idx_type&, Complex*,
52 const octave_idx_type&, double*,
53 octave_idx_type *, octave_idx_type&
51 F77_CHAR_ARG_LEN_DECL); 54 F77_CHAR_ARG_LEN_DECL);
52 } 55 }
53 56
54 ComplexMatrix 57 ComplexMatrix
55 ComplexSVD::left_singular_matrix (void) const 58 ComplexSVD::left_singular_matrix (void) const