diff options
Diffstat (limited to 'src/macro/DETG_guts.h')
-rw-r--r-- | src/macro/DETG_guts.h | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/src/macro/DETG_guts.h b/src/macro/DETG_guts.h index 3facc99..ce3b4fe 100644 --- a/src/macro/DETG_guts.h +++ b/src/macro/DETG_guts.h @@ -13,11 +13,7 @@ Gabrielle Allen, 5th November 1998 #ifdef FCODE - IF (conformal_state .eq. 0) THEN - DETG_PSI4 = 1.0d0 - ELSE - DETG_PSI4 = DETG_PSI**4 - ENDIF + DETG_PSI4 = 1.0d0 DETG_TEMPXX = DETG_GYY*DETG_GZZ - DETG_GYZ*DETG_GYZ DETG_TEMPXY = DETG_GXZ*DETG_GYZ - DETG_GXY*DETG_GZZ @@ -37,7 +33,7 @@ Gabrielle Allen, 5th November 1998 #ifdef CCODE -DETG_PSI4 = ((*conformal_state == 0)?1:DETG_PSI*DETG_PSI*DETG_PSI*DETG_PSI); +DETG_PSI4 = 1; DETG_TEMPXX = DETG_GYY*DETG_GZZ - DETG_GYZ*DETG_GYZ; DETG_TEMPXY = DETG_GXZ*DETG_GYZ - DETG_GXY*DETG_GZZ; |