Mercurial > octave
diff src/syl.cc @ 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 |
line wrap: on
line diff
--- a/src/syl.cc Tue Aug 10 22:58:49 1993 +0000 +++ b/src/syl.cc Tue Aug 10 23:08:11 1993 +0000 @@ -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.