diff options
author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-02-20 23:25:00 +0000 |
---|---|---|
committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-02-20 23:25:00 +0000 |
commit | 2a3fc3cf06334983d9f4dd44c629cbe579528164 (patch) | |
tree | 17a70508d3c5b74469bd14baaea5c1f6266e9341 /src/util | |
parent | 2d0bdfe7bfba927626dba05c16a038cc3c99732c (diff) |
Changed first argument to fortran version of CCTK_Equals to be a char **
since Fortran always passes by reference.
Tom
git-svn-id: http://svn.cactuscode.org/flesh/trunk@321 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/util')
-rw-r--r-- | src/util/Misc.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/util/Misc.c b/src/util/Misc.c index a1493e1f..baee6628 100644 --- a/src/util/Misc.c +++ b/src/util/Misc.c @@ -120,11 +120,11 @@ int CCTK_Equals(const char *string1, const char *string2) return retval; } -int FORTRAN_NAME(CCTK_Equals)(const char *arg1,ONE_FORTSTRING_ARG) +int FORTRAN_NAME(CCTK_Equals)(const char **arg1,ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE(arg2) int retval; - retval = CCTK_Equals(arg1,arg2); + retval = CCTK_Equals(*arg1,arg2); free(arg2); return(retval); } |