Mercurial > octave
changeset 22949:8b56cd9867aa
* eigs-base.cc: Use F77_INT in calls to Fortran subroutines.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Mon, 26 Dec 2016 21:13:09 -0500 |
parents | 7e447335b839 |
children | f2fae9bd5cec |
files | liboctave/numeric/eigs-base.cc |
diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/liboctave/numeric/eigs-base.cc Mon Dec 26 21:11:20 2016 -0500 +++ b/liboctave/numeric/eigs-base.cc Mon Dec 26 21:13:09 2016 -0500 @@ -139,8 +139,8 @@ static bool vector_product (const Matrix& m, const double *x, double *y) { - octave_idx_type nr = m.rows (); - octave_idx_type nc = m.cols (); + F77_INT nr = to_f77_int (m.rows ()); + F77_INT nc = to_f77_int (m.cols ()); F77_XFCN (dgemv, DGEMV, (F77_CONST_CHAR_ARG2 ("N", 1), nr, nc, 1.0, m.data (), nr, @@ -172,8 +172,8 @@ static bool vector_product (const ComplexMatrix& m, const Complex *x, Complex *y) { - octave_idx_type nr = m.rows (); - octave_idx_type nc = m.cols (); + F77_INT nr = to_f77_int (m.rows ()); + F77_INT nc = to_f77_int (m.cols ()); F77_XFCN (zgemv, ZGEMV, (F77_CONST_CHAR_ARG2 ("N", 1), nr, nc, 1.0, F77_CONST_DBLE_CMPLX_ARG (m.data ()),