From f20d3406e56a8812d4181115c1ce83adebf72b47 Mon Sep 17 00:00:00 2001 From: goodale Date: Mon, 17 May 2004 11:51:13 +0000 Subject: Untabified. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMConstraints/trunk@107 b7a48df3-cbbf-4440-997f-b4b717c9f7fc --- src/ADMConstraints.F | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F index e3259b5..80a5bc4 100644 --- a/src/ADMConstraints.F +++ b/src/ADMConstraints.F @@ -88,12 +88,12 @@ c Fill with zeros. do j=1,ny do i=1,nx - ham(i,j,k) = 0.0D0 + ham(i,j,k) = 0.0D0 hamnormalized(i,j,k) = 0.0D0 - - momx(i,j,k) = 0.0D0 - momy(i,j,k) = 0.0D0 - momz(i,j,k) = 0.0D0 + + momx(i,j,k) = 0.0D0 + momy(i,j,k) = 0.0D0 + momz(i,j,k) = 0.0D0 end do end do -- cgit v1.2.3