Mercurial > hg > octave-terminal
changeset 567:01e026888dfb
[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 +++ b/liboctave/CmplxQRP.cc @@ -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 +++ b/liboctave/dbleQRP.cc @@ -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...