aboutsummaryrefslogtreecommitdiff
path: root/src/WriteInfo.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/WriteInfo.c')
-rw-r--r--src/WriteInfo.c9
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;