Mercurial > hg > octave-nkf

diff 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
line wrap: on
line diff
--- a/liboctave/dbleQR.cc
+++ b/liboctave/dbleQR.cc
@@ -34,13 +34,13 @@
 
 extern "C"
 {
-  int F77_FUNC (dgeqrf, DGEQRF) (const int&, const int&, double*,
-				const int&, double*, double*,
-				const int&, int&); 
+  F77_RET_T
+  F77_FUNC (dgeqrf, DGEQRF) (const int&, const int&, double*, const int&,
+			     double*, double*, const int&, int&); 
 
-  int F77_FUNC (dorgqr, DORGQR) (const int&, const int&, const int&,
-				double*, const int&, double*, double*,
-				const int&, int&);
+  F77_RET_T
+  F77_FUNC (dorgqr, DORGQR) (const int&, const int&, const int&, double*,
+			     const int&, double*, double*, const int&, int&);
 }
 
 QR::QR (const Matrix& a, QR::type qr_type)