Mercurial > hg > octave-lyh
changeset 7776:4c3665e65bcd
Typo DPBCON -> DGBCON
author | David Bateman <dbateman@free.fr> |
---|---|
date | Wed, 14 May 2008 18:03:58 +0200 |
parents | c10d77387d96 |
children | 221fe75ac5c9 |
files | liboctave/ChangeLog liboctave/dSparse.cc |
diffstat | 2 files changed, 10 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/liboctave/ChangeLog +++ b/liboctave/ChangeLog @@ -1,3 +1,8 @@ +2008-05-19 David Bateman <dbateman@free.fr> + + * dSparse.cc: Replace some DGBCON with GPBCON where they are + incorrectly used. + 2008-05-13 David Bateman <dbateman@free.fr> * idx-vector.cc (IDX_VEC_REP::idx_vector_rep (const boolNDArray&)):
--- a/liboctave/dSparse.cc +++ b/liboctave/dSparse.cc @@ -4457,7 +4457,7 @@ Array<octave_idx_type> iz (nr); octave_idx_type *piz = iz.fortran_vec (); - F77_XFCN (dpbcon, DGBCON, + F77_XFCN (dpbcon, DPBCON, (F77_CONST_CHAR_ARG2 (&job, 1), nr, n_lower, tmp_data, ldm, anorm, rcond, pz, piz, err @@ -4705,7 +4705,7 @@ Array<octave_idx_type> iz (nr); octave_idx_type *piz = iz.fortran_vec (); - F77_XFCN (dpbcon, DGBCON, + F77_XFCN (dpbcon, DPBCON, (F77_CONST_CHAR_ARG2 (&job, 1), nr, n_lower, tmp_data, ldm, anorm, rcond, pz, piz, err @@ -5025,7 +5025,7 @@ Array<octave_idx_type> iz (nr); octave_idx_type *piz = iz.fortran_vec (); - F77_XFCN (dpbcon, DGBCON, + F77_XFCN (dpbcon, DPBCON, (F77_CONST_CHAR_ARG2 (&job, 1), nr, n_lower, tmp_data, ldm, anorm, rcond, pz, piz, err @@ -5176,7 +5176,7 @@ Array<octave_idx_type> iz (nr); octave_idx_type *piz = iz.fortran_vec (); - F77_XFCN (dpbcon, DGBCON, + F77_XFCN (dpbcon, DPBCON, (F77_CONST_CHAR_ARG2 (&job, 1), nr, n_lower, tmp_data, ldm, anorm, rcond, pz, piz, err @@ -5325,7 +5325,7 @@ Array<octave_idx_type> iz (nr); octave_idx_type *piz = iz.fortran_vec (); - F77_XFCN (dpbcon, DGBCON, + F77_XFCN (dpbcon, DPBCON, (F77_CONST_CHAR_ARG2 (&job, 1), nr, n_lower, tmp_data, ldm, anorm, rcond, pz, piz, err