diff options
author | allen <allen@b1d164ef-f17a-46e7-89d4-021c7118ef4e> | 1999-03-20 09:06:28 +0000 |
---|---|---|
committer | allen <allen@b1d164ef-f17a-46e7-89d4-021c7118ef4e> | 1999-03-20 09:06:28 +0000 |
commit | 7ef2f5a2635ff952eb34751f9d5c3add85815636 (patch) | |
tree | 559f60c9fb083211764ae2fee72a0b16c70dd044 | |
parent | e8031a78ab5abaeebc11dc1afa04523d872f9321 (diff) |
Protecting a psi
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinBase/ADMMacros/trunk@4 b1d164ef-f17a-46e7-89d4-021c7118ef4e
-rw-r--r-- | src/macro/DETG_guts.h | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/macro/DETG_guts.h b/src/macro/DETG_guts.h index a9025ec..12b187a 100644 --- a/src/macro/DETG_guts.h +++ b/src/macro/DETG_guts.h @@ -13,8 +13,12 @@ Gabrielle Allen, 5th November 1998 #ifdef FCODE - DETG_PSI4 = DETG_PSI**4 - + IF (conformal_state /= CONFORMAL_METRIC) THEN + DETG_PSI4 = 1.0d0 + ELSE + DETG_PSI4 = DETG_PSI**4 + ENDIF + DETG_TEMPXX = DETG_GYY*DETG_GZZ - DETG_GYZ*DETG_GYZ DETG_TEMPXY = DETG_GXZ*DETG_GYZ - DETG_GXY*DETG_GZZ DETG_TEMPXZ = -DETG_GXZ*DETG_GYY + DETG_GXY*DETG_GYZ |