1 files changed, 37 insertions, 0 deletions
diff --git a/src/misc.c b/src/misc.c
new file mode 100644
index 0000000..695fc49
--- /dev/null
+++ b/src/misc.c
@@ -0,0 +1,37 @@
+ /*@@
+   @file      misc.c
+   @date      23.Mar.2003
+   @author    Jonathan Thornburg <jthorn@aei.mpg.de>
+   @desc 
+      Misc support routines for this thorn.
+   @enddesc 
+   @version $Header$
+ @@*/
+
+#include "cctk.h"
+
+#include "cctk_Arguments.h"
+#include "cctk_Parameters.h"
+
+#include "IDAnalyticBH.h"
+
+static const char *rcsid = "$Header$";
+
+CCTK_FILEVERSION(CactusEinstein_IDAnalyticBH_Misc_c)
+
+
+/*@@
+  @routine    IDAnalyticBH_zero_CCTK_REAL_array
+  @date       23.Mar.2003
+  @author     Jonathan Thornburg <jthorn@aei.mpg.de>
+  @desc       Sets a CCTK_REAL array to all (floating-point) zeros.
+  @enddesc 
+  @@*/
+void IDAnalyticBH_zero_CCTK_REAL_array(int N, CCTK_REAL A[])
+{
+int i;
+  for (i = 0 ; i < N ; ++i)
+  {
+    A[i] = 0.0;
+  }
+}