apply swig changes

LLNL · May 6, 2024 · ad0eafe · ad0eafe
1 parent e598ee8
commit ad0eafe
Show file tree

Hide file tree

Showing 5 changed files with 32 additions and 8 deletions.
diff --git a/src/cvodes/fmod_int32/fcvodes_mod.c b/src/cvodes/fmod_int32/fcvodes_mod.c
@@ -1809,18 +1809,18 @@ SWIGEXPORT int _wrap_FCVodeSetSensMaxNonlinIters(void *farg1, int const *farg2)
 }
 
 
-SWIGEXPORT int _wrap_FCVodeSetSensParams(void *farg1, double *farg2, double *farg3, int *farg4) {
+SWIGEXPORT int _wrap_FCVodeSetSensParams(void *farg1, double *farg2, double *farg3, int32_t *farg4) {
   int fresult ;
   void *arg1 = (void *) 0 ;
   sunrealtype *arg2 = (sunrealtype *) 0 ;
   sunrealtype *arg3 = (sunrealtype *) 0 ;
-  int *arg4 = (int *) 0 ;
+  sunindextype *arg4 = (sunindextype *) 0 ;
   int result;
 
   arg1 = (void *)(farg1);
   arg2 = (sunrealtype *)(farg2);
   arg3 = (sunrealtype *)(farg3);
-  arg4 = (int *)(farg4);
+  arg4 = (sunindextype *)(farg4);
   result = (int)CVodeSetSensParams(arg1,arg2,arg3,arg4);
   fresult = (int)(result);
   return fresult;

diff --git a/src/cvodes/fmod_int32/fcvodes_mod.f90 b/src/cvodes/fmod_int32/fcvodes_mod.f90
@@ -4526,7 +4526,7 @@ function FCVodeSetSensParams(cvode_mem, p, pbar, plist) &
 type(C_PTR) :: cvode_mem
 real(C_DOUBLE), dimension(*), target, intent(inout) :: p
 real(C_DOUBLE), dimension(*), target, intent(inout) :: pbar
-integer(C_INT), dimension(*), target, intent(inout) :: plist
+integer(C_INT32_T), dimension(*), target, intent(inout) :: plist
 integer(C_INT) :: fresult 
 type(C_PTR) :: farg1 
 type(C_PTR) :: farg2 

diff --git a/src/cvodes/fmod_int64/fcvodes_mod.c b/src/cvodes/fmod_int64/fcvodes_mod.c
@@ -1809,18 +1809,18 @@ SWIGEXPORT int _wrap_FCVodeSetSensMaxNonlinIters(void *farg1, int const *farg2)
 }
 
 
-SWIGEXPORT int _wrap_FCVodeSetSensParams(void *farg1, double *farg2, double *farg3, int *farg4) {
+SWIGEXPORT int _wrap_FCVodeSetSensParams(void *farg1, double *farg2, double *farg3, int64_t *farg4) {
   int fresult ;
   void *arg1 = (void *) 0 ;
   sunrealtype *arg2 = (sunrealtype *) 0 ;
   sunrealtype *arg3 = (sunrealtype *) 0 ;
-  int *arg4 = (int *) 0 ;
+  sunindextype *arg4 = (sunindextype *) 0 ;
   int result;
 
   arg1 = (void *)(farg1);
   arg2 = (sunrealtype *)(farg2);
   arg3 = (sunrealtype *)(farg3);
-  arg4 = (int *)(farg4);
+  arg4 = (sunindextype *)(farg4);
   result = (int)CVodeSetSensParams(arg1,arg2,arg3,arg4);
   fresult = (int)(result);
   return fresult;

diff --git a/src/cvodes/fmod_int64/fcvodes_mod.f90 b/src/cvodes/fmod_int64/fcvodes_mod.f90
@@ -4526,7 +4526,7 @@ function FCVodeSetSensParams(cvode_mem, p, pbar, plist) &
 type(C_PTR) :: cvode_mem
 real(C_DOUBLE), dimension(*), target, intent(inout) :: p
 real(C_DOUBLE), dimension(*), target, intent(inout) :: pbar
-integer(C_INT), dimension(*), target, intent(inout) :: plist
+integer(C_INT64_T), dimension(*), target, intent(inout) :: plist
 integer(C_INT) :: fresult 
 type(C_PTR) :: farg1 
 type(C_PTR) :: farg2 

diff --git a/src/sunmatrix/sparse/fmod_int64/fsunmatrix_sparse_mod.c b/src/sunmatrix/sparse/fmod_int64/fsunmatrix_sparse_mod.c
@@ -516,6 +516,29 @@ SWIGEXPORT double * _wrap_FSUNSparseMatrix_Data(SUNMatrix farg1) {
   return fresult;
 }
 
+#if SUNDIALS_INT32_T
+SWIGEXPORT int32_t * _wrap_FSUNSparseMatrix_IndexValues(SUNMatrix farg1) {
+  int32_t * fresult ;
+  SUNMatrix arg1 = (SUNMatrix) 0 ;
+  sunindextype *result = 0 ;
+
+  arg1 = (SUNMatrix)(farg1);
+  result = (sunindextype *)SUNSparseMatrix_IndexValues(arg1);
+  fresult = result;
+  return fresult;
+}
+
+SWIGEXPORT int32_t * _wrap_FSUNSparseMatrix_IndexPointers(SUNMatrix farg1) {
+  int32_t * fresult ;
+  SUNMatrix arg1 = (SUNMatrix) 0 ;
+  sunindextype *result = 0 ;
+
+  arg1 = (SUNMatrix)(farg1);
+  result = (sunindextype *)SUNSparseMatrix_IndexPointers(arg1);
+  fresult = result;
+  return fresult;
+}
+#else
 SWIGEXPORT int64_t * _wrap_FSUNSparseMatrix_IndexValues(SUNMatrix farg1) {
   int64_t * fresult ;
   SUNMatrix arg1 = (SUNMatrix) 0 ;
@@ -537,5 +560,6 @@ SWIGEXPORT int64_t * _wrap_FSUNSparseMatrix_IndexPointers(SUNMatrix farg1) {
   fresult = result;
   return fresult;
 }
+#endif