Mercurial > hg > octave-nkf

changeset 8801:f3ff420fccf7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
eliminate some unused static variables and functions
author John W. Eaton <jwe@octave.org>
date Wed, 18 Feb 2009 11:20:31 -0500
parents 19a3769fe716
children 061780d8da1e
files liboctave/CMatrix.cc liboctave/ChangeLog liboctave/dMatrix.cc liboctave/fCMatrix.cc liboctave/fMatrix.cc
diffstat 5 files changed, 8 insertions(+), 88 deletions(-) [+]
line wrap: on
line diff
--- a/liboctave/CMatrix.cc
+++ b/liboctave/CMatrix.cc
@@ -2875,28 +2875,6 @@
   return retval;
 }
 
-// Constants for matrix exponential calculation.
-
-static double padec [] =
-{
-  5.0000000000000000e-1,
-  1.1666666666666667e-1,
-  1.6666666666666667e-2,
-  1.6025641025641026e-3,
-  1.0683760683760684e-4,
-  4.8562548562548563e-6,
-  1.3875013875013875e-7,
-  1.9270852604185938e-9,
-};
-
-static void
-solve_singularity_warning (double rcon)
-{
-  (*current_liboctave_warning_handler) 
-    ("singular matrix encountered in expm calculation, rcond = %g",
-     rcon);
-}
-
 // column vector by row vector -> matrix operations
 
 ComplexMatrix
--- a/liboctave/ChangeLog
+++ b/liboctave/ChangeLog
@@ -1,3 +1,11 @@
+2009-02-18  John W. Eaton  <jwe@octave.org>
+
+	* dMatrix.cc (padec, solve_singularity_warning): Delete unused
+	static variable and function.
+	* CMatrix.cc (padec, solve_singularity_warning): Ditto.
+	* fMatrix.cc (padec, solve_singularity_warning): Ditto.
+	* fCMatrix.cc (padec, solve_singularity_warning): Ditto.
+
 2009-02-18  Jaroslav Hajek  <highegg@gmail.com>
 
 	* Array.cc (Array<T>::resize (const dim_vector&)): Check for negative
--- a/liboctave/dMatrix.cc
+++ b/liboctave/dMatrix.cc
@@ -2520,28 +2520,6 @@
   return tmp.lssolve (b, info, rank, rcon);
 }
 
-// Constants for matrix exponential calculation.
-
-static double padec [] =
-{
-  5.0000000000000000e-1,
-  1.1666666666666667e-1,
-  1.6666666666666667e-2,
-  1.6025641025641026e-3,
-  1.0683760683760684e-4,
-  4.8562548562548563e-6,
-  1.3875013875013875e-7,
-  1.9270852604185938e-9,
-};
-
-static void
-solve_singularity_warning (double rcon)
-{
-  (*current_liboctave_warning_handler) 
-    ("singular matrix encountered in expm calculation, rcond = %g",
-     rcon);
-}
-
 Matrix&
 Matrix::operator += (const DiagMatrix& a)
 {
--- a/liboctave/fCMatrix.cc
+++ b/liboctave/fCMatrix.cc
@@ -2869,28 +2869,6 @@
   return retval;
 }
 
-// Constants for matrix exponential calculation.
-
-static float padec [] =
-{
-  5.0000000000000000e-1,
-  1.1666666666666667e-1,
-  1.6666666666666667e-2,
-  1.6025641025641026e-3,
-  1.0683760683760684e-4,
-  4.8562548562548563e-6,
-  1.3875013875013875e-7,
-  1.9270852604185938e-9,
-};
-
-static void
-solve_singularity_warning (float rcon)
-{
-  (*current_liboctave_warning_handler) 
-    ("singular matrix encountered in expm calculation, rcond = %g",
-     rcon);
-}
-
 // column vector by row vector -> matrix operations
 
 FloatComplexMatrix
--- a/liboctave/fMatrix.cc
+++ b/liboctave/fMatrix.cc
@@ -2519,28 +2519,6 @@
   return tmp.lssolve (b, info, rank, rcon);
 }
 
-// Constants for matrix exponential calculation.
-
-static float padec [] =
-{
-  5.0000000000000000e-1,
-  1.1666666666666667e-1,
-  1.6666666666666667e-2,
-  1.6025641025641026e-3,
-  1.0683760683760684e-4,
-  4.8562548562548563e-6,
-  1.3875013875013875e-7,
-  1.9270852604185938e-9,
-};
-
-static void
-solve_singularity_warning (float rcon)
-{
-  (*current_liboctave_warning_handler) 
-    ("singular matrix encountered in expm calculation, rcond = %g",
-     rcon);
-}
-
 FloatMatrix&
 FloatMatrix::operator += (const FloatDiagMatrix& a)
 {