diff options
author | diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2005-02-23 17:51:10 +0000 |
---|---|---|
committer | diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2005-02-23 17:51:10 +0000 |
commit | f3222ee3543e8a837647d830f19d3ecd7639f149 (patch) | |
tree | 73903f4c267ca33598693f33f7d070ded0d68044 /interface.ccl | |
parent | 0615acc9c9fb001ac6413ef09b437cba68f8dca4 (diff) |
Routines for getting the coefficients for the various derivatives. By request from Bela.
git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@23 f69c4107-0314-4c4f-9ad4-17e986b73f4a
Diffstat (limited to 'interface.ccl')
-rw-r--r-- | interface.ccl | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/interface.ccl b/interface.ccl index 8b4304d..e3c2d98 100644 --- a/interface.ccl +++ b/interface.ccl @@ -4,15 +4,6 @@ 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_TO_CONST IN cctkGH, \ CCTK_INT IN dir, \ CCTK_STRING IN var_name, \ @@ -25,6 +16,15 @@ SUBROUTINE Diff_gv ( CCTK_POINTER_TO_CONST IN cctkGH, \ CCTK_REAL OUT ARRAY dvar ) PROVIDES FUNCTION Diff_gv WITH DiffGv LANGUAGE C +SUBROUTINE Diff_coeff ( CCTK_POINTER_TO_CONST IN cctkGH, \ + CCTK_INT IN dir, \ + CCTK_INT IN nsize, \ + CCTK_INT OUT ARRAY imin, \ + CCTK_INT OUT ARRAY imax, \ + CCTK_REAL OUT ARRAY q, \ + CCTK_INT IN table_handle ) +PROVIDES FUNCTION Diff_coeff WITH DiffCoeff LANGUAGE C + CCTK_REAL FUNCTION GetScalProdCoeff () PROVIDES FUNCTION GetScalProdCoeff WITH GetCoeff LANGUAGE Fortran |