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/FlatBoundary.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/FlatBoundary.c') 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); } -- cgit v1.2.3