- fix call to min

lochel · lochel · commit b76a1d6ec0a8 · 2015-01-30T10:31:23.000Z
git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@24332 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
diff --git a/SimulationRuntime/c/simulation/solver/nonlinearSolverHomotopy.c b/SimulationRuntime/c/simulation/solver/nonlinearSolverHomotopy.c
@@ -1604,7 +1604,7 @@ static int homotopyAlgorithm(DATA_HOMOTOPY* solverData, double *x)
       numSteps++;
       if (bend < adaptBend/10.0)
       {
-        tau = min(tauMax, tau*2);
+        tau = fmin(tauMax, tau*2);
         debugDouble(LOG_NLS_HOMOTOPY, "+++ increasing step size, tau =", tau);
       }
       vecCopy(solverData->m, solverData->y1, solverData->y0);

Original file line number	Diff line number	Diff line change
`@@ -1604,7 +1604,7 @@ static int homotopyAlgorithm(DATA_HOMOTOPY* solverData, double *x)`
`1604`	`1604`	`numSteps++;`
`1605`	`1605`	`if (bend < adaptBend/10.0)`
`1606`	`1606`	`{`
`1607`		`- tau = min(tauMax, tau*2);`
	`1607`	`+ tau = fmin(tauMax, tau*2);`
`1608`	`1608`	`debugDouble(LOG_NLS_HOMOTOPY, "+++ increasing step size, tau =", tau);`
`1609`	`1609`	`}`
`1610`	`1610`	`vecCopy(solverData->m, solverData->y1, solverData->y0);`