- solve linear systems with constant jacobian and variable b-Vector s…

…ymbolically with +d=constjac

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@25106 f25d12d1-65f4-0310-ae8a-bbce733d8d8e

Compiler/BackEnd/BackendDAEUtil.mo

@@ -8157,5 +8157,14 @@ algorithm
   end match;
 end expInt;
 
+public function makeSingleEquationComp
+  input Integer eqIdx;
+  input Integer varIdx;
+  output BackendDAE.StrongComponent comp;
+algorithm
+  comp := BackendDAE.SINGLEEQUATION(eqIdx,varIdx);
+end makeSingleEquationComp;
+
+
 annotation(__OpenModelica_Interface="backend");
 end BackendDAEUtil;

Compiler/BackEnd/HpcOmEqSystems.mo

@@ -693,7 +693,7 @@ algorithm
         true = intLe(listLength(tVarsIn),3);
         // apply Cramers Rule to this equation system
         (resEqs,_,addEqs,addVars) = applyCramerRule(jacValuesIn,tVarsIn);
-        comps = List.threadMap(eqIdcsIn,varIdcsIn,makeSingleEquationComp);
+        comps = List.threadMap(eqIdcsIn,varIdcsIn,BackendDAEUtil.makeSingleEquationComp);
       then (comps,resEqs,tVarsIn,addEqs,addVars);
     else
       equation
@@ -706,14 +706,6 @@ algorithm
   end matchcontinue;
 end buildEqSystemComponent;
 
-protected function makeSingleEquationComp
-  input Integer eqIdx;
-  input Integer varIdx;
-  output BackendDAE.StrongComponent comp;
-algorithm
-  comp := BackendDAE.SINGLEEQUATION(eqIdx,varIdx);
-end makeSingleEquationComp;
-
 
 protected function buildLinearJacobian "builds the jacobian out of the given jacobian-entries
 author:Waurich TUD 2013-12"