From f094848d3eb13e236144a7fbed7fe255fb4fcf93 Mon Sep 17 00:00:00 2001 From: korobkin Date: Thu, 1 May 2008 08:20:48 +0000 Subject: (*) 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 --- interface.ccl | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'interface.ccl') 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, \ -- cgit v1.2.3