# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1202877920 18000
# Node ID d7c5b101bb0f78fb12322f924d41e3941efebbc9
# Parent  8b22207ef9ca72a3be34f331da6aeb039d07f9aa
ilaenv --> xilaenv

diff --git a/libcruft/ChangeLog b/libcruft/ChangeLog
--- a/libcruft/ChangeLog
+++ b/libcruft/ChangeLog
@@ -1,6 +1,7 @@
 2008-02-12  John W. Eaton  <jwe@octave.org>
 
 	* lapack-xtra/xilaenv.f: New wrapper for Fortran function ilaenv.
+	* lapack-xtra/Makefile.in (FSRC): Add it to the list.
 
 2008-02-06  John W. Eaton  <jwe@octave.org>
 
diff --git a/libcruft/lapack-xtra/Makefile.in b/libcruft/lapack-xtra/Makefile.in
--- a/libcruft/lapack-xtra/Makefile.in
+++ b/libcruft/lapack-xtra/Makefile.in
@@ -26,7 +26,7 @@
 
 EXTERNAL_DISTFILES = $(DISTFILES)
 
-FSRC = xdlamch.f xdlange.f xzlange.f
+FSRC = xdlamch.f xdlange.f xilaenv.f xzlange.f
 
 include $(TOPDIR)/Makeconf
 
diff --git a/liboctave/CMatrix.cc b/liboctave/CMatrix.cc
--- a/liboctave/CMatrix.cc
+++ b/liboctave/CMatrix.cc
@@ -67,9 +67,9 @@
   F77_FUNC (xilaenv, XILAENV) (const octave_idx_type&, F77_CONST_CHAR_ARG_DECL,
 			       F77_CONST_CHAR_ARG_DECL,
 			       const octave_idx_type&, const octave_idx_type&,
-			       const octave_idx_type&, const octave_idx_type&
-			       F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL,
-			       octave_idx_type&);
+			       const octave_idx_type&, const octave_idx_type&,
+			       octave_idx_type&
+			       F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL);
 
   F77_RET_T
   F77_FUNC (zgebal, ZGEBAL) (F77_CONST_CHAR_ARG_DECL,
@@ -2503,9 +2503,9 @@
       octave_idx_type smlsiz;
       F77_FUNC (xilaenv, XILAENV) (9, F77_CONST_CHAR_ARG2 ("ZGELSD", 6),
 				   F77_CONST_CHAR_ARG2 (" ", 1),
-				   0, 0, 0, 0
+				   0, 0, 0, 0, smlsiz
 				   F77_CHAR_ARG_LEN (6)
-				   F77_CHAR_ARG_LEN (1), smlsiz);
+				   F77_CHAR_ARG_LEN (1));
 
       // We compute the size of rwork and iwork because ZGELSD in
       // older versions of LAPACK does not return them on a query
diff --git a/liboctave/dMatrix.cc b/liboctave/dMatrix.cc
--- a/liboctave/dMatrix.cc
+++ b/liboctave/dMatrix.cc
@@ -59,13 +59,13 @@
 
 extern "C"
 {
-  octave_idx_type
+  F77_RET_T
   F77_FUNC (xilaenv, XILAENV) (const octave_idx_type&, F77_CONST_CHAR_ARG_DECL,
 			       F77_CONST_CHAR_ARG_DECL,
 			       const octave_idx_type&, const octave_idx_type&,
-			       const octave_idx_type&, const octave_idx_type&
-			       F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL,
-			       octave_idx_type&);
+			       const octave_idx_type&, const octave_idx_type&,
+			       octave_idx_type&
+			       F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL);
 
   F77_RET_T
   F77_FUNC (dgebal, DGEBAL) (F77_CONST_CHAR_ARG_DECL,
@@ -2114,9 +2114,9 @@
       octave_idx_type smlsiz;
       F77_FUNC (xilaenv, XILAENV) (9, F77_CONST_CHAR_ARG2 ("DGELSD", 6),
 				   F77_CONST_CHAR_ARG2 (" ", 1),
-				   0, 0, 0, 0
+				   0, 0, 0, 0, smlsiz
 				   F77_CHAR_ARG_LEN (6)
-				   F77_CHAR_ARG_LEN (1), smlsiz);
+				   F77_CHAR_ARG_LEN (1));
 
       // We compute the size of iwork because DGELSD in older versions
       // of LAPACK does not return it on a query call.