diff --git a/src/sunadjointcheckpointscheme/fixed/fmod_int32/fsunadjointcheckpointscheme_fixed_mod.c b/src/sunadjointcheckpointscheme/fixed/fmod_int32/fsunadjointcheckpointscheme_fixed_mod.c index 7d7a0129c7..6a63e5d263 100644 --- a/src/sunadjointcheckpointscheme/fixed/fmod_int32/fsunadjointcheckpointscheme_fixed_mod.c +++ b/src/sunadjointcheckpointscheme/fixed/fmod_int32/fsunadjointcheckpointscheme_fixed_mod.c @@ -29,125 +29,121 @@ /* template workaround for compilers that cannot correctly implement the C++ standard */ #ifndef SWIGTEMPLATEDISAMBIGUATOR -#if defined(__SUNPRO_CC) && (__SUNPRO_CC <= 0x560) -#define SWIGTEMPLATEDISAMBIGUATOR template -#elif defined(__HP_aCC) +# if defined(__SUNPRO_CC) && (__SUNPRO_CC <= 0x560) +# define SWIGTEMPLATEDISAMBIGUATOR template +# elif defined(__HP_aCC) /* Needed even with `aCC -AA' when `aCC -V' reports HP ANSI C++ B3910B A.03.55 */ /* If we find a maximum version that requires this, the test would be __HP_aCC <= 35500 for A.03.55 */ -#define SWIGTEMPLATEDISAMBIGUATOR template -#else -#define SWIGTEMPLATEDISAMBIGUATOR -#endif +# define SWIGTEMPLATEDISAMBIGUATOR template +# else +# define SWIGTEMPLATEDISAMBIGUATOR +# endif #endif /* inline attribute */ #ifndef SWIGINLINE -#if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__)) -#define SWIGINLINE inline -#else -#define SWIGINLINE -#endif +# if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__)) +# define SWIGINLINE inline +# else +# define SWIGINLINE +# endif #endif /* attribute recognised by some compilers to avoid 'unused' warnings */ #ifndef SWIGUNUSED -#if defined(__GNUC__) -#if !(defined(__cplusplus)) || \ - (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)) -#define SWIGUNUSED __attribute__((__unused__)) -#else -#define SWIGUNUSED -#endif -#elif defined(__ICC) -#define SWIGUNUSED __attribute__((__unused__)) -#else -#define SWIGUNUSED -#endif +# if defined(__GNUC__) +# if !(defined(__cplusplus)) || (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)) +# define SWIGUNUSED __attribute__ ((__unused__)) +# else +# define SWIGUNUSED +# endif +# elif defined(__ICC) +# define SWIGUNUSED __attribute__ ((__unused__)) +# else +# define SWIGUNUSED +# endif #endif #ifndef SWIG_MSC_UNSUPPRESS_4505 -#if defined(_MSC_VER) -#pragma warning(disable : 4505) /* unreferenced local function has been removed */ -#endif +# if defined(_MSC_VER) +# pragma warning(disable : 4505) /* unreferenced local function has been removed */ +# endif #endif #ifndef SWIGUNUSEDPARM -#ifdef __cplusplus -#define SWIGUNUSEDPARM(p) -#else -#define SWIGUNUSEDPARM(p) p SWIGUNUSED -#endif +# ifdef __cplusplus +# define SWIGUNUSEDPARM(p) +# else +# define SWIGUNUSEDPARM(p) p SWIGUNUSED +# endif #endif /* internal SWIG method */ #ifndef SWIGINTERN -#define SWIGINTERN static SWIGUNUSED +# define SWIGINTERN static SWIGUNUSED #endif /* internal inline SWIG method */ #ifndef SWIGINTERNINLINE -#define SWIGINTERNINLINE SWIGINTERN SWIGINLINE +# define SWIGINTERNINLINE SWIGINTERN SWIGINLINE #endif /* qualifier for exported *const* global data variables*/ #ifndef SWIGEXTERN -#ifdef __cplusplus -#define SWIGEXTERN extern -#else -#define SWIGEXTERN -#endif +# ifdef __cplusplus +# define SWIGEXTERN extern +# else +# define SWIGEXTERN +# endif #endif /* exporting methods */ #if defined(__GNUC__) -#if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4) -#ifndef GCC_HASCLASSVISIBILITY -#define GCC_HASCLASSVISIBILITY -#endif -#endif +# if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4) +# ifndef GCC_HASCLASSVISIBILITY +# define GCC_HASCLASSVISIBILITY +# endif +# endif #endif #ifndef SWIGEXPORT -#if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__) -#if defined(STATIC_LINKED) -#define SWIGEXPORT -#else -#define SWIGEXPORT __declspec(dllexport) -#endif -#else -#if defined(__GNUC__) && defined(GCC_HASCLASSVISIBILITY) -#define SWIGEXPORT __attribute__((visibility("default"))) -#else -#define SWIGEXPORT -#endif -#endif +# if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__) +# if defined(STATIC_LINKED) +# define SWIGEXPORT +# else +# define SWIGEXPORT __declspec(dllexport) +# endif +# else +# if defined(__GNUC__) && defined(GCC_HASCLASSVISIBILITY) +# define SWIGEXPORT __attribute__ ((visibility("default"))) +# else +# define SWIGEXPORT +# endif +# endif #endif /* calling conventions for Windows */ #ifndef SWIGSTDCALL -#if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__) -#define SWIGSTDCALL __stdcall -#else -#define SWIGSTDCALL -#endif +# if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__) +# define SWIGSTDCALL __stdcall +# else +# define SWIGSTDCALL +# endif #endif /* Deal with Microsoft's attempt at deprecating C standard runtime functions */ -#if !defined(SWIG_NO_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && \ - !defined(_CRT_SECURE_NO_DEPRECATE) -#define _CRT_SECURE_NO_DEPRECATE +#if !defined(SWIG_NO_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_CRT_SECURE_NO_DEPRECATE) +# define _CRT_SECURE_NO_DEPRECATE #endif /* Deal with Microsoft's attempt at deprecating methods in the standard C++ library */ -#if !defined(SWIG_NO_SCL_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && \ - !defined(_SCL_SECURE_NO_DEPRECATE) -#define _SCL_SECURE_NO_DEPRECATE +#if !defined(SWIG_NO_SCL_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_SCL_SECURE_NO_DEPRECATE) +# define _SCL_SECURE_NO_DEPRECATE #endif /* Deal with Apple's deprecated 'AssertMacros.h' from Carbon-framework */ -#if defined(__APPLE__) && \ - !defined(__ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES) -#define __ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES 0 +#if defined(__APPLE__) && !defined(__ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES) +# define __ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES 0 #endif /* Intel's compiler complains if a variable which was never initialised is @@ -156,231 +152,210 @@ * See: https://github.com/swig/swig/issues/192 for more discussion. */ #ifdef __INTEL_COMPILER -#pragma warning disable 592 +# pragma warning disable 592 #endif /* Errors in SWIG */ -#define SWIG_UnknownError -1 -#define SWIG_IOError -2 -#define SWIG_RuntimeError -3 -#define SWIG_IndexError -4 -#define SWIG_TypeError -5 -#define SWIG_DivisionByZero -6 -#define SWIG_OverflowError -7 -#define SWIG_SyntaxError -8 -#define SWIG_ValueError -9 -#define SWIG_SystemError -10 -#define SWIG_AttributeError -11 -#define SWIG_MemoryError -12 -#define SWIG_NullReferenceError -13 +#define SWIG_UnknownError -1 +#define SWIG_IOError -2 +#define SWIG_RuntimeError -3 +#define SWIG_IndexError -4 +#define SWIG_TypeError -5 +#define SWIG_DivisionByZero -6 +#define SWIG_OverflowError -7 +#define SWIG_SyntaxError -8 +#define SWIG_ValueError -9 +#define SWIG_SystemError -10 +#define SWIG_AttributeError -11 +#define SWIG_MemoryError -12 +#define SWIG_NullReferenceError -13 + + + #include #define SWIG_exception_impl(DECL, CODE, MSG, RETURNNULL) \ - { \ - printf("In " DECL ": " MSG); \ - assert(0); \ - RETURNNULL; \ - } + { printf("In " DECL ": " MSG); assert(0); RETURNNULL; } + #include #if defined(_MSC_VER) || defined(__BORLANDC__) || defined(_WATCOM) -#ifndef snprintf -#define snprintf _snprintf -#endif +# ifndef snprintf +# define snprintf _snprintf +# endif #endif + /* Support for the `contract` feature. * * Note that RETURNNULL is first because it's inserted via a 'Replaceall' in * the fortran.cxx file. */ -#define SWIG_contract_assert(RETURNNULL, EXPR, MSG) \ - if (!(EXPR)) \ - { \ - SWIG_exception_impl("$decl", SWIG_ValueError, MSG, RETURNNULL); \ - } +#define SWIG_contract_assert(RETURNNULL, EXPR, MSG) \ + if (!(EXPR)) { SWIG_exception_impl("$decl", SWIG_ValueError, MSG, RETURNNULL); } + -#define SWIGVERSION 0x040000 +#define SWIGVERSION 0x040000 #define SWIG_VERSION SWIGVERSION -#define SWIG_as_voidptr(a) (void*)((const void*)(a)) -#define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a), (void**)(a)) + +#define SWIG_as_voidptr(a) (void *)((const void *)(a)) +#define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a),(void**)(a)) + #include + #include "sunadjointcheckpointscheme/sunadjointcheckpointscheme_fixed.h" -SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_Create_Fixed( - int const* farg1, SUNMemoryHelper farg2, int64_t const* farg3, - int64_t const* farg4, int const* farg5, int const* farg6, void* farg7, - void* farg8) -{ - int fresult; - SUNDataIOMode arg1; - SUNMemoryHelper arg2 = (SUNMemoryHelper)0; - int64_t arg3; - int64_t arg4; - int arg5; - int arg6; - SUNContext arg7 = (SUNContext)0; - SUNAdjointCheckpointScheme* arg8 = (SUNAdjointCheckpointScheme*)0; +SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_Create_Fixed(int const *farg1, SUNMemoryHelper farg2, int64_t const *farg3, int64_t const *farg4, int const *farg5, int const *farg6, void *farg7, void *farg8) { + int fresult ; + SUNDataIOMode arg1 ; + SUNMemoryHelper arg2 = (SUNMemoryHelper) 0 ; + int64_t arg3 ; + int64_t arg4 ; + int arg5 ; + int arg6 ; + SUNContext arg7 = (SUNContext) 0 ; + SUNAdjointCheckpointScheme *arg8 = (SUNAdjointCheckpointScheme *) 0 ; SUNErrCode result; - - arg1 = (SUNDataIOMode)(*farg1); - arg2 = (SUNMemoryHelper)(farg2); - arg3 = (int64_t)(*farg3); - arg4 = (int64_t)(*farg4); - arg5 = (int)(*farg5); - arg6 = (int)(*farg6); - arg7 = (SUNContext)(farg7); - arg8 = (SUNAdjointCheckpointScheme*)(farg8); - result = (SUNErrCode)SUNAdjointCheckpointScheme_Create_Fixed(arg1, arg2, arg3, - arg4, arg5, arg6, - arg7, arg8); + + arg1 = (SUNDataIOMode)(*farg1); + arg2 = (SUNMemoryHelper)(farg2); + arg3 = (int64_t)(*farg3); + arg4 = (int64_t)(*farg4); + arg5 = (int)(*farg5); + arg6 = (int)(*farg6); + arg7 = (SUNContext)(farg7); + arg8 = (SUNAdjointCheckpointScheme *)(farg8); + result = (SUNErrCode)SUNAdjointCheckpointScheme_Create_Fixed(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8); fresult = (SUNErrCode)(result); return fresult; } -SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_ShouldWeSave_Fixed( - SUNAdjointCheckpointScheme farg1, int64_t const* farg2, int64_t const* farg3, - double const* farg4, int* farg5) -{ - int fresult; - SUNAdjointCheckpointScheme arg1 = (SUNAdjointCheckpointScheme)0; - int64_t arg2; - int64_t arg3; - sunrealtype arg4; - int* arg5 = (int*)0; - SUNErrCode result; - arg1 = (SUNAdjointCheckpointScheme)(farg1); - arg2 = (int64_t)(*farg2); - arg3 = (int64_t)(*farg3); - arg4 = (sunrealtype)(*farg4); - arg5 = (int*)(farg5); - result = (SUNErrCode)SUNAdjointCheckpointScheme_ShouldWeSave_Fixed(arg1, arg2, - arg3, arg4, - arg5); +SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_ShouldWeSave_Fixed(SUNAdjointCheckpointScheme farg1, int64_t const *farg2, int64_t const *farg3, double const *farg4, int *farg5) { + int fresult ; + SUNAdjointCheckpointScheme arg1 = (SUNAdjointCheckpointScheme) 0 ; + int64_t arg2 ; + int64_t arg3 ; + sunrealtype arg4 ; + int *arg5 = (int *) 0 ; + SUNErrCode result; + + arg1 = (SUNAdjointCheckpointScheme)(farg1); + arg2 = (int64_t)(*farg2); + arg3 = (int64_t)(*farg3); + arg4 = (sunrealtype)(*farg4); + arg5 = (int *)(farg5); + result = (SUNErrCode)SUNAdjointCheckpointScheme_ShouldWeSave_Fixed(arg1,arg2,arg3,arg4,arg5); fresult = (SUNErrCode)(result); return fresult; } -SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_InsertVector_Fixed( - SUNAdjointCheckpointScheme farg1, int64_t const* farg2, int64_t const* farg3, - double const* farg4, N_Vector farg5) -{ - int fresult; - SUNAdjointCheckpointScheme arg1 = (SUNAdjointCheckpointScheme)0; - int64_t arg2; - int64_t arg3; - sunrealtype arg4; - N_Vector arg5 = (N_Vector)0; - SUNErrCode result; - arg1 = (SUNAdjointCheckpointScheme)(farg1); - arg2 = (int64_t)(*farg2); - arg3 = (int64_t)(*farg3); - arg4 = (sunrealtype)(*farg4); - arg5 = (N_Vector)(farg5); - result = (SUNErrCode)SUNAdjointCheckpointScheme_InsertVector_Fixed(arg1, arg2, - arg3, arg4, - arg5); +SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_InsertVector_Fixed(SUNAdjointCheckpointScheme farg1, int64_t const *farg2, int64_t const *farg3, double const *farg4, N_Vector farg5) { + int fresult ; + SUNAdjointCheckpointScheme arg1 = (SUNAdjointCheckpointScheme) 0 ; + int64_t arg2 ; + int64_t arg3 ; + sunrealtype arg4 ; + N_Vector arg5 = (N_Vector) 0 ; + SUNErrCode result; + + arg1 = (SUNAdjointCheckpointScheme)(farg1); + arg2 = (int64_t)(*farg2); + arg3 = (int64_t)(*farg3); + arg4 = (sunrealtype)(*farg4); + arg5 = (N_Vector)(farg5); + result = (SUNErrCode)SUNAdjointCheckpointScheme_InsertVector_Fixed(arg1,arg2,arg3,arg4,arg5); fresult = (SUNErrCode)(result); return fresult; } -SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_ShouldWeDelete_Fixed( - SUNAdjointCheckpointScheme farg1, int64_t const* farg2, int64_t const* farg3, - int* farg4) -{ - int fresult; - SUNAdjointCheckpointScheme arg1 = (SUNAdjointCheckpointScheme)0; - int64_t arg2; - int64_t arg3; - int* arg4 = (int*)0; - SUNErrCode result; +SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_ShouldWeDelete_Fixed(SUNAdjointCheckpointScheme farg1, int64_t const *farg2, int64_t const *farg3, int *farg4) { + int fresult ; + SUNAdjointCheckpointScheme arg1 = (SUNAdjointCheckpointScheme) 0 ; + int64_t arg2 ; + int64_t arg3 ; + int *arg4 = (int *) 0 ; + SUNErrCode result; + arg1 = (SUNAdjointCheckpointScheme)(farg1); arg2 = (int64_t)(*farg2); arg3 = (int64_t)(*farg3); - arg4 = (int*)(farg4); - result = - (SUNErrCode)SUNAdjointCheckpointScheme_ShouldWeDelete_Fixed(arg1, arg2, - arg3, arg4); + arg4 = (int *)(farg4); + result = (SUNErrCode)SUNAdjointCheckpointScheme_ShouldWeDelete_Fixed(arg1,arg2,arg3,arg4); fresult = (SUNErrCode)(result); return fresult; } -SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_RemoveVector_Fixed( - SUNAdjointCheckpointScheme farg1, int64_t const* farg2, int64_t const* farg3, - void* farg4) -{ - int fresult; - SUNAdjointCheckpointScheme arg1 = (SUNAdjointCheckpointScheme)0; - int64_t arg2; - int64_t arg3; - N_Vector* arg4 = (N_Vector*)0; - SUNErrCode result; - arg1 = (SUNAdjointCheckpointScheme)(farg1); - arg2 = (int64_t)(*farg2); - arg3 = (int64_t)(*farg3); - arg4 = (N_Vector*)(farg4); - result = (SUNErrCode)SUNAdjointCheckpointScheme_RemoveVector_Fixed(arg1, arg2, - arg3, arg4); +SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_RemoveVector_Fixed(SUNAdjointCheckpointScheme farg1, int64_t const *farg2, int64_t const *farg3, void *farg4) { + int fresult ; + SUNAdjointCheckpointScheme arg1 = (SUNAdjointCheckpointScheme) 0 ; + int64_t arg2 ; + int64_t arg3 ; + N_Vector *arg4 = (N_Vector *) 0 ; + SUNErrCode result; + + arg1 = (SUNAdjointCheckpointScheme)(farg1); + arg2 = (int64_t)(*farg2); + arg3 = (int64_t)(*farg3); + arg4 = (N_Vector *)(farg4); + result = (SUNErrCode)SUNAdjointCheckpointScheme_RemoveVector_Fixed(arg1,arg2,arg3,arg4); fresult = (SUNErrCode)(result); return fresult; } -SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_LoadVector_Fixed( - SUNAdjointCheckpointScheme farg1, int64_t const* farg2, int64_t const* farg3, - int const* farg4, void* farg5, double* farg6) -{ - int fresult; - SUNAdjointCheckpointScheme arg1 = (SUNAdjointCheckpointScheme)0; - int64_t arg2; - int64_t arg3; - int arg4; - N_Vector* arg5 = (N_Vector*)0; - sunrealtype* arg6 = (sunrealtype*)0; - SUNErrCode result; - arg1 = (SUNAdjointCheckpointScheme)(farg1); - arg2 = (int64_t)(*farg2); - arg3 = (int64_t)(*farg3); - arg4 = (int)(*farg4); - arg5 = (N_Vector*)(farg5); - arg6 = (sunrealtype*)(farg6); - result = (SUNErrCode)SUNAdjointCheckpointScheme_LoadVector_Fixed(arg1, arg2, - arg3, arg4, - arg5, arg6); +SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_LoadVector_Fixed(SUNAdjointCheckpointScheme farg1, int64_t const *farg2, int64_t const *farg3, int const *farg4, void *farg5, double *farg6) { + int fresult ; + SUNAdjointCheckpointScheme arg1 = (SUNAdjointCheckpointScheme) 0 ; + int64_t arg2 ; + int64_t arg3 ; + int arg4 ; + N_Vector *arg5 = (N_Vector *) 0 ; + sunrealtype *arg6 = (sunrealtype *) 0 ; + SUNErrCode result; + + arg1 = (SUNAdjointCheckpointScheme)(farg1); + arg2 = (int64_t)(*farg2); + arg3 = (int64_t)(*farg3); + arg4 = (int)(*farg4); + arg5 = (N_Vector *)(farg5); + arg6 = (sunrealtype *)(farg6); + result = (SUNErrCode)SUNAdjointCheckpointScheme_LoadVector_Fixed(arg1,arg2,arg3,arg4,arg5,arg6); fresult = (SUNErrCode)(result); return fresult; } -SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_Destroy_Fixed(void* farg1) -{ - int fresult; - SUNAdjointCheckpointScheme* arg1 = (SUNAdjointCheckpointScheme*)0; - SUNErrCode result; - arg1 = (SUNAdjointCheckpointScheme*)(farg1); - result = (SUNErrCode)SUNAdjointCheckpointScheme_Destroy_Fixed(arg1); +SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_Destroy_Fixed(void *farg1) { + int fresult ; + SUNAdjointCheckpointScheme *arg1 = (SUNAdjointCheckpointScheme *) 0 ; + SUNErrCode result; + + arg1 = (SUNAdjointCheckpointScheme *)(farg1); + result = (SUNErrCode)SUNAdjointCheckpointScheme_Destroy_Fixed(arg1); fresult = (SUNErrCode)(result); return fresult; } -SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_EnableDense_Fixed( - SUNAdjointCheckpointScheme farg1, int const* farg2) -{ - int fresult; - SUNAdjointCheckpointScheme arg1 = (SUNAdjointCheckpointScheme)0; - int arg2; - SUNErrCode result; - arg1 = (SUNAdjointCheckpointScheme)(farg1); - arg2 = (int)(*farg2); - result = (SUNErrCode)SUNAdjointCheckpointScheme_EnableDense_Fixed(arg1, arg2); +SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_EnableDense_Fixed(SUNAdjointCheckpointScheme farg1, int const *farg2) { + int fresult ; + SUNAdjointCheckpointScheme arg1 = (SUNAdjointCheckpointScheme) 0 ; + int arg2 ; + SUNErrCode result; + + arg1 = (SUNAdjointCheckpointScheme)(farg1); + arg2 = (int)(*farg2); + result = (SUNErrCode)SUNAdjointCheckpointScheme_EnableDense_Fixed(arg1,arg2); fresult = (SUNErrCode)(result); return fresult; } + + + diff --git a/src/sunadjointcheckpointscheme/fixed/fmod_int32/fsunadjointcheckpointscheme_fixed_mod.f90 b/src/sunadjointcheckpointscheme/fixed/fmod_int32/fsunadjointcheckpointscheme_fixed_mod.f90 index 743637ef92..e9e8dc736b 100644 --- a/src/sunadjointcheckpointscheme/fixed/fmod_int32/fsunadjointcheckpointscheme_fixed_mod.f90 +++ b/src/sunadjointcheckpointscheme/fixed/fmod_int32/fsunadjointcheckpointscheme_fixed_mod.f90 @@ -145,15 +145,15 @@ function FSUNAdjointCheckpointScheme_Create_Fixed(io_mode, mem_helper, interval, integer(C_INT), intent(in) :: keep type(C_PTR) :: sunctx type(C_PTR), target, intent(inout) :: check_scheme_ptr -integer(C_INT) :: fresult -integer(C_INT) :: farg1 -type(C_PTR) :: farg2 -integer(C_INT64_T) :: farg3 -integer(C_INT64_T) :: farg4 -integer(C_INT) :: farg5 -integer(C_INT) :: farg6 -type(C_PTR) :: farg7 -type(C_PTR) :: farg8 +integer(C_INT) :: fresult +integer(C_INT) :: farg1 +type(C_PTR) :: farg2 +integer(C_INT64_T) :: farg3 +integer(C_INT64_T) :: farg4 +integer(C_INT) :: farg5 +integer(C_INT) :: farg6 +type(C_PTR) :: farg7 +type(C_PTR) :: farg8 farg1 = io_mode farg2 = c_loc(mem_helper) @@ -176,12 +176,12 @@ function FSUNAdjointCheckpointScheme_ShouldWeSave_Fixed(check_scheme, step_num, integer(C_INT64_T), intent(in) :: stage_num real(C_DOUBLE), intent(in) :: t integer(C_INT), dimension(*), target, intent(inout) :: yes_or_no -integer(C_INT) :: fresult -type(C_PTR) :: farg1 -integer(C_INT64_T) :: farg2 -integer(C_INT64_T) :: farg3 -real(C_DOUBLE) :: farg4 -type(C_PTR) :: farg5 +integer(C_INT) :: fresult +type(C_PTR) :: farg1 +integer(C_INT64_T) :: farg2 +integer(C_INT64_T) :: farg3 +real(C_DOUBLE) :: farg4 +type(C_PTR) :: farg5 farg1 = c_loc(check_scheme) farg2 = step_num @@ -201,12 +201,12 @@ function FSUNAdjointCheckpointScheme_InsertVector_Fixed(check_scheme, step_num, integer(C_INT64_T), intent(in) :: stage_num real(C_DOUBLE), intent(in) :: t type(N_Vector), target, intent(inout) :: state -integer(C_INT) :: fresult -type(C_PTR) :: farg1 -integer(C_INT64_T) :: farg2 -integer(C_INT64_T) :: farg3 -real(C_DOUBLE) :: farg4 -type(C_PTR) :: farg5 +integer(C_INT) :: fresult +type(C_PTR) :: farg1 +integer(C_INT64_T) :: farg2 +integer(C_INT64_T) :: farg3 +real(C_DOUBLE) :: farg4 +type(C_PTR) :: farg5 farg1 = c_loc(check_scheme) farg2 = step_num @@ -225,11 +225,11 @@ function FSUNAdjointCheckpointScheme_ShouldWeDelete_Fixed(check_scheme, step_num integer(C_INT64_T), intent(in) :: step_num integer(C_INT64_T), intent(in) :: stage_num integer(C_INT), dimension(*), target, intent(inout) :: yes_or_no -integer(C_INT) :: fresult -type(C_PTR) :: farg1 -integer(C_INT64_T) :: farg2 -integer(C_INT64_T) :: farg3 -type(C_PTR) :: farg4 +integer(C_INT) :: fresult +type(C_PTR) :: farg1 +integer(C_INT64_T) :: farg2 +integer(C_INT64_T) :: farg3 +type(C_PTR) :: farg4 farg1 = c_loc(check_scheme) farg2 = step_num @@ -247,11 +247,11 @@ function FSUNAdjointCheckpointScheme_RemoveVector_Fixed(check_scheme, step_num, integer(C_INT64_T), intent(in) :: step_num integer(C_INT64_T), intent(in) :: stage_num type(C_PTR) :: out -integer(C_INT) :: fresult -type(C_PTR) :: farg1 -integer(C_INT64_T) :: farg2 -integer(C_INT64_T) :: farg3 -type(C_PTR) :: farg4 +integer(C_INT) :: fresult +type(C_PTR) :: farg1 +integer(C_INT64_T) :: farg2 +integer(C_INT64_T) :: farg3 +type(C_PTR) :: farg4 farg1 = c_loc(check_scheme) farg2 = step_num @@ -271,13 +271,13 @@ function FSUNAdjointCheckpointScheme_LoadVector_Fixed(check_scheme, step_num, st integer(C_INT), intent(in) :: peek type(C_PTR) :: out real(C_DOUBLE), dimension(*), target, intent(inout) :: tout -integer(C_INT) :: fresult -type(C_PTR) :: farg1 -integer(C_INT64_T) :: farg2 -integer(C_INT64_T) :: farg3 -integer(C_INT) :: farg4 -type(C_PTR) :: farg5 -type(C_PTR) :: farg6 +integer(C_INT) :: fresult +type(C_PTR) :: farg1 +integer(C_INT64_T) :: farg2 +integer(C_INT64_T) :: farg3 +integer(C_INT) :: farg4 +type(C_PTR) :: farg5 +type(C_PTR) :: farg6 farg1 = c_loc(check_scheme) farg2 = step_num @@ -294,8 +294,8 @@ function FSUNAdjointCheckpointScheme_Destroy_Fixed(check_scheme_ptr) & use, intrinsic :: ISO_C_BINDING integer(C_INT) :: swig_result type(C_PTR), target, intent(inout) :: check_scheme_ptr -integer(C_INT) :: fresult -type(C_PTR) :: farg1 +integer(C_INT) :: fresult +type(C_PTR) :: farg1 farg1 = c_loc(check_scheme_ptr) fresult = swigc_FSUNAdjointCheckpointScheme_Destroy_Fixed(farg1) @@ -308,9 +308,9 @@ function FSUNAdjointCheckpointScheme_EnableDense_Fixed(check_scheme, on_or_off) integer(C_INT) :: swig_result type(SUNAdjointCheckpointScheme), target, intent(inout) :: check_scheme integer(C_INT), intent(in) :: on_or_off -integer(C_INT) :: fresult -type(C_PTR) :: farg1 -integer(C_INT) :: farg2 +integer(C_INT) :: fresult +type(C_PTR) :: farg1 +integer(C_INT) :: farg2 farg1 = c_loc(check_scheme) farg2 = on_or_off diff --git a/src/sunadjointcheckpointscheme/fixed/fmod_int64/fsunadjointcheckpointscheme_fixed_mod.c b/src/sunadjointcheckpointscheme/fixed/fmod_int64/fsunadjointcheckpointscheme_fixed_mod.c index 7d7a0129c7..6a63e5d263 100644 --- a/src/sunadjointcheckpointscheme/fixed/fmod_int64/fsunadjointcheckpointscheme_fixed_mod.c +++ b/src/sunadjointcheckpointscheme/fixed/fmod_int64/fsunadjointcheckpointscheme_fixed_mod.c @@ -29,125 +29,121 @@ /* template workaround for compilers that cannot correctly implement the C++ standard */ #ifndef SWIGTEMPLATEDISAMBIGUATOR -#if defined(__SUNPRO_CC) && (__SUNPRO_CC <= 0x560) -#define SWIGTEMPLATEDISAMBIGUATOR template -#elif defined(__HP_aCC) +# if defined(__SUNPRO_CC) && (__SUNPRO_CC <= 0x560) +# define SWIGTEMPLATEDISAMBIGUATOR template +# elif defined(__HP_aCC) /* Needed even with `aCC -AA' when `aCC -V' reports HP ANSI C++ B3910B A.03.55 */ /* If we find a maximum version that requires this, the test would be __HP_aCC <= 35500 for A.03.55 */ -#define SWIGTEMPLATEDISAMBIGUATOR template -#else -#define SWIGTEMPLATEDISAMBIGUATOR -#endif +# define SWIGTEMPLATEDISAMBIGUATOR template +# else +# define SWIGTEMPLATEDISAMBIGUATOR +# endif #endif /* inline attribute */ #ifndef SWIGINLINE -#if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__)) -#define SWIGINLINE inline -#else -#define SWIGINLINE -#endif +# if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__)) +# define SWIGINLINE inline +# else +# define SWIGINLINE +# endif #endif /* attribute recognised by some compilers to avoid 'unused' warnings */ #ifndef SWIGUNUSED -#if defined(__GNUC__) -#if !(defined(__cplusplus)) || \ - (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)) -#define SWIGUNUSED __attribute__((__unused__)) -#else -#define SWIGUNUSED -#endif -#elif defined(__ICC) -#define SWIGUNUSED __attribute__((__unused__)) -#else -#define SWIGUNUSED -#endif +# if defined(__GNUC__) +# if !(defined(__cplusplus)) || (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)) +# define SWIGUNUSED __attribute__ ((__unused__)) +# else +# define SWIGUNUSED +# endif +# elif defined(__ICC) +# define SWIGUNUSED __attribute__ ((__unused__)) +# else +# define SWIGUNUSED +# endif #endif #ifndef SWIG_MSC_UNSUPPRESS_4505 -#if defined(_MSC_VER) -#pragma warning(disable : 4505) /* unreferenced local function has been removed */ -#endif +# if defined(_MSC_VER) +# pragma warning(disable : 4505) /* unreferenced local function has been removed */ +# endif #endif #ifndef SWIGUNUSEDPARM -#ifdef __cplusplus -#define SWIGUNUSEDPARM(p) -#else -#define SWIGUNUSEDPARM(p) p SWIGUNUSED -#endif +# ifdef __cplusplus +# define SWIGUNUSEDPARM(p) +# else +# define SWIGUNUSEDPARM(p) p SWIGUNUSED +# endif #endif /* internal SWIG method */ #ifndef SWIGINTERN -#define SWIGINTERN static SWIGUNUSED +# define SWIGINTERN static SWIGUNUSED #endif /* internal inline SWIG method */ #ifndef SWIGINTERNINLINE -#define SWIGINTERNINLINE SWIGINTERN SWIGINLINE +# define SWIGINTERNINLINE SWIGINTERN SWIGINLINE #endif /* qualifier for exported *const* global data variables*/ #ifndef SWIGEXTERN -#ifdef __cplusplus -#define SWIGEXTERN extern -#else -#define SWIGEXTERN -#endif +# ifdef __cplusplus +# define SWIGEXTERN extern +# else +# define SWIGEXTERN +# endif #endif /* exporting methods */ #if defined(__GNUC__) -#if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4) -#ifndef GCC_HASCLASSVISIBILITY -#define GCC_HASCLASSVISIBILITY -#endif -#endif +# if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4) +# ifndef GCC_HASCLASSVISIBILITY +# define GCC_HASCLASSVISIBILITY +# endif +# endif #endif #ifndef SWIGEXPORT -#if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__) -#if defined(STATIC_LINKED) -#define SWIGEXPORT -#else -#define SWIGEXPORT __declspec(dllexport) -#endif -#else -#if defined(__GNUC__) && defined(GCC_HASCLASSVISIBILITY) -#define SWIGEXPORT __attribute__((visibility("default"))) -#else -#define SWIGEXPORT -#endif -#endif +# if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__) +# if defined(STATIC_LINKED) +# define SWIGEXPORT +# else +# define SWIGEXPORT __declspec(dllexport) +# endif +# else +# if defined(__GNUC__) && defined(GCC_HASCLASSVISIBILITY) +# define SWIGEXPORT __attribute__ ((visibility("default"))) +# else +# define SWIGEXPORT +# endif +# endif #endif /* calling conventions for Windows */ #ifndef SWIGSTDCALL -#if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__) -#define SWIGSTDCALL __stdcall -#else -#define SWIGSTDCALL -#endif +# if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__) +# define SWIGSTDCALL __stdcall +# else +# define SWIGSTDCALL +# endif #endif /* Deal with Microsoft's attempt at deprecating C standard runtime functions */ -#if !defined(SWIG_NO_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && \ - !defined(_CRT_SECURE_NO_DEPRECATE) -#define _CRT_SECURE_NO_DEPRECATE +#if !defined(SWIG_NO_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_CRT_SECURE_NO_DEPRECATE) +# define _CRT_SECURE_NO_DEPRECATE #endif /* Deal with Microsoft's attempt at deprecating methods in the standard C++ library */ -#if !defined(SWIG_NO_SCL_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && \ - !defined(_SCL_SECURE_NO_DEPRECATE) -#define _SCL_SECURE_NO_DEPRECATE +#if !defined(SWIG_NO_SCL_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_SCL_SECURE_NO_DEPRECATE) +# define _SCL_SECURE_NO_DEPRECATE #endif /* Deal with Apple's deprecated 'AssertMacros.h' from Carbon-framework */ -#if defined(__APPLE__) && \ - !defined(__ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES) -#define __ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES 0 +#if defined(__APPLE__) && !defined(__ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES) +# define __ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES 0 #endif /* Intel's compiler complains if a variable which was never initialised is @@ -156,231 +152,210 @@ * See: https://github.com/swig/swig/issues/192 for more discussion. */ #ifdef __INTEL_COMPILER -#pragma warning disable 592 +# pragma warning disable 592 #endif /* Errors in SWIG */ -#define SWIG_UnknownError -1 -#define SWIG_IOError -2 -#define SWIG_RuntimeError -3 -#define SWIG_IndexError -4 -#define SWIG_TypeError -5 -#define SWIG_DivisionByZero -6 -#define SWIG_OverflowError -7 -#define SWIG_SyntaxError -8 -#define SWIG_ValueError -9 -#define SWIG_SystemError -10 -#define SWIG_AttributeError -11 -#define SWIG_MemoryError -12 -#define SWIG_NullReferenceError -13 +#define SWIG_UnknownError -1 +#define SWIG_IOError -2 +#define SWIG_RuntimeError -3 +#define SWIG_IndexError -4 +#define SWIG_TypeError -5 +#define SWIG_DivisionByZero -6 +#define SWIG_OverflowError -7 +#define SWIG_SyntaxError -8 +#define SWIG_ValueError -9 +#define SWIG_SystemError -10 +#define SWIG_AttributeError -11 +#define SWIG_MemoryError -12 +#define SWIG_NullReferenceError -13 + + + #include #define SWIG_exception_impl(DECL, CODE, MSG, RETURNNULL) \ - { \ - printf("In " DECL ": " MSG); \ - assert(0); \ - RETURNNULL; \ - } + { printf("In " DECL ": " MSG); assert(0); RETURNNULL; } + #include #if defined(_MSC_VER) || defined(__BORLANDC__) || defined(_WATCOM) -#ifndef snprintf -#define snprintf _snprintf -#endif +# ifndef snprintf +# define snprintf _snprintf +# endif #endif + /* Support for the `contract` feature. * * Note that RETURNNULL is first because it's inserted via a 'Replaceall' in * the fortran.cxx file. */ -#define SWIG_contract_assert(RETURNNULL, EXPR, MSG) \ - if (!(EXPR)) \ - { \ - SWIG_exception_impl("$decl", SWIG_ValueError, MSG, RETURNNULL); \ - } +#define SWIG_contract_assert(RETURNNULL, EXPR, MSG) \ + if (!(EXPR)) { SWIG_exception_impl("$decl", SWIG_ValueError, MSG, RETURNNULL); } + -#define SWIGVERSION 0x040000 +#define SWIGVERSION 0x040000 #define SWIG_VERSION SWIGVERSION -#define SWIG_as_voidptr(a) (void*)((const void*)(a)) -#define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a), (void**)(a)) + +#define SWIG_as_voidptr(a) (void *)((const void *)(a)) +#define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a),(void**)(a)) + #include + #include "sunadjointcheckpointscheme/sunadjointcheckpointscheme_fixed.h" -SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_Create_Fixed( - int const* farg1, SUNMemoryHelper farg2, int64_t const* farg3, - int64_t const* farg4, int const* farg5, int const* farg6, void* farg7, - void* farg8) -{ - int fresult; - SUNDataIOMode arg1; - SUNMemoryHelper arg2 = (SUNMemoryHelper)0; - int64_t arg3; - int64_t arg4; - int arg5; - int arg6; - SUNContext arg7 = (SUNContext)0; - SUNAdjointCheckpointScheme* arg8 = (SUNAdjointCheckpointScheme*)0; +SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_Create_Fixed(int const *farg1, SUNMemoryHelper farg2, int64_t const *farg3, int64_t const *farg4, int const *farg5, int const *farg6, void *farg7, void *farg8) { + int fresult ; + SUNDataIOMode arg1 ; + SUNMemoryHelper arg2 = (SUNMemoryHelper) 0 ; + int64_t arg3 ; + int64_t arg4 ; + int arg5 ; + int arg6 ; + SUNContext arg7 = (SUNContext) 0 ; + SUNAdjointCheckpointScheme *arg8 = (SUNAdjointCheckpointScheme *) 0 ; SUNErrCode result; - - arg1 = (SUNDataIOMode)(*farg1); - arg2 = (SUNMemoryHelper)(farg2); - arg3 = (int64_t)(*farg3); - arg4 = (int64_t)(*farg4); - arg5 = (int)(*farg5); - arg6 = (int)(*farg6); - arg7 = (SUNContext)(farg7); - arg8 = (SUNAdjointCheckpointScheme*)(farg8); - result = (SUNErrCode)SUNAdjointCheckpointScheme_Create_Fixed(arg1, arg2, arg3, - arg4, arg5, arg6, - arg7, arg8); + + arg1 = (SUNDataIOMode)(*farg1); + arg2 = (SUNMemoryHelper)(farg2); + arg3 = (int64_t)(*farg3); + arg4 = (int64_t)(*farg4); + arg5 = (int)(*farg5); + arg6 = (int)(*farg6); + arg7 = (SUNContext)(farg7); + arg8 = (SUNAdjointCheckpointScheme *)(farg8); + result = (SUNErrCode)SUNAdjointCheckpointScheme_Create_Fixed(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8); fresult = (SUNErrCode)(result); return fresult; } -SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_ShouldWeSave_Fixed( - SUNAdjointCheckpointScheme farg1, int64_t const* farg2, int64_t const* farg3, - double const* farg4, int* farg5) -{ - int fresult; - SUNAdjointCheckpointScheme arg1 = (SUNAdjointCheckpointScheme)0; - int64_t arg2; - int64_t arg3; - sunrealtype arg4; - int* arg5 = (int*)0; - SUNErrCode result; - arg1 = (SUNAdjointCheckpointScheme)(farg1); - arg2 = (int64_t)(*farg2); - arg3 = (int64_t)(*farg3); - arg4 = (sunrealtype)(*farg4); - arg5 = (int*)(farg5); - result = (SUNErrCode)SUNAdjointCheckpointScheme_ShouldWeSave_Fixed(arg1, arg2, - arg3, arg4, - arg5); +SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_ShouldWeSave_Fixed(SUNAdjointCheckpointScheme farg1, int64_t const *farg2, int64_t const *farg3, double const *farg4, int *farg5) { + int fresult ; + SUNAdjointCheckpointScheme arg1 = (SUNAdjointCheckpointScheme) 0 ; + int64_t arg2 ; + int64_t arg3 ; + sunrealtype arg4 ; + int *arg5 = (int *) 0 ; + SUNErrCode result; + + arg1 = (SUNAdjointCheckpointScheme)(farg1); + arg2 = (int64_t)(*farg2); + arg3 = (int64_t)(*farg3); + arg4 = (sunrealtype)(*farg4); + arg5 = (int *)(farg5); + result = (SUNErrCode)SUNAdjointCheckpointScheme_ShouldWeSave_Fixed(arg1,arg2,arg3,arg4,arg5); fresult = (SUNErrCode)(result); return fresult; } -SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_InsertVector_Fixed( - SUNAdjointCheckpointScheme farg1, int64_t const* farg2, int64_t const* farg3, - double const* farg4, N_Vector farg5) -{ - int fresult; - SUNAdjointCheckpointScheme arg1 = (SUNAdjointCheckpointScheme)0; - int64_t arg2; - int64_t arg3; - sunrealtype arg4; - N_Vector arg5 = (N_Vector)0; - SUNErrCode result; - arg1 = (SUNAdjointCheckpointScheme)(farg1); - arg2 = (int64_t)(*farg2); - arg3 = (int64_t)(*farg3); - arg4 = (sunrealtype)(*farg4); - arg5 = (N_Vector)(farg5); - result = (SUNErrCode)SUNAdjointCheckpointScheme_InsertVector_Fixed(arg1, arg2, - arg3, arg4, - arg5); +SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_InsertVector_Fixed(SUNAdjointCheckpointScheme farg1, int64_t const *farg2, int64_t const *farg3, double const *farg4, N_Vector farg5) { + int fresult ; + SUNAdjointCheckpointScheme arg1 = (SUNAdjointCheckpointScheme) 0 ; + int64_t arg2 ; + int64_t arg3 ; + sunrealtype arg4 ; + N_Vector arg5 = (N_Vector) 0 ; + SUNErrCode result; + + arg1 = (SUNAdjointCheckpointScheme)(farg1); + arg2 = (int64_t)(*farg2); + arg3 = (int64_t)(*farg3); + arg4 = (sunrealtype)(*farg4); + arg5 = (N_Vector)(farg5); + result = (SUNErrCode)SUNAdjointCheckpointScheme_InsertVector_Fixed(arg1,arg2,arg3,arg4,arg5); fresult = (SUNErrCode)(result); return fresult; } -SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_ShouldWeDelete_Fixed( - SUNAdjointCheckpointScheme farg1, int64_t const* farg2, int64_t const* farg3, - int* farg4) -{ - int fresult; - SUNAdjointCheckpointScheme arg1 = (SUNAdjointCheckpointScheme)0; - int64_t arg2; - int64_t arg3; - int* arg4 = (int*)0; - SUNErrCode result; +SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_ShouldWeDelete_Fixed(SUNAdjointCheckpointScheme farg1, int64_t const *farg2, int64_t const *farg3, int *farg4) { + int fresult ; + SUNAdjointCheckpointScheme arg1 = (SUNAdjointCheckpointScheme) 0 ; + int64_t arg2 ; + int64_t arg3 ; + int *arg4 = (int *) 0 ; + SUNErrCode result; + arg1 = (SUNAdjointCheckpointScheme)(farg1); arg2 = (int64_t)(*farg2); arg3 = (int64_t)(*farg3); - arg4 = (int*)(farg4); - result = - (SUNErrCode)SUNAdjointCheckpointScheme_ShouldWeDelete_Fixed(arg1, arg2, - arg3, arg4); + arg4 = (int *)(farg4); + result = (SUNErrCode)SUNAdjointCheckpointScheme_ShouldWeDelete_Fixed(arg1,arg2,arg3,arg4); fresult = (SUNErrCode)(result); return fresult; } -SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_RemoveVector_Fixed( - SUNAdjointCheckpointScheme farg1, int64_t const* farg2, int64_t const* farg3, - void* farg4) -{ - int fresult; - SUNAdjointCheckpointScheme arg1 = (SUNAdjointCheckpointScheme)0; - int64_t arg2; - int64_t arg3; - N_Vector* arg4 = (N_Vector*)0; - SUNErrCode result; - arg1 = (SUNAdjointCheckpointScheme)(farg1); - arg2 = (int64_t)(*farg2); - arg3 = (int64_t)(*farg3); - arg4 = (N_Vector*)(farg4); - result = (SUNErrCode)SUNAdjointCheckpointScheme_RemoveVector_Fixed(arg1, arg2, - arg3, arg4); +SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_RemoveVector_Fixed(SUNAdjointCheckpointScheme farg1, int64_t const *farg2, int64_t const *farg3, void *farg4) { + int fresult ; + SUNAdjointCheckpointScheme arg1 = (SUNAdjointCheckpointScheme) 0 ; + int64_t arg2 ; + int64_t arg3 ; + N_Vector *arg4 = (N_Vector *) 0 ; + SUNErrCode result; + + arg1 = (SUNAdjointCheckpointScheme)(farg1); + arg2 = (int64_t)(*farg2); + arg3 = (int64_t)(*farg3); + arg4 = (N_Vector *)(farg4); + result = (SUNErrCode)SUNAdjointCheckpointScheme_RemoveVector_Fixed(arg1,arg2,arg3,arg4); fresult = (SUNErrCode)(result); return fresult; } -SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_LoadVector_Fixed( - SUNAdjointCheckpointScheme farg1, int64_t const* farg2, int64_t const* farg3, - int const* farg4, void* farg5, double* farg6) -{ - int fresult; - SUNAdjointCheckpointScheme arg1 = (SUNAdjointCheckpointScheme)0; - int64_t arg2; - int64_t arg3; - int arg4; - N_Vector* arg5 = (N_Vector*)0; - sunrealtype* arg6 = (sunrealtype*)0; - SUNErrCode result; - arg1 = (SUNAdjointCheckpointScheme)(farg1); - arg2 = (int64_t)(*farg2); - arg3 = (int64_t)(*farg3); - arg4 = (int)(*farg4); - arg5 = (N_Vector*)(farg5); - arg6 = (sunrealtype*)(farg6); - result = (SUNErrCode)SUNAdjointCheckpointScheme_LoadVector_Fixed(arg1, arg2, - arg3, arg4, - arg5, arg6); +SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_LoadVector_Fixed(SUNAdjointCheckpointScheme farg1, int64_t const *farg2, int64_t const *farg3, int const *farg4, void *farg5, double *farg6) { + int fresult ; + SUNAdjointCheckpointScheme arg1 = (SUNAdjointCheckpointScheme) 0 ; + int64_t arg2 ; + int64_t arg3 ; + int arg4 ; + N_Vector *arg5 = (N_Vector *) 0 ; + sunrealtype *arg6 = (sunrealtype *) 0 ; + SUNErrCode result; + + arg1 = (SUNAdjointCheckpointScheme)(farg1); + arg2 = (int64_t)(*farg2); + arg3 = (int64_t)(*farg3); + arg4 = (int)(*farg4); + arg5 = (N_Vector *)(farg5); + arg6 = (sunrealtype *)(farg6); + result = (SUNErrCode)SUNAdjointCheckpointScheme_LoadVector_Fixed(arg1,arg2,arg3,arg4,arg5,arg6); fresult = (SUNErrCode)(result); return fresult; } -SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_Destroy_Fixed(void* farg1) -{ - int fresult; - SUNAdjointCheckpointScheme* arg1 = (SUNAdjointCheckpointScheme*)0; - SUNErrCode result; - arg1 = (SUNAdjointCheckpointScheme*)(farg1); - result = (SUNErrCode)SUNAdjointCheckpointScheme_Destroy_Fixed(arg1); +SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_Destroy_Fixed(void *farg1) { + int fresult ; + SUNAdjointCheckpointScheme *arg1 = (SUNAdjointCheckpointScheme *) 0 ; + SUNErrCode result; + + arg1 = (SUNAdjointCheckpointScheme *)(farg1); + result = (SUNErrCode)SUNAdjointCheckpointScheme_Destroy_Fixed(arg1); fresult = (SUNErrCode)(result); return fresult; } -SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_EnableDense_Fixed( - SUNAdjointCheckpointScheme farg1, int const* farg2) -{ - int fresult; - SUNAdjointCheckpointScheme arg1 = (SUNAdjointCheckpointScheme)0; - int arg2; - SUNErrCode result; - arg1 = (SUNAdjointCheckpointScheme)(farg1); - arg2 = (int)(*farg2); - result = (SUNErrCode)SUNAdjointCheckpointScheme_EnableDense_Fixed(arg1, arg2); +SWIGEXPORT int _wrap_FSUNAdjointCheckpointScheme_EnableDense_Fixed(SUNAdjointCheckpointScheme farg1, int const *farg2) { + int fresult ; + SUNAdjointCheckpointScheme arg1 = (SUNAdjointCheckpointScheme) 0 ; + int arg2 ; + SUNErrCode result; + + arg1 = (SUNAdjointCheckpointScheme)(farg1); + arg2 = (int)(*farg2); + result = (SUNErrCode)SUNAdjointCheckpointScheme_EnableDense_Fixed(arg1,arg2); fresult = (SUNErrCode)(result); return fresult; } + + + diff --git a/src/sunadjointcheckpointscheme/fixed/fmod_int64/fsunadjointcheckpointscheme_fixed_mod.f90 b/src/sunadjointcheckpointscheme/fixed/fmod_int64/fsunadjointcheckpointscheme_fixed_mod.f90 index 743637ef92..e9e8dc736b 100644 --- a/src/sunadjointcheckpointscheme/fixed/fmod_int64/fsunadjointcheckpointscheme_fixed_mod.f90 +++ b/src/sunadjointcheckpointscheme/fixed/fmod_int64/fsunadjointcheckpointscheme_fixed_mod.f90 @@ -145,15 +145,15 @@ function FSUNAdjointCheckpointScheme_Create_Fixed(io_mode, mem_helper, interval, integer(C_INT), intent(in) :: keep type(C_PTR) :: sunctx type(C_PTR), target, intent(inout) :: check_scheme_ptr -integer(C_INT) :: fresult -integer(C_INT) :: farg1 -type(C_PTR) :: farg2 -integer(C_INT64_T) :: farg3 -integer(C_INT64_T) :: farg4 -integer(C_INT) :: farg5 -integer(C_INT) :: farg6 -type(C_PTR) :: farg7 -type(C_PTR) :: farg8 +integer(C_INT) :: fresult +integer(C_INT) :: farg1 +type(C_PTR) :: farg2 +integer(C_INT64_T) :: farg3 +integer(C_INT64_T) :: farg4 +integer(C_INT) :: farg5 +integer(C_INT) :: farg6 +type(C_PTR) :: farg7 +type(C_PTR) :: farg8 farg1 = io_mode farg2 = c_loc(mem_helper) @@ -176,12 +176,12 @@ function FSUNAdjointCheckpointScheme_ShouldWeSave_Fixed(check_scheme, step_num, integer(C_INT64_T), intent(in) :: stage_num real(C_DOUBLE), intent(in) :: t integer(C_INT), dimension(*), target, intent(inout) :: yes_or_no -integer(C_INT) :: fresult -type(C_PTR) :: farg1 -integer(C_INT64_T) :: farg2 -integer(C_INT64_T) :: farg3 -real(C_DOUBLE) :: farg4 -type(C_PTR) :: farg5 +integer(C_INT) :: fresult +type(C_PTR) :: farg1 +integer(C_INT64_T) :: farg2 +integer(C_INT64_T) :: farg3 +real(C_DOUBLE) :: farg4 +type(C_PTR) :: farg5 farg1 = c_loc(check_scheme) farg2 = step_num @@ -201,12 +201,12 @@ function FSUNAdjointCheckpointScheme_InsertVector_Fixed(check_scheme, step_num, integer(C_INT64_T), intent(in) :: stage_num real(C_DOUBLE), intent(in) :: t type(N_Vector), target, intent(inout) :: state -integer(C_INT) :: fresult -type(C_PTR) :: farg1 -integer(C_INT64_T) :: farg2 -integer(C_INT64_T) :: farg3 -real(C_DOUBLE) :: farg4 -type(C_PTR) :: farg5 +integer(C_INT) :: fresult +type(C_PTR) :: farg1 +integer(C_INT64_T) :: farg2 +integer(C_INT64_T) :: farg3 +real(C_DOUBLE) :: farg4 +type(C_PTR) :: farg5 farg1 = c_loc(check_scheme) farg2 = step_num @@ -225,11 +225,11 @@ function FSUNAdjointCheckpointScheme_ShouldWeDelete_Fixed(check_scheme, step_num integer(C_INT64_T), intent(in) :: step_num integer(C_INT64_T), intent(in) :: stage_num integer(C_INT), dimension(*), target, intent(inout) :: yes_or_no -integer(C_INT) :: fresult -type(C_PTR) :: farg1 -integer(C_INT64_T) :: farg2 -integer(C_INT64_T) :: farg3 -type(C_PTR) :: farg4 +integer(C_INT) :: fresult +type(C_PTR) :: farg1 +integer(C_INT64_T) :: farg2 +integer(C_INT64_T) :: farg3 +type(C_PTR) :: farg4 farg1 = c_loc(check_scheme) farg2 = step_num @@ -247,11 +247,11 @@ function FSUNAdjointCheckpointScheme_RemoveVector_Fixed(check_scheme, step_num, integer(C_INT64_T), intent(in) :: step_num integer(C_INT64_T), intent(in) :: stage_num type(C_PTR) :: out -integer(C_INT) :: fresult -type(C_PTR) :: farg1 -integer(C_INT64_T) :: farg2 -integer(C_INT64_T) :: farg3 -type(C_PTR) :: farg4 +integer(C_INT) :: fresult +type(C_PTR) :: farg1 +integer(C_INT64_T) :: farg2 +integer(C_INT64_T) :: farg3 +type(C_PTR) :: farg4 farg1 = c_loc(check_scheme) farg2 = step_num @@ -271,13 +271,13 @@ function FSUNAdjointCheckpointScheme_LoadVector_Fixed(check_scheme, step_num, st integer(C_INT), intent(in) :: peek type(C_PTR) :: out real(C_DOUBLE), dimension(*), target, intent(inout) :: tout -integer(C_INT) :: fresult -type(C_PTR) :: farg1 -integer(C_INT64_T) :: farg2 -integer(C_INT64_T) :: farg3 -integer(C_INT) :: farg4 -type(C_PTR) :: farg5 -type(C_PTR) :: farg6 +integer(C_INT) :: fresult +type(C_PTR) :: farg1 +integer(C_INT64_T) :: farg2 +integer(C_INT64_T) :: farg3 +integer(C_INT) :: farg4 +type(C_PTR) :: farg5 +type(C_PTR) :: farg6 farg1 = c_loc(check_scheme) farg2 = step_num @@ -294,8 +294,8 @@ function FSUNAdjointCheckpointScheme_Destroy_Fixed(check_scheme_ptr) & use, intrinsic :: ISO_C_BINDING integer(C_INT) :: swig_result type(C_PTR), target, intent(inout) :: check_scheme_ptr -integer(C_INT) :: fresult -type(C_PTR) :: farg1 +integer(C_INT) :: fresult +type(C_PTR) :: farg1 farg1 = c_loc(check_scheme_ptr) fresult = swigc_FSUNAdjointCheckpointScheme_Destroy_Fixed(farg1) @@ -308,9 +308,9 @@ function FSUNAdjointCheckpointScheme_EnableDense_Fixed(check_scheme, on_or_off) integer(C_INT) :: swig_result type(SUNAdjointCheckpointScheme), target, intent(inout) :: check_scheme integer(C_INT), intent(in) :: on_or_off -integer(C_INT) :: fresult -type(C_PTR) :: farg1 -integer(C_INT) :: farg2 +integer(C_INT) :: fresult +type(C_PTR) :: farg1 +integer(C_INT) :: farg2 farg1 = c_loc(check_scheme) farg2 = on_or_off