bug fix

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWave/trunk@22 f5a6acaf-da7d-456b-b0a8-35edbc60b392

1 files 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