Mercurial > octave-nkf

changeset 567:01e026888dfb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-07-26 03:35:32 by jwe]
author jwe
date Tue, 26 Jul 1994 03:35:56 +0000
parents 8529a21443fa
children facf05265e62
files liboctave/CmplxQRP.cc liboctave/dbleQRP.cc
diffstat 2 files changed, 6 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/liboctave/CmplxQRP.cc	Tue Jul 26 02:07:38 1994 +0000
+++ b/liboctave/CmplxQRP.cc	Tue Jul 26 03:35:56 1994 +0000
@@ -40,6 +40,9 @@
 {
   int F77_FCN (zgeqpf) (const int*, const int*, Complex*, const int*,
 			int*, Complex*, Complex*, double*, int*);
+
+  int F77_FCN (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...
--- a/liboctave/dbleQRP.cc	Tue Jul 26 02:07:38 1994 +0000
+++ b/liboctave/dbleQRP.cc	Tue Jul 26 03:35:56 1994 +0000
@@ -40,6 +40,9 @@
 {
   int F77_FCN (dgeqpf) (const int*, const int*, double*, const int*,
 			int*, double*, double*, int*);
+
+  int F77_FCN (dorgqr) (const int*, const int*, const int*, double*,
+			const int*, double*, double*, const int*, int*);
 }
 
 // It would be best to share some of this code with QR class...