Mercurial > octave-nkf

comparison liboctave/fCmplxCHOL.cc @ 11518:141b3fb5cef7

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 16:52:30 -0500
parents 8a5e980da6aa
children fd0a3ac60b0e
comparison
equal deleted inserted replaced
11517:da8e32c99969 11518:141b3fb5cef7
40 #endif 40 #endif
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,
46 FloatComplex*, const octave_idx_type&, 46 const octave_idx_type&, FloatComplex*,
47 octave_idx_type& F77_CHAR_ARG_LEN_DECL); 47 const octave_idx_type&, octave_idx_type&
48 F77_RET_T 48 F77_CHAR_ARG_LEN_DECL);
49 F77_FUNC (cpotri, CPOTRI) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 49 F77_RET_T
50 FloatComplex*, const octave_idx_type&, 50 F77_FUNC (cpotri, CPOTRI) (F77_CONST_CHAR_ARG_DECL,
51 octave_idx_type& F77_CHAR_ARG_LEN_DECL); 51 const octave_idx_type&, FloatComplex*,
52 52 const octave_idx_type&, octave_idx_type&
53 F77_RET_T 53 F77_CHAR_ARG_LEN_DECL);
54 F77_FUNC (cpocon, CPOCON) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 54
55 FloatComplex*, const octave_idx_type&, 55 F77_RET_T
56 const float&, float&, FloatComplex*, float*, 56 F77_FUNC (cpocon, CPOCON) (F77_CONST_CHAR_ARG_DECL,
57 octave_idx_type& F77_CHAR_ARG_LEN_DECL); 57 const octave_idx_type&, FloatComplex*,
58 const octave_idx_type&, const float&,
59 float&, FloatComplex*, float*, octave_idx_type&
60 F77_CHAR_ARG_LEN_DECL);
58 #ifdef HAVE_QRUPDATE 61 #ifdef HAVE_QRUPDATE
59 62
60 F77_RET_T 63 F77_RET_T
61 F77_FUNC (cch1up, CCH1UP) (const octave_idx_type&, FloatComplex*, 64 F77_FUNC (cch1up, CCH1UP) (const octave_idx_type&, FloatComplex*,
62 const octave_idx_type&, FloatComplex*, float*); 65 const octave_idx_type&, FloatComplex*, float*);