diff options
author | diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2007-10-16 14:45:23 +0000 |
---|---|---|
committer | diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2007-10-16 14:45:23 +0000 |
commit | f4cc81a52f102c61b07178b88d4a560b307d928f (patch) | |
tree | ae8d9b3dcbf84f6c2180622f0e7da3661d4fdcd4 /interface.ccl | |
parent | bb568eb19331f243f79abc3a5b3e9331959c8773 (diff) |
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
Diffstat (limited to 'interface.ccl')
-rw-r--r-- | interface.ccl | 26 |
1 files changed, 26 insertions, 0 deletions
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, \ |