Changing position of error code for OutputVarByMethod

git-svn-id: http://svn.cactuscode.org/flesh/trunk@949 17b73243-c579-4c4c-a9d2-2d5706c11dac

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);
+}
+
+
 
 /************************************************************************
  *