diff options
| author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-04-04 09:49:17 +0000 |
|---|---|---|
| committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-04-04 09:49:17 +0000 |
| commit | fd0c92f043dd1b06fa69979b52aa48b346f098aa (patch) | |
| tree | 329b950c1daa05cdd71d791d9645c8d31ced49fb /src/util/Misc.c | |
| parent | 5b9e2bcb4c2d3f9e80ce4864e2a03bc9aeec6c96 (diff) | |
Added back the line to in CCTK_FortranString which does a
ONE_FORTSTRING_CREATE.
This will produce compiler warnings about unused variables on most platforms
but is necessary for the T3E.
Tom
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1512 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/util/Misc.c')
| -rw-r--r-- | src/util/Misc.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/util/Misc.c b/src/util/Misc.c index 0622eb0e..d0984e17 100644 --- a/src/util/Misc.c +++ b/src/util/Misc.c @@ -1007,6 +1007,7 @@ void FORTRAN_NAME(CCTK_FortranString)(CCTK_INT *nchar, ONE_FORTSTRING_ARG) { int i; + ONE_FORTSTRING_CREATE(fstring) ONE_FORTSTRING_PTR(fptr) if (strlen(*cstring) > cctk_strlen1) |