From f0fc3d176035ae304ce73c9a53c375f4c4842109 Mon Sep 17 00:00:00 2001 From: miguel Date: Fri, 13 Jul 2001 11:42:57 +0000 Subject: bug in matter terms for non-zero shift. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMConstraints/trunk@49 b7a48df3-cbbf-4440-997f-b4b717c9f7fc --- src/ADMConstraints.F | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src') diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F index 5ebc07c..edcb597 100644 --- a/src/ADMConstraints.F +++ b/src/ADMConstraints.F @@ -136,9 +136,9 @@ c = (T_00 - 2 beta^i T_{i0} + beta^i beta^j T_{ij})/alpha^2 & +(betax(i,j,k)*betay(i,j,k)*Txy & + betax(i,j,k)*betaz(i,j,k)*Txz & + betay(i,j,k)*betaz(i,j,k)*Tyz)*2.0D0 - & -(betax(i,j,k)**2*Ttx - & + betay(i,j,k)**2*Tty - & + betaz(i,j,k)**2*Ttz)*2.0D0) + & -(betax(i,j,k)*Ttx + & + betay(i,j,k)*Tty + & + betaz(i,j,k)*Ttz)*2.0D0) end if -- cgit v1.2.3