From 6409e2e59f9758e1c5fa723880fe69aa8fefd721 Mon Sep 17 00:00:00 2001 From: allen Date: Tue, 14 Sep 1999 11:33:21 +0000 Subject: 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 --- src/ConstantBoundary.c | 4 ++-- src/FlatBoundary.c | 4 ++-- 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); -- cgit v1.2.3