From a392b857f4cf624bef9f016b1fde599ddbb5633b Mon Sep 17 00:00:00 2001 From: schnetter Date: Thu, 4 Nov 2004 22:11:34 +0000 Subject: 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 --- interface.ccl | 4 ++-- 1 file 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 ) -- cgit v1.2.3