1 files changed, 56 insertions, 0 deletions
diff --git a/src/CheckParameters.c b/src/CheckParameters.c
new file mode 100644
index 0000000..de6a523
--- /dev/null
+++ b/src/CheckParameters.c
@@ -0,0 +1,56 @@
+/*
+   @file      CheckParameters.c
+   @date      
+   @author    Gabrielle Allen
+   @desc 
+              Check parameters for the wave equation initial data
+   @enddesc 
+ @@*/
+
+#include "cctk.h" 
+#include "cctk_Parameters.h"
+#include "cctk_Arguments.h"
+#include "cctk_Groups.h"
+#include "cctk_Misc.h"
+#include "cctk_WarnLevel.h"
+
+static char *rcsid = "$Header$";
+
+ /*@@
+   @routine    IDScalarWave_CheckParameters
+   @date       
+   @author     Gabrielle Allen
+   @desc 
+               Check parameters for the wave equation initial data
+   @enddesc 
+   @calls      
+   @calledby   
+   @history 
+   @hdate Mon Oct 11 11:49:21 1999 @hauthor Tom Goodale
+   @hdesc Converted to C++ 
+   @hdate Thu Feb 17 09:20:41 2000 @hauthor Tom Goodale
+   @hdesc Converted to C
+   @endhistory 
+
+@@*/
+
+void IDScalarWaveC_CheckParameters(CCTK_CARGUMENTS)
+{
+  DECLARE_CCTK_CARGUMENTS
+  DECLARE_CCTK_PARAMETERS
+
+  if(CCTK_Equals(initial_data,"box"))
+  {
+    if (!CCTK_Equals(type, "box"))
+    {
+      CCTK_PARAMWARN("Must have a box grid with box initial data");
+    }
+
+    if (kx == 0 || ky == 0 || kz == 0)
+    {
+      CCTK_PARAMWARN("Cannot have zero kx,ky,kz for box initial data");
+    }
+  }
+  return;
+}
+