--- a/liboctave/CmplxHESS.cc	Tue Apr 11 01:07:17 1995 +0000
+++ b/liboctave/CmplxHESS.cc	Tue Apr 11 15:58:32 1995 +0000
@@ -32,20 +32,20 @@
 
 extern "C"
 {
-  int F77_FCN (zgebal) (const char*, const int*, Complex*, const int*,
-                        int*, int*, double*, int*, long, long);
+  int F77_FCN (zgebal) (const char*, const int&, Complex*, const int&,
+                        int&, int&, double*, int&, long, long);
  
-  int F77_FCN (zgebak) (const char*, const char*, const int*, const int*,
-			const int*, double*, const int*, Complex*, 
-			const int*, int*, long, long);
+  int F77_FCN (zgehrd) (const int&, const int&, const int&, Complex*,
+                        const int&, Complex*, Complex*, const int&,
+                        int&, long, long);
+ 
+  int F77_FCN (zunghr) (const int&, const int&, const int&, Complex*,
+                        const int&, Complex*, Complex*, const int&,
+                        int&, long, long);
 
-  int F77_FCN (zgehrd) (const int*, const int*, const int*, Complex*,
-                        const int*, Complex*, Complex*, const int*,
-                        int*, long, long);
- 
-  int F77_FCN (zunghr) (const int*, const int*, const int*, Complex*,
-                        const int*, Complex*, Complex*, const int*,
-                        int*, long, long);
+  int F77_FCN (zgebak) (const char*, const char*, const int&, const int&,
+			const int&, double*, const int&, Complex*,
+			const int&, int&, long, long);
 }
 
 int
@@ -60,8 +60,8 @@
        return -1;
      }
 
-   char job = 'N';
-   char side = 'R';
+   char *job = "N";
+   char *side = "R";
 
    int n = a_nc;
    int lwork = 32 * n;
@@ -76,18 +76,15 @@
    Complex *work = new Complex [lwork];
    Complex *z = new Complex [n*n];
 
-   F77_FCN (zgebal) (&job, &n, h, &n, &ilo, &ihi, scale, &info, 1L, 1L);
+   F77_FCN (zgebal) (job, n, h, n, ilo, ihi, scale, info, 1L, 1L);
 
-   F77_FCN (zgehrd) (&n, &ilo, &ihi, h, &n, tau, work, &lwork, &info, 1L,
-		     1L);
+   F77_FCN (zgehrd) (n, ilo, ihi, h, n, tau, work, lwork, info, 1L, 1L);
 
    copy (z, h, n*n);
 
-   F77_FCN (zunghr) (&n, &ilo, &ihi, z, &n, tau, work, &lwork, &info, 1L,
-		     1L);
+   F77_FCN (zunghr) (n, ilo, ihi, z, n, tau, work, lwork, info, 1L, 1L);
 
-   F77_FCN (zgebak) (&job, &side, &n, &ilo, &ihi, scale, &n, z, &n, &info,
-		     1L, 1L); 
+   F77_FCN (zgebak) (job, side, n, ilo, ihi, scale, n, z, n, info, 1L, 1L); 
 
    hess_mat = ComplexMatrix (h, n, n);
    unitary_hess_mat = ComplexMatrix (z, n, n);