diff options
author | schnetter <schnetter@2e825fa2-fb71-486d-8b7f-a5ff3f0f6cb8> | 2003-10-28 13:50:21 +0000 |
---|---|---|
committer | schnetter <schnetter@2e825fa2-fb71-486d-8b7f-a5ff3f0f6cb8> | 2003-10-28 13:50:21 +0000 |
commit | f895554a8771ec248ffc1f7c2de1f153f8a975c5 (patch) | |
tree | 5ab761ce239a5b9022d95f0fd6e83a29d32c683c | |
parent | 26fad8b22a7a133e4427f84fdeb3db24086525aa (diff) |
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
-rw-r--r-- | src/slab.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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); |