diff options
author | allen <allen@b589c3ab-70e8-4b4d-a09f-cba2dd200880> | 1999-09-21 11:27:32 +0000 |
---|---|---|
committer | allen <allen@b589c3ab-70e8-4b4d-a09f-cba2dd200880> | 1999-09-21 11:27:32 +0000 |
commit | 1940d71782b4cc3519972ebf4504bbe4486cf7d0 (patch) | |
tree | bc11dc4e95891c19d3e88c0b15bb4ebf068d1d45 /src/WriteInfo.c | |
parent | ac667e93729515249ec4d81961d1c83e2a0e217d (diff) |
This commit was generated by cvs2svn to compensate for changes in r2, which
included commits to RCS files with non-trunk default branches.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/IOBasic/trunk@3 b589c3ab-70e8-4b4d-a09f-cba2dd200880
Diffstat (limited to 'src/WriteInfo.c')
-rw-r--r-- | src/WriteInfo.c | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/src/WriteInfo.c b/src/WriteInfo.c new file mode 100644 index 0000000..c49d53f --- /dev/null +++ b/src/WriteInfo.c @@ -0,0 +1,48 @@ +/*@@ + @routine WriteInfo + @date June 31 1999 + @author Gabrielle Allen, Paul Walker + @desc + Dumps the Info data. + @enddesc + @calls + @calledby + @history + @hauthor Thomas Radke @hdate 17 Mar 1999 + @hdesc included "cctk_Comm.h" to overload CCTK_MyProc() properly + @hendhistory +@@*/ + +#include <stdio.h> + +#include "cctk.h" +#include "cctk_Flesh.h" +#include "cctk_parameters.h" +#include "cctk_GHExtensions.h" +#include "cctk_Misc.h" +#include "cctk_Comm.h" +#include "cctk_Reduction.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]; + } + + return retval; + +} + + + + + |