Avoid max({}) in Modelica.Math.Matrices.nullSpace

See e.g. the use of this function in ModelicaTest.Math.TestMatrices3.
beutlich · Jul 12, 2021 · 9a9017a · 9a9017a
1 parent 202251a
commit 9a9017a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Modelica/Math/package.mo b/Modelica/Math/package.mo
@@ -2949,9 +2949,9 @@ r = 3.162;
     (sigma,,V) := Modelica.Math.Matrices.singularValues(A);
     V := transpose(V);
     // rank computation
-    eps := max(size(A, 1), size(A, 2))*max(sigma)*Modelica.Constants.eps;
     rank := 0;
     if n > 0 then
+      eps := max(size(A, 1), size(A, 2)) * max(sigma) * Modelica.Constants.eps;
       while i > 0 loop
         if sigma[i] > eps then
           rank := i;