Initialize the local_spatial_order scalar to the parameter spatial_order.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinBase/ADMMacros/trunk@60 b1d164ef-f17a-46e7-89d4-021c7118ef4e

1 files changed, 70 insertions, 0 deletions

diff --git a/src/SetLocalSpatialOrder.c b/src/SetLocalSpatialOrder.c
new file mode 100644
index 0000000..2a91578
--- /dev/null
+++ b/src/SetLocalSpatialOrder.c
@@ -0,0 +1,70 @@
+ /*@@
+   @file      SetLocalSpatialOrder.c
+   @date      Fri Jul  4 12:41:00 2003
+   @author    Ian Hawke
+   @desc 
+   Sets the local_spatial_order to the spatial_order parameter.
+   @enddesc 
+ @@*/
+
+#include "cctk.h"
+
+#include "cctk_Arguments.h"
+#include "cctk_Parameters.h"
+
+static const char *rcsid = "$Header$";
+
+CCTK_FILEVERSION(CactusEinstein_ADMMacros_SetLocalSpatialOrder_c)
+
+/********************************************************************
+ *********************     Local Data Types   ***********************
+ ********************************************************************/
+
+/********************************************************************
+ ********************* Local Routine Prototypes *********************
+ ********************************************************************/
+
+/********************************************************************
+ ***************** Scheduled Routine Prototypes *********************
+ ********************************************************************/
+
+void ADMMacros_SetLocalSpatialOrder(CCTK_ARGUMENTS);
+
+/********************************************************************
+ ********************* Other Routine Prototypes *********************
+ ********************************************************************/
+
+/********************************************************************
+ *********************     Local Data   *****************************
+ ********************************************************************/
+
+/********************************************************************
+ *********************     External Routines   **********************
+ ********************************************************************/
+
+ /*@@
+   @routine    ADMMacros_SetLocalSpatialOrder
+   @date       Fri Jul  4 12:42:15 2003
+   @author     Ian Hawke
+   @desc 
+   Sets the local_spatial_order to the spatial_order parameter.
+   @enddesc 
+   @calls     
+   @calledby   
+   @history 
+ 
+   @endhistory 
+
+ @@*/
+
+void ADMMacros_SetLocalSpatialOrder(CCTK_ARGUMENTS)
+{
+ 
+  DECLARE_CCTK_ARGUMENTS;
+  DECLARE_CCTK_PARAMETERS;
+
+  *local_spatial_order = spatial_order;
+  
+  return;
+
+}