COMP: EigenMatrix: remove unused iter variable

applications/test/matrices/EigenMatrix/Test-EigenMatrix.C

@@ -5,7 +5,7 @@
     \\  /    A nd           | www.openfoam.com
      \\/     M anipulation  |
 -------------------------------------------------------------------------------
-    Copyright (C) 2020 OpenCFD Ltd.
+    Copyright (C) 2020-2022 OpenCFD Ltd.
 -------------------------------------------------------------------------------
 License
     This file is derivative work of OpenFOAM.
@@ -49,20 +49,6 @@ using namespace Foam;
 
 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
 
-// Return the absolute tolerance value for bitwise comparisons of floatScalars
-floatScalar getTol(floatScalar)
-{
-    return 1e-2;
-}
-
-
-// Return the absolute tolerance value for bitwise comparisons of doubleScalars
-doubleScalar getTol(doubleScalar)
-{
-    return 1e-10;
-}
-
-
 // Create each constructor of EigenMatrix<Type>, and print output
 template<class Type>
 void test_constructors(Type)

src/OpenFOAM/matrices/EigenMatrix/EigenMatrix.C

@@ -9,7 +9,7 @@
     Contributed 2018-07-31 to the OpenFOAM Foundation
     Copyright (C) 2018 OpenFOAM Foundation
     Copyright (C) 2019-2020 Alberto Passalacqua
-    Copyright (C) 2020 OpenCFD Ltd.
+    Copyright (C) 2020-2022 OpenCFD Ltd.
 -------------------------------------------------------------------------------
 License
     This file is part of OpenFOAM.
@@ -221,12 +221,8 @@ void Foam::EigenMatrix<cmptType>::symmTridiagonalQL()
         // If m == l, EValsRe_[l] is an eigenvalue, otherwise, iterate
         if (m > l)
         {
-            label iter = 0;
-
             do
             {
-                iter += 1;
-
                 // Compute implicit shift
                 cmptType g = EValsRe_[l];
                 cmptType p = (EValsRe_[l + 1] - g)/(2.0*EValsIm_[l]);