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

1 files 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);