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