diff options
Diffstat (limited to 'src/RadiationBoundaryWrappers.c')
-rw-r--r-- | src/RadiationBoundaryWrappers.c | 4 |
1 files changed, 2 insertions, 2 deletions
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); |