diff options
author | tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-09-22 14:47:20 +0000 |
---|---|---|
committer | tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-09-22 14:47:20 +0000 |
commit | ae7214bf8fde3138c85dd4376c9e826bc2b7cc49 (patch) | |
tree | 0c1c6a876992bda9c2ba7ad37b35d2060daf5b43 /src/comm | |
parent | bb33d1c59a192f00d4b9b6723d00f2c93332c946 (diff) |
Switched order of cctkGH and retcode parameter in fortran bindings
of CCTK_Reduce and CCTK_Interp to make it consistent with other fortran
bindings.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@980 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/comm')
-rw-r--r-- | src/comm/Interp.c | 8 | ||||
-rw-r--r-- | src/comm/Reduction.c | 26 |
2 files changed, 17 insertions, 17 deletions
diff --git a/src/comm/Interp.c b/src/comm/Interp.c index 34048ffa..17feb698 100644 --- a/src/comm/Interp.c +++ b/src/comm/Interp.c @@ -301,8 +301,8 @@ int CCTK_InterpGF (cGH *GH, } -void FMODIFIER FORTRAN_NAME(CCTK_InterpGF)(cGH *GH, - int *fortranreturn, +void FMODIFIER FORTRAN_NAME(CCTK_InterpGF)(int *fortranreturn, + cGH *GH, int *operation_handle, int *nPoints, int *nDims, @@ -633,8 +633,8 @@ int CCTK_Interp (cGH *GH, } -void FMODIFIER FORTRAN_NAME(CCTK_Interp)(cGH *GH, - int *fortranreturn, +void FMODIFIER FORTRAN_NAME(CCTK_Interp)(int *fortranreturn, + cGH *GH, int *operation_handle, int *nPoints, int *nDims, diff --git a/src/comm/Reduction.c b/src/comm/Reduction.c index 240ff9cd..a6f90f58 100644 --- a/src/comm/Reduction.c +++ b/src/comm/Reduction.c @@ -236,15 +236,15 @@ int CCTK_Reduce( cGH *GH, } -void FMODIFIER FORTRAN_NAME(CCTK_Reduce)(cGH *GH, - int *fortranreturn, - int *proc, - int *operation_handle, - int *num_out_vals, - int *type_out_vals, - void *out_vals, - int *num_in_fields, - ... ) +void FMODIFIER FORTRAN_NAME(CCTK_Reduce)(int *fortranreturn, + cGH *GH, + int *proc, + int *operation_handle, + int *num_out_vals, + int *type_out_vals, + void *out_vals, + int *num_in_fields, + ... ) { va_list indices; int i; @@ -518,8 +518,8 @@ int CCTK_ReduceArray( cGH *GH, return 0; } -void FMODIFIER FORTRAN_NAME(CCTK_ReduceArray)(cGH *GH, - int *fortran_return, +void FMODIFIER FORTRAN_NAME(CCTK_ReduceArray)(int *fortran_return, + cGH *GH, int *proc, int *operation_handle, int *num_out_vals, @@ -632,8 +632,8 @@ int CCTK_ReduceLocalScalar (cGH *GH, int proc, int operation_handle, } -void FMODIFIER FORTRAN_NAME(CCTK_ReduceLocalScalar)(cGH *GH, - int *fortran_return, +void FMODIFIER FORTRAN_NAME(CCTK_ReduceLocalScalar)(int *fortran_return, + cGH *GH, int *proc, int *operation_handle, void *in_scalar, |