Mercurial > octave-nkf

comparison liboctave/CmplxCHOL.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 12884915a8e4
children 141b3fb5cef7
comparison
equal deleted inserted replaced
11494:a2c3c43af79e 11495:8a5e980da6aa
56 double&, Complex*, double*, 56 double&, Complex*, double*,
57 octave_idx_type& F77_CHAR_ARG_LEN_DECL); 57 octave_idx_type& F77_CHAR_ARG_LEN_DECL);
58 #ifdef HAVE_QRUPDATE 58 #ifdef HAVE_QRUPDATE
59 59
60 F77_RET_T 60 F77_RET_T
61 F77_FUNC (zch1up, ZCH1UP) (const octave_idx_type&, Complex*, const octave_idx_type&, 61 F77_FUNC (zch1up, ZCH1UP) (const octave_idx_type&, Complex*,
62 Complex*, double*); 62 const octave_idx_type&, Complex*, double*);
63 63
64 F77_RET_T 64 F77_RET_T
65 F77_FUNC (zch1dn, ZCH1DN) (const octave_idx_type&, Complex*, const octave_idx_type&, 65 F77_FUNC (zch1dn, ZCH1DN) (const octave_idx_type&, Complex*,
66 const octave_idx_type&, Complex*, double*,
67 octave_idx_type&);
68
69 F77_RET_T
70 F77_FUNC (zchinx, ZCHINX) (const octave_idx_type&, Complex*,
71 const octave_idx_type&, const octave_idx_type&,
66 Complex*, double*, octave_idx_type&); 72 Complex*, double*, octave_idx_type&);
67 73
68 F77_RET_T 74 F77_RET_T
69 F77_FUNC (zchinx, ZCHINX) (const octave_idx_type&, Complex*, const octave_idx_type&, 75 F77_FUNC (zchdex, ZCHDEX) (const octave_idx_type&, Complex*,
70 const octave_idx_type&, Complex*, double*, 76 const octave_idx_type&, const octave_idx_type&,
71 octave_idx_type&); 77 double*);
72 78
73 F77_RET_T 79 F77_RET_T
74 F77_FUNC (zchdex, ZCHDEX) (const octave_idx_type&, Complex*, const octave_idx_type&, 80 F77_FUNC (zchshx, ZCHSHX) (const octave_idx_type&, Complex*,
75 const octave_idx_type&, double*); 81 const octave_idx_type&, const octave_idx_type&,
76 82 const octave_idx_type&, Complex*, double*);
77 F77_RET_T
78 F77_FUNC (zchshx, ZCHSHX) (const octave_idx_type&, Complex*, const octave_idx_type&,
79 const octave_idx_type&, const octave_idx_type&,
80 Complex*, double*);
81 #endif 83 #endif
82 } 84 }
83 85
84 octave_idx_type 86 octave_idx_type
85 ComplexCHOL::init (const ComplexMatrix& a, bool calc_cond) 87 ComplexCHOL::init (const ComplexMatrix& a, bool calc_cond)