- initialize spare structure for jacobian A if qss solver is used

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@24902 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Mar 4, 2015 · 9e24c0a · 9e24c0a
1 parent 63ea0b9
commit 9e24c0a
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/SimulationRuntime/c/simulation/solver/perform_qss_simulation.c b/SimulationRuntime/c/simulation/solver/perform_qss_simulation.c
@@ -93,6 +93,19 @@ int prefixedName_performQSSSimulation(DATA* data, SOLVER_INFO* solverInfo)
 
   warningStreamPrint(LOG_STDOUT, 0, "This QSS method is under development and should not be used yet.");
 
+  if (data->callback->initialAnalyticJacobianA(data))
+  {
+    if(data->modelData.nStates == 1) /* TODO: is it the dummy state? */
+    {
+      infoStreamPrint(LOG_SOLVER, 0, "No SparsePattern, since there are no states! Switch back to normal.");
+    }
+    else
+    {
+      infoStreamPrint(LOG_STDOUT, 0, "Jacobian or SparsePattern is not generated or failed to initialize! Switch back to normal.");
+    }
+  }
+  printSparseStructure(data, LOG_SOLVER);
+
   /***** Start main simulation loop *****/
   while(solverInfo->currentTime < simInfo->stopTime)
   {