Use correct types

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@17641 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Oct 10, 2013 · ef3990f · ef3990f
1 parent ad82e9e
commit ef3990f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/SimulationRuntime/c/simulation/solver/dassl.c b/SimulationRuntime/c/simulation/solver/dassl.c
@@ -738,7 +738,7 @@ int jacA_num(DATA* data, double *t, double *y, double *yprime, double *delta, do
   double delta_h = dasslData->sqrteps;
   double delta_hh,delta_hhh, deltaInv;
   double ysave;
-  integer ires;
+  fortran_integer ires;
   int i,j;
 
   for(i = data->modelData.nStates-1; i >=0 ; i--)
@@ -820,7 +820,7 @@ int jacA_numColored(DATA* data, double *t, double *y, double *yprime, double *de
   DASSL_DATA* dasslData = (DASSL_DATA*)(void*)((double**)rpar)[1];
   double delta_h = dasslData->sqrteps;
   double delta_hhh;
-  integer ires;
+  fortran_integer ires;
   double* delta_hh = dasslData->delta_hh;
   double* ysave = dasslData->ysave;