Mercurial > octave-nkf

changeset 274:ddf76073ce96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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	Thu Jan 06 21:19:44 1994 +0000
+++ b/liboctave/Matrix-ext.cc	Thu Jan 06 22:47:01 1994 +0000
@@ -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);
     }