diff options
author | diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2004-10-06 00:18:32 +0000 |
---|---|---|
committer | diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2004-10-06 00:18:32 +0000 |
commit | 9d639bc123f2c23f5db7c436ec63e21c07e8746b (patch) | |
tree | bab3917f0e11b0246725a7e0642f4f9224dd1979 /interface.ccl | |
parent | 46f32e0ccbf4aa49a0de2425aa67338b53288cd2 (diff) |
First attempt at a summation by parts finite differencing thorn.
git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@2 f69c4107-0314-4c4f-9ad4-17e986b73f4a
Diffstat (limited to 'interface.ccl')
-rw-r--r-- | interface.ccl | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/interface.ccl b/interface.ccl new file mode 100644 index 0000000..c306db4 --- /dev/null +++ b/interface.ccl @@ -0,0 +1,31 @@ +# Interface definition for thorn SummationByParts +# $Header$ + +implements: SummationByParts +inherits: grid + +#SUBROUTINE Diff_gf ( CCTK_REAL IN ARRAY var, \ +# CCTK_INT IN ni, \ +# CCTK_INT IN nj, \ +# CCTK_INT IN nk, \ +# CCTK_INT IN dir, \ +# CCTK_REAL IN delta, \ +# CCTK_REAL OUT ARRAY dvar ) +#PROVIDES FUNCTION Diff_gf WITH deriv_gf LANGUAGE Fortran + +SUBROUTINE Diff_gf ( CCTK_POINTER IN cctkGH, \ + CCTK_INT IN dir, \ + CCTK_STRING IN var_name, \ + CCTK_STRING IN dvar_name ) +PROVIDES FUNCTION Diff_gf WITH DiffGf LANGUAGE C + +CCTK_INT FUNCTION GetDomainSpecification \ + (CCTK_INT IN size, \ + CCTK_REAL OUT ARRAY physical_min, \ + CCTK_REAL OUT ARRAY physical_max, \ + CCTK_REAL OUT ARRAY interior_min, \ + CCTK_REAL OUT ARRAY interior_max, \ + CCTK_REAL OUT ARRAY exterior_min, \ + CCTK_REAL OUT ARRAY exterior_max, \ + CCTK_REAL OUT ARRAY spacing) +USES FUNCTION GetDomainSpecification |