From f24c758ab2c4f5e701b8829b93af065889707e96 Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@f69c4107-0314-4c4f-9ad4-17e986b73f4a>
Date: Mon, 25 Oct 2004 19:21:43 +0000
Subject: Move scalar product weight mask and its calculation from
 MultiPatchWaveToy to SummationByParts.

git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@12 f69c4107-0314-4c4f-9ad4-17e986b73f4a
---
 interface.ccl | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

(limited to 'interface.ccl')

diff --git a/interface.ccl b/interface.ccl
index c05a3c1..924cabc 100644
--- a/interface.ccl
+++ b/interface.ccl
@@ -28,10 +28,6 @@ PROVIDES FUNCTION Diff_gv WITH DiffGv LANGUAGE C
 CCTK_REAL FUNCTION GetScalProdCoeff ()
 PROVIDES FUNCTION GetScalProdCoeff WITH GetCoeff LANGUAGE Fortran
 
-SUBROUTINE SetNormMask ( CCTK_POINTER IN cctkGH, \
-                         CCTK_REAL OUT ARRAY mask )
-PROVIDES FUNCTION SetNormMask WITH SetNMask LANGUAGE C
-
 CCTK_INT FUNCTION GetDomainSpecification \
   (CCTK_INT IN size, \
    CCTK_REAL OUT ARRAY physical_min, \
@@ -49,3 +45,12 @@ REQUIRES FUNCTION SymmetryTableHandleForGrid
 
 CCTK_INT FUNCTION SymmetryHandleOfName (CCTK_STRING IN sym_name)
 REQUIRES FUNCTION SymmetryHandleOfName
+
+
+
+public
+
+CCTK_REAL normmask TYPE=gf TAGS='tensortypealias="scalar" Prolongation="None"'
+{
+  nmask
+} "Mask for the norm calculation"
-- 
cgit v1.2.3