Mercurial > octave-nkf

comparison liboctave/floatQR.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<FloatMatrix>; 39 template class base_qr<FloatMatrix>;
40 40
41 extern "C" 41 extern "C"
42 { 42 {
43 F77_RET_T 43 F77_RET_T
44 F77_FUNC (sgeqrf, SGEQRF) (const octave_idx_type&, const octave_idx_type&, float*, const octave_idx_type&, 44 F77_FUNC (sgeqrf, SGEQRF) (const octave_idx_type&, const octave_idx_type&,
45 float*, float*, const octave_idx_type&, octave_idx_type&); 45 float*, const octave_idx_type&, float*, float*,
46 46 const octave_idx_type&, octave_idx_type&);
47 F77_RET_T 47
48 F77_FUNC (sorgqr, SORGQR) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, float*, 48 F77_RET_T
49 const octave_idx_type&, float*, float*, const octave_idx_type&, octave_idx_type&); 49 F77_FUNC (sorgqr, SORGQR) (const octave_idx_type&, const octave_idx_type&,
50 const octave_idx_type&, float*,
51 const octave_idx_type&, float*, float*,
52 const octave_idx_type&, octave_idx_type&);
50 53
51 #ifdef HAVE_QRUPDATE 54 #ifdef HAVE_QRUPDATE
52 55
53 F77_RET_T 56 F77_RET_T
54 F77_FUNC (sqr1up, SQR1UP) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, 57 F77_FUNC (sqr1up, SQR1UP) (const octave_idx_type&, const octave_idx_type&,
55 float*, const octave_idx_type&, float*, const octave_idx_type&, 58 const octave_idx_type&, float*,
56 float*, float*, float*); 59 const octave_idx_type&, float*,
57 60 const octave_idx_type&, float*, float*, float*);
58 F77_RET_T 61
59 F77_FUNC (sqrinc, SQRINC) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, 62 F77_RET_T
60 float*, const octave_idx_type&, float*, const octave_idx_type&, 63 F77_FUNC (sqrinc, SQRINC) (const octave_idx_type&, const octave_idx_type&,
64 const octave_idx_type&, float*,
65 const octave_idx_type&, float*,
66 const octave_idx_type&,
61 const octave_idx_type&, const float*, float*); 67 const octave_idx_type&, const float*, float*);
62 68
63 F77_RET_T 69 F77_RET_T
64 F77_FUNC (sqrdec, SQRDEC) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, 70 F77_FUNC (sqrdec, SQRDEC) (const octave_idx_type&, const octave_idx_type&,
65 float*, const octave_idx_type&, float*, const octave_idx_type&, 71 const octave_idx_type&, float*,
72 const octave_idx_type&, float*,
73 const octave_idx_type&,
66 const octave_idx_type&, float*); 74 const octave_idx_type&, float*);
67 75
68 F77_RET_T 76 F77_RET_T
69 F77_FUNC (sqrinr, SQRINR) (const octave_idx_type&, const octave_idx_type&, 77 F77_FUNC (sqrinr, SQRINR) (const octave_idx_type&, const octave_idx_type&,
70 float*, const octave_idx_type&, float*, const octave_idx_type&, 78 float*, const octave_idx_type&,
79 float*, const octave_idx_type&,
71 const octave_idx_type&, const float*, float*); 80 const octave_idx_type&, const float*, float*);
72 81
73 F77_RET_T 82 F77_RET_T
74 F77_FUNC (sqrder, SQRDER) (const octave_idx_type&, const octave_idx_type&, 83 F77_FUNC (sqrder, SQRDER) (const octave_idx_type&, const octave_idx_type&,
75 float*, const octave_idx_type&, float*, const octave_idx_type&, 84 float*, const octave_idx_type&,
85 float*, const octave_idx_type&,
76 const octave_idx_type&, float*); 86 const octave_idx_type&, float*);
77 87
78 F77_RET_T 88 F77_RET_T
79 F77_FUNC (sqrshc, SQRSHC) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, 89 F77_FUNC (sqrshc, SQRSHC) (const octave_idx_type&, const octave_idx_type&,
80 float*, const octave_idx_type&, float*, const octave_idx_type&, 90 const octave_idx_type&, float*,
91 const octave_idx_type&, float*,
92 const octave_idx_type&,
81 const octave_idx_type&, const octave_idx_type&, 93 const octave_idx_type&, const octave_idx_type&,
82 float*); 94 float*);
83 95
84 #endif 96 #endif
85 } 97 }