Mercurial > hg > octave-nkf

comparison liboctave/CmplxQR.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 07ebe522dac2
children fd0a3ac60b0e
comparison
equal deleted inserted replaced
11517:da8e32c99969 11518:141b3fb5cef7
39 template class base_qr<ComplexMatrix>; 39 template class base_qr<ComplexMatrix>;
40 40
41 extern "C" 41 extern "C"
42 { 42 {
43 F77_RET_T 43 F77_RET_T
44 F77_FUNC (zgeqrf, ZGEQRF) (const octave_idx_type&, const octave_idx_type&, Complex*, 44 F77_FUNC (zgeqrf, ZGEQRF) (const octave_idx_type&, const octave_idx_type&,
45 Complex*, const octave_idx_type&, Complex*,
46 Complex*, const octave_idx_type&,
47 octave_idx_type&);
48
49 F77_RET_T
50 F77_FUNC (zungqr, ZUNGQR) (const octave_idx_type&, const octave_idx_type&,
51 const octave_idx_type&, Complex*,
45 const octave_idx_type&, Complex*, Complex*, 52 const octave_idx_type&, Complex*, Complex*,
46 const octave_idx_type&, octave_idx_type&); 53 const octave_idx_type&, octave_idx_type&);
54
55 #ifdef HAVE_QRUPDATE
47 56
48 F77_RET_T 57 F77_RET_T
49 F77_FUNC (zungqr, ZUNGQR) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, 58 F77_FUNC (zqr1up, ZQR1UP) (const octave_idx_type&, const octave_idx_type&,
50 Complex*, const octave_idx_type&, Complex*, 59 const octave_idx_type&, Complex*,
51 Complex*, const octave_idx_type&, octave_idx_type&); 60 const octave_idx_type&, Complex*,
52 61 const octave_idx_type&, Complex*,
53 #ifdef HAVE_QRUPDATE 62 Complex*, Complex*, double*);
54 63
55 F77_RET_T 64 F77_RET_T
56 F77_FUNC (zqr1up, ZQR1UP) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, 65 F77_FUNC (zqrinc, ZQRINC) (const octave_idx_type&, const octave_idx_type&,
57 Complex*, const octave_idx_type&, Complex*, const octave_idx_type&, 66 const octave_idx_type&, Complex*,
58 Complex*, Complex*, Complex*, double*); 67 const octave_idx_type&, Complex*,
68 const octave_idx_type&, const octave_idx_type&,
69 const Complex*, double*);
59 70
60 F77_RET_T 71 F77_RET_T
61 F77_FUNC (zqrinc, ZQRINC) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, 72 F77_FUNC (zqrdec, ZQRDEC) (const octave_idx_type&, const octave_idx_type&,
62 Complex*, const octave_idx_type&, Complex*, const octave_idx_type&, 73 const octave_idx_type&, Complex*,
63 const octave_idx_type&, const Complex*, double*); 74 const octave_idx_type&, Complex*,
64 75 const octave_idx_type&, const octave_idx_type&,
65 F77_RET_T 76 double*);
66 F77_FUNC (zqrdec, ZQRDEC) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&,
67 Complex*, const octave_idx_type&, Complex*, const octave_idx_type&,
68 const octave_idx_type&, double*);
69 77
70 F77_RET_T 78 F77_RET_T
71 F77_FUNC (zqrinr, ZQRINR) (const octave_idx_type&, const octave_idx_type&, 79 F77_FUNC (zqrinr, ZQRINR) (const octave_idx_type&, const octave_idx_type&,
72 Complex*, const octave_idx_type&, Complex*, const octave_idx_type&, 80 Complex*, const octave_idx_type&, Complex*,
73 const octave_idx_type&, const Complex*, double*); 81 const octave_idx_type&, const octave_idx_type&,
82 const Complex*, double*);
74 83
75 F77_RET_T 84 F77_RET_T
76 F77_FUNC (zqrder, ZQRDER) (const octave_idx_type&, const octave_idx_type&, 85 F77_FUNC (zqrder, ZQRDER) (const octave_idx_type&, const octave_idx_type&,
77 Complex*, const octave_idx_type&, Complex*, const octave_idx_type&, 86 Complex*, const octave_idx_type&, Complex*,
78 const octave_idx_type&, Complex*, double*);
79
80 F77_RET_T
81 F77_FUNC (zqrshc, ZQRSHC) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&,
82 Complex*, const octave_idx_type&, Complex*, const octave_idx_type&,
83 const octave_idx_type&, const octave_idx_type&, 87 const octave_idx_type&, const octave_idx_type&,
84 Complex*, double*); 88 Complex*, double*);
89
90 F77_RET_T
91 F77_FUNC (zqrshc, ZQRSHC) (const octave_idx_type&, const octave_idx_type&,
92 const octave_idx_type&, Complex*,
93 const octave_idx_type&, Complex*,
94 const octave_idx_type&, const octave_idx_type&,
95 const octave_idx_type&, Complex*, double*);
85 96
86 #endif 97 #endif
87 } 98 }
88 99
89 ComplexQR::ComplexQR (const ComplexMatrix& a, qr_type_t qr_type) 100 ComplexQR::ComplexQR (const ComplexMatrix& a, qr_type_t qr_type)