Trivial patch.
D.
--
David Bateman
David.Bateman@...
Motorola Labs - Paris +33 1 69 35 48 04 (Ph)
Parc Les Algorithmes, Commune de St Aubin +33 6 72 01 06 33 (Mob)
91193 Gif-Sur-Yvette FRANCE +33 1 69 35 77 01 (Fax)
The information contained in this communication has been classified as:
[x] General Business Information
[ ] Motorola Internal Use Only
[ ] Motorola Confidential Proprietary
# HG changeset patch
# User David Bateman <
dbateman@...>
# Date 1210781038 -7200
# Node ID fe52385fe6a325a5e6d5018cd222955c7abc16ff
# Parent 80c6707d0a901822ce4396d006cb35c57714de82
Typo DPBCON -> DGBCON
diff --git a/liboctave/ChangeLog b/liboctave/ChangeLog
--- a/liboctave/ChangeLog
+++ b/liboctave/ChangeLog
@@ -1,3 +1,8 @@ 2008-05-13 David Bateman <dbateman@fre
+2008-05-14 David Bateman <
dbateman@...>
+
+ * dSparse.cc: Replace some DGBCON with GPBCON where they are
+ incorrectly used.
+
2008-05-13 David Bateman <
dbateman@...>
* idx-vector.cc (IDX_VEC_REP::idx_vector_rep (const boolNDArray&)):
diff --git a/liboctave/dSparse.cc b/liboctave/dSparse.cc
--- a/liboctave/dSparse.cc
+++ b/liboctave/dSparse.cc
@@ -4457,7 +4457,7 @@ SparseMatrix::bsolve (MatrixType &mattyp
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 @@ SparseMatrix::bsolve (MatrixType &mattyp
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 @@ SparseMatrix::bsolve (MatrixType &mattyp
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 @@ SparseMatrix::bsolve (MatrixType &mattyp
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 @@ SparseMatrix::bsolve (MatrixType &mattyp
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
_______________________________________________
Bug-octave mailing list
Bug-octave@...
https://www.cae.wisc.edu/mailman/listinfo/bug-octave