diff options
| author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-06-24 08:53:15 +0000 |
|---|---|---|
| committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-06-24 08:53:15 +0000 |
| commit | 8311d85b42739c0fdead2d4b851986771001e727 (patch) | |
| tree | a30cf96001728dcc238a69953ea0d73950f2c1ef /src | |
| parent | f460432c8c4a90e948a63032cb5c5853dbbd7ab8 (diff) | |
Added FMODIFIER to Fortran subroutine definitions.
FMODIFIER is now in config.h, so you may need to do a <conf>-reconfig after
updating.
Tom
git-svn-id: http://svn.cactuscode.org/flesh/trunk@568 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src')
| -rw-r--r-- | src/comm/FortranBindings.c | 8 | ||||
| -rw-r--r-- | src/main/WarnLevel.c | 6 | ||||
| -rw-r--r-- | src/util/Misc.c | 6 |
3 files changed, 12 insertions, 8 deletions
diff --git a/src/comm/FortranBindings.c b/src/comm/FortranBindings.c index 009fca46..84871403 100644 --- a/src/comm/FortranBindings.c +++ b/src/comm/FortranBindings.c @@ -12,25 +12,25 @@ #include "FortranString.h" #include "Comm.h" -int FORTRAN_NAME(CCTK_Exit)(cGH *GH) +int FMODIFIER FORTRAN_NAME(CCTK_Exit)(cGH *GH) { CCTK_Exit(GH); return 0; } -int FORTRAN_NAME(CCTK_ParallelInit)(cGH *GH) +int FMODIFIER FORTRAN_NAME(CCTK_ParallelInit)(cGH *GH) { CCTK_ParallelInit(GH); return 0; } -int FORTRAN_NAME(CCTK_Abort)(cGH *GH) +int FMODIFIER FORTRAN_NAME(CCTK_Abort)(cGH *GH) { CCTK_Abort(GH); return 0; } -int FORTRAN_NAME(CCTK_SyncGroup)(cGH *GH, ONE_FORTSTRING_ARG) +int FMODIFIER FORTRAN_NAME(CCTK_SyncGroup)(cGH *GH, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE(group_name) CCTK_SyncGroup(GH,group_name); diff --git a/src/main/WarnLevel.c b/src/main/WarnLevel.c index acea7e02..8a579940 100644 --- a/src/main/WarnLevel.c +++ b/src/main/WarnLevel.c @@ -8,6 +8,8 @@ @@*/ +#include "config.h" + #include <stdio.h> #include <stdlib.h> @@ -118,7 +120,7 @@ int CCTK_Warn(int level, const char *thorn, const char *message) return retval; } -int FORTRAN_NAME(CCTK_Warn)(int *level, TWO_FORTSTRINGS_ARGS) +int FMODIFIER FORTRAN_NAME(CCTK_Warn)(int *level, TWO_FORTSTRINGS_ARGS) { TWO_FORTSTRINGS_CREATE(thorn,message) int retval; @@ -153,7 +155,7 @@ int CCTK_Info(const char *message) return retval; } -int FORTRAN_NAME(CCTK_Info)(ONE_FORTSTRING_ARG) +int FMODIFIER FORTRAN_NAME(CCTK_Info)(ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE(message) int retval; diff --git a/src/util/Misc.c b/src/util/Misc.c index f255d437..2c6b5874 100644 --- a/src/util/Misc.c +++ b/src/util/Misc.c @@ -9,6 +9,8 @@ /*#define DEBUG_MISC*/ +#include "config.h" + #include <stdlib.h> #include <stdio.h> #include <string.h> @@ -148,7 +150,7 @@ int CCTK_Equals(const char *string1, const char *string2) return retval; } -int FORTRAN_NAME(CCTK_Equals)(const char **arg1,ONE_FORTSTRING_ARG) +int FMODIFIER FORTRAN_NAME(CCTK_Equals)(const char **arg1,ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE(arg2) int retval; @@ -644,7 +646,7 @@ void CCTK_PrintString(char *data) printf("%s",data); } -void FORTRAN_NAME(CCTK_PrintString)(char **arg1) +void FMODIFIER FORTRAN_NAME(CCTK_PrintString)(char **arg1) { CCTK_PrintString(*arg1); } |