diff options
Diffstat (limited to 'src/WriteInfo.c')
-rw-r--r-- | src/WriteInfo.c | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/WriteInfo.c b/src/WriteInfo.c index ae3d035..e3a17a7 100644 --- a/src/WriteInfo.c +++ b/src/WriteInfo.c @@ -16,22 +16,27 @@ #include <stdio.h> #include "cctk.h" -#include "cctk_parameters.h" #include "CactusBase/IOUtil/src/ioGH.h" CCTK_REAL IOBasic_WriteInfo (cGH *GH, int index, const char *operator, const char *alias) { - DECLARE_CCTK_PARAMETERS CCTK_REAL tt[1]; int reduce_handle; CCTK_REAL retval; reduce_handle = CCTK_ReductionHandle(operator); + if (reduce_handle > -1) { CCTK_Reduce(GH,-1,reduce_handle,1,CCTK_VARIABLE_REAL,tt,1,index); retval = tt[0]; } + else + { + CCTK_WARN(1, "Reduction operator doesn't exist."); + + retval = -27; + } return retval; |