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/util | |
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/util')
-rw-r--r-- | src/util/Misc.c | 6 |
1 files changed, 4 insertions, 2 deletions
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); } |