Mercurial > hg > octave-terminal
changeset 47:ed620db95182
[project @ 1993-08-10 23:02:53 by jwe]
author | jwe |
---|---|
date | Tue, 10 Aug 1993 23:08:11 +0000 |
parents | 80ea39e3c917 |
children | 4840b0a09436 |
files | src/givens.cc src/qzval.cc src/syl.cc |
diffstat | 3 files changed, 29 insertions(+), 20 deletions(-) [+] |
line wrap: on
line diff
--- a/src/givens.cc +++ b/src/givens.cc @@ -34,11 +34,14 @@ #include "error.h" #include "gripes.h" -int F77_FCN (dlartg) (const double*, const double*, double*, double*, - double*); +extern "C" +{ + int F77_FCN (dlartg) (const double*, const double*, double*, double*, + double*); -int F77_FCN (zlartg) (const Complex*, const Complex*, double*, - Complex*, Complex*); + int F77_FCN (zlartg) (const Complex*, const Complex*, double*, + Complex*, Complex*); +} // These aren't used? #if 0
--- a/src/qzval.cc +++ b/src/qzval.cc @@ -34,14 +34,17 @@ #include "gripes.h" #include "error.h" -int F77_FCN (qzhes) (const int*, const int*, double*, double*, const - long*, double*); +extern "C" +{ + int F77_FCN (qzhes) (const int*, const int*, double*, double*, const + long*, double*); -int F77_FCN (qzit) (const int*, const int*, double*, double*, const - double*, const long*, double*, int*); + int F77_FCN (qzit) (const int*, const int*, double*, double*, const + double*, const long*, double*, int*); -int F77_FCN (qzval) (const int*, const int*, double*, double*, - double*, double*, double*, const long*, double*); + int F77_FCN (qzval) (const int*, const int*, double*, double*, + double*, double*, double*, const long*, double*); +} // XXX FIXME XXX extern int empty_arg (tree_constant&);
--- a/src/syl.cc +++ b/src/syl.cc @@ -34,17 +34,20 @@ #include "gripes.h" #include "error.h" -int F77_FCN (dtrsyl) (const char*, const char*, const int*, - const int*, const int*, const double*, - const int*, const double*, const int*, - const double*, const int*, double*, int*, long, - long); +extern "C" +{ + int F77_FCN (dtrsyl) (const char*, const char*, const int*, + const int*, const int*, const double*, + const int*, const double*, const int*, + const double*, const int*, double*, int*, + long, long); -int F77_FCN (ztrsyl) (const char*, const char*, const int*, - const int*, const int*, const Complex*, - const int*, const Complex*, const int*, - const Complex*, const int*, double*, int*, long, - long); + int F77_FCN (ztrsyl) (const char*, const char*, const int*, + const int*, const int*, const Complex*, + const int*, const Complex*, const int*, + const Complex*, const int*, double*, int*, + long, long); +} // Local function: check for empty matrix arguments. Probably should make // this available elsewhere, since tc-xxx functions do this a lot.