# HG changeset patch
# User jwe
# Date 797561779 0
# Node ID 961d2acf5e860dbf82a445f840d9a4ef3a32d6ce
# Parent  7bddfd169d27093108adf6795ca3bca4a40676d7
[project @ 1995-04-11 00:56:19 by jwe]

diff -r 7bddfd169d27 -r 961d2acf5e86 src/qzval.cc
--- a/src/qzval.cc	Tue Apr 11 00:53:08 1995 +0000
+++ b/src/qzval.cc	Tue Apr 11 00:56:19 1995 +0000
@@ -44,14 +44,14 @@
 
 extern "C"
 {
-  int F77_FCN (qzhes) (const int*, const int*, double*, double*, const
-		       long*, double*);
+  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*);
 }
 
 DEFUN_DLD_BUILTIN ("qzval", Fqzval, Sqzval, 3, 1,
@@ -135,20 +135,20 @@
 
 // Use EISPACK qz functions.
 
-  F77_FCN (qzhes) (&a_nr, &a_nr, ca.fortran_vec (),
-		   cb.fortran_vec (), &matz, jnk.fortran_vec ());
+  F77_FCN (qzhes) (a_nr, a_nr, ca.fortran_vec (),
+		   cb.fortran_vec (), matz, jnk.fortran_vec ());
 
-  F77_FCN (qzit) (&a_nr, &a_nr, ca.fortran_vec (),
-		  cb.fortran_vec (), &eps, &matz,
-		  jnk.fortran_vec (), &info);  
+  F77_FCN (qzit) (a_nr, a_nr, ca.fortran_vec (),
+		  cb.fortran_vec (), eps, matz,
+		  jnk.fortran_vec (), info);  
 
   if (info)
     error ("qzval: trouble in qzit, info = %d", info);
 
-  F77_FCN (qzval) (&a_nr, &a_nr, ca.fortran_vec (),
+  F77_FCN (qzval) (a_nr, a_nr, ca.fortran_vec (),
 		   cb.fortran_vec (), alfr.fortran_vec (),
 		   alfi.fortran_vec (), beta.fortran_vec (),
-		   &matz, jnk.fortran_vec ());
+		   matz, jnk.fortran_vec ());
 
 // Count and extract finite generalized eigenvalues.