aboutsummaryrefslogtreecommitdiff
path: root/CarpetAttic/CartGrid3D/src/ParamCheck.c
diff options
context:
space:
mode:
authorschnetter <>2002-07-15 15:12:00 +0000
committerschnetter <>2002-07-15 15:12:00 +0000
commitb4d58fa62495eaffc4cd1bc8c21dc315c63446d1 (patch)
tree3b66fc6906939269cd35f5414906ff174a69853c /CarpetAttic/CartGrid3D/src/ParamCheck.c
parent4abc9d38c5e15750149f4311ea353d416b3ae7fe (diff)
Removed the temporary version of the thorn CartGrid3D, because the
Removed the temporary version of the thorn CartGrid3D, because the changes went into the official distribution by now. darcs-hash:20020715151242-07bb3-6b9002abd49412742e29dcfcb3550d0fe66f66ba.gz
Diffstat (limited to 'CarpetAttic/CartGrid3D/src/ParamCheck.c')
-rw-r--r--CarpetAttic/CartGrid3D/src/ParamCheck.c100
1 files changed, 0 insertions, 100 deletions
diff --git a/CarpetAttic/CartGrid3D/src/ParamCheck.c b/CarpetAttic/CartGrid3D/src/ParamCheck.c
deleted file mode 100644
index 49d3bd9d5..000000000
--- a/CarpetAttic/CartGrid3D/src/ParamCheck.c
+++ /dev/null
@@ -1,100 +0,0 @@
- /*@@
- @file ParamCheck.c
- @date Thu Oct 7 17:11:44 1999
- @author Tom Goodale
- @desc
- C version of Gab's paramcheck stuff
- @enddesc
- @@*/
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-
-static const char *rcsid = "$Header: /home/eschnett/C/carpet/Carpet/CarpetAttic/CartGrid3D/src/Attic/ParamCheck.c,v 1.1 2002/04/03 16:33:29 schnetter Exp $";
-
-CCTK_FILEVERSION(CactusBase_CartGrid3D_ParamCheck_c)
-
-void ParamCheck_CartGrid3D(CCTK_ARGUMENTS);
-
- /*@@
- @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_ARGUMENTS)
-{
- DECLARE_CCTK_ARGUMENTS
- 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;
-
-}
-