diff options
author | tradke <tradke@b589c3ab-70e8-4b4d-a09f-cba2dd200880> | 2000-03-28 10:08:45 +0000 |
---|---|---|
committer | tradke <tradke@b589c3ab-70e8-4b4d-a09f-cba2dd200880> | 2000-03-28 10:08:45 +0000 |
commit | 69b9eedfe5f72d81128d0f32cf8d86a17966f67a (patch) | |
tree | 8ecefed11039598d00e3fa05edc333a5dad58db5 | |
parent | a07d61105110e817135fd778f2685edf6da74711 (diff) |
Get the result of reductions only on processor 0 which is doing the info output.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/IOBasic/trunk@46 b589c3ab-70e8-4b4d-a09f-cba2dd200880
-rw-r--r-- | src/WriteInfo.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/WriteInfo.c b/src/WriteInfo.c index 0b3c6ad..ca06ae9 100644 --- a/src/WriteInfo.c +++ b/src/WriteInfo.c @@ -22,7 +22,7 @@ CCTK_REAL IOBasic_WriteInfo (cGH *GH, int index, const char *operator, const char *alias) { int reduce_handle; - CCTK_REAL retval; + CCTK_REAL retval = 0; /* first, check if variable has storage assigned */ @@ -40,7 +40,7 @@ CCTK_REAL IOBasic_WriteInfo (cGH *GH, int index, const char *operator, const cha if (reduce_handle > -1) { - CCTK_Reduce(GH,-1,reduce_handle,1,CCTK_VARIABLE_REAL,&retval,1,index); + CCTK_Reduce(GH,0,reduce_handle,1,CCTK_VARIABLE_REAL,&retval,1,index); } else { |