Mercurial > hg > octave-lyh
diff liboctave/CmplxQR.cc @ 1253:bb67a902760b
[project @ 1995-04-11 16:35:23 by jwe]
| author | jwe |
|---|---|
| date | Tue, 11 Apr 1995 16:35:23 +0000 |
| parents | 97eac19837dc |
| children | f93b7fa5e113 |
line wrap: on
line diff
--- a/liboctave/CmplxQR.cc +++ b/liboctave/CmplxQR.cc @@ -32,11 +32,13 @@ extern "C" { - int F77_FCN (zgeqrf) (const int&, const int&, Complex*, const int&, - Complex*, Complex*, const int&, int&); + int F77_FCN (zgeqrf, 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, 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 +68,8 @@ else tmp_data = dup (a.data (), a.length ()); - F77_FCN (zgeqrf) (m, n, tmp_data, m, tau, work, lwork, info); + F77_FCN (zgeqrf, ZGEQRF) (m, n, tmp_data, m, tau, work, lwork, + info); delete [] work; @@ -103,7 +106,8 @@ lwork = 32*m; work = new Complex[lwork]; - F77_FCN (zungqr) (m, m, min_mn, tmp_data, m, tau, work, lwork, info); + F77_FCN (zungqr, ZUNGQR) (m, m, min_mn, tmp_data, m, tau, work, + lwork, info); q = ComplexMatrix (tmp_data, m, m); q.resize (m, n2);