@@ -50,7 +50,6 @@ inline void allocate_der_struct(OptDataStructure *s, OptDataDim * dim, DATA* dat
5050 const int np = dim -> np ;
5151 const int nJ = dim -> nJ ;
5252 const int nJ2 = dim -> nJ2 ;
53- const int nx = dim -> nx ;
5453 int i , j , k ;
5554 char * cflags ;
5655
@@ -174,15 +173,11 @@ inline void allocate_der_struct(OptDataStructure *s, OptDataDim * dim, DATA* dat
174173 * author: Vitalij Ruge
175174 */
176175static inline void local_jac_struct (DATA * data , OptDataDim * dim , OptDataStructure * s , const modelica_real * const vnom ){
177- const int nJ = dim -> nJ ;
178176 int sizeCols ;
179177 int maxColors ;
180- int i , ii , j , l , index , tmp_index , jj , k , tmpnJ ;
178+ int i ,ii , j , l , index , tmp_index , tmpnJ ;
181179 unsigned int * lindex , * cC , * pindex ;
182180
183-
184- short index_d_la ;
185- const short index_d_ma = s -> derIndex [0 ];
186181 s -> lindex = (unsigned int * * )malloc (5 * sizeof (unsigned int * ));
187182 s -> seedVec = (modelica_real * * * )malloc (5 * sizeof (modelica_real * * ));
188183
@@ -196,7 +191,6 @@ static inline void local_jac_struct(DATA * data, OptDataDim * dim, OptDataStruct
196191 s -> indexCon3 = (int * )malloc (dim -> nc * sizeof (int ));
197192
198193 for (index = 2 ; index < 4 ; ++ index ){
199- index_d_la = s -> derIndex [index - 1 ];
200194
201195 if (s -> matrix [index ]){
202196 tmp_index = index - 2 ;
@@ -212,8 +206,6 @@ static inline void local_jac_struct(DATA * data, OptDataDim * dim, OptDataStruct
212206 lindex = s -> lindex [index ];
213207 s -> seedVec [index ] = (modelica_real * * )malloc ((maxColors )* sizeof (modelica_real * ));
214208 free (data -> simulationInfo .analyticJacobians [index ].sparsePattern .leadindex );
215- jj = 0 ;
216- k = 0 ;
217209 /**********************/
218210 if (sizeCols > 0 ){
219211 for (ii = 1 ; ii < maxColors ; ++ ii ){
@@ -317,7 +309,6 @@ static inline void local_jac_struct(DATA * data, OptDataDim * dim, OptDataStruct
317309 */
318310static inline void print_local_jac_struct (DATA * data , OptDataDim * dim , OptDataStructure * s ){
319311
320- modelica_boolean * * J ;
321312 const int nv = dim -> nv ;
322313 const int nJ = dim -> nJ ;
323314
@@ -345,7 +336,6 @@ static inline void print_local_jac_struct(DATA * data, OptDataDim * dim, OptData
345336 printf ("\nmayer" );
346337 printf ("\n-------------------------------------------------------" );
347338 printf ("\n" );
348- J = s -> J [1 ];
349339 for (j = 0 ; j < nv ; ++ j )
350340 printf ("%s " , (s -> gradM [j ])? "*" :"0" );
351341 }
@@ -424,7 +414,6 @@ static inline void local_hessian_struct(DATA * data, OptDataDim * dim, OptDataSt
424414
425415 /***********************************/
426416 if (s -> mayer ){
427- J = s -> J [1 ];
428417 for (i = 0 ; i < nv ; ++ i ){
429418 for (j = 0 ; j < nv ; ++ j ){
430419 if (s -> gradM [i ]* s -> gradM [j ])
0 commit comments