- fixed small bug in calculate analytical jacobian

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@10183 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Oct 20, 2011 · e6403a6 · e6403a6
1 parent 1a3f852
commit e6403a6
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/c_runtime/solver_main.cpp b/c_runtime/solver_main.cpp
@@ -110,10 +110,9 @@ dummy_Jacobian(double *t, double *y, double *yprime, double *pd,
 int
 Jacobian(double *t, double *y, double *yprime, double *pd, double *cj,
          double *rpar, fortran_integer* ipar) {
-  int size_A = globalData->nStates;
-  double* matrixA = new double[size_A * size_A];
   double* backupStates;
   double backupTime;
+  backupStates = globalData->states;
   backupTime = globalData->timeValue;
 
   globalData->states = y;
@@ -127,7 +126,6 @@ Jacobian(double *t, double *y, double *yprime, double *pd, double *cj,
   }
   globalData->states = backupStates;
   globalData->timeValue = backupTime;
-  delete[] matrixA;
 
   return 0;
 }