Skip to content

Commit

Permalink
regen fortran
Browse files Browse the repository at this point in the history
  • Loading branch information
@balos1
balos1 committed Jun 14, 2024
1 parent 6dbfe5b commit 6a47413
Show file tree
Hide file tree
Showing 22 changed files with 91 additions and 91 deletions.
20 changes: 10 additions & 10 deletions src/arkode/fmod_int32/farkode_mod.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2610,14 +2610,14 @@ SWIGEXPORT void * _wrap_FARKodeButcherTable_Copy(void *farg1) {
}


SWIGEXPORT void _wrap_FARKodeButcherTable_Space(void *farg1, int32_t *farg2, int32_t *farg3) {
SWIGEXPORT void _wrap_FARKodeButcherTable_Space(void *farg1, long *farg2, long *farg3) {
ARKodeButcherTable arg1 = (ARKodeButcherTable) 0 ;
sunindextype *arg2 = (sunindextype *) 0 ;
sunindextype *arg3 = (sunindextype *) 0 ;
long *arg2 = (long *) 0 ;
long *arg3 = (long *) 0 ;

arg1 = (ARKodeButcherTable)(farg1);
arg2 = (sunindextype *)(farg2);
arg3 = (sunindextype *)(farg3);
arg2 = (long *)(farg2);
arg3 = (long *)(farg3);
ARKodeButcherTable_Space(arg1,arg2,arg3);
}

Expand Down Expand Up @@ -2967,14 +2967,14 @@ SWIGEXPORT void _wrap_FARKodeSPRKTable_Write(void *farg1, void *farg2) {
}


SWIGEXPORT void _wrap_FARKodeSPRKTable_Space(void *farg1, int32_t *farg2, int32_t *farg3) {
SWIGEXPORT void _wrap_FARKodeSPRKTable_Space(void *farg1, long *farg2, long *farg3) {
ARKodeSPRKTable arg1 = (ARKodeSPRKTable) 0 ;
sunindextype *arg2 = (sunindextype *) 0 ;
sunindextype *arg3 = (sunindextype *) 0 ;
long *arg2 = (long *) 0 ;
long *arg3 = (long *) 0 ;

arg1 = (ARKodeSPRKTable)(farg1);
arg2 = (sunindextype *)(farg2);
arg3 = (sunindextype *)(farg3);
arg2 = (long *)(farg2);
arg3 = (long *)(farg3);
ARKodeSPRKTable_Space(arg1,arg2,arg3);
}

Expand Down
8 changes: 4 additions & 4 deletions src/arkode/fmod_int32/farkode_mod.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -5025,8 +5025,8 @@ function FARKodeButcherTable_Copy(b) &
subroutine FARKodeButcherTable_Space(b, liw, lrw)
use, intrinsic :: ISO_C_BINDING
type(C_PTR) :: b
integer(C_INT32_T), dimension(*), target, intent(inout) :: liw
integer(C_INT32_T), dimension(*), target, intent(inout) :: lrw
integer(C_LONG), dimension(*), target, intent(inout) :: liw
integer(C_LONG), dimension(*), target, intent(inout) :: lrw
type(C_PTR) :: farg1
type(C_PTR) :: farg2
type(C_PTR) :: farg3
Expand Down Expand Up @@ -5445,8 +5445,8 @@ subroutine FARKodeSPRKTable_Write(sprk_table, outfile)
subroutine FARKodeSPRKTable_Space(sprk_storage, liw, lrw)
use, intrinsic :: ISO_C_BINDING
type(C_PTR) :: sprk_storage
integer(C_INT32_T), dimension(*), target, intent(inout) :: liw
integer(C_INT32_T), dimension(*), target, intent(inout) :: lrw
integer(C_LONG), dimension(*), target, intent(inout) :: liw
integer(C_LONG), dimension(*), target, intent(inout) :: lrw
type(C_PTR) :: farg1
type(C_PTR) :: farg2
type(C_PTR) :: farg3
Expand Down
10 changes: 5 additions & 5 deletions src/arkode/fmod_int32/farkode_mristep_mod.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -599,14 +599,14 @@ SWIGEXPORT void * _wrap_FMRIStepCoupling_Copy(void *farg1) {
}


SWIGEXPORT void _wrap_FMRIStepCoupling_Space(void *farg1, int32_t *farg2, int32_t *farg3) {
SWIGEXPORT void _wrap_FMRIStepCoupling_Space(void *farg1, long *farg2, long *farg3) {
MRIStepCoupling arg1 = (MRIStepCoupling) 0 ;
sunindextype *arg2 = (sunindextype *) 0 ;
sunindextype *arg3 = (sunindextype *) 0 ;
long *arg2 = (long *) 0 ;
long *arg3 = (long *) 0 ;

arg1 = (MRIStepCoupling)(farg1);
arg2 = (sunindextype *)(farg2);
arg3 = (sunindextype *)(farg3);
arg2 = (long *)(farg2);
arg3 = (long *)(farg3);
MRIStepCoupling_Space(arg1,arg2,arg3);
}

Expand Down
4 changes: 2 additions & 2 deletions src/arkode/fmod_int32/farkode_mristep_mod.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1749,8 +1749,8 @@ function FMRIStepCoupling_Copy(mric) &
subroutine FMRIStepCoupling_Space(mric, liw, lrw)
use, intrinsic :: ISO_C_BINDING
type(C_PTR) :: mric
integer(C_INT32_T), dimension(*), target, intent(inout) :: liw
integer(C_INT32_T), dimension(*), target, intent(inout) :: lrw
integer(C_LONG), dimension(*), target, intent(inout) :: liw
integer(C_LONG), dimension(*), target, intent(inout) :: lrw
type(C_PTR) :: farg1
type(C_PTR) :: farg2
type(C_PTR) :: farg3
Expand Down
20 changes: 10 additions & 10 deletions src/arkode/fmod_int64/farkode_mod.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2610,14 +2610,14 @@ SWIGEXPORT void * _wrap_FARKodeButcherTable_Copy(void *farg1) {
}


SWIGEXPORT void _wrap_FARKodeButcherTable_Space(void *farg1, int64_t *farg2, int64_t *farg3) {
SWIGEXPORT void _wrap_FARKodeButcherTable_Space(void *farg1, long *farg2, long *farg3) {
ARKodeButcherTable arg1 = (ARKodeButcherTable) 0 ;
sunindextype *arg2 = (sunindextype *) 0 ;
sunindextype *arg3 = (sunindextype *) 0 ;
long *arg2 = (long *) 0 ;
long *arg3 = (long *) 0 ;

arg1 = (ARKodeButcherTable)(farg1);
arg2 = (sunindextype *)(farg2);
arg3 = (sunindextype *)(farg3);
arg2 = (long *)(farg2);
arg3 = (long *)(farg3);
ARKodeButcherTable_Space(arg1,arg2,arg3);
}

Expand Down Expand Up @@ -2967,14 +2967,14 @@ SWIGEXPORT void _wrap_FARKodeSPRKTable_Write(void *farg1, void *farg2) {
}


SWIGEXPORT void _wrap_FARKodeSPRKTable_Space(void *farg1, int64_t *farg2, int64_t *farg3) {
SWIGEXPORT void _wrap_FARKodeSPRKTable_Space(void *farg1, long *farg2, long *farg3) {
ARKodeSPRKTable arg1 = (ARKodeSPRKTable) 0 ;
sunindextype *arg2 = (sunindextype *) 0 ;
sunindextype *arg3 = (sunindextype *) 0 ;
long *arg2 = (long *) 0 ;
long *arg3 = (long *) 0 ;

arg1 = (ARKodeSPRKTable)(farg1);
arg2 = (sunindextype *)(farg2);
arg3 = (sunindextype *)(farg3);
arg2 = (long *)(farg2);
arg3 = (long *)(farg3);
ARKodeSPRKTable_Space(arg1,arg2,arg3);
}

Expand Down
8 changes: 4 additions & 4 deletions src/arkode/fmod_int64/farkode_mod.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -5025,8 +5025,8 @@ function FARKodeButcherTable_Copy(b) &
subroutine FARKodeButcherTable_Space(b, liw, lrw)
use, intrinsic :: ISO_C_BINDING
type(C_PTR) :: b
integer(C_INT64_T), dimension(*), target, intent(inout) :: liw
integer(C_INT64_T), dimension(*), target, intent(inout) :: lrw
integer(C_LONG), dimension(*), target, intent(inout) :: liw
integer(C_LONG), dimension(*), target, intent(inout) :: lrw
type(C_PTR) :: farg1
type(C_PTR) :: farg2
type(C_PTR) :: farg3
Expand Down Expand Up @@ -5445,8 +5445,8 @@ subroutine FARKodeSPRKTable_Write(sprk_table, outfile)
subroutine FARKodeSPRKTable_Space(sprk_storage, liw, lrw)
use, intrinsic :: ISO_C_BINDING
type(C_PTR) :: sprk_storage
integer(C_INT64_T), dimension(*), target, intent(inout) :: liw
integer(C_INT64_T), dimension(*), target, intent(inout) :: lrw
integer(C_LONG), dimension(*), target, intent(inout) :: liw
integer(C_LONG), dimension(*), target, intent(inout) :: lrw
type(C_PTR) :: farg1
type(C_PTR) :: farg2
type(C_PTR) :: farg3
Expand Down
10 changes: 5 additions & 5 deletions src/nvector/manyvector/fmod_int32/fnvector_manyvector_mod.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -328,14 +328,14 @@ SWIGEXPORT void _wrap_FN_VDestroy_ManyVector(N_Vector farg1) {
}


SWIGEXPORT void _wrap_FN_VSpace_ManyVector(N_Vector farg1, int32_t *farg2, int32_t *farg3) {
SWIGEXPORT void _wrap_FN_VSpace_ManyVector(N_Vector farg1, long *farg2, long *farg3) {
N_Vector arg1 = (N_Vector) 0 ;
sunindextype *arg2 = (sunindextype *) 0 ;
sunindextype *arg3 = (sunindextype *) 0 ;
long *arg2 = (long *) 0 ;
long *arg3 = (long *) 0 ;

arg1 = (N_Vector)(farg1);
arg2 = (sunindextype *)(farg2);
arg3 = (sunindextype *)(farg3);
arg2 = (long *)(farg2);
arg3 = (long *)(farg3);
N_VSpace_ManyVector(arg1,arg2,arg3);
}

Expand Down
4 changes: 2 additions & 2 deletions src/nvector/manyvector/fmod_int32/fnvector_manyvector_mod.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -748,8 +748,8 @@ subroutine FN_VDestroy_ManyVector(v)
subroutine FN_VSpace_ManyVector(v, lrw, liw)
use, intrinsic :: ISO_C_BINDING
type(N_Vector), target, intent(inout) :: v
integer(C_INT32_T), dimension(*), target, intent(inout) :: lrw
integer(C_INT32_T), dimension(*), target, intent(inout) :: liw
integer(C_LONG), dimension(*), target, intent(inout) :: lrw
integer(C_LONG), dimension(*), target, intent(inout) :: liw
type(C_PTR) :: farg1
type(C_PTR) :: farg2
type(C_PTR) :: farg3
Expand Down
10 changes: 5 additions & 5 deletions src/nvector/manyvector/fmod_int32/fnvector_mpimanyvector_mod.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -356,14 +356,14 @@ SWIGEXPORT void _wrap_FN_VDestroy_MPIManyVector(N_Vector farg1) {
}


SWIGEXPORT void _wrap_FN_VSpace_MPIManyVector(N_Vector farg1, int32_t *farg2, int32_t *farg3) {
SWIGEXPORT void _wrap_FN_VSpace_MPIManyVector(N_Vector farg1, long *farg2, long *farg3) {
N_Vector arg1 = (N_Vector) 0 ;
sunindextype *arg2 = (sunindextype *) 0 ;
sunindextype *arg3 = (sunindextype *) 0 ;
long *arg2 = (long *) 0 ;
long *arg3 = (long *) 0 ;

arg1 = (N_Vector)(farg1);
arg2 = (sunindextype *)(farg2);
arg3 = (sunindextype *)(farg3);
arg2 = (long *)(farg2);
arg3 = (long *)(farg3);
N_VSpace_MPIManyVector(arg1,arg2,arg3);
}

Expand Down
4 changes: 2 additions & 2 deletions src/nvector/manyvector/fmod_int32/fnvector_mpimanyvector_mod.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -870,8 +870,8 @@ subroutine FN_VDestroy_MPIManyVector(v)
subroutine FN_VSpace_MPIManyVector(v, lrw, liw)
use, intrinsic :: ISO_C_BINDING
type(N_Vector), target, intent(inout) :: v
integer(C_INT32_T), dimension(*), target, intent(inout) :: lrw
integer(C_INT32_T), dimension(*), target, intent(inout) :: liw
integer(C_LONG), dimension(*), target, intent(inout) :: lrw
integer(C_LONG), dimension(*), target, intent(inout) :: liw
type(C_PTR) :: farg1
type(C_PTR) :: farg2
type(C_PTR) :: farg3
Expand Down
10 changes: 5 additions & 5 deletions src/nvector/openmp/fmod_int32/fnvector_openmp_mod.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -332,14 +332,14 @@ SWIGEXPORT void _wrap_FN_VDestroy_OpenMP(N_Vector farg1) {
}


SWIGEXPORT void _wrap_FN_VSpace_OpenMP(N_Vector farg1, int32_t *farg2, int32_t *farg3) {
SWIGEXPORT void _wrap_FN_VSpace_OpenMP(N_Vector farg1, long *farg2, long *farg3) {
N_Vector arg1 = (N_Vector) 0 ;
sunindextype *arg2 = (sunindextype *) 0 ;
sunindextype *arg3 = (sunindextype *) 0 ;
long *arg2 = (long *) 0 ;
long *arg3 = (long *) 0 ;

arg1 = (N_Vector)(farg1);
arg2 = (sunindextype *)(farg2);
arg3 = (sunindextype *)(farg3);
arg2 = (long *)(farg2);
arg3 = (long *)(farg3);
N_VSpace_OpenMP(arg1,arg2,arg3);
}

Expand Down
4 changes: 2 additions & 2 deletions src/nvector/openmp/fmod_int32/fnvector_openmp_mod.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -718,8 +718,8 @@ subroutine FN_VDestroy_OpenMP(v)
subroutine FN_VSpace_OpenMP(v, lrw, liw)
use, intrinsic :: ISO_C_BINDING
type(N_Vector), target, intent(inout) :: v
integer(C_INT32_T), dimension(*), target, intent(inout) :: lrw
integer(C_INT32_T), dimension(*), target, intent(inout) :: liw
integer(C_LONG), dimension(*), target, intent(inout) :: lrw
integer(C_LONG), dimension(*), target, intent(inout) :: liw
type(C_PTR) :: farg1
type(C_PTR) :: farg2
type(C_PTR) :: farg3
Expand Down
10 changes: 5 additions & 5 deletions src/nvector/parallel/fmod_int32/fnvector_parallel_mod.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -380,14 +380,14 @@ SWIGEXPORT void _wrap_FN_VDestroy_Parallel(N_Vector farg1) {
}


SWIGEXPORT void _wrap_FN_VSpace_Parallel(N_Vector farg1, int32_t *farg2, int32_t *farg3) {
SWIGEXPORT void _wrap_FN_VSpace_Parallel(N_Vector farg1, long *farg2, long *farg3) {
N_Vector arg1 = (N_Vector) 0 ;
sunindextype *arg2 = (sunindextype *) 0 ;
sunindextype *arg3 = (sunindextype *) 0 ;
long *arg2 = (long *) 0 ;
long *arg3 = (long *) 0 ;

arg1 = (N_Vector)(farg1);
arg2 = (sunindextype *)(farg2);
arg3 = (sunindextype *)(farg3);
arg2 = (long *)(farg2);
arg3 = (long *)(farg3);
N_VSpace_Parallel(arg1,arg2,arg3);
}

Expand Down
4 changes: 2 additions & 2 deletions src/nvector/parallel/fmod_int32/fnvector_parallel_mod.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -862,8 +862,8 @@ subroutine FN_VDestroy_Parallel(v)
subroutine FN_VSpace_Parallel(v, lrw, liw)
use, intrinsic :: ISO_C_BINDING
type(N_Vector), target, intent(inout) :: v
integer(C_INT32_T), dimension(*), target, intent(inout) :: lrw
integer(C_INT32_T), dimension(*), target, intent(inout) :: liw
integer(C_LONG), dimension(*), target, intent(inout) :: lrw
integer(C_LONG), dimension(*), target, intent(inout) :: liw
type(C_PTR) :: farg1
type(C_PTR) :: farg2
type(C_PTR) :: farg3
Expand Down
10 changes: 5 additions & 5 deletions src/nvector/pthreads/fmod_int32/fnvector_pthreads_mod.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -332,14 +332,14 @@ SWIGEXPORT void _wrap_FN_VDestroy_Pthreads(N_Vector farg1) {
}


SWIGEXPORT void _wrap_FN_VSpace_Pthreads(N_Vector farg1, int32_t *farg2, int32_t *farg3) {
SWIGEXPORT void _wrap_FN_VSpace_Pthreads(N_Vector farg1, long *farg2, long *farg3) {
N_Vector arg1 = (N_Vector) 0 ;
sunindextype *arg2 = (sunindextype *) 0 ;
sunindextype *arg3 = (sunindextype *) 0 ;
long *arg2 = (long *) 0 ;
long *arg3 = (long *) 0 ;

arg1 = (N_Vector)(farg1);
arg2 = (sunindextype *)(farg2);
arg3 = (sunindextype *)(farg3);
arg2 = (long *)(farg2);
arg3 = (long *)(farg3);
N_VSpace_Pthreads(arg1,arg2,arg3);
}

Expand Down
4 changes: 2 additions & 2 deletions src/nvector/pthreads/fmod_int32/fnvector_pthreads_mod.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -718,8 +718,8 @@ subroutine FN_VDestroy_Pthreads(v)
subroutine FN_VSpace_Pthreads(v, lrw, liw)
use, intrinsic :: ISO_C_BINDING
type(N_Vector), target, intent(inout) :: v
integer(C_INT32_T), dimension(*), target, intent(inout) :: lrw
integer(C_INT32_T), dimension(*), target, intent(inout) :: liw
integer(C_LONG), dimension(*), target, intent(inout) :: lrw
integer(C_LONG), dimension(*), target, intent(inout) :: liw
type(C_PTR) :: farg1
type(C_PTR) :: farg2
type(C_PTR) :: farg3
Expand Down
10 changes: 5 additions & 5 deletions src/nvector/serial/fmod_int32/fnvector_serial_mod.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -326,14 +326,14 @@ SWIGEXPORT void _wrap_FN_VDestroy_Serial(N_Vector farg1) {
}


SWIGEXPORT void _wrap_FN_VSpace_Serial(N_Vector farg1, int32_t *farg2, int32_t *farg3) {
SWIGEXPORT void _wrap_FN_VSpace_Serial(N_Vector farg1, long *farg2, long *farg3) {
N_Vector arg1 = (N_Vector) 0 ;
sunindextype *arg2 = (sunindextype *) 0 ;
sunindextype *arg3 = (sunindextype *) 0 ;
long *arg2 = (long *) 0 ;
long *arg3 = (long *) 0 ;

arg1 = (N_Vector)(farg1);
arg2 = (sunindextype *)(farg2);
arg3 = (sunindextype *)(farg3);
arg2 = (long *)(farg2);
arg3 = (long *)(farg3);
N_VSpace_Serial(arg1,arg2,arg3);
}

Expand Down
4 changes: 2 additions & 2 deletions src/nvector/serial/fmod_int32/fnvector_serial_mod.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -706,8 +706,8 @@ subroutine FN_VDestroy_Serial(v)
subroutine FN_VSpace_Serial(v, lrw, liw)
use, intrinsic :: ISO_C_BINDING
type(N_Vector), target, intent(inout) :: v
integer(C_INT32_T), dimension(*), target, intent(inout) :: lrw
integer(C_INT32_T), dimension(*), target, intent(inout) :: liw
integer(C_LONG), dimension(*), target, intent(inout) :: lrw
integer(C_LONG), dimension(*), target, intent(inout) :: liw
type(C_PTR) :: farg1
type(C_PTR) :: farg2
type(C_PTR) :: farg3
Expand Down
10 changes: 5 additions & 5 deletions src/sundials/fmod_int32/fsundials_core_mod.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -902,14 +902,14 @@ SWIGEXPORT void _wrap_FN_VDestroy(N_Vector farg1) {
}


SWIGEXPORT void _wrap_FN_VSpace(N_Vector farg1, int32_t *farg2, int32_t *farg3) {
SWIGEXPORT void _wrap_FN_VSpace(N_Vector farg1, long *farg2, long *farg3) {
N_Vector arg1 = (N_Vector) 0 ;
sunindextype *arg2 = (sunindextype *) 0 ;
sunindextype *arg3 = (sunindextype *) 0 ;
long *arg2 = (long *) 0 ;
long *arg3 = (long *) 0 ;

arg1 = (N_Vector)(farg1);
arg2 = (sunindextype *)(farg2);
arg3 = (sunindextype *)(farg3);
arg2 = (long *)(farg2);
arg3 = (long *)(farg3);
N_VSpace(arg1,arg2,arg3);
}

Expand Down
4 changes: 2 additions & 2 deletions src/sundials/fmod_int32/fsundials_core_mod.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2750,8 +2750,8 @@ subroutine FN_VDestroy(v)
subroutine FN_VSpace(v, lrw, liw)
use, intrinsic :: ISO_C_BINDING
type(N_Vector), target, intent(inout) :: v
integer(C_INT32_T), dimension(*), target, intent(inout) :: lrw
integer(C_INT32_T), dimension(*), target, intent(inout) :: liw
integer(C_LONG), dimension(*), target, intent(inout) :: lrw
integer(C_LONG), dimension(*), target, intent(inout) :: liw
type(C_PTR) :: farg1
type(C_PTR) :: farg2
type(C_PTR) :: farg3
Expand Down
10 changes: 5 additions & 5 deletions src/sundials/fmod_int64/fsundials_core_mod.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -902,14 +902,14 @@ SWIGEXPORT void _wrap_FN_VDestroy(N_Vector farg1) {
}


SWIGEXPORT void _wrap_FN_VSpace(N_Vector farg1, int64_t *farg2, int64_t *farg3) {
SWIGEXPORT void _wrap_FN_VSpace(N_Vector farg1, long *farg2, long *farg3) {
N_Vector arg1 = (N_Vector) 0 ;
sunindextype *arg2 = (sunindextype *) 0 ;
sunindextype *arg3 = (sunindextype *) 0 ;
long *arg2 = (long *) 0 ;
long *arg3 = (long *) 0 ;

arg1 = (N_Vector)(farg1);
arg2 = (sunindextype *)(farg2);
arg3 = (sunindextype *)(farg3);
arg2 = (long *)(farg2);
arg3 = (long *)(farg3);
N_VSpace(arg1,arg2,arg3);
}

Expand Down
Loading

0 comments on commit 6a47413

Please sign in to comment.