Mercurial > hg > octave-lyh

comparison liboctave/fCmplxCHOL.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
41 41
42 extern "C" 42 extern "C"
43 { 43 {
44 F77_RET_T 44 F77_RET_T
45 F77_FUNC (cpotrf, CPOTRF) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 45 F77_FUNC (cpotrf, CPOTRF) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&,
46 FloatComplex*, const octave_idx_type&, octave_idx_type& 46 FloatComplex*, const octave_idx_type&,
47 F77_CHAR_ARG_LEN_DECL); 47 octave_idx_type& F77_CHAR_ARG_LEN_DECL);
48 F77_RET_T 48 F77_RET_T
49 F77_FUNC (cpotri, CPOTRI) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 49 F77_FUNC (cpotri, CPOTRI) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&,
50 FloatComplex*, const octave_idx_type&, octave_idx_type& 50 FloatComplex*, const octave_idx_type&,
51 F77_CHAR_ARG_LEN_DECL); 51 octave_idx_type& F77_CHAR_ARG_LEN_DECL);
52 52
53 F77_RET_T 53 F77_RET_T
54 F77_FUNC (cpocon, CPOCON) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 54 F77_FUNC (cpocon, CPOCON) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&,
55 FloatComplex*, const octave_idx_type&, const float&, 55 FloatComplex*, const octave_idx_type&,
56 float&, FloatComplex*, float*, 56 const float&, float&, FloatComplex*, float*,
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 (cch1up, CCH1UP) (const octave_idx_type&, FloatComplex*, const octave_idx_type&, 61 F77_FUNC (cch1up, CCH1UP) (const octave_idx_type&, FloatComplex*,
62 FloatComplex*, float*); 62 const octave_idx_type&, FloatComplex*, float*);
63 63
64 F77_RET_T 64 F77_RET_T
65 F77_FUNC (cch1dn, CCH1DN) (const octave_idx_type&, FloatComplex*, const octave_idx_type&, 65 F77_FUNC (cch1dn, CCH1DN) (const octave_idx_type&, FloatComplex*,
66 const octave_idx_type&, FloatComplex*,
67 float*, octave_idx_type&);
68
69 F77_RET_T
70 F77_FUNC (cchinx, CCHINX) (const octave_idx_type&, FloatComplex*,
71 const octave_idx_type&, const octave_idx_type&,
66 FloatComplex*, float*, octave_idx_type&); 72 FloatComplex*, float*, octave_idx_type&);
67 73
68 F77_RET_T 74 F77_RET_T
69 F77_FUNC (cchinx, CCHINX) (const octave_idx_type&, FloatComplex*, const octave_idx_type&, 75 F77_FUNC (cchdex, CCHDEX) (const octave_idx_type&, FloatComplex*,
70 const octave_idx_type&, FloatComplex*, float*, 76 const octave_idx_type&, const octave_idx_type&,
71 octave_idx_type&); 77 float*);
72 78
73 F77_RET_T 79 F77_RET_T
74 F77_FUNC (cchdex, CCHDEX) (const octave_idx_type&, FloatComplex*, const octave_idx_type&, 80 F77_FUNC (cchshx, CCHSHX) (const octave_idx_type&, FloatComplex*,
75 const octave_idx_type&, float*); 81 const octave_idx_type&, const octave_idx_type&,
76 82 const octave_idx_type&, FloatComplex*, float*);
77 F77_RET_T
78 F77_FUNC (cchshx, CCHSHX) (const octave_idx_type&, FloatComplex*, const octave_idx_type&,
79 const octave_idx_type&, const octave_idx_type&,
80 FloatComplex*, float*);
81 #endif 83 #endif
82 } 84 }
83 85
84 octave_idx_type 86 octave_idx_type
85 FloatComplexCHOL::init (const FloatComplexMatrix& a, bool calc_cond) 87 FloatComplexCHOL::init (const FloatComplexMatrix& a, bool calc_cond)