diff --git a/src/arkode/fmod_int32/farkode_mod.c b/src/arkode/fmod_int32/farkode_mod.c index c4fc17a0d9..e03e2400c3 100644 --- a/src/arkode/fmod_int32/farkode_mod.c +++ b/src/arkode/fmod_int32/farkode_mod.c @@ -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 ; @@ -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 ; diff --git a/src/arkode/fmod_int32/farkode_mod.f90 b/src/arkode/fmod_int32/farkode_mod.f90 index 74072cc11a..9cce933be3 100644 --- a/src/arkode/fmod_int32/farkode_mod.f90 +++ b/src/arkode/fmod_int32/farkode_mod.f90 @@ -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 @@ -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 @@ -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 @@ -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) @@ -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 @@ -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 @@ -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 diff --git a/src/arkode/fmod_int64/farkode_mod.c b/src/arkode/fmod_int64/farkode_mod.c index 61db05f83e..7cdfce3d3d 100644 --- a/src/arkode/fmod_int64/farkode_mod.c +++ b/src/arkode/fmod_int64/farkode_mod.c @@ -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 ; @@ -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 ; diff --git a/src/arkode/fmod_int64/farkode_mod.f90 b/src/arkode/fmod_int64/farkode_mod.f90 index 182cf7fe2f..937e0be438 100644 --- a/src/arkode/fmod_int64/farkode_mod.f90 +++ b/src/arkode/fmod_int64/farkode_mod.f90 @@ -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 @@ -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 @@ -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) @@ -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 @@ -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 @@ -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