From 174d428e9616a6779443b02dd4b259021c6a6639 Mon Sep 17 00:00:00 2001
From: lanfer <lanfer@f5a6acaf-da7d-456b-b0a8-35edbc60b392>
Date: Tue, 18 Jan 2000 14:39:58 +0000
Subject: bug fix

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWave/trunk@22 f5a6acaf-da7d-456b-b0a8-35edbc60b392
---
 src/InitialData.F77 | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/src/InitialData.F77 b/src/InitialData.F77
index 1cefed6..f74a4bd 100644
--- a/src/InitialData.F77
+++ b/src/InitialData.F77
@@ -99,8 +99,16 @@ c        Use kx,ky,kz as number of modes in each direction.
          end do
 
       else
-         phi     = 0.0d0
-         phi_old = 0.0d0
+         do k=1,cctk_lsh(3)
+            do j=1,cctk_lsh(2)
+               do i=1,cctk_lsh(1)
+                  
+                  phi(i,j,k)     = 0.0d0
+                  phi_old(i,j,k) = 0.0d0
+               end do
+            end do
+         end do 
+         
       end if
 
       return
-- 
cgit v1.2.3