Mercurial > octave-nkf
diff liboctave/dMatrix.cc @ 7477:8b22207ef9ca
ilaenv --> xilaenv
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Tue, 12 Feb 2008 21:13:21 -0500 |
| parents | e9f10b4c05cf |
| children | d7c5b101bb0f |
line wrap: on
line diff
--- a/liboctave/dMatrix.cc Tue Feb 12 21:04:27 2008 -0500 +++ b/liboctave/dMatrix.cc Tue Feb 12 21:13:21 2008 -0500 @@ -60,11 +60,12 @@ extern "C" { octave_idx_type - F77_FUNC (ilaenv, ILAENV) (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); + 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&); F77_RET_T F77_FUNC (dgebal, DGEBAL) (F77_CONST_CHAR_ARG_DECL, @@ -2110,12 +2111,12 @@ Array<double> work (1); - const octave_idx_type smlsiz - = F77_FUNC (ilaenv, ILAENV) (9, F77_CONST_CHAR_ARG2 ("DGELSD", 6), - F77_CONST_CHAR_ARG2 (" ", 1), - 0, 0, 0, 0 - F77_CHAR_ARG_LEN (6) - F77_CHAR_ARG_LEN (1)); + octave_idx_type smlsiz; + F77_FUNC (xilaenv, XILAENV) (9, F77_CONST_CHAR_ARG2 ("DGELSD", 6), + F77_CONST_CHAR_ARG2 (" ", 1), + 0, 0, 0, 0 + F77_CHAR_ARG_LEN (6) + F77_CHAR_ARG_LEN (1), smlsiz); // We compute the size of iwork because DGELSD in older versions // of LAPACK does not return it on a query call.