--- a/liboctave/dbleAEPBAL.cc	Tue Apr 11 01:07:17 1995 +0000
+++ b/liboctave/dbleAEPBAL.cc	Tue Apr 11 15:58:32 1995 +0000
@@ -30,13 +30,13 @@
 
 extern "C"
 {
-  int F77_FCN (dgebal) (const char*, const int*, double*,
-                        const int*, int*, int*, double*,
-                        int*, long, long);
+  int F77_FCN (dgebal) (const char*, const int&, double*,
+                        const int&, int&, int&, double*,
+                        int&, long, long);
 
-  int F77_FCN (dgebak) (const char*, const char*, const int*, const int*,
-			const int*, double*, const int*, double*, const int*,
-			int*, long, long);
+  int F77_FCN (dgebak) (const char*, const char*, const int&, const int&,
+			const int&, double*, const int&, double*, const int&,
+			int&, long, long);
 }
 
 int
@@ -62,8 +62,8 @@
 
   balanced_mat = a;
 
-  F77_FCN (dgebal) (balance_job, &n, balanced_mat.fortran_vec (), 
-		    &n, &ilo, &ihi, scale, &info, 1L, 1L);
+  F77_FCN (dgebal) (balance_job, n, balanced_mat.fortran_vec (), 
+		    n, ilo, ihi, scale, info, 1L, 1L);
 
 // Initialize balancing matrix to identity.
 
@@ -71,8 +71,8 @@
   for (int i = 0; i < n; i++)
     balancing_mat.elem (i ,i) = 1.0;
 
-  F77_FCN (dgebak) (balance_job, "R", &n, &ilo, &ihi, scale, &n, 
-		    balancing_mat.fortran_vec (), &n, &info, 1L, 1L);
+  F77_FCN (dgebak) (balance_job, "R", n, ilo, ihi, scale, n, 
+		    balancing_mat.fortran_vec (), n, info, 1L, 1L);
 
   delete [] scale;