Use new macros for fortran strings

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

2 files changed, 16 insertions, 16 deletions

diff --git a/src/CopyBoundary.c b/src/CopyBoundary.c
index b18d34b..9be745a 100644
--- a/src/CopyBoundary.c
+++ b/src/CopyBoundary.c
@@ -63,23 +63,23 @@ void CCTK_FCALL CCTK_FNAME (BndCopyDirVN)
                             const cGH *GH,
                             const int *stencil_size,
                             const int *dir,
-                            TWO_FORTSTRINGS_ARGS);
+                            TWO_FORTSTRING_ARG);
 void CCTK_FCALL CCTK_FNAME (BndCopyVN)
                            (int *ierr,
                             const cGH *GH,
                             const int *stencil,
-                            TWO_FORTSTRINGS_ARGS);
+                            TWO_FORTSTRING_ARG);
 void CCTK_FCALL CCTK_FNAME (BndCopyDirGN)
                            (int *ierr,
                             const cGH *GH,
                             const int *stencil_size,
                             const int *dir,
-                            TWO_FORTSTRINGS_ARGS);
+                            TWO_FORTSTRING_ARG);
 void CCTK_FCALL CCTK_FNAME (BndCopyGN)
                            (int *ierr,
                             const cGH *GH,
                             const int *stencil,
-                            TWO_FORTSTRINGS_ARGS);
+                            TWO_FORTSTRING_ARG);
 
 
 /********************************************************************
@@ -474,7 +474,7 @@ void CCTK_FCALL CCTK_FNAME (BndCopyDirGN)
                             const cGH *GH,
                             const int *stencil_size,
                             const int *dir,
-                            TWO_FORTSTRINGS_ARGS)
+                            TWO_FORTSTRING_ARG)
 {
   TWO_FORTSTRINGS_CREATE (gname_to, gname_from)
   *ierr = BndCopyDirGN (GH, *stencil_size, *dir, gname_to, gname_from);
@@ -550,9 +550,9 @@ void CCTK_FCALL CCTK_FNAME (BndCopyGN)
                            (int *ierr,
                             const cGH *GH,
                             const int *stencil,
-                            TWO_FORTSTRINGS_ARGS)
+                            TWO_FORTSTRING_ARG)
 {
-  TWO_FORTSTRINGS_CREATE (gname_to, gname_from)
+  TWO_FORTSTRING_CREATE (gname_to, gname_from)
   *ierr = BndCopyGN (GH, stencil, gname_to, gname_from);
   free (gname_to);
   free (gname_from);
@@ -635,7 +635,7 @@ void CCTK_FCALL CCTK_FNAME (BndCopyDirVN)
                             const cGH *GH,
                             const int *stencil_size,
                             const int *dir,
-                            TWO_FORTSTRINGS_ARGS)
+                            TWO_FORTSTRING_ARG)
 {
   TWO_FORTSTRINGS_CREATE (vname_to, vname_from)
   *ierr = BndCopyDirVN (GH, *stencil_size, *dir, vname_to, vname_from);
diff --git a/src/RadiationBoundary.c b/src/RadiationBoundary.c
index d4efd47..2ba4262 100644
--- a/src/RadiationBoundary.c
+++ b/src/RadiationBoundary.c
@@ -111,14 +111,14 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeDirGN)
                             const int *dir,
                             const CCTK_REAL *var0,
                             const CCTK_REAL *speed,
-                            TWO_FORTSTRINGS_ARGS);
+                            TWO_FORTSTRING_ARG);
 void CCTK_FCALL CCTK_FNAME (BndRadiativeGN)
                            (int *ierr,
                             const cGH *GH,
                             const int *stencil,
                             const CCTK_REAL *var0,
                             const CCTK_REAL *speed,
-                            TWO_FORTSTRINGS_ARGS);
+                            TWO_FORTSTRING_ARG);
 void CCTK_FCALL CCTK_FNAME (BndRadiativeDirVI)
                            (int *ierr,
                             const cGH *GH,
@@ -143,14 +143,14 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeDirVN)
                             const int *dir,
                             const CCTK_REAL *var0,
                             const CCTK_REAL *speed,
-                            TWO_FORTSTRINGS_ARGS);
+                            TWO_FORTSTRING_ARG);
 void CCTK_FCALL CCTK_FNAME (BndRadiativeVN)
                            (int *ierr,
                             const cGH *GH,
                             const int *stencil,
                             const CCTK_REAL *var0,
                             const CCTK_REAL *speed,
-                            TWO_FORTSTRINGS_ARGS);
+                            TWO_FORTSTRING_ARG);
 
 
 /********************************************************************
@@ -440,7 +440,7 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeDirGN)
                             const int *dir,
                             const CCTK_REAL *var0,
                             const CCTK_REAL *speed,
-                            TWO_FORTSTRINGS_ARGS)
+                            TWO_FORTSTRING_ARG)
 {
   TWO_FORTSTRINGS_CREATE (gname_to, gname_from)
   *ierr = BndRadiativeDirGN (GH, *stencil_size, *dir, *var0, *speed,
@@ -529,7 +529,7 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeGN)
                             const int *stencil,
                             const CCTK_REAL *var0,
                             const CCTK_REAL *speed,
-                            TWO_FORTSTRINGS_ARGS)
+                            TWO_FORTSTRING_ARG)
 {
   TWO_FORTSTRINGS_CREATE (gname_to, gname_from)
   *ierr = BndRadiativeGN (GH, stencil, *var0, *speed, gname_to, gname_from);
@@ -811,7 +811,7 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeDirVN)
                             const int *dir,
                             const CCTK_REAL *var0,
                             const CCTK_REAL *speed,
-                            TWO_FORTSTRINGS_ARGS)
+                            TWO_FORTSTRING_ARG)
 {
   TWO_FORTSTRINGS_CREATE (vname_to, vname_from)
   *ierr = BndRadiativeDirVN (GH, *stencil_size, *dir, *var0, *speed,
@@ -902,7 +902,7 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeVN)
                             const int *stencil,
                             const CCTK_REAL *var0,
                             const CCTK_REAL *speed,
-                            TWO_FORTSTRINGS_ARGS)
+                            TWO_FORTSTRING_ARG)
 {
   TWO_FORTSTRINGS_CREATE (vname_to, vname_from)
   *ierr = BndRadiativeVN (GH, stencil, *var0, *speed, vname_to, vname_from);