update swig

LLNL · Sep 30, 2024 · 6117e71 · 6117e71
1 parent b6b9251
commit 6117e71
Show file tree

Hide file tree

Showing 4 changed files with 20 additions and 20 deletions.
diff --git a/src/arkode/fmod_int32/farkode_lsrkstep_mod.c b/src/arkode/fmod_int32/farkode_lsrkstep_mod.c
@@ -400,15 +400,15 @@ SWIGEXPORT int _wrap_FLSRKStepSetSSPStageNum(void *farg1, int const *farg2) {
 }
 
 
-SWIGEXPORT int _wrap_FLSRKStepGetNumRhsEvals(void *farg1, long *farg2, long *farg3) {
+SWIGEXPORT int _wrap_FLSRKStepGetNumRhsEvals(void *farg1, int const *farg2, long *farg3) {
   int fresult ;
   void *arg1 = (void *) 0 ;
-  long *arg2 = (long *) 0 ;
+  int arg2 ;
   long *arg3 = (long *) 0 ;
   int result;
 
   arg1 = (void *)(farg1);
-  arg2 = (long *)(farg2);
+  arg2 = (int)(*farg2);
   arg3 = (long *)(farg3);
   result = (int)LSRKStepGetNumRhsEvals(arg1,arg2,arg3);
   fresult = (int)(result);

diff --git a/src/arkode/fmod_int32/farkode_lsrkstep_mod.f90 b/src/arkode/fmod_int32/farkode_lsrkstep_mod.f90
@@ -171,7 +171,7 @@ function swigc_FLSRKStepGetNumRhsEvals(farg1, farg2, farg3) &
 result(fresult)
 use, intrinsic :: ISO_C_BINDING
 type(C_PTR), value :: farg1
-type(C_PTR), value :: farg2
+integer(C_INT), intent(in) :: farg2
 type(C_PTR), value :: farg3
 integer(C_INT) :: fresult
 end function
@@ -427,21 +427,21 @@ function FLSRKStepSetSSPStageNum(arkode_mem, num_of_stages) &
 swig_result = fresult
 end function
 
-function FLSRKStepGetNumRhsEvals(arkode_mem, fe_evals, fi_evals) &
+function FLSRKStepGetNumRhsEvals(arkode_mem, num_rhs_fn, f_evals) &
 result(swig_result)
 use, intrinsic :: ISO_C_BINDING
 integer(C_INT) :: swig_result
 type(C_PTR) :: arkode_mem
-integer(C_LONG), dimension(*), target, intent(inout) :: fe_evals
-integer(C_LONG), dimension(*), target, intent(inout) :: fi_evals
+integer(C_INT), intent(in) :: num_rhs_fn
+integer(C_LONG), dimension(*), target, intent(inout) :: f_evals
 integer(C_INT) :: fresult 
 type(C_PTR) :: farg1 
-type(C_PTR) :: farg2 
+integer(C_INT) :: farg2 
 type(C_PTR) :: farg3 
 
 farg1 = arkode_mem
-farg2 = c_loc(fe_evals(1))
-farg3 = c_loc(fi_evals(1))
+farg2 = num_rhs_fn
+farg3 = c_loc(f_evals(1))
 fresult = swigc_FLSRKStepGetNumRhsEvals(farg1, farg2, farg3)
 swig_result = fresult
 end function

diff --git a/src/arkode/fmod_int64/farkode_lsrkstep_mod.c b/src/arkode/fmod_int64/farkode_lsrkstep_mod.c
@@ -400,15 +400,15 @@ SWIGEXPORT int _wrap_FLSRKStepSetSSPStageNum(void *farg1, int const *farg2) {
 }
 
 
-SWIGEXPORT int _wrap_FLSRKStepGetNumRhsEvals(void *farg1, long *farg2, long *farg3) {
+SWIGEXPORT int _wrap_FLSRKStepGetNumRhsEvals(void *farg1, int const *farg2, long *farg3) {
   int fresult ;
   void *arg1 = (void *) 0 ;
-  long *arg2 = (long *) 0 ;
+  int arg2 ;
   long *arg3 = (long *) 0 ;
   int result;
 
   arg1 = (void *)(farg1);
-  arg2 = (long *)(farg2);
+  arg2 = (int)(*farg2);
   arg3 = (long *)(farg3);
   result = (int)LSRKStepGetNumRhsEvals(arg1,arg2,arg3);
   fresult = (int)(result);

diff --git a/src/arkode/fmod_int64/farkode_lsrkstep_mod.f90 b/src/arkode/fmod_int64/farkode_lsrkstep_mod.f90
@@ -171,7 +171,7 @@ function swigc_FLSRKStepGetNumRhsEvals(farg1, farg2, farg3) &
 result(fresult)
 use, intrinsic :: ISO_C_BINDING
 type(C_PTR), value :: farg1
-type(C_PTR), value :: farg2
+integer(C_INT), intent(in) :: farg2
 type(C_PTR), value :: farg3
 integer(C_INT) :: fresult
 end function
@@ -427,21 +427,21 @@ function FLSRKStepSetSSPStageNum(arkode_mem, num_of_stages) &
 swig_result = fresult
 end function
 
-function FLSRKStepGetNumRhsEvals(arkode_mem, fe_evals, fi_evals) &
+function FLSRKStepGetNumRhsEvals(arkode_mem, num_rhs_fn, f_evals) &
 result(swig_result)
 use, intrinsic :: ISO_C_BINDING
 integer(C_INT) :: swig_result
 type(C_PTR) :: arkode_mem
-integer(C_LONG), dimension(*), target, intent(inout) :: fe_evals
-integer(C_LONG), dimension(*), target, intent(inout) :: fi_evals
+integer(C_INT), intent(in) :: num_rhs_fn
+integer(C_LONG), dimension(*), target, intent(inout) :: f_evals
 integer(C_INT) :: fresult 
 type(C_PTR) :: farg1 
-type(C_PTR) :: farg2 
+integer(C_INT) :: farg2 
 type(C_PTR) :: farg3 
 
 farg1 = arkode_mem
-farg2 = c_loc(fe_evals(1))
-farg3 = c_loc(fi_evals(1))
+farg2 = num_rhs_fn
+farg3 = c_loc(f_evals(1))
 fresult = swigc_FLSRKStepGetNumRhsEvals(farg1, farg2, farg3)
 swig_result = fresult
 end function