Xcos solvers : Sundials explicit Runge-Kutta 4(5) implem and interface
[scilab.git] / scilab / modules / scicos / src / c / scicos.c
index 955fa37..9bc5851 100644 (file)
@@ -823,7 +823,11 @@ int C2F(scicos)(double *x_in, int *xptr_in, double *z__,
         {
             cossim(t0);
         }
-        else if (C2F(cmsolver).solver == 5)   /*  DOPRI: Method: Dormand-Price, Nonlinear solver= FUNCTIONAL */
+        else if (C2F(cmsolver).solver == 5)   /*  DOPRI: Method: Dormand-Price, Nonlinear solver=  */
+        {
+            cossim(t0);
+        }
+        else if (C2F(cmsolver).solver == 6)   /*  RK45: Method: Runge-Kutta, Nonlinear solver=  */
         {
             cossim(t0);
         }
@@ -1381,6 +1385,9 @@ static void cossim(double *told)
             case 5:
                 cvode_mem = CVodeCreate(CV_DOPRI, CV_FUNCTIONAL);
                 break;
+            case 6:
+                cvode_mem = CVodeCreate(CV_ExpRK, CV_FUNCTIONAL);
+                break;
         }
 
         /*    cvode_mem = CVodeCreate(CV_ADAMS, CV_FUNCTIONAL);*/