diff options
| author | allen <allen@6a38eb6e-646e-4a02-a296-d141613ad6c4> | 2000-01-12 12:59:03 +0000 |
|---|---|---|
| committer | allen <allen@6a38eb6e-646e-4a02-a296-d141613ad6c4> | 2000-01-12 12:59:03 +0000 |
| commit | b5053fe976abe7a64d1730c34eed959f64284a2f (patch) | |
| tree | f3157d8066ea1784ab77a324522a9bd745ffe5a3 /src/FlatBoundary.c | |
| parent | 26e730c9dff2757a4d85c4f4a94b64b6ccdc3bd7 (diff) | |
Adding USE_CCTK_PARAMETERS
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Boundary/trunk@77 6a38eb6e-646e-4a02-a296-d141613ad6c4
Diffstat (limited to 'src/FlatBoundary.c')
| -rw-r--r-- | src/FlatBoundary.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/FlatBoundary.c b/src/FlatBoundary.c index 1860ffa..00310e5 100644 --- a/src/FlatBoundary.c +++ b/src/FlatBoundary.c @@ -28,8 +28,6 @@ void ApplyFlat3Di(cGH *GH,int *doBC,int *lsh,int *stencil_size, CCTK_REAL *var); /* OLD STUFF DON'T USE */ int ApplyFlatBC(cGH *GH, int *stencil_size, const char *name) { - DECLARE_CCTK_PARAMETERS - SymmetryGHex *sGHex; /* the Symmetry GHextension */ int first,last,index; /* grid function indices */ int type; /* type 0 for a group, type 1 for a variable */ @@ -146,7 +144,6 @@ void FMODIFIER FORTRAN_NAME(ApplyFlatBC)(int *retval, cGH *GH, int *stencil_size } int FlatBCVarI(cGH *GH, int *stencil_size, int vi) { - DECLARE_CCTK_PARAMETERS SymmetryGHex *sGHex; /* the Symmetry GHextension */ int *doBC; /* flags if lower/upper BCs are applied (1) or not (0) */ @@ -193,7 +190,9 @@ int FlatBCVarI(cGH *GH, int *stencil_size, int vi) { CCTK_WARN(1,"You are trying to apply BC to s.th. else than a GF "); if (doBC) free(doBC); + return retval; + } void FMODIFIER FORTRAN_NAME(FlatBCVarI)(int *retval, |