From 2ec709c07fbf16f45489a1a6be6cef1e1b63c571 Mon Sep 17 00:00:00 2001 From: tradke Date: Mon, 19 Jun 2000 09:40:10 +0000 Subject: Initialize the corners of phi_next to zero so that the testsuites can run now with PUGH::zero_memory = 0 on Alphas. git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWaveC/trunk@9 071ba4cb-2270-47cd-a45a-3e542e115664 --- src/InitialData.c | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/src/InitialData.c b/src/InitialData.c index 0ebff70..b50b17e 100644 --- a/src/InitialData.c +++ b/src/InitialData.c @@ -128,6 +128,17 @@ void IDScalarWaveC_InitialData(CCTK_ARGUMENTS) } } } + + /* zero out corners of phi next */ + phi_n[CCTK_GFINDEX3D(cctkGH, 0, 0, 0)] = 0; + phi_n[CCTK_GFINDEX3D(cctkGH, 0, 0, cctk_lsh[2]-1)] = 0; + phi_n[CCTK_GFINDEX3D(cctkGH, 0, cctk_lsh[1]-1, 0)] = 0; + phi_n[CCTK_GFINDEX3D(cctkGH, 0, cctk_lsh[1]-1, cctk_lsh[2]-1)] = 0; + phi_n[CCTK_GFINDEX3D(cctkGH, cctk_lsh[0]-1, 0, 0)] = 0; + phi_n[CCTK_GFINDEX3D(cctkGH, cctk_lsh[0]-1, 0, cctk_lsh[2]-1)] = 0; + phi_n[CCTK_GFINDEX3D(cctkGH, cctk_lsh[0]-1, cctk_lsh[1]-1, 0)] = 0; + phi_n[CCTK_GFINDEX3D(cctkGH, cctk_lsh[0]-1, cctk_lsh[1]-1, cctk_lsh[2]-1)] = 0; + return; } -- cgit v1.2.3