Mercurial > hg > octave-lyh

diff liboctave/CmplxQR.cc @ 1251:97eac19837dc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-04-11 15:58:32 by jwe]
author jwe
date Tue, 11 Apr 1995 15:58:32 +0000
parents b6360f2d4fa6
children bb67a902760b
line wrap: on
line diff
--- a/liboctave/CmplxQR.cc
+++ b/liboctave/CmplxQR.cc
@@ -32,11 +32,11 @@
 
 extern "C"
 {
-  int F77_FCN (zgeqrf) (const int*, const int*, Complex*, const int*,
-			Complex*, Complex*, const int*, int*);
+  int F77_FCN (zgeqrf) (const int&, const int&, Complex*, const int&,
+			Complex*, Complex*, const int&, int&);
 
-  int F77_FCN (zungqr) (const int*, const int*, const int*, Complex*,
-			const int*, Complex*, Complex*, const int*, int*);
+  int F77_FCN (zungqr) (const int&, const int&, const int&, Complex*,
+			const int&, Complex*, Complex*, const int&, int&);
 }
 
 ComplexQR::ComplexQR (const ComplexMatrix& a, QR::type qr_type)
@@ -66,7 +66,7 @@
   else
     tmp_data = dup (a.data (), a.length ());
 
-  F77_FCN (zgeqrf) (&m, &n, tmp_data, &m, tau, work, &lwork, &info);
+  F77_FCN (zgeqrf) (m, n, tmp_data, m, tau, work, lwork, info);
 
   delete [] work;
 
@@ -103,8 +103,7 @@
       lwork = 32*m;
       work = new Complex[lwork];
 
-      F77_FCN (zungqr) (&m, &m, &min_mn, tmp_data, &m, tau, work,
-			&lwork, &info);
+      F77_FCN (zungqr) (m, m, min_mn, tmp_data, m, tau, work, lwork, info);
 
       q = ComplexMatrix (tmp_data, m, m);
       q.resize (m, n2);