regen f2003

LLNL · Dec 16, 2023 · 322c392 · 322c392
1 parent 2aeb529
commit 322c392
Show file tree

Hide file tree

Showing 2 changed files with 34 additions and 0 deletions.
diff --git a/src/arkode/fmod/farkode_mod.c b/src/arkode/fmod/farkode_mod.c
@@ -718,6 +718,18 @@ SWIGEXPORT void _wrap_FARKodeButcherTable_Write(void *farg1, void *farg2) {
 }
 
 
+SWIGEXPORT int _wrap_FARKodeButcherTable_IsStifflyAccurate(void *farg1) {
+  int fresult ;
+  ARKodeButcherTable arg1 = (ARKodeButcherTable) 0 ;
+  int result;
+
+  arg1 = (ARKodeButcherTable)(farg1);
+  result = (int)ARKodeButcherTable_IsStifflyAccurate(arg1);
+  fresult = (int)(result);
+  return fresult;
+}
+
+
 SWIGEXPORT int _wrap_FARKodeButcherTable_CheckOrder(void *farg1, int *farg2, int *farg3, void *farg4) {
   int fresult ;
   ARKodeButcherTable arg1 = (ARKodeButcherTable) 0 ;

diff --git a/src/arkode/fmod/farkode_mod.f90 b/src/arkode/fmod/farkode_mod.f90
@@ -160,6 +160,7 @@ module farkode_mod
  public :: FARKodeButcherTable_Space
  public :: FARKodeButcherTable_Free
  public :: FARKodeButcherTable_Write
+ public :: FARKodeButcherTable_IsStifflyAccurate
  public :: FARKodeButcherTable_CheckOrder
  public :: FARKodeButcherTable_CheckARKOrder
  integer(C_INT), parameter, public :: SDIRK_2_1_2 = 100_C_INT
@@ -613,6 +614,14 @@ subroutine swigc_FARKodeButcherTable_Write(farg1, farg2) &
 type(C_PTR), value :: farg2
 end subroutine
 
+function swigc_FARKodeButcherTable_IsStifflyAccurate(farg1) &
+bind(C, name="_wrap_FARKodeButcherTable_IsStifflyAccurate") &
+result(fresult)
+use, intrinsic :: ISO_C_BINDING
+type(C_PTR), value :: farg1
+integer(C_INT) :: fresult
+end function
+
 function swigc_FARKodeButcherTable_CheckOrder(farg1, farg2, farg3, farg4) &
 bind(C, name="_wrap_FARKodeButcherTable_CheckOrder") &
 result(fresult)
@@ -1300,6 +1309,19 @@ subroutine FARKodeButcherTable_Write(b, outfile)
 call swigc_FARKodeButcherTable_Write(farg1, farg2)
 end subroutine
 
+function FARKodeButcherTable_IsStifflyAccurate(b) &
+result(swig_result)
+use, intrinsic :: ISO_C_BINDING
+integer(C_INT) :: swig_result
+type(C_PTR) :: b
+integer(C_INT) :: fresult 
+type(C_PTR) :: farg1 
+
+farg1 = b
+fresult = swigc_FARKodeButcherTable_IsStifflyAccurate(farg1)
+swig_result = fresult
+end function
+
 function FARKodeButcherTable_CheckOrder(b, q, p, outfile) &
 result(swig_result)
 use, intrinsic :: ISO_C_BINDING