From f3222ee3543e8a837647d830f19d3ecd7639f149 Mon Sep 17 00:00:00 2001 From: diener Date: Wed, 23 Feb 2005 17:51:10 +0000 Subject: 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 --- interface.ccl | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'interface.ccl') 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 -- cgit v1.2.3