Update swig

LLNL · Nov 13, 2024 · cf99e66 · cf99e66
1 parent d8a9278
commit cf99e66
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/src/sundials/fmod_int32/fsundials_core_mod.f90 b/src/sundials/fmod_int32/fsundials_core_mod.f90
@@ -5041,13 +5041,13 @@ function FSUNStepper_Evolve(stepper, tout, vret, tret) &
 swig_result = fresult
 end function
 
-function FSUNStepper_OneStep(stepper, tout, vout, tret) &
+function FSUNStepper_OneStep(stepper, tout, vret, tret) &
 result(swig_result)
 use, intrinsic :: ISO_C_BINDING
 integer(C_INT) :: swig_result
 type(C_PTR) :: stepper
 real(C_DOUBLE), intent(in) :: tout
-type(N_Vector), target, intent(inout) :: vout
+type(N_Vector), target, intent(inout) :: vret
 real(C_DOUBLE), dimension(*), target, intent(inout) :: tret
 integer(C_INT) :: fresult 
 type(C_PTR) :: farg1 
@@ -5057,7 +5057,7 @@ function FSUNStepper_OneStep(stepper, tout, vout, tret) &
 
 farg1 = stepper
 farg2 = tout
-farg3 = c_loc(vout)
+farg3 = c_loc(vret)
 farg4 = c_loc(tret(1))
 fresult = swigc_FSUNStepper_OneStep(farg1, farg2, farg3, farg4)
 swig_result = fresult

diff --git a/src/sundials/fmod_int64/fsundials_core_mod.f90 b/src/sundials/fmod_int64/fsundials_core_mod.f90
@@ -5041,13 +5041,13 @@ function FSUNStepper_Evolve(stepper, tout, vret, tret) &
 swig_result = fresult
 end function
 
-function FSUNStepper_OneStep(stepper, tout, vout, tret) &
+function FSUNStepper_OneStep(stepper, tout, vret, tret) &
 result(swig_result)
 use, intrinsic :: ISO_C_BINDING
 integer(C_INT) :: swig_result
 type(C_PTR) :: stepper
 real(C_DOUBLE), intent(in) :: tout
-type(N_Vector), target, intent(inout) :: vout
+type(N_Vector), target, intent(inout) :: vret
 real(C_DOUBLE), dimension(*), target, intent(inout) :: tret
 integer(C_INT) :: fresult 
 type(C_PTR) :: farg1 
@@ -5057,7 +5057,7 @@ function FSUNStepper_OneStep(stepper, tout, vout, tret) &
 
 farg1 = stepper
 farg2 = tout
-farg3 = c_loc(vout)
+farg3 = c_loc(vret)
 farg4 = c_loc(tret(1))
 fresult = swigc_FSUNStepper_OneStep(farg1, farg2, farg3, farg4)
 swig_result = fresult