Skip to content

Commit

Permalink
regen f2003
Browse files Browse the repository at this point in the history
  • Loading branch information
@gardner48
gardner48 committed May 24, 2024
1 parent 6f8418b commit 6e50f74
Show file tree
Hide file tree
Showing 2 changed files with 114 additions and 0 deletions.
40 changes: 40 additions & 0 deletions src/arkode/fmod/farkode_mod.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -687,6 +687,20 @@ SWIGEXPORT int _wrap_FARKodeSetNonlinear(void *farg1) {
}


SWIGEXPORT int _wrap_FARKodeSetAutonomous(void *farg1, int const *farg2) {
int fresult ;
void *arg1 = (void *) 0 ;
int arg2 ;
int result;

arg1 = (void *)(farg1);
arg2 = (int)(*farg2);
result = (int)ARKodeSetAutonomous(arg1,arg2);
fresult = (int)(result);
return fresult;
}


SWIGEXPORT int _wrap_FARKodeSetNlsRhsFn(void *farg1, ARKRhsFn farg2) {
int fresult ;
void *arg1 = (void *) 0 ;
Expand Down Expand Up @@ -2700,6 +2714,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 +2751,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
74 changes: 74 additions & 0 deletions src/arkode/fmod/farkode_mod.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -128,6 +128,7 @@ module farkode_mod
public :: FARKodeSetNonlinearSolver
public :: FARKodeSetLinear
public :: FARKodeSetNonlinear
public :: FARKodeSetAutonomous
public :: FARKodeSetNlsRhsFn
public :: FARKodeSetDeduceImplicitRhs
public :: FARKodeSetNonlinCRDown
Expand Down Expand Up @@ -331,6 +332,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 +374,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 @@ -693,6 +696,15 @@ function swigc_FARKodeSetNonlinear(farg1) &
integer(C_INT) :: fresult
end function

function swigc_FARKodeSetAutonomous(farg1, farg2) &
bind(C, name="_wrap_FARKodeSetAutonomous") &
result(fresult)
use, intrinsic :: ISO_C_BINDING
type(C_PTR), value :: farg1
integer(C_INT), intent(in) :: farg2
integer(C_INT) :: fresult
end function

function swigc_FARKodeSetNlsRhsFn(farg1, farg2) &
bind(C, name="_wrap_FARKodeSetNlsRhsFn") &
result(fresult)
Expand Down Expand Up @@ -1999,6 +2011,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 +2037,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 @@ -2767,6 +2797,22 @@ function FARKodeSetNonlinear(arkode_mem) &
swig_result = fresult
end function

function FARKodeSetAutonomous(arkode_mem, autonomous) &
result(swig_result)
use, intrinsic :: ISO_C_BINDING
integer(C_INT) :: swig_result
type(C_PTR) :: arkode_mem
integer(C_INT), intent(in) :: autonomous
integer(C_INT) :: fresult
type(C_PTR) :: farg1
integer(C_INT) :: farg2

farg1 = arkode_mem
farg2 = autonomous
fresult = swigc_FARKodeSetAutonomous(farg1, farg2)
swig_result = fresult
end function

function FARKodeSetNlsRhsFn(arkode_mem, nls_fi) &
result(swig_result)
use, intrinsic :: ISO_C_BINDING
Expand Down Expand Up @@ -5117,6 +5163,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 +5204,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 6e50f74

Please sign in to comment.