remove initial algorithms from initial equations (they are called in…

… bound parameter equations), I have no clue what the reason is but is was done before also, maybe Lennart know the reason

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

Compiler/BackEnd/BackendEquation.mo

@@ -2208,4 +2208,14 @@ algorithm
   end match;
 end isArrayEquation;
 
+public function isNotAlgorithm
+  input BackendDAE.Equation inEqn;
+  output Boolean b;
+algorithm
+  b := match(inEqn)
+    case BackendDAE.ALGORITHM(source=_) then false;
+    else then true;
+  end match;
+end isNotAlgorithm;
+
 end BackendEquation;

Compiler/BackEnd/SimCodeUtil.mo

@@ -6307,8 +6307,11 @@ algorithm
     case(BackendDAE.DAE(eqs=eqs, shared=BackendDAE.SHARED(initialEqs=initialEqs)),_,_) 
       equation
         // initial_equation
-        numberOfInitialEquations = BackendDAEUtil.equationSize(initialEqs);
+        //numberOfInitialEquations = BackendDAEUtil.equationSize(initialEqs);
         initialEqs_lst = BackendDAEUtil.equationList(initialEqs);
+        // remove algorithms, I have no clue what the reason is but is was done before also
+        initialEqs_lst = List.select(initialEqs_lst,BackendEquation.isNotAlgorithm);
+        numberOfInitialEquations = BackendEquation.equationLstSize(initialEqs_lst);
         (residual_equations,uniqueEqIndex,tempvars) = createNonlinearResidualEquations(initialEqs_lst, iuniqueEqIndex, itempvars); 
 
         // [orderedVars] with start-values and fixed=true