From a63f47a0af8c4f78cf3ae4d2b6d4e0940caaea59 Mon Sep 17 00:00:00 2001 From: schnetter Date: Mon, 17 Nov 2003 16:46:35 +0000 Subject: Add epsilon4. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinUtils/TGRtensor/trunk@9 b716e942-a2de-43ad-8f52-f3dfe468e4e7 --- src/constants.F90 | 24 +++++++++++++++++++++++- 1 file changed, 23 insertions(+), 1 deletion(-) diff --git a/src/constants.F90 b/src/constants.F90 index 35555d3..5f162dc 100644 --- a/src/constants.F90 +++ b/src/constants.F90 @@ -8,7 +8,7 @@ module constants public delta2, delta3, delta4 public eta4 - public epsilon2, epsilon3 + public epsilon2, epsilon3, epsilon4 public pi @@ -43,6 +43,28 @@ module constants & 0,0,-1, 0,0,0, +1,0,0, & & 0,+1,0, -1,0,0, 0,0,0 /), (/3,3,3/)) + CCTK_REAL, parameter :: epsilon4(0:3,0:3,0:3,0:3) & + = reshape ((/ 0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0, & + & 0,0,0,0, 0,0,0,0, 0,0,0,+1, 0,0,-1,0, & + & 0,0,0,0, 0,0,0,-1, 0,0,0,0, 0,+1,0,0, & + & 0,0,0,0, 0,0,+1,0, 0,-1,0,0, 0,0,0,0, & + + & 0,0,0,0, 0,0,0,0, 0,0,0,-1, 0,0,+1,0, & + & 0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0, & + & 0,0,0,+1, 0,0,0,0, 0,0,0,0, -1,0,0,0, & + & 0,0,-1,0, 0,0,0,0, +1,0,0,0, 0,0,0,0, & + + & 0,0,0,0, 0,0,0,+1, 0,0,0,0, 0,-1,0,0, & + & 0,0,0,-1, 0,0,0,0, 0,0,0,0, +1,0,0,0, & + & 0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0, & + & 0,+1,0,0, -1,0,0,0, 0,0,0,0, 0,0,0,0, & + + & 0,0,0,0, 0,0,-1,0, 0,+1,0,0, 0,0,0,0, & + & 0,0,+1,0, 0,0,0,0, -1,0,0,0, 0,0,0,0, & + & 0,-1,0,0, +1,0,0,0, 0,0,0,0, 0,0,0,0, & + & 0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0 /), & + & (/4,4,4,4/)) + CCTK_REAL, parameter :: pi = 3.141592653589793238462643383279502884197169399375105820974944592307816406286208998628034825342117068_rk -- cgit v1.2.3