diff options
| author | allen <allen@6a38eb6e-646e-4a02-a296-d141613ad6c4> | 1999-09-14 11:33:21 +0000 |
|---|---|---|
| committer | allen <allen@6a38eb6e-646e-4a02-a296-d141613ad6c4> | 1999-09-14 11:33:21 +0000 |
| commit | 6409e2e59f9758e1c5fa723880fe69aa8fefd721 (patch) | |
| tree | ad44dbe5f96f0992aae268935c2e1ed02e352928 | |
| parent | 6e8332ff75aff851af0bb744d75349b314fe184e (diff) | |
Some little pointer-like bugs in return values
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Boundary/trunk@24 6a38eb6e-646e-4a02-a296-d141613ad6c4
| -rw-r--r-- | src/ConstantBoundary.c | 4 | ||||
| -rw-r--r-- | src/FlatBoundary.c | 4 | ||||
| -rw-r--r-- | src/RadiationBoundaryWrappers.c | 4 |
3 files changed, 6 insertions, 6 deletions
diff --git a/src/ConstantBoundary.c b/src/ConstantBoundary.c index eaa513a..5b33f48 100644 --- a/src/ConstantBoundary.c +++ b/src/ConstantBoundary.c @@ -152,10 +152,10 @@ int ApplyConstantBC(cGH *GH, CCTK_REAL var0, int *stencil_size, char *name) { if (doBC) free(doBC); } -void FMODIFIER FORTRAN_NAME(ApplyConstantBC)(int *retval, cGH *GH, CCTK_REAL var0, int *stencil_size, ONE_FORTSTRING_ARG) { +void FMODIFIER FORTRAN_NAME(ApplyConstantBC)(int *retval, cGH *GH, CCTK_REAL *var0, int *stencil_size, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE(name) - *retval = ApplyConstantBC(GH,var0,stencil_size,name); + *retval = ApplyConstantBC(GH,*var0,stencil_size,name); free(name); } diff --git a/src/FlatBoundary.c b/src/FlatBoundary.c index 311c943..bc7d87f 100644 --- a/src/FlatBoundary.c +++ b/src/FlatBoundary.c @@ -159,10 +159,10 @@ int ApplyFlatBC(cGH *GH, int *stencil_size, char *name) { } -void FMODIFIER FORTRAN_NAME(ApplyFlatBC)(int retval, cGH *GH, int *stencil_size, ONE_FORTSTRING_ARG) { +void FMODIFIER FORTRAN_NAME(ApplyFlatBC)(int *retval, cGH *GH, int *stencil_size, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE(name) - retval = ApplyFlatBC(GH,stencil_size,name); + *retval = ApplyFlatBC(GH,stencil_size,name); free(name); } diff --git a/src/RadiationBoundaryWrappers.c b/src/RadiationBoundaryWrappers.c index 2b3e2ae..048d762 100644 --- a/src/RadiationBoundaryWrappers.c +++ b/src/RadiationBoundaryWrappers.c @@ -237,11 +237,11 @@ int ApplyRadiativeBC(cGH *GH, CCTK_REAL var0, int *sw, } -void FMODIFIER FORTRAN_NAME(ApplyRadiativeBC)(int retval, cGH *GH,CCTK_REAL *var0,int *sw, TWO_FORTSTRINGS_ARGS) { +void FMODIFIER FORTRAN_NAME(ApplyRadiativeBC)(int *retval, cGH *GH,CCTK_REAL *var0,int *sw, TWO_FORTSTRINGS_ARGS) { TWO_FORTSTRINGS_CREATE(name,name_p) - retval = ApplyRadiativeBC(GH,*var0,sw,name,name_p); + *retval = ApplyRadiativeBC(GH,*var0,sw,name,name_p); free(name); free(name_p); |