Mercurial > hg > octave-lyh

comparison liboctave/dbleQR.cc @ 4552:6f3382e08a52

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-10-27 20:38:02 by jwe]
author jwe
date Mon, 27 Oct 2003 20:38:03 +0000
parents 5719210fff4c
children 7b957b442818
comparison
equal deleted inserted replaced
4551:2c619e5138fd 4552:6f3382e08a52
32 #include "f77-fcn.h" 32 #include "f77-fcn.h"
33 #include "lo-error.h" 33 #include "lo-error.h"
34 34
35 extern "C" 35 extern "C"
36 { 36 {
37 int F77_FUNC (dgeqrf, DGEQRF) (const int&, const int&, double*, 37 F77_RET_T
38 const int&, double*, double*, 38 F77_FUNC (dgeqrf, DGEQRF) (const int&, const int&, double*, const int&,
39 const int&, int&); 39 double*, double*, const int&, int&);
40 40
41 int F77_FUNC (dorgqr, DORGQR) (const int&, const int&, const int&, 41 F77_RET_T
42 double*, const int&, double*, double*, 42 F77_FUNC (dorgqr, DORGQR) (const int&, const int&, const int&, double*,
43 const int&, int&); 43 const int&, double*, double*, const int&, int&);
44 } 44 }
45 45
46 QR::QR (const Matrix& a, QR::type qr_type) 46 QR::QR (const Matrix& a, QR::type qr_type)
47 : q (), r () 47 : q (), r ()
48 { 48 {