diff options
author | allen <allen@6a38eb6e-646e-4a02-a296-d141613ad6c4> | 2000-02-20 00:14:22 +0000 |
---|---|---|
committer | allen <allen@6a38eb6e-646e-4a02-a296-d141613ad6c4> | 2000-02-20 00:14:22 +0000 |
commit | 53163f09599906d4cd9d4335b8377e1411e64d51 (patch) | |
tree | f62a18897b025a94ffe12796536861de00bff002 /src/CopyBoundary.c | |
parent | 7cd567dc772ad53bfdc386b6a4be27fac4d529fa (diff) |
Removing deprecated boundary routines
Tidying include files and style
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Boundary/trunk@87 6a38eb6e-646e-4a02-a296-d141613ad6c4
Diffstat (limited to 'src/CopyBoundary.c')
-rw-r--r-- | src/CopyBoundary.c | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/src/CopyBoundary.c b/src/CopyBoundary.c index 79683a7..576ff58 100644 --- a/src/CopyBoundary.c +++ b/src/CopyBoundary.c @@ -19,21 +19,20 @@ static char *rcsid = "$Header$"; #include <string.h> #include "cctk.h" +#include "cctk_Parameters.h" #include "cctk_FortranString.h" #include "Boundary.h" #include "Symmetry.h" -#include "cctk_Parameters.h" - /* The actual boundary condition */ void ApplyCopy3Di(cGH *GH, - int *doBC, - int *lsh, - int *stencil_size, - CCTK_REAL *var, - CCTK_REAL *varp) + int *doBC, + int *lsh, + int *stencil_size, + CCTK_REAL *var, + CCTK_REAL *varp) { if (doBC[0] == 1) @@ -174,9 +173,9 @@ void ApplyCopy3Di(cGH *GH, int CopyBCVarI(cGH *GH, - int *stencil_size, - int vi, - int vpi) + int *stencil_size, + int vi, + int vpi) { DECLARE_CCTK_PARAMETERS @@ -232,15 +231,14 @@ int CopyBCVarI(cGH *GH, if (doBC) free(doBC); return(retval); +} - -} int CopyBCVar(cGH *GH, - int *stencil_size, - const char *impvarname, - const char *imppvarname) + int *stencil_size, + const char *impvarname, + const char *imppvarname) { int vi,vip; vi = CCTK_VarIndex(impvarname); @@ -248,10 +246,12 @@ int CopyBCVar(cGH *GH, return(CopyBCVarI(GH, stencil_size, vi, vip)); } + + void FMODIFIER FORTRAN_NAME(CopyBCVar)(int *retval, - cGH *GH, - int *stencil_size, - TWO_FORTSTRINGS_ARGS) + cGH *GH, + int *stencil_size, + TWO_FORTSTRINGS_ARGS) { TWO_FORTSTRINGS_CREATE(impvarname,imppvarname) *retval = CopyBCVar(GH, stencil_size, impvarname,imppvarname); |