diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-09-18 17:44:48 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-09-18 17:44:48 +0000 |
commit | f8a3fb5ee811e901ccf8d808c58899835e388464 (patch) | |
tree | 7ecb35a05121e05bdc64992da18bfcf2537187bd /src | |
parent | 8d92b8a467451eb4df96663a8d30d2eb069d12c7 (diff) |
Changing position of error code for OutputVarByMethod
git-svn-id: http://svn.cactuscode.org/flesh/trunk@949 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src')
-rw-r--r-- | src/IO/IOMethods.c | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/src/IO/IOMethods.c b/src/IO/IOMethods.c index 6d432d03..6b558554 100644 --- a/src/IO/IOMethods.c +++ b/src/IO/IOMethods.c @@ -496,11 +496,11 @@ int CactusDefaultOutputVarAsByMethod(cGH *GH, } void FMODIFIER FORTRAN_NAME (CCTK_OutputVarAsByMethod) - (cGH *GH, int *ierror, THREE_FORTSTRINGS_ARGS) + (int *ierr, cGH *GH, THREE_FORTSTRINGS_ARGS) { THREE_FORTSTRINGS_CREATE(var, methodname, alias); - *ierror = CactusDefaultOutputVarAsByMethod (GH, var, methodname, alias); + *ierr = CCTK_OutputVarAsByMethod (GH, var, methodname, alias); free (var); free (methodname); @@ -670,6 +670,15 @@ int CCTK_OutputVarByMethod(cGH *GH, const char *var, const char *method) return 0; } +void FMODIFIER FORTRAN_NAME(CCTK_OutputVarByMethod)(int *ierr, cGH *GH, TWO_FORTSTRINGS_ARGS) +{ + TWO_FORTSTRINGS_CREATE(var,method); + *ierr = CCTK_OutputVarByMethod(GH, var, method); + free(var); + free(method); +} + + /************************************************************************ * |