From a1e00fbca790be568d7efd1d5032555f4806e2e2 Mon Sep 17 00:00:00 2001
From: korobkin <korobkin@f69c4107-0314-4c4f-9ad4-17e986b73f4a>
Date: Tue, 6 May 2008 21:22:45 +0000
Subject: (*) Small modifications to use GetBoundarySpecification or    
 MultiPatch_GetBoundarySpecification instead of reading shiftout    
 parameters directly from the CoordBase thorn.

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

(limited to 'interface.ccl')

diff --git a/interface.ccl b/interface.ccl
index 381ac63..bc6c63b 100644
--- a/interface.ccl
+++ b/interface.ccl
@@ -71,15 +71,11 @@ PROVIDES FUNCTION GetScalProdDiag WITH SBP_GetScalProdDiag LANGUAGE Fortran
 CCTK_REAL FUNCTION GetScalProdCoeff ()
 PROVIDES FUNCTION GetScalProdCoeff WITH GetCoeff LANGUAGE Fortran
 
-SUBROUTINE GetFDGridOffsets ( CCTK_INT OUT ARRAY offset )
-PROVIDES FUNCTION GetFDGridOffsets WITH get_grid_offsets LANGUAGE C
-
-SUBROUTINE GetLSHIndexRanges ( \
+SUBROUTINE GetLshIndexRanges ( \
                 CCTK_POINTER_TO_CONST IN cctkGH, \
-                CCTK_INT OUT imn, CCTK_INT OUT imx, \
-                CCTK_INT OUT jmn, CCTK_INT OUT jmx, \
-                CCTK_INT OUT kmn, CCTK_INT OUT kmx )
-PROVIDES FUNCTION GetLSHIndexRanges WITH get_lsh_iranges LANGUAGE C
+                CCTK_INT OUT ARRAY imin, \
+                CCTK_INT OUT ARRAY imax )
+PROVIDES FUNCTION GetLshIndexRanges WITH get_lsh_iranges LANGUAGE C
  
 CCTK_INT FUNCTION GetDomainSpecification \
   (CCTK_INT IN size, \
@@ -92,6 +88,25 @@ CCTK_INT FUNCTION GetDomainSpecification \
    CCTK_REAL OUT ARRAY spacing)
 USES FUNCTION GetDomainSpecification
 
+CCTK_INT FUNCTION                           \
+    GetBoundarySpecification     \
+        (CCTK_INT IN size,                  \
+         CCTK_INT OUT ARRAY nboundaryzones, \
+         CCTK_INT OUT ARRAY is_internal,    \
+         CCTK_INT OUT ARRAY is_staggered,   \
+         CCTK_INT OUT ARRAY shiftout)
+USES FUNCTION GetBoundarySpecification
+
+CCTK_INT FUNCTION                           \
+    MultiPatch_GetBoundarySpecification     \
+        (CCTK_INT IN map,                   \
+         CCTK_INT IN size,                  \
+         CCTK_INT OUT ARRAY nboundaryzones, \
+         CCTK_INT OUT ARRAY is_internal,    \
+         CCTK_INT OUT ARRAY is_staggered,   \
+         CCTK_INT OUT ARRAY shiftout)
+USES FUNCTION MultiPatch_GetBoundarySpecification 
+
 CCTK_INT FUNCTION \
     SymmetryTableHandleForGrid (CCTK_POINTER_TO_CONST IN cctkGH)
 REQUIRES FUNCTION SymmetryTableHandleForGrid
-- 
cgit v1.2.3