From a0df92952d6a564d9533b6358fb280a71b9d1761 Mon Sep 17 00:00:00 2001 From: tradke Date: Mon, 19 Jun 2000 09:40:09 +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/IDScalarWave/trunk@40 f5a6acaf-da7d-456b-b0a8-35edbc60b392 --- src/InitialData.F77 | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/InitialData.F77 b/src/InitialData.F77 index 4427e98..1483002 100644 --- a/src/InitialData.F77 +++ b/src/InitialData.F77 @@ -111,6 +111,16 @@ c Use kx,ky,kz as number of modes in each direction. end if +c zero out corners of phi next */ + phi_n(1, 1, 1) = 0.0 + phi_n(1, 1, cctk_lsh(3)) = 0.0 + phi_n(1, cctk_lsh(2), 1) = 0.0 + phi_n(1, cctk_lsh(2), cctk_lsh(3)) = 0.0 + phi_n(cctk_lsh(1), 1, 1) = 0.0 + phi_n(cctk_lsh(1), 1, cctk_lsh(3)) = 0.0 + phi_n(cctk_lsh(1), cctk_lsh(2), 1) = 0.0 + phi_n(cctk_lsh(1), cctk_lsh(2), cctk_lsh(3)) = 0.0 + return end -- cgit v1.2.3