Mercurial > hg > octave-nkf

comparison liboctave/CmplxHESS.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 fd0a3ac60b0e
comparison
equal deleted inserted replaced
11494:a2c3c43af79e 11495:8a5e980da6aa
31 31
32 extern "C" 32 extern "C"
33 { 33 {
34 F77_RET_T 34 F77_RET_T
35 F77_FUNC (zgebal, ZGEBAL) (F77_CONST_CHAR_ARG_DECL, 35 F77_FUNC (zgebal, ZGEBAL) (F77_CONST_CHAR_ARG_DECL,
36 const octave_idx_type&, Complex*, const octave_idx_type&, 36 const octave_idx_type&, Complex*,
37 octave_idx_type&, octave_idx_type&, double*, octave_idx_type& 37 const octave_idx_type&, octave_idx_type&,
38 octave_idx_type&, double*, octave_idx_type&
38 F77_CHAR_ARG_LEN_DECL); 39 F77_CHAR_ARG_LEN_DECL);
39 40
40 F77_RET_T 41 F77_RET_T
41 F77_FUNC (zgehrd, ZGEHRD) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, 42 F77_FUNC (zgehrd, ZGEHRD) (const octave_idx_type&, const octave_idx_type&,
42 Complex*, const octave_idx_type&, Complex*, 43 const octave_idx_type&, Complex*,
43 Complex*, const octave_idx_type&, octave_idx_type&); 44 const octave_idx_type&, Complex*, Complex*,
45 const octave_idx_type&, octave_idx_type&);
44 46
45 F77_RET_T 47 F77_RET_T
46 F77_FUNC (zunghr, ZUNGHR) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, 48 F77_FUNC (zunghr, ZUNGHR) (const octave_idx_type&, const octave_idx_type&,
47 Complex*, const octave_idx_type&, Complex*, 49 const octave_idx_type&, Complex*,
48 Complex*, const octave_idx_type&, octave_idx_type&); 50 const octave_idx_type&, Complex*, Complex*,
51 const octave_idx_type&, octave_idx_type&);
49 52
50 F77_RET_T 53 F77_RET_T
51 F77_FUNC (zgebak, ZGEBAK) (F77_CONST_CHAR_ARG_DECL, 54 F77_FUNC (zgebak, ZGEBAK) (F77_CONST_CHAR_ARG_DECL,
52 F77_CONST_CHAR_ARG_DECL, 55 F77_CONST_CHAR_ARG_DECL,
53 const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, double*, 56 const octave_idx_type&, const octave_idx_type&,
54 const octave_idx_type&, Complex*, const octave_idx_type&, octave_idx_type& 57 const octave_idx_type&, double*,
58 const octave_idx_type&, Complex*,
59 const octave_idx_type&, octave_idx_type&
55 F77_CHAR_ARG_LEN_DECL 60 F77_CHAR_ARG_LEN_DECL
56 F77_CHAR_ARG_LEN_DECL); 61 F77_CHAR_ARG_LEN_DECL);
57 } 62 }
58 63
59 octave_idx_type 64 octave_idx_type