diff options
author | allen <allen@6a38eb6e-646e-4a02-a296-d141613ad6c4> | 2001-09-14 11:46:53 +0000 |
---|---|---|
committer | allen <allen@6a38eb6e-646e-4a02-a296-d141613ad6c4> | 2001-09-14 11:46:53 +0000 |
commit | 151afc04d16ac225bbeadeaa67ddceb79a529d98 (patch) | |
tree | 4fd8bbef4ee699fb268e0b060250ae6300945abe /src | |
parent | a428d9342417c7971ff207a9d6561affbfff69b8 (diff) |
Use new macros for fortran strings
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Boundary/trunk@158 6a38eb6e-646e-4a02-a296-d141613ad6c4
Diffstat (limited to 'src')
-rw-r--r-- | src/CopyBoundary.c | 16 | ||||
-rw-r--r-- | src/RadiationBoundary.c | 16 |
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); |