C version of the parameter checking routine.

Passes test suite on Linux if compiled in.

Tom


git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/CartGrid3D/trunk@63 c78560ca-4b45-4335-b268-5f3340f3cb52

1 files changed, 95 insertions, 0 deletions

diff --git a/src/ParamCheck.c b/src/ParamCheck.c
new file mode 100644
index 0000000..e893fd5
--- /dev/null
+++ b/src/ParamCheck.c
@@ -0,0 +1,95 @@
+ /*@@
+   @file      ParamCheck.c
+   @date      Thu Oct  7 17:11:44 1999
+   @author    Tom Goodale
+   @desc 
+   C version of Gab's paramcheck stuff
+   @enddesc 
+ @@*/
+
+static char *rcsid = "$Header$";
+
+#include "cctk.h"
+#include "cctk_arguments.h"
+#include "cctk_parameters.h"
+
+
+ /*@@
+   @routine    ParamCheckCartGrid3D
+   @date      Tue Feb 23 1999
+   @author    Gabrielle Allen
+   @desc 
+   Check parameters for CartGrid3D
+   @enddesc 
+   @calls     
+   @calledby   
+   @history 
+   @hdate Thu Oct  7 17:23:15 1999 @hauthor Tom Goodale
+   @hdesc Converted to C 
+   @endhistory 
+
+@@*/
+void ParamCheck_CartGrid3D(CCTK_CARGUMENTS)
+{
+  DECLARE_CCTK_CARGUMENTS
+  DECLARE_CCTK_PARAMETERS
+    
+  int  iflag;
+
+  iflag = 0;
+
+  if (CCTK_Equals(type,"byrange")) 
+  {
+    if (CCTK_Equals(domain,"octant")) 
+    {
+      iflag++;
+    } 
+    else if (CCTK_Equals(domain,"quadrant")) 
+    {
+      iflag++;
+    } 
+    else if (CCTK_Equals(domain,"bitant")) 
+    {
+      iflag++;
+    } 
+    else if (CCTK_Equals(domain,"full")) 
+    {
+      iflag++;
+    }
+
+  } 
+  else if (CCTK_Equals(type,"byspacing")) 
+  {
+    if (CCTK_Equals(domain,"bitant")) 
+    { 
+      iflag++;
+    } 
+    else if (CCTK_Equals(domain,"quadrant")) 
+    { 
+      iflag++;
+    } else if (CCTK_Equals(domain,"octant")) 
+    { 
+      iflag++;
+    } 
+    else if (CCTK_Equals(domain,"full")) 
+    { 
+      iflag++;
+    }
+  } 
+  else if (CCTK_Equals(type,"box")) 
+  { 
+    iflag++;
+
+    if (!CCTK_Equals(domain,"full")) CCTK_PARAMWARN("No symmetries can be used with box grid");
+  }
+
+  /* No grid was set up */
+
+  if (iflag != 1) 
+  {
+    CCTK_PARAMWARN("No grid set up in CartGrid3D");
+  }
+
+  return;
+}
+