# HG changeset patch
# User jwe
# Date 797561135 0
# Node ID 85d1899047e1a7f27f026b17e46171443ced3c90
# Parent  f0ad21c0b3a612666b2aef6999a309e0ecd2cacd
[project @ 1995-04-11 00:45:35 by jwe]

diff -r f0ad21c0b3a6 -r 85d1899047e1 src/syl.cc
--- a/src/syl.cc	Tue Apr 11 00:40:46 1995 +0000
+++ b/src/syl.cc	Tue Apr 11 00:45:35 1995 +0000
@@ -43,16 +43,16 @@
 
 extern "C"
 {
-  int F77_FCN (dtrsyl) (const char*, const char*, const int*,
-			const int*, const int*, const double*,
-			const int*, const double*, const int*,
-			const double*, const int*, double*, int*,
+  int F77_FCN (dtrsyl) (const char*, const char*, const int&,
+			const int&, const int&, const double*,
+			const int&, const double*, const int&,
+			const double*, const int&, double&, int&,
 			long, long);
  
-  int F77_FCN (ztrsyl) (const char*, const char*, const int*,
-			const int*, const int*, const Complex*,
-			const int*, const Complex*, const int*,
-			const Complex*, const int*, double*, int*,
+  int F77_FCN (ztrsyl) (const char*, const char*, const int&,
+			const int&, const int&, const Complex*,
+			const int&, const Complex*, const int&,
+			const Complex*, const int&, double&, int&,
 			long, long);
 }
 
@@ -146,12 +146,11 @@
   
 	double scale;
 	int info;
-	int one = 1;
   
-	F77_FCN (ztrsyl) ("N", "N", &one, &a_nr, &b_nr,
-			  sch_a.fortran_vec (), &a_nr,
-			  sch_b.fortran_vec (), &b_nr,
-			  cx.fortran_vec (), &a_nr, &scale, &info,
+	F77_FCN (ztrsyl) ("N", "N", 1, a_nr, b_nr,
+			  sch_a.fortran_vec (), a_nr,
+			  sch_b.fortran_vec (), b_nr,
+			  cx.fortran_vec (), a_nr, scale, info,
 			  1L, 1L);
 
 	cx = -ua * cx * ub.hermitian ();
@@ -196,12 +195,11 @@
   
 	double scale;
 	int info;
-	int one = 1;
 
-	F77_FCN (dtrsyl) ("N", "N", &one, &a_nr, &b_nr,
-			  sch_a.fortran_vec (), &a_nr, 
-			  sch_b.fortran_vec (), &b_nr,
-			  cx.fortran_vec (), &a_nr, &scale, &info,
+	F77_FCN (dtrsyl) ("N", "N", 1, a_nr, b_nr,
+			  sch_a.fortran_vec (), a_nr, 
+			  sch_b.fortran_vec (), b_nr,
+			  cx.fortran_vec (), a_nr, scale, info,
 			  1L, 1L);
 
 	if (info)