Version of Extract converted to new ADM Base, passes testsuite. Check

now for existence of conformal factor which was missing before. Should
be fixed to run without a conformal factor soon.


git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@51 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129

1 files changed, 44 insertions, 0 deletions

diff --git a/src/ParamCheck.c b/src/ParamCheck.c
new file mode 100644
index 0000000..c5a4684
--- /dev/null
+++ b/src/ParamCheck.c
@@ -0,0 +1,44 @@
+ /*@@
+   @file      ParamCheck.c
+   @date      April 26 2002
+   @author    Gabrielle Allen
+   @desc 
+      Check parameters for Extract
+   @enddesc 
+ @@*/
+
+#include "cctk.h"
+#include "cctk_Arguments.h"
+#include "cctk_Parameters.h"
+
+static const char *rcsid = "$Header$";
+
+CCTK_FILEVERSION(CactusEinstein_Extract_ParamCheck_c)
+
+void Extract_ParamCheck(CCTK_ARGUMENTS);
+
+ /*@@
+   @routine    Extract_ParamCheck
+   @date       April 26 2002
+   @author     Gabrielle Allen
+   @desc 
+      Check parameters for Extract
+   @enddesc 
+   @calls     
+   @history  
+ 
+   @endhistory 
+
+@@*/
+
+void Extract_ParamCheck(CCTK_ARGUMENTS)
+{
+
+  DECLARE_CCTK_ARGUMENTS
+  DECLARE_CCTK_PARAMETERS
+
+  if(! CCTK_EQUALS(metric_type, "static conformal"))
+  {
+    CCTK_PARAMWARN("Extract only works currently with metric_type \"static conformal\"");
+  }
+}