Skip to content

Commit

Permalink
update swig
Browse files Browse the repository at this point in the history
  • Loading branch information
@balos1
balos1 committed May 24, 2024
1 parent 9978f60 commit 158a5ba
Show file tree
Hide file tree
Showing 4 changed files with 149 additions and 0 deletions.
26 changes: 26 additions & 0 deletions src/arkode/fmod_int32/farkode_mod.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2700,6 +2700,19 @@ SWIGEXPORT void * _wrap_FARKodeButcherTable_LoadDIRKByName(SwigArrayWrapper *far
}


SWIGEXPORT SwigArrayWrapper _wrap_FARKodeButcherTable_DIRKIDToName(int const *farg1) {
SwigArrayWrapper fresult ;
ARKODE_DIRKTableID arg1 ;
char *result = 0 ;

arg1 = (ARKODE_DIRKTableID)(*farg1);
result = (char *)ARKodeButcherTable_DIRKIDToName(arg1);
fresult.size = strlen((const char*)(result));
fresult.data = (char *)(result);
return fresult;
}


SWIGEXPORT void * _wrap_FARKodeButcherTable_LoadERK(int const *farg1) {
void * fresult ;
ARKODE_ERKTableID arg1 ;
Expand All @@ -2724,6 +2737,19 @@ SWIGEXPORT void * _wrap_FARKodeButcherTable_LoadERKByName(SwigArrayWrapper *farg
}


SWIGEXPORT SwigArrayWrapper _wrap_FARKodeButcherTable_ERKIDToName(int const *farg1) {
SwigArrayWrapper fresult ;
ARKODE_ERKTableID arg1 ;
char *result = 0 ;

arg1 = (ARKODE_ERKTableID)(*farg1);
result = (char *)ARKodeButcherTable_ERKIDToName(arg1);
fresult.size = strlen((const char*)(result));
fresult.data = (char *)(result);
return fresult;
}


SWIGEXPORT void _wrap_ARKodeSPRKTableMem_q_set(SwigClassWrapper const *farg1, int const *farg2) {
struct ARKodeSPRKTableMem *arg1 = (struct ARKodeSPRKTableMem *) 0 ;
int arg2 ;
Expand Down
49 changes: 49 additions & 0 deletions src/arkode/fmod_int32/farkode_mod.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -38,6 +38,7 @@ module farkode_mod
integer(C_INT), parameter, public :: ARK_FULLRHS_END = 1_C_INT
integer(C_INT), parameter, public :: ARK_FULLRHS_OTHER = 2_C_INT
integer(C_INT), parameter, public :: ARK_INTERP_MAX_DEGREE = 5_C_INT
integer(C_INT), parameter, public :: ARK_INTERP_NONE = -1_C_INT
integer(C_INT), parameter, public :: ARK_INTERP_HERMITE = 0_C_INT
integer(C_INT), parameter, public :: ARK_INTERP_LAGRANGE = 1_C_INT
integer(C_INT), parameter, public :: ARK_SUCCESS = 0_C_INT
Expand Down Expand Up @@ -330,6 +331,7 @@ module farkode_mod
ARKODE_BACKWARD_EULER_1_1, ARKODE_IMPLICIT_MIDPOINT_1_2, ARKODE_IMPLICIT_TRAPEZOIDAL_2_2, ARKODE_MAX_DIRK_NUM
public :: FARKodeButcherTable_LoadDIRK
public :: FARKodeButcherTable_LoadDIRKByName
public :: FARKodeButcherTable_DIRKIDToName
! typedef enum ARKODE_ERKTableID
enum, bind(c)
enumerator :: ARKODE_ERK_NONE = -1
Expand Down Expand Up @@ -371,6 +373,7 @@ module farkode_mod
ARKODE_RALSTON_EULER_2_1_2, ARKODE_EXPLICIT_MIDPOINT_EULER_2_1_2, ARKODE_MAX_ERK_NUM
public :: FARKodeButcherTable_LoadERK
public :: FARKodeButcherTable_LoadERKByName
public :: FARKodeButcherTable_ERKIDToName
! typedef enum ARKODE_SPRKMethodID
enum, bind(c)
enumerator :: ARKODE_SPRK_NONE = -1
Expand Down Expand Up @@ -1998,6 +2001,15 @@ function swigc_FARKodeButcherTable_LoadDIRKByName(farg1) &
type(C_PTR) :: fresult
end function

function swigc_FARKodeButcherTable_DIRKIDToName(farg1) &
bind(C, name="_wrap_FARKodeButcherTable_DIRKIDToName") &
result(fresult)
use, intrinsic :: ISO_C_BINDING
import :: swigarraywrapper
integer(C_INT), intent(in) :: farg1
type(SwigArrayWrapper) :: fresult
end function

function swigc_FARKodeButcherTable_LoadERK(farg1) &
bind(C, name="_wrap_FARKodeButcherTable_LoadERK") &
result(fresult)
Expand All @@ -2015,6 +2027,15 @@ function swigc_FARKodeButcherTable_LoadERKByName(farg1) &
type(C_PTR) :: fresult
end function

function swigc_FARKodeButcherTable_ERKIDToName(farg1) &
bind(C, name="_wrap_FARKodeButcherTable_ERKIDToName") &
result(fresult)
use, intrinsic :: ISO_C_BINDING
import :: swigarraywrapper
integer(C_INT), intent(in) :: farg1
type(SwigArrayWrapper) :: fresult
end function

subroutine swigc_ARKodeSPRKTableMem_q_set(farg1, farg2) &
bind(C, name="_wrap_ARKodeSPRKTableMem_q_set")
use, intrinsic :: ISO_C_BINDING
Expand Down Expand Up @@ -5116,6 +5137,20 @@ function FARKodeButcherTable_LoadDIRKByName(imethod) &
swig_result = fresult
end function

function FARKodeButcherTable_DIRKIDToName(imethod) &
result(swig_result)
use, intrinsic :: ISO_C_BINDING
character(kind=C_CHAR, len=:), allocatable :: swig_result
integer(ARKODE_DIRKTableID), intent(in) :: imethod
type(SwigArrayWrapper) :: fresult
integer(C_INT) :: farg1

farg1 = imethod
fresult = swigc_FARKodeButcherTable_DIRKIDToName(farg1)
call SWIG_chararray_to_string(fresult, swig_result)
if (.false.) call SWIG_free(fresult%data)
end function

function FARKodeButcherTable_LoadERK(emethod) &
result(swig_result)
use, intrinsic :: ISO_C_BINDING
Expand Down Expand Up @@ -5143,6 +5178,20 @@ function FARKodeButcherTable_LoadERKByName(emethod) &
swig_result = fresult
end function

function FARKodeButcherTable_ERKIDToName(emethod) &
result(swig_result)
use, intrinsic :: ISO_C_BINDING
character(kind=C_CHAR, len=:), allocatable :: swig_result
integer(ARKODE_ERKTableID), intent(in) :: emethod
type(SwigArrayWrapper) :: fresult
integer(C_INT) :: farg1

farg1 = emethod
fresult = swigc_FARKodeButcherTable_ERKIDToName(farg1)
call SWIG_chararray_to_string(fresult, swig_result)
if (.false.) call SWIG_free(fresult%data)
end function

subroutine swigf_ARKodeSPRKTableMem_q_set(self, q)
use, intrinsic :: ISO_C_BINDING
class(ARKodeSPRKTableMem), intent(in) :: self
Expand Down
26 changes: 26 additions & 0 deletions src/arkode/fmod_int64/farkode_mod.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2700,6 +2700,19 @@ SWIGEXPORT void * _wrap_FARKodeButcherTable_LoadDIRKByName(SwigArrayWrapper *far
}


SWIGEXPORT SwigArrayWrapper _wrap_FARKodeButcherTable_DIRKIDToName(int const *farg1) {
SwigArrayWrapper fresult ;
ARKODE_DIRKTableID arg1 ;
char *result = 0 ;

arg1 = (ARKODE_DIRKTableID)(*farg1);
result = (char *)ARKodeButcherTable_DIRKIDToName(arg1);
fresult.size = strlen((const char*)(result));
fresult.data = (char *)(result);
return fresult;
}


SWIGEXPORT void * _wrap_FARKodeButcherTable_LoadERK(int const *farg1) {
void * fresult ;
ARKODE_ERKTableID arg1 ;
Expand All @@ -2724,6 +2737,19 @@ SWIGEXPORT void * _wrap_FARKodeButcherTable_LoadERKByName(SwigArrayWrapper *farg
}


SWIGEXPORT SwigArrayWrapper _wrap_FARKodeButcherTable_ERKIDToName(int const *farg1) {
SwigArrayWrapper fresult ;
ARKODE_ERKTableID arg1 ;
char *result = 0 ;

arg1 = (ARKODE_ERKTableID)(*farg1);
result = (char *)ARKodeButcherTable_ERKIDToName(arg1);
fresult.size = strlen((const char*)(result));
fresult.data = (char *)(result);
return fresult;
}


SWIGEXPORT void _wrap_ARKodeSPRKTableMem_q_set(SwigClassWrapper const *farg1, int const *farg2) {
struct ARKodeSPRKTableMem *arg1 = (struct ARKodeSPRKTableMem *) 0 ;
int arg2 ;
Expand Down
48 changes: 48 additions & 0 deletions src/arkode/fmod_int64/farkode_mod.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -331,6 +331,7 @@ module farkode_mod
ARKODE_BACKWARD_EULER_1_1, ARKODE_IMPLICIT_MIDPOINT_1_2, ARKODE_IMPLICIT_TRAPEZOIDAL_2_2, ARKODE_MAX_DIRK_NUM
public :: FARKodeButcherTable_LoadDIRK
public :: FARKodeButcherTable_LoadDIRKByName
public :: FARKodeButcherTable_DIRKIDToName
! typedef enum ARKODE_ERKTableID
enum, bind(c)
enumerator :: ARKODE_ERK_NONE = -1
Expand Down Expand Up @@ -372,6 +373,7 @@ module farkode_mod
ARKODE_RALSTON_EULER_2_1_2, ARKODE_EXPLICIT_MIDPOINT_EULER_2_1_2, ARKODE_MAX_ERK_NUM
public :: FARKodeButcherTable_LoadERK
public :: FARKodeButcherTable_LoadERKByName
public :: FARKodeButcherTable_ERKIDToName
! typedef enum ARKODE_SPRKMethodID
enum, bind(c)
enumerator :: ARKODE_SPRK_NONE = -1
Expand Down Expand Up @@ -1999,6 +2001,15 @@ function swigc_FARKodeButcherTable_LoadDIRKByName(farg1) &
type(C_PTR) :: fresult
end function

function swigc_FARKodeButcherTable_DIRKIDToName(farg1) &
bind(C, name="_wrap_FARKodeButcherTable_DIRKIDToName") &
result(fresult)
use, intrinsic :: ISO_C_BINDING
import :: swigarraywrapper
integer(C_INT), intent(in) :: farg1
type(SwigArrayWrapper) :: fresult
end function

function swigc_FARKodeButcherTable_LoadERK(farg1) &
bind(C, name="_wrap_FARKodeButcherTable_LoadERK") &
result(fresult)
Expand All @@ -2016,6 +2027,15 @@ function swigc_FARKodeButcherTable_LoadERKByName(farg1) &
type(C_PTR) :: fresult
end function

function swigc_FARKodeButcherTable_ERKIDToName(farg1) &
bind(C, name="_wrap_FARKodeButcherTable_ERKIDToName") &
result(fresult)
use, intrinsic :: ISO_C_BINDING
import :: swigarraywrapper
integer(C_INT), intent(in) :: farg1
type(SwigArrayWrapper) :: fresult
end function

subroutine swigc_ARKodeSPRKTableMem_q_set(farg1, farg2) &
bind(C, name="_wrap_ARKodeSPRKTableMem_q_set")
use, intrinsic :: ISO_C_BINDING
Expand Down Expand Up @@ -5117,6 +5137,20 @@ function FARKodeButcherTable_LoadDIRKByName(imethod) &
swig_result = fresult
end function

function FARKodeButcherTable_DIRKIDToName(imethod) &
result(swig_result)
use, intrinsic :: ISO_C_BINDING
character(kind=C_CHAR, len=:), allocatable :: swig_result
integer(ARKODE_DIRKTableID), intent(in) :: imethod
type(SwigArrayWrapper) :: fresult
integer(C_INT) :: farg1

farg1 = imethod
fresult = swigc_FARKodeButcherTable_DIRKIDToName(farg1)
call SWIG_chararray_to_string(fresult, swig_result)
if (.false.) call SWIG_free(fresult%data)
end function

function FARKodeButcherTable_LoadERK(emethod) &
result(swig_result)
use, intrinsic :: ISO_C_BINDING
Expand Down Expand Up @@ -5144,6 +5178,20 @@ function FARKodeButcherTable_LoadERKByName(emethod) &
swig_result = fresult
end function

function FARKodeButcherTable_ERKIDToName(emethod) &
result(swig_result)
use, intrinsic :: ISO_C_BINDING
character(kind=C_CHAR, len=:), allocatable :: swig_result
integer(ARKODE_ERKTableID), intent(in) :: emethod
type(SwigArrayWrapper) :: fresult
integer(C_INT) :: farg1

farg1 = emethod
fresult = swigc_FARKodeButcherTable_ERKIDToName(farg1)
call SWIG_chararray_to_string(fresult, swig_result)
if (.false.) call SWIG_free(fresult%data)
end function

subroutine swigf_ARKodeSPRKTableMem_q_set(self, q)
use, intrinsic :: ISO_C_BINDING
class(ARKodeSPRKTableMem), intent(in) :: self
Expand Down

0 comments on commit 158a5ba

Please sign in to comment.