From 7a482a1c19a72539660dda168d80b2251fb7e92d Mon Sep 17 00:00:00 2001 From: schnetter Date: Tue, 28 Oct 2003 13:48:24 +0000 Subject: 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 --- interface.ccl | 24 ++++++++++++------------ src/CopyBoundary.c | 48 ++++++++++++++++++++++++------------------------ src/FlatBoundary.c | 48 ++++++++++++++++++++++++------------------------ src/RadiationBoundary.c | 48 ++++++++++++++++++++++++------------------------ src/RobinBoundary.c | 24 ++++++++++++------------ src/ScalarBoundary.c | 48 ++++++++++++++++++++++++------------------------ src/StaticBoundary.c | 48 ++++++++++++++++++++++++------------------------ 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); } -- cgit v1.2.3