1 files changed, 24 insertions, 24 deletions

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);
 }