diff options
author | miguel <miguel@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 2001-07-13 11:42:57 +0000 |
---|---|---|
committer | miguel <miguel@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 2001-07-13 11:42:57 +0000 |
commit | f0fc3d176035ae304ce73c9a53c375f4c4842109 (patch) | |
tree | 30f9995feeb82bbb55aec50dcb33eaadaff0d0df /src | |
parent | c86e0dfaa03dafae8c6ec62adebd2a9490529cd6 (diff) |
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
Diffstat (limited to 'src')
-rw-r--r-- | src/ADMConstraints.F | 6 |
1 files changed, 3 insertions, 3 deletions
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 |