Mercurial > hg > octave-terminal
changeset 274:ddf76073ce96
[project @ 1994-01-06 22:47:01 by jwe]
author | jwe |
---|---|
date | Thu, 06 Jan 1994 22:47:01 +0000 |
parents | dd9b9719b799 |
children | a419f80fc9a8 |
files | liboctave/Matrix-ext.cc |
diffstat | 1 files changed, 9 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/liboctave/Matrix-ext.cc +++ b/liboctave/Matrix-ext.cc @@ -50,7 +50,8 @@ const int*, double*, const int*, double*, const int*, int*, long, long); - int F77_FCN (dgeesx) (const char*, const char*, int (*)(), const char*, + int F77_FCN (dgeesx) (const char*, const char*, + int (*)(double*, double*), const char*, const int*, double*, const int*, int*, double*, double*, double*, const int*, double*, double*, double*, const int*, int*, const int*, int*, @@ -116,11 +117,11 @@ int F77_FCN (zgeqrf) (const int*, const int*, Complex*, const int*, Complex*, Complex*, const int*, int*); - int F77_FCN (zgeesx) (const char*, const char*, int (*)(), const char*, - const int*, Complex*, const int*, int*, - Complex*, Complex*, const int*, double*, double*, - Complex*, const int*, double*, int*, int*, - long, long); + int F77_FCN (zgeesx) (const char*, const char*, int (*)(Complex*), + const char*, const int*, Complex*, const int*, + int*, Complex*, Complex*, const int*, double*, + double*, Complex*, const int*, double*, int*, + int*, long, long); int F77_FCN (zgebal) (const char*, const int*, Complex*, const int*, int*, int*, double*, int*, long, long); @@ -577,9 +578,6 @@ return (hypot (*a, *b) < 1.0); } -// GAG. -extern "C" { static int (*dummy_select)(); } - int SCHUR::init (const Matrix& a, const char *ord) { @@ -641,7 +639,7 @@ } else { - F77_FCN (dgeesx) (&jobvs, &sort, dummy_select, &sense, &n, s, + F77_FCN (dgeesx) (&jobvs, &sort, (void *) 0, &sense, &n, s, &n, &sdim, wr, wi, q, &n, &rconde, &rcondv, work, &lwork, iwork, &liwork, bwork, &info, 1L, 1L); @@ -727,7 +725,7 @@ } else { - F77_FCN (zgeesx) (&jobvs, &sort, dummy_select, &sense, &n, s, + F77_FCN (zgeesx) (&jobvs, &sort, (void *) 0, &sense, &n, s, &n, &sdim, w, q, &n, &rconde, &rcondv, work, &lwork, rwork, bwork, &info, 1L, 1L); }