Mercurial > octave-nkf

comparison liboctave/CmplxCHOL.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 (zpotrf, ZPOTRF) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 45 F77_FUNC (zpotrf, ZPOTRF) (F77_CONST_CHAR_ARG_DECL,
46 Complex*, const octave_idx_type&, octave_idx_type& 46 const octave_idx_type&, Complex*,
47 const octave_idx_type&, octave_idx_type&
47 F77_CHAR_ARG_LEN_DECL); 48 F77_CHAR_ARG_LEN_DECL);
48 F77_RET_T 49 F77_RET_T
49 F77_FUNC (zpotri, ZPOTRI) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 50 F77_FUNC (zpotri, ZPOTRI) (F77_CONST_CHAR_ARG_DECL,
50 Complex*, const octave_idx_type&, octave_idx_type& 51 const octave_idx_type&, Complex*,
52 const octave_idx_type&, octave_idx_type&
51 F77_CHAR_ARG_LEN_DECL); 53 F77_CHAR_ARG_LEN_DECL);
52 54
53 F77_RET_T 55 F77_RET_T
54 F77_FUNC (zpocon, ZPOCON) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 56 F77_FUNC (zpocon, ZPOCON) (F77_CONST_CHAR_ARG_DECL,
55 Complex*, const octave_idx_type&, const double&, 57 const octave_idx_type&, Complex*,
56 double&, Complex*, double*, 58 const octave_idx_type&, const double&,
57 octave_idx_type& F77_CHAR_ARG_LEN_DECL); 59 double&, Complex*, double*, 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 (zch1up, ZCH1UP) (const octave_idx_type&, Complex*, 64 F77_FUNC (zch1up, ZCH1UP) (const octave_idx_type&, Complex*,
62 const octave_idx_type&, Complex*, double*); 65 const octave_idx_type&, Complex*, double*);