diff options
author | korobkin <korobkin@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2008-05-01 08:20:48 +0000 |
---|---|---|
committer | korobkin <korobkin@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2008-05-01 08:20:48 +0000 |
commit | f094848d3eb13e236144a7fbed7fe255fb4fcf93 (patch) | |
tree | 052f4161f2c2c6ec63df67cce3b43f91af55351d /interface.ccl | |
parent | 2d16ac42ec26717716e85b21272b1ca7188b7e8d (diff) |
(*) CCTK_FNAME(get_grid_offsets) -> get_grid_offsets
(+) Added get_grid_offsets to thorn interface as GetFDGridOffsets
(+) Added another thorn interface function GetLSHIndexRanges
to inquire actual local index ranges (in Fortran notation),
which account for both the ghostzones and shiftout values
git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@109 f69c4107-0314-4c4f-9ad4-17e986b73f4a
Diffstat (limited to 'interface.ccl')
-rw-r--r-- | interface.ccl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/interface.ccl b/interface.ccl index d619180..381ac63 100644 --- a/interface.ccl +++ b/interface.ccl @@ -71,6 +71,16 @@ 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 ( \ + 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 FUNCTION GetDomainSpecification \ (CCTK_INT IN size, \ CCTK_REAL OUT ARRAY physical_min, \ |