diff options
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 |