diff options
author | pollney <pollney@f75ba9e5-694f-0410-ac2c-87ea7ce7132b> | 2003-09-09 14:49:37 +0000 |
---|---|---|
committer | pollney <pollney@f75ba9e5-694f-0410-ac2c-87ea7ce7132b> | 2003-09-09 14:49:37 +0000 |
commit | 33ec7d1cb74c47a0082682c881cf9aa4f8eb3985 (patch) | |
tree | 31d9c490304f1931fb3661c45a9594b1aaff1e87 /interface.ccl | |
parent | 444f1b7c9e6633b719bb66e68135242b92f51450 (diff) |
This is Ian's patch to LegoExcision, which provides a function
aliased interface.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/LegoExcision/trunk@36 f75ba9e5-694f-0410-ac2c-87ea7ce7132b
Diffstat (limited to 'interface.ccl')
-rw-r--r-- | interface.ccl | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/interface.ccl b/interface.ccl index 00f9b28..88decb5 100644 --- a/interface.ccl +++ b/interface.ccl @@ -2,3 +2,38 @@ # $Header$ implements: legoexcision + +inherits: spacemask, grid + +SUBROUTINE ExcisionFindBoundary(CCTK_INT OUT ierr, \ + CCTK_REAL INOUT ARRAY mask, \ + CCTK_INT IN ni, \ + CCTK_INT IN nj, \ + CCTK_INT IN nk) +PROVIDES FUNCTION ExcisionFindBoundary WITH excision_findboundary \ + LANGUAGE Fortran + +SUBROUTINE ExcisionExtrapolate(CCTK_INT OUT ierr, \ + CCTK_REAL INOUT ARRAY var, \ + CCTK_REAL IN ARRAY oldvar, \ + CCTK_REAL IN ARRAY mask, \ + CCTK_REAL IN ARRAY dirx, \ + CCTK_REAL IN ARRAY diry, \ + CCTK_REAL IN ARRAY dirz, \ + CCTK_INT IN ni, \ + CCTK_INT IN nj, \ + CCTK_INT IN nk, \ + CCTK_REAL IN var0) +PROVIDES FUNCTION ExcisionExtrapolate WITH excision_extrapolate \ + LANGUAGE Fortran + +SUBROUTINE ExcisionFindNormals(CCTK_INT OUT ierr, \ + CCTK_REAL IN ARRAY mask, \ + CCTK_REAL IN ARRAY dirx, \ + CCTK_REAL IN ARRAY diry, \ + CCTK_REAL IN ARRAY dirz, \ + CCTK_INT IN ni, \ + CCTK_INT IN nj, \ + CCTK_INT IN nk) +PROVIDES FUNCTION ExcisionFindNormals WITH excision_findnormals \ + LANGUAGE Fortran |