Mercurial > hg > octave-lyh

diff liboctave/CmplxQRP.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 e35b034d3523
line wrap: on
line diff
--- a/liboctave/CmplxQRP.cc
+++ b/liboctave/CmplxQRP.cc
@@ -36,13 +36,15 @@
 
 extern "C"
 {
-  int F77_FUNC (zgeqpf, ZGEQPF) (const int&, const int&, Complex*,
-				const int&, int*, Complex*, Complex*,
-				double*, int&);
+  F77_RET_T
+  F77_FUNC (zgeqpf, ZGEQPF) (const int&, const int&, Complex*,
+			     const int&, int*, Complex*, Complex*,
+			     double*, 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&);
 }
 
 // It would be best to share some of this code with ComplexQR class...