changeset 1245:85d1899047e1

[project @ 1995-04-11 00:45:35 by jwe]
author jwe
date Tue, 11 Apr 1995 00:45:35 +0000
parents f0ad21c0b3a6
children 35950c102ac3
files src/syl.cc
diffstat 1 files changed, 16 insertions(+), 18 deletions(-) [+]
line wrap: on
line diff
--- 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)