# HG changeset patch # User David Bateman # Date 1210781038 -7200 # Node ID bd72c5e49dcb39aa48447b1567216cbd43091a23 # Parent 3c08ffee113776baf069e52c527708298eaa934e Typo DPBCON -> DGBCON diff -r 3c08ffee1137 -r bd72c5e49dcb liboctave/ChangeLog --- a/liboctave/ChangeLog Tue May 13 17:45:35 2008 +0200 +++ b/liboctave/ChangeLog Wed May 14 18:03:58 2008 +0200 @@ -1,5 +1,8 @@ 2008-05-19 David Bateman + * dSparse.cc: Replace some DGBCON with GPBCON where they are + incorrectly used. + * idx-vector.cc (IDX_VEC_REP::idx_vector_rep (const boolNDArray&)): If len is zero size the index vector in the same manner as if len is not zero. diff -r 3c08ffee1137 -r bd72c5e49dcb liboctave/dSparse.cc --- a/liboctave/dSparse.cc Tue May 13 17:45:35 2008 +0200 +++ b/liboctave/dSparse.cc Wed May 14 18:03:58 2008 +0200 @@ -4514,7 +4514,7 @@ Array 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 @@ -4790,7 +4790,7 @@ Array 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 @@ -5145,7 +5145,7 @@ Array 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 @@ -5322,7 +5322,7 @@ Array 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 @@ -5495,7 +5495,7 @@ Array 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