diff liboctave/dbleHESS.cc @ 4552:6f3382e08a52

[project @ 2003-10-27 20:38:02 by jwe]
author jwe
date Mon, 27 Oct 2003 20:38:03 +0000 (2003-10-27)
parents 5719210fff4c
children e35b034d3523
line wrap: on
line diff
--- a/liboctave/dbleHESS.cc
+++ b/liboctave/dbleHESS.cc
@@ -34,22 +34,29 @@
 
 extern "C"
 {
-  int F77_FUNC (dgebal, DGEBAL) (const char*, const int&, double*,
-				const int&, int&, int&, double*,
-				int&, long, long);
+  F77_RET_T
+  F77_FUNC (dgebal, DGEBAL) (F77_CONST_CHAR_ARG_DECL,
+			     const int&, double*, const int&, int&,
+			     int&, double*, int&
+			     F77_CHAR_ARG_LEN_DECL);
 
-  int F77_FUNC (dgehrd, DGEHRD) (const int&, const int&, const int&,
-				double*, const int&, double*, double*,
-				const int&, int&, long, long);
+  F77_RET_T
+  F77_FUNC (dgehrd, DGEHRD) (const int&, const int&, const int&,
+			     double*, const int&, double*, double*,
+			     const int&, int&);
 
-  int F77_FUNC (dorghr, DORGHR) (const int&, const int&, const int&,
-				double*, const int&, double*, double*,
-				const int&, int&, long, long);
+  F77_RET_T
+  F77_FUNC (dorghr, DORGHR) (const int&, const int&, const int&,
+			     double*, const int&, double*, double*,
+			     const int&, int&);
 
-  int F77_FUNC (dgebak, DGEBAK) (const char*, const char*, const int&,
-				const int&, const int&, double*,
-				const int&, double*, const int&, int&,
-				long, long);
+  F77_RET_T
+  F77_FUNC (dgebak, DGEBAK) (F77_CONST_CHAR_ARG_DECL,
+			     F77_CONST_CHAR_ARG_DECL,
+			     const int&, const int&, const int&, double*,
+			     const int&, double*, const int&, int&
+			     F77_CHAR_ARG_LEN_DECL
+			     F77_CHAR_ARG_LEN_DECL);
 }
 
 int
@@ -79,8 +86,9 @@
   Array<double> scale (n);
   double *pscale = scale.fortran_vec ();
 
-  F77_XFCN (dgebal, DGEBAL, (&job, n, h, n, ilo, ihi, pscale, info,
-			     1L, 1L));
+  F77_XFCN (dgebal, DGEBAL, (F77_CONST_CHAR_ARG2 (&job, 1),
+			     n, h, n, ilo, ihi, pscale, info
+			     F77_CHAR_ARG_LEN (1)));
 
   if (f77_exception_encountered)
     (*current_liboctave_error_handler) ("unrecoverable error in dgebal");
@@ -93,7 +101,7 @@
       double *pwork = work.fortran_vec ();
 
       F77_XFCN (dgehrd, DGEHRD, (n, ilo, ihi, h, n, ptau, pwork,
-				 lwork, info, 1L, 1L));
+				 lwork, info));
 
       if (f77_exception_encountered)
 	(*current_liboctave_error_handler) ("unrecoverable error in dgehrd");
@@ -103,15 +111,19 @@
 	  double *z = unitary_hess_mat.fortran_vec ();
 
 	  F77_XFCN (dorghr, DORGHR, (n, ilo, ihi, z, n, ptau, pwork,
-				     lwork, info, 1L, 1L));
+				     lwork, info));
 
 	  if (f77_exception_encountered)
 	    (*current_liboctave_error_handler)
 	      ("unrecoverable error in dorghr");
 	  else
 	    {
-	      F77_XFCN (dgebak, DGEBAK, (&job, &side, n, ilo, ihi,
-					 pscale, n, z, n, info, 1L, 1L));
+	      F77_XFCN (dgebak, DGEBAK, (F77_CONST_CHAR_ARG2 (&job, 1),
+					 F77_CONST_CHAR_ARG2 (&side, 1),
+					 n, ilo, ihi, pscale, n, z,
+					 n, info
+					 F77_CHAR_ARG_LEN (1)
+					 F77_CHAR_ARG_LEN (1)));
 
 	      if (f77_exception_encountered)
 		(*current_liboctave_error_handler)