From f4cc81a52f102c61b07178b88d4a560b307d928f Mon Sep 17 00:00:00 2001 From: diener Date: Tue, 16 Oct 2007 14:45:23 +0000 Subject: Moved definitions of coefficients to a single module in order to only have them in one place. Added routines to return coefficients in all the missing cases. Also added routines to return 2 derivatives (only 2-1 and 4-2 so far). The routines calculating derivatives for whole grid functions have not been tested yet, so if you are using them, you will probably want to hold off on updating until I give the clear signal. git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@85 f69c4107-0314-4c4f-9ad4-17e986b73f4a --- interface.ccl | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) (limited to 'interface.ccl') diff --git a/interface.ccl b/interface.ccl index 4bb3bc0..a9f203d 100644 --- a/interface.ccl +++ b/interface.ccl @@ -25,6 +25,13 @@ SUBROUTINE Diff_up_gv ( CCTK_POINTER_TO_CONST IN cctkGH, \ CCTK_INT IN table_handle ) PROVIDES FUNCTION Diff_up_gv WITH DiffUpGv LANGUAGE C +SUBROUTINE Diff2_gv ( CCTK_POINTER_TO_CONST IN cctkGH, \ + CCTK_INT IN dir, \ + CCTK_REAL IN ARRAY var, \ + CCTK_REAL OUT ARRAY dvar, \ + CCTK_INT IN table_handle ) +PROVIDES FUNCTION Diff2_gv WITH DiffGv2 LANGUAGE C + SUBROUTINE Diff_coeff ( CCTK_POINTER_TO_CONST IN cctkGH, \ CCTK_INT IN dir, \ CCTK_INT IN nsize, \ @@ -34,6 +41,25 @@ SUBROUTINE Diff_coeff ( CCTK_POINTER_TO_CONST IN cctkGH, \ CCTK_INT IN table_handle ) PROVIDES FUNCTION Diff_coeff WITH DiffCoeff LANGUAGE C +SUBROUTINE Diff_up_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 up, \ + CCTK_INT IN table_handle ) +PROVIDES FUNCTION Diff_up_coeff WITH DiffUpCoeff LANGUAGE C + +SUBROUTINE Diff2_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 Diff2_coeff WITH DiffCoeff2 LANGUAGE C + #Routine to return the coefficients for the diagonal norms. SUBROUTINE GetScalProdDiag ( CCTK_POINTER_TO_CONST IN cctkGH, \ CCTK_INT IN dir, \ -- cgit v1.2.3