diff options
author | schnetter <schnetter@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2004-11-04 22:11:34 +0000 |
---|---|---|
committer | schnetter <schnetter@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2004-11-04 22:11:34 +0000 |
commit | a392b857f4cf624bef9f016b1fde599ddbb5633b (patch) | |
tree | 7383b8843a9bf400f43f2c74668ae4b416b10a5b | |
parent | 30303a7e3d029b46db9ffde280d7c4cf06cc9b9e (diff) |
Declare cctkGH as const in Diff_gf and Diff_gv
git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@14 f69c4107-0314-4c4f-9ad4-17e986b73f4a
-rw-r--r-- | interface.ccl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/interface.ccl b/interface.ccl index 924cabc..b8fd0f9 100644 --- a/interface.ccl +++ b/interface.ccl @@ -13,13 +13,13 @@ inherits: grid # CCTK_REAL OUT ARRAY dvar ) #PROVIDES FUNCTION Diff_gf WITH deriv_gf LANGUAGE Fortran -SUBROUTINE Diff_gf ( CCTK_POINTER IN cctkGH, \ +SUBROUTINE Diff_gf ( CCTK_POINTER_TO_CONST IN cctkGH, \ CCTK_INT IN dir, \ CCTK_STRING IN var_name, \ CCTK_STRING IN dvar_name ) PROVIDES FUNCTION Diff_gf WITH DiffGf LANGUAGE C -SUBROUTINE Diff_gv ( CCTK_POINTER IN cctkGH, \ +SUBROUTINE Diff_gv ( CCTK_POINTER_TO_CONST IN cctkGH, \ CCTK_INT IN dir, \ CCTK_REAL IN ARRAY var, \ CCTK_REAL OUT ARRAY dvar ) |