diff options
| author | goodale <goodale@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 2004-05-17 11:51:13 +0000 |
|---|---|---|
| committer | goodale <goodale@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 2004-05-17 11:51:13 +0000 |
| commit | f20d3406e56a8812d4181115c1ce83adebf72b47 (patch) | |
| tree | 1dec01fedda49a76d7d48f414e17aaba1262d9ed | |
| parent | 064efb07e75abcd470074a20038cd3ab6d69b789 (diff) | |
Untabified.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMConstraints/trunk@107 b7a48df3-cbbf-4440-997f-b4b717c9f7fc
| -rw-r--r-- | src/ADMConstraints.F | 10 |
1 files 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 |