diff options
author | diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2006-02-24 23:54:19 +0000 |
---|---|---|
committer | diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2006-02-24 23:54:19 +0000 |
commit | 8fdb80b563f1834c4fdef6d87cc12fe81262ccb3 (patch) | |
tree | 7d5644b6a00773835e9e3138cc1c8a55d125f9e7 /interface.ccl | |
parent | 090fc92617abd0751ac4d64974dfd920187f1de4 (diff) |
Aliased routine for returning the diagonal norm coefficients.
git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@60 f69c4107-0314-4c4f-9ad4-17e986b73f4a
Diffstat (limited to 'interface.ccl')
-rw-r--r-- | interface.ccl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/interface.ccl b/interface.ccl index 007620b..0c85802 100644 --- a/interface.ccl +++ b/interface.ccl @@ -26,6 +26,13 @@ SUBROUTINE Diff_coeff ( CCTK_POINTER_TO_CONST IN cctkGH, \ CCTK_INT IN table_handle ) PROVIDES FUNCTION Diff_coeff WITH DiffCoeff LANGUAGE C +#Routine to return the coefficients for the diagonal norms. +SUBROUTINE GetScalProdDiag ( CCTK_POINTER_TO_CONST IN cctkGH, \ + CCTK_INT IN dir, \ + CCTK_INT IN nsize, \ + CCTK_REAL OUT ARRAY sigmad ) +PROVIDES FUNCTION GetScalProdDiag WITH SBP_GetScalProdDiag LANGUAGE Fortran + CCTK_REAL FUNCTION GetScalProdCoeff () PROVIDES FUNCTION GetScalProdCoeff WITH GetCoeff LANGUAGE Fortran |