diff options
Diffstat (limited to 'src/macro/DZDG_guts.h')
| -rw-r--r-- | src/macro/DZDG_guts.h | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/src/macro/DZDG_guts.h b/src/macro/DZDG_guts.h index e5f385d..792c6ea 100644 --- a/src/macro/DZDG_guts.h +++ b/src/macro/DZDG_guts.h @@ -18,13 +18,8 @@ #ifdef FCODE - IF (conformal_state .eq. 0) THEN - DZDG_PSI4 = 1 - DZDG_FAC = 0 - ELSE - DZDG_PSI4 = DZDG_PSI**4 - DZDG_FAC = 4*DZDG_PSI4*DZDG_DZDPSI_O_PSI - ENDIF + DZDG_PSI4 = 1 + DZDG_FAC = 0 DZDG_DZDGXX = DZDCG_DZDCGXX*DZDG_PSI4 + DZDG_FAC*DZDG_GXX DZDG_DZDGXY = DZDCG_DZDCGXY*DZDG_PSI4 + DZDG_FAC*DZDG_GXY @@ -37,9 +32,9 @@ #ifdef CCODE - DZDG_PSI4 = ((*conformal_state == 0)?1:DZDG_PSI*DZDG_PSI*DZDG_PSI*DZDG_PSI); + DZDG_PSI4 = 1; - DZDG_FAC = ((*conformal_state == 0)?0:4*DZDG_PSI4*DZDG_DZDPSI_O_PSI); + DZDG_FAC = 0; DZDG_DZDGXX = DZDCG_DZDCGXX*DZDG_PSI4 + DZDG_FAC*DZDG_GXX; DZDG_DZDGXY = DZDCG_DZDCGXY*DZDG_PSI4 + DZDG_FAC*DZDG_GXY; |