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/CopyBoundary.c | |
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/CopyBoundary.c')
-rw-r--r-- | src/CopyBoundary.c | 16 |
1 files changed, 8 insertions, 8 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); |