Mercurial > octave-nkf

comparison src/qzval.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 f3215b07c171
children 445ea777560a
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 (qzhes) (const int*, const int*, double*, double*, const 37 extern "C"
38 long*, double*); 38 {
39 int F77_FCN (qzhes) (const int*, const int*, double*, double*, const
40 long*, double*);
39 41
40 int F77_FCN (qzit) (const int*, const int*, double*, double*, const 42 int F77_FCN (qzit) (const int*, const int*, double*, double*, const
41 double*, const long*, double*, int*); 43 double*, const long*, double*, int*);
42 44
43 int F77_FCN (qzval) (const int*, const int*, double*, double*, 45 int F77_FCN (qzval) (const int*, const int*, double*, double*,
44 double*, double*, double*, const long*, double*); 46 double*, double*, double*, const long*, double*);
47 }
45 48
46 // XXX FIXME XXX 49 // XXX FIXME XXX
47 extern int empty_arg (tree_constant&); 50 extern int empty_arg (tree_constant&);
48 extern tree_constant* empty_tree (int , char*); 51 extern tree_constant* empty_tree (int , char*);
49 extern ComplexMatrix ComplexMatrixLoad (tree_constant&); 52 extern ComplexMatrix ComplexMatrixLoad (tree_constant&);