ODEPACK solvers: typo fix in Ex-daskr.c 71/11371/2
Paul BIGNIER [Tue, 23 Apr 2013 15:18:48 +0000 (17:18 +0200)]
"int iFour" unnecessary, and  error test on error flag obvious

Change-Id: Idb487520d538ef91e5cfdabf2b8b34da13a6a522

scilab/modules/differential_equations/sci_gateway/c/Ex-daskr.c

index e1cea42..ddfc066 100644 (file)
@@ -20,7 +20,6 @@ int C2F(pjac1)(resfunc res, int *ires, int *nequations, double *tOld, double *ac
     double ysave = 0;
     double ypsave = 0;
     double* e = NULL;
-    int iFour = 4;
 
     double SQuround = sqrt(C2F(dlamch)("P"));
 
@@ -38,7 +37,7 @@ int C2F(pjac1)(resfunc res, int *ires, int *nequations, double *tOld, double *ac
         actualP[i] += *cj * del;
         res(&tx, actual, actualP, e, ires, rpar, ipar);
 
-        if (res < 0)
+        if (ires < 0)
         {
             return 0;
         }