diff --git a/src/arkode/arkode_forcingstep.c b/src/arkode/arkode_forcingstep.c index 48fc14954e..07d3075b3b 100644 --- a/src/arkode/arkode_forcingstep.c +++ b/src/arkode/arkode_forcingstep.c @@ -96,7 +96,7 @@ static int forcingStep_Init(ARKodeMem ark_mem, * state in case a user provided a different initial condition for the * ForcingStep integrator and SUNStepper. */ SUNErrCode err = SUNStepper_Reset(step_mem->stepper[1], ark_mem->tn, - ark_mem->yn); + ark_mem->yn, 0); if (err != SUN_SUCCESS) { arkProcessError(ark_mem, ARK_SUNSTEPPER_ERR, __LINE__, __func__, __FILE__, @@ -119,7 +119,7 @@ static int forcingStep_Reset(ARKodeMem ark_mem, sunrealtype tR, N_Vector yR) int retval = forcingStep_AccessStepMem(ark_mem, __func__, &step_mem); if (retval != ARK_SUCCESS) { return retval; } - SUNErrCode err = SUNStepper_Reset(step_mem->stepper[0], tR, yR); + SUNErrCode err = SUNStepper_Reset(step_mem->stepper[0], tR, yR, 0); if (err != SUN_SUCCESS) { arkProcessError(ark_mem, ARK_SUNSTEPPER_ERR, __LINE__, __func__, __FILE__, @@ -127,7 +127,7 @@ static int forcingStep_Reset(ARKodeMem ark_mem, sunrealtype tR, N_Vector yR) return ARK_SUNSTEPPER_ERR; } - err = SUNStepper_Reset(step_mem->stepper[1], tR, yR); + err = SUNStepper_Reset(step_mem->stepper[1], tR, yR, 0); if (err != SUN_SUCCESS) { arkProcessError(ark_mem, ARK_SUNSTEPPER_ERR, __LINE__, __func__, __FILE__, @@ -239,7 +239,7 @@ static int forcingStep_TakeStep(ARKodeMem ark_mem, sunrealtype* dsmPtr, /* Evolve stepper 0 on its own */ SUNLogInfo(ARK_LOGGER, "begin-partition", "partition = 0"); - SUNErrCode err = SUNStepper_Reset(s0, ark_mem->tn, ark_mem->yn); + SUNErrCode err = SUNStepper_Reset(s0, ark_mem->tn, ark_mem->yn, 0); if (err != SUN_SUCCESS) { SUNLogInfo(ARK_LOGGER, "end-partition", diff --git a/src/arkode/arkode_mristep.c b/src/arkode/arkode_mristep.c index 0c334a86d8..687c7fed39 100644 --- a/src/arkode/arkode_mristep.c +++ b/src/arkode/arkode_mristep.c @@ -4715,7 +4715,7 @@ int mriStepInnerStepper_ResetSUNStepper(MRIStepInnerStepper stepper, sunrealtype tR, N_Vector yR) { SUNStepper sunstepper = (SUNStepper)stepper->content; - SUNErrCode err = SUNStepper_Reset(sunstepper, tR, yR); + SUNErrCode err = SUNStepper_Reset(sunstepper, tR, yR, 0); stepper->last_flag = sunstepper->last_flag; if (err != SUN_SUCCESS) { return ARK_SUNSTEPPER_ERR; } return ARK_SUCCESS; diff --git a/src/arkode/arkode_splittingstep.c b/src/arkode/arkode_splittingstep.c index ec0e8c91f1..8fbfea6c9c 100644 --- a/src/arkode/arkode_splittingstep.c +++ b/src/arkode/arkode_splittingstep.c @@ -236,7 +236,7 @@ static int splittingStep_SequentialMethod(ARKodeMem ark_mem, * evolving the same partition the last step ended with (essentially a * FSAL property). Care is needed when a reset occurs, the step direction * changes, the coefficients change, etc. */ - SUNErrCode err = SUNStepper_Reset(stepper, t_start, y); + SUNErrCode err = SUNStepper_Reset(stepper, t_start, y, 0); if (err != SUN_SUCCESS) { SUNLogInfo(ARK_LOGGER, "end-partition",