Mercurial > octave
diff liboctave/dSparse.cc @ 6242:64bad7c6a607
[project @ 2007-01-16 07:03:51 by jwe]
author | jwe |
---|---|
date | Tue, 16 Jan 2007 07:03:52 +0000 |
parents | 3c92b8d892dd |
children | 7e958a1532c6 |
line wrap: on
line diff
--- a/liboctave/dSparse.cc Thu Jan 11 07:35:52 2007 +0000 +++ b/liboctave/dSparse.cc Tue Jan 16 07:03:52 2007 +0000 @@ -59,8 +59,10 @@ extern "C" { F77_RET_T - F77_FUNC (dgbtrf, DGBTRF) (const octave_idx_type&, const int&, const octave_idx_type&, - const octave_idx_type&, double*, const octave_idx_type&, octave_idx_type*, octave_idx_type&); + F77_FUNC (dgbtrf, DGBTRF) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, const octave_idx_type&, + double*, const octave_idx_type&, + octave_idx_type*, octave_idx_type&); F77_RET_T F77_FUNC (dgbtrs, DGBTRS) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, @@ -4536,9 +4538,9 @@ if (typ == MatrixType::Banded) { // Create the storage for the banded form of the sparse matrix - int n_upper = mattype.nupper (); - int n_lower = mattype.nlower (); - int ldm = n_upper + 2 * n_lower + 1; + octave_idx_type n_upper = mattype.nupper (); + octave_idx_type n_lower = mattype.nlower (); + octave_idx_type ldm = n_upper + 2 * n_lower + 1; Matrix m_band (ldm, nc); double *tmp_data = m_band.fortran_vec (); @@ -4692,8 +4694,8 @@ if (typ == MatrixType::Banded_Hermitian) { - int n_lower = mattype.nlower (); - int ldm = n_lower + 1; + octave_idx_type n_lower = mattype.nlower (); + octave_idx_type ldm = n_lower + 1; Matrix m_band (ldm, nc); double *tmp_data = m_band.fortran_vec (); @@ -5206,9 +5208,9 @@ if (typ == MatrixType::Banded) { // Create the storage for the banded form of the sparse matrix - int n_upper = mattype.nupper (); - int n_lower = mattype.nlower (); - int ldm = n_upper + 2 * n_lower + 1; + octave_idx_type n_upper = mattype.nupper (); + octave_idx_type n_lower = mattype.nlower (); + octave_idx_type ldm = n_upper + 2 * n_lower + 1; Matrix m_band (ldm, nc); double *tmp_data = m_band.fortran_vec (); @@ -5390,8 +5392,8 @@ if (typ == MatrixType::Banded_Hermitian) { - int n_lower = mattype.nlower (); - int ldm = n_lower + 1; + octave_idx_type n_lower = mattype.nlower (); + octave_idx_type ldm = n_lower + 1; Matrix m_band (ldm, nc); double *tmp_data = m_band.fortran_vec (); @@ -5584,9 +5586,9 @@ if (typ == MatrixType::Banded) { // Create the storage for the banded form of the sparse matrix - int n_upper = mattype.nupper (); - int n_lower = mattype.nlower (); - int ldm = n_upper + 2 * n_lower + 1; + octave_idx_type n_upper = mattype.nupper (); + octave_idx_type n_lower = mattype.nlower (); + octave_idx_type ldm = n_upper + 2 * n_lower + 1; Matrix m_band (ldm, nc); double *tmp_data = m_band.fortran_vec ();