aboutsummaryrefslogtreecommitdiff
path: root/src/RadiationBoundary.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/RadiationBoundary.c')
-rw-r--r--src/RadiationBoundary.c48
1 files changed, 24 insertions, 24 deletions
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);
}
generated by cgit v1.2.3 (git 2.39.1) at 2024-05-16 10:44:28 +0000