Mercurial > octave-nkf

comparison src/syl.cc @ 47:ed620db95182

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-08-10 23:02:53 by jwe]
author jwe
date Tue, 10 Aug 1993 23:08:11 +0000
parents 80ea39e3c917
children 4840b0a09436
comparison
equal deleted inserted replaced
46:80ea39e3c917 47:ed620db95182
32 #include "tree-const.h" 32 #include "tree-const.h"
33 #include "user-prefs.h" 33 #include "user-prefs.h"
34 #include "gripes.h" 34 #include "gripes.h"
35 #include "error.h" 35 #include "error.h"
36 36
37 int F77_FCN (dtrsyl) (const char*, const char*, const int*, 37 extern "C"
38 const int*, const int*, const double*, 38 {
39 const int*, const double*, const int*, 39 int F77_FCN (dtrsyl) (const char*, const char*, const int*,
40 const double*, const int*, double*, int*, long, 40 const int*, const int*, const double*,
41 long); 41 const int*, const double*, const int*,
42 const double*, const int*, double*, int*,
43 long, long);
42 44
43 int F77_FCN (ztrsyl) (const char*, const char*, const int*, 45 int F77_FCN (ztrsyl) (const char*, const char*, const int*,
44 const int*, const int*, const Complex*, 46 const int*, const int*, const Complex*,
45 const int*, const Complex*, const int*, 47 const int*, const Complex*, const int*,
46 const Complex*, const int*, double*, int*, long, 48 const Complex*, const int*, double*, int*,
47 long); 49 long, long);
50 }
48 51
49 // Local function: check for empty matrix arguments. Probably should make 52 // Local function: check for empty matrix arguments. Probably should make
50 // this available elsewhere, since tc-xxx functions do this a lot. 53 // this available elsewhere, since tc-xxx functions do this a lot.
51 54
52 static inline int 55 static inline int