diff options
author | korobkin <korobkin@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2008-05-06 21:22:45 +0000 |
---|---|---|
committer | korobkin <korobkin@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2008-05-06 21:22:45 +0000 |
commit | a1e00fbca790be568d7efd1d5032555f4806e2e2 (patch) | |
tree | 525c8904914e332ce50457037e0ad2e92702ef82 /interface.ccl | |
parent | ac1d410652ea832f67e8fd20a0c1345a973ef392 (diff) |
(*) 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
Diffstat (limited to 'interface.ccl')
-rw-r--r-- | interface.ccl | 31 |
1 files changed, 23 insertions, 8 deletions
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 |