diff options
Diffstat (limited to 'src/macro/DYDG_guts.h')
-rw-r--r-- | src/macro/DYDG_guts.h | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/src/macro/DYDG_guts.h b/src/macro/DYDG_guts.h index ff1e01e..b729f50 100644 --- a/src/macro/DYDG_guts.h +++ b/src/macro/DYDG_guts.h @@ -18,13 +18,8 @@ #ifdef FCODE - IF (conformal_state .eq. 0) THEN - DYDG_PSI4 = 1 - DYDG_FAC = 0 - ELSE - DYDG_PSI4 = DYDG_PSI**4 - DYDG_FAC = 4*DYDG_PSI4*DYDG_DYDPSI_O_PSI - ENDIF + DYDG_PSI4 = 1 + DYDG_FAC = 0 DYDG_DYDGXX = DYDCG_DYDCGXX*DYDG_PSI4 + DYDG_FAC*DYDG_GXX DYDG_DYDGXY = DYDCG_DYDCGXY*DYDG_PSI4 + DYDG_FAC*DYDG_GXY @@ -37,9 +32,9 @@ #ifdef CCODE - DYDG_PSI4 = ((*conformal_state == 0)?1:DYDG_PSI*DYDG_PSI*DYDG_PSI*DYDG_PSI); + DYDG_PSI4 = 1; - DYDG_FAC = ((*conformal_state == 0)?0:4*DYDG_PSI4*DYDG_DYDPSI_O_PSI); + DYDG_FAC = 0; DYDG_DYDGXX = DYDCG_DYDCGXX*DYDG_PSI4 + DYDG_FAC*DYDG_GXX; DYDG_DYDGXY = DYDCG_DYDCGXY*DYDG_PSI4 + DYDG_FAC*DYDG_GXY; |