Skip to content

Commit

Permalink
- bugfix c-standard
Browse files Browse the repository at this point in the history
- add utility.h

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@10417 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
  • Loading branch information
Jens Frenkel committed Nov 11, 2011
1 parent 410231c commit bceb1f8
Show file tree
Hide file tree
Showing 2 changed files with 2 additions and 2 deletions.
2 changes: 1 addition & 1 deletion SimulationRuntime/c/openmodelica_func.h
Expand Up @@ -50,6 +50,6 @@
#include "matrix.h"
#include "division.h"
#include "ModelicaUtilities.h"

#include "utility.h"

#endif
2 changes: 1 addition & 1 deletion SimulationRuntime/c/simulation/math-support/matrix.h
Expand Up @@ -219,8 +219,8 @@ void * _omc_hybrj_(void(*) (int *,double*,double*,double *,int*, int*),
integer nrhs = 1; /* number of righthand sides*/\
integer lda = n /* Leading dimension of A */; integer ldb=n; /* Leading dimension of b*/\
integer * ipiv = (integer*) calloc(n,sizeof(integer)); /* Pivott indices */ \
assert(ipiv != 0); \
integer info = 0; /* output */ \
assert(ipiv != 0); \
_omc_dgesv_(&n,&nrhs,&A[0],&lda,ipiv,&b[0],&ldb,&info); \
if (info < 0) { \
if (sim_verbose >= LOG_NONLIN_SYS) \
Expand Down

0 comments on commit bceb1f8

Please sign in to comment.