diff options
Diffstat (limited to 'src/IO/IOMethods.c')
| -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); +} + + /************************************************************************ * |