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

1 files changed, 12 insertions, 12 deletions

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