# HG changeset patch
# User jwe
# Date 949541791 0
# Node ID bc492f4a94cb285296776048c152b2118a92772c
# Parent  03025e79d8b9c1151c97f81550f96e7d337790a2
[project @ 2000-02-03 01:36:30 by jwe]

diff -r 03025e79d8b9 -r bc492f4a94cb src/ChangeLog
--- a/src/ChangeLog	Thu Feb 03 01:30:02 2000 +0000
+++ b/src/ChangeLog	Thu Feb 03 01:36:31 2000 +0000
@@ -1,5 +1,8 @@
 2000-02-02  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
+	* DLD-FUNCTIONS/qz.cc (Fqz): Use Array<int> class instead of
+	trying to create automatic int array with variable size.
+
 	* variables.cc (F__dump_symbol_info__): Fix continuation char.
 	* DLD-FUNCTIONS/besselj.cc (Fairy, Fbesselj): Likewise.
 	* DLD-FUNCTIONS/chol.cc (Fchol): Likewise.
diff -r 03025e79d8b9 -r bc492f4a94cb src/DLD-FUNCTIONS/qz.cc
--- a/src/DLD-FUNCTIONS/qz.cc	Thu Feb 03 01:30:02 2000 +0000
+++ b/src/DLD-FUNCTIONS/qz.cc	Thu Feb 03 01:36:31 2000 +0000
@@ -604,9 +604,9 @@
 	      // checked the options at the top).
 	      panic_impossible ();
 	      break;
-      }
+	    }
 
-	  int ndim, fail, ind[nn];
+	  int ndim, fail;
 	  double inf_norm;
 
 	  F77_XFCN (xdlange, XDLANGE,
@@ -635,9 +635,12 @@
 	  std::cout << std::endl;
 #endif
 
+	  Array<int> ind (nn);
+
 	  F77_XFCN (dsubsp, DSUBSP,
 		    (nn, nn, aa.fortran_vec(), bb.fortran_vec(),
-		     ZZ.fortran_vec(), sort_test, eps, ndim, fail, ind));
+		     ZZ.fortran_vec(), sort_test, eps, ndim, fail,
+		     ind.fortran_vec ()));
 
 #ifdef DEBUG
 	  std::cout << "qz: back from dsubsp: aa=" << std::endl;