]> https://gitweb.dealii.org/ - dealii-svn.git/commitdiff
Fix silly bug.
authorwolf <wolf@0785d39b-7218-0410-832d-ea1e28bc413d>
Thu, 12 Apr 2001 15:12:25 +0000 (15:12 +0000)
committerwolf <wolf@0785d39b-7218-0410-832d-ea1e28bc413d>
Thu, 12 Apr 2001 15:12:25 +0000 (15:12 +0000)
git-svn-id: https://svn.dealii.org/trunk@4454 0785d39b-7218-0410-832d-ea1e28bc413d

deal.II/deal.II/source/numerics/derivative_approximation.cc

index c079bb176cf375a8153cfd758e3c14a14173d3a2..439c5b09c7d007db116c4c9471d44f4e92c370a3 100644 (file)
@@ -304,7 +304,7 @@ C DEFINE A TEST MATRIX
                                   // degenerate case with three
                                   // identical eigenvalues. check
                                   // this first
-  if (R < 1e-14*am)
+  if (R < 1e-14*std::fabs(am))
     EE[0] = EE[1] = EE[2] = am;
   else
     {
@@ -313,7 +313,7 @@ C DEFINE A TEST MATRIX
       const double R3 = R*R*R;
       const double XX = 4. * J3 / R3;
       const double YY = 1. - std::fabs(XX);
-      
+
       Assert (YY > -1e-14, ExcInternalError());
       
       if (YY < 0)
@@ -332,8 +332,6 @@ C DEFINE A TEST MATRIX
        };
     };
 
-  cout << "EE=" << EE[0] << ' ' << EE[1] << ' ' << EE[2] << endl;
-  
   return std::max (std::fabs (EE[0]),
                   std::max (std::fabs (EE[1]),
                             std::fabs (EE[2])));

In the beginning the Universe was created. This has made a lot of people very angry and has been widely regarded as a bad move.

Douglas Adams


Typeset in Trocchi and Trocchi Bold Sans Serif.