From 17710d6ad65e9b0a756d9bb72d0fea74c05c3d8d Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@f69c4107-0314-4c4f-9ad4-17e986b73f4a>
Date: Thu, 3 Aug 2006 23:05:00 +0000
Subject: Correct Fortran wrapper

git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@76 f69c4107-0314-4c4f-9ad4-17e986b73f4a
---
 src/stencil.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/stencil.c b/src/stencil.c
index 007a7c6..e57f9ff 100644
--- a/src/stencil.c
+++ b/src/stencil.c
@@ -60,7 +60,7 @@ void SBP_determine_onesided_stencil (const cGH * cctkGH, int * onesided)
   }
 }
 
-CCTK_FCALL void CCTK_FNAME (SBP_determine_onesided_stencil) (CCTK_POINTER_TO_CONST cctkGH, int * onesided)
+CCTK_FCALL void CCTK_FNAME (SBP_determine_onesided_stencil) (CCTK_POINTER_TO_CONST * cctkGH, int * onesided)
 {
-  SBP_determine_onesided_stencil (cctkGH, onesided);
+  SBP_determine_onesided_stencil (* cctkGH, onesided);
 }
-- 
cgit v1.2.3