From 1f205c250c56335cf873963d88d234b8409ee01f Mon Sep 17 00:00:00 2001 From: lanfer Date: Tue, 19 Oct 1999 13:33:23 +0000 Subject: bug fixes git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Boundary/trunk@44 6a38eb6e-646e-4a02-a296-d141613ad6c4 --- src/RadiationBoundary.c | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'src') diff --git a/src/RadiationBoundary.c b/src/RadiationBoundary.c index c65f971..71f02fb 100644 --- a/src/RadiationBoundary.c +++ b/src/RadiationBoundary.c @@ -2,7 +2,7 @@ #include "cctk_parameters.h" /*@@ - @file RadiationBoundary.F + @file RadiationBoundary.c @date Mon Mar 15 15:50:14 1999 @author Gerd Lanfermann @desc @@ -71,7 +71,7 @@ #define SQR(a) ((a)*(a)) -void RadiativeBC(cGH *GH, int *doBC, int *sw, int *lsh, int *dxyz, int dt, +void RadiativeBCi(cGH *GH, int *sw, int *doBC, int *lsh, CCTK_REAL *dxyz, CCTK_REAL dt, CCTK_REAL *var_n, CCTK_REAL *var_p, CCTK_REAL *x, CCTK_REAL *y, CCTK_REAL *z, CCTK_REAL *r, CCTK_REAL var0, CCTK_REAL v0) { @@ -118,10 +118,9 @@ void RadiativeBC(cGH *GH, int *doBC, int *sw, int *lsh, int *dxyz, int dt, dth = half*dt; /* Print warning. */ - - if ((sw[0]!=1) || (sw[1]!=1) || (sw[2]!=2)) - CCTK_WARN(0,"Radiative BC only with stencil_size=1"); + if ((sw[0]!=1) || (sw[1]!=1) || (sw[2]!=1)) + CCTK_WARN(0,"Radiative BC only with stencil_size=1"); /* Lower x-bound: Fortran to C: e.g. x(2,:,:) --> x[xgp2] */ -- cgit v1.2.3