Change the way in which pointers are passed to and from Fortran.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Boundary/trunk@252 6a38eb6e-646e-4a02-a296-d141613ad6c4

7 files changed, 144 insertions, 144 deletions

diff --git a/interface.ccl b/interface.ccl
index c4b9ab3..558a1ab 100644
--- a/interface.ccl
+++ b/interface.ccl
@@ -11,28 +11,28 @@ USES INCLUDE HEADER: Symmetry.h
 
 # Implementation of new boundary spec:
 
-CCTK_INT FUNCTION Boundary_RegisterPhysicalBC(CCTK_POINTER IN GH, \
-  CCTK_INT CCTK_FPOINTER function_pointer(CCTK_POINTER IN GH, \
-                                          CCTK_INT IN num_vars, \
-                                          CCTK_INT ARRAY IN var_indices, \
-                                          CCTK_INT ARRAY IN faces, \
-					  CCTK_INT ARRAY IN boundary_widths, \
-                                          CCTK_INT ARRAY IN table_handles),\
+CCTK_INT FUNCTION Boundary_RegisterPhysicalBC(CCTK_POINTER_TO_CONST IN GH, \
+  CCTK_INT IN CCTK_FPOINTER function_pointer(CCTK_POINTER_TO_CONST IN GH, \
+                                             CCTK_INT IN num_vars, \
+                                             CCTK_INT ARRAY IN var_indices, \
+                                             CCTK_INT ARRAY IN faces, \
+                                             CCTK_INT ARRAY IN boundary_widths, \
+                                             CCTK_INT ARRAY IN table_handles),\
   CCTK_STRING IN bc_name)
 PROVIDES FUNCTION Boundary_RegisterPhysicalBC WITH \
   Bdry_Boundary_RegisterPhysicalBC LANGUAGE C
 USES FUNCTION Boundary_RegisterPhysicalBC
 
-CCTK_INT FUNCTION Boundary_SelectVarForBC(CCTK_POINTER IN GH, \
+CCTK_INT FUNCTION Boundary_SelectVarForBC(CCTK_POINTER_TO_CONST IN GH, \
   CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, \
   CCTK_STRING IN var_name, CCTK_STRING IN bc_name)
-CCTK_INT FUNCTION Boundary_SelectVarForBCI(CCTK_POINTER IN GH, \
+CCTK_INT FUNCTION Boundary_SelectVarForBCI(CCTK_POINTER_TO_CONST IN GH, \
   CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, \
   CCTK_INT IN var_index, CCTK_STRING IN bc_name)
-CCTK_INT FUNCTION Boundary_SelectGroupForBC(CCTK_POINTER IN GH, \
+CCTK_INT FUNCTION Boundary_SelectGroupForBC(CCTK_POINTER_TO_CONST IN GH, \
   CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, \
   CCTK_STRING IN group_name, CCTK_STRING IN bc_name)
-CCTK_INT FUNCTION Boundary_SelectGroupForBCI(CCTK_POINTER IN GH, \
+CCTK_INT FUNCTION Boundary_SelectGroupForBCI(CCTK_POINTER_TO_CONST IN GH, \
   CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, \
   CCTK_INT IN group_index, CCTK_STRING IN bc_name)
 PROVIDES FUNCTION Boundary_SelectVarForBC WITH Bdry_Boundary_SelectVarForBC \
@@ -44,7 +44,7 @@ PROVIDES FUNCTION Boundary_SelectGroupForBC WITH \
 PROVIDES FUNCTION Boundary_SelectGroupForBCI WITH \
   Bdry_Boundary_SelectGroupForBCI LANGUAGE C
 
-CCTK_INT FUNCTION Boundary_SelectedGVs(CCTK_POINTER IN GH, \
+CCTK_INT FUNCTION Boundary_SelectedGVs(CCTK_POINTER_TO_CONST IN GH, \
   CCTK_INT IN array_size, CCTK_INT ARRAY OUT var_indicies, \
   CCTK_INT ARRAY OUT faces, CCTK_INT ARRAY OUT boundary_widths, \
   CCTK_INT ARRAY OUT table_handles, CCTK_STRING IN bc_name)
diff --git a/src/CopyBoundary.c b/src/CopyBoundary.c
index 97e022a..b87ffc3 100644
--- a/src/CopyBoundary.c
+++ b/src/CopyBoundary.c
@@ -232,50 +232,50 @@ CCTK_INT BndCopy(const cGH *GH, CCTK_INT num_vars, CCTK_INT *vars,
    here only follow the fortran wrapper prototypes */
 void CCTK_FCALL CCTK_FNAME (BndCopyDirVI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             const int *vi_to,
                             const int *vi_from);
 void CCTK_FCALL CCTK_FNAME (BndCopyVI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const int *vi_to,
                             const int *vi_from);
 void CCTK_FCALL CCTK_FNAME (BndCopyDirGI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             const int *gi_to,
                             const int *gi_from);
 void CCTK_FCALL CCTK_FNAME (BndCopyGI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const int *gi_to,
                             const int *gi_from);
 void CCTK_FCALL CCTK_FNAME (BndCopyDirVN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             TWO_FORTSTRING_ARG);
 void CCTK_FCALL CCTK_FNAME (BndCopyVN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             TWO_FORTSTRING_ARG);
 void CCTK_FCALL CCTK_FNAME (BndCopyDirGN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             TWO_FORTSTRING_ARG);
 void CCTK_FCALL CCTK_FNAME (BndCopyGN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             TWO_FORTSTRING_ARG);
 
@@ -352,13 +352,13 @@ int BndCopyDirVI (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndCopyDirVI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             const int *vi_to,
                             const int *vi_from)
 {
-  *ierr = BndCopyDirVI (GH, *stencil_size, *dir, *vi_to, *vi_from);
+  *ierr = BndCopyDirVI (*GH, *stencil_size, *dir, *vi_to, *vi_from);
 }
 
 
@@ -434,12 +434,12 @@ int BndCopyVI (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndCopyVI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const int *vi_to,
                             const int *vi_from)
 {
-  *ierr = BndCopyVI (GH, stencil, *vi_to, *vi_from);
+  *ierr = BndCopyVI (*GH, stencil, *vi_to, *vi_from);
 }
 
 
@@ -515,13 +515,13 @@ int BndCopyDirGI (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndCopyDirGI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             const int *gi_to,
                             const int *gi_from)
 {
-  *ierr = BndCopyDirGI (GH, *stencil_size, *dir, *gi_to, *gi_from);
+  *ierr = BndCopyDirGI (*GH, *stencil_size, *dir, *gi_to, *gi_from);
 }
 
 
@@ -600,12 +600,12 @@ int BndCopyGI (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndCopyGI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const int *gi_to,
                             const int *gi_from)
 {
-  *ierr = BndCopyGI (GH, stencil, *gi_to, *gi_from);
+  *ierr = BndCopyGI (*GH, stencil, *gi_to, *gi_from);
 }
 
 
@@ -682,13 +682,13 @@ int BndCopyDirGN (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndCopyDirGN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             TWO_FORTSTRING_ARG)
 {
   TWO_FORTSTRINGS_CREATE (gname_to, gname_from)
-  *ierr = BndCopyDirGN (GH, *stencil_size, *dir, gname_to, gname_from);
+  *ierr = BndCopyDirGN (*GH, *stencil_size, *dir, gname_to, gname_from);
   free (gname_to);
   free (gname_from);
 }
@@ -769,12 +769,12 @@ int BndCopyGN (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndCopyGN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             TWO_FORTSTRING_ARG)
 {
   TWO_FORTSTRING_CREATE (gname_to, gname_from)
-  *ierr = BndCopyGN (GH, stencil, gname_to, gname_from);
+  *ierr = BndCopyGN (*GH, stencil, gname_to, gname_from);
   free (gname_to);
   free (gname_from);
 }
@@ -853,13 +853,13 @@ int BndCopyDirVN (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndCopyDirVN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             TWO_FORTSTRING_ARG)
 {
   TWO_FORTSTRINGS_CREATE (vname_to, vname_from)
-  *ierr = BndCopyDirVN (GH, *stencil_size, *dir, vname_to, vname_from);
+  *ierr = BndCopyDirVN (*GH, *stencil_size, *dir, vname_to, vname_from);
   free (vname_to);
   free (vname_from);
 }
@@ -941,12 +941,12 @@ int BndCopyVN (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndCopyVN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             TWO_FORTSTRINGS_ARGS)
 {
   TWO_FORTSTRINGS_CREATE (vname_to, vname_from)
-  *ierr = BndCopyVN (GH, stencil, vname_to, vname_from);
+  *ierr = BndCopyVN (*GH, stencil, vname_to, vname_from);
   free (vname_to);
   free (vname_from);
 }
diff --git a/src/FlatBoundary.c b/src/FlatBoundary.c
index 5743110..05508bf 100644
--- a/src/FlatBoundary.c
+++ b/src/FlatBoundary.c
@@ -186,46 +186,46 @@ CCTK_INT BndFlat(const cGH *GH, CCTK_INT num_vars, CCTK_INT *vars,
    here only follow the fortran wrapper prototypes */
 void CCTK_FCALL CCTK_FNAME (BndFlatDirGI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             const int *gi);
 void CCTK_FCALL CCTK_FNAME (BndFlatGI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const int *gi);
 void CCTK_FCALL CCTK_FNAME (BndFlatDirGN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             ONE_FORTSTRING_ARG);
 void CCTK_FCALL CCTK_FNAME (BndFlatGN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             ONE_FORTSTRING_ARG);
 void CCTK_FCALL CCTK_FNAME (BndFlatDirVI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             const int *vi);
 void CCTK_FCALL CCTK_FNAME (BndFlatVI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const int *vi);
 void CCTK_FCALL CCTK_FNAME (BndFlatDirVN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             ONE_FORTSTRING_ARG);
 void CCTK_FCALL CCTK_FNAME (BndFlatVN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             ONE_FORTSTRING_ARG);
 
@@ -296,12 +296,12 @@ int BndFlatDirGI (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndFlatDirGI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             const int *gi)
 {
-  *ierr = BndFlatDirGI (GH, *stencil_size, *dir, *gi);
+  *ierr = BndFlatDirGI (*GH, *stencil_size, *dir, *gi);
 }
 
 
@@ -361,11 +361,11 @@ int BndFlatGI (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndFlatGI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const int *gi)
 {
-  *ierr = BndFlatGI (GH, stencil, *gi);
+  *ierr = BndFlatGI (*GH, stencil, *gi);
 }
 
 
@@ -432,13 +432,13 @@ int BndFlatDirGN (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndFlatDirGN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             ONE_FORTSTRING_ARG)
 {
   ONE_FORTSTRING_CREATE (gn)
-  *ierr = BndFlatDirGN (GH, *stencil_size, *dir, gn);
+  *ierr = BndFlatDirGN (*GH, *stencil_size, *dir, gn);
   free (gn);
 }
 
@@ -498,12 +498,12 @@ int BndFlatGN (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndFlatGN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             ONE_FORTSTRING_ARG)
 {
   ONE_FORTSTRING_CREATE (gn)
-  *ierr = BndFlatGN (GH, stencil, gn);
+  *ierr = BndFlatGN (*GH, stencil, gn);
   free (gn);
 }
 
@@ -571,12 +571,12 @@ int BndFlatDirVI (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndFlatDirVI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             const int *vi)
 {
-  *ierr = BndFlatDirVI (GH, *stencil_size, *dir, *vi);
+  *ierr = BndFlatDirVI (*GH, *stencil_size, *dir, *vi);
 }
 
 
@@ -634,11 +634,11 @@ int BndFlatVI (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndFlatVI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const int *vi)
 {
-  *ierr = BndFlatVI (GH, stencil, *vi);
+  *ierr = BndFlatVI (*GH, stencil, *vi);
 }
 
 
@@ -706,13 +706,13 @@ int BndFlatDirVN (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndFlatDirVN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             ONE_FORTSTRING_ARG)
 {
   ONE_FORTSTRING_CREATE (vn)
-  *ierr = BndFlatDirVN (GH, *stencil_size, *dir, vn);
+  *ierr = BndFlatDirVN (*GH, *stencil_size, *dir, vn);
   free (vn);
 }
 
@@ -772,12 +772,12 @@ int BndFlatVN (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndFlatVN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             ONE_FORTSTRING_ARG)
 {
   ONE_FORTSTRING_CREATE (vn)
-  *ierr = BndFlatVN (GH, stencil, vn);
+  *ierr = BndFlatVN (*GH, stencil, vn);
   free (vn);
 }
 
diff --git a/src/RadiationBoundary.c b/src/RadiationBoundary.c
index 61427c6..67390a8 100644
--- a/src/RadiationBoundary.c
+++ b/src/RadiationBoundary.c
@@ -320,7 +320,7 @@ CCTK_INT BndRadiative(const cGH *GH, CCTK_INT num_vars, CCTK_INT *vars,
    here only follow the fortran wrapper prototypes */
 void CCTK_FCALL CCTK_FNAME (BndRadiativeDirGI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             const CCTK_REAL *var0,
@@ -329,7 +329,7 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeDirGI)
                             const int *gi_from);
 void CCTK_FCALL CCTK_FNAME (BndRadiativeGI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const CCTK_REAL *var0,
                             const CCTK_REAL *speed,
@@ -337,7 +337,7 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeGI)
                             const int *gi_from);
 void CCTK_FCALL CCTK_FNAME (BndRadiativeDirGN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             const CCTK_REAL *var0,
@@ -345,14 +345,14 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeDirGN)
                             TWO_FORTSTRING_ARG);
 void CCTK_FCALL CCTK_FNAME (BndRadiativeGN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const CCTK_REAL *var0,
                             const CCTK_REAL *speed,
                             TWO_FORTSTRING_ARG);
 void CCTK_FCALL CCTK_FNAME (BndRadiativeDirVI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             const CCTK_REAL *var0,
@@ -361,7 +361,7 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeDirVI)
                             const int *vi_from);
 void CCTK_FCALL CCTK_FNAME (BndRadiativeVI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const CCTK_REAL *var0,
                             const CCTK_REAL *speed,
@@ -369,7 +369,7 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeVI)
                             const int *vi_from);
 void CCTK_FCALL CCTK_FNAME (BndRadiativeDirVN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             const CCTK_REAL *var0,
@@ -377,7 +377,7 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeDirVN)
                             TWO_FORTSTRING_ARG);
 void CCTK_FCALL CCTK_FNAME (BndRadiativeVN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const CCTK_REAL *var0,
                             const CCTK_REAL *speed,
@@ -470,7 +470,7 @@ int BndRadiativeDirGI (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndRadiativeDirGI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             const CCTK_REAL *var0,
@@ -478,7 +478,7 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeDirGI)
                             const int *gi_to,
                             const int *gi_from)
 {
-  *ierr = BndRadiativeDirGI (GH, *stencil_size, *dir, *var0, *speed,
+  *ierr = BndRadiativeDirGI (*GH, *stencil_size, *dir, *var0, *speed,
                              *gi_to, *gi_from);
 }
 
@@ -560,14 +560,14 @@ int BndRadiativeGI (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndRadiativeGI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const CCTK_REAL *var0,
                             const CCTK_REAL *speed,
                             const int *gi_to,
                             const int *gi_from)
 {
-  *ierr = BndRadiativeGI (GH, stencil, *var0, *speed, *gi_to, *gi_from);
+  *ierr = BndRadiativeGI (*GH, stencil, *var0, *speed, *gi_to, *gi_from);
 }
 
 
@@ -655,7 +655,7 @@ int BndRadiativeDirGN (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndRadiativeDirGN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             const CCTK_REAL *var0,
@@ -663,7 +663,7 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeDirGN)
                             TWO_FORTSTRING_ARG)
 {
   TWO_FORTSTRINGS_CREATE (gname_to, gname_from)
-  *ierr = BndRadiativeDirGN (GH, *stencil_size, *dir, *var0, *speed,
+  *ierr = BndRadiativeDirGN (*GH, *stencil_size, *dir, *var0, *speed,
                              gname_to, gname_from);
   free (gname_to);
   free (gname_from);
@@ -745,14 +745,14 @@ int BndRadiativeGN (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndRadiativeGN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const CCTK_REAL *var0,
                             const CCTK_REAL *speed,
                             TWO_FORTSTRING_ARG)
 {
   TWO_FORTSTRINGS_CREATE (gname_to, gname_from)
-  *ierr = BndRadiativeGN (GH, stencil, *var0, *speed, gname_to, gname_from);
+  *ierr = BndRadiativeGN (*GH, stencil, *var0, *speed, gname_to, gname_from);
   free (gname_to);
   free (gname_from);
 }
@@ -841,7 +841,7 @@ int BndRadiativeDirVI (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndRadiativeDirVI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             const CCTK_REAL *var0,
@@ -849,7 +849,7 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeDirVI)
                             const int *vi_to,
                             const int *vi_from)
 {
-  *ierr = BndRadiativeDirVI (GH, *stencil_size, *dir, *var0, *speed,
+  *ierr = BndRadiativeDirVI (*GH, *stencil_size, *dir, *var0, *speed,
                              *vi_to, *vi_from);
 }
 
@@ -929,14 +929,14 @@ int BndRadiativeVI (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndRadiativeVI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const CCTK_REAL *var0,
                             const CCTK_REAL *speed,
                             const int *vi_to,
                             const int *vi_from)
 {
-  *ierr = BndRadiativeVI (GH, stencil, *var0, *speed, *vi_to, *vi_from);
+  *ierr = BndRadiativeVI (*GH, stencil, *var0, *speed, *vi_to, *vi_from);
 }
 
 
@@ -1026,7 +1026,7 @@ int BndRadiativeDirVN (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndRadiativeDirVN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             const CCTK_REAL *var0,
@@ -1034,7 +1034,7 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeDirVN)
                             TWO_FORTSTRING_ARG)
 {
   TWO_FORTSTRINGS_CREATE (vname_to, vname_from)
-  *ierr = BndRadiativeDirVN (GH, *stencil_size, *dir, *var0, *speed,
+  *ierr = BndRadiativeDirVN (*GH, *stencil_size, *dir, *var0, *speed,
                              vname_to, vname_from);
   free (vname_to);
   free (vname_from);
@@ -1118,14 +1118,14 @@ int BndRadiativeVN (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndRadiativeVN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const CCTK_REAL *var0,
                             const CCTK_REAL *speed,
                             TWO_FORTSTRING_ARG)
 {
   TWO_FORTSTRINGS_CREATE (vname_to, vname_from)
-  *ierr = BndRadiativeVN (GH, stencil, *var0, *speed, vname_to, vname_from);
+  *ierr = BndRadiativeVN (*GH, stencil, *var0, *speed, vname_to, vname_from);
   free (vname_to);
   free (vname_from);
 }
diff --git a/src/RobinBoundary.c b/src/RobinBoundary.c
index 005c3b0..3bd2946 100644
--- a/src/RobinBoundary.c
+++ b/src/RobinBoundary.c
@@ -215,28 +215,28 @@ CCTK_INT BndRobin(const cGH *GH, CCTK_INT num_vars, CCTK_INT *vars,
    here only follow the fortran wrapper prototypes */
 void CCTK_FCALL CCTK_FNAME (BndRobinGI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const CCTK_REAL *finf,
                             const int *npow,
                             const int *gi);
 void CCTK_FCALL CCTK_FNAME (BndRobinGN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const CCTK_REAL *finf,
                             const int *npow,
                             ONE_FORTSTRING_ARG);
 void CCTK_FCALL CCTK_FNAME (BndRobinVI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const CCTK_REAL  *finf,
                             const int *npow,
                             const int *vi);
 void CCTK_FCALL CCTK_FNAME (BndRobinVN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const CCTK_REAL *finf,
                             const int *npow,
@@ -315,13 +315,13 @@ int BndRobinGI (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndRobinGI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const CCTK_REAL *finf,
                             const int *npow,
                             const int *gi)
 {
-  *ierr = BndRobinGI (GH, stencil, *finf, *npow, *gi);
+  *ierr = BndRobinGI (*GH, stencil, *finf, *npow, *gi);
 }
 
 
@@ -392,14 +392,14 @@ int BndRobinGN (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndRobinGN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const CCTK_REAL *finf,
                             const int *npow,
                             ONE_FORTSTRING_ARG)
 {
   ONE_FORTSTRING_CREATE (gname)
-  *ierr = BndRobinGN (GH, stencil, *finf, *npow, gname);
+  *ierr = BndRobinGN (*GH, stencil, *finf, *npow, gname);
   free (gname);
 }
 
@@ -470,13 +470,13 @@ int BndRobinVI (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndRobinVI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const CCTK_REAL  *finf,
                             const int *npow,
                             const int *vi)
 {
-  *ierr = BndRobinVI (GH, stencil, *finf, *npow, *vi);
+  *ierr = BndRobinVI (*GH, stencil, *finf, *npow, *vi);
 }
 
 
@@ -547,14 +547,14 @@ int BndRobinVN (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndRobinVN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const CCTK_REAL *finf,
                             const int *npow,
                             ONE_FORTSTRING_ARG)
 {
   ONE_FORTSTRING_CREATE (vname)
-  *ierr = BndRobinVN (GH, stencil, *finf, *npow, vname);
+  *ierr = BndRobinVN (*GH, stencil, *finf, *npow, vname);
   free (vname);
 }
 
diff --git a/src/ScalarBoundary.c b/src/ScalarBoundary.c
index 3b70270..2753cc6 100644
--- a/src/ScalarBoundary.c
+++ b/src/ScalarBoundary.c
@@ -207,53 +207,53 @@ CCTK_INT BndScalar(const cGH *GH, CCTK_INT num_vars, CCTK_INT *vars, CCTK_INT *f
    here only follow the fortran wrapper prototypes */
 void CCTK_FCALL CCTK_FNAME (BndScalarDirVI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             const CCTK_REAL *scalar,
                             const int *vi);
 void CCTK_FCALL CCTK_FNAME (BndScalarVI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const CCTK_REAL *scalar,
                             const int *vi);
 void CCTK_FCALL CCTK_FNAME (BndScalarDirGI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             const CCTK_REAL *scalar,
                             const int *gi);
 void CCTK_FCALL CCTK_FNAME (BndScalarGI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const CCTK_REAL *scalar,
                             const int *gi);
 void CCTK_FCALL CCTK_FNAME (BndScalarDirGN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             const CCTK_REAL *scalar,
                             ONE_FORTSTRING_ARG);
 void CCTK_FCALL CCTK_FNAME (BndScalarGN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const CCTK_REAL *scalar,
                             ONE_FORTSTRING_ARG);
 void CCTK_FCALL CCTK_FNAME (BndScalarDirVN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             const CCTK_REAL *scalar,
                             ONE_FORTSTRING_ARG);
 void CCTK_FCALL CCTK_FNAME (BndScalarVN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const CCTK_REAL *scalar,
                             ONE_FORTSTRING_ARG);
@@ -328,13 +328,13 @@ int BndScalarDirVI (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndScalarDirVI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             const CCTK_REAL *scalar,
                             const int *vi)
 {
-  *ierr = BndScalarDirVI (GH, *stencil_size, *dir, *scalar, *vi);
+  *ierr = BndScalarDirVI (*GH, *stencil_size, *dir, *scalar, *vi);
 }
 
 
@@ -398,12 +398,12 @@ int BndScalarVI (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndScalarVI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const CCTK_REAL *scalar,
                             const int *vi)
 {
-  *ierr = BndScalarVI (GH, stencil, *scalar, *vi);
+  *ierr = BndScalarVI (*GH, stencil, *scalar, *vi);
 }
 
 
@@ -478,13 +478,13 @@ int BndScalarDirGI (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndScalarDirGI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             const CCTK_REAL *scalar,
                             const int *gi)
 {
-  *ierr = BndScalarDirGI (GH, *stencil_size, *dir, *scalar, *gi);
+  *ierr = BndScalarDirGI (*GH, *stencil_size, *dir, *scalar, *gi);
 }
 
 
@@ -550,12 +550,12 @@ int BndScalarGI (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndScalarGI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const CCTK_REAL *scalar,
                             const int *gi)
 {
-  *ierr = BndScalarGI (GH, stencil, *scalar, *gi);
+  *ierr = BndScalarGI (*GH, stencil, *scalar, *gi);
 }
 
 
@@ -628,14 +628,14 @@ int BndScalarDirGN (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndScalarDirGN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             const CCTK_REAL *scalar,
                             ONE_FORTSTRING_ARG)
 {
   ONE_FORTSTRING_CREATE (gname)
-  *ierr = BndScalarDirGN (GH, *stencil_size, *dir, *scalar, gname);
+  *ierr = BndScalarDirGN (*GH, *stencil_size, *dir, *scalar, gname);
   free (gname);
 }
 
@@ -701,13 +701,13 @@ int BndScalarGN (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndScalarGN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const CCTK_REAL *scalar,
                             ONE_FORTSTRING_ARG)
 {
   ONE_FORTSTRING_CREATE (gname)
-  *ierr = BndScalarGN (GH, stencil, *scalar, gname);
+  *ierr = BndScalarGN (*GH, stencil, *scalar, gname);
   free (gname);
 }
 
@@ -779,14 +779,14 @@ int BndScalarDirVN (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndScalarDirVN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             const CCTK_REAL *scalar,
                             ONE_FORTSTRING_ARG)
 {
   ONE_FORTSTRING_CREATE (vname)
-  *ierr = BndScalarDirVN (GH, *stencil_size, *dir, *scalar, vname);
+  *ierr = BndScalarDirVN (*GH, *stencil_size, *dir, *scalar, vname);
   free (vname);
 }
 
@@ -851,13 +851,13 @@ int BndScalarVN (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndScalarVN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const CCTK_REAL *scalar,
                             ONE_FORTSTRING_ARG)
 {
   ONE_FORTSTRING_CREATE (vname)
-  *ierr = BndScalarVN (GH, stencil, *scalar, vname);
+  *ierr = BndScalarVN (*GH, stencil, *scalar, vname);
   free (vname);
 }
 
diff --git a/src/StaticBoundary.c b/src/StaticBoundary.c
index 9eab83f..d7892bc 100644
--- a/src/StaticBoundary.c
+++ b/src/StaticBoundary.c
@@ -186,46 +186,46 @@ CCTK_INT BndStatic(const cGH *GH, CCTK_INT num_vars, CCTK_INT *vars,
    here only follow the fortran wrapper prototypes */
 void CCTK_FCALL CCTK_FNAME (BndStaticDirVI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             const int *vi);
 void CCTK_FCALL CCTK_FNAME (BndStaticVI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const int *vi);
 void CCTK_FCALL CCTK_FNAME (BndStaticDirGI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             const int *gi);
 void CCTK_FCALL CCTK_FNAME (BndStaticGI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const int *gi);
 void CCTK_FCALL CCTK_FNAME (BndStaticDirVN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             ONE_FORTSTRING_ARG);
 void CCTK_FCALL CCTK_FNAME (BndStaticVN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             ONE_FORTSTRING_ARG);
 void CCTK_FCALL CCTK_FNAME (BndStaticDirGN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             ONE_FORTSTRING_ARG);
 void CCTK_FCALL CCTK_FNAME (BndStaticGN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             ONE_FORTSTRING_ARG);
 
@@ -296,12 +296,12 @@ int BndStaticDirVI (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndStaticDirVI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             const int *vi)
 {
-  *ierr = BndStaticDirVI (GH, *stencil_size, *dir, *vi);
+  *ierr = BndStaticDirVI (*GH, *stencil_size, *dir, *vi);
 }
 
 
@@ -361,11 +361,11 @@ int BndStaticVI (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndStaticVI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const int *vi)
 {
-  *ierr = BndStaticVI (GH, stencil, *vi);
+  *ierr = BndStaticVI (*GH, stencil, *vi);
 }
 
 
@@ -434,12 +434,12 @@ int BndStaticDirGI (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndStaticDirGI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             const int *gi)
 {
-  *ierr = BndStaticDirGI (GH, *stencil_size, *dir, *gi);
+  *ierr = BndStaticDirGI (*GH, *stencil_size, *dir, *gi);
 }
 
 
@@ -500,11 +500,11 @@ int BndStaticGI (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndStaticGI)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             const int *gi)
 {
-  *ierr = BndStaticGI (GH, stencil, *gi);
+  *ierr = BndStaticGI (*GH, stencil, *gi);
 }
 
 
@@ -574,13 +574,13 @@ int BndStaticDirGN (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndStaticDirGN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             ONE_FORTSTRING_ARG)
 {
   ONE_FORTSTRING_CREATE (gname)
-  *ierr = BndStaticDirGN (GH, *stencil_size, *dir, gname);
+  *ierr = BndStaticDirGN (*GH, *stencil_size, *dir, gname);
   free (gname);
 }
 
@@ -643,12 +643,12 @@ int BndStaticGN (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndStaticGN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             ONE_FORTSTRING_ARG)
 {
   ONE_FORTSTRING_CREATE (gname)
-  *ierr = BndStaticGN (GH, stencil, gname);
+  *ierr = BndStaticGN (*GH, stencil, gname);
   free (gname);
 }
 
@@ -719,13 +719,13 @@ int BndStaticDirVN (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndStaticDirVN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil_size,
                             const int *dir,
                             ONE_FORTSTRING_ARG)
 {
   ONE_FORTSTRING_CREATE (vname)
-  *ierr = BndStaticDirVN (GH, *stencil_size, *dir, vname);
+  *ierr = BndStaticDirVN (*GH, *stencil_size, *dir, vname);
   free (vname);
 }
 
@@ -787,12 +787,12 @@ int BndStaticVN (const cGH *GH,
 
 void CCTK_FCALL CCTK_FNAME (BndStaticVN)
                            (int *ierr,
-                            const cGH *GH,
+                            const cGH **GH,
                             const int *stencil,
                             ONE_FORTSTRING_ARG)
 {
   ONE_FORTSTRING_CREATE (vname)
-  *ierr = BndStaticVN (GH, stencil, vname);
+  *ierr = BndStaticVN (*GH, stencil, vname);
   free (vname);
 }