Mercurial > hg > octave-lyh

diff liboctave/CmplxQR.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/CmplxQR.cc
+++ b/liboctave/CmplxQR.cc
@@ -34,13 +34,15 @@
 
 extern "C"
 {
-  int F77_FUNC (zgeqrf, ZGEQRF) (const int&, const int&, Complex*,
-				const int&, Complex*, Complex*,
-				const int&, int&); 
+  F77_RET_T
+  F77_FUNC (zgeqrf, ZGEQRF) (const int&, const int&, Complex*,
+			     const int&, Complex*, Complex*,
+			     const int&, int&); 
 
-  int F77_FUNC (zungqr, ZUNGQR) (const int&, const int&, const int&,
-				Complex*, const int&, Complex*,
-				Complex*, const int&, int&);
+  F77_RET_T
+  F77_FUNC (zungqr, ZUNGQR) (const int&, const int&, const int&,
+			     Complex*, const int&, Complex*,
+			     Complex*, const int&, int&);
 }
 
 ComplexQR::ComplexQR (const ComplexMatrix& a, QR::type qr_type)