From e5ec9f325f816015b81696b9c5c6c71cda867a1a Mon Sep 17 00:00:00 2001
From: goodale <goodale@a491c6a4-70bf-4b89-8b36-d6c0cb1f094e>
Date: Fri, 26 Apr 2002 16:23:42 +0000
Subject: Mask functionality copied from old Einstein, with a bit more grdoc
 and stuff.

Tom


git-svn-id: http://svn.cactuscode.org/arrangements/CactusNumerical/SpaceMask/trunk@4 a491c6a4-70bf-4b89-8b36-d6c0cb1f094e
---
 src/MaskInit.c     | 78 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 src/make.code.defn |  2 +-
 2 files changed, 79 insertions(+), 1 deletion(-)
 create mode 100644 src/MaskInit.c

(limited to 'src')

diff --git a/src/MaskInit.c b/src/MaskInit.c
new file mode 100644
index 0000000..2991b23
--- /dev/null
+++ b/src/MaskInit.c
@@ -0,0 +1,78 @@
+ /*@@
+   @file      MaskInit.c
+   @date      Fri Apr 26 17:20:13 2002
+   @author    Miguel Alcubierre
+   @desc 
+   Initialise the mask (I just copied LapseInits.c)
+   @enddesc 
+   @version $Header$
+ @@*/
+
+#include "cctk.h"
+
+#include "cctk_Parameters.h"
+#include "cctk_Arguments.h"
+
+static const char *rcsid = "$Header$";
+
+CCTK_FILEVERSION(CactusEinstein_Einstein_MaskInit_c)
+
+
+/********************************************************************
+ *********************     Local Data Types   ***********************
+ ********************************************************************/
+
+/********************************************************************
+ ********************* Local Routine Prototypes *********************
+ ********************************************************************/
+
+/********************************************************************
+ ***************** Scheduled Routine Prototypes *********************
+ ********************************************************************/
+
+void MaskOne(CCTK_ARGUMENTS);
+
+/********************************************************************
+ ********************* Other Routine Prototypes *********************
+ ********************************************************************/
+
+/********************************************************************
+ *********************     Local Data   *****************************
+ ********************************************************************/
+
+/********************************************************************
+ *********************     External Routines   **********************
+ ********************************************************************/
+
+ /*@@
+   @routine    MaskOne
+   @date       
+   @author     Miguel Alcubierre
+   @desc 
+   Scheduled routine to initialise the mask to one.
+   @enddesc 
+   @calls     
+   @calledby   
+   @history 
+ 
+   @endhistory 
+ 
+@@*/
+void MaskOne(CCTK_ARGUMENTS)
+{
+  int i;
+  DECLARE_CCTK_ARGUMENTS
+  DECLARE_CCTK_PARAMETERS
+
+  for(i = 0; i < cctk_lsh[0]*cctk_lsh[1]*cctk_lsh[2]; i++)
+  {
+    emask[i] = 1.0;
+  }
+
+  return;
+}
+
+/********************************************************************
+ *********************     Local Routines   *************************
+ ********************************************************************/
+
diff --git a/src/make.code.defn b/src/make.code.defn
index d4af37c..4a62d46 100644
--- a/src/make.code.defn
+++ b/src/make.code.defn
@@ -2,7 +2,7 @@
 # $Header$
 
 # Source files in this directory
-SRCS = 
+SRCS = MaskInit.c
 
 # Subdirectories containing source files
 SUBDIRS = 
-- 
cgit v1.2.3