Mercurial > hg > octave-lyh

comparison liboctave/CmplxSCHUR.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 23d2378512a0
children 367bfee35ba0
comparison
equal deleted inserted replaced
11494:a2c3c43af79e 11495:8a5e980da6aa
35 F77_RET_T 35 F77_RET_T
36 F77_FUNC (zgeesx, ZGEESX) (F77_CONST_CHAR_ARG_DECL, 36 F77_FUNC (zgeesx, ZGEESX) (F77_CONST_CHAR_ARG_DECL,
37 F77_CONST_CHAR_ARG_DECL, 37 F77_CONST_CHAR_ARG_DECL,
38 ComplexSCHUR::select_function, 38 ComplexSCHUR::select_function,
39 F77_CONST_CHAR_ARG_DECL, 39 F77_CONST_CHAR_ARG_DECL,
40 const octave_idx_type&, Complex*, const octave_idx_type&, octave_idx_type&, 40 const octave_idx_type&, Complex*,
41 Complex*, Complex*, const octave_idx_type&, double&, 41 const octave_idx_type&, octave_idx_type&,
42 double&, Complex*, const octave_idx_type&, double*, octave_idx_type*, 42 Complex*, Complex*, const octave_idx_type&,
43 octave_idx_type& 43 double&, double&, Complex*,
44 const octave_idx_type&, double*,
45 octave_idx_type*, octave_idx_type&
44 F77_CHAR_ARG_LEN_DECL 46 F77_CHAR_ARG_LEN_DECL
45 F77_CHAR_ARG_LEN_DECL 47 F77_CHAR_ARG_LEN_DECL
46 F77_CHAR_ARG_LEN_DECL); 48 F77_CHAR_ARG_LEN_DECL);
49
47 F77_RET_T 50 F77_RET_T
48 F77_FUNC (zrsf2csf, ZRSF2CSF) (const octave_idx_type&, 51 F77_FUNC (zrsf2csf, ZRSF2CSF) (const octave_idx_type&, Complex *,
49 Complex *, Complex *, double *, double *); 52 Complex *, double *, double *);
50 } 53 }
51 54
52 static octave_idx_type 55 static octave_idx_type
53 select_ana (const Complex& a) 56 select_ana (const Complex& a)
54 { 57 {