From f895554a8771ec248ffc1f7c2de1f153f8a975c5 Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@2e825fa2-fb71-486d-8b7f-a5ff3f0f6cb8>
Date: Tue, 28 Oct 2003 13:50:21 +0000
Subject: Change the way in which pointers are passed to and from Fortran.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusNumerical/Slab/trunk@26 2e825fa2-fb71-486d-8b7f-a5ff3f0f6cb8
---
 src/slab.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/slab.c b/src/slab.c
index ee28368..11fb125 100644
--- a/src/slab.c
+++ b/src/slab.c
@@ -1217,7 +1217,7 @@ if (n<size-1) assert (srcoffset[n+1]==srcoffset[n]+srcdetailleni*srcdetaillenj*s
 
 void CCTK_FCALL
 CCTK_FNAME(Slab_Transfer) (int        * restrict const ierr,
-                           cGH  const * restrict const cctkGH,
+                           cGH  const * const * restrict const cctkGH,
                            int  const * restrict const dim,
                            int  const * restrict const src_gsh,
                            int  const * restrict const src_lbnd,
@@ -1276,7 +1276,7 @@ CCTK_FNAME(Slab_Transfer) (int        * restrict const ierr,
     xferinfo[d].flip            = flip[d];
   }
   
-  *ierr = Slab_Transfer (cctkGH, *dim, xferinfo, *options,
+  *ierr = Slab_Transfer (*cctkGH, *dim, xferinfo, *options,
                          *srctype, srcptr, *dsttype, dstptr);
   
   free (xferinfo);
-- 
cgit v1.2.3