From f8a3fb5ee811e901ccf8d808c58899835e388464 Mon Sep 17 00:00:00 2001 From: allen Date: Sat, 18 Sep 1999 17:44:48 +0000 Subject: Changing position of error code for OutputVarByMethod git-svn-id: http://svn.cactuscode.org/flesh/trunk@949 17b73243-c579-4c4c-a9d2-2d5706c11dac --- src/IO/IOMethods.c | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) (limited to 'src/IO') 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); +} + + /************************************************************************ * -- cgit v1.2.3