diff options
-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 |